diff --git a/.github/ISSUE_TEMPLATE/bug_report.md b/.github/ISSUE_TEMPLATE/bug_report.md
index dd84ea782..1233e098d 100644
--- a/.github/ISSUE_TEMPLATE/bug_report.md
+++ b/.github/ISSUE_TEMPLATE/bug_report.md
@@ -1,8 +1,8 @@
 ---
-name: Bug report
+name: "\U0001F41B Bug report"
 about: Create a report to help us improve
 title: ''
-labels: ''
+labels: bug
 assignees: ''
 
 ---
@@ -23,16 +23,10 @@ A clear and concise description of what you expected to happen.
 **Screenshots**
 If applicable, add screenshots to help explain your problem.
 
-**Desktop (please complete the following information):**
- - OS: [e.g. iOS]
- - Browser [e.g. chrome, safari]
- - Version [e.g. 22]
-
-**Smartphone (please complete the following information):**
- - Device: [e.g. iPhone6]
- - OS: [e.g. iOS8.1]
- - Browser [e.g. stock browser, safari]
- - Version [e.g. 22]
+**Version**
+ - MESA version or SHA [e.g. r24.08.1]
+ - MESA SDK VERSION [e.g. aarch64-macos-24.7.1]
+ - OS: [e.g. MacOS 16.4.1]
 
 **Additional context**
 Add any other context about the problem here.
diff --git a/.gitignore b/.gitignore
index 0685b1a91..c4cbda92c 100644
--- a/.gitignore
+++ b/.gitignore
@@ -32,6 +32,7 @@ vgcore.*
 
 ## Documentation
 /dox/
+docs/source/_tags
 
 
 ## Executables
@@ -44,7 +45,17 @@ vgcore.*
 **/LOGS2/
 **/photos/
 **/png/
-
+**/png1/
+**/png2/
+**/png3/
+**/pgstar_out/
+**/pgstar_out1/
+**/pgstar_out2/
+**/pgstar_out3/
+**/plt_out/
+**/plt_out1/
+**/plt_out2/
+**/plt_out3/
 
 ## Bill
 star_data/public_*
diff --git a/.readthedocs.yaml b/.readthedocs.yaml
index a9f31076d..bda3cfa9e 100644
--- a/.readthedocs.yaml
+++ b/.readthedocs.yaml
@@ -8,7 +8,7 @@ version: 2
 build:
   os: "ubuntu-22.04"
   tools:
-    python: "3.8"
+    python: "3.12"
 
 # Build documentation in the docs/ directory with Sphinx
 sphinx:
diff --git a/.zenodo.json b/.zenodo.json
index 53d01ed68..0286d4a5c 100644
--- a/.zenodo.json
+++ b/.zenodo.json
@@ -11,18 +11,21 @@
         },
         {
             "affiliation": "Center for Computational Astrophysics",
-            "name": "Bauer, Evan"
+            "name": "Bauer, Evan",
+            "orcid": "0000-0002-4791-6724"
         },
         {
-            "affiliation": "Max Planck Institute for Astrophysics",
-            "name": "Bellinger, Earl"
+            "affiliation": "Yale University",
+            "name": "Bellinger, Earl",
+            "orcid": "0000-0003-4456-4863"
         },
         {
             "affiliation": "Kavli Institute for Theoretical Physics",
-            "name": "Bildsten, Lars"
+            "name": "Bildsten, Lars",
+            "orcid": "0000-0001-8038-6836"
         },
         {
-            "affiliation": "Center for Computational Astrophysics",
+            "affiliation": "Flatiron Institute",
             "name": "Cantiello, Matteo",
             "orcid": "0000-0002-8171-8596"
         },
@@ -47,8 +50,8 @@
             "orcid": "0000-0001-5048-9973"
         },
         {
-            "affiliation": "Space Telescope Science Institute",
-            "name": "Meridith, Joyce",
+            "affiliation": "University of Wyoming",
+            "name": "Joyce, Meridith",
             "orcid": "0000-0002-8717-127X"
         },
         {
@@ -56,6 +59,11 @@
             "name": "Marchant, Pablo",
             "orcid": "0000-0002-0338-8181"
         },
+        {
+            "affiliation": "Flatiron Institute",
+            "name": "Mocz, Philip",
+            "orcid": "0000-0001-6631-2566"
+        },
         {
             "name": "Schwab, Josiah",
             "orcid": "0000-0002-4870-8855"
diff --git a/CODEOWNERS b/CODEOWNERS
index 883fde98f..3b4ac5903 100644
--- a/CODEOWNERS
+++ b/CODEOWNERS
@@ -24,10 +24,10 @@ linters/
 turb/ 
 math/ @rhdtownsend
 mtx/  @mjoyceGR
-net/ @fxt44
-neu/ @fxt44
+net/ @fxt44 @Debraheem
+neu/ @fxt44 @Debraheem
 num/ 
-rates/ @fxt44
+rates/ @fxt44 @Debraheem
 #star/
 #star_data/
 #stella/ 
@@ -56,7 +56,7 @@ star/test_suite/adjust_net
 star/test_suite/c13_pocket @fxt44
 star/test_suite/carbon_kh @evbauer
 star/test_suite/cburn_inward 
-star/test_suite/ccsn_IIp @fxt44
+star/test_suite/ccsn_IIp @fxt44 @aurimontem
 star/test_suite/check_redo @fxt44
 star/test_suite/check_pulse_atm @warrickball
 star/test_suite/conductive_flame @fxt44 
@@ -89,7 +89,7 @@ star/test_suite/make_he_wd @evbauer @fxt44
 star/test_suite/make_metals @fxt44
 star/test_suite/make_o_ne_wd @fxt44 @evbauer
 star/test_suite/make_planets @fxt44
-star/test_suite/make_pre_ccsn_13bvn @Debraheem
+star/test_suite/make_pre_ccsn_13bvn @Debraheem @aurimontem
 star/test_suite/make_sdb @evbauer
 star/test_suite/make_zams @fxt44
 star/test_suite/make_zams_low_mass @fxt44
diff --git a/Doxyfile b/Doxyfile
index 01a9f8d8b..84c9ccdcc 100644
--- a/Doxyfile
+++ b/Doxyfile
@@ -38,7 +38,7 @@ PROJECT_NAME           = "MESA"
 # could be handy for archiving the generated documentation or if some version
 # control system is used.
 
-PROJECT_NUMBER         = r24.03.04
+PROJECT_NUMBER         = r24.06.1-rc1
 
 # Using the PROJECT_BRIEF tag one can provide an optional one line description
 # for a project that appears at the top of each page and should give viewer a
diff --git a/README.rst b/README.rst
index 5c421441d..d1136949b 100644
--- a/README.rst
+++ b/README.rst
@@ -1,25 +1,44 @@
+.. image:: docs/source/mesa-logo-200.png
+  :align: center
+  :width: 200
+  :alt: MESA
+  :target: https://docs.mesastar.org/en/latest/
+
 ######################################################
 Modules for Experiments in Stellar Astrophysics (MESA)
 ######################################################
 
-.. image:: https://img.shields.io/github/license/MESAHub/mesa
-    :alt: GitHub
-    :target: https://github.com/MESAHub/mesa/blob/master/LICENSE
+.. image:: https://img.shields.io/badge/repo_status-Active-brightgreen
+    :alt: RepoStatus
+    :target: https://www.repostatus.org/#active
+.. image:: https://img.shields.io/readthedocs/mesa-doc
+    :alt: ReadTheDocs
+    :target: https://docs.mesastar.org/en/latest/
 .. image:: https://img.shields.io/github/v/release/MESAHub/mesa
     :alt: GitHub release (latest by date)
     :target: https://github.com/MESAHub/mesa/releases/latest
-.. image:: https://img.shields.io/github/issues/MESAHub/mesa
-    :alt: GitHub issues
-    :target: https://github.com/MESAHub/mesa/issues
+.. image:: https://img.shields.io/badge/zenodo-community-blue
+    :alt: Zenodo
+    :target: https://zenodo.org/communities/mesa/records?q=&l=list&p=1&s=10
+.. image:: https://img.shields.io/github/license/MESAHub/mesa
+    :alt: GitHub
+    :target: https://github.com/MESAHub/mesa/blob/master/LICENSE
+.. image:: https://github.com/MESAHub/mesa/actions/workflows/build-linux.yml/badge.svg
+    :alt: BuildLinux
+    :target: https://github.com/MESAHub/mesa/actions/workflows/build-linux.yml
+
+|
+
+   **WARNING**: The default ``main`` branch is the development version of
+   MESA and is not guaranteed to function correctly.  If you are using
+   MESA, you should use an official release version.
 
-**WARNING**: The default ``main`` branch is the development version of
-MESA and is not guaranteed to function correctly.  If you are using
-MESA, you should use an official release version.
 
 Overview
 ========
 
-MESA is built to allow users to run experiments in stellar evolution. 
+MESA is a powerful and versatile open-source software suite built to 
+allow users to run experiments in stellar evolution.
 Stellar evolution calculations (i.e., stellar evolution tracks and
 detailed information about the evolution of internal and global
 properties) are a basic tool that enable a broad range of research in
@@ -41,10 +60,15 @@ pedagogically) by accurate one-dimensional calculations, and this is
 the focus of MESA.
 
 
+Links
+=====
 
-Documentation
-=============
-
-Please visit https://docs.mesastar.org/ for up-to-date information about installing and running MESA.
+* `Code repository <https://github.com/MESAHub/mesa>`__ on GitHub (this page).
+* `Documentation <https://docs.mesastar.org/>`__ for up-to-date information about installing and running MESA.
+* `MESA Marketplace <http://cococubed.com/mesa_market/>`__ for resources for published papers using MESA. 
+* `MESA Zenodo Community <https://zenodo.org/communities/mesa/records?q=&l=list&p=1&s=10>`__ for downloading official release versions, SDKs, and MESA project inlists.
+* `MESA Users Mailing List <https://lists.mesastar.org/mailman/listinfo/mesa-users>`__ for info about new releases, news items, and requests for help/bug reports.
+* `mesa_reader <https://github.com/wmwolf/py_mesa_reader>`__ to interact and plot data from MESA in Python.
+* `MESA Test Hub <https://testhub.mesastar.org/>`__ to view results of regression testing (for Developers).
+* `mesa_test <https://github.com/MESAHub/mesa_test>`__ tool to run the test suite and upload results to the MESA Test Hub (for Developers).
 
-The `MESA Marketplace <http://cococubed.com/mesa_market/>`__ provides resources for published papers using MESA. 
diff --git a/astero/private/adipls_support.f90 b/astero/private/adipls_support.f90
index 68545137c..457dd338c 100644
--- a/astero/private/adipls_support.f90
+++ b/astero/private/adipls_support.f90
@@ -79,9 +79,9 @@ subroutine do_adipls_get_one_el_info( &
          integer, intent(out) :: ierr
       
          real(dp) :: sig_fac
-         integer :: nsel, itrsig, nsig, irotkr, nprtkr, igm1kr, npgmkr
+         integer :: nsel, itrsig, nsig
          real(dp) :: els1, dels, sig1, sig2, dfsig
-         integer :: k, i, j
+         integer :: i, j
          integer, pointer :: index(:) 
          
          logical, parameter :: dbg = .false.
@@ -181,7 +181,7 @@ subroutine adipls_mode_info( &
          real(dp), intent(in) :: freq, inertia
          integer, intent(in) :: nn, iy, iaa, ispcpr
          real(dp), intent(in) :: x(1:nn), y(1:iy,1:nn), aa(1:iaa,1:nn), data(8)
-         integer :: iounit, ierr, i, j, skip
+         integer :: iounit, ierr, i, skip
          real(dp) :: y_r, y_h
          include 'formats'
          if (use_other_adipls_mode_info) then
@@ -235,7 +235,7 @@ subroutine store_model_for_adipls (s, add_atmosphere, do_redistribute_mesh, ierr
          common/ccgrav/ cgrav
          real(dp) :: cgrav
 
-         integer :: i, iriche, iturpr
+         integer :: iriche, iturpr
          integer :: iconst, ivar, ivers, nn_in
          real(dp), allocatable :: global_data(:) ! (iconst)
          real(dp), allocatable :: point_data(:,:) ! (ivar,nn_in)
@@ -287,8 +287,7 @@ subroutine store_model_for_adipls (s, add_atmosphere, do_redistribute_mesh, ierr
 
          ivers = 0 ! It's not clear what this does in fgong_amdl
 
-         call fgong_amdl( &
-            cgrav, nn_in, iconst, ivar, ivers, global_data, point_data, data, aa, nn, ierr)
+         call fgong_amdl(cgrav, nn_in, iconst, ivar, ivers, global_data, point_data, data, aa, nn, ierr)
          deallocate(global_data, point_data)
 
          if (ierr /= 0) then
@@ -682,8 +681,7 @@ subroutine read_and_store(iriche, iturpr, cgrav)
             write(*,*) 'read_and_store failed in read_fgong_file'
             call mesa_error(__FILE__,__LINE__)
          end if
-         call fgong_amdl( &
-            cgrav, nn, iconst, ivar, ivers, glob, var, data, aa, nn, ierr)
+         call fgong_amdl(cgrav, nn_in, iconst, ivar, ivers, glob, var, data, aa, nn, ierr)
          if (ierr /= 0) then
             write(*,*) 'read_and_store failed in fgong_amdl'
             call mesa_error(__FILE__,__LINE__)
@@ -709,7 +707,7 @@ subroutine store_amdl(nn_in, iriche, iturpr, data, aa, x, nn, ierr)
          integer, intent(out) :: nn, ierr
          
          ! local
-         integer :: i, j, nsin, iggt, inp, in, nshift, nnr, n, n1, nstart, idata8
+         integer :: i, j, nsin, iggt, nshift, nnr, n, n1, idata8
          logical :: sincen, sinsur
          real(dp), pointer :: aa1(:,:)
          real(dp) :: ggt
@@ -726,8 +724,8 @@ subroutine store_amdl(nn_in, iriche, iturpr, data, aa, x, nn, ierr)
       
          ! test for singular centre and/or surface
 
-         sincen=aa1(1,1).eq.0
-         sinsur=data(7).ge.0
+         sincen=aa1(1,1) == 0
+         sinsur=data(7) >= 0
          nsin=0
          if (sincen) nsin=nsin+1
          if (sinsur) nsin=nsin+1
@@ -735,7 +733,7 @@ subroutine store_amdl(nn_in, iriche, iturpr, data, aa, x, nn, ierr)
          ! test for inclusion of g/(g tilde)
 
          idata8 = int(data(8)+0.1)
-         if (mod(idata8/10,10).eq.2) then
+         if (mod(idata8/10,10) == 2) then
             iggt = 1
             iturpr=8
          else
@@ -746,13 +744,13 @@ subroutine store_amdl(nn_in, iriche, iturpr, data, aa, x, nn, ierr)
          
          ! test for number of nonsingular points
 
-         if (iriche.ne.1.or.mod(nn-nsin,2).eq.1) then
+         if (iriche /= 1.or.mod(nn-nsin,2) == 1) then
             nshift=0
          else
             nshift=1
          end if
          nnr=nn
-         if (nshift.ne.0) then
+         if (nshift /= 0) then
             nn=nn-nshift
          end if
          
@@ -772,7 +770,7 @@ subroutine store_amdl(nn_in, iriche, iturpr, data, aa, x, nn, ierr)
             end do
          else
             do n=1,nnr
-               if (n.eq.1) then
+               if (n == 1) then
                   n1=1
                else
                   n1=n+nshift
@@ -788,16 +786,16 @@ subroutine store_amdl(nn_in, iriche, iturpr, data, aa, x, nn, ierr)
 
          ! set g/gtilde (=1 in models without turbulent pressure)
 
-         if (iturpr.eq.1) then
+         if (iturpr == 1) then
             do n=1,nn
-               if (x(n).lt.0.999) then
+               if (x(n) < 0.999) then
                   ggt=1
                else
                   ggt=1./(x(n)*x(n)*x(n)*aa(1,n))
                end if
                aa(10,n)=ggt
             end do
-         else if (iggt.eq.1) then
+         else if (iggt == 1) then
             do n=1,nn
                aa(10,n)=aa(6,n)
             end do
@@ -815,8 +813,7 @@ subroutine store_amdl(nn_in, iriche, iturpr, data, aa, x, nn, ierr)
       end subroutine store_amdl
             
       
-      subroutine fgong_amdl( &
-            cgrav, nn_in, iconst, ivar, ivers, glob, var, data, aa, nn, ierr)
+      subroutine fgong_amdl(cgrav, nn_in, iconst, ivar, ivers, glob, var, data, aa, nn, ierr)
          ! derived from fgong-amdl.d.f
          real(dp), intent(in) :: cgrav
          integer, intent(in) :: nn_in, iconst, ivar, ivers
@@ -834,7 +831,7 @@ subroutine fgong_amdl( &
          ierr = 0
          nn = nn_in
 
-         if (var(1,1).gt.var(1,nn)) then 
+         if (var(1,1) > var(1,nn)) then 
             nn1=nn+1
             do i=1,ivar
                do n=1,nn
@@ -846,7 +843,7 @@ subroutine fgong_amdl( &
             end do
          end if
          
-         if (var(1,1).gt.1.d6) then 
+         if (var(1,1) > 1.d6) then 
             do i=1,ivar
                do n=1,nn
                   var1(i,n+1)=var(i,n)
@@ -895,7 +892,7 @@ subroutine fgong_amdl( &
          aa(4,1)=var(10,1)
          aa(5,1)=0
          aa(6,1)=3.d0
-         if (aa(5,nn).le.10) then 
+         if (aa(5,nn) <= 10) then 
             nn=nn-1 
             !write(6,*) 'Chop off outermost point' 
          end if
@@ -903,7 +900,7 @@ subroutine fgong_amdl( &
          data(2)=glob(2)
          data(3)=var(4,1)
          data(4)=var(5,1)
-         if (glob(11).lt.0.and.glob(11).gt.-10000) then 
+         if (glob(11) < 0.and.glob(11) > -10000) then 
             data(5)=-glob(11)/var(10,1)
             data(6)=-glob(12) 
          else 
@@ -911,7 +908,7 @@ subroutine fgong_amdl( &
             d2amax=0.d0
             do n=2,nn
                d2amax=max(d2amax,aa(5,n)/x(n)**2)
-               if (x(n).ge.0.05d0) exit
+               if (x(n) >= 0.05d0) exit
             end do
             data(6)=d2amax+data(5)
             !write(6,140) data(5), data(6)
@@ -929,8 +926,7 @@ subroutine read_fgong_file(fin, nn, iconst, ivar, ivers, glob, var, ierr)
          real(dp), pointer :: var(:,:) ! (ivar,nn)   will be allocated
          integer, intent(out) :: ierr
       
-         real(dp), pointer :: var1(:,:) ! (ivar,nn)
-         integer :: ios, iounit, i, n, ir, nn1
+         integer :: ios, iounit, i, n
          character(80) :: head
       
   120 format(4i10)
diff --git a/astero/private/adipls_support_procs.f90 b/astero/private/adipls_support_procs.f90
index b6e165908..2ef742898 100644
--- a/astero/private/adipls_support_procs.f90
+++ b/astero/private/adipls_support_procs.f90
@@ -45,7 +45,7 @@ subroutine spcout_adi(x,y,aa,data,nn,iy,iaa,ispcpr)
          real(dp) :: csummm(50)
          common/csumma/ csummm
                   
-         integer :: icobs_st, nobs_st, i
+         integer :: icobs_st, nobs_st
          real(dp) :: obs_st(10,100000) ! huge 2nd dimension to satisfy bounds checking
 
          integer :: ierr, new_el, new_order, new_em, n
diff --git a/astero/private/astero_run_support.f90 b/astero/private/astero_run_support.f90
index 9ac6a423d..85aa7c053 100644
--- a/astero/private/astero_run_support.f90
+++ b/astero/private/astero_run_support.f90
@@ -53,7 +53,6 @@ end subroutine extras_controls
 
          type (star_info), pointer :: s
          integer :: id, i, ierr
-         character (len=256) :: inlist_fname
          
          include 'formats'
 
@@ -207,7 +206,7 @@ real(dp) function eval1(id_in,ierr)
             
          type (star_info), pointer :: s
          logical :: restart
-         integer :: id, i      
+         integer :: id   
 
          include 'formats'
          
@@ -647,7 +646,7 @@ subroutine do_bobyqa_or_newuoa(newuoa_flag, ierr)
          integer, intent(out) :: ierr
          integer, parameter :: maxfun = 1000, iprint = 0
          real(dp), pointer, dimension(:) :: xl, xu, x, w
-         real(dp) :: min_chi2, rhobeg, max_value
+         real(dp) :: rhobeg, max_value
          integer :: i, npt
          include 'formats'
          ierr = 0
@@ -815,8 +814,7 @@ subroutine do_simplex(ierr)
          use num_lib
          integer, intent(out) :: ierr
          
-         real(dp) :: final_mass, final_alpha, final_Y, final_FeH, &
-              final_param(1:max_parameters)
+         real(dp) :: final_param(1:max_parameters)
          real(dp), dimension(:), pointer :: x_first, x_lower, x_upper, x_final
          real(dp), pointer :: simplex(:,:), f(:)
          real(dp) :: f_final
@@ -825,7 +823,7 @@ subroutine do_simplex(ierr)
          real(dp), pointer :: rpar(:) ! (lrpar)
          integer :: num_iters, num_fcn_calls, &
             num_fcn_calls_for_ars, num_accepted_for_ars
-         integer :: seed, i, j, k, num_samples
+         integer :: i, num_samples
          logical :: start_from_given_simplex_and_f
          
          include 'formats'
@@ -1047,7 +1045,7 @@ end subroutine save_best_for_sample
       
       
       subroutine set_sample_averages
-         integer :: ierr, jj, j, n
+         integer :: jj, j, n
          real(dp) :: avg_age_top_samples2, avg_model_number_top_samples2
          
          include 'formats'
diff --git a/astero/private/astero_support.f90 b/astero/private/astero_support.f90
index b6fe1195b..0d891469e 100644
--- a/astero/private/astero_support.f90
+++ b/astero/private/astero_support.f90
@@ -69,12 +69,11 @@ subroutine get_one_el_info( &
          character (len=*), intent(in) :: code
          integer, intent(out) :: ierr
                   
-         real(dp) :: nu_obs, dist_j, nu, dist, min_dist, min_freq, &
-            R, G, M, sig_fac, b, sum_1, sum_2, sum_3, empty(0)
-         integer :: min_dist_j, min_order, n, cnt, int_empty(0)
+         real(dp) :: dist, min_dist, R, G, M, sig_fac, b, sum_1, sum_2, sum_3, empty(0)
+         integer :: min_dist_j, cnt, int_empty(0), int_empty2(0)
          integer :: nsel, itrsig, nsig
          real(dp) :: els1, dels, sig1, sig2, dfsig
-         integer :: num_l0_terms, k, i, j
+         integer :: i, j
          integer, pointer :: index(:) 
 
          include 'formats'
@@ -162,7 +161,7 @@ subroutine get_one_el_info( &
             call set_to_closest(freq_target(0,:), &
                model_freq(0,:), empty, empty, &
                model_inertia(0,:), empty, empty, &
-               model_order(0,:), int_empty, int_empty, ierr)
+               model_order(0,:), int_empty, int_empty2, ierr)
 
             model_freq_alt_up(0,:) = model_freq(0,:)
             model_inertia_alt_up(0,:) = model_inertia(0,:)
@@ -597,8 +596,7 @@ subroutine init_obs_data(ierr)
          integer, intent(out) :: ierr
          
          integer :: i, cnt, norders
-         integer, dimension(max_nl) :: orders
-         real(dp) :: sum_1, sum_2, sum_3, range, nmax
+         real(dp) :: sum_1, sum_2, range, nmax
          real(dp) :: x, y, isig2, sum_xy, sum_x, sum_y, sum_x2, sum_isig2, d
          
          logical, parameter :: dbg = .false.
@@ -1393,7 +1391,7 @@ real(dp) function get_chi2(s, max_el, trace_okay, ierr)
          integer, intent(out) :: ierr
 
          integer :: i, l, n, chi2N1, chi2N2
-         real(dp) :: chi2term, Teff, logL, chi2sum1, chi2sum2, frac, &
+         real(dp) :: chi2term, chi2sum1, chi2sum2, frac, &
             model_r01, model_r10, model_r02
          
          ! calculate chi^2 following Brandao et al, 2011, eqn 11
diff --git a/astero/private/extras_support.f90 b/astero/private/extras_support.f90
index fd953c1b3..c6490b9b2 100644
--- a/astero/private/extras_support.f90
+++ b/astero/private/extras_support.f90
@@ -66,8 +66,8 @@ integer function do_astero_extras_check_model(s, id)
          
          integer :: max_el_for_chi2, ierr, i, j, l, n
          logical :: store_model, checking_age
-         real(dp) :: age_limit, model_limit, err, target_l0, X, Y, Z, &
-            frac, surface_X, surface_Z, chi2_freq_and_ratios_fraction, &
+         real(dp) :: age_limit, model_limit, &
+            frac, chi2_freq_and_ratios_fraction, &
             remaining_years, prev_max_years, min_max
          
          include 'formats'
@@ -676,7 +676,7 @@ end function do_astero_extras_check_model
       real(dp) function get_chi2_spectro(s)
          type (star_info), pointer :: s
          integer :: cnt, i
-         real(dp) :: logL, sum
+         real(dp) :: sum
          include 'formats'
          cnt = 0
          sum = 0
@@ -866,8 +866,7 @@ subroutine write_best(num)
          integer, intent(in) :: num
          integer :: ierr, iounit
          character (len=256) :: format_string, num_string, filename
-         integer, parameter :: max_len_out = 2000
-         character (len=max_len_out) :: script         
+         integer, parameter :: max_len_out = 2000     
          ierr = 0
          iounit = alloc_iounit(ierr)
          if (ierr /= 0) return
@@ -1094,7 +1093,6 @@ subroutine astero_data_for_extra_profile_columns( &
          character (len=maxlen_profile_column_name) :: astero_names(n)
          real(dp) :: vals(nz,n)
          integer, intent(out) :: ierr
-         integer :: k
          ierr = 0
          call star_astero_procs% data_for_extra_profile_columns( &
             id, n, nz, astero_names, vals, ierr)
@@ -1177,7 +1175,7 @@ subroutine move_extra_info(s,op)
          type (star_info), pointer :: s
          integer, intent(in) :: op
          
-         integer :: i, j, num_ints, num_dbls, ierr
+         integer :: i, num_ints, num_dbls, ierr
          
          i = 0
          ! call move_int or move_flg 
diff --git a/astero/private/gyre_support.f90 b/astero/private/gyre_support.f90
index bf76ff772..19235571b 100644
--- a/astero/private/gyre_support.f90
+++ b/astero/private/gyre_support.f90
@@ -29,7 +29,8 @@ module gyre_support
   use star_def
   use const_def
   use utils_lib
-  use gyre_lib
+
+  use gyre_mesa_m
 
   ! No implicit typing
       
@@ -66,19 +67,19 @@ subroutine init_gyre (gyre_file, ierr)
 
     ! Initialize GYRE
 
-    call gyre_init(gyre_file)
+    call init(gyre_file)
 
     ! Set constants
 
-    call gyre_set_constant('G_GRAVITY', standard_cgrav)
-    call gyre_set_constant('C_LIGHT', clight)
-    call gyre_set_constant('A_RADIATION', crad)
+    call set_constant('G_GRAVITY', standard_cgrav)
+    call set_constant('C_LIGHT', clight)
+    call set_constant('A_RADIATION', crad)
 
-    call gyre_set_constant('M_SUN', Msun)
-    call gyre_set_constant('R_SUN', Rsun)
-    call gyre_set_constant('L_SUN', Lsun)
+    call set_constant('M_SUN', Msun)
+    call set_constant('R_SUN', Rsun)
+    call set_constant('L_SUN', Lsun)
 
-    call gyre_set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
+    call set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
 
     write(*,*) 'done init_gyre'
 
@@ -99,7 +100,6 @@ subroutine do_gyre_get_modes (s, el, store_model, ierr)
 
     integer  :: ipar(1)
     real(dp) :: rpar(1)
-    integer  :: i
     integer(8) :: time0, time1, clock_rate
     real(dp) :: time
          
@@ -124,7 +124,7 @@ subroutine do_gyre_get_modes (s, el, store_model, ierr)
        call system_clock(time0, clock_rate)
     end if
          
-    call gyre_get_modes(el, gyre_call_back, ipar, rpar)  
+    call get_modes(el, gyre_call_back, ipar, rpar)
          
     if (trace_time_in_oscillation_code) then
        call system_clock(time1, clock_rate)
@@ -204,7 +204,7 @@ subroutine store_model_for_gyre (s, add_center_point, keep_surface_point, add_at
          
     if (dbg) write(*,2) 'call gyre_set_model', s%model_number
 
-    call gyre_set_model(global_data, point_data, s%gyre_data_schema)
+    call set_model(global_data, point_data, s%gyre_data_schema)
 
     if (dbg) write(*,2) 'done gyre_set_model', s%model_number
 
@@ -305,8 +305,7 @@ subroutine save_gyre_mode_info( &
     real(dp), intent(inout)  :: rpar(:)
     integer, intent(out)     :: ierr
 
-    integer :: iounit, i, j, skip, nn
-    real(dp) :: y_r, y_h
+    integer :: iounit
 
     include 'formats'
          
diff --git a/astero/private/pgstar_astero_plots.f90 b/astero/private/pgstar_astero_plots.f90
index 7530c4797..154e7bc1f 100644
--- a/astero/private/pgstar_astero_plots.f90
+++ b/astero/private/pgstar_astero_plots.f90
@@ -137,9 +137,8 @@ subroutine do_echelle_plot( &
          integer, intent(out) :: ierr
 
          type (star_info), pointer :: s
-         real :: xmin, xmax, ymin, ymax, dx, dy, plot_delta_nu, freq, marker_scale, &
+         real :: xmin, xmax, ymin, ymax, dx, dy, plot_delta_nu, marker_scale, &
             x_obs, y_obs, x_model, y_model, y_txt, xpt_min, xpt_max, xmargin
-         character (len=256) :: str
          integer :: i, l, freq_color(0:3), freq_shape(0:3), model_color, model_shape
                      
          include 'formats'
@@ -410,9 +409,8 @@ subroutine do_ratios_plot( &
          integer, intent(out) :: ierr
 
          type (star_info), pointer :: s
-         real :: xmin, xmax, ymin, ymax, dx, dy, freq, &
-            x_obs, y_obs, x_model, y_model, y_txt, sig_max
-         character (len=256) :: str
+         real :: xmin, xmax, ymin, ymax, dx, dy, &
+            x_obs, y_obs, y_txt, sig_max
          logical :: show_model
          integer :: i, n, i0, i1, l0_first, l1_first, &
             r01_color, r01_shape, r10_color, r10_shape, &
@@ -627,7 +625,6 @@ subroutine write_plot_to_file(s, p, file_prefix, number, ierr)
          integer, intent(out) :: ierr
 
          character (len=256) :: format_string, num_str, name, extension
-         integer :: len
          
          ierr = 0
          
diff --git a/astero/public/astero_def.f90 b/astero/public/astero_def.f90
index f2628cb3f..ede83e7dd 100644
--- a/astero/public/astero_def.f90
+++ b/astero/public/astero_def.f90
@@ -963,7 +963,6 @@ recursive subroutine read1_astero_pgstar_inlist(filename, level, ierr)
          integer, intent(out) :: ierr
          
          logical, dimension(max_extra_inlists) :: read_extra
-         character (len=strlen) :: message
          character (len=strlen), dimension(max_extra_inlists) :: extra
          integer :: unit, i
          
@@ -1167,7 +1166,7 @@ subroutine show1_sample_results(i, iounit)
          use num_lib, only: simplex_info_str
          integer, intent(in) :: i, iounit
             
-         integer :: j, k, l, op_code, ierr
+         integer :: k, l, op_code, ierr
          character (len=256) :: info_str, fmt
          
          ierr = 0
@@ -1270,7 +1269,6 @@ subroutine show_all_sample_results(iounit, i_total, ierr)
          integer, intent(in) :: iounit, i_total
          integer, intent(out) :: ierr
          integer :: i, j
-         character (len=strlen) :: int_fmt, txt_fmt
 
          ierr = 0
          ! sort results by increasing sample_chi2
@@ -1513,7 +1511,7 @@ subroutine read_samples_from_file(results_fname, ierr)
          use utils_lib
          character (len=*), intent(in) :: results_fname
          integer, intent(out) :: ierr
-         integer :: iounit, num, i, j, model_number
+         integer :: iounit, num, j
          character (len=strlen) :: line
          
          include 'formats'
@@ -1595,7 +1593,6 @@ subroutine read1_sample_from_file(j, iounit, ierr)
             
          integer :: i, k, l
          character (len=256) :: info_str, fmt
-         real(dp) :: logR
          
          include 'formats'
          
diff --git a/astero/public/astero_lib.f90 b/astero/public/astero_lib.f90
index c8add47e0..a0cac505a 100644
--- a/astero/public/astero_lib.f90
+++ b/astero/public/astero_lib.f90
@@ -24,9 +24,7 @@
 ! ***********************************************************************
 
       module astero_lib
-      ! library for calculating neutrino losses from non-nuclear-burning sources
-      ! neutrino losses that occur during nuclear reactions are included in the nuclear library
-      ! the data interface for the library is defined in neu_def
+      ! library for calculating calculation of asteroseismic variables
       
       use const_def, only: dp
       use gyre_support, only: GYRE_IS_ENABLED
diff --git a/atm/private/atm_table.f90 b/atm/private/atm_table.f90
index 93cbee2bf..1b6f976f8 100644
--- a/atm/private/atm_table.f90
+++ b/atm/private/atm_table.f90
@@ -105,7 +105,6 @@ subroutine eval_table( &
     real(dp) :: dPrad_dL
     real(dp) :: dT_dlnR
     real(dp) :: dT_dlnM
-    real(dp) :: dT_dlnT
     real(dp) :: dT_dlnTeff
 
     include 'formats'
diff --git a/atm/private/atm_utils.f90 b/atm/private/atm_utils.f90
index ad90a9f02..3ce656813 100644
--- a/atm/private/atm_utils.f90
+++ b/atm/private/atm_utils.f90
@@ -219,7 +219,7 @@ subroutine create_E2_interpolant(ierr)
 
     work => work_ary
 
-    do i= 1, E2_NPAIRS
+    do i = 1, E2_NPAIRS
        E2_x(i) = E2_pairs(2*i-1)
        E2_f(1,i) = E2_pairs(2*i)
     end do
diff --git a/atm/private/table_atm.f90 b/atm/private/table_atm.f90
index c9b65d7b6..0f83e86f3 100644
--- a/atm/private/table_atm.f90
+++ b/atm/private/table_atm.f90
@@ -83,8 +83,6 @@ subroutine load_table_summary(id, fname, ai, ierr)
             type(atm_info), intent(inout) :: ai
             integer, intent(out) :: ierr
             
-            integer :: nvec
-            character (len=500) :: buf
             real(dp), target :: vec_ary(20)
             real(dp), pointer :: vec(:)
 
@@ -505,7 +503,7 @@ subroutine load_atm_table(iZ,ierr)
             integer, intent(in)  :: iZ !index of Z table to be loaded
             integer, intent(out) :: ierr
             integer :: iounit, i, j, ibound_tmp(ng), ibcTmin, ibcTmax, ibcgmin, ibcgmax
-            integer :: cache_file_version, text_file_version, nvec
+            integer :: text_file_version, nvec
             real(dp) :: Teff_tmp(nT), logg_tmp(ng)
             real(dp) :: bcTmin(nT), bcTmax(ng), bcgmin(ng), bcgmax(ng), data_tmp(ng,nT)
             real(dp), target :: vec_ary(100)
diff --git a/auto_diff/private/support_functions.f90 b/auto_diff/private/support_functions.f90
index 93d5b2b72..55e78e626 100644
--- a/auto_diff/private/support_functions.f90
+++ b/auto_diff/private/support_functions.f90
@@ -57,7 +57,6 @@ end function int_real_pow
 
    pure real(dp) function int_int_pow(x, y) result(z)
       integer, intent(in) :: x, y
-      real(dp) :: x_real, y_real
 
       z = x**y
    end function int_int_pow
diff --git a/auto_diff/test/src/test_auto_diff.f90 b/auto_diff/test/src/test_auto_diff.f90
index 8fd55af3a..88f9b7531 100644
--- a/auto_diff/test/src/test_auto_diff.f90
+++ b/auto_diff/test/src/test_auto_diff.f90
@@ -52,8 +52,7 @@ end subroutine should_print2
 
    subroutine do_test_auto_diff_star_order1()
       type(auto_diff_real_star_order1) :: x, y, z
-      real(dp) :: a, b, c
-      integer :: i, j, k
+      integer :: i
 
       call header('Testing assignment')
       x = 3d0
@@ -123,9 +122,6 @@ end subroutine do_test_auto_diff_star_order1
 
    subroutine do_test_auto_diff_1var_order1()
       type(auto_diff_real_1var_order1) :: x, y, z
-      real(dp) :: a, b, c
-      integer :: i, j, k
-
 
       call header('Testing assignment and comparison')
 
@@ -543,9 +539,6 @@ end subroutine do_test_auto_diff_1var_order1
 
    subroutine do_test_auto_diff_2var_order1()
       type(auto_diff_real_2var_order1) :: x, y, z
-      real(dp) :: a, b, c
-      integer :: i, j, k
-
 
       call header('Testing assignment and comparison')
 
diff --git a/binary/other/mod_other_tsync.f90 b/binary/other/mod_other_tsync.f90
index b502e7363..fea064e03 100644
--- a/binary/other/mod_other_tsync.f90
+++ b/binary/other/mod_other_tsync.f90
@@ -138,7 +138,6 @@ subroutine null_other_tsync(id, sync_type, Ftid, qratio, m, r_phot, osep, t_sync
          real(dp), intent(in) :: osep ! orbital separation (cm)
          real(dp), intent(out) :: t_sync
          integer, intent(out) :: ierr
-         real(dp) :: rGyr_squared, moment_of_inertia
          type (binary_info), pointer :: b
          type (star_info), pointer :: s
    
diff --git a/binary/private/binary_ce.f90 b/binary/private/binary_ce.f90
index 274b877d3..2b792aae0 100644
--- a/binary/private/binary_ce.f90
+++ b/binary/private/binary_ce.f90
@@ -39,7 +39,6 @@ module binary_ce
       contains
 
       subroutine CE_init(b, restart, ierr)
-         use chem_def, only: chem_isos
          use interp_1d_def, only: pm_work_size
          use interp_1d_lib, only: interp_pm
          type (binary_info), pointer :: b
@@ -47,7 +46,7 @@ subroutine CE_init(b, restart, ierr)
          integer, intent(out) :: ierr
          type (star_info), pointer :: s
          real(dp), pointer :: interp_work(:), adjusted_energy(:)
-         integer :: i, k, op_err
+         integer :: k, op_err
          real(dp) :: rec_energy_HII_to_HI, &
                      rec_energy_HeII_to_HeI, &
                      rec_energy_HeIII_to_HeII, &
diff --git a/binary/private/binary_ctrls_io.f90 b/binary/private/binary_ctrls_io.f90
index fcd425546..b8f0f5676 100644
--- a/binary/private/binary_ctrls_io.f90
+++ b/binary/private/binary_ctrls_io.f90
@@ -277,7 +277,6 @@ recursive subroutine read_binary_controls_file(b, filename, level, ierr)
          integer, intent(in) :: level
          integer, intent(out) :: ierr
          logical, dimension(max_extra_inlists) :: read_extra
-         character (len=strlen) :: message
          character (len=strlen), dimension(max_extra_inlists) :: extra
          integer :: unit, i
          
diff --git a/binary/private/binary_edot.f90 b/binary/private/binary_edot.f90
index c5f0fc084..5e92f5602 100644
--- a/binary/private/binary_edot.f90
+++ b/binary/private/binary_edot.f90
@@ -196,7 +196,7 @@ subroutine edot_enhancement_Isotropic(binary_id, ierr)
        integer, intent(out) :: ierr
        type (binary_info), pointer :: b
        integer :: i
-       real(dp) :: de, Mtot, xfer, costh
+       real(dp) :: de, Mtot, costh
 
        ierr = 0
        call binary_ptr(binary_id, b, ierr)
diff --git a/binary/private/binary_evolve.f90 b/binary/private/binary_evolve.f90
index 17f42f80b..4b8868b9d 100644
--- a/binary/private/binary_evolve.f90
+++ b/binary/private/binary_evolve.f90
@@ -400,7 +400,7 @@ integer function binary_check_model(b)
          use binary_irradiation
          type (binary_info), pointer :: b
 
-         integer :: i, j, ierr, id
+         integer :: ierr, id
          logical :: implicit_rlo
          real(dp) :: new_mdot, q
 
@@ -506,7 +506,6 @@ end function binary_check_model
 
       integer function binary_finish_step(b)
          type (binary_info), pointer :: b
-         real(dp) :: spin_period
 
          binary_finish_step = keep_going
          ! update change factor in case mtransfer_rate has changed
diff --git a/binary/private/binary_history.f90 b/binary/private/binary_history.f90
index 951f2522f..8d21fec9a 100644
--- a/binary/private/binary_history.f90
+++ b/binary/private/binary_history.f90
@@ -70,7 +70,7 @@ subroutine data_for_binary_history_columns(&
       integer, intent(out) :: ierr
 
       type (binary_info), pointer :: b
-      integer :: c, int_val, i, j
+      integer :: c, int_val, j
       logical :: is_int_val
       real(dp) :: val
 
@@ -121,7 +121,7 @@ subroutine do_binary_history_info(b, write_flag, ierr)
       integer, intent(out) :: ierr
 
       character (len = strlen) :: fname, dbl_fmt, int_fmt, txt_fmt
-      integer :: numcols, io, i, nz, col, j, i0, n
+      integer :: numcols, io, i, col, j, i0, n
 
       integer :: num_extra_header_items, num_extra_cols
 
@@ -408,8 +408,7 @@ end subroutine do_col_pass1
       subroutine do_col_pass2(j) ! get the column name
          integer, intent(in) :: j
          character (len = 100) :: col_name
-         character (len = 10) :: str
-         integer :: c, i, ii
+         integer :: c
          c = b% binary_history_column_spec(j)
          col_name = trim(binary_history_column_name(c))
          call do_name(j, col_name)
@@ -418,9 +417,9 @@ end subroutine do_col_pass2
 
       subroutine do_col_pass3(c) ! get the column value
          integer, intent(in) :: c
-         integer :: i, ii, k, int_val
+         integer :: k, int_val
          logical :: is_int_val
-         real(dp) :: val, val1, Ledd, power_photo, frac
+         real(dp) :: val
          int_val = 0; val = 0; is_int_val = .false.
          call binary_history_getval(&
             b, c, val, int_val, is_int_val, ierr)
@@ -521,7 +520,6 @@ subroutine binary_history_getval(b, c, val, int_val, is_int_val, ierr)
       integer, intent(out) :: int_val
       logical, intent(out) :: is_int_val
       integer, intent(out) :: ierr
-      integer :: k, i
 
       include 'formats'
 
@@ -812,10 +810,7 @@ subroutine get_binary_history_values(b, num, specs, &
       real(dp), intent(inout) :: values(:)
       logical, intent(out) :: failed_to_find_value(:)
 
-      integer :: i, c, int_val, ierr, n, t, j, iounit
-      real(dp) :: val
-      logical :: is_int_val, special_case
-      character (len = strlen) :: buffer, string
+      integer :: i, c, ierr
 
       include 'formats'
       ierr = 0
@@ -844,10 +839,8 @@ logical function get1_binary_hist_value(b, name, val)
       character (len = *) :: name
       real(dp), intent(out) :: val
       integer :: i, ierr, num_extra_cols
-      character (len = 80), pointer, dimension(:) :: &
-         extra_col_names, binary_col_names
-      real(dp), pointer, dimension(:) :: &
-         extra_col_vals, binary_col_vals
+      character (len = 80), pointer, dimension(:) :: extra_col_names
+      real(dp), pointer, dimension(:) :: extra_col_vals
       include 'formats'
 
       get1_binary_hist_value = .false.
diff --git a/binary/private/binary_history_specs.f90 b/binary/private/binary_history_specs.f90
index 38303d675..297540bdf 100644
--- a/binary/private/binary_history_specs.f90
+++ b/binary/private/binary_history_specs.f90
@@ -52,7 +52,7 @@ recursive subroutine add_binary_history_columns(&
       character (len = *), intent(in) :: history_columns_file
       integer, intent(out) :: ierr
 
-      integer :: iounit, n, i, t, id, j, cnt, ii, nxt_spec
+      integer :: iounit, n, i, t, j, nxt_spec
       character (len = 256) :: buffer, string, filename
       integer, parameter :: max_level = 20
       logical :: bad_item
@@ -195,7 +195,7 @@ integer function do1_binary_history_spec(&
       use utils_def
       use chem_lib
 
-      integer :: iounit, t, n, i, j, id
+      integer :: iounit, t, n, i, j
       character (len = *) :: string, buffer
       integer, intent(out) :: ierr
 
diff --git a/binary/private/binary_jdot.f90 b/binary/private/binary_jdot.f90
index 8e9ddffff..4aa54e7ee 100644
--- a/binary/private/binary_jdot.f90
+++ b/binary/private/binary_jdot.f90
@@ -120,7 +120,6 @@ subroutine default_jdot_ml(binary_id, ierr)
          integer, intent(in) :: binary_id
          integer, intent(out) :: ierr
          type (binary_info), pointer :: b
-         real(dp) :: alfa
          ierr = 0
          call binary_ptr(binary_id, b, ierr)
          if (ierr /= 0) then
@@ -212,7 +211,7 @@ subroutine check_jdot_mb_conditions(b, s, apply_jdot_mb, qconv_env)
          real(dp), intent(out) :: qconv_env
          
          real(dp) :: qconv_core
-         integer :: i, k, id
+         integer :: k
 
          include 'formats'
 
@@ -256,7 +255,6 @@ subroutine default_jdot_mb(binary_id, ierr)
          integer, intent(in) :: binary_id
          integer, intent(out) :: ierr
          type (binary_info), pointer :: b
-         logical :: apply_mdot_mb
          real(dp) :: rsun4,two_pi_div_p3, qconv_env, jdot_scale
          logical :: apply_jdot_mb
          ierr = 0
diff --git a/binary/private/binary_job_ctrls_io.f90 b/binary/private/binary_job_ctrls_io.f90
index 429274ea1..e3c709304 100644
--- a/binary/private/binary_job_ctrls_io.f90
+++ b/binary/private/binary_job_ctrls_io.f90
@@ -94,7 +94,6 @@ recursive subroutine read_binary_job_file(b, filename, level, ierr)
          integer, intent(in) :: level
          integer, intent(out) :: ierr
          logical, dimension(max_extra_inlists) :: read_extra
-         character (len=strlen) :: message
          character (len=strlen), dimension(max_extra_inlists) :: extra
          integer :: unit, i
 
diff --git a/binary/private/binary_mdot.f90 b/binary/private/binary_mdot.f90
index 75888ddf5..335af30b9 100644
--- a/binary/private/binary_mdot.f90
+++ b/binary/private/binary_mdot.f90
@@ -502,7 +502,7 @@ subroutine adjust_mdots(b)
          use binary_wind, only: eval_wind_xfer_fractions
          type (binary_info), pointer :: b
 
-         real(dp) :: fixed_xfer_fraction, actual_mtransfer_rate
+         real(dp) :: actual_mtransfer_rate
          integer :: ierr
 
          actual_mtransfer_rate = 0d0
@@ -690,7 +690,7 @@ end subroutine rlo_mdot
 
       subroutine get_info_for_ritter(b)
          type(binary_info), pointer :: b
-         real(dp) :: rho_exponent, F1, q, rho, p, grav, hp, v_th, rl3, q_temp
+         real(dp) :: F1, q, rho, p, grav, hp, v_th, rl3, q_temp
          include 'formats'
 
          !--------------------- Optically thin MT rate -----------------------------------------------
@@ -735,7 +735,7 @@ end subroutine get_info_for_ritter
       real(dp) function calculate_kolb_mdot_thick(b, indexR, rl_d) result(mdot_thick)
          real(dp), intent(in) :: rl_d
          integer, intent(in) :: indexR
-         real(dp) :: F1, F3, G1, dP, q, rho, p, grav, hp, v_th, rl3, q_temp
+         real(dp) :: F1, F3, G1, d_P, q, q_temp
          integer :: i
          type(binary_info), pointer :: b
          include 'formats'
@@ -751,12 +751,12 @@ real(dp) function calculate_kolb_mdot_thick(b, indexR, rl_d) result(mdot_thick)
             mdot_thick = mdot_thick + F3*sqrt(kerg * b% s_donor% T(i) / &
                (mp * b% s_donor% mu(i)))*(b% s_donor% Peos(i+1)-b% s_donor% Peos(i))
          end do
-         ! only take a fraction of dP for last cell 
+         ! only take a fraction of d_P for last cell 
          G1 = b% s_donor% gamma1(i)
          F3 = sqrt(G1) * pow(2d0/(G1+1d0), (G1+1d0)/(2d0*G1-2d0))
-         dP = (b% s_donor% r(indexR) - rl_d) / &
+         d_P = (b% s_donor% r(indexR) - rl_d) / &
             (b% s_donor% r(indexR) - b% s_donor% r(indexR+1)) * (b% s_donor% Peos(i+1)-b% s_donor% Peos(i))
-         mdot_thick = mdot_thick + F3*sqrt(kerg * b% s_donor% T(i) / (mp*b% s_donor% mu(i)))*dP
+         mdot_thick = mdot_thick + F3*sqrt(kerg * b% s_donor% T(i) / (mp*b% s_donor% mu(i)))*d_P
 
          q = b% m(b% a_i)/b% m(b% d_i) ! Mass ratio, as defined in Ritter 1988
                                        ! (Kolb & Ritter 1990 use the opposite!)
@@ -769,8 +769,6 @@ end function calculate_kolb_mdot_thick
       
       subroutine get_info_for_kolb(b)
          type(binary_info), pointer :: b
-         real(dp) :: F3, FF, G1, x_L1, q, g
-         real(dp) :: mdot_thick0,  R_gas, dP, rl, s_div_rl
          integer :: i, indexR
          include 'formats'
 
@@ -841,7 +839,7 @@ end subroutine get_info_for_arras
       subroutine get_info_for_ritter_eccentric(b)
          type(binary_info), pointer :: b
          integer :: i
-         real(dp) :: rho_exponent, F1, q, q_temp, rho, p, grav, hp, v_th, dm
+         real(dp) :: F1, q, q_temp, rho, p, grav, hp, v_th, dm
          real(dp), DIMENSION(b% anomaly_steps):: mdot0, mdot, Erit, rl_d
          include 'formats'
          
diff --git a/binary/private/binary_photos.f90 b/binary/private/binary_photos.f90
index 6cf00b5d0..dae7b18b0 100644
--- a/binary/private/binary_photos.f90
+++ b/binary/private/binary_photos.f90
@@ -40,7 +40,7 @@ module binary_photos
    subroutine do_saves_for_binary(b, ierr)
       type(binary_info), pointer :: b
       integer, intent(out) :: ierr
-      integer :: iounit, id
+      integer :: iounit
       character (len = strlen) :: str_photo, filename, iomsg, report_str
 
       call string_for_model_number('x', b% model_number, b% photo_digits, str_photo)
diff --git a/binary/private/binary_tides.f90 b/binary/private/binary_tides.f90
index 2692ae41d..011582380 100644
--- a/binary/private/binary_tides.f90
+++ b/binary/private/binary_tides.f90
@@ -108,13 +108,13 @@ subroutine sync_spin_to_orbit(id, nz, osep, qratio, rl, dt_next, Ftid, sync_type
          integer, intent(out) :: ierr
       
          type (star_info), pointer :: s
-         real(dp) :: G, m, m_lim, t_sync, r_phot, delta_total_J, &
+         real(dp) :: G, m, t_sync, r_phot, delta_total_J, &
             sum_J_sync, sum_J_non_sync, tdyn, tkh, rho_face, cv_face, &
             T_face, csound_face, ff, omega_orb
             
          real(dp), dimension(nz) :: j_sync, delta_j, tdyn_div_tkh         
          integer, dimension(nz) :: layers_in_sync
-         integer :: k, k_rl, k_xm, num_sync_layers
+         integer :: k, num_sync_layers
          type (binary_info), pointer :: b
 
          real(dp) :: a1,a2
@@ -418,9 +418,9 @@ real(dp) function k_div_T(b, s, has_convective_envelope, ierr)
          porb = b% period
 
          if (has_convective_envelope) then
-            m_env = 0d0
-            r_env = 0d0
-            do k=1, s% nz
+            m_env = s% m(1) / Msun  ! assume fully convective
+            r_env = s% r(1) / Rsun
+            do k=1, s% nz  ! search if _not_ fully convective
                if (s% mixing_type(k) /= convective_mixing .and. &
                    s% rho(k) > 1d5*s% rho(1)) then
                   r_env = (r_phot - s% r(k))/Rsun
diff --git a/binary/private/binary_timestep.f90 b/binary/private/binary_timestep.f90
index 10df58821..5f2ab5d31 100644
--- a/binary/private/binary_timestep.f90
+++ b/binary/private/binary_timestep.f90
@@ -39,7 +39,7 @@ module binary_timestep
       subroutine set_star_timesteps(b) ! sets the smallest next timestep for all stars
          type (binary_info), pointer :: b
          integer :: i, l
-         real(dp) :: dt_min, rel_overlap
+         real(dp) :: dt_min
          type (star_info), pointer :: s
          integer :: ierr, num_stars
          ierr = 0
diff --git a/binary/private/pgbinary_ctrls_io.f90 b/binary/private/pgbinary_ctrls_io.f90
index 96611294d..3981feee3 100644
--- a/binary/private/pgbinary_ctrls_io.f90
+++ b/binary/private/pgbinary_ctrls_io.f90
@@ -1393,7 +1393,6 @@ recursive subroutine read_pgbinary_file(b, filename, level, ierr)
       integer, intent(in) :: level
       integer, intent(out) :: ierr
       logical, dimension(max_extra_inlists) :: read_extra
-      character (len=strlen) :: message
       character (len=strlen), dimension(max_extra_inlists) :: extra
       integer :: unit, i
 
diff --git a/binary/private/pgbinary_full.f90 b/binary/private/pgbinary_full.f90
index 7488b72f0..1102a9bf5 100644
--- a/binary/private/pgbinary_full.f90
+++ b/binary/private/pgbinary_full.f90
@@ -766,7 +766,6 @@ subroutine do_pgbinary_plots(b, must_write_files, ierr)
       logical, intent(in) :: must_write_files
       integer, intent(out) :: ierr
 
-      integer :: i
       integer(8) :: time0, time1, clock_rate
       logical :: pause
 
@@ -826,7 +825,6 @@ subroutine onScreen_Plots(b, must_write_files_in, ierr)
       integer :: i
       type (pgbinary_win_file_data), pointer :: p
       logical, parameter :: dbg = .false.
-      real(dp) :: dlgL, dlgTeff, dHR
       logical :: must_write_files, show_plot_now, save_plot_now
 
       include 'formats'
@@ -905,7 +903,7 @@ subroutine update_pgbinary_history_file(b, ierr)
       type (binary_info), pointer :: b
       integer, intent(out) :: ierr
 
-      integer :: iounit, i, n
+      integer :: iounit, n
       character (len = 1024) :: fname
       type (pgbinary_hist_node), pointer :: pg
 
@@ -950,7 +948,7 @@ subroutine read_pgbinary_data(b, ierr)
       integer, intent(out) :: ierr
 
       logical :: fexist
-      integer :: iounit, i, n
+      integer :: iounit, n
       character (len = 1024) :: fname
       type (pgbinary_hist_node), pointer :: pg
 
@@ -1009,7 +1007,7 @@ subroutine update_pgbinary_data(b, ierr)
       type (binary_info), pointer :: b
       integer, intent(out) :: ierr
 
-      integer :: num, i
+      integer :: num
       type (pgbinary_hist_node), pointer :: pg
 
       include 'formats'
diff --git a/binary/private/pgbinary_hist_track.f90 b/binary/private/pgbinary_hist_track.f90
index dd8438b41..c9311d0ef 100644
--- a/binary/private/pgbinary_hist_track.f90
+++ b/binary/private/pgbinary_hist_track.f90
@@ -649,11 +649,10 @@ end subroutine decorate
       integer, intent(out) :: ierr
       procedure(pgbinary_decorator_interface), pointer :: pgbinary_decorator
 
-      real :: xmin, xmax, ymin, ymax, xleft, xright, ybot, ytop
-      integer :: i, j, j_min, j_max
+      real :: xleft, xright, ybot, ytop
+      integer :: j, j_min, j_max
       real :: dx, dy, xplus, xminus, yplus, yminus
       real, dimension(:), pointer :: xvec, yvec
-      character (len = strlen) :: str
       integer :: k, n
       integer :: ix, iy
       integer :: file_data_len
diff --git a/binary/private/pgbinary_history_panels.f90 b/binary/private/pgbinary_history_panels.f90
index 09c31d072..39092f1a3 100644
--- a/binary/private/pgbinary_history_panels.f90
+++ b/binary/private/pgbinary_history_panels.f90
@@ -619,15 +619,14 @@ subroutine do_history_panels_plot(&
       real, pointer, dimension(:) :: yfile_xdata, other_yfile_xdata
       real, pointer, dimension(:) :: yfile_ydata, other_yfile_ydata
       integer :: i, ii, n, j, k, max_width, step_min, step_max, &
-         y_color, other_y_color, yaxis_id, other_yaxis_id, &
-         clr_sav, npts, yfile_data_len, other_yfile_data_len
-      real :: hist_xmin, xmin, xmax, dx, xleft, xright, &
+         y_color, other_y_color, &
+         yfile_data_len, other_yfile_data_len
+      real :: hist_xmin, xleft, xright, &
          ymargin, panel_dy, panel_ytop, panel_ybot, &
-         ymin, ymax, dy, ybot, ytop, xpt, ypt, errpt, &
-         other_ymin, other_ymax, other_ybot, other_ytop
+         ybot, ytop, xpt, ypt, errpt, &
+         other_ybot, other_ytop
       logical :: have_yaxis, have_other_yaxis
 
-      integer :: grid_min, grid_max
       integer :: ix, iounit, ishape, num_pts
 
       include 'formats'
diff --git a/binary/private/pgbinary_star.f90 b/binary/private/pgbinary_star.f90
index d554db2ad..375c7a590 100644
--- a/binary/private/pgbinary_star.f90
+++ b/binary/private/pgbinary_star.f90
@@ -160,7 +160,6 @@ subroutine do_star_plot(b, id, device_id, xleft, xright, &
       integer, intent(out) :: ierr
 
       character (len = strlen) :: title, status, mass
-      real, dimension(5) :: xs, ys
       logical, parameter :: star_subplot = .true.
 
       include 'formats'
diff --git a/binary/private/pgbinary_summary_history.f90 b/binary/private/pgbinary_summary_history.f90
index 3a50fac0e..8413b40ab 100644
--- a/binary/private/pgbinary_summary_history.f90
+++ b/binary/private/pgbinary_summary_history.f90
@@ -77,7 +77,7 @@ subroutine do_summary_history_plot(b, id, device_id, &
 
       character (len = strlen) :: yname
       real, pointer, dimension(:) :: xvec, yvec
-      real :: xmin, xmax, windy, ymin, ymax, xmargin, &
+      real :: xmin, xmax, windy, ymin, ymax, &
          legend_xmin, legend_xmax, legend_ymin, legend_ymax
       integer :: lw, lw_sav, num_lines, &
          npts, step_min, step_max
@@ -147,7 +147,7 @@ subroutine plot(ierr)
          use rates_def
          integer, intent(out) :: ierr
 
-         integer :: j, ii, jj, i, cnt, k, yaxis_id
+         integer :: j, cnt, k
          logical :: show(num_lines)
          logical, parameter :: dbg = .false.
          real :: ybot, yvec_min, yvec_max
diff --git a/binary/private/pgbinary_support.f90 b/binary/private/pgbinary_support.f90
index 3c0577f4b..35f2aa713 100644
--- a/binary/private/pgbinary_support.f90
+++ b/binary/private/pgbinary_support.f90
@@ -48,7 +48,7 @@ module pgbinary_support
    subroutine add_to_pgbinary_hist(b, pg_hist_new)
       type (binary_info), pointer :: b
       type (pgbinary_hist_node), pointer :: pg_hist_new
-      type (pgbinary_hist_node), pointer :: pg_hist => null(), next => null()
+      type (pgbinary_hist_node), pointer :: next => null()
       integer :: step
       step = pg_hist_new% step
       do
@@ -73,7 +73,7 @@ end subroutine add_to_pgbinary_hist
 
    subroutine pgbinary_clear(b)
       type (binary_info), pointer :: b
-      integer :: i, num
+      integer :: i
       type (pgbinary_win_file_data), pointer :: p
       type (pgbinary_hist_node), pointer :: pg_hist => null(), next => null()
       pg_hist => b% pg% pgbinary_hist
@@ -211,8 +211,8 @@ subroutine open_device(b, p, is_file, dev, id, ierr)
       integer, intent(out) :: id
       integer, intent(out) :: ierr
 
-      integer :: pgopen, system
-      character (len = strlen) :: dir, cmd
+      integer :: pgopen
+      character (len = strlen) :: dir
       logical :: white_on_black_flag
       real :: width, ratio
 
@@ -296,7 +296,7 @@ subroutine set_hist_points_steps(&
       integer, intent(in) :: step_min, step_max, numpts
       real, intent(out) :: vec(:)
       integer, intent(out) :: ierr
-      integer :: i, n
+      integer :: i
       type (pgbinary_hist_node), pointer :: pg
       ierr = 0
       if (numpts == 0) return
@@ -342,7 +342,7 @@ subroutine get_hist_points(&
       type (binary_info), pointer :: b
       integer, intent(in) :: step_min, step_max, numpts, index
       real, intent(out) :: vec(:)
-      integer :: i, n
+      integer :: i
       type (pgbinary_hist_node), pointer :: pg => null()
       include 'formats'
       if (numpts == 0) return
@@ -576,7 +576,7 @@ subroutine show_age_pgbinary(b)
       character (len = 32) :: age_str, units_str
       real(dp) :: age
       real :: ch
-      integer :: len, i, j, iE, n
+      integer :: len, i, j, iE
       if (.not. b% pg% pgbinary_show_age) return
       age = b% binary_age
       if (b% pg% pgbinary_show_age_in_seconds) then
diff --git a/binary/private/run_binary_support.f90 b/binary/private/run_binary_support.f90
index 87f6eceaa..d84f375d0 100644
--- a/binary/private/run_binary_support.f90
+++ b/binary/private/run_binary_support.f90
@@ -96,10 +96,9 @@ end subroutine extras_binary_controls
          result_reason, model_number, iounit, binary_startup, model, num_stars
       type (star_info), pointer :: s
       character (len = 256) :: restart_filename, photo_filename
-      integer(8) :: total, time0, time1, clock_rate
+      integer(8) :: time0, clock_rate
       logical :: doing_restart, first_try, continue_evolve_loop, &
           get_history_info, write_history, write_terminal, will_read_pgbinary_inlist
-      real(dp) :: sum_times, dt, timestep_factor
       type (binary_info), pointer :: b
       character (len = strlen) :: inlist_fname
 
diff --git a/binary/test_suite/jdot_gr_check/README.rst b/binary/test_suite/jdot_gr_check/README.rst
index 1f9d63ca7..926b8cbaf 100644
--- a/binary/test_suite/jdot_gr_check/README.rst
+++ b/binary/test_suite/jdot_gr_check/README.rst
@@ -9,7 +9,7 @@ analytical result of `Peters (1964) <https://ui.adsabs.harvard.edu/abs/1964PhRv.
 
 This test case has 1 part. Click to see a larger version of a plot.
 
-* Part 1 (``inlist_project``) loads a 0.5 Msun zero-age main sequence model and a 0.8 Msun point mass. The binary system is given an initial seperation of 2.0 Rsun, and is evolved until the onset of Roche Lobe overflow.  Along the way, the ``run_binary_extras.f90`` calculates the deviation from the analytical result of `Peters (1964) <https://ui.adsabs.harvard.edu/abs/1964PhRv..136.1224P>`_.
+* Part 1 (``inlist_project``) loads a 0.5 Msun zero-age main sequence model and a 0.8 Msun point mass. The binary system is given an initial separation of 2.0 Rsun, and is evolved until the onset of Roche Lobe overflow.  Along the way, the ``run_binary_extras.f90`` calculates the deviation from the analytical result of `Peters (1964) <https://ui.adsabs.harvard.edu/abs/1964PhRv..136.1224P>`_.
 
 .. code-block:: console
 
diff --git a/binary/test_suite/jdot_ml_check/README.rst b/binary/test_suite/jdot_ml_check/README.rst
index fb103e9a3..5886468db 100644
--- a/binary/test_suite/jdot_ml_check/README.rst
+++ b/binary/test_suite/jdot_ml_check/README.rst
@@ -11,7 +11,7 @@ follows the analytical result of `Tauris & van den Heuvel (2006)
 
 This test case has 1 part. Click to see a larger version of a plot.
 
-* Part 1 (``inlist_project``) loads a 1 Msun zero-age main sequence model and a 1.4 Msun point mass. The binary system is given an initial seperation of 2.75 Rsun, and is evolved for 14 billion years. Along the way, the ``run_binary_extras.f90`` calculates the deviation from the  analytical result of `Tauris & van den Heuvel (2006) <https://ui.adsabs.harvard.edu/abs/2006csxs.book..623T>`_:
+* Part 1 (``inlist_project``) loads a 1 Msun zero-age main sequence model and a 1.4 Msun point mass. The binary system is given an initial separation of 2.75 Rsun, and is evolved for 14 billion years. Along the way, the ``run_binary_extras.f90`` calculates the deviation from the  analytical result of `Tauris & van den Heuvel (2006) <https://ui.adsabs.harvard.edu/abs/2006csxs.book..623T>`_:
 
 .. code-block:: console
 
diff --git a/chem/preprocessor/chem_input_data.tar.xz b/chem/preprocessor/chem_input_data.tar.xz
index dfa6f8456..b784a5a56 100644
--- a/chem/preprocessor/chem_input_data.tar.xz
+++ b/chem/preprocessor/chem_input_data.tar.xz
@@ -1,3 +1,3 @@
 version https://git-lfs.github.com/spec/v1
-oid sha256:2d5663cb6e49036bb5450f8e3810cc87d330038338335801f1b10862305eb6bb
-size 365452
+oid sha256:bbcee04e2fd47f81c17830d65689b204fb9c13c9c12ed10d455fb4d0029339a9
+size 366964
diff --git a/chem/preprocessor/src/chem_support.f90 b/chem/preprocessor/src/chem_support.f90
index bb0ae2bb3..71b0d868b 100644
--- a/chem/preprocessor/src/chem_support.f90
+++ b/chem/preprocessor/src/chem_support.f90
@@ -2,7 +2,8 @@ module chem_support
    use const_def
    use const_lib
    use math_lib
-   
+   use utils_lib, only: mesa_error
+
    real(dp), parameter :: no_mass_table_entry = -999.d0
    character(len=256) :: data_dir, output_dir, masstable_filename, winvn_filename
    integer :: masstable_header_length
@@ -116,6 +117,7 @@ subroutine read_mass_table()
       do i = 1, nlines
          read(mass_unit,'(A)',iostat = ios) buf
          call parse_line_mass_unit(buf, Z, A, eval, mass, error,ierr)
+         if (ierr /= 0) cycle
          N = A-Z
          ! store mass and convert from keV to MeV
          mass_table(Z,N) = mass*keV_to_MeV
diff --git a/chem/public/chem_def.f90 b/chem/public/chem_def.f90
index 97bbe6d42..7955006ef 100644
--- a/chem/public/chem_def.f90
+++ b/chem/public/chem_def.f90
@@ -55,6 +55,8 @@ module chem_def
       !AGSS09   m,s          s, with some m
       !L09      m,s,r        r
       !A09_Prz               modified AGSS09 -  he, c, n, o, ne, mg, al, si, s, ar, fe.
+      !MB22     m,s          s, with some m, supplimented with agss09
+      !AAG21    m,s          s, with some m
 
       ! storage for Lodders (2003) isotopic percentages
       type isotopic_abundance_table_type
@@ -280,6 +282,8 @@ module chem_def
       real(dp), parameter :: AGSS09_zsol = 0.0134d0
       real(dp), parameter :: L09_zsol    = 0.0154d0
       real(dp), parameter :: A09_Prz_zsol = 0.014d0
+      real(dp), parameter :: MB22_photospheric_zsol = 0.0169d0
+      real(dp), parameter :: AAG21_photospheric_zsol = 0.0139d0
       
       real(dp), parameter :: AG89_ysol   = 0.2485d0
       real(dp), parameter :: GN93_ysol   = 0.2485d0
@@ -289,6 +293,8 @@ module chem_def
       real(dp), parameter :: AGSS09_ysol = 0.2485d0
       real(dp), parameter :: L09_ysol    = 0.2751d0
       real(dp), parameter :: A09_Prz_ysol = 0.276d0
+      real(dp), parameter :: MB22_photospheric_ysol = 0.2485
+      real(dp), parameter :: AAG21_photospheric_ysol = 0.2485
       
       character(len=iso_name_length) :: chem_element_main_iso_name(num_chem_elements)
       integer, parameter :: chem_element_name_len = iso_name_length
@@ -306,6 +312,8 @@ module chem_def
       integer, parameter :: AGSS09_zfracs = 6
       integer, parameter :: L09_zfracs = 7
       integer, parameter :: A09_Prz_zfracs = 8
+      integer, parameter :: MB22_photospheric_zfracs = 9
+      integer, parameter :: AAG21_photospheric_zfracs = 10
       
          
       real(dp) :: AG89_element_zfrac(num_chem_elements) ! fraction by mass of total Z
@@ -351,7 +359,12 @@ module chem_def
             ! eps_S  = 7.14
             ! eps_Ar = 6.50
             ! eps_Fe = 7.52   
-         
+
+      real(dp) :: MB22_photospheric_element_zfrac(num_chem_elements) ! fraction by mass of total Z
+          ! Ekaterina Magg et al. , A&A 661, A140 (2022) photospheric abundance.
+
+      real(dp) :: AAG21_photospheric_element_zfrac(num_chem_elements) ! fraction by mass of total Z
+          ! Asplund et al. A&A 653, A141 (2021) photospheric abundance.
 
       type (integer_dict), pointer :: chem_element_names_dict
 
@@ -550,6 +563,10 @@ subroutine init_chem_tables
          call init_AGSS09_data
          
          call init_A09_Przybilla_data
+
+         call init_MB22_photospheric_data
+
+         call init_AAG21_photospheric_data
          
          call init_L09_data
          
@@ -1718,7 +1735,219 @@ subroutine init_A09_Przybilla_data ! fraction by mass of total Z
          end do
          
       end subroutine init_A09_Przybilla_data
-      
+    
+    subroutine init_MB22_photospheric_data ! fraction by mass of total Z
+       ! Ekaterina Magg et al. , A&A 661, A140 (2022) photospheric abundance.
+       ! supplimented with Asplund, Grevesse, Sauval, and Scott 2009 abundances
+       integer :: i
+       real(dp) :: z_sum
+       include 'formats'
+       
+       MB22_photospheric_element_zfrac(:) = -20.0d0
+
+    ! first store log abundances from the paper
+         MB22_photospheric_element_zfrac(e_li) = 3.26d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_be) = 1.38d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_b ) = 2.70d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_c ) = 8.56d0
+         MB22_photospheric_element_zfrac(e_n ) = 7.98d0
+         MB22_photospheric_element_zfrac(e_o ) = 8.77d0
+         MB22_photospheric_element_zfrac(e_f ) = 4.40d0
+         MB22_photospheric_element_zfrac(e_ne) = 8.15d0
+         MB22_photospheric_element_zfrac(e_na) = 6.29d0
+         MB22_photospheric_element_zfrac(e_mg) = 7.55d0
+         MB22_photospheric_element_zfrac(e_al) = 6.43d0
+         MB22_photospheric_element_zfrac(e_si) = 7.59d0
+         MB22_photospheric_element_zfrac(e_p ) = 5.41d0
+         MB22_photospheric_element_zfrac(e_s ) = 7.16d0
+         MB22_photospheric_element_zfrac(e_cl) = 5.25d0
+         MB22_photospheric_element_zfrac(e_ar) = 6.50d0
+         MB22_photospheric_element_zfrac(e_k ) = 5.14d0
+         MB22_photospheric_element_zfrac(e_ca) = 6.37d0
+         MB22_photospheric_element_zfrac(e_sc) = 3.07d0
+         MB22_photospheric_element_zfrac(e_ti) = 4.94d0
+         MB22_photospheric_element_zfrac(e_v ) = 3.89d0
+         MB22_photospheric_element_zfrac(e_cr) = 5.74d0
+         MB22_photospheric_element_zfrac(e_mn) = 5.52d0
+         MB22_photospheric_element_zfrac(e_fe) = 7.50d0
+         MB22_photospheric_element_zfrac(e_co) = 4.95d0
+         MB22_photospheric_element_zfrac(e_ni) = 6.24d0
+         MB22_photospheric_element_zfrac(e_cu) = 4.19d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_zn) = 4.56d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_ga) = 3.04d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_ge) = 3.65d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_as) = 2.30d0 !meteor AGSS09
+         MB22_photospheric_element_zfrac(e_se) = 3.34d0 !meteor AGSS09
+         MB22_photospheric_element_zfrac(e_br) = 2.54d0 !meteor AGSS09
+         MB22_photospheric_element_zfrac(e_kr) = 3.25d0 !indirect AGSS09
+         MB22_photospheric_element_zfrac(e_rb) = 2.52d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_sr) = 2.87d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_y ) = 2.21d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_zr) = 2.58d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_nb) = 1.46d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_mo) = 1.88d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Ru) = 1.75d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Rh) = 0.91d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Pd) = 1.57d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Ag) = 0.94d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Cd) = 1.71d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_In) = 0.80d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Sn) = 2.04d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Sb) = 1.01d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Te) = 2.18d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_I ) = 1.55d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Xe) = 2.24d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Cs) = 1.08d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Ba) = 2.18d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_La) = 1.10d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Ce) = 1.58d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Pr) = 0.72d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Nd) = 1.42d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Sm) = 0.96d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Eu) = 0.52d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Gd) = 1.07d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Tb) = 0.30d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Dy) = 1.10d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Ho) = 0.48d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Er) = 0.92d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Tm) = 0.10d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Yb) = 0.84d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Lu) = 0.10d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Hf) = 0.85d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Ta) = -0.12d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_W ) = 0.85d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Re) = 0.26d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Os) = 1.40d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Ir) = 1.38d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Pt) = 1.62d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Au) = 0.92d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Hg) = 1.17d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Tl) = 0.90d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Pb) = 1.75d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Bi) = 0.65d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_Th) = 0.02d0 ! AGSS09
+         MB22_photospheric_element_zfrac(e_U) = -0.54d0 ! AGSS09
+
+         ! convert to fraction of Z by mass
+         z_sum = 0
+         do i = e_li, e_u
+            MB22_photospheric_element_zfrac(i) = &
+            exp10(MB22_photospheric_element_zfrac(i))*element_atomic_weight(i)
+            z_sum = z_sum + MB22_photospheric_element_zfrac(i)
+         end do
+         do i = e_li, e_u
+            MB22_photospheric_element_zfrac(i) = MB22_photospheric_element_zfrac(i) / z_sum
+         end do
+       
+      end subroutine init_MB22_photospheric_data
+
+
+
+
+    subroutine init_AAG21_photospheric_data ! fraction by mass of total Z
+       ! Asplund et al. A&A 653, A141 (2021) photospheric abundance.
+       ! Supplimented with meteoric values
+       integer :: i
+       real(dp) :: z_sum
+       include 'formats'
+       
+       AAG21_photospheric_element_zfrac(:) = -20.0d0
+
+    ! first store log abundances from the paper
+         AAG21_photospheric_element_zfrac(e_li) = 0.96 !± 0.013
+         AAG21_photospheric_element_zfrac(e_be) = 1.38 !± 0.09
+         AAG21_photospheric_element_zfrac(e_b ) = 2.70 !± 0.20
+         AAG21_photospheric_element_zfrac(e_c ) = 8.46 !± 0.04
+         AAG21_photospheric_element_zfrac(e_n ) = 7.83 !± 0.07
+         AAG21_photospheric_element_zfrac(e_o ) = 8.69 !± 0.04
+         AAG21_photospheric_element_zfrac(e_f ) = 4.40 !± 0.25
+         AAG21_photospheric_element_zfrac(e_ne) = 8.06 !± 0.05
+         AAG21_photospheric_element_zfrac(e_na) = 6.22 !± 0.03
+         AAG21_photospheric_element_zfrac(e_mg) = 7.55 !± 0.03
+         AAG21_photospheric_element_zfrac(e_al) = 6.43 !± 0.03
+         AAG21_photospheric_element_zfrac(e_si) = 7.51 !± 0.03
+         AAG21_photospheric_element_zfrac(e_p ) = 5.41 !± 0.03
+         AAG21_photospheric_element_zfrac(e_s ) = 7.12 !± 0.03
+         AAG21_photospheric_element_zfrac(e_cl) = 5.31 !± 0.20
+         AAG21_photospheric_element_zfrac(e_ar) = 6.38 !± 0.10
+         AAG21_photospheric_element_zfrac(e_k ) = 5.07 !± 0.03
+         AAG21_photospheric_element_zfrac(e_ca) = 6.30 !± 0.03
+         AAG21_photospheric_element_zfrac(e_sc) = 3.14 !± 0.04
+         AAG21_photospheric_element_zfrac(e_ti) = 4.97 !± 0.05
+         AAG21_photospheric_element_zfrac(e_v ) = 3.90 !± 0.08
+         AAG21_photospheric_element_zfrac(e_cr) = 5.62 !± 0.04
+         AAG21_photospheric_element_zfrac(e_mn) = 5.42 !± 0.06
+         AAG21_photospheric_element_zfrac(e_fe) = 7.46 !± 0.04
+         AAG21_photospheric_element_zfrac(e_co) = 4.94 !± 0.05
+         AAG21_photospheric_element_zfrac(e_ni) = 6.20 !± 0.04
+         AAG21_photospheric_element_zfrac(e_cu) = 4.18 !± 0.05
+         AAG21_photospheric_element_zfrac(e_zn) = 4.56 !± 0.05
+         AAG21_photospheric_element_zfrac(e_ga) = 3.02 !± 0.05
+         AAG21_photospheric_element_zfrac(e_ge) = 3.62 !± 0.10
+         AAG21_photospheric_element_zfrac(e_as) = 2.30 !± 0.04  meteorites
+         AAG21_photospheric_element_zfrac(e_se) = 3.34 !± 0.03  meteorites
+         AAG21_photospheric_element_zfrac(e_br) = 2.54 !± 0.06  meteorites
+         AAG21_photospheric_element_zfrac(e_kr) = 3.12 !± 0.10
+         AAG21_photospheric_element_zfrac(e_rb) = 2.32 !± 0.08
+         AAG21_photospheric_element_zfrac(e_sr) = 2.83 !± 0.06
+         AAG21_photospheric_element_zfrac(e_y ) = 2.21 !± 0.05
+         AAG21_photospheric_element_zfrac(e_zr) = 2.59 !± 0.04
+         AAG21_photospheric_element_zfrac(e_nb) = 1.47 !± 0.06
+         AAG21_photospheric_element_zfrac(e_mo) = 1.88 !± 0.09
+         AAG21_photospheric_element_zfrac(e_Ru) = 1.75 !± 0.08
+         AAG21_photospheric_element_zfrac(e_Rh) = 0.78 !± 0.11
+         AAG21_photospheric_element_zfrac(e_Pd) = 1.57 !± 0.10
+         AAG21_photospheric_element_zfrac(e_Ag) = 0.96 !± 0.10
+         AAG21_photospheric_element_zfrac(e_Cd) = 1.71 !± 0.03 meteorites
+         AAG21_photospheric_element_zfrac(e_In) = 0.80 !± 0.20
+         AAG21_photospheric_element_zfrac(e_Sn) = 2.02 !± 0.10
+         AAG21_photospheric_element_zfrac(e_Sb) = 1.01 !± 0.06 meteorites
+         AAG21_photospheric_element_zfrac(e_Te) = 2.18 !± 0.03 meteorites
+         AAG21_photospheric_element_zfrac(e_I ) = 1.55 !± 0.08 meteorites
+         AAG21_photospheric_element_zfrac(e_Xe) = 2.22 !± 0.05
+         AAG21_photospheric_element_zfrac(e_Cs) = 1.08 !± 0.03 meteorites
+         AAG21_photospheric_element_zfrac(e_Ba) = 2.27 !± 0.05
+         AAG21_photospheric_element_zfrac(e_La) = 1.11 !± 0.04
+         AAG21_photospheric_element_zfrac(e_Ce) = 1.58 !± 0.04
+         AAG21_photospheric_element_zfrac(e_Pr) = 0.75 !± 0.05
+         AAG21_photospheric_element_zfrac(e_Nd) = 1.42 !± 0.04
+         AAG21_photospheric_element_zfrac(e_Sm) = 0.95 !± 0.04
+         AAG21_photospheric_element_zfrac(e_Eu) = 0.52 !± 0.04
+         AAG21_photospheric_element_zfrac(e_Gd) = 1.08 !± 0.04
+         AAG21_photospheric_element_zfrac(e_Tb) = 0.31 !± 0.10
+         AAG21_photospheric_element_zfrac(e_Dy) = 1.10 !± 0.04
+         AAG21_photospheric_element_zfrac(e_Ho) = 0.48 !± 0.11
+         AAG21_photospheric_element_zfrac(e_Er) = 0.93 !± 0.05
+         AAG21_photospheric_element_zfrac(e_Tm) = 0.11 !± 0.04
+         AAG21_photospheric_element_zfrac(e_Yb) = 0.85 !± 0.11
+         AAG21_photospheric_element_zfrac(e_Lu) = 0.10 !± 0.09
+         AAG21_photospheric_element_zfrac(e_Hf) = 0.85 !± 0.05
+         AAG21_photospheric_element_zfrac(e_Ta) = -0.15 !± 0.04 meteorites
+         AAG21_photospheric_element_zfrac(e_W ) = 0.79 !± 0.11
+         AAG21_photospheric_element_zfrac(e_Re) = 0.26 !± 0.02 meteorites
+         AAG21_photospheric_element_zfrac(e_Os) = 1.35 !± 0.12
+         AAG21_photospheric_element_zfrac(e_Ir) = 1.32 !± 0.02 meteorites
+         AAG21_photospheric_element_zfrac(e_Pt) = 1.61 !± 0.02 meteorites
+         AAG21_photospheric_element_zfrac(e_Au) = 0.91 !± 0.12
+         AAG21_photospheric_element_zfrac(e_Hg) = 1.17 !± 0.18 meteorites
+         AAG21_photospheric_element_zfrac(e_Tl) = 0.92 !± 0.17
+         AAG21_photospheric_element_zfrac(e_Pb) = 1.95 !± 0.08
+         AAG21_photospheric_element_zfrac(e_Bi) = 0.65 !± 0.04 meteorites
+         AAG21_photospheric_element_zfrac(e_Th) = 0.03 !± 0.10
+         AAG21_photospheric_element_zfrac(e_U) = -0.54 !± 0.03 meteorites
+
+         ! convert to fraction of Z by mass
+         z_sum = 0
+         do i = e_li, e_u
+            AAG21_photospheric_element_zfrac(i) = &
+            exp10(AAG21_photospheric_element_zfrac(i))*element_atomic_weight(i)
+            z_sum = z_sum + AAG21_photospheric_element_zfrac(i)
+         end do
+         do i = e_li, e_u
+            AAG21_photospheric_element_zfrac(i) = AAG21_photospheric_element_zfrac(i) / z_sum
+         end do
+       
+      end subroutine init_AAG21_photospheric_data
       
       subroutine init_L09_data ! fraction by mass of total Z
          ! Lodders 09
diff --git a/chem/public/chem_lib.f90 b/chem/public/chem_lib.f90
index ba9e32c68..0dfcae6ef 100644
--- a/chem/public/chem_lib.f90
+++ b/chem/public/chem_lib.f90
@@ -402,7 +402,6 @@ subroutine generate_nuclide_names(Z, A, names)
          integer, dimension(:), intent(in) :: Z, A
          character(len=iso_name_length), dimension(size(Z)), intent(out) :: names
          integer :: i, ierr, count_isomer
-         character(len=80) :: message
          logical :: use_al26_isomers
 
          count_isomer = 0
@@ -439,7 +438,6 @@ subroutine generate_long_nuclide_names(Z, A, long_names)
          integer, dimension(:), intent(in) :: Z, A
          character(len=long_name_length), dimension(size(Z)), intent(out) :: long_names
          integer :: i, ierr, count_isomer
-         character(len=80) :: message
          logical :: use_al26_isomers
 
          count_isomer = 0
@@ -614,7 +612,7 @@ subroutine get_stable_mass_frac(chem_id,num_species,abun_in,abun_out)
          integer,intent(in) :: num_species
          real(dp),dimension(:),intent(in) :: abun_in
          real(dp),dimension(:),intent(out) :: abun_out
-         integer :: i,j,a,z,n
+         integer :: i,j,a,z
          logical :: found
 
          abun_out(1:solsiz)=0.d0
@@ -705,7 +703,13 @@ real(dp) function chem_M_div_h(x,z,zfrac_choice) ! Returns [M/H]
                ysolar = L09_ysol
             case(A09_Prz_zfracs)
                zsolar = A09_Prz_zsol
-               ysolar = A09_Prz_ysol 
+               ysolar = A09_Prz_ysol
+            case(MB22_photospheric_zfracs)
+               zsolar = MB22_photospheric_zsol
+               ysolar = MB22_photospheric_ysol
+            case(AAG21_photospheric_zfracs)
+               zsolar = AAG21_photospheric_zsol
+               ysolar = AAG21_photospheric_ysol
             case(Custom_zfracs)
                call mesa_error(__FILE__,__LINE__,"[M/H] not supported with custom zfracs.")
             case default
diff --git a/chem/test/src/test_chem.f b/chem/test/src/test_chem.f
index 27dcd3b7a..3d2552c39 100644
--- a/chem/test/src/test_chem.f
+++ b/chem/test/src/test_chem.f
@@ -57,7 +57,7 @@ end subroutine do_tests
 
 
       subroutine do_test_chem
-         real(dp) :: c, n, o, cno, w
+         real(dp) :: c, n, o, cno
          integer :: ic12, in14, io16
          include 'formats'
          
@@ -184,7 +184,7 @@ subroutine do_test_Qtotal
       end subroutine do_test_Qtotal
       
       subroutine do_test_lodders
-            integer :: ierr, i
+            integer :: i
             real(dp) :: percent
 
             write (*,*)
diff --git a/colors/private/mod_colors.f90 b/colors/private/mod_colors.f90
index cfa75d607..c97d9a954 100644
--- a/colors/private/mod_colors.f90
+++ b/colors/private/mod_colors.f90
@@ -318,7 +318,6 @@ end subroutine Read_One_Colors_Data
       
       
       subroutine Read_Colors_Data(fname, thead, col_names, n_colors, ierr)
-         use const_def, only: mesa_data_dir
          integer, intent(out) :: ierr ! 0 means ok
          type (lgt_list), pointer,intent(inout) :: thead
          character (len=*),intent(in) :: fname
@@ -535,7 +534,6 @@ subroutine Eval_Colors(log_Teff,log_g, M_div_h_in, results, thead, n_colors, ier
          type (lgt_list), pointer,intent(inout) :: thead
          
          !real(dp), parameter :: Zsol = 0.02d0, colors_bol_sun = 4.746d0
-         real(dp) :: colors_bol
          
          real(dp) :: lgg, lgz, lgt, alfa, beta
          real(dp),dimension(max_num_bcs_per_file) :: results1, results2
diff --git a/colors/public/colors_lib.f90 b/colors/public/colors_lib.f90
index 85d42e57e..2e6151be7 100644
--- a/colors/public/colors_lib.f90
+++ b/colors/public/colors_lib.f90
@@ -193,7 +193,7 @@ integer function get_bc_id_by_name(name,ierr)
          ! input
          character(len=*), intent(in) :: name
          integer, intent(inout) :: ierr
-         integer :: i,j,k,n_colors
+         integer :: i,j,k
          
          get_bc_id_by_name=-1
          ierr=0
@@ -222,7 +222,7 @@ character(len=strlen) function get_bc_name_by_id(id,ierr)
          ! input
          integer, intent(in) :: id
          integer, intent(inout) :: ierr
-         integer :: i,j,k,n_colors
+         integer :: i,j,k
          
          get_bc_name_by_id=''
          ierr=0
diff --git a/colors/test/src/test_colors.f90 b/colors/test/src/test_colors.f90
index 3ceea5a7b..835c0d586 100644
--- a/colors/test/src/test_colors.f90
+++ b/colors/test/src/test_colors.f90
@@ -16,7 +16,7 @@ subroutine do_test_colors
          use const_lib
 
          character (len=256) :: my_mesa_dir
-         integer :: info,ierr
+         integer :: info
          
          logical, parameter :: do_one = .true.
          integer, parameter :: n_colors=11
@@ -57,14 +57,13 @@ subroutine do_one_colors
          real(dp) :: boloMag
          real(dp), dimension(num_results) :: results
          real(dp) ::log_g, x
-         integer :: info, i,total_num_colors
+         integer :: info, i
          character (len=8) :: vname
          character(len=strlen),dimension(num_results):: colors_name
          logical, parameter :: doing_solar = .true.
          real(dp), dimension(num_results) :: solar_expected_results = (/ &
          4.75d0, -0.11510d0, -0.14211d0, -0.61768d0, -0.36199d0, -0.68894d0, -1.46926d0, -0.32695d0, -0.78032d0, -0.39024d0, &
          0.05223d0, -0.10512d0,  -0.33801d0, -0.44312d0, -0.44123d0, -0.43080d0 /) 
-         character(len=256),dimension(20) :: names
 
          
          ! solar values
diff --git a/const/public/const_def.f90 b/const/public/const_def.f90
index 3d12266a4..9404ef634 100644
--- a/const/public/const_def.f90
+++ b/const/public/const_def.f90
@@ -24,205 +24,197 @@
 !
 ! ***********************************************************************
 
-      module const_def
-      implicit none
+module const_def
+   implicit none
 
+   ! real number precision options: single, double, quad
+   integer, parameter :: sp = selected_real_kind(p=5)
+   integer, parameter :: dp = selected_real_kind(p=15)
+   integer, parameter :: qp = selected_real_kind(p=30)
 
-      ! real number precision options: single, double, quad
-      integer, parameter :: sp = selected_real_kind(p=5)
-      integer, parameter :: dp = selected_real_kind(p=15)
-      integer, parameter :: qp = selected_real_kind(p=30)
+   ! integer precision options
+   integer, parameter :: i4 = selected_int_kind(9)
+   integer, parameter :: i8 = selected_int_kind(14)
 
-      ! integer precision options
-      integer, parameter :: i4 = selected_int_kind(9)
-      integer, parameter :: i8 = selected_int_kind(14)
-
-
-      integer, parameter :: strlen = 256 ! for character (len=strlen)
-      
-      integer, parameter :: max_extra_inlists = 5  ! number of inlists an inlist can depend on
+   integer, parameter :: strlen = 256 ! for character (len=strlen)
 
+   integer, parameter :: max_extra_inlists = 5  ! number of inlists an inlist can depend on
 
 !
 ! mathematical and physical constants (in cgs)
 !
 
 ! math constants
-      real(dp), parameter :: pi = 3.1415926535897932384626433832795028841971693993751d0
-      real(dp), parameter :: pi2 = pi * pi
-      real(dp), parameter :: pi4 = 4*pi
-      real(dp), parameter :: eulercon = 0.577215664901532861d0
-      real(dp), parameter :: eulernum = 2.71828182845904523536028747135266249d0
-      real(dp), parameter :: ln2 = 6.9314718055994529D-01 ! = log(2d0)
-      real(dp), parameter :: ln3 = 1.0986122886681096D+00 ! = log(3d0)
-      real(dp), parameter :: lnPi = 1.14472988584940017414343_dp ! = log(pi)
-      real(dp), parameter :: ln10 = 2.3025850929940455_dp ! = log(10d0)
-      real(dp), parameter :: iln10 = 0.43429448190325187_dp ! = 1d0/log(10d0)
-      real(dp), parameter :: a2rad = pi/180.0d0 ! angle to radians
-      real(dp), parameter :: rad2a = 180.0d0/pi ! radians to angle
-      real(dp), parameter :: one_third = 1d0/3d0
-      real(dp), parameter :: two_thirds = 2d0/3d0
-      real(dp), parameter :: four_thirds = 4d0/3d0
-      real(dp), parameter :: five_thirds = 5d0/3d0
-      real(dp), parameter :: one_sixth = 1d0/6d0
-      real(dp), parameter :: four_thirds_pi = four_thirds*pi
-      real(dp), parameter :: ln4pi3 = 1.4324119583011810d0 ! = log(4*pi/3)
-      real(dp), parameter :: two_13 = 1.2599210498948730d0 ! = pow(2d0,1d0/3d0)
-      real(dp), parameter :: four_13 = 1.5874010519681994d0 ! = pow(4d0,1d0/3d0)
-      real(dp), parameter :: sqrt2 = 1.414213562373095d0 ! = sqrt(2)
-      real(dp), parameter :: sqrt_2_div_3 = 0.816496580927726d0 ! = sqrt(2/3)
+   real(dp), parameter :: pi = 3.1415926535897932384626433832795028841971693993751d0
+   real(dp), parameter :: pi2 = pi*pi
+   real(dp), parameter :: pi4 = 4*pi
+   real(dp), parameter :: eulercon = 0.577215664901532861d0
+   real(dp), parameter :: eulernum = 2.71828182845904523536028747135266249d0
+   real(dp), parameter :: ln2 = 6.9314718055994529D-01 ! = log(2d0)
+   real(dp), parameter :: ln3 = 1.0986122886681096D+00 ! = log(3d0)
+   real(dp), parameter :: lnPi = 1.14472988584940017414343_dp ! = log(pi)
+   real(dp), parameter :: ln10 = 2.3025850929940455_dp ! = log(10d0)
+   real(dp), parameter :: iln10 = 0.43429448190325187_dp ! = 1d0/log(10d0)
+   real(dp), parameter :: a2rad = pi/180.0d0 ! angle to radians
+   real(dp), parameter :: rad2a = 180.0d0/pi ! radians to angle
+   real(dp), parameter :: one_third = 1d0/3d0
+   real(dp), parameter :: two_thirds = 2d0/3d0
+   real(dp), parameter :: four_thirds = 4d0/3d0
+   real(dp), parameter :: five_thirds = 5d0/3d0
+   real(dp), parameter :: one_sixth = 1d0/6d0
+   real(dp), parameter :: four_thirds_pi = four_thirds*pi
+   real(dp), parameter :: ln4pi3 = 1.4324119583011810d0 ! = log(4*pi/3)
+   real(dp), parameter :: two_13 = 1.2599210498948730d0 ! = pow(2d0,1d0/3d0)
+   real(dp), parameter :: four_13 = 1.5874010519681994d0 ! = pow(4d0,1d0/3d0)
+   real(dp), parameter :: sqrt2 = 1.414213562373095d0 ! = sqrt(2)
+   real(dp), parameter :: sqrt_2_div_3 = 0.816496580927726d0 ! = sqrt(2/3)
 
 ! exact physical constants
 
-      ! CODATA 2018
-      real(dp), parameter :: avo = 6.02214076d23 ! Avogadro constant (mole^-1)
-      real(dp), parameter :: amu = 1d0 / avo ! atomic mass unit (g)
-      real(dp), parameter :: clight = 2.99792458d10 ! speed of light in vacuum (cm s^-1)
-      real(dp), parameter :: qe = (clight/10d0) * 1.602176634d-19 ! elementary charge (esu == (g cm^3 s^-2)^(1/2))
-      real(dp), parameter :: kerg = 1.380649d-16
-      real(dp), parameter :: boltzm = kerg ! Boltzmann constant (erg K^-1)
-      real(dp), parameter :: planck_h = 6.62607015d-27 ! Planck constant (erg s)
-      real(dp), parameter :: hbar = planck_h / (2*pi)
-      real(dp), parameter :: cgas = boltzm*avo ! ideal gas constant (erg K^-1)
-      real(dp), parameter :: ev2erg = 1.602176634d-12 ! electron volt (erg)
-      real(dp), parameter :: mev_to_ergs = 1d6*ev2erg
-      real(dp), parameter :: mev_amu = mev_to_ergs/amu
-      real(dp), parameter :: mev2gr = 1d6*ev2erg/(clight*clight) ! MeV to grams
-      real(dp), parameter :: Qconv = mev_to_ergs*avo
-      real(dp), parameter :: kev = kerg / ev2erg ! converts temp to ev (ev K^-1)
-      real(dp), parameter :: boltz_sigma = (pi*pi * boltzm*boltzm*boltzm*boltzm) / (60 * hbar*hbar*hbar * clight*clight) ! Stefan-Boltzmann constant (erg cm^-2 K^-4 s^-1)
-      real(dp), parameter :: crad = boltz_sigma*4/clight ! radiation density constant, AKA "a" (erg cm^-3 K^-4); Prad = crad * T^4 / 3
-
-      ! IAU
-      real(dp), parameter :: au = 1.49597870700D13 ! (cm) - exact value defined by IAU 2009, 2012
-      real(dp), parameter :: pc = (3.600D3 * rad2a) * au ! (cm) parsec, by definition
-      real(dp), parameter :: dayyer = 365.25d0 ! days per (Julian) year
-      real(dp), parameter :: secday = 24*60*60  ! seconds in a day
-      real(dp), parameter :: secyer = secday*dayyer ! seconds per year
-      real(dp), parameter :: ly = clight*secyer ! light year (cm)
+   ! CODATA 2018
+   real(dp), parameter :: avo = 6.02214076d23 ! Avogadro constant (mole^-1)
+   real(dp), parameter :: amu = 1d0/avo ! atomic mass unit (g)
+   real(dp), parameter :: clight = 2.99792458d10 ! speed of light in vacuum (cm s^-1)
+   real(dp), parameter :: qe = (clight/10d0)*1.602176634d-19 ! elementary charge (esu == (g cm^3 s^-2)^(1/2))
+   real(dp), parameter :: kerg = 1.380649d-16
+   real(dp), parameter :: boltzm = kerg ! Boltzmann constant (erg K^-1)
+   real(dp), parameter :: planck_h = 6.62607015d-27 ! Planck constant (erg s)
+   real(dp), parameter :: hbar = planck_h/(2*pi)
+   real(dp), parameter :: cgas = boltzm*avo ! ideal gas constant (erg K^-1)
+   real(dp), parameter :: ev2erg = 1.602176634d-12 ! electron volt (erg)
+   real(dp), parameter :: mev_to_ergs = 1d6*ev2erg
+   real(dp), parameter :: mev_amu = mev_to_ergs/amu
+   real(dp), parameter :: mev2gr = 1d6*ev2erg/(clight*clight) ! MeV to grams
+   real(dp), parameter :: Qconv = mev_to_ergs*avo
+   real(dp), parameter :: kev = kerg/ev2erg ! converts temp to ev (ev K^-1)
+   real(dp), parameter :: boltz_sigma = (pi*pi*boltzm*boltzm*boltzm*boltzm)/(60*hbar*hbar*hbar*clight*clight) ! Stefan-Boltzmann constant (erg cm^-2 K^-4 s^-1)
+   real(dp), parameter :: crad = boltz_sigma*4/clight ! radiation density constant, AKA "a" (erg cm^-3 K^-4); Prad = crad * T^4 / 3
+
+   ! IAU
+   real(dp), parameter :: au = 1.49597870700D13 ! (cm) - exact value defined by IAU 2009, 2012
+   real(dp), parameter :: pc = (3.600D3*rad2a)*au ! (cm) parsec, by definition
+   real(dp), parameter :: dayyer = 365.25d0 ! days per (Julian) year
+   real(dp), parameter :: secday = 24*60*60  ! seconds in a day
+   real(dp), parameter :: secyer = secday*dayyer ! seconds per year
+   real(dp), parameter :: ly = clight*secyer ! light year (cm)
 
 ! inexact but very well measured physical constants
 
-      real(dp), parameter :: mn = 1.67492749804d-24 ! neutron mass (g)
-      real(dp), parameter :: mp = 1.67262192369d-24 ! proton mass (g)
-      real(dp), parameter :: me = 9.1093837015d-28  ! electron mass (g)
+   real(dp), parameter :: mn = 1.67492749804d-24 ! neutron mass (g)
+   real(dp), parameter :: mp = 1.67262192369d-24 ! proton mass (g)
+   real(dp), parameter :: me = 9.1093837015d-28  ! electron mass (g)
 
-      real(dp), parameter :: rbohr = 5.29177210903d-9 ! Bohr radius (cm)
-      real(dp), parameter :: fine = 7.2973525693d-3   ! fine-structure constant
-      real(dp), parameter :: hion = 13.605693122994d0 ! Rydberg constant (eV)
+   real(dp), parameter :: rbohr = 5.29177210903d-9 ! Bohr radius (cm)
+   real(dp), parameter :: fine = 7.2973525693d-3   ! fine-structure constant
+   real(dp), parameter :: hion = 13.605693122994d0 ! Rydberg constant (eV)
 
-      real(dp), parameter :: sige = 6.6524587321d-25 ! Thomson cross section (cm^2)
+   real(dp), parameter :: sige = 6.6524587321d-25 ! Thomson cross section (cm^2)
 
-      real(dp), parameter :: weinberg_theta  = 0.22290d0 ! sin**2(theta_weinberg)
-      real(dp), parameter :: num_neu_fam = 3.0d0 ! number of neutrino flavors = 3.02 plus/minus 0.005 (1998)
+   real(dp), parameter :: weinberg_theta = 0.22290d0 ! sin**2(theta_weinberg)
+   real(dp), parameter :: num_neu_fam = 3.0d0 ! number of neutrino flavors = 3.02 plus/minus 0.005 (1998)
 
 ! the following quantities are not exact
 
-      real(dp), parameter :: standard_cgrav = 6.67430d-8 ! gravitational constant (g^-1 cm^3 s^-2)
+   real(dp), parameter :: standard_cgrav = 6.67430d-8 ! gravitational constant (g^-1 cm^3 s^-2)
 
-      ! IAU 2015 Resolution B3
-      ! standard gravitational parameters = G*M, units cm^3 s^-2
-      real(dp), parameter :: mu_sun = 1.3271244d26
-      real(dp), parameter :: mu_earth = 3.986004d20
-      real(dp), parameter :: mu_jupiter = 1.2668653d23
+   ! IAU 2015 Resolution B3
+   ! standard gravitational parameters = G*M, units cm^3 s^-2
+   real(dp), parameter :: mu_sun = 1.3271244d26
+   real(dp), parameter :: mu_earth = 3.986004d20
+   real(dp), parameter :: mu_jupiter = 1.2668653d23
 
    ! astronomical constants
-      real(dp), parameter :: agesun = 4.57d9  ! solar age (years) from Bahcall et al, ApJ 618 (2005) 1049-1056.
-      real(dp), parameter :: Msun = mu_sun / standard_cgrav ! solar mass (g); gravitational mass, not baryonic
-      real(dp), parameter :: Rsun = 6.957d10 ! solar radius (cm), IAU 2015 Resolution B3
-      real(dp), parameter :: Lsun = 3.828d33 ! solar luminosity (erg s^-1), IAU 2015 Resolution B3
-      real(dp), parameter :: Teffsun = 5772.0d0! solar effective temperature (K), IAU 2015 Resolution B3
-      real(dp), parameter :: loggsun = 4.4380676273031332_dp ! log10(mu_sun/(Rsun*Rsun)), can't call log10 because we don't have math_lib at this point
-      real(dp), parameter :: mbolsun = 4.74d0  ! Bolometric magnitude of the Sun, IAU 2015 Resolution B2
-
-      real(dp), parameter :: m_earth = mu_earth/standard_cgrav! earth mass (g)
-      real(dp), parameter :: r_earth = 6.3781d8 ! earth equatorial radius (cm)
-      real(dp), parameter :: r_earth_polar = 6.3568d8 ! earth polar radius (cm)
-
-      real(dp), parameter :: m_jupiter = mu_jupiter/standard_cgrav ! jupiter mass (g)
-      real(dp), parameter :: r_jupiter = 7.1492d9 ! jupiter equatorial radius (cm)
-      real(dp), parameter :: r_jupiter_polar = 6.6854d9 ! jupiter polar radius (cm)
-      real(dp), parameter :: semimajor_axis_jupiter = 7.7857d13 ! jupiter semimajor axis (cm)
-
-
-      ! many routines allow either a value, a log value, or both as args
-      ! omitted args are indicated by passing 'arg_not_provided'
-
-      real(dp), parameter :: arg_not_provided = -9d99
-      real(dp), parameter :: missing_value = arg_not_provided
-
-      character (len=strlen) :: mesa_dir
-      character (len=strlen) :: mesa_data_dir ! = trim(mesa_dir) // '/data'
-      character (len=strlen) :: mesa_caches_dir
-      character (len=strlen) :: mesa_temp_caches_dir !Temp storage must be local to run
-
-      logical :: use_mesa_temp_cache ! If false then dont use mesa_temp_caches_dir
-
-      ! mixing types
-      ! NOTE: some packages may depend on the order
-      integer, parameter :: crystallized = -1
-      integer, parameter :: no_mixing = 0
-      integer, parameter :: convective_mixing = 1
-      integer, parameter :: overshoot_mixing = 2
-      integer, parameter :: semiconvective_mixing = 3
-      integer, parameter :: thermohaline_mixing = 4
-      integer, parameter :: rotation_mixing = 5
-      integer, parameter :: rayleigh_taylor_mixing = 6
-      integer, parameter :: minimum_mixing = 7
-      integer, parameter :: anonymous_mixing = 8  ! AKA "WTF_mixing"
-      integer, parameter :: leftover_convective_mixing = 9  ! for regions with non-zero conv_vel that are not unstable to convection
-                                                            ! used for time dependent convection
-      integer, parameter :: phase_separation_mixing = 10
-      
-      integer, parameter :: number_of_mixing_types =  phase_separation_mixing+1
-
-
-      contains
-
-      subroutine do_const_init(mesa_dir_init, ierr)
-         character (len=*), intent(in) :: mesa_dir_init
-         integer, intent(out) :: ierr
-
-         integer :: i, iounit
-         character (len=40) :: version_number
-         character (len=strlen) :: filename, temp_caches_disable
-
-         ierr = 0
-
-         call get_environment_variable("MESA_CACHES_DIR", mesa_caches_dir)
-         !write(*,*) 'MESA_CACHES_DIR "' // trim(mesa_caches_dir) // '"'
-
-         mesa_dir = mesa_dir_init
-         if (len_trim(mesa_dir) == 0) then
-            call get_environment_variable("MESA_DIR", mesa_dir)
-         end if
-
-         if (len_trim(mesa_dir) > 0) then
-            mesa_data_dir = trim(mesa_dir) // '/data'
-         else
-            write(*,*) 'ERROR: you must provide the path to your mesa directory,'
-            write(*,*) 'either in your inlist or by setting the MESA_DIR environment variable.'
-            ierr = -1
-            return
-         end if
-
-         !write(*,*) 'mesa_data_dir ' // trim(mesa_data_dir)
-
-         call get_environment_variable("MESA_TEMP_CACHES_DIR", mesa_temp_caches_dir)
-
-         if (len_trim(mesa_temp_caches_dir) == 0) then
-            mesa_temp_caches_dir = './.mesa_temp_cache'
-         end if
-
-         !Opt out for temp caches
-         use_mesa_temp_cache=.true.
-         call get_environment_variable("MESA_TEMP_CACHES_DISABLE", temp_caches_disable)
-
-         if (len_trim(temp_caches_disable) > 0) then
-            use_mesa_temp_cache = .false.
-         end if
-
-      end subroutine do_const_init
-
-
-      end module const_def
+   real(dp), parameter :: agesun = 4.57d9  ! solar age (years) from Bahcall et al, ApJ 618 (2005) 1049-1056.
+   real(dp), parameter :: Msun = mu_sun/standard_cgrav ! solar mass (g); gravitational mass, not baryonic
+   real(dp), parameter :: Rsun = 6.957d10 ! solar radius (cm), IAU 2015 Resolution B3
+   real(dp), parameter :: Lsun = 3.828d33 ! solar luminosity (erg s^-1), IAU 2015 Resolution B3
+   real(dp), parameter :: Teffsun = 5772.0d0! solar effective temperature (K), IAU 2015 Resolution B3
+   real(dp), parameter :: loggsun = 4.4380676273031332_dp ! log10(mu_sun/(Rsun*Rsun)), can't call log10 because we don't have math_lib at this point
+   real(dp), parameter :: mbolsun = 4.74d0  ! Bolometric magnitude of the Sun, IAU 2015 Resolution B2
+
+   real(dp), parameter :: m_earth = mu_earth/standard_cgrav! earth mass (g)
+   real(dp), parameter :: r_earth = 6.3781d8 ! earth equatorial radius (cm)
+   real(dp), parameter :: r_earth_polar = 6.3568d8 ! earth polar radius (cm)
+
+   real(dp), parameter :: m_jupiter = mu_jupiter/standard_cgrav ! jupiter mass (g)
+   real(dp), parameter :: r_jupiter = 7.1492d9 ! jupiter equatorial radius (cm)
+   real(dp), parameter :: r_jupiter_polar = 6.6854d9 ! jupiter polar radius (cm)
+   real(dp), parameter :: semimajor_axis_jupiter = 7.7857d13 ! jupiter semimajor axis (cm)
+
+   ! many routines allow either a value, a log value, or both as args
+   ! omitted args are indicated by passing 'arg_not_provided'
+
+   real(dp), parameter :: arg_not_provided = -9d99
+   real(dp), parameter :: missing_value = arg_not_provided
+
+   character(len=strlen) :: mesa_dir
+   character(len=strlen) :: mesa_data_dir ! = trim(mesa_dir) // '/data'
+   character(len=strlen) :: mesa_caches_dir
+   character(len=strlen) :: mesa_temp_caches_dir !Temp storage must be local to run
+
+   logical :: use_mesa_temp_cache ! If false then dont use mesa_temp_caches_dir
+
+   ! mixing types
+   ! NOTE: some packages may depend on the order
+   integer, parameter :: crystallized = -1
+   integer, parameter :: no_mixing = 0
+   integer, parameter :: convective_mixing = 1
+   integer, parameter :: overshoot_mixing = 2
+   integer, parameter :: semiconvective_mixing = 3
+   integer, parameter :: thermohaline_mixing = 4
+   integer, parameter :: rotation_mixing = 5
+   integer, parameter :: rayleigh_taylor_mixing = 6
+   integer, parameter :: minimum_mixing = 7
+   integer, parameter :: anonymous_mixing = 8  ! AKA "WTF_mixing"
+   integer, parameter :: leftover_convective_mixing = 9  ! for regions with non-zero conv_vel that are not unstable to convection
+   ! used for time dependent convection
+   integer, parameter :: phase_separation_mixing = 10
+
+   integer, parameter :: number_of_mixing_types = phase_separation_mixing + 1
+
+contains
+
+   subroutine do_const_init(mesa_dir_init, ierr)
+      character(len=*), intent(in) :: mesa_dir_init
+      integer, intent(out) :: ierr
+
+      character(len=strlen) :: temp_caches_disable
+
+      ierr = 0
+
+      call get_environment_variable("MESA_CACHES_DIR", mesa_caches_dir)
+      !write(*,*) 'MESA_CACHES_DIR "' // trim(mesa_caches_dir) // '"'
+
+      mesa_dir = mesa_dir_init
+      if (len_trim(mesa_dir) == 0) then
+         call get_environment_variable("MESA_DIR", mesa_dir)
+      end if
+
+      if (len_trim(mesa_dir) > 0) then
+         mesa_data_dir = trim(mesa_dir)//'/data'
+      else
+         write (*, *) 'ERROR: you must provide the path to your mesa directory,'
+         write (*, *) 'either in your inlist or by setting the MESA_DIR environment variable.'
+         ierr = -1
+         return
+      end if
+
+      !write(*,*) 'mesa_data_dir ' // trim(mesa_data_dir)
+
+      call get_environment_variable("MESA_TEMP_CACHES_DIR", mesa_temp_caches_dir)
+
+      if (len_trim(mesa_temp_caches_dir) == 0) then
+         mesa_temp_caches_dir = './.mesa_temp_cache'
+      end if
+
+      !Opt out for temp caches
+      use_mesa_temp_cache = .true.
+      call get_environment_variable("MESA_TEMP_CACHES_DISABLE", temp_caches_disable)
+
+      if (len_trim(temp_caches_disable) > 0) then
+         use_mesa_temp_cache = .false.
+      end if
+
+   end subroutine do_const_init
+
+end module const_def
diff --git a/const/public/const_lib.f90 b/const/public/const_lib.f90
index f401ea40e..c6f23aaeb 100644
--- a/const/public/const_lib.f90
+++ b/const/public/const_lib.f90
@@ -24,23 +24,20 @@
 !
 ! ***********************************************************************
 
-      module const_lib
-      
-      use const_def
-      
-      implicit none
+module const_lib
 
+   use const_def
 
-      contains
-            
-            
-      subroutine const_init(mesa_dir_init,ierr)
-         character (len=*), intent(in) :: mesa_dir_init
-         integer, intent(out) :: ierr
-         ierr = 0
-         call do_const_init(mesa_dir_init,ierr)
-      end subroutine const_init
+   implicit none
 
+contains
 
-      end module const_lib
+   subroutine const_init(mesa_dir_init, ierr)
+      character(len=*), intent(in) :: mesa_dir_init
+      integer, intent(out) :: ierr
+      ierr = 0
+      call do_const_init(mesa_dir_init, ierr)
+   end subroutine const_init
+
+end module const_lib
 
diff --git a/const/test/make/makefile_base b/const/test/make/makefile_base
index ebdb4cafe..907ef665a 100644
--- a/const/test/make/makefile_base
+++ b/const/test/make/makefile_base
@@ -12,7 +12,7 @@ include $(MESA_DIR)/utils/makefile_header
 #
 # SOURCES
 
-SRCS = test_const.f
+SRCS = test_const.f90
 
 #################################################################
 #
@@ -28,7 +28,7 @@ LOAD_LOCAL = -L$(LOCAL_LIB_DIR) -lconst
 
 TEST = $(TEST_DIR)/tester
 
-OBJS = $(patsubst %.f,%.o,$(patsubst %.f90,%.o,$(SRCS)))
+OBJS = $(patsubst %.f90,%.o,$(SRCS))
 
 $(TEST) : $(OBJS) $(DEPS_LOCAL)
 ifneq ($(QUIET),)
@@ -47,12 +47,14 @@ nodeps : $(.DEFAULT_GOAL)
 #
 # COMPILATION RULES
 
-%.o: %.f
+COMPILE = $(FCbasic) $(FCopenmp) $(FCopt) $(FCfree)
+
+%.o: %.f90
 ifneq ($(QUIET),)
 	@echo TEST_COMPILE $<
-	@$(TEST_COMPILE) $(FCfixed) $<
+	@$(TEST_COMPILE) $(COMPILE) $<
 else
-	$(TEST_COMPILE) $(FCfixed) $<
+	$(TEST_COMPILE) $(COMPILE) $<
 endif
 
 #################################################################
@@ -61,7 +63,7 @@ endif
 
 SRC_PATH = $(TEST_SRC_DIR)
 
-vpath %.f $(TEST_SRC_DIR)
+vpath %.f90 $(TEST_SRC_DIR)
 
 vpath %.mod $(LOCAL_LIB_DIR):$(MESA_DIR)/include
 
diff --git a/const/test/src/test_const.f b/const/test/src/test_const.f
deleted file mode 100644
index 1d52f83e4..000000000
--- a/const/test/src/test_const.f
+++ /dev/null
@@ -1,59 +0,0 @@
-      program test_const
-      use const_def
-      use const_lib
-      implicit none
-
-      integer :: ierr
-      character(len=256) :: my_mesa_dir
-
-         my_mesa_dir = '../..'         
-         call const_init(my_mesa_dir,ierr)     
-         if (ierr /= 0) then
-            write(*,*) 'const_init failed'
-            error stop 1
-         end if        
-
-         call do_test_const
-
-      contains
-
-
-      subroutine do_test_const
-         real(dp) :: val
-         integer :: ierr
- 
- 1       format(a40,3x,1pe24.16)
-      
-         write(*,1) 'pi', pi
-         write(*,1) 'ln10', ln10
-         write(*,1) 'boltz_sigma', boltz_sigma
-         write(*,1) 'boltz_sigma*4', boltz_sigma*4
-         write(*,1) 'boltz_sigma*4/clight', boltz_sigma*4/clight
-         write(*,1) 'boltz_sigma/clight', boltz_sigma/clight
-         write(*,1) 'crad', crad
-
-         write(*,1) 'secyer', secyer
-         write(*,1) 'Msun', Msun
-         write(*,1) 'Rsun', Rsun
-         write(*,1) 'Lsun', Lsun
-         write(*,1) 'ly', ly
-         write(*,1) 'm_earth', m_earth
-         write(*,1) 'au', au
-         write(*,1) 'amu', amu
-         write(*,1) 'mn', mn
-         write(*,1) 'mp', mp
-         write(*,1) 'me', me
-         write(*,1) 'planck_h', planck_h
-         write(*,1) 'qe', qe
-         write(*,1) 'avo', avo
-         write(*,1) 'clight', clight
-         write(*,1) 'kerg', kerg
-                        
-      end subroutine do_test_const 
-
-
-      end program
-
-
-
-
diff --git a/const/test/src/test_const.f90 b/const/test/src/test_const.f90
new file mode 100644
index 000000000..00388ef44
--- /dev/null
+++ b/const/test/src/test_const.f90
@@ -0,0 +1,52 @@
+program test_const
+   use const_def
+   use const_lib
+   implicit none
+
+   integer :: ierr
+   character(len=256) :: my_mesa_dir
+
+   my_mesa_dir = '../..'
+   call const_init(my_mesa_dir, ierr)
+   if (ierr /= 0) then
+      write (*, *) 'const_init failed'
+      error stop 1
+   end if
+
+   call do_test_const
+
+contains
+
+   subroutine do_test_const
+
+      character(*), parameter :: fmt1 = "(a40, 3x, 1pe24.16)"
+
+      write (*, fmt=fmt1) 'pi', pi
+      write (*, fmt=fmt1) 'ln10', ln10
+      write (*, fmt=fmt1) 'boltz_sigma', boltz_sigma
+      write (*, fmt=fmt1) 'boltz_sigma*4', boltz_sigma*4
+      write (*, fmt=fmt1) 'boltz_sigma*4/clight', boltz_sigma*4/clight
+      write (*, fmt=fmt1) 'boltz_sigma/clight', boltz_sigma/clight
+      write (*, fmt=fmt1) 'crad', crad
+
+      write (*, fmt=fmt1) 'secyer', secyer
+      write (*, fmt=fmt1) 'Msun', Msun
+      write (*, fmt=fmt1) 'Rsun', Rsun
+      write (*, fmt=fmt1) 'Lsun', Lsun
+      write (*, fmt=fmt1) 'ly', ly
+      write (*, fmt=fmt1) 'm_earth', m_earth
+      write (*, fmt=fmt1) 'au', au
+      write (*, fmt=fmt1) 'amu', amu
+      write (*, fmt=fmt1) 'mn', mn
+      write (*, fmt=fmt1) 'mp', mp
+      write (*, fmt=fmt1) 'me', me
+      write (*, fmt=fmt1) 'planck_h', planck_h
+      write (*, fmt=fmt1) 'qe', qe
+      write (*, fmt=fmt1) 'avo', avo
+      write (*, fmt=fmt1) 'clight', clight
+      write (*, fmt=fmt1) 'kerg', kerg
+
+   end subroutine do_test_const
+
+end program
+
diff --git a/data/net_data/nets/README.rst b/data/net_data/nets/README.rst
index 9041423c1..03e771c0b 100644
--- a/data/net_data/nets/README.rst
+++ b/data/net_data/nets/README.rst
@@ -347,7 +347,7 @@ in ``$MESA_DIR/data/rates_data/cache``. Whenever a nuclear reaction
 whose rate has not yet been cached is used for the first time,
 the terminal output will show a line similar to the following:
 
-::
+.. code-block:: console
 
    write $MESA_DIR/data/rates_data/cache/r34_pp2_1.bin
 
@@ -362,7 +362,7 @@ argument. You can pipe the output of this executable to a file to
 obtain a file that you can easily plot.
 Example:
 
-::
+.. code-block:: console
 
   cd $MESA_DIR/rates/test/
   ./show_rates $MESA_DIR/data/rates_data/cache/r34_pp2_1.bin > rate_r34_pp2_1.txt
diff --git a/data/star_data/zams_models/CenterXfrac.png b/data/star_data/zams_models/CenterXfrac.png
index 5247b83f6..d6edf33ca 100644
Binary files a/data/star_data/zams_models/CenterXfrac.png and b/data/star_data/zams_models/CenterXfrac.png differ
diff --git a/data/star_data/zams_models/HR.png b/data/star_data/zams_models/HR.png
index 62accbea0..b9beabbfd 100644
Binary files a/data/star_data/zams_models/HR.png and b/data/star_data/zams_models/HR.png differ
diff --git a/data/star_data/zams_models/zams_z2m2_y28.data b/data/star_data/zams_models/zams_z2m2_y28.data
index d52a6dd82..477b2e382 100644
--- a/data/star_data/zams_models/zams_z2m2_y28.data
+++ b/data/star_data/zams_models/zams_z2m2_y28.data
@@ -1,3 +1,3 @@
 version https://git-lfs.github.com/spec/v1
-oid sha256:6a151fa60c390da3af24aae416a2d80afbc811b4abb3e9015510c91049e5631e
-size 31823499
+oid sha256:84651346e4313c7160c7b6f2b8d15629da71fc50a9ffa7eb019dcd24413fddbb
+size 31825816
diff --git a/docs/requirements.txt b/docs/requirements.txt
index f6303c444..3e9c6283c 100644
--- a/docs/requirements.txt
+++ b/docs/requirements.txt
@@ -1,6 +1,9 @@
 
 # Defining the exact version will make sure things don't break
-sphinx==5.3.0
-sphinx_rtd_theme==1.1.1
+sphinx==7.4.7
+sphinx_rtd_theme==2.0.0
 readthedocs-sphinx-search==0.3.2
-
+sphinx_copybutton==0.5.2
+sphinx_design==0.6.0
+sphinx-tags==0.4
+sphinxemoji==0.3.1
\ No newline at end of file
diff --git a/docs/robots.txt b/docs/robots.txt
new file mode 100644
index 000000000..2f2b4d8c9
--- /dev/null
+++ b/docs/robots.txt
@@ -0,0 +1,3 @@
+User-agent: *
+Disallow: /
+Allow: /en/latest
\ No newline at end of file
diff --git a/docs/source/about.rst b/docs/source/about.rst
index d9eca689c..b9139707f 100644
--- a/docs/source/about.rst
+++ b/docs/source/about.rst
@@ -114,6 +114,7 @@ Developers
 * Eoin Farrell
 * `Meridith Joyce <http://www.meridithjoyce.com/>`__
 * Pablo Marchant
+* `Philip Mocz <https://pmocz.github.io/>`__
 * `Joey Mombarg <https://jmombarg.github.io/PersonalWebsite/index.html>`__
 * `Radek Smolec <https://www.camk.edu.pl/en/staff/smolec/>`__
 * Anne Thoul
diff --git a/docs/source/auto_diff/more_detail.rst b/docs/source/auto_diff/more_detail.rst
index 1b8ae9785..ead925508 100644
--- a/docs/source/auto_diff/more_detail.rst
+++ b/docs/source/auto_diff/more_detail.rst
@@ -145,7 +145,7 @@ Sometimes the operators are a little inscrutable:
          binary%d1val1 = -0.5_dp*y%d1val1 + 0.5_dp*x%d1val1 + 0.5_dp*(x%d1val1 - y%d1val1)*sgn(q0)
       end function dim_self
 
-The reason for this is that they’re all auto-generated by python
+The reason for this is that they’re all auto-generated by Python
 scripts, in a way that optimizes for (Fortran) runtime speed at all
 costs.
 
@@ -301,7 +301,7 @@ mixed partial derivatives with all of the star solver variables.
 How does it work in Python?
 ===========================
 
-So how does the python side generate these files?
+So how does the Python side generate these files?
 
 Config Files
 ------------
diff --git a/docs/source/changelog.rst b/docs/source/changelog.rst
index 80688613c..2b65396f7 100644
--- a/docs/source/changelog.rst
+++ b/docs/source/changelog.rst
@@ -2,26 +2,190 @@
 Changelog
 *********
 
+.. warning:: As of r24.08.1, building MESA now requires Python (3.5 or newer) be installed.
+
+.. note:: This section describes changes present in the development version of MESA (``main`` branch) relative to the most recent release.
+
+
+
+
 Changes in main
 ===============
 
-.. note:: This describes changes present in the development version of MESA (``main`` branch) relative to the most recent release.
+.. _New Features main:
 
-.. _Backwards-incompatible changes main:
+New Features
+------------
 
-Backwards-incompatible changes
-------------------------------
+``mesa_reader`` can now be installed with ``pip``.
 
+.. _Bug Fixes main:
 
-.. _New Features main:
+Bug Fixes
+---------
+
+fixed small bug in star/private/create_initial_model.f90 that will have a small effect on creating inital models
+
+
+.. note:: Before releasing a new version of MESA, move `Changes in main` to a new section below with the version number as the title, and add a new `Changes in main` section at the top of the file (see ```changelog_template.rst```).
+
+Changes in r24.08.1
+===================
+
+.. _New Features r24.08.1:
 
 New Features
 ------------
 
 ``max_allowed_nz`` is now ignored if the value is less than or equal to zero.
 
+**Update to starspots**
+
+Star spot parameters ``fspot``, and ``xspot`` have been added as general controls
+and are now accessible outside of ``test_suite/starspots/``. Star spots are off by default. 
+
+**Replacement of HDF5io by ForUM**
+
+The HDF5io module (in the :file:`hdf5io` subdirectory) has been
+replaced by the ForUM module (in the :file:`forum`
+subdirectory). HDF5io provided a high-level wrapper around the `HDF5
+input/output library <https://www.hdfgroup.org/solutions/hdf5/>`__; it
+was based on source files copied from an alpha version of
+ForUM. :git:`ForUM <rhdtownsend/forum>` (short for Fortran Utility
+Modules) is a small library providing input/output, operating system,
+memory management and utility routines for Fortran.
+
+Now that ForUM has officially been released, and also that recent GYRE
+releases also require ForUM, it made sense to include the official
+distribution of ForUM within MESA. One important consequence of this
+decision is that ForUM uses :git:`fypp <aradi/fypp>` for
+pre-processing and templating, and fypp in turn requires a Python
+interpreter. As a consequence, building MESA now requires Python (3.5
+or newer) be installed.
+
+**Update to GYRE 7.2.1**
+
+The GYRE distribution bundled with MESA has been updated to release
+7.2.1. Full details about this release can be found on the `GYRE
+documentation page <https://gyre.readthedocs.io/en/v7.2.1/>`__. From
+the perspective of MESA users, the significant change arising from
+this update is that the MESA-to-GYRE interface is now provided via the
+library file :file:`libgyre_mesa.a` and the module file
+:file:`gyre_mesa_m.mod` (previously, these were :file:`libgyre.a` and
+:file:`gyre_lib.mod`, respectively). A new variable, `LOAD_GYRE`, has
+been added to :file:`utils/makefile_header` to simplify linking
+against :file:`libgyre_mea.a`. These changes will likely only affect
+those users that make calls to GYRE from inside
+:file:`run_star_extras.f90`.
+
+Kap
+~~~
+
+**High Temperature Opacity Tables**
 
-.. _Bug Fixes main:
+Type 1 Rosseland-mean opacity tables from The Los Alamos
+OPLIB database (`Colgan et al. 2016 <https://ui.adsabs.harvard.edu/abs/2016ApJ...817..116C/abstract>`_) are now available (`Farag et al. 2024 <https://doi.org/10.3847/1538-4357/ad4355>`_).
+These tables cover the region :math:`0.0 \leq X \leq 1-Z` and
+:math:`0.0\leq Z \leq 0.2`. Each set of OPLIB
+opacity tables contains 1194 individual tables, a
+dramatic increase in table density (in the X--Z plane) over the standard
+126 individual tables provided in previous opacity releases. These tables
+are available for four solar-scaled abundance mixtures constructed from photospheric estimates of the solar heavy element abundance:
+(`GS98, Grevesse & Sauval 1998 <https://ui.adsabs.harvard.edu/abs/1998SSRv...85..161G/abstract>`_),
+(`AGSS09(a09p), Asplund et al. 2009 <https://ui.adsabs.harvard.edu/abs/2009ARA%26A..47..481A/abstract>`_),  
+(`AAG21, Asplund et al. 2021 <https://ui.adsabs.harvard.edu/abs/2021A%26A...653A.141A/abstract>`_),
+and (`MB22, Magg et al. 2022 <https://doi.org/10.1051/0004-6361/202142971>`_). Users can
+adopt this new set of tables by selecting one of the following
+options for ``kap_file_prefix``:
+
++ ``'oplib_gs98'``
++ ``'oplib_agss09'``
++ ``'oplib_aag21'``
++ ``'oplib_mb22'``
+ 
+See :ref:`kap/overview:Overview of kap module` and
+:ref:`kap/defaults:kap_file_prefix` for more details on the
+implementation of these tables. For further details on these new OPLIB opacity tables, a direct comparison with 
+the Type 1 OPAL/OP tables as well as their effect on solar models can be found in
+in `Farag et al. 2024 <https://doi.org/10.3847/1538-4357/ad4355>`_.
+
+
+**Low Temperature Opacity Tables**
+
+Low temperature Rosseland-mean opacity tables for both (`AAG21, Asplund et al. 2021 <https://ui.adsabs.harvard.edu/abs/2021A%26A...653A.141A/abstract>`_),
+and (`MB22, Magg et al. 2022 <https://doi.org/10.1051/0004-6361/202142971>`_) 
+solar-scaled abundance mixtures have been privately communicated by Jason Ferguson. These opacity tables were
+computed following the approach of `Ferguson et al. (2005) <https://ui.adsabs.harvard.edu/abs/2005ApJ...623..585F/abstract>`_. Users can
+adopt this new set of tables by selecting one of the following
+options for :ref:`kap/defaults:kap_lowT_prefix`:
+
++ ``'lowT_fa05_mb22'``
++ ``'lowT_fa05_aag21'``
+
+**Opacity interpolation**
+
+We have updated the opacity interpolation scheme to provide much higher quality derivatives when doing cubic interpolation in composition.
+
+MESA interpolates across opacity tables in the :math:`X–Z` plane through the use of two consecutive 1D splines.
+MESA offers users the ability to choose linear or cubic interpolation for these splines, 
+while leaving the default as linear interpolation::
+
+  cubic_interpolation_in_X = .false.
+  cubic_interpolation_in_Z = .false.
+
+This choice of default was primarily due to the fact that
+the previous cubic composition interpolation scheme in MESA suffered from poor quality interpolated opacity derivatives with respect to
+density and temperature, which often disagreed with the numerical derivatives produced via nearest neighbor
+Richardson extrapolation. The figure below shows this comparison on a logarithmic scale, where in general red indicates poor quality
+derivatives and blue indicates high quality derivatives.
+
+.. figure:: changelog_plots/cubic_dfridr_dkapdT.png
+   :alt: old cubic relative kap derivative error
+
+   This figure shows the logarithmic relative error in the derivative :math:`\partial \kappa / \partial T` (:math:`X` = 0.625, :math:`Z` = 0.015),
+   for an OPAL opacity table grid using Grevesse & Sauval (1998) abundances, generated from MESA’s kap module, using the previous cubic interpolation scheme.
+   The OPLIB log(:math:`R`) = −8, 1.5 table boundaries are marked with a solid black line and the OPAL/OP log(:math:`R`) = 1.0 boundary is shown with a dashed line.
+   The approximate location of the Z-dependent transition to an electron conduction dominated opacity is marked with dot-dash blue curve.
+   Regions for Atomic, molecular, and compton scattering opacity are labeled and presented with their associated blending regions.
+
+
+While the opacity derivatives do not directly appear in the canonical equations of stellar structure, they do appear in the Jacobian matrix for MESA's implicit solver.
+Numerically unstable opacity derivatives can halt the progress of the solver and ultimately crash a calculation. 
+
+To improve the numerical stability of MESA's cubic opacity interpolation routines, we have implemented
+automatic differentiation into the opacity interpolating functions. Now, when using cubic interpolation, the opacity derivatives for an arbitrary mixture
+in the :math:`X–Z` plane are computed by taking the derivative of the interpolating function as opposed to the interpolant of the derivatives. This improvement
+has led to a significant reduction in the relative derivative error and an increase in the numerical accuracy of opacity derivatives computed with cubic interpolation. 
+
+.. figure:: changelog_plots/cubic_dfridr_dkapdT_ad.png
+   :alt: new cubic relative kap derivative error
+
+   Same as previous figure, but for new cubic interpolation scheme taking advantage of automatic differentiation.
+
+
+This new implementation of cubic interpolation in composition for opacity tables comes close to achieving the derivative quality of the linear interpolation
+option (shown below), while also providing more accurate opacity physics between opacity table grid points.
+
+.. figure:: changelog_plots/linear_dfridr_dkapdT.png
+   :alt: linear relative kap derivative error
+
+   Same as previous figure, but for linear interpolation instead of cubic.
+
+
+For this MESA release, linear interpolation remains the default method for interpolating in composition between opacity tables
+while we continue to investigate the residual areas where cubic interpolation appears to occasionally produce lower quality derivatives.
+However, adopting cubic interpolation has been shown to consistently increase the overall 
+opacity of a model, and can directly effect the structure of solar models, see Appendix B & C in `Farag et al. 2024 <https://doi.org/10.3847/1538-4357/ad4355>`_.
+We anticipate making cubic interpolation the default in a future MESA release version. 
+We encourage users to experiment with these different opacity interpolation routines and be mindful of the effect they can have on their stellar models.
+
+
+Chem
+~~~~
+New initial metal mass fractions ``initial_zfracs`` taken from photospheric estimates of the solar heavy element abundances in (AAG21, Asplund et al. 2021) and (MB22, Magg et al. 2022)
+are now available. See :ref:`reference/star_job:initial_zfracs` for more details.
+
+.. _Bug Fixes r24.08.1:
 
 Bug Fixes
 ---------
@@ -31,8 +195,8 @@ Rates
 
 There has been a bug present in the rates module due to the incorrect
 phase space factors for reverse reaction rates involving greater than 2 reactants or 
-products. This bug resulted in inconsistent equillibrium compositions when the network
-evolves into nuclear statistical equillibrium (NSE), at temperatures exceeding 4 GK. 
+products. This bug resulted in inconsistent equilibrium compositions when the network
+evolves into nuclear statistical equilibrium (NSE), at temperatures exceeding 4 GK. 
 This bug effects users who evolve models into NSE using large reaction networks. This
 includes evolving massive stars to core-collapse. Smaller networks such as the ``approx21``
 networks are less affected. We strongly recommend that users update to the latest MESA release.
@@ -45,6 +209,13 @@ See `gh-575 <https://github.com/MESAHub/mesa/issues/575>`_
 MESA no longer produces a segmentation fault if it tries to increase
 the number of cells beyond ``max_allowed_nz``.
 
+``pgbinary``
+~~~~~~~~~~~~
+A bug in the `pgbinary` axes definitions resulted in models crashing when running in single star mode and has been corrected.
+Another bug inhibited the mass of the not modeled star from being displayed in the `pgbinary` panel and has also been corrected.
+
+See `gh-634 <https://github.com/MESAHub/mesa/issues/634>`_ 
+
 
 Changes in r24.03.1
 ===================
@@ -94,7 +265,7 @@ shmesa
 ~~~~~~
 
 We have introduced a new set of command line utilities for interacting with MESA. 
-See the README in ``$MESA_DIR/scripts/shmesa``, or online `here <https://github.com/MESAHub/mesa/tree/main/scripts/shmesa>`_. 
+See the README in ``$MESA_DIR/scripts/shmesa``, or online `here <https://github.com/MESAHub/mesa/tree/main/scripts/shmesa>`__. 
 
 These utilities provide functionality such as changing inlist parameters (``shmesa change``) or filling in the full 
 ``run_star_extras.f90`` template (``shmesa extras``). 
@@ -245,6 +416,8 @@ this ``sed`` command (along with ``sed`` commands for the next changlog entry as
 to update all inlist files (``inlist*``), which you can run in any work directory
 where you want to update every inlist by invoking ::
 
+.. code-block:: console
+
   $MESA_DIR/scripts/update_inlists
 
 This script will save the previous versions of your inlists to a directory named
@@ -274,6 +447,8 @@ been renamed:
 You can substitute the new names for the old ones using the command
 line tool ``sed`` with, e.g. ::
 
+.. code-block:: console
+
     $ sed 's/log_center_density_limit/log_center_density_upper_limit/' -i <inlist_filename>
 
 Abundance-based timestep controls are now arrays
@@ -2287,7 +2462,7 @@ terms that contributed to that component.
 The format of the OP_MONO opacity table cache has changed.  If you have
 used these files in a previous version of MESA then you should do:
 
-::
+.. code-block:: console
 
    rm $MESA_OP_MONO_DATA_CACHE_FILENAME
 
@@ -2415,7 +2590,7 @@ ionization routine. This was due to a typo in the original paper that
 presented the ionization scheme. Restored the missing factor of
 rho^1/3 thanks to a later presentation of this same scheme (Dupuis et
 al. 1992) and a note `here
-<http://www1.astrophysik.uni-kiel.de/~koester/astrophysics/astrophysics.html>`_.
+<http://www1.astrophysik.uni-kiel.de/~koester/astrophysics/astrophysics.html>`__.
 
 Added a user control (``D_mix_ignore_diffusion``) for when to ignore
 element diffusion in surface or core mixing regions. Previously,
@@ -2429,7 +2604,7 @@ turn it off, but weaker mixing won't.
 Gravity Darkening (Aaron)
 -------------------------
 
-Added options to include gravity darkening, in the form of projected (surface-averaged) luminosities and effective temperatures of the star viewed along the equator and pole, to the history file.  Assumes the star is an oblate spheroid; see `here <https://github.com/aarondotter/GDit>`_ for more info.
+Added options to include gravity darkening, in the form of projected (surface-averaged) luminosities and effective temperatures of the star viewed along the equator and pole, to the history file.  Assumes the star is an oblate spheroid; see `here <https://github.com/aarondotter/GDit>`__ for more info.
 
 ::
 
diff --git a/docs/source/changelog_plots/cubic_dfridr_dkapdT.png b/docs/source/changelog_plots/cubic_dfridr_dkapdT.png
new file mode 100644
index 000000000..3af4d9d3e
Binary files /dev/null and b/docs/source/changelog_plots/cubic_dfridr_dkapdT.png differ
diff --git a/docs/source/changelog_plots/cubic_dfridr_dkapdT_ad.png b/docs/source/changelog_plots/cubic_dfridr_dkapdT_ad.png
new file mode 100644
index 000000000..40fb76c77
Binary files /dev/null and b/docs/source/changelog_plots/cubic_dfridr_dkapdT_ad.png differ
diff --git a/docs/source/changelog_plots/linear_dfridr_dkapdT.png b/docs/source/changelog_plots/linear_dfridr_dkapdT.png
new file mode 100644
index 000000000..d8d576686
Binary files /dev/null and b/docs/source/changelog_plots/linear_dfridr_dkapdT.png differ
diff --git a/docs/source/changelog_template.rst b/docs/source/changelog_template.rst
index e31b3e2c9..25e41c5c1 100644
--- a/docs/source/changelog_template.rst
+++ b/docs/source/changelog_template.rst
@@ -1,7 +1,8 @@
+.. note:: This section describes changes present in the development version of MESA (``main`` branch) relative to the most recent release.
+
 Changes in main
 ===============
 
-.. note:: This describes changes present in the development version of MESA (``main`` branch) relative to the most recent release.
 
 .. _Backwards-incompatible changes main:
 
@@ -21,3 +22,4 @@ Bug Fixes
 ---------
 
 
+.. note:: Before releasing a new version of MESA, move `Changes in main` to a new section below with the version number as the title, and add a new `Changes in main` section at the top of the file (see ```changelog_template.rst```).
diff --git a/docs/source/conf.py b/docs/source/conf.py
index 57f4eeb2e..3efc340aa 100644
--- a/docs/source/conf.py
+++ b/docs/source/conf.py
@@ -20,8 +20,9 @@
 project = 'MESA'
 copyright = '2024, The MESA Team'
 author = 'The MESA Team'
-release = 'main'
+language = 'en'
 version = 'main'
+release = version
 
 
 # -- General configuration ---------------------------------------------------
@@ -31,7 +32,12 @@
 # ones.
 extensions = [
     'sphinx.ext.autosectionlabel',
+    'sphinx.ext.extlinks',
     'defaults2rst',
+    'sphinx_copybutton',
+    'sphinx_design',
+    'sphinx_tags',
+    'sphinxemoji.sphinxemoji',
 ]
 
 # Add any paths that contain templates here, relative to this directory.
@@ -49,6 +55,7 @@
 # a list of builtin themes.
 #
 html_theme = 'sphinx_rtd_theme'
+#html_theme = 'sphinx_book_theme'
 
 # Add any paths that contain custom static files (such as style sheets) here,
 # relative to this directory. They are copied after the builtin static files,
@@ -72,18 +79,55 @@
     'logo_only': True
 }
 
+# sphinx_book_theme options
+#html_theme_options = {
+#    'collapse_navigation': True,
+#    'navigation_depth': 4,
+#    'repository_url': "https://github.com/MESAHub/mesa",
+#    'use_repository_button': True,
+#    'icon_links': [
+#        {
+#            "name": "GitHub",
+#            "url": "https://github.com/MESAHub/mesa",
+#            "icon": "fa-brands fa-github",
+#        },
+#    ],
+#}
+
+# sphinx_tags options
+tags_create_tags = True
+tags_overview_title = "Test Problem tags"
+tags_page_title = "Tags"
+tags_page_header = "Test problems with this tag"
+tags_create_badges = True
+tags_badge_colors = {
+    "star": "primary",
+    "binary": "primary",
+    "high-mass": "secondary",
+    "low-mass": "secondary",
+}
+
 # Set master doc
 master_doc = 'index'
 
 # Set logo
 html_logo = 'mesa-logo-200.png'
+html_favicon = 'mesa-favicon.png'
+
+# Set canonical URL from the Read the Docs Domain
+html_baseurl = os.environ.get("READTHEDOCS_CANONICAL_URL", "")
+
+html_context = {}
+
+# Tell Jinja2 templates the build is running on Read the Docs
+html_context["READTHEDOCS"] = os.environ.get("READTHEDOCS", "") == "True"
+
 
 # Override theme stylesheet
 html_css_files = [
     'theme_overrides.css',  # overrides for wide tables in RTD theme
 ]
 
-
 # standard substitutions
 rst_prolog = r"""
 .. |MESA I| replace:: `MESA I <https://ui.adsabs.harvard.edu/abs/2011ApJS..192....3P/abstract>`__
@@ -91,6 +135,7 @@
 .. |MESA III| replace:: `MESA III <https://ui.adsabs.harvard.edu/abs/2015ApJS..220...15P/abstract>`__
 .. |MESA IV| replace:: `MESA IV <https://ui.adsabs.harvard.edu/abs/2018ApJS..234...34P/abstract>`__
 .. |MESA V| replace:: `MESA V <https://ui.adsabs.harvard.edu/abs/2019ApJS..243...10P/abstract>`__
+.. |MESA VI| replace:: `MESA V <https://ui.adsabs.harvard.edu/abs/2023ApJS..265...15J/abstract>`__
 .. |Msun| replace:: :math:`{\rm M}_\odot`
 .. |Lsun| replace:: :math:`{\rm L}_\odot`
 .. |Rsun| replace:: :math:`{\rm R}_\odot`
@@ -103,3 +148,9 @@
 
 # set default highlighting language
 highlight_language = 'fortran'
+
+# sphinx.extlinks configuration
+extlinks = {
+    'wiki': ('https://en.wikipedia.org/wiki/%s', None),
+    'git': ('https://github.com/%s', None)
+}
diff --git a/docs/source/developing/release.rst b/docs/source/developing/release.rst
index 60d63c880..0ec6c9121 100644
--- a/docs/source/developing/release.rst
+++ b/docs/source/developing/release.rst
@@ -40,7 +40,7 @@ Documentation
 Testing
 -------
 
-- TestHub should report all tests pass for both Linux and macOS on multiple machines and with different OS versions
+- TestHub should report all tests pass for both Linux and macOS on multiple machines and with different OS versions.
 - The previous SDK version should be tested.
 
 .. note::
@@ -81,7 +81,7 @@ Making a release
 ----------------
 
 Run the release script in ``MESA_DIR``. This requires ``$MESA_DIR`` to be set and takes one argument the release version (you should add the ``r`` prefix as well).
-For version ``r12345`` this script will make a branch ``release/r12345`` and then it:
+For version ``rXX.YY.Z`` this script will make a branch ``release/rXX.YY.Z`` and then it:
 
 - Updates :file:`data/version_number`
 
@@ -91,14 +91,18 @@ For version ``r12345`` this script will make a branch ``release/r12345`` and the
 - Updates :file:`docs/source/conf.py`
 - Updates :file:`Doxyfile`
 
-To the new version ``r12345``.
+To the new version ``rXX.YY.Z``.
 
 This script will also make zip archive, which can be used for local testing to make sure the release builds.
 
 .. note::
     This zip folder is not what we release. The actual zip folder is generated by Github, so that should be tested as well once it has been made.
 
-The release script does not push any changes to Github. That must be done manually with a ``git push``.
+.. note::
+    Once the script has generated the new release branch, update the changelog headings from "Changes in main" to "Changes in rXX.YY.Z" etc,
+    and delete the note near the top of the changelog about changes in ``main`` relative to the most recent release.
+    
+The release script does not push any changes to Github. Once you are ready to push the release branch, this must be done manually with a ``git push``. (This is a separate step from pushing the tag in the next step.)
 
 
 Release steps
@@ -106,16 +110,19 @@ Release steps
 
 To make an actual release (once testing is complete), first push the git tag made by the release script:
 
-- ``git push origin r12345``
+- ``git push origin XX.YY.Z``
 
 This is the key bit, as the Github release will be anchored to this tag.
 
+.. note::
+    The tag follows PEP440 standards -- there is no ``r`` or ``-`` (hyphen) in the tag (unlike the branch name) -- so readthedocs can automatically determine the stable version and add version warning banners.
+
 Go to https://github.com/MESAHub/mesa/releases and craft a new release following the guidelines `here <https://docs.github.com/en/repositories/releasing-projects-on-github/managing-releases-in-a-repository>`_.
 
 .. note::
     If this is a RC release, then make sure to click ``This is a pre-release``.
 
-Add an appropriate title and description. The title should be kept simple, like ``Release: r12345``.
+Add an appropriate title and description. The title should be kept simple, like ``Release: rXX.YY.Z``.
 
 Once created, this zip folder should be downloaded and checked that it installs and runs a test case.
 
@@ -125,7 +132,7 @@ Zenodo
 
 Once the zip folder has been created, it should be uploaded to Zenodo prior to sending a release announcement. This helps avoid swamping our GitHub bandwidth with user downloads.
 
-- For a pre-release, do not upload to the main MESA zenodo repository.
+- For a pre-release, do not upload to the main MESA Zenodo repository.
   Instead upload to its own Zenodo entry. This can be done on a personal account.
 - Official releases need to be uploaded to `this MESA Zenodo page <https://doi.org/10.5281/zenodo.2602941>`_.
 
@@ -148,11 +155,15 @@ Acknowledging support
 
 Getting all authors who committed code (this includes merged pull requests) ::
 
+.. code-block:: console
+
     git log --format='%aN' r21.12.1..HEAD | sort -u
 
 
 Listing all commits that acknowledge help from someone ::
 
+.. code-block:: console
+
     git log --all --grep="-by" r21.12.1..HEAD
 
 
@@ -166,12 +177,13 @@ needs fixes to simply push a new release, and flag the current release as not wo
 New readthedocs version
 -----------------------
  
-First gain access to the readthedocs account (that is currently accessible by Rich, Evan, Joey, and Earl). Then:
+First gain access to the readthedocs account (that is currently accessible by Rich, Evan, Joey, Earl, Meridith, and Philip). Then:
 
 - Go to the ``Versions`` page
-- Find the release branch (not the tag) and ``Activate`` it
-- We want the branch, not the tag, so that we can update the docs post release.
+- Find the release tag (not the branch) and ``Activate`` it
+- We want the tag (following PEP440 standards), so readthedocs can automatically deduce the stable version and create a version banner warning.
 - Wait for it to build, and check that it works
 - Go to the ``Admin`` page and then the ``Advanced settings`` tab
 - Switch the default version to the release
 - Click ``save`` at the bottom of the page
+- To update docs post release, we will need to use git to change the tag to point to the new commit (SHA).
diff --git a/docs/source/faq.rst b/docs/source/faq.rst
index afb5422fc..b6e976702 100644
--- a/docs/source/faq.rst
+++ b/docs/source/faq.rst
@@ -524,7 +524,7 @@ previous version of OS X.
     open /Library/Developer/CommandLineTools/Packages/macOS_SDK_headers_for_macOS_10.14.pkg
 
 -  Install the latest version of the `MESA
-   SDK <http://www.astro.wisc.edu/~townsend/static.php?ref=mesasdk#Mac_OS_X>`__
+   SDK <http://user.astro.wisc.edu/~townsend/static.php?ref=mesasdk#Mac_OS_X>`__
    appropriate for your version of OS X.
 
 Why do I get the error "stdlib.h: No such file or directory"?
@@ -532,7 +532,7 @@ Why do I get the error "stdlib.h: No such file or directory"?
 
 If yore using macOS 10.14 (Mojave), then this error indicates that you
 did not install the system headers (see previous FAQ or `the SDK
-website <http://www.astro.wisc.edu/~townsend/static.php?ref=mesasdk#Mac_OS_X>`__).
+website <http://user.astro.wisc.edu/~townsend/static.php?ref=mesasdk#Mac_OS_X>`__).
 
 Why do I get the error "C compiler cannot create executables"?
 --------------------------------------------------------------
@@ -641,7 +641,7 @@ the MESA SDK. There are a few possible solutions:
 
 (1) Use the contemporary version of the SDK. There is a `list of old
     MESA
-    SDKs <http://www.astro.wisc.edu/~townsend/static.php?ref=mesasdk-old>`__
+    SDKs <http://user.astro.wisc.edu/~townsend/static.php?ref=mesasdk-old>`__
     that indicates which version of MESA was current when each was
     released.
 
@@ -756,7 +756,7 @@ a simple script, images_to_movie.sh, which uses ffmpeg to create movies
 from PNG files produced by MESA.
 
 To make use of this capability, consult `Rich's
-instructions <http://www.astro.wisc.edu/~townsend/static.php?ref=mesasdk#Making_Movies>`__.
+instructions <http://user.astro.wisc.edu/~townsend/static.php?ref=mesasdk#Making_Movies>`__.
 
 Programming
 ===========
diff --git a/docs/source/installation.rst b/docs/source/installation.rst
index 9ea836563..0d4b72cff 100644
--- a/docs/source/installation.rst
+++ b/docs/source/installation.rst
@@ -22,6 +22,10 @@ The minimum system requirements for MESA are:
 Most laptop or desktop computers built in the last three years will 
 satisfy these requirements.
 
+Ensure you have Python (3.5 or newer) installed on your system
+^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+.. warning:: As of r24.08.1, building MESA now requires Python (3.5 or newer) to be installed.
+
 Install the MESA SDK
 ^^^^^^^^^^^^^^^^^^^^
 
diff --git a/docs/source/kap/overview.rst b/docs/source/kap/overview.rst
index 2b33878e9..6f045d70f 100644
--- a/docs/source/kap/overview.rst
+++ b/docs/source/kap/overview.rst
@@ -57,10 +57,27 @@ High temperature :math:`(T \gtrsim 10^4\,\rm K)`
 
 The OPAL tables (|OPAL|) with fixed metal distributions are called
 Type 1 and cover the region :math:`0.0 \leq X \leq 1-Z` and
-:math:`0.0\leq Z \leq 0.1`. Type 1 tables from the Opacity Project
-(OP; |OP|) are also available.  The set of tables to be used are
+:math:`0.0\leq Z \leq 0.1`. The Opacity Project
+(OP; |OP|) are also available. Type 1 tables from The Los Alamos
+OPLIB database (OPLIB; |OPLIB|) are also available, and cover the
+region :math:`0.0 \leq X \leq 1-Z` and
+:math:`0.0\leq Z \leq 0.2`. The set of tables to be used are
 selected by the option :ref:`kap/defaults:kap_file_prefix`.
 
+A direct comparison between the Type 1 format of OPAL/OP tables and 
+the OPLIB tables are shown in the figure below
+taken from Figure 1 in `Farag et al. 2024 <https://doi.org/10.3847/1538-4357/ad4355>`_. Further comparisons
+between OP/OPAL/OPLIB can be found in `Farag et al. 2024 <https://doi.org/10.3847/1538-4357/ad4355>`_.
+
+
+.. figure:: type1_format.png
+   :alt: kap blends in solar-like compositions
+
+   Location of each Type-1 opacity table in the :math:`X–Z` plane (left panel) and the
+   log:math:`T`–log:math:`R` plane (right panel). Orange circles mark the location of
+   the 126 OPAL Type-1 tables (Rogers & Iglesias 1992). Blue circles
+   mark the location of the new 1194 Type-1 opacity tables (Farag et al. 2024).
+
 Additionally, there is support for the OPAL Type 2 tables that allow
 for varying amounts of C and O beyond that accounted for by :math:`Z`;
 these are needed during helium burning and beyond. These have a range
@@ -164,8 +181,9 @@ degeneracy, the additional correction formulae of |B20| are applied.
 
 .. |OPAL| replace:: Iglesias & Rogers `1993 <https://ui.adsabs.harvard.edu/abs/1993ApJ...412..752I/abstract>`__, `1996 <https://ui.adsabs.harvard.edu/abs/1996ApJ...464..943I/abstract>`__
 
+.. |OP| replace:: `Seaton 2005 <https://ui.adsabs.harvard.edu/abs/2005MNRAS.362L...1S/abstract>`__  
 
-.. |OP| replace:: `Seaton 2005 <https://ui.adsabs.harvard.edu/abs/2005MNRAS.362L...1S/abstract>`__                    
+.. |OPLIB| replace:: `Colgan 2016 <https://ui.adsabs.harvard.edu/abs/2016ApJ...817..116C/abstract>`__                                      
 
 .. |Cassisi| replace:: `Cassisi et al. (2007) <https://ui.adsabs.harvard.edu/abs/2007ApJ...661.1094C/abstract>`__
 
diff --git a/docs/source/kap/type1_format.png b/docs/source/kap/type1_format.png
new file mode 100644
index 000000000..c88c54d8b
Binary files /dev/null and b/docs/source/kap/type1_format.png differ
diff --git a/docs/source/known_bugs.rst b/docs/source/known_bugs.rst
index 54231a651..db5a97f59 100644
--- a/docs/source/known_bugs.rst
+++ b/docs/source/known_bugs.rst
@@ -19,9 +19,9 @@ ZAMS Model Central Composition
 When ``create_pre_main_sequence_model = .false.`` and ``load_saved_model = .false.``, we fall back
 to loading a ZAMS model based on interpolating from a grid of pre-computed ZAMS models found in
 ``data/star_data/zams_models``. The default file included in that directory is meant to start from
-a composition of X = 0.70 and Z = 0.02, but one of the models in the grid (1.26 Msun) has partially
+a composition of X = 0.70 and Z = 0.02, but one of the models in the grid (1.26 |Msun|) has partially
 proceeded through hydrogen burning already so that its central H abundance is X = 0.58. Interpolation
-in this grid of models will impact the central H abundance for initial masses between 1.0 and 1.58 Msun.
+in this grid of models will impact the central H abundance for initial masses between 1.0 and 1.58 |Msun|.
 
 This bug affects versions r15140 through r23.05.1, and will be fixed in the next release.
 For current MESA releases impacted by this bug, the following steps provide a workaround with a patched ZAMS file:
@@ -147,7 +147,7 @@ If you get an error:
 
     bad filter name: 
 
-First check that the name matches in your history_coloumns.list file and your color file. Next check for non-printing characters history_coloumns.list in the filter name. This can bee checked with:
+First check that the name matches in your history_columns .list file and your color file. Next check for non-printing characters history_columns.list in the filter name. This can bee checked with:
 
 .. code-block:: shell
 
diff --git a/docs/source/mesa-favicon.png b/docs/source/mesa-favicon.png
new file mode 100644
index 000000000..a9767fc8c
Binary files /dev/null and b/docs/source/mesa-favicon.png differ
diff --git a/docs/source/news/2016-06-19-r8845.rst b/docs/source/news/2016-06-19-r8845.rst
index deb69094b..80df635e6 100644
--- a/docs/source/news/2016-06-19-r8845.rst
+++ b/docs/source/news/2016-06-19-r8845.rst
@@ -15,7 +15,7 @@ post <https://lists.mesastar.org/pipermail/mesa-users/2016-June/006691.html>`__.
    reasons, the option ``photostep`` was renamed to ``photo_interval``.
    A simple find-and-replace will bring your inlists up-to-date. If one
    needs to make the changes in a more automated fashion, a sample
-   migration script is included in the release annoucement to
+   migration script is included in the release announcement to
    mesa-users.
 
 -  In the binary module, adjustments were made to the Eddington mass
diff --git a/docs/source/summer_schools.rst b/docs/source/summer_schools.rst
index bb69a3259..65aaacb82 100644
--- a/docs/source/summer_schools.rst
+++ b/docs/source/summer_schools.rst
@@ -1,14 +1,15 @@
 MESA Summer Schools
 ===================
 
-***
+************************************************************
 MESA Summer School Programs -- this page under construction!
-***
+************************************************************
 
 History of the MESA Summer School Program
 -----------------------------------------
 
-The MESA Summer Schools have traditionally been held in Santa Barbara, California, until 2022. The 2023 MESA Summer School program, branded as MESA@Konkoly, was held in Budapest, Hungary. As of 2023, MESA Summer Schools can be run anywhere in the world. The involvement of the MESA developers is encouraged, and we are happy to help. 
+The MESA Summer Schools (material linked `here <https://cococubed.com/mesa_market/education.html>`_) have traditionally been held in Santa Barbara, California, until 2022. The 2023 MESA Summer School program, branded as `MESA@Konkoly <https://mesahub.github.io/summer-school-2023/>`_, was held in Budapest, Hungary. This was follwed by `MESA Down Under <https://maygpedersen.github.io/mesa-down-under-2024/>`_, hosted in Sydney in June of 2024.
+As of 2022, MESA Summer Schools can be run anywhere in the world. The involvement of the MESA developers is encouraged, and we are happy to help. 
 
 
 How to run a MESA Summer School
@@ -20,12 +21,61 @@ Preparing a good program takes about a year. Historically, the program has taken
 1 year + out (September/October)
 --------------------------------
 
-- Book a venue
-- Choose your organizational team
+- Book a venue. The summer schools have traditionally aimed for approximatley 45 students, one TA per 3 students (15 TAs), and 6 lecturers. These numbers are not strict, but they have worked well in the past. Plan for your venue to accommodate roughly 75 people (lecturers, TAs, students, organizers). Be aware that your venue should have reliable, high-speed internet and enough outlets for every student, TA, and lecturer to plug in their laptop simultaneously. 
+
+
+- Choose your organizational team. For past programs, it has worked well to have a scientific organization committee that includes MESA developers, a local organizational committee comprising individuals at the host institute and/or in the host country who can help with local logistical matters, and a teaching committee.
 
 
 9 months out (November)
 -----------------------
 
-- Contact lecturers. Try to invite people with a diverse set of research areas and consider focusing on topics that have not been covered in past programs (see previous summer school pages and agendas for this information)
-- Contact TAs. 
+- Contact potential lecturers. Try to invite people with a diverse set of research areas and consider focusing on topics that have not been covered in past programs (see previous summer school pages and agendas for this information). Please be mindful of the fact that academics' schedules fill up quickly, and you may have to ask several candidates before your lecture roster is filled. 
+
+- Contact potential TAs. We recommend that TAs should have attended a Summer School and performed well. TAs should span a range of MESA experience levels but in all cases have a strong baseline level of competence with the code. 
+
+We aim for 50-50 gender representation (50% men, 50% women and gender minorities) among both lecturers and TAs. We have succeeded in having 35% or greater representation among women and gender minorities in past programs.  
+
+9 months to 7 months out (November - January)
+---------------------------------------------
+- Look for and apply to grant funding schemes. Previous supporters of the MESA Summer Schools include the International Research Network of Nuclear Astrophysics (IReNA; USA), the European ChETEC-INFRA network of research infrastructures, and individual research grants (NSF; Marie Curie scheme, ERC scheme). 
+
+- reserve accommodation. Hotel room blocks can be booked for discounted rates. Some univerisites are willing to provide discounted bulk accommodation through their own facilities (e.g. dorms), as was the case at Santa Barbara.
+
+- open the application for students. A template for this is available from Meridith Joyce, Earl Bellinger, or Eoin Farrell (MESAdev). A Google form is a good way to provide the application. Be aware that summer schools have been oversubscribed by more than a factor of 2 in recent years, and be prepared to rank applications in a systematic way. We aim for 50-50 gender representation among students and have a track record of achieving 35%-45% participation from women and gender minorities, on average. 
+
+6 months out (February)
+-----------------------
+- post the Summer School website. Bill Wolf (MESAev) has been the web manager for many Summer Schools
+
+- assign TAs to lecturers. We recommend assigning one first-time TA, one returning TA, and one very experienced TA per lecturer. This ensures that new TAs receive excellent training while the more experienced TAs can provide leadership on the development of exercises and management of the group. Please be aware that it has not been a requirement  historically that the lecturers have any experience with MESA. It is the lecturers' jobs to develop the scientific program and contribute their subject expertise. It is the TAs jobs to turn the lecturers' science into accessible, MESA-based exercises.
+
+
+5 months out (March)
+--------------------
+- close applications
+
+- make selections among applications. An admissions rubric used for the 2022, 2023, and 2024 Summer School programs is available from Meridith Joyce (MESAdev) 
+
+- email the supervisors of potential attendees to confirm that they have their advisor's permission and funding to attend. Be aware that some prospective students may apply without having secured funding and without their advisor's knowledge.
+
+- send acceptances to students, cc-ing superviors, while maintaining a ranked waitlist. If you do not hear back from an accepted student or their supervisor in, for example, 2 weeks, move on to the waitlist. There are typically several students admitted off the waitlist.  
+
+4 months out (April)
+--------------------
+- Begin regular, bi-weekly, all-hands meetings to check in with the organizational team, lecturers, and TAs. Lecturers should begin to schedule separate group meetings with their TAs to design exercises. Bi-weekly meetings serve to check in on the progress of these groups.
+
+- begin preparing any visa or invitation letters necessary for international students
+
+1 month out (July)
+------------------
+- Increase the cadence of all-hands meetings to weekly. Lab exercises should be distributed for testing among TAs, leaving at least two weeks before the start of Summer School for final corrections to be implemented. Labs should be tested for coherence, timing, and accessibility of the exercises 
+
+
+2 weeks out
+-----------
+- final corrections to labs are underway
+
+- Lecturers' programs and slides should be near completion. It is helpful if all lecture materials are available before the start of the labs. All lab materials should also be available before the start of the program.
+
+- send students a schedule or point them to a schedule online. Remind students which version of MESA they will be using and send links to installation instructions. Remind students that having MESA installed and working on their machines must happen before they arrive. 
diff --git a/docs/source/test_suite.rst b/docs/source/test_suite.rst
index ba40c95c0..33e0367ce 100644
--- a/docs/source/test_suite.rst
+++ b/docs/source/test_suite.rst
@@ -27,8 +27,8 @@ of some of the test problems in the ``docs/`` sub-directory of each
 test_suite case.
 
 For example, take a look at the "high mass" test case. It starts by
-creating a pre-main-sequence model of 100 Msun with Z=0.02, and then it
-"relaxes" Z down to 1e-5 and the mass up to 110 Msun before starting the
+creating a pre-main-sequence model of 100 |Msun| with Z=0.02, and then it
+"relaxes" Z down to 1e-5 and the mass up to 110 |Msun| before starting the
 evolution. It will take under 200 steps (and a few minutes) to reach a
 central X of 0.5. To try it yourself,
 
@@ -100,24 +100,24 @@ Star tests
 ^^^^^^^^^^^^^^^^^^^^^
 
 The test checks the evolution of metal-rich low-mass stars by evolving 
-a 1.3 Msun, metal-rich Z=0.04 model from the pre-main sequence to core hydrogen depletion.
+a 1.3 |Msun|, metal-rich Z=0.04 model from the pre-main sequence to core hydrogen depletion.
 
 :ref:`1.4M_ms_op_mono`
 ^^^^^^^^^^^^^^^^^^^^^^
 
 The test checks the functionality of OP mono opacities. 
-The test vehicle is a 1.4 Msun solar metallicity model.
+The test vehicle is a 1.4 |Msun| solar metallicity model.
 
 :ref:`1.5M_with_diffusion`
 ^^^^^^^^^^^^^^^^^^^^^^^^^^
 
 The test checks the functionality of element diffusion.
-The test vehicle is a 1.5 Msun solar metallicity model.
+The test vehicle is a 1.5 |Msun| solar metallicity model.
 
 :ref:`15M_dynamo`
 ^^^^^^^^^^^^^^^^^
 
-The test checks the functionality of element rotation in a 15 Msun solar metallicity model.
+The test checks the functionality of element rotation in a 15 |Msun| solar metallicity model.
 
 :ref:`16M_conv_premix`
 ^^^^^^^^^^^^^^^^^^^^^^
@@ -138,12 +138,12 @@ criterion), as detailed in Section 2 of the MESA IV instrument paper
 :ref:`1M_pre_ms_to_wd`
 ^^^^^^^^^^^^^^^^^^^^^^
 
-This test case checks the evolution of a 1 Msun, Z=0.02 metallicity from the pre-main sequence to a white dwarf.
+This test case checks the evolution of a 1 |Msun|, Z=0.02 metallicity from the pre-main sequence to a white dwarf.
 
 :ref:`1M_thermohaline`
 ^^^^^^^^^^^^^^^^^^^^^^
 
-The test checks thermohaline mixing in a rotating, 1 Msun, Z=0.02 metallicity model.
+The test checks thermohaline mixing in a rotating, 1 |Msun|, Z=0.02 metallicity model.
 
 :ref:`12M_pre_ms_to_core_collapse`
 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
@@ -160,26 +160,26 @@ This test suite evolves a low metalicity 20 |MSun| model from the pre-ms to core
 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 
 This test case checks the evolution of a strongly rotating,
-Omega/Omega_crit = 0.75, 20 Msun, Z=0.02 metallicity model from the
+Omega/Omega_crit = 0.75, 20 |Msun|, Z=0.02 metallicity model from the
 pre-main sequence to the end of core helium burning.
 
 
 :ref:`5M_cepheid_blue_loop`
 ^^^^^^^^^^^^^^^^^^^^^^^^^^^
 
-This test case checks that the evolution of a 5 Msun, metal-poor Z = 0.008, helium-enriched Y=0.256 model
+This test case checks that the evolution of a 5 |Msun|, metal-poor Z = 0.008, helium-enriched Y=0.256 model
 executes a blue-loop in the HR diagram and crosses the classical Cepheid instability strip boundaries three times.
 
 :ref:`7M_prems_to_AGB`
 ^^^^^^^^^^^^^^^^^^^^^^
 
-This test case checks that the evolution of a 7 Msun, metal-poor Z = 0.001, model reaches the AGB.
+This test case checks that the evolution of a 7 |Msun|, metal-poor Z = 0.001, model reaches the AGB.
 
 
 :ref:`accreted_material_j`
 ^^^^^^^^^^^^^^^^^^^^^^^^^^
 
-This test suite example checks the accretion of material and angular momentum onto a 20 Msun model.
+This test suite example checks the accretion of material and angular momentum onto a 20 |Msun| model.
 
 :ref:`adjust_net`
 ^^^^^^^^^^^^^^^^^
@@ -205,7 +205,7 @@ convergence example for the different forms of the energy equation.
 :ref:`cburn_inward`
 ^^^^^^^^^^^^^^^^^^^
 
-This test suite example checks the inward propagation of a carbon burning front in a 7.5 Msun model.
+This test suite example checks the inward propagation of a carbon burning front in a 7.5 |Msun| model.
 
 
 :ref:`ccsn_IIp`
@@ -234,7 +234,7 @@ and ``other_surface_PT`` hooks.
 :ref:`conserve_angular_momentum`
 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 
-This test suite example checks angular momentum conservation from the zero age main-sequence to the formation of a helium core in 1.0 Msun, Z=0.02 metallicity, model.
+This test suite example checks angular momentum conservation from the zero age main-sequence to the formation of a helium core in 1.0 |Msun|, Z=0.02 metallicity, model.
 
 
 :ref:`conv_core_cpm`
@@ -253,7 +253,7 @@ This test suite example shows how to use user-defined color filter and extinctio
 :ref:`custom_rates`
 ^^^^^^^^^^^^^^^^^^^
 
-This test suite case checks the use of custom nuclear reaction rates in an accreting 0.3 Msun helium white dwarf model.
+This test suite case checks the use of custom nuclear reaction rates in an accreting 0.3 |Msun| helium white dwarf model.
 
 
 :ref:`diffusion_smoothness`
@@ -270,35 +270,35 @@ This test case checks the implementation of the extended convective penetration
 :ref:`gyre_in_mesa_bcep`
 ^^^^^^^^^^^^^^^^^^^^^^^^
 
-This test case checks the implementation of GYRE in MESA for a 12 Msun, Z=0.02 metallicity, model evolving from the zero-age main sequence to core hydrogen depletion;
+This test case checks the implementation of GYRE in MESA for a 12 |Msun|, Z=0.02 metallicity, model evolving from the zero-age main sequence to core hydrogen depletion;
 a beta Cephei stellar model.
 
 
 :ref:`gyre_in_mesa_envelope`
 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 
-This test case checks the implementation of GYRE in MESA for the envelope of a 12 Msun, Z=0.02 metallicity, model.
+This test case checks the implementation of GYRE in MESA for the envelope of a 12 |Msun|, Z=0.02 metallicity, model.
 
 :ref:`gyre_in_mesa_ms`
 ^^^^^^^^^^^^^^^^^^^^^^
 
-This test case checks the implementation of GYRE in MESA for a 1 Msun, Z=0.02 metallicity, model evolving from the zero-age main sequence to core hydrogen depletion.
+This test case checks the implementation of GYRE in MESA for a 1 |Msun|, Z=0.02 metallicity, model evolving from the zero-age main sequence to core hydrogen depletion.
 
 :ref:`gyre_in_mesa_rsg`
 ^^^^^^^^^^^^^^^^^^^^^^^
 
-This test case checks the implementation of GYRE in MESA for a 21 Msun, Z=0.02 metallicity, model in the red supergiant regime.
+This test case checks the implementation of GYRE in MESA for a 21 |Msun|, Z=0.02 metallicity, model in the red supergiant regime.
 
 :ref:`gyre_in_mesa_spb`
 ^^^^^^^^^^^^^^^^^^^^^^^
 
-This test case checks the implementation of GYRE in MESA for a 5 Msun, Z=0.02 metallicity, model evolving from the zero-age main sequence to core hydrogen depletion; 
+This test case checks the implementation of GYRE in MESA for a 5 |Msun|, Z=0.02 metallicity, model evolving from the zero-age main sequence to core hydrogen depletion; 
 a slowly pulsating B-type star (SPB) stellar model.
 
 :ref:`gyre_in_mesa_wd`
 ^^^^^^^^^^^^^^^^^^^^^^
 
-This test case checks the implementation of GYRE in MESA for a cooling 0.85 Msun white dwarf model.
+This test case checks the implementation of GYRE in MESA for a cooling 0.85 |Msun| white dwarf model.
 
 :ref:`hb_2M`
 ^^^^^^^^^^^^
@@ -309,17 +309,17 @@ on the horizontal branch (HB) through core helium burning.
 :ref:`high_mass`
 ^^^^^^^^^^^^^^^^
 
-This test case checks the evolution of a 300 Msun, Z = 1e-4 metallicity, model through core hydrogen depletion.
+This test case checks the evolution of a 300 |Msun|, Z = 1e-5 metallicity, model through core hydrogen depletion.
 
 :ref:`high_z`
 ^^^^^^^^^^^^^
 
-This test case checks the capability of evolving high metallicity models through core helium depletion with a 7 Msun, Z=0.07 metallicity model.
+This test case checks the capability of evolving high metallicity models through core helium depletion with a 7 |Msun|, Z=0.07 metallicity model.
 
 :ref:`hot_cool_wind`
 ^^^^^^^^^^^^^^^^^^^^
 
-This test case checks the cool wind, hot wind capability by evolving a 7 Msun, Z=0.02 metallicity model from the zero-age main sequence to core helium depletion.
+This test case checks the cool wind, hot wind capability by evolving a 7 |Msun|, Z=0.02 metallicity model from the zero-age main sequence to core helium depletion.
 
 :ref:`hse_riemann`
 ^^^^^^^^^^^^^^^^^^
@@ -334,7 +334,7 @@ This test case checks the evolution of an ~1 Mjup model after the surface has be
 :ref:`low_z`
 ^^^^^^^^^^^^
 
-This test case checks the evolutions of a 0.8 Msun, Z=1e-4 metallicity model from the pre-main sequence to core hydrogen depletion.
+This test case checks the evolutions of a 0.8 |Msun|, Z=1e-4 metallicity model from the pre-main sequence to core hydrogen depletion.
 
 
 :ref:`magnetic_braking`
@@ -368,18 +368,18 @@ This test case checks the creation and stability of a pure iron neutron star env
 :ref:`make_he_wd`
 ^^^^^^^^^^^^^^^^^
 
-This test case checks the creation and evolution of a 0.15 Msun helium white dwarf.
+This test case checks the creation and evolution of a 0.15 |Msun| helium white dwarf.
 
 :ref:`make_metals`
 ^^^^^^^^^^^^^^^^^^
 
-This test case demonstrates the creation and evolution of 3 Msun model whose initial metallicity is Z = 0.
+This test case demonstrates the creation and evolution of 3 |Msun| model whose initial metallicity is Z = 0.
 
 
 :ref:`make_o_ne_wd`
 ^^^^^^^^^^^^^^^^^^^
 
-This test case produces a 1.05 Msun oxygen-neon-magnesium white dwarf using stellar engineering.
+This test case produces a 1.05 |Msun| oxygen-neon-magnesium white dwarf using stellar engineering.
 
 :ref:`make_planets`
 ^^^^^^^^^^^^^^^^^^^
@@ -389,22 +389,22 @@ This test case shows an example of a 1 Mjup model with a 10 Mearth core that is
 :ref:`make_sdb`
 ^^^^^^^^^^^^^^^
 
-This test case shows an example of making a 0.4 Msun, Z=0.02 metallicity, helium model - a B-type subdwarf (sdB) star.
+This test case shows an example of making a 0.4 |Msun|, Z=0.02 metallicity, helium model - a B-type subdwarf (sdB) star.
 
 :ref:`make_zams`
 ^^^^^^^^^^^^^^^^
 
-This test case shows an example of creating a 4 Msun, Z = 0.01 metallicity, pre-main sequence model and evolving it to the zero age main sequence.
+This test case shows an example of creating a 4 |Msun|, Z = 0.01 metallicity, pre-main sequence model and evolving it to the zero age main sequence.
 
 :ref:`make_zams_low_mass`
 ^^^^^^^^^^^^^^^^^^^^^^^^^
 
-This test case shows an example of creating a 0.085 Msun, Z = 0.014 metallicity, pre-main sequence model and evolving it to the zero age main sequence.
+This test case shows an example of creating a 0.085 |Msun|, Z = 0.014 metallicity, pre-main sequence model and evolving it to the zero age main sequence.
 
 :ref:`make_zams_ultra_high_mass`
 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 
-This test case shows an example of creating a 250 Msun, Z = 1e-4 metallicity, model close to the main sequence.
+This test case shows an example of creating a 250 |Msun|, Z = 1e-4 metallicity, model close to the main sequence.
 
 
 :ref:`ns_h`
@@ -425,14 +425,14 @@ This test case shows an example of a carbon flash within a neutron star envelope
 :ref:`other_physics_hooks`
 ^^^^^^^^^^^^^^^^^^^^^^^^^^
 
-This test case exercises several of the ``other_*`` physics hooks simultaneously in a 1 Msun, Z=0.02 metallicity, model.
+This test case exercises several of the ``other_*`` physics hooks simultaneously in a 1 |Msun|, Z=0.02 metallicity, model.
 It provides an example of how to include your own physics code into a MESA run.
 
 
 :ref:`pisn`
 ^^^^^^^^^^^^^^^^^^^^^^
 
-This test case evolves an initialy 200 |Msun| star from ZAMS untill it undergoes a pair instability supernovae (PISN).
+This test case evolves an initially 200 |Msun| star from ZAMS until it undergoes a pair instability supernovae (PISN).
 
 
 :ref:`ppisn`
@@ -455,7 +455,7 @@ tables in MESA.
 :ref:`radiative_levitation`
 ^^^^^^^^^^^^^^^^^^^^^^^^^^^
 
-This test case exercises radiative levitation and the OP mono opacities in the outer layers of a 0.466 Msun, Z=0.02 metallicity, B-type subdwarf (sdB) model.
+This test case exercises radiative levitation and the OP mono opacities in the outer layers of a 0.466 |Msun|, Z=0.02 metallicity, B-type subdwarf (sdB) model.
 
 
 :ref:`relax_composition_j_entropy`
@@ -467,38 +467,38 @@ momentum and energy of a model to given target values.
 :ref:`rsp_BEP`
 ^^^^^^^^^^^^^^
 
-This test case checks the non-linear pulsation evolution of a 0.26 Msun, Teff = 6968 K, L = 33 Lsun, Z = 0.01 metallicity model - a binary evolution pulsator similar
+This test case checks the non-linear pulsation evolution of a 0.26 |Msun|, Teff = 6968 K, L = 33 Lsun, Z = 0.01 metallicity model - a binary evolution pulsator similar
 the one shown in Smolec et al 2013, MNRAS.
 
 :ref:`rsp_BLAP`
 ^^^^^^^^^^^^^^^
 
-This test case checks the non-linear pulsation evolution of a 0.36 Msun, Teff = 26,000 K, L = 320 Lsun, Z = 0.05 metallicity model -
+This test case checks the non-linear pulsation evolution of a 0.36 |Msun|, Teff = 26,000 K, L = 320 Lsun, Z = 0.05 metallicity model -
 a blue large-amplitude pulsator model originally contributed by Alfred Gautschy.
 
 :ref:`rsp_Cepheid`
 ^^^^^^^^^^^^^^^^^^
 
-This test case checks the non-linear pulsation evolution of a 4.165 Msun, Teff = 6050 K, L = 1438.8 Lsun, Z = 0.007 metallicity model -
+This test case checks the non-linear pulsation evolution of a 4.165 |Msun|, Teff = 6050 K, L = 1438.8 Lsun, Z = 0.007 metallicity model -
 a classical Cepheid variable similar to CEP-227 shown in |Pilecki2013|.
 
 
 :ref:`rsp_Delta_Scuti`
 ^^^^^^^^^^^^^^^^^^^^^^
 
-This test case checks the non-linear pulsation evolution of a 2 Msun, Teff = 6900 K, L = 30 Lsun, Z = 0.02 metallicity -
+This test case checks the non-linear pulsation evolution of a 2 |Msun|, Teff = 6900 K, L = 30 Lsun, Z = 0.02 metallicity -
 a double-mode delta Scuti variable leaving the main-sequence phase originally contributed by Alfred Gautschy.
 
 :ref:`rsp_RR_Lyrae`
 ^^^^^^^^^^^^^^^^^^^
 
-This test case checks the non-linear pulsation evolution of a 0.65 Msun, Teff = 6500 K, L = 60 Lsun, Z = 0.004 metallicity -
+This test case checks the non-linear pulsation evolution of a 0.65 |Msun|, Teff = 6500 K, L = 60 Lsun, Z = 0.004 metallicity -
 a long-period RR Lyrae model contributed by Radek Smolec.
 
 :ref:`rsp_Type_II_Cepheid`
 ^^^^^^^^^^^^^^^^^^^^^^^^^^
 
-This test case checks the non-linear pulsation evolution of a 0.55 Msun, Teff = 6410 K, L = 136 Lsun, Z = 0.0001 metallicity model -
+This test case checks the non-linear pulsation evolution of a 0.55 |Msun|, Teff = 6410 K, L = 136 Lsun, Z = 0.0001 metallicity model -
 type-II Cepheid of BL Her type based on |Smolec14|.
 
 :ref:`rsp_check_2nd_crossing`
@@ -516,12 +516,12 @@ This test case checks that RSP models can be saved and loaded to produce the sam
 ^^^^^^^^^^^^^^^^^^^^^
 
 This test case checks placement of the convective and semiconvective boundaries when using the Ledoux criterion and predictive mixing,
-see |MESA V|.The test vehicle is with a 1.5 Msun, Z=0.02 metallicity, model.
+see |MESA V|.The test vehicle is with a 1.5 |Msun|, Z=0.02 metallicity, model.
 
 :ref:`simplex_solar_calibration`
 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 
-This test case exercises the simplex framework with a check of the chi^2 value for 1.0 Msun, Z=0.02 metallicity, solar model.
+This test case exercises the simplex framework with a check of the chi^2 value for 1.0 |Msun|, Z=0.02 metallicity, solar model.
 
 :ref:`split_burn_big_net`
 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
@@ -552,13 +552,13 @@ and is based on code provided originally by Warrick Ball.
 :ref:`timing`
 ^^^^^^^^^^^^^
 
-This test checks the counter and timing routines with a 1.5 Msun, Z=0.02 metallicity model.
+This test checks the counter and timing routines with a 1.5 |Msun|, Z=0.02 metallicity model.
 
 :ref:`twin_studies`
 ^^^^^^^^^^^^^^^^^^^
 
 This test case exercise the capability to simultaneously evolve two model stars.
-The test vehicle is a pair of 15 Msun, Z=0.02 metallicity, models one with overshooting and one without overshooting.
+The test vehicle is a pair of 15 |Msun|, Z=0.02 metallicity, models one with overshooting and one without overshooting.
 
 
 :ref:`tzo`
@@ -589,17 +589,17 @@ This test case the checks the onset of a thermonuclear runaway in an accreting C
 :ref:`wd_cool_0.6M`
 ^^^^^^^^^^^^^^^^^^^
 
-This test case the checks the evolution of a cooling, element diffusing 0.6 Msun white dwarf.
+This test case the checks the evolution of a cooling, element diffusing 0.6 |Msun| white dwarf.
 
 :ref:`wd_diffusion`
 ^^^^^^^^^^^^^^^^^^^
 
-This test case the checks element diffusion in a 0.6 Msun carbon-oxygen white dwarf.
+This test case the checks element diffusion in a 0.6 |Msun| carbon-oxygen white dwarf.
 
 :ref:`wd_he_shell_ignition`
 ^^^^^^^^^^^^^^^^^^^^^^^^^^^
 
-This test case the ignition of a helium layer in an accreting in a 0.96 Msun carbon-oxygen white dwarf model.
+This test case the ignition of a helium layer in an accreting in a 0.96 |Msun| carbon-oxygen white dwarf model.
 
 :ref:`wd_nova_burst`
 ^^^^^^^^^^^^^^^^^^^^
@@ -713,7 +713,7 @@ optimise model parameters using the ``astero`` module.
 ^^^^^^^^^^^^^^^^^^^
 
 Each of these test cases runs a handful of iterations of a crude
-optimisation, principally to increase test coverage across the
+optimization, principally to increase test coverage across the
 ``astero`` module.
 
 :ref:`surface_effects`
diff --git a/docs/source/using_mesa/best_practices.rst b/docs/source/using_mesa/best_practices.rst
index c74a1e26e..7ad63c90c 100644
--- a/docs/source/using_mesa/best_practices.rst
+++ b/docs/source/using_mesa/best_practices.rst
@@ -46,68 +46,17 @@ Begin in the directory where you do your MESA work.
 
   cp -r $MESA_DIR/star/test_suite/semiconvection .
 
-There are four files to edit. First, modify ``make/makefile``:
+In old MESA revisions, there were hard-coded references in the test_suite to set the variable ``MESA_DIR = ../../../..``  . 
+This practice has been removed in current revisions. If you are running this tutorial with an old revision of MESA, comment out or delete that line in the 
+makefile, the ``rn`` script, the ``ck`` script, and in ``inlist_semiconvection_header``. If you are running with any MESA revision after r23.05.1, ignore this comment and read on.
 
-.. code-block:: console
-
-   cd semiconvection
-   cd make
-
-   Edit makefile, changing
-
-       MESA_DIR = ../../../..
-
-   to 
-
-       # MESA_DIR = ../../../..
-  
-   Save the file change in your editor, and
-
-   cd ../
-
-Second, modify the ``rn`` script:
+Now clean the directory, 
 
 .. code-block:: console
 
-   Edit rn, changing
-
-       MESA_DIR=../../.. 
-
-   to
-
-       # MESA_DIR=../../.. 
-
-   and save the file change.
-
-Third, modify the ``ck`` script:
-
-.. code-block:: console
-
-   Edit ck, changing
-
-       MESA_DIR=../../..
-
-   to
-
-       # MESA_DIR=../../..
-
-   and save the file change.
-
-Fourth, modify ``inlist_semiconvection_header``:
-
-.. code-block:: console
-
-   Edit inlist_semiconvection_header, changing
-
-       mesa_dir = '../../..'
-
-   to 
-
-      !mesa_dir = '../../..'
-
-   and save the file change.
+   ./clean
 
-Now build the executable 
+build the executable, 
 
 .. code-block:: console
 
diff --git a/docs/source/using_mesa/building_inlists.rst b/docs/source/using_mesa/building_inlists.rst
index 26389c59b..db9493983 100644
--- a/docs/source/using_mesa/building_inlists.rst
+++ b/docs/source/using_mesa/building_inlists.rst
@@ -14,7 +14,7 @@ In this section of the inlist, you'll have to make choices for which atmosphere
 You will also specify here some information about your starting model, and about the output of the evolution.
 Here we describe only some of the most commonly used controls. For a complete list of available controls see :ref:`reference/star_job:star_job`. 
 
-starting model
+Starting model
 --------------
 
 To start an evolution you can either create a pre main sequence model and start from there (case 1) or you can start from a previously calculated model (case 2). In the latter case, it is highly recommended to start from a model which was calculated with the same MESA version as the one used for the subsequent evolution.
@@ -31,7 +31,7 @@ Case 2:
    :start-after: ! Start Case 2
    :end-before: ! Output history
 
-output
+Output
 ------
 
 There are a number of controls to specify what we want as MESA outputs.
@@ -58,14 +58,14 @@ You can also use pre-defined chemical compositions based on published data. Thes
 By default, the initial composition in MESA is ``initial_zfracs = 3`` which corresponds to the `GS98 <https://link.springer.com/article/10.1023%2FA%3A1005161325181>`__ metal fraction. There are 8 possible predefined choices for this control in MESA.
 
 If you want for example to use the more recent available solar composition given in `AGSS09 <https://www.annualreviews.org/doi/pdf/10.1146/annurev.astro.46.060407.145222>`__ , you need to set ``initial_zfracs = 6``.
-Since it is very important to use the opacity tables which are built using the solar composition used, we also have to set the ``kappa_file_prefix`` to the 2009 solar composition (the default table corresponds to the gs98 composition).
+Since it is very important to use the opacity tables which are built using the solar composition used, we also have to set the ``kap_file_prefix`` to the 2009 solar composition (the default table corresponds to the gs98 composition).
 
 .. literalinclude:: inlist_example
    :start-after: ! Modifications to model
    :end-before: ! Nuclear reactions
 
 
-nuclear reactions
+Nuclear reactions
 -----------------
 
 Choice of network of nuclear reactions. This network should be chosen according to the physics to be studied. Choosing a very comprehensive set of nuclear reactions when studying main sequence evolution is not necessary and will slow down the computation considerably. It would however be essential when studying advanced burning stages of evolution. The description of the available nuclear reactions networks in MESA is given in the README file in ``$MESA_DIR/data/net_data``. The default reactions network used by MESA is ``basic.net``.
diff --git a/docs/source/using_mesa/extending_mesa.rst b/docs/source/using_mesa/extending_mesa.rst
index 1dba036d2..1c5cefd2f 100644
--- a/docs/source/using_mesa/extending_mesa.rst
+++ b/docs/source/using_mesa/extending_mesa.rst
@@ -176,7 +176,7 @@ Let's indicate that we want to add two columns to our history file.
 
 Now let's calculate the information we want to output. This subroutine
 has access to the star_info pointer, so you can make use of any of the
-quantities defined in star/public/star_data.inc to compute additional
+quantities defined in star/public/star_data_*.inc to compute additional
 information about the star. Here's a subroutine that calculates what we
 want to know. There are a few “best practices” shown in this routine
 that are worth remembering, so read through the code and pay attention
@@ -215,19 +215,19 @@ to the comments.
         edot_partial = edot_partial + s% dm(i) * s% eps_nuc(i)
         if (edot_partial .ge. (frac * edot)) exit
      end do
-  
+
      ! note: do NOT add these names to history_columns.list
      ! the history_columns.list is only for the built-in log column options.
      ! it must not include the new column names you are adding here.
-  
+
      ! column 1
      names(1) = "m90"
      vals(1) = s% q(i) * s% star_mass  ! in solar masses
-  
+
      ! column 2
      names(2) = "log_R90"
-     vals(2) = safe_log10_cr(s% R(i) / rsol) ! in solar radii
-  
+     vals(2) = log10(s% R(i) / rsun) ! in solar radii
+
      ierr = 0
   end subroutine data_for_extra_history_columns
 
@@ -266,18 +266,18 @@ Here I've just uncommented the stock example.
      ierr = 0
      call star_ptr(id, s, ierr)
      if (ierr /= 0) return
-  
+
      ! note: do NOT add the extra names to profile_columns.list
      ! the profile_columns.list is only for the built-in profile column options.
      ! it must not include the new column names you are adding here.
-  
+
      ! here is an example for adding a profile column
      if (n /= 1) stop 'data_for_extra_profile_columns'
      names(1) = 'beta'
      do k = 1, nz
-        vals(k,1) = s% Pgas(k)/s% P(k)
+        vals(k,1) = s% Pgas(k)/s% Peos(k)
      end do
-  
+
   end subroutine data_for_extra_profile_columns
 
 Choosing when to output history or profiles
@@ -376,7 +376,7 @@ condition can be expressed as "stop when quantity X rises above or falls
 below some limit", there's a good chance that you can choose to stop
 simply by setting a few existing flags. Take a look at the "when to
 stop" section of star/defaults/controls.defaults, which starts around
-line 230.
+line 940.
 
 If your condition isn't there or is a more complicated logical
 combination of conditions, then you will probably need to implement it
@@ -409,7 +409,7 @@ neon burning.
   
     ! if you want to check multiple conditions, it can be useful
     ! to set a different termination code depending on which
-    ! condition was triggered.  MESA provides 9 customizeable
+    ! condition was triggered.  MESA provides 9 customizable
     ! termination codes, named t_xtra1 .. t_xtra9.  You can
     ! customize the messages that will be printed upon exit by
     ! setting the corresponding termination_code_str value.
@@ -464,7 +464,8 @@ run_star_extras.f90.
 
 .. literalinclude:: ../../../star/other/other_neu.f90
    :language: fortran
-   :lines: 41-65
+   :start-at: subroutine null_other_neu
+   :end-at: end subroutine null_other_neu
 
 This template routine illustrates the interface and as is, it will
 produce exactly the same results as the default MESA routine. This is
@@ -548,7 +549,7 @@ the other_neu at the routine you want to be executed.
      if (ierr /= 0) return
   
      ! this is the place to set any procedure pointers you want to change
-     ! e.g., other_wind, other_mixing, other_energy  (see star_data.inc)
+     ! e.g., other_wind, other_mixing, other_energy  (see star_data_procedures.inc)
      s% other_neu => tutorial_other_neu
   
   end subroutine extras_controls
diff --git a/docs/source/using_mesa/just_a_module.rst b/docs/source/using_mesa/just_a_module.rst
index efbf995df..116b13b8f 100644
--- a/docs/source/using_mesa/just_a_module.rst
+++ b/docs/source/using_mesa/just_a_module.rst
@@ -129,7 +129,7 @@ Now take some time to explore the makefile, and use it to build the executable
 
      make
 
-Run the executable, named sample_kap, whoech reads a mesa model file and writes out the opacity and its derivatives at each cell
+Run the executable, named sample_kap, which reads a mesa model file and writes out the opacity and its derivatives at each cell
 
 .. code-block:: console
 
diff --git a/docs/source/using_mesa/output.rst b/docs/source/using_mesa/output.rst
index a6e4a42af..20e35d162 100644
--- a/docs/source/using_mesa/output.rst
+++ b/docs/source/using_mesa/output.rst
@@ -12,8 +12,8 @@ are text-based and can fed into your favorite plotting program. You
 should visit the
 `Add-ons <http://cococubed.com/mesa_market/add-ons.html>`__ section
 of the MESA forum and see if someone has contributed code in your
-language of choice. (There are reasonably mature routines for python,
-IDL, ruby and Mathematica.) An example of python plotting is shown
+language of choice. (There are reasonably mature routines for Python,
+IDL, ruby and Mathematica.) An example of Python plotting is shown
 `later on this page <#python>`__.
 
 In the LOGS directory, you'll find the following files.
@@ -104,7 +104,7 @@ the `numpy <http://www.numpy.org>`__ and
 While you may want to write your own tools to read and analyze the
 output of your MESA calculations, `many already
 exist <http://cococubed.com/mesa_market/add-ons.html>`__. In that
-vein, we introduce a simple module for use in python scripts and
+vein, we introduce a simple module for use in Python scripts and
 interactive sessions called ``mesa_reader``, which only requires
 `numpy <http://www.numpy.org>`__.
 
@@ -116,17 +116,30 @@ to read in the contents of a typical ``LOGS`` directory. These three
 classes are called ``MesaData``, which corresponds to data in profiles
 or history files, ``MesaProfileIndex``, which corresponds to data found
 in ``profiles.index``, and ``MesaLogDir``, which ties together data in
-profiles, the profile index, and the history file.
+profiles, the profile index, and the history file. 
+Full documentation for how MESA Reader is installed and how to use the
+three classes can be found at the project's `GitHub
+repository <https://github.com/wmwolf/py_mesa_reader>`__ and
+accompanying
+`documentation <https://wmwolf.github.io/py_mesa_reader>`__. 
+
+How to install MESA Reader?
+~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+The most stable release of `mesa_reader` can be installed
+through 
+`pip <https://pip.pypa.io/en/stable>`__
+via
+
+.. code:: console
+
+   pip install mesa_reader
+
 
 Examples
 ~~~~~~~~
 
-Full documentation for how MESA Reader is installed and how to use the
-three classes can be found at the project's `Github
-repository <https://github.com/wmwolf/py_mesa_reader>`__ and
-accompanying
-`documentation <https://wmwolf.github.io/py_mesa_reader>`__. Below, we
-show some simple example use cases of MESA Reader.
+Below, we show some simple example use cases of MESA Reader.
 
 The Basics
 ^^^^^^^^^^
diff --git a/eos/eosDT_builder/src/create_eos_files.f b/eos/eosDT_builder/src/create_eos_files.f
index 6ca2a5edd..f4ecd2eec 100644
--- a/eos/eosDT_builder/src/create_eos_files.f
+++ b/eos/eosDT_builder/src/create_eos_files.f
@@ -21,13 +21,13 @@
 ! ***********************************************************************
 
       program create_eosDT_files
-		use eos_def
-		use helm
-		use helm_alloc
-		use helm_opal_scvh_driver
-		use const_def
+            use eos_def
+            use helm
+            use helm_alloc
+            use helm_opal_scvh_driver
+            use const_def
       use const_lib
-		
+            
       implicit none
 
 
@@ -45,11 +45,11 @@ program create_eosDT_files
       real(dp) :: logT_max
 
 
-		integer, parameter :: version_number = 51 ! update this to force rebuiding of caches
-		! update min_version in eosDT_load_tables to force rebuild of data files
+            integer, parameter :: version_number = 51 ! update this to force rebuiding of caches
+            ! update min_version in eosDT_load_tables to force rebuild of data files
 
       integer :: ix, io_unit, ios, info, irad
-		real(dp) :: whichz
+            real(dp) :: whichz
 
       ! control what is done by saving the Z in whichz.txt and, if necessary, setting the Xs below
       
@@ -57,7 +57,7 @@ program create_eosDT_files
       real(dp) :: Xs(num_Xs)
       
       Xs(1:num_Xs) = (/ 0.80d0, 0.00d0, 0.20d0, 0.40d0, 0.60d0 /)
-		
+            
       io_unit = 40
       open(UNIT=io_unit, FILE=trim("whichz.txt"), ACTION='READ', STATUS='OLD', IOSTAT=ios)
       if (ios /= 0) call do_stop('failed to open whichz.txt')
@@ -95,8 +95,8 @@ end subroutine do_stop
 
       
       subroutine Make_EoS_Files(Z_in, X_in, include_radiation)
-		use helm_opal_scvh_driver
-		
+            use helm_opal_scvh_driver
+            
       real(dp), intent(in) :: Z_in, X_in
       logical, intent(in) :: include_radiation
       
@@ -110,8 +110,8 @@ subroutine Make_EoS_Files(Z_in, X_in, include_radiation)
      >      mu, free_e, gamma1, gamma3, grad_ad, eta, HELM_fraction
       character (len=64) :: fname_prefix
       
-		logical :: helm_only = .false., opal_scvh_only = .false., 
-     >			opal_only = .false., scvh_only = .false., search_for_SCVH = .true.
+            logical :: helm_only = .false., opal_scvh_only = .false., 
+     >                  opal_only = .false., scvh_only = .false., search_for_SCVH = .true.
       
       !opal_only = .true.
       scvh_only = .true.
@@ -123,7 +123,7 @@ subroutine Make_EoS_Files(Z_in, X_in, include_radiation)
       call get_composition_info(X, Z, abar, zbar, z53bar)
 
 !..other initialization
-		info = 0
+            info = 0
       
       if (opal_only) then
          fname_prefix = '/eosOPAL_data/mesa-OPAL_0'
@@ -155,7 +155,7 @@ subroutine Make_EoS_Files(Z_in, X_in, include_radiation)
          write(fname,'(a,a,i1,a)') trim(dir), trim(fname_prefix), floor(100d0*Z + 0.5d0), 'z00x.data'
       else if (X < 1) then
          write(fname,'(a,a,i1,a,i2,a)') trim(dir), trim(fname_prefix), 
-     >		floor(100d0*Z + 0.5d0), 'z', floor(100d0*X + 0.5d0), 'x.data'
+     >            floor(100d0*Z + 0.5d0), 'z', floor(100d0*X + 0.5d0), 'x.data'
       else
          fname = trim(dir) // trim(fname_prefix) // '0z100x.data'
       end if
@@ -165,11 +165,11 @@ subroutine Make_EoS_Files(Z_in, X_in, include_radiation)
       open(unit=io_unit,file=trim(fname))
       
       write(io_unit,'(99(a14))') 'version', 'X', 'Z', 'num logTs', 'logT min', 'logT max', 'del logT', 
-     1		'num logQs', 'logQ min', 'logQ max', 'del logQ'
+     1            'num logQs', 'logQ min', 'logQ max', 'del logQ'
       
       write(io_unit,'(i14,2f14.4,2(i10,4x,3(f14.4)))') 
      >      version_number, X, Z, num_logTs, logT_min, logT_max, del_logT,
-     >		num_logQs, logQ_min, logQ_max, del_logQ
+     >            num_logQs, logQ_min, logQ_max, del_logQ
 
       do i = 1, num_logQs
          logQ = logQ_min + (i-1) * del_logQ
@@ -189,14 +189,14 @@ subroutine Make_EoS_Files(Z_in, X_in, include_radiation)
             info = 0
             call helm_opal_scvh(
      >            helm_only, opal_scvh_only, opal_only, scvh_only, search_for_SCVH,
-     >				include_radiation, logT, logRho, T, Rho, abar, zbar, z53bar, X, Z,
+     >                        include_radiation, logT, logRho, T, Rho, abar, zbar, z53bar, X, Z,
      >            logPgas, logE, logS, chiRho, chiT, Cp, Cv, dE_dRho, dS_dT, dS_dRho, 
      >            mu, free_e, gamma1, gamma3, grad_ad, eta, HELM_fraction, data_dir, info)
-				if (info /= 0) then
-					write(*,*) 'logT', logT
-					write(*,*) 'logRho', logRho
-					call do_stop('failed in helm_opal_scvh')
-				end if
+                        if (info /= 0) then
+                              write(*,*) 'logT', logT
+                              write(*,*) 'logRho', logRho
+                              call do_stop('failed in helm_opal_scvh')
+                        end if
 
             write(io_unit,'(f4.2,3(f10.5),7(1pe13.5),1(0pf9.5),4(0pf10.5),2(0pf11.5))') 
      >         logT, logPgas, logE, logS, chiRho, chiT, Cp, Cv, dE_dRho, dS_dT, dS_dRho, 
diff --git a/eos/eosDT_builder/src/eos5_xtrin_h-he.f b/eos/eosDT_builder/src/eos5_xtrin_h-he.f
index c2f22c94c..48277b12d 100644
--- a/eos/eosDT_builder/src/eos5_xtrin_h-he.f
+++ b/eos/eosDT_builder/src/eos5_xtrin_h-he.f
@@ -52,7 +52,7 @@ subroutine esac_hhe (xh,t6,r,iorder,irad,filename,results_out,pgas_out,prad_out,
 c
       save
       double precision results_out(iorder), pgas_out, prad_out
-		integer info ! returned = 0 if AOK
+      integer info ! returned = 0 if AOK
       character (len=*) filename
       integer w
       real moles
@@ -85,7 +85,7 @@ subroutine esac_hhe (xh,t6,r,iorder,irad,filename,results_out,pgas_out,prad_out,
          stop
       endif
 
-		info = 0
+      info = 0
       xxi=xh
       ri=r
 c
@@ -355,22 +355,22 @@ subroutine esac_hhe (xh,t6,r,iorder,irad,filename,results_out,pgas_out,prad_out,
       return
 
    61 continue
-		info = -61; return
-		write(*,'(" Mass fractions exceed unity (61)")')
+      info = -61; return
+      write(*,'(" Mass fractions exceed unity (61)")')
       stop 1
    62 continue
-		info = -62; return
-		write(*,'(" T6/LogR outside of table range (62)")')
+      info = -62; return
+      write(*,'(" T6/LogR outside of table range (62)")')
       write(*,*) 'T6', t6, 'LogR', log10(r), 'LogT', log10(t6*1d6)
       stop 1
    65 continue
-		info = -65; return
-		write(*,'("T6/log rho in empty region od table (65)")')
+      info = -65; return
+      write(*,'("T6/log rho in empty region od table (65)")')
       write (*,'("xh,t6,r=", 3e12.4)') xh,t6,r
       stop 1
    66 continue
-		info = -66; return
-		write(*,'(" Z does not match Z in EOS5_data* files you are",
+      info = -66; return
+      write(*,'(" Z does not match Z in EOS5_data* files you are",
      . " using (66)")')
       write (*,'("mf,zz(mf)=",i5,e12.4)') mf,zz(mf)
       write (*,'("  iq,ip,k3,l3,xh,t6,r,z= ",4i5,4e12.4)')
@@ -492,9 +492,9 @@ subroutine readcoeos_hhe(filename)
 !..... read  tables
 !       call system (' gunzip EOS5_data_H-He')
 !       open(2, FILE='EOS5_data_H-He')
-		
-		write(*,*) 'read ' // trim(filename)
-		
+      
+      write(*,*) 'read ' // trim(filename)
+      
        open(2, FILE=trim(filename), IOSTAT=ios)
       if (ios .ne. 0) then
          write(*,*) 'failed to open ', trim(filename)
diff --git a/eos/eosDT_builder/src/opal_core.f b/eos/eosDT_builder/src/opal_core.f
index 0fab773bc..47342e4d3 100644
--- a/eos/eosDT_builder/src/opal_core.f
+++ b/eos/eosDT_builder/src/opal_core.f
@@ -8,9 +8,9 @@ subroutine opal_eos (xh_in,ztab_in,t6_in,r_in,iorder,irad,results_out,pgas_out,p
 c           included only for purpose of preventing mismatch
 c        t6=T6=temperature in millions of degrees kelvin
 c        r=rho=Rho=density(g/cm**3)
-c      	iorder=11  ! gives all 1st and 2nd order data. See instructions
+c            iorder=11  ! gives all 1st and 2nd order data. See instructions
 c                  in esac.
-c      	irad=0    ! if 1, then adds radiation corrections
+c            irad=0    ! if 1, then adds radiation corrections
 c        results   ! array of length iorder to hold the results
 c            results(1) is the pressure in megabars (10**12dyne/cm**2)
 c            results(2) is energy in 10**12 ergs/gm. Zero is zero T6
@@ -25,7 +25,7 @@ subroutine opal_eos (xh_in,ztab_in,t6_in,r_in,iorder,irad,results_out,pgas_out,p
 c            results(9) is gamma2/(gamma2-1). Eqs. 9.88 Cox and Guili
 c            results(10) is mu_M
 c            results(11) is log_Ne
-		integer info ! returned = 0 if AOK
+      integer info ! returned = 0 if AOK
       character (len=256) data_dir, filename
       parameter (mx=5,mv=12,nr=169,nt=197)
       common/eeos/esact,eos(mv)
@@ -56,7 +56,7 @@ subroutine opal_eos (xh_in,ztab_in,t6_in,r_in,iorder,irad,results_out,pgas_out,p
       end if
       
       call esac(xh,ztab,t6,r,iorder,irad,filename,pgas_out,prad_out,info)
-		if (info /= 0) return
+      if (info /= 0) return
       do j=1,iorder
          results_out(j) = eos(j)
       end do
@@ -110,7 +110,7 @@ subroutine esac (xh,ztab,t6,r,iorder,irad,filename,pgas_out,prad_out,info)
 c
       save
       double precision pgas_out, prad_out
-		integer info ! returned = 0 if AOK
+      integer info ! returned = 0 if AOK
       character (len=*) filename
       real moles
       parameter (mx=5,mv=12,nr=169,nt=197)
@@ -127,7 +127,7 @@ subroutine esac (xh,ztab,t6,r,iorder,irad,filename,pgas_out,prad_out,info)
       dimension frac(7)
       data aprop/83.14511/
 
-		info = 0
+      info = 0
       blank=' '
       if (iorder .gt. mv ) then
          write (*,*) ' iorder cannot exceed ', mv
@@ -158,10 +158,10 @@ subroutine esac (xh,ztab,t6,r,iorder,irad,filename,pgas_out,prad_out,info)
         call readcoeos(filename)
         z=zz(1)
         if (ztab .ne. z) then
-        		write (*,'("requested z=",f10.6," EOS5_data is for z=",
+              write (*,'("requested z=",f10.6," EOS5_data is for z=",
      x             f10.6)')
-     x    		ztab,z      
-        		stop 1
+     x          ztab,z      
+              stop 1
         endif
 
         if (.false.) then ! report grid
@@ -264,7 +264,7 @@ subroutine esac (xh,ztab,t6,r,iorder,irad,filename,pgas_out,prad_out,info)
         ipu=3
         if (k4 .gt. nt) ipu=2
       if (k3 .eq. 0) then
-      		write (*,'(" ihi,ilo,imd",3i5)')
+            write (*,'(" ihi,ilo,imd",3i5)')
       endif
 
 c     check to determine if interpolation indices fall within
@@ -412,22 +412,22 @@ subroutine esac (xh,ztab,t6,r,iorder,irad,filename,pgas_out,prad_out,info)
       return
 
    61 continue
-		info = -61; return
-		write(*,'(" Mass fractions exceed unity (61)")')
+      info = -61; return
+      write(*,'(" Mass fractions exceed unity (61)")')
       stop 1
    62 continue
-		info = -62; return
-		write(*,'(" T6/LogR outside of table range (62)")')
+      info = -62; return
+      write(*,'(" T6/LogR outside of table range (62)")')
       write(*,*) 'T6', t6, 'LogR', log10(r), 'LogT', log10(t6*1d6)
       stop 1
    65 continue
-		info = -65; return
-		write(*,'("T6/log rho in empty region od table (65)")')
+      info = -65; return
+      write(*,'("T6/log rho in empty region od table (65)")')
       write (*,'("xh,t6,r=", 3e12.4)') xh,t6,r
       stop 1
    66 continue
-		info = -66; return
-		write(*,'(" Z does not match Z in EOS5_data* files you are",
+      info = -66; return
+      write(*,'(" Z does not match Z in EOS5_data* files you are",
      . " using (66)")')
       write (*,'("mf,zz(mf)=",i5,e12.4)') mf,zz(mf)
       write (*,'("  iq,ip,k3,l3,xh,t6,r,z= ",4i5,4e12.4)')
@@ -549,9 +549,9 @@ subroutine readcoeos(filename)
 !..... read  tables
 c       call system (' gunzip EOS5_data')
 c       open(2, FILE='EOS5_data')
-		
-		write(*,*) 'read ' // trim(filename)
-		
+      
+      write(*,*) 'read ' // trim(filename)
+      
        open(2, FILE=trim(filename), IOSTAT=ios)
       if (ios .ne. 0) then
          write(*,*) 'failed to open ', trim(filename)
diff --git a/eos/private/create_EXCOR7_table.f90 b/eos/private/create_EXCOR7_table.f90
index 78cd90f25..bed070e47 100644
--- a/eos/private/create_EXCOR7_table.f90
+++ b/eos/private/create_EXCOR7_table.f90
@@ -120,11 +120,11 @@ subroutine EXCOR7(RS,GAME,FXC,UXC,PXC,CVXC,SXC,PDTXC,PDRXC)
       real(dp) :: S1, S1H, S1DH, S1DHH, S1DG, S1DHG
       real(dp) :: B2, B2DH, B2DHH, SQGE, B3, B3DH, B3DHH
       real(dp) :: S2, S2H, S2DH, S2DHH, S2DG, S2DGG, S2DHG
-      real(dp) :: R3, R3H, R3DH, R3DHH, R3DG, R3DGG, R3DHG
+      real(dp) :: R3, R3DH, R3DHH, R3DG, R3DGG, R3DHG
       real(dp) :: S3, S3DH, S3DHH, S3DG, S3DGG, S3DHG
       real(dp) :: B4, B4DH, B4DHH
       real(dp) :: C4, C4DH, C4DHH, C4DG, C4DGG, C4DHG
-      real(dp) :: S4A, S4AH, S4ADH, S4ADHH, S4ADG, S4ADGG, S4ADHG
+      real(dp) :: S4A, S4AH, S4ADH, S4ADHH
       real(dp) :: S4B, S4BDH, S4BDHH, UP1, DN1, UP2, DN2
       real(dp) :: S4C, S4CDH, S4CDHH, S4CDG, S4CDGG, S4CDHG
       real(dp) :: S4, S4DH, S4DHH, S4DG, S4DGG, S4DHG
diff --git a/eos/private/eos_ctrls_io.f90 b/eos/private/eos_ctrls_io.f90
index 3970d8465..6d3f76339 100644
--- a/eos/private/eos_ctrls_io.f90
+++ b/eos/private/eos_ctrls_io.f90
@@ -276,7 +276,6 @@ subroutine read_namelist(handle, inlist, ierr)
       character (len=*), intent(in) :: inlist
       integer, intent(out) :: ierr ! 0 means AOK.
       type (EoS_General_Info), pointer :: rq
-      integer :: iz, j
       include 'formats'
       call get_eos_ptr(handle,rq,ierr)
       if (ierr /= 0) return
@@ -298,7 +297,6 @@ recursive subroutine read_controls_file(rq, filename, level, ierr)
       integer, intent(in) :: level
       integer, intent(out) :: ierr
       logical, dimension(max_extra_inlists) :: read_extra
-      character (len=strlen) :: message
       character (len=strlen), dimension(max_extra_inlists) :: extra
       integer :: unit, i
 
diff --git a/eos/private/eoscms_eval.f90 b/eos/private/eoscms_eval.f90
index a350a3968..c3d793112 100644
--- a/eos/private/eoscms_eval.f90
+++ b/eos/private/eoscms_eval.f90
@@ -181,7 +181,7 @@ subroutine get_CMS_for_eosdt( &
       real(dp) :: dres1_dlnT(nv), dres2_dlnT(nv), dres3_dlnT(nv), dres4_dlnT(nv)
       real(dp) :: dres1_dlnRho(nv), dres2_dlnRho(nv), dres3_dlnRho(nv), dres4_dlnRho(nv)
       real(dp) :: d_dX(nv)
-      real(dp) :: alfa, beta, dbeta_dX, dalfa_dX, xx(4), y(4), a(3), dw, dX
+      real(dp) :: alfa, beta, dbeta_dX, dalfa_dX, xx(4), y(4), a(3), dX
       rq => eos_handles(handle)
 
       if(rq% CMS_use_fixed_composition)then !do fixed composition (one table only)
diff --git a/eos/private/eosdt_eval.f90 b/eos/private/eosdt_eval.f90
index fc8afd6f8..334605582 100644
--- a/eos/private/eosdt_eval.f90
+++ b/eos/private/eosdt_eval.f90
@@ -1075,14 +1075,12 @@ subroutine get_opal_scvh_alfa_and_partials( &
          real(dp) :: logRho1_max, logRho1, logRho2, logRho5, logRho6, logRho7, &
             logRho8, logT5, logT6, logT3, logT4
          real(dp) :: logQ1, logQ2, logQ3, logQ4, logQmax, Z_all_HELM, Z_no_HELM
-         real(dp) :: beta, logRho_lo, logRho_hi, &
+         real(dp) :: beta, &
             logT1, logT2, logT7, logT8, logRho3, logRho4
          real(dp) :: logQ, A, B, dA_dlnT, dA_dlnRho, dB_dlnT, dB_dlnRho
          real(dp) :: c_dx, c_dy, d_dx_dlogT, d_dx_dlogRho, d_dy_dlogT, d_dy_dlogRho
          real(dp), parameter :: tiny = 1d-20
          
-         logical :: debug
-         
          include 'formats'
 
          logRho1_max = 3.71d0
diff --git a/eos/private/eosdt_load_tables.f90 b/eos/private/eosdt_load_tables.f90
index db5b365d0..170344cf8 100644
--- a/eos/private/eosdt_load_tables.f90
+++ b/eos/private/eosdt_load_tables.f90
@@ -575,7 +575,7 @@ subroutine Read_EoS_Cache(X, Z, ep, cache_filename, io_unit, ios)
 
          real(dp) :: X_in, Z_in, logT_min_in, logT_max_in, del_logT_in,  &
                logQ_min_in, logQ_max_in, del_logQ_in
-         integer :: num_logQs_in, num_logTs_in, version_in, i, j
+         integer :: num_logQs_in, num_logTs_in, version_in
          real(dp), parameter :: tiny = 1d-10
          
          include 'formats'
diff --git a/eos/private/helm.f90 b/eos/private/helm.f90
index a8cbc1d3b..80c3d4d2c 100644
--- a/eos/private/helm.f90
+++ b/eos/private/helm.f90
@@ -110,8 +110,7 @@ subroutine helmeos2aux( &
       
 !..for the interpolations
       integer          iat, jat
-      real(dp) dth, dt2, dti, dt2i, dt3i, dd, dd2, ddi, dd2i, dd3i, &
-                       xt, xd, mxt, mxd, fi(36), &
+      real(dp) xt, xd, mxt, mxd, fi(36), &
                        din, dindd, dinda, dindz, dindda, dinddz, dindaa, &
                        dindaz, dindzz, dinddaa, dinddaz, &
                        w0t, w1t, w2t, w0mt, w1mt, w2mt, &
diff --git a/eos/private/ideal.f90 b/eos/private/ideal.f90
index e1e05e4f8..44bc682fd 100644
--- a/eos/private/ideal.f90
+++ b/eos/private/ideal.f90
@@ -72,8 +72,6 @@ subroutine get_ideal_eos_results( &
    integer, intent(out) :: ierr
    real(dp), intent(out), dimension(nv) :: res, d_dlnd, d_dlnT
    real(dp), intent(out), dimension(nv, species) :: d_dxa
-   
-   real(dp) :: logT_ion, logT_neutral
 
    ierr = 0
 
diff --git a/eos/private/ion_offset.f90 b/eos/private/ion_offset.f90
index 21dcd8c89..8485578d3 100644
--- a/eos/private/ion_offset.f90
+++ b/eos/private/ion_offset.f90
@@ -35,7 +35,7 @@ real(dp) function compute_ion_offset(species, xa, chem_id) result(offset)
                                                    23221.0,25820.0,28582.0,31514.0,34619.0,37899.0,41356.0]
 
          integer :: k, Z(species)
-         real(dp) :: A(species), W(species), ya(species), norm
+         real(dp) :: A(species), ya(species), norm
 
          ! Get basic species info
          norm = 0d0
diff --git a/eos/private/pc_support.f90 b/eos/private/pc_support.f90
index ec436fd93..b7e7a0b12 100644
--- a/eos/private/pc_support.f90
+++ b/eos/private/pc_support.f90
@@ -58,7 +58,7 @@ subroutine get_FITION9(GAMI, &
       integer, parameter :: iPDTii = 5
       integer, parameter :: iPDRii = 6 
       real(dp) :: lnGAMI_min, lnGAMI_max, dlnGAMI, lnGAMI
-      integer :: nlnGAMI, i, j, k_old
+      integer :: nlnGAMI, k_old
       real(dp) :: xk_old, xkp1_old, xk_new, delta
       real(dp), pointer, dimension(:,:) :: f_1, f_2, f_3, f_4, f_5, f_6
       
@@ -226,7 +226,7 @@ subroutine get_FSCRliq8(iZion, RS, GAME, &
       logical, intent(out) :: skip
       integer, intent(out) :: ierr
       
-      integer :: iRS, jGAME, i
+      integer :: iRS, jGAME
       real(dp) :: lnRS, lnRS0, lnRS1, lnGAME, lnGAME0, lnGAME1
       real(dp), dimension(nvals_FSCRliq8) :: fval, df_dlnRS, df_dlnGAME
       type (eosPC_Support_Info), pointer :: fq
@@ -309,7 +309,7 @@ subroutine get_EXCOR7(RS, GAME, &
       logical, intent(out) :: skip
       integer, intent(out) :: ierr
       
-      integer :: iRS, jGAME, i
+      integer :: iRS, jGAME
       real(dp) :: lnRS, lnRS0, lnRS1, lnGAME, lnGAME0, lnGAME1
       real(dp), dimension(nvals_EXCOR7) :: fval, df_dlnRS, df_dlnGAME
       type (eosPC_Support_Info), pointer :: fq
@@ -570,7 +570,7 @@ subroutine load_eosPC_support_Info(fq, iZion, ierr)
       integer, intent(in) :: iZion ! 0 means EXCOR7
       integer, intent(out) :: ierr
       
-      integer :: io_unit, n, j, i, k, iQ, nparams, nvals
+      integer :: io_unit, n, j, i, iQ, nparams, nvals
       character (len=256) :: filename, fname, cache_fname, temp_cache_fname
       character (len=1000) :: message
       real(dp), pointer :: tbl2_1(:), tbl2(:,:,:)
@@ -812,22 +812,19 @@ subroutine Make_Interpolation_Data(fq, nvals, tbl2_1, ierr)
 
       real(dp), allocatable, target :: f1_ary(:) ! data & spline coefficients
       real(dp), pointer :: f1(:), f(:,:,:), tbl2(:,:,:)
-      integer :: ibcxmin                   ! bc flag for x=xmin
+      integer :: ibcxmin                 ! bc flag for x=xmin
       real(dp) :: bcxmin(fq% nlnGAME)    ! bc data vs. y at x=xmin
-      integer :: ibcxmax                   ! bc flag for x=xmax
-      real(dp) :: bcxmax(fq% nlnGAME)     ! bc data vs. y at x=xmax
-      integer :: ibcymin                   ! bc flag for y=ymin
-      real(dp) :: bcymin(fq% nlnRS)   ! bc data vs. x at y=ymin
-      integer :: ibcymax                   ! bc flag for y=ymax
-      real(dp) :: bcymax(fq% nlnRS)   ! bc data vs. x at y=ymax
-      integer :: ili_lnRSs    ! =1: logRho grid is "nearly" equally spaced
+      integer :: ibcxmax                 ! bc flag for x=xmax
+      real(dp) :: bcxmax(fq% nlnGAME)    ! bc data vs. y at x=xmax
+      integer :: ibcymin                 ! bc flag for y=ymin
+      real(dp) :: bcymin(fq% nlnRS)      ! bc data vs. x at y=ymin
+      integer :: ibcymax                 ! bc flag for y=ymax
+      real(dp) :: bcymax(fq% nlnRS)      ! bc data vs. x at y=ymax
+      integer :: ili_lnRSs        ! =1: logRho grid is "nearly" equally spaced
       integer :: ili_lnGAMEs      ! =1: lnGAME grid is "nearly" equally spaced
-      integer :: ier            ! =0 on exit if there is no error.
-      integer :: iQ, jtemp, ilnGAME, ilnRS
-      real(dp) :: fval(nvals), df_dx(nvals), df_dy(nvals)
+      integer :: ier              ! =0 on exit if there is no error.
             
-      integer :: v, vlist(3), var, i, j, ii, jj
-      character (len=256) :: message
+      integer :: v, i, j
       
       include 'formats'
 
@@ -893,7 +890,7 @@ subroutine Read_Cache(fq, cache_fname, ierr)
 
       real(dp) :: lnGAME_min_in, lnGAME_max_in, dlnGAME_in,  &
             lnRS_min_in, lnRS_max_in, dlnRS_in
-      integer :: Zion_in, nlnRS_in, nlnGAME_in, io_unit, i, j
+      integer :: Zion_in, nlnRS_in, nlnGAME_in, io_unit
       real(dp), parameter :: tiny = 1d-10
       
       include 'formats'
diff --git a/eos/private/skye_coulomb.f90 b/eos/private/skye_coulomb.f90
index 953c52c3b..0d9e4dc97 100644
--- a/eos/private/skye_coulomb.f90
+++ b/eos/private/skye_coulomb.f90
@@ -49,9 +49,9 @@ subroutine nonideal_corrections(NMIX,AY,AZion,ACMI, min_gamma_for_solid, max_gam
 
       integer :: IX
       integer :: LIQSOL
-      real(dp) :: Zion, Zmean, Z2mean, Z52, Z53, Z321, norm
+      real(dp) :: Zmean, Z2mean, Z52, Z53, Z321
       type(auto_diff_real_2var_order3) :: GAME, RS, DENS, Smix, F_phase_independent
-      type(auto_diff_real_2var_order3) :: kT, dF_sol, dF_liq, latent_S, min_S
+      type(auto_diff_real_2var_order3) :: kT, dF_sol, dF_liq
 
       ! Compute various mean charge quantities
       Zmean=0d0
@@ -211,7 +211,7 @@ function nonideal_corrections_phase(NMIX,AY,AZion,ACMI,min_gamma_for_solid, max_
       character(len=128), intent(in) :: Skye_solid_mixing_rule
 
       ! Intermediates and constants
-      integer :: i,j
+      integer :: i
       type(auto_diff_real_2var_order3) :: FMIX, f
       real(dp), parameter :: TINY=1.d-7
 
diff --git a/eos/private/skye_coulomb_solid.f90 b/eos/private/skye_coulomb_solid.f90
index a0ca56e32..aac38d964 100644
--- a/eos/private/skye_coulomb_solid.f90
+++ b/eos/private/skye_coulomb_solid.f90
@@ -60,7 +60,7 @@ function ocp_solid_harmonic_free_energy(GAMI,TPT_in) result(F)
       type(auto_diff_real_2var_order3), intent(in) :: GAMI,TPT_in
 
       ! Intermediates
-      type(auto_diff_real_2var_order3) :: TPT, UP, DN, EA, EB, EG, UP1, UP2, DN1, DN2, E0
+      type(auto_diff_real_2var_order3) :: TPT, UP, DN, EA, EB, EG, E0
       type(auto_diff_real_2var_order3) :: Fth, U0
       
       ! Output
@@ -161,7 +161,7 @@ function ocp_solid_screening_free_energy_correction(Z, mi, ge, rs) result(F)
          real(dp) :: s, b1, b2, b3, b4, COTPT
          real(dp), parameter :: aTF = 0.00352d0
 
-         type(auto_diff_real_2var_order3) :: TPT, x, f_inf, A, Q, xr, eta, supp, g, alpha, Fliq, gr, switch
+         type(auto_diff_real_2var_order3) :: TPT, f_inf, A, Q, xr, supp, g, alpha, Fliq, gr, switch
          type(auto_diff_real_2var_order3) :: F
 
          s = 1d0 / (1d0 + 1d-2 * pre_z(int(Z))% logz_3_2 + 0.097d0 / pre_z(int(Z))% z2)
diff --git a/eos/private/skye_ideal.f90 b/eos/private/skye_ideal.f90
index 7306ef5f0..ed8dc16f1 100644
--- a/eos/private/skye_ideal.f90
+++ b/eos/private/skye_ideal.f90
@@ -73,7 +73,7 @@ subroutine compute_ideal_ele(temp_in, den_in, din_in, logtemp_in, logden_in, zba
 
       !..for the interpolations
       integer          iat, jat
-      real(dp) dth, dt2, dti, dt2i, dt3i, dd, dd2, ddi, dd2i, dd3i, &
+      real(dp) dth, dt2, dti, dt2i, dt3i, dd, &
                        xt, xd, mxt, mxd, fi(36), &
                        dindd, dinda, dindz, dindda, dinddz, dindaa, &
                        dindaz, dindzz, dinddaa, dinddaz, &
diff --git a/eos/public/eos_def.f90 b/eos/public/eos_def.f90
index 130ff2552..dfb4b2f56 100644
--- a/eos/public/eos_def.f90
+++ b/eos/public/eos_def.f90
@@ -536,7 +536,6 @@ subroutine init_eos_handle_data(handle)
          use math_lib
          integer, intent(in) :: handle
          type (EoS_General_Info), pointer :: rq
-         integer :: iz
          rq => eos_handles(handle)
          rq% in_use = .true.
          rq% handle = handle
@@ -574,7 +573,7 @@ end subroutine get_eos_ptr
       subroutine eos_def_shutdown
          type (eosPC_Support_Info), pointer :: fq
          type (FITION_Info), pointer :: fi
-         integer :: ix, iz
+         integer :: iz
 
          ! DT tables
          call free_EosDT_XZ_Info( &
diff --git a/eos/test/src/eos_support.f90 b/eos/test/src/eos_support.f90
index a00a45721..0b9a4e54a 100644
--- a/eos/test/src/eos_support.f90
+++ b/eos/test/src/eos_support.f90
@@ -104,7 +104,6 @@ subroutine Setup_eos
 
          character (len=256) :: my_mesa_dir
          integer :: info
-         real(dp) :: logT_all_HELM, logT_all_OPAL
          logical :: use_cache
          
          info = 0
diff --git a/eos/test/src/sample_eos.f90 b/eos/test/src/sample_eos.f90
index 118de2723..1ce5ba4c8 100644
--- a/eos/test/src/sample_eos.f90
+++ b/eos/test/src/sample_eos.f90
@@ -9,7 +9,7 @@
 !   by the Free Software Foundation; either version 2 of the License, or
 !   (at your option) any later version.
 !
-!   MESA is distributed in the hope that it will be useful, 
+!   MESA is distributed in the hope that it will be useful,
 !   but WITHOUT ANY WARRANTY; without even the implied warranty of
 !   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 !   GNU Library General Public License for more details.
@@ -20,158 +20,143 @@
 !
 ! ***********************************************************************
 
-      program sample_eos
+program sample_eos
       use eos_def
       use eos_lib
       use chem_def
       use chem_lib
       use const_lib
       use math_lib
-
+   
       implicit none
-
-! this program shows how to setup and use the mesa eos in an interactive manner.
-
-
-      real(dp) :: X, Z, Y, abar, zbar, z2bar, z53bar, ye
+   
+      ! this program shows how to setup and use the mesa eos in an interactive manner.
+   
+      real(dp) :: X, Y, abar, zbar, z2bar, z53bar, ye
       integer, parameter :: species = 7
-      integer, parameter :: h1=1, he4=2, c12=3, n14=4, o16=5, ne20=6, mg24=7
+      integer, parameter :: h1 = 1, he4 = 2, c12 = 3, n14 = 4, o16 = 5, ne20 = 6, mg24 = 7
       integer, pointer, dimension(:) :: net_iso, chem_id
       real(dp) :: xa(species)
-
-
+   
       call Sample
-      
-      contains
-      
+   
+   contains
+   
       subroutine Sample
-         
+   
          integer :: handle
-         real(dp) :: Rho, T, Pgas, log10Rho
-         real(dp) :: dlnRho_dlnPgas_const_T, dlnRho_dlnT_const_Pgas, d_dlnRho_const_T, d_dlnT_const_Rho
-         real(dp), dimension(num_eos_basic_results) :: res, d_dlnd, d_dlnT, d_dabar, d_dzbar
-         real(dp) :: d_dxa(num_eos_d_dxa_results,species)
-         real(dp) :: xz, frac, dabar_dx(species), dzbar_dx(species), sumx,mass_correction, dmc_dx(species)
+         real(dp) :: Rho, T
+         real(dp), dimension(num_eos_basic_results) :: res, d_dlnd, d_dlnT
+         real(dp) :: d_dxa(num_eos_d_dxa_results, species)
+         real(dp) :: xz, dabar_dx(species), dzbar_dx(species), sumx, mass_correction, dmc_dx(species)
          integer :: ierr
-         character (len=32) :: my_mesa_dir
-         character (len=80) :: string
-
-
-! explicitly set my_mesa_dir to your $MESA_DIR, or use a blank string, in which case your $MESA_DIR is automagically used
-
+         character(len=32) :: my_mesa_dir
+         character(len=80) :: string
+   
+         ! explicitly set my_mesa_dir to your $MESA_DIR, or use a blank string, in which case your $MESA_DIR is automagically used
+   
          my_mesa_dir = '../..'
-!         my_mesa_dir = ''         
-
-
-! initialize 
+         ! my_mesa_dir = ''
+   
+         ! initialize
          ierr = 0
-
-         call const_init(my_mesa_dir,ierr)     
-         if (ierr /= 0) call mesa_error(__FILE__,__LINE__)
-         
+   
+         call const_init(my_mesa_dir, ierr)
+         if (ierr /= 0) call mesa_error(__FILE__, __LINE__)
+   
          call math_init()
-         
+   
          call chem_init('isotopes.data', ierr)
-         if (ierr /= 0) call mesa_error(__FILE__,__LINE__)
-
+         if (ierr /= 0) call mesa_error(__FILE__, __LINE__)
+   
          call Setup_eos(handle)
-         allocate(net_iso(num_chem_isos), chem_id(species), stat=ierr)
-         if (ierr /= 0) call mesa_error(__FILE__,__LINE__)
-
+         allocate (net_iso(num_chem_isos), chem_id(species), stat=ierr)
+         if (ierr /= 0) call mesa_error(__FILE__, __LINE__)
+   
          call Init_Composition
-
-
-
-! keep returning to here
-100   xa(:)  = 0.0d0
-
-! get the temperature, density and composition
-
-      write(6,*)  
-      write(6,*) 'give the temperature, density, and mass fractions (h1, he4, c12, n14, o16, ne20, mg24) =>'
-      write(6,*) 'hit return for T = 1e9 K, Rho = 1e4 g/cc, x(c12) = 1 ; enter -1 to stop'
-      write(6,*)  
-      read(5,'(a)') string
-
-! stop
-      if (string(1:2) .eq. '-1') then
-       call Shutdown_eos(handle)
-       deallocate(net_iso, chem_id)
-       if (ierr /= 0) call mesa_error(__FILE__,__LINE__)
-       call mesa_error(__FILE__,__LINE__,'normal termination')
-
-! read the conditions
-      else
-       if (string(1:6) .ne. '      ') then
-        read(string,*) T,Rho, xa(h1), xa(he4), xa(c12), xa(n14), xa(o16), xa(ne20), xa(mg24)
-
-! or set some defaults
-       else
-        T = 1.0d9 ; Rho = 1.0d4 ; xa(c12) = 1.0d0
-       end if
-      end if
-
-
-! get some composition variables
-         call composition_info( &
+   
+         ! keep returning to here
+         do
+            xa(:) = 0.0d0
+   
+            ! get the temperature, density and composition
+   
+            write (6, *)
+            write (6, *) 'give the temperature, density, and mass fractions (h1, he4, c12, n14, o16, ne20, mg24) =>'
+            write (6, *) 'hit return for T = 1e9 K, Rho = 1e4 g/cc, x(c12) = 1 ; enter -1 to stop'
+            write (6, *)
+            read (5, '(a)') string
+   
+            ! stop
+            if (string(1:2) .eq. '-1') then
+               call Shutdown_eos(handle)
+               deallocate (net_iso, chem_id)
+               if (ierr /= 0) call mesa_error(__FILE__, __LINE__)
+               ! exit
+               call mesa_error(__FILE__, __LINE__, 'normal termination')
+   
+               ! read the conditions
+            else
+               if (string(1:6) .ne. '      ') then
+                  read (string, *) T, Rho, xa(h1), xa(he4), xa(c12), xa(n14), xa(o16), xa(ne20), xa(mg24)
+   
+                  ! or set some defaults
+               else
+                  T = 1.0d9; Rho = 1.0d4; xa(c12) = 1.0d0
+               end if
+            end if
+   
+            ! get some composition variables
+            call composition_info( &
                species, chem_id, xa, X, Y, xz, abar, zbar, z2bar, z53bar, ye, mass_correction, &
                sumx, dabar_dx, dzbar_dx, dmc_dx)
-         
-
-! call the density-temperature based eos
-
-! composition derivatives by isotope
-
-         call eosDT_get( &
+   
+            ! call the density-temperature based eos
+   
+            ! composition derivatives by isotope
+   
+            call eosDT_get( &
                handle, species, chem_id, net_iso, xa, &
                Rho, log10(Rho), T, log10(T), &
                res, d_dlnd, d_dlnT, d_dxa, ierr)
-
-
-! report the results
-
-         call PrettyOut(Rho, T, abar, zbar, res, d_dlnd, d_dlnT)
-
-
-! example calling the pressure-temperature based eos
-!         Pgas = exp(res(i_lnPgas))
-!         call eosPT_get( &
-!               handle, Z, X, abar, zbar, &
-!               species, chem_id, net_iso, xa, &
-!               Pgas, log10(Pgas), T, log10(T), &
-!               Rho, log10Rho, dlnRho_dlnPgas_const_T, dlnRho_dlnT_const_Pgas, &
-!               res, d_dlnd, d_dlnT, d_dabar, d_dzbar, ierr)
-      
-
-! back for another one
-      goto 100
-         
+   
+            ! report the results
+   
+            call PrettyOut(Rho, T, abar, zbar, res, d_dlnd, d_dlnT)
+   
+   ! example calling the pressure-temperature based eos
+   !         Pgas = exp(res(i_lnPgas))
+   !         call eosPT_get( &
+   !               handle, Z, X, abar, zbar, &
+   !               species, chem_id, net_iso, xa, &
+   !               Pgas, log10(Pgas), T, log10(T), &
+   !               Rho, log10Rho, dlnRho_dlnPgas_const_T, dlnRho_dlnT_const_Pgas, &
+   !               res, d_dlnd, d_dlnT, d_dabar, d_dzbar, ierr)
+   
+            ! back for another one
+         end do
+   
       end subroutine Sample
-      
-
-
-
+   
       subroutine Setup_eos(handle)
          ! allocate and load the eos tables
          use eos_def
          use eos_lib
          integer, intent(out) :: handle
-
+   
          integer :: ierr
          logical, parameter :: use_cache = .true.
-
+   
          call eos_init(' ', use_cache, ierr)
-         if (ierr /= 0) call mesa_error(__FILE__,__LINE__)
-
-         write(*,*) 'loading eos tables'
-         
+         if (ierr /= 0) call mesa_error(__FILE__, __LINE__)
+   
+         write (*, *) 'loading eos tables'
+   
          handle = alloc_eos_handle(ierr)
-         if (ierr /= 0) call mesa_error(__FILE__,__LINE__)
-
+         if (ierr /= 0) call mesa_error(__FILE__, __LINE__)
+   
       end subroutine Setup_eos
-      
-
-      
+   
       subroutine Shutdown_eos(handle)
          use eos_def
          use eos_lib
@@ -179,14 +164,12 @@ subroutine Shutdown_eos(handle)
          call free_eos_handle(handle)
          call eos_shutdown
       end subroutine Shutdown_eos
-
-
-
+   
       subroutine Init_Composition
          use chem_lib
-       
+   
          net_iso(:) = 0
-         
+   
          chem_id(h1) = ih1; net_iso(ih1) = h1
          chem_id(he4) = ihe4; net_iso(ihe4) = he4
          chem_id(c12) = ic12; net_iso(ic12) = c12
@@ -194,24 +177,19 @@ subroutine Init_Composition
          chem_id(o16) = io16; net_iso(io16) = o16
          chem_id(ne20) = ine20; net_iso(ine20) = ne20
          chem_id(mg24) = img24; net_iso(img24) = mg24
-         
+   
       end subroutine Init_Composition
-
-
-
-
-
+   
       subroutine PrettyOut(Rho, T, abar, zbar, res, d_dlnd, d_dlnT)
          use eos_def
          use eos_lib
          use chem_lib
-
-! declare the pass
+   
+         ! declare the pass
          real(dp) :: Rho, T, abar, zbar
-         real(dp), dimension(num_eos_basic_results) :: res, d_dlnd, d_dlnT, d_dabar, d_dzbar
-
-
-! local variables
+         real(dp), dimension(num_eos_basic_results) :: res, d_dlnd, d_dlnT
+   
+         ! local variables
          real(dp) :: my_ptot, my_dptotdd, my_dptotdt, my_dptotddd, my_dptotddt, my_dptotdtt, &
                      my_etot, my_detotdd, my_detotdt, my_detotddd, my_detotddt, my_detotdtt, &
                      my_stot, my_dstotdd, my_dstotdt, my_dstotddd, my_dstotddt, my_dstotdtt, &
@@ -222,222 +200,212 @@ subroutine PrettyOut(Rho, T, abar, zbar, res, d_dlnd, d_dlnT)
                      my_erad, my_deraddd, my_deraddt, my_deradddd, my_deradddt, my_deraddtt, &
                      my_srad, my_dsraddd, my_dsraddt, my_dsradddd, my_dsradddt, my_dsraddtt, &
                      my_xni, my_dxnidd, my_dxnidt, my_xne, my_dxnedd, my_dxnedt, my_eta, my_detadd, my_detadt, &
-                     my_cv, my_dcvdd, my_dcvdt, my_cp, my_dcpdd, my_dcpdt, & 
-                     my_g1, my_dg1dd, my_dg1dt, my_g2, my_dg2dd, my_dg2dt, my_g3, my_dg3dd, my_dg3dt, & 
+                     my_cv, my_dcvdd, my_dcvdt, my_cp, my_dcpdd, my_dcpdt, &
+                     my_g1, my_dg1dd, my_dg1dt, my_g2, my_dg2dd, my_dg2dt, my_g3, my_dg3dd, my_dg3dt, &
                      my_grad, my_dgraddd, my_dgraddt, my_chit, my_dchitdd, my_dchitdt, my_chir, my_dchirdd, my_dchirdt, &
                      my_cs, my_dcsdd, my_dcsdt, x, z, xx, yy, ww, dfk, dse, dpe, dsp
-
-! popular format statements
-01    format(1x,t2,a,t16,a,t31,a,t46,a,t59,a,t74,a,t89,a)
-02    format(1x,t2,a,1p7e15.6)
-03    format(1x,t2,a7,1pe14.6,t24,a7,1pe14.6,t46,a7,1pe14.6,t68,a7,1pe14.6)
-
-
-! indices for the res, d_dlnd, and d_dlnt arrays are defined in $MESA_DIR/eos/public/eos_def.f90 
-
-! radiation
-         my_prad     = crad * one_third * T * T * T * T
-         my_dpraddd  = 0.0d0
-         my_dpraddt  = 4.0d0 * my_prad/T
+   
+         ! popular format statements
+         character(len=*), parameter :: fmt1 = "(1x, t2, a, t16, a, t31, a, t46, a, t59, a, t74, a, t89, a)"
+         character(len=*), parameter :: fmt2 = "(1x, t2, a, 1p7e15.6)"
+         character(len=*), parameter :: fmt3 = "(1x, t2, a7, 1pe14.6, t24, a7, 1pe14.6, t46, a7, 1pe14.6, t68, a7, 1pe14.6)"
+   
+         ! indices for the res, d_dlnd, and d_dlnt arrays are defined in $MESA_DIR/eos/public/eos_def.f90
+   
+         ! radiation
+         my_prad = crad*one_third*T*T*T*T
+         my_dpraddd = 0.0d0
+         my_dpraddt = 4.0d0*my_prad/T
          my_dpradddd = 0.0d0
          my_dpradddt = 0.0d0
-         my_dpraddtt = 4.0d0 * crad * T * T 
-
-         my_erad    = 3.0d0 * my_prad / Rho
-         my_deraddd = -my_erad / Rho 
-         my_deraddt = 3.0d0 * my_dpraddt / Rho
-         my_deradddd = -2.0d0 * my_deraddd / Rho
-         my_deradddt = -my_deraddt / Rho
-         my_deraddtt = 3.0d0 * my_dpraddtt / Rho
-
-         my_srad    = (my_prad/Rho + my_erad) / T
-         my_dsraddd = (my_dpraddd/Rho - my_prad/(Rho*Rho) + my_deraddd) / T
-         my_dsraddt = (my_dpraddt/Rho + my_deraddt - my_srad) / T
+         my_dpraddtt = 4.0d0*crad*T*T
+   
+         my_erad = 3.0d0*my_prad/Rho
+         my_deraddd = -my_erad/Rho
+         my_deraddt = 3.0d0*my_dpraddt/Rho
+         my_deradddd = -2.0d0*my_deraddd/Rho
+         my_deradddt = -my_deraddt/Rho
+         my_deraddtt = 3.0d0*my_dpraddtt/Rho
+   
+         my_srad = (my_prad/Rho + my_erad)/T
+         my_dsraddd = (my_dpraddd/Rho - my_prad/(Rho*Rho) + my_deraddd)/T
+         my_dsraddt = (my_dpraddt/Rho + my_deraddt - my_srad)/T
          my_dsradddd = ((my_dpradddd &
-                    - (2.0d0*my_dpraddd - 2.0d0*my_prad/Rho)/Rho)/Rho &
-                     + my_deradddd) / T
+                         - (2.0d0*my_dpraddd - 2.0d0*my_prad/Rho)/Rho)/Rho &
+                        + my_deradddd)/T
          my_dsradddt = ((my_dpradddt - my_dpraddt/Rho)/Rho &
-                    + my_deradddt - my_dsraddd) / T
-         my_dsraddtt = ((my_dpraddtt/Rho + my_deraddtt - my_dsraddt) - my_dsraddt)/ T
-
-
-! gas and totals
-! pressure
-         my_pgas     = exp(res(i_lnPgas))
-         my_dpgasdd  = my_pgas/Rho * d_dlnd(i_lnPgas)  
-         my_dpgasdt  = my_pgas/T   * d_dlnt(i_lnPgas)  
-
-         my_ptot    = my_pgas    + my_prad  
+                        + my_deradddt - my_dsraddd)/T
+         my_dsraddtt = ((my_dpraddtt/Rho + my_deraddtt - my_dsraddt) - my_dsraddt)/T
+   
+         ! gas and totals
+         ! pressure
+         my_pgas = exp(res(i_lnPgas))
+         my_dpgasdd = my_pgas/Rho*d_dlnd(i_lnPgas)
+         my_dpgasdt = my_pgas/T*d_dlnt(i_lnPgas)
+   
+         my_ptot = my_pgas + my_prad
          my_dptotdd = my_dpgasdd + my_dpraddd
          my_dptotdt = my_dpgasdt + my_dpraddt
-
-! energy
-         my_etot     = exp(res(i_lnE))
-         my_detotdd  = my_etot/Rho * d_dlnd(i_lnE)  
-         my_detotdt  = my_etot/T   * d_dlnt(i_lnE)  
-
-         my_egas    = my_etot    - my_erad
+   
+         ! energy
+         my_etot = exp(res(i_lnE))
+         my_detotdd = my_etot/Rho*d_dlnd(i_lnE)
+         my_detotdt = my_etot/T*d_dlnt(i_lnE)
+   
+         my_egas = my_etot - my_erad
          my_degasdd = my_detotdd - my_deraddd
          my_degasdt = my_detotdt - my_deraddt
-
-! entropy
-         my_stot    = exp(res(i_lnS))
-         my_dstotdd = my_stot/Rho * d_dlnd(i_lnS)  
-         my_dstotdt = my_stot/T   * d_dlnt(i_lnS)  
-
-         my_sgas    = my_stot    - my_srad
+   
+         ! entropy
+         my_stot = exp(res(i_lnS))
+         my_dstotdd = my_stot/Rho*d_dlnd(i_lnS)
+         my_dstotdt = my_stot/T*d_dlnt(i_lnS)
+   
+         my_sgas = my_stot - my_srad
          my_dsgasdd = my_dstotdd - my_dsraddd
          my_dsgasdt = my_dstotdt - my_dsraddt
-
-
-! number densities and electron degeneracy 
-         my_xni    = avo * Rho/abar
-         my_dxnidd = avo / abar
+   
+         ! number densities and electron degeneracy
+         my_xni = avo*Rho/abar
+         my_dxnidd = avo/abar
          my_dxnidt = 0.0d0
-
-         my_xne    = abar * my_xni * exp(res(i_lnfree_e))
-         my_dxnedd = abar * my_xni * exp(res(i_lnfree_e))/Rho * d_dlnd(i_lnfree_e) + abar * my_dxnidd * exp(res(i_lnfree_e))
-         my_dxnedt = abar * my_xni * exp(res(i_lnfree_e))/T   * d_dlnt(i_lnfree_e) + abar * my_dxnidt * exp(res(i_lnfree_e))
-
-         my_eta    = res(i_eta)
-         my_detadd = d_dlnd(i_eta) / Rho
-         my_detadt = d_dlnt(i_eta) / T
-
-! total specific heats
-         my_cv     = res(i_Cv)
-         my_dcvdd  = d_dlnd(i_Cv) / Rho
-         my_dcvdt  = d_dlnt(i_Cv) / T
-
-         my_cp     = res(i_Cp)
-         my_dcpdd  = d_dlnd(i_Cp) / Rho
-         my_dcpdt  = d_dlnt(i_Cp) / T
-
-! total gammas
-         my_grad    = res(i_grad_ad)
-         my_dgraddd = d_dlnd(i_grad_ad) / Rho
-         my_dgraddt = d_dlnt(i_grad_ad) / T
-
-         my_g1    = res(i_gamma1)
-         my_dg1dd = d_dlnd(i_gamma1) / Rho
-         my_dg1dt = d_dlnt(i_gamma1) / T
-
-         my_g2    = 1.0d0/(1.0d0 - my_grad)
-         my_dg2dd = my_g2*my_g2 * my_dgraddd
-         my_dg2dt = my_g2*my_g2 * my_dgraddt
-
-         my_g3    = res(i_gamma3)
-         my_dg3dd = d_dlnd(i_gamma3) / Rho
-         my_dg3dt = d_dlnt(i_gamma3) / T
-
-! total adiabatic exponents
-         my_chit    = res(i_chiT)
-         my_dchitdd = d_dlnd(i_chiT) / Rho
-         my_dchitdt = d_dlnt(i_chiT) / T
-
-         my_chir    = res(i_chiRho)
-         my_dchirdd = d_dlnd(i_chiRho) / Rho
-         my_dchirdt = d_dlnt(i_chiRho) / T
-
-! total sound speed
-         x         = my_etot + clight*clight
-         z         = 1.0d0 + x*Rho/my_ptot
-         xx        = 1.0d0/z
-         ww        = x*Rho/my_ptot
-         dfk       = my_g1*xx
-         my_cs     = clight*sqrt(dfk)
-         yy        = 0.5d0*my_cs/dfk
-         my_dcsdd = yy*((my_dg1dd - dfk)*xx * (my_detotdd*Rho - ww*my_dptotdd + x)/my_ptot)
-         my_dcsdt = yy*((my_dg1dt - dfk)*xx * (my_detotdt*Rho - ww*my_dptotdt)/my_ptot)
-
-
-! maxwell relations; each is at flaoting point if the consistency is perfect
+   
+         my_xne = abar*my_xni*exp(res(i_lnfree_e))
+         my_dxnedd = abar*my_xni*exp(res(i_lnfree_e))/Rho*d_dlnd(i_lnfree_e) + abar*my_dxnidd*exp(res(i_lnfree_e))
+         my_dxnedt = abar*my_xni*exp(res(i_lnfree_e))/T*d_dlnt(i_lnfree_e) + abar*my_dxnidt*exp(res(i_lnfree_e))
+   
+         my_eta = res(i_eta)
+         my_detadd = d_dlnd(i_eta)/Rho
+         my_detadt = d_dlnt(i_eta)/T
+   
+         ! total specific heats
+         my_cv = res(i_Cv)
+         my_dcvdd = d_dlnd(i_Cv)/Rho
+         my_dcvdt = d_dlnt(i_Cv)/T
+   
+         my_cp = res(i_Cp)
+         my_dcpdd = d_dlnd(i_Cp)/Rho
+         my_dcpdt = d_dlnt(i_Cp)/T
+   
+         ! total gammas
+         my_grad = res(i_grad_ad)
+         my_dgraddd = d_dlnd(i_grad_ad)/Rho
+         my_dgraddt = d_dlnt(i_grad_ad)/T
+   
+         my_g1 = res(i_gamma1)
+         my_dg1dd = d_dlnd(i_gamma1)/Rho
+         my_dg1dt = d_dlnt(i_gamma1)/T
+   
+         my_g2 = 1.0d0/(1.0d0 - my_grad)
+         my_dg2dd = my_g2*my_g2*my_dgraddd
+         my_dg2dt = my_g2*my_g2*my_dgraddt
+   
+         my_g3 = res(i_gamma3)
+         my_dg3dd = d_dlnd(i_gamma3)/Rho
+         my_dg3dt = d_dlnt(i_gamma3)/T
+   
+         ! total adiabatic exponents
+         my_chit = res(i_chiT)
+         my_dchitdd = d_dlnd(i_chiT)/Rho
+         my_dchitdt = d_dlnt(i_chiT)/T
+   
+         my_chir = res(i_chiRho)
+         my_dchirdd = d_dlnd(i_chiRho)/Rho
+         my_dchirdt = d_dlnt(i_chiRho)/T
+   
+         ! total sound speed
+         x = my_etot + clight*clight
+         z = 1.0d0 + x*Rho/my_ptot
+         xx = 1.0d0/z
+         ww = x*Rho/my_ptot
+         dfk = my_g1*xx
+         my_cs = clight*sqrt(dfk)
+         yy = 0.5d0*my_cs/dfk
+         my_dcsdd = yy*((my_dg1dd - dfk)*xx*(my_detotdd*Rho - ww*my_dptotdd + x)/my_ptot)
+         my_dcsdt = yy*((my_dg1dt - dfk)*xx*(my_detotdt*Rho - ww*my_dptotdt)/my_ptot)
+   
+         ! maxwell relations; each is at flaoting point if the consistency is perfect
          dse = T*my_dstotdt/my_detotdt - 1.0d0
          dpe = (my_detotdd*Rho*Rho + T*my_dptotdt)/my_ptot - 1.0d0
          dsp = -my_dstotdd*(Rho*Rho/my_dptotdt) - 1.0d0
-
-
-
-! and finally some second derivatives
-
-! pressure
-         my_dpgasddd = my_pgas/Rho * my_dchirdd  
-         my_dpgasddt = my_pgas/Rho * my_dchirdt 
-         my_dpgasdtt = my_pgas/T * my_dchitdt 
-
+   
+         ! and finally some second derivatives
+   
+         ! pressure
+         my_dpgasddd = my_pgas/Rho*my_dchirdd
+         my_dpgasddt = my_pgas/Rho*my_dchirdt
+         my_dpgasdtt = my_pgas/T*my_dchitdt
+   
          my_dptotddd = my_dpgasddd + my_dpradddd
          my_dptotddt = my_dpgasddt + my_dpradddt
          my_dptotdtt = my_dpgasdtt + my_dpraddtt
-
-! energy
+   
+         ! energy
          my_detotddd = d_dlnd(i_dE_dRho)/Rho
          my_detotddt = d_dlnT(i_dE_dRho)/T
-         my_detotdtt = my_dcvdt 
-
+         my_detotdtt = my_dcvdt
+   
          my_degasddd = my_detotddd - my_deradddd
          my_degasddt = my_detotddt - my_deradddt
          my_degasdtt = my_detotdtt - my_deraddtt
-
-! entropy
+   
+         ! entropy
          my_dstotddd = d_dlnd(i_dS_dRho)/Rho
          my_dstotddt = d_dlnT(i_dS_dRho)/T
          my_dstotdtt = d_dlnT(i_dS_dT)/T
-
+   
          my_dsgasddd = my_dstotddd - my_dsradddd
          my_dsgasddt = my_dstotddt - my_dsradddt
          my_dsgasdtt = my_dstotdtt - my_dsraddtt
-
-
-
-! write 'em
-
-         write(6,03) 'T     =',T,       'Rho   =',Rho,      'abar  =',abar,   'zbar  =',zbar
-         write(6,03) 'h1    =',xa(h1),  'he4   =',xa(he4),  'c12   =',xa(c12), 'n14   =',xa(n14)
-         write(6,03) 'o16   =',xa(o16), 'ne20  =',xa(ne20), 'mg24  =',xa(mg24)
-
-         write(6,*)  ' '
-         write(6,01)  'quantity','value','d/d(Rho)','d/d(T)','d^2/d(Rho)^2','d^2/d(Rho)d(T)','d^2/d(T)^2'
-
-! pressure, energy, entropy
-         write(6,02) 'p tot   =', my_ptot, my_dptotdd, my_dptotdt, my_dptotddd, my_dptotddt, my_dptotdtt
-         write(6,02) 'p gas   =', my_pgas, my_dpgasdd, my_dpgasdt, my_dpgasddd, my_dpgasddt, my_dpgasdtt
-         write(6,02) 'p rad   =', my_prad, my_dpraddd, my_dpraddt, my_dpradddd, my_dpradddt, my_dpraddtt
-
-         write(6,'(A)')
-         write(6,02) 'e tot   =', my_etot, my_detotdd, my_detotdt, my_detotddd, my_detotddt, my_detotdtt
-         write(6,02) 'e gas   =', my_egas, my_degasdd, my_degasdt, my_degasddd, my_degasddt, my_degasdtt
-         write(6,02) 'e rad   =', my_erad, my_deraddd, my_deraddt, my_deradddd, my_deradddt, my_deraddtt
-
-         write(6,'(A)')
-         write(6,02) 's tot   =', my_stot, my_dstotdd, my_dstotdt, my_dstotddd, my_dstotddt, my_dstotdtt
-         write(6,02) 's gas   =', my_sgas, my_dsgasdd, my_dsgasdt, my_dsgasddd, my_dsgasddt, my_dsgasdtt
-         write(6,02) 's rad   =', my_srad, my_dsraddd, my_dsraddt, my_dsradddd, my_dsradddt, my_dsraddtt
-
-
-! ion and free electron matter number density, electron degeneracy parameter
-         write(6,'(A)')
-         write(6,02) 'n_ion   =',my_xni, my_dxnidd, my_dxnidt
-         write(6,02) 'n_ele   =',my_xne, my_dxnedd, my_dxnedt
-         write(6,02) 'eta_e   =',my_eta, my_detadd, my_detadt
-
-! specific heats, 3 gammas, sound speed, chit and chid for the gas and the total
-         write(6,02) 'cv      =',my_cv, my_dcvdd, my_dcvdt
-         write(6,02) 'cp      =',my_cp, my_dcpdd, my_dcpdt
-
-         write(6,02) 'gamma_1 =',my_g1, my_dg1dd, my_dg1dt
-         write(6,02) 'gamma_2 =',my_g2, my_dg2dd, my_dg2dt
-         write(6,02) 'gamma_3 =',my_g3, my_dg3dd, my_dg3dt
-         write(6,02) 'grad_ad =',my_grad, my_dgraddd, my_dgraddt
-
-         write(6,02) 'chi_t   =',my_chit, my_dchitdd, my_dchitdt
-         write(6,02) 'chi_d   =',my_chir, my_dchirdd, my_dchirdt
-
-         write(6,02) 'c_sound =',my_cs, my_dcsdd, my_dcsdt
-
-         write(6,'(A)')
-         write(6,03) 'dsp   =',dse,'dpe   =',dpe,'dsp   =',dsp
-
+   
+         ! write 'em
+   
+         write (6, fmt3) 'T     =', T, 'Rho   =', Rho, 'abar  =', abar, 'zbar  =', zbar
+         write (6, fmt3) 'h1    =', xa(h1), 'he4   =', xa(he4), 'c12   =', xa(c12), 'n14   =', xa(n14)
+         write (6, fmt3) 'o16   =', xa(o16), 'ne20  =', xa(ne20), 'mg24  =', xa(mg24)
+   
+         write (6, *) ' '
+         write (6, fmt1) 'quantity', 'value', 'd/d(Rho)', 'd/d(T)', 'd^2/d(Rho)^2', 'd^2/d(Rho)d(T)', 'd^2/d(T)^2'
+   
+         ! pressure, energy, entropy
+         write (6, fmt2) 'p tot   =', my_ptot, my_dptotdd, my_dptotdt, my_dptotddd, my_dptotddt, my_dptotdtt
+         write (6, fmt2) 'p gas   =', my_pgas, my_dpgasdd, my_dpgasdt, my_dpgasddd, my_dpgasddt, my_dpgasdtt
+         write (6, fmt2) 'p rad   =', my_prad, my_dpraddd, my_dpraddt, my_dpradddd, my_dpradddt, my_dpraddtt
+   
+         write (6, '(A)')
+         write (6, fmt2) 'e tot   =', my_etot, my_detotdd, my_detotdt, my_detotddd, my_detotddt, my_detotdtt
+         write (6, fmt2) 'e gas   =', my_egas, my_degasdd, my_degasdt, my_degasddd, my_degasddt, my_degasdtt
+         write (6, fmt2) 'e rad   =', my_erad, my_deraddd, my_deraddt, my_deradddd, my_deradddt, my_deraddtt
+   
+         write (6, '(A)')
+         write (6, fmt2) 's tot   =', my_stot, my_dstotdd, my_dstotdt, my_dstotddd, my_dstotddt, my_dstotdtt
+         write (6, fmt2) 's gas   =', my_sgas, my_dsgasdd, my_dsgasdt, my_dsgasddd, my_dsgasddt, my_dsgasdtt
+         write (6, fmt2) 's rad   =', my_srad, my_dsraddd, my_dsraddt, my_dsradddd, my_dsradddt, my_dsraddtt
+   
+         ! ion and free electron matter number density, electron degeneracy parameter
+         write (6, '(A)')
+         write (6, fmt2) 'n_ion   =', my_xni, my_dxnidd, my_dxnidt
+         write (6, fmt2) 'n_ele   =', my_xne, my_dxnedd, my_dxnedt
+         write (6, fmt2) 'eta_e   =', my_eta, my_detadd, my_detadt
+   
+         ! specific heats, 3 gammas, sound speed, chit and chid for the gas and the total
+         write (6, fmt2) 'cv      =', my_cv, my_dcvdd, my_dcvdt
+         write (6, fmt2) 'cp      =', my_cp, my_dcpdd, my_dcpdt
+   
+         write (6, fmt2) 'gamma_1 =', my_g1, my_dg1dd, my_dg1dt
+         write (6, fmt2) 'gamma_2 =', my_g2, my_dg2dd, my_dg2dt
+         write (6, fmt2) 'gamma_3 =', my_g3, my_dg3dd, my_dg3dt
+         write (6, fmt2) 'grad_ad =', my_grad, my_dgraddd, my_dgraddt
+   
+         write (6, fmt2) 'chi_t   =', my_chit, my_dchitdd, my_dchitdt
+         write (6, fmt2) 'chi_d   =', my_chir, my_dchirdd, my_dchirdt
+   
+         write (6, fmt2) 'c_sound =', my_cs, my_dcsdd, my_dcsdt
+   
+         write (6, '(A)')
+         write (6, fmt3) 'dsp   =', dse, 'dpe   =', dpe, 'dsp   =', dsp
+   
       end subroutine PrettyOut
-
-
-      end program sample_eos
-
+   
+   end program sample_eos
+   
\ No newline at end of file
diff --git a/eos/test/src/test_eos_blend.f90 b/eos/test/src/test_eos_blend.f90
index 3fb5264db..9a4fbd6ef 100644
--- a/eos/test/src/test_eos_blend.f90
+++ b/eos/test/src/test_eos_blend.f90
@@ -11,7 +11,6 @@ module test_eos_blend
    contains
 
    subroutine do_test_eos_blend()
-      integer :: w
       real(dp) :: coords(4,2)
       type(auto_diff_real_2var_order1) :: p(2), d
 
diff --git a/eos/test/src/test_eos_support.f90 b/eos/test/src/test_eos_support.f90
index a8855cef9..6ed01006a 100644
--- a/eos/test/src/test_eos_support.f90
+++ b/eos/test/src/test_eos_support.f90
@@ -45,7 +45,6 @@ subroutine test1_eosPT(Z, X, logPgas, logT, do_compare, quietly, logRho, logP)
                P, Pgas, Prad, T, Rho, dlnRho_dlnPgas_c_T, dlnRho_dlnT_c_Pgas, &
                res(num_eos_basic_results), d_dlnd(num_eos_basic_results), &
                d_dlnT(num_eos_basic_results), &
-               d_dabar(num_eos_basic_results), d_dzbar(num_eos_basic_results), &
                res2(num_eos_basic_results), d_dlnd2(num_eos_basic_results), &
                d_dxa2(num_eos_d_dxa_results, species), &
                d_dlnT2(num_eos_basic_results)
@@ -163,14 +162,9 @@ end subroutine test1_eosPT
       
       subroutine Do_One(quietly)
          logical, intent(in) :: quietly
-         real(dp) :: T, rho, log10_rho, log10_T
-         real(dp), dimension(num_eos_basic_results) :: res, d_dlnd, d_dlnT
-         integer :: info, i
-         real(dp) :: XC, XO, Ah, Zh, Yh, Ahe, Zhe, Yhe, Az, Zz, Yz, ddabar, ddzbar, &
-               helm_ddXh, helm_ddXz, opal_ddXh, opal_ddXz, XC0, XO0, &
-               helm_P, helm_PX, helm_PZ, opal_P, opal_PX, opal_PZ, X1, X2, Z1, Z2, &
-               abar1, zbar1, dXC, dlnP_dabar, dlnP_dzbar, dlnP_dXC, &
-               dabar_dZ, dzbar_dZ, dlnP_dZ, P, logRhoguess
+         real(dp) :: T, rho
+         real(dp), dimension(num_eos_basic_results) :: res
+         real(dp) :: dXC
          
          if (.true.) then
             ! pure Helium
@@ -246,10 +240,9 @@ subroutine doit(str)
          subroutine test_get_Rho_T ! using most recent values from subroutine Do_One_TRho
             real(dp) :: tol, othertol, &
                result, result_log10, log10_T, log10_rho, lnS, Prad, Pgas, logP, &
-               clipped_log10rho, clipped_log10temp, &
                logRho_guess, logRho_bnd1, logRho_bnd2, other_at_bnd1, other_at_bnd2, &
                logT_guess, logT_bnd1, logT_bnd2
-            integer :: i, which_other, max_iter, eos_calls, ierr
+            integer :: max_iter, eos_calls, ierr
             real(dp), dimension(num_eos_basic_results) :: &
                   d_dlnd, d_dlnT
             real(dp), dimension(num_eos_d_dxa_results, species) :: &
@@ -380,7 +373,7 @@ subroutine test1_eosPT_get_T
          real(dp) :: &
                energy, abar, zbar, X, Z, logPgas, logT_tol, other_tol, other, &
                logT_guess, logT_bnd1, logT_bnd2, other_at_bnd1, other_at_bnd2, &
-               logT_result, new_energy, &
+               logT_result, &
                res(num_eos_basic_results), d_dlnd(num_eos_basic_results), &
                d_dxa(num_eos_d_dxa_results, species), &
                d_dlnT(num_eos_basic_results), &
@@ -458,7 +451,7 @@ end subroutine test1_eosPT_get_T
       subroutine test_components
          real(dp) :: &
             X_test, Z, XC_test, XO_test, &
-            logT, logRho, Pgas, Prad, energy, entropy
+            logT, logRho, Pgas, energy, entropy
          real(dp), dimension(num_eos_basic_results) :: &
             res, d_dlnd, d_dlnT
          integer:: ierr
@@ -531,7 +524,7 @@ subroutine test1_eosDT_get_T_given_egas
          real(dp) :: &
                X, Z, abar, zbar, logRho, egas_want, egas_tol, logT_tol, logT_guess, &
                logT_bnd1, logT_bnd2, egas_at_bnd1, egas_at_bnd2, logT_result, erad, egas, energy, &
-               res(num_eos_basic_results), d_dlnd(num_eos_basic_results), Pgas, logPgas, &
+               res(num_eos_basic_results), d_dlnd(num_eos_basic_results), &
                d_dxa(num_eos_d_dxa_results, species), &
                d_dlnT(num_eos_basic_results)
          integer:: ierr, eos_calls, max_iter
@@ -622,7 +615,7 @@ subroutine Do_One_TRho(quietly,T,Rho,X,Zinit,dXC,dXO,Y,Z,res)
          real(dp), dimension(num_eos_d_dxa_results, species) :: &
                d_dxa
          integer :: info, i
-         real(dp) :: dlnT, dlnRho, lnRho_2, Prad, Pgas, P
+         real(dp) :: Prad, Pgas, P
 
   101    format(a30,4x,1pe24.16)
   102    format(a30,3x,1pe24.16)
@@ -691,7 +684,7 @@ end subroutine Do_One_TRho
 
       
       subroutine test_dirac_integrals
-         real(dp) :: dk, T, eta, theta, fdph, fdmh, fdeta, fdtheta, theta_e
+         real(dp) :: T, eta, theta, fdph, fdmh, fdeta, fdtheta, theta_e
  1       format(a40,1pe26.16)
          eta = 1.46722890948893d0
          T = 11327678.5183021d0
diff --git a/forum/.gitignore b/forum/.gitignore
new file mode 100644
index 000000000..bc36cecbb
--- /dev/null
+++ b/forum/.gitignore
@@ -0,0 +1 @@
+forum
diff --git a/forum/build_and_test b/forum/build_and_test
new file mode 100755
index 000000000..39902ed56
--- /dev/null
+++ b/forum/build_and_test
@@ -0,0 +1,7 @@
+#!/bin/bash
+
+rm -rf forum
+tar xf forum-1.0.3.tar.gz
+mv forum-1.0.3 forum
+
+../utils/build_and_test
diff --git a/forum/build_and_test_parallel b/forum/build_and_test_parallel
new file mode 100755
index 000000000..44a4bd7f5
--- /dev/null
+++ b/forum/build_and_test_parallel
@@ -0,0 +1,8 @@
+#!/bin/bash
+
+rm -rf forum
+tar xf forum-1.0.3.tar.gz
+mv forum-1.0.3 forum
+
+../utils/build_and_test_parallel
+
diff --git a/forum/clean b/forum/clean
new file mode 100755
index 000000000..356f57db5
--- /dev/null
+++ b/forum/clean
@@ -0,0 +1 @@
+cd make; make clean
diff --git a/hdf5io/export b/forum/export
similarity index 100%
rename from hdf5io/export
rename to forum/export
diff --git a/forum/forum-1.0.3.tar.gz b/forum/forum-1.0.3.tar.gz
new file mode 100644
index 000000000..bb5dbc557
--- /dev/null
+++ b/forum/forum-1.0.3.tar.gz
@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:9fd4fb5b9f889b3733a959e40a4de50f2687b2b6938c8c157df5e15a77e2e6fd
+size 32560
diff --git a/hdf5io/i1 b/forum/i1
similarity index 100%
rename from hdf5io/i1
rename to forum/i1
diff --git a/hdf5io/i1p b/forum/i1p
similarity index 100%
rename from hdf5io/i1p
rename to forum/i1p
diff --git a/forum/install b/forum/install
new file mode 100755
index 000000000..9026e932d
--- /dev/null
+++ b/forum/install
@@ -0,0 +1,8 @@
+./build_and_test
+if [ $? -ne 0 ]
+then
+	exit 1
+fi
+echo "export"
+./export
+echo "done"
\ No newline at end of file
diff --git a/hdf5io/make/makefile b/forum/make/makefile
similarity index 100%
rename from hdf5io/make/makefile
rename to forum/make/makefile
diff --git a/forum/make/makefile_base b/forum/make/makefile_base
new file mode 100644
index 000000000..c83e1ff57
--- /dev/null
+++ b/forum/make/makefile_base
@@ -0,0 +1,37 @@
+# This is the makefile for the forum library
+
+MESA_DIR = ../..
+
+#################################################################
+#
+# PREAMBLE
+
+include $(MESA_DIR)/utils/makefile_header
+
+#################################################################
+#
+# Hand off to ForUM build system
+
+MESA_LIB_DIR = $(MESA_DIR)/lib
+MESA_INC_DIR = $(MESA_DIR)/include
+
+FORUM_DIR = ../forum
+
+ifeq ($(USE_SHARED), YES)
+   export SHARED = yes
+else
+   export SHARED = no
+endif
+
+all: 
+	@$(MAKE) --no-print-directory -C $(FORUM_DIR) install
+
+install:
+	@$(CP_IF_NEWER) $(FORUM_DIR)/include/forum_m.mod $(MESA_INC_DIR)/
+	@$(CP_IF_NEWER) $(FORUM_DIR)/include/forum.inc $(MESA_INC_DIR)/
+	@$(CP_IF_NEWER) $(FORUM_DIR)/lib/libforum.a $(MESA_LIB_DIR)/
+
+clean:
+	@$(MAKE) --no-print-directory -C $(FORUM_DIR) $@
+
+.PHONY: install clean
diff --git a/hdf5io/mk b/forum/mk
similarity index 100%
rename from hdf5io/mk
rename to forum/mk
diff --git a/hdf5io/test/ck b/forum/test/ck
similarity index 66%
rename from hdf5io/test/ck
rename to forum/test/ck
index 9f0a28cc1..2ef1f96b9 100755
--- a/hdf5io/test/ck
+++ b/forum/test/ck
@@ -1,2 +1 @@
 ./../../utils/test/ck
-rm test.h5
diff --git a/forum/test/clean b/forum/test/clean
new file mode 100755
index 000000000..e69de29bb
diff --git a/hdf5io/test/clean b/forum/test/cleanup
similarity index 50%
rename from hdf5io/test/clean
rename to forum/test/cleanup
index fe8d63c0c..22f65cbab 100755
--- a/hdf5io/test/clean
+++ b/forum/test/cleanup
@@ -1,2 +1,2 @@
-cd make
+cd ../make
 make clean
diff --git a/hdf5io/test/export b/forum/test/export
similarity index 100%
rename from hdf5io/test/export
rename to forum/test/export
diff --git a/forum/test/mk b/forum/test/mk
new file mode 100755
index 000000000..e69de29bb
diff --git a/forum/test/rn b/forum/test/rn
new file mode 100755
index 000000000..818a9d425
--- /dev/null
+++ b/forum/test/rn
@@ -0,0 +1,4 @@
+#!/bin/bash
+
+../forum/bin/test_order
+
diff --git a/forum/test/test_output b/forum/test/test_output
new file mode 100644
index 000000000..041979488
--- /dev/null
+++ b/forum/test/test_output
@@ -0,0 +1,14 @@
+ locate (left)
+   PASS           1
+   PASS           2
+   PASS           3
+   PASS           4
+   PASS           5
+   PASS           6
+ locate (right)
+   PASS           1
+   PASS           2
+   PASS           3
+   PASS           4
+   PASS           5
+   PASS           6
diff --git a/gyre/.gitignore b/gyre/.gitignore
index ecfc2bb72..f0c58f329 100644
--- a/gyre/.gitignore
+++ b/gyre/.gitignore
@@ -1,2 +1,3 @@
 gyre/
-public/gyre_lib.f
+public/gyre_mesa_m.f90
+
diff --git a/gyre/build_and_test b/gyre/build_and_test
index 1adc8c2fa..7b88598b4 100755
--- a/gyre/build_and_test
+++ b/gyre/build_and_test
@@ -1,8 +1,7 @@
 #!/bin/bash
 
-if [[ ! -d gyre ]]; then
-    tar xf gyre-7.1.tar.gz
-    mv gyre-7.1 gyre
-fi
+rm -rf gyre
+tar xf gyre-7.2.1.tar.gz
+mv gyre-7.2.1 gyre
 
 ../utils/build_and_test
diff --git a/gyre/build_and_test_parallel b/gyre/build_and_test_parallel
index c22bff1c6..78586c092 100755
--- a/gyre/build_and_test_parallel
+++ b/gyre/build_and_test_parallel
@@ -1,8 +1,7 @@
 #!/bin/bash
 
-if [[ ! -d gyre ]]; then
-    tar xf gyre-7.1.tar.gz
-    mv gyre-7.1 gyre
-fi
+rm -rf gyre
+tar xf gyre-7.2.1.tar.gz
+mv gyre-7.2.1 gyre
 
 ../utils/build_and_test_parallel
diff --git a/gyre/gyre-7.1.tar.gz b/gyre/gyre-7.1.tar.gz
deleted file mode 100644
index d8c57e12a..000000000
--- a/gyre/gyre-7.1.tar.gz
+++ /dev/null
@@ -1,3 +0,0 @@
-version https://git-lfs.github.com/spec/v1
-oid sha256:0416b8402c39aa9e65be8959cc8839a4734cfb10ce56e8db501e768d62a7f507
-size 4803785
diff --git a/gyre/gyre-7.2.1.tar.gz b/gyre/gyre-7.2.1.tar.gz
new file mode 100644
index 000000000..2a9d470ca
--- /dev/null
+++ b/gyre/gyre-7.2.1.tar.gz
@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:2d7c1742c662cf47e640edae588857b1835262b87101bc9e6333e38085816573
+size 4791341
diff --git a/gyre/make/makefile_full b/gyre/make/makefile_full
index 84df8679f..f6b277863 100644
--- a/gyre/make/makefile_full
+++ b/gyre/make/makefile_full
@@ -10,97 +10,37 @@ include $(MESA_DIR)/utils/makefile_header
 
 #################################################################
 #
-# SOURCES
+# Hand off to GYRE build system
 
-SRCS = gyre_lib.f90
+MESA_LIB_DIR = $(MESA_DIR)/lib
+MESA_INC_DIR = $(MESA_DIR)/include
 
+GYRE_DIR = ../gyre
 
+export FRONTENDS = no
+export TOOLS = no
+export FORUM = no
+export IFACES = yes
 
-#################################################################
-#
-# LIBRARIES
+export FORUM_LIB_DIR = ../$(MESA_LIB_DIR)
+export FORUM_INC_DIR = ../$(MESA_INC_DIR)
 
 ifeq ($(USE_SHARED), YES)
-     LIBS_OTHER = $(LIBS_MATRIX)
-     DEPS_OTHER = $(patsubst %,$(MESA_LIB_DIR)/lib%.$(LIB_SUFFIX),$(LIBS_OTHER))
-     LOAD_OTHER = -L$(MESA_LIB_DIR) $(LOAD_MATRIX)
-endif
-
-#################################################################
-#
-# TARGETS
-
-LIB = libgyre.$(LIB_SUFFIX)
-
-OBJS = $(patsubst %.f,%.o,$(patsubst %.f90,%.o,$(SRCS)))
-
-$(LIB) : $(OBJS) $(DEPS_OTHER)
-ifneq ($(QUIET),)
-	@echo LIB_TOOL $(LIB)
-	@$(LIB_TOOL) $(LIB) *.o $(LOAD_OTHER)
+   export SHARED = yes
 else
-	$(LIB_TOOL) $(LIB) *.o $(LOAD_OTHER)
+   export SHARED = no
 endif
 
-clean:
-	-@rm -f *.o *.f90 *.fpp *.mod .depend *.so *.a ../public/gyre_lib.f
+all :
+	@$(MAKE) --no-print-directory -C $(GYRE_DIR) install
 
 install:
-	@$(CP_IF_NEWER) gyre_lib.f90 ../public/gyre_lib.f
-	@$(CP_IF_NEWER) gyre_lib.mod $(MESA_DIR)/include
-	@$(CP_IF_NEWER) $(LIB) $(MESA_DIR)/lib
-
-#################################################################
-#
-# COMPILATION RULES
+	@$(CP_IF_NEWER) $(GYRE_DIR)/build/gyre_mesa_m.f90 ../public/
+	@$(CP_IF_NEWER) $(GYRE_DIR)/build/gyre_mesa_m.mod $(MESA_INC_DIR)/
+	@$(CP_IF_NEWER) $(GYRE_DIR)/build/libgyre.a $(MESA_LIB_DIR)/
+	@$(CP_IF_NEWER) $(GYRE_DIR)/build/libgyre_mesa.a $(MESA_LIB_DIR)/
 
-GYRE_DIRS = $(subst $(eval) ,:,$(shell test -d ../gyre && find ../gyre/src -type d))
-
-COMPILE = $(COMPILE_TO_DEPLOY) $(FCfree) -Wno-uninitialized -L$(MESA_DIR)/lib -lconst $(LOAD_MATRIX)
-#COMPILE = $(COMPILE_TO_TEST) $(FCfree) -Wno-uninitialized
-
-FPX3FLAGS = -DOMP -DHDF5 -DDOUBLE_PRECISION -I.:$(GYRE_DIRS):../gyre/src/mesa
-
-ifeq ($(USE_OPENMP),YES)
-FPX3FLAGS := $(FPX3FLAGS) -DOMP
-endif
-
-.PRECIOUS : %.f90
-
-%.o : %.mod
-
-%.f90 : %.fpp
-	@fpx3 $(FPX3FLAGS) < $< > $@
-
-%.o %.mod : %.f90
-	@echo FC $<
-	@$(COMPILE) -c $<
-	@if [ -e $(basename $@).mod ]; then touch $(basename $@).mod; fi
-
-ifeq ($(USE_CRMATH),yes)
-gyre_math.fpp: gyre_math_crmath.fpp
-	@ln -sf $< $@
-else
-gyre_math.fpp: gyre_math_intrinsic.fpp
-	@ln -sf $< $@
-endif
-
-.INTERMEDIATE: gyre_math.fpp
-
-.depend: gyre_math.fpp
-
-#################################################################
-#
-# DEPENDENCIES
-
-vpath %.fpp $(GYRE_DIRS)
-vpath %.inc $(GYRE_DIRS)
-vpath %.f $(GYRE_DIRS)
-
-ifneq ($(MAKECMDGOALS),clean)
--include .depend
-endif
+clean:
+	@$(MAKE) --no-print-directory -C $(GYRE_DIR) $@
 
-.depend :
-	@echo FPX3_DEPS
-	@$(shell fpx3_deps $(FPX3FLAGS) gyre_lib > .depend )
+.PHONY: install clean
diff --git a/gyre/make/makefile_stub b/gyre/make/makefile_stub
index 075c94de7..3b3ff8639 100644
--- a/gyre/make/makefile_stub
+++ b/gyre/make/makefile_stub
@@ -12,7 +12,7 @@ include $(MESA_DIR)/utils/makefile_header
 #
 # SOURCES
 
-SRCS = gyre_lib_stub.f
+SRCS = gyre_mesa_m_stub.f90
 
 #################################################################
 #
@@ -28,7 +28,7 @@ endif
 #
 # TARGETS
 
-LIB = libgyre.$(LIB_SUFFIX)
+LIB = libgyre_mesa.$(LIB_SUFFIX)
 
 OBJS = $(patsubst %.f,%.o,$(patsubst %.f90,%.o,$(SRCS)))
 
@@ -41,10 +41,10 @@ else
 endif
 
 clean:
-	-@rm -f *.o *.f90 *.fpp *.mod .depend *.so *.a ../public/gyre_lib.f
+	-@rm -f *.o *.f90 *.fpp *.mod .depend *.so *.a ../public/gyre_mesa_m.f90
 
 install:
-	@$(CP_IF_NEWER) gyre_lib.mod $(MESA_DIR)/include
+	@$(CP_IF_NEWER) gyre_mesa_m.mod $(MESA_DIR)/include
 	@$(CP_IF_NEWER) $(LIB) $(MESA_DIR)/lib
 
 #################################################################
@@ -54,7 +54,7 @@ install:
 COMPILE = $(COMPILE_TO_DEPLOY) $(FCfree)
 #COMPILE = $(COMPILE_TO_TEST) $(FCfree)
 
-%.o : %.f
+%.o : %.f90
 ifneq ($(QUIET),)
 	@echo COMPILE $<
 	@$(COMPILE) $<
@@ -66,6 +66,6 @@ endif
 #
 # DEPENDENCIES
 
-SRC_PATH = $(MOD_PUBLIC_DIR):$(MOD_PRIVATE_DIR)
+SRC_PATH = $(MOD_PUBLIC_DIR)
 
-vpath %.f $(SRC_PATH)
+vpath %.f90 $(SRC_PATH)
diff --git a/gyre/private/.empty b/gyre/private/.empty
new file mode 100644
index 000000000..e69de29bb
diff --git a/gyre/public/gyre_lib_stub.f b/gyre/public/gyre_lib_stub.f
deleted file mode 100644
index 0d562b58a..000000000
--- a/gyre/public/gyre_lib_stub.f
+++ /dev/null
@@ -1,183 +0,0 @@
-! This stub fakes enough of GYRE to make sure that test cases can
-! optionally use GYRE without failing to compile on systems built with
-! USE_GYRE=NO in utils/makefile_header.
-
-module gyre_lib ! stub
-
-  implicit none
-
-  integer, parameter :: WP = KIND(0.D0)
-
-  type :: point_t
-     integer  :: s
-     real(WP) :: x
-  end type point_t
-
-  type :: grid_t
-    type(point_t), allocatable :: pt(:)
-    integer                    :: n_k
-  end type grid_t
-
-  type :: wave_t
-    type(grid_t), allocatable :: gr
-    integer :: n
-  contains
-    procedure, public :: freq
-    procedure, public :: grid
-    procedure, public :: xi_r
-    procedure, public :: xi_h
-    procedure, public :: dW_dx
-  end type wave_t
-
-  type, extends (wave_t) :: mode_t
-    integer :: n_pg
-    integer :: n_p
-    integer :: n_g
-  end type mode_t
-
-  interface gyre_set_constant
-     module procedure gyre_set_constant_r_
-     module procedure gyre_set_constant_c_
-  end interface gyre_set_constant
-
-contains
-
-  function xi_r (this, k)
-
-    class(wave_t), intent(in) :: this
-    integer, intent(in)       :: k
-    complex(WP)               :: xi_r
-
-    xi_r = 0._WP
-
-  end function xi_r
-
-  !****
-
-  function xi_h (this, k)
-
-    class(wave_t), intent(in) :: this
-    integer, intent(in)       :: k
-    complex(WP)               :: xi_h
-
-    xi_h = 0._WP
-
-  end function xi_h
-
-  !****
-
-  function dW_dx (this, k)
-
-    class(wave_t), intent(in) :: this
-    integer, intent(in)       :: k
-    real(WP)                  :: dW_dx
-
-    dW_dx = 0._WP
-
-  end function dW_dx
-
-  !****
-
-  function freq (this, freq_units, freq_frame)
-
-    class(wave_t), intent(in)          :: this
-    character(*), intent(in)           :: freq_units
-    character(*), optional, intent(in) :: freq_frame
-    complex(WP)                        :: freq
-
-    freq = 0._WP
-
-  end function freq
-
-  !****
-
-  function grid (this) result (gr)
-
-    class(wave_t), intent(in) :: this
-    type(grid_t)              :: gr
-
-    ! Return the wave's grid
-
-    gr = this%gr
-
-    ! Finish
-
-    return
-
-  end function grid
-
-  !****
-
-  subroutine gyre_init (file)
-   
-    character(*), intent(in) :: file
-    write(*,*) ''
-    write(*,*) 'WARNING: You are initializing the stub version of GYRE, which means'
-    write(*,*) 'that MESA was installed without the embedded interfaces to GYRE.'
-    write(*,*) 'Calls to GYRE in this run will not produce useful output.'
-    write(*,*) ''
-
-  end subroutine gyre_init
-
-  !****
-
-  subroutine gyre_final()
-  end subroutine gyre_final
-
-  !****
-
-  subroutine gyre_read_model (file)
-
-    character(LEN=*), intent(in) :: file
-
-  end subroutine gyre_read_model
-
-  !****
-
-  subroutine gyre_set_model (global_data, point_data, version)
-
-    real(WP), intent(in) :: global_data(:)
-    real(WP), intent(in) :: point_data(:,:)
-    integer, intent(in)  :: version
-
-  end subroutine gyre_set_model
-
-  !****
-
-  subroutine gyre_get_modes (l, user_sub, ipar, rpar)
-
-    integer, intent(in)     :: l
-    interface
-       subroutine user_sub (md, ipar, rpar, retcode)
-         import mode_t
-         import WP
-         type(mode_t), intent(in) :: md
-         integer, intent(inout)   :: ipar(:)
-         real(WP), intent(inout)  :: rpar(:)
-         integer, intent(out)     :: retcode
-       end subroutine user_sub
-    end interface
-    integer, intent(inout)  :: ipar(:)
-    real(WP), intent(inout) :: rpar(:)
-
-  end subroutine gyre_get_modes
-
-  !****
-
-  subroutine gyre_set_constant_r_ (name, value)
-
-    character(*), intent(in) :: name
-    real(WP), intent(in)     :: value
-
-  end subroutine gyre_set_constant_r_
-
-  !****
-
-  subroutine gyre_set_constant_c_ (name, value)
-
-    character(*), intent(in) :: name
-    character(*), intent(in) :: value
-
-  end subroutine gyre_set_constant_c_
-
-end module gyre_lib ! stub
diff --git a/gyre/public/gyre_mesa_m_stub.f90 b/gyre/public/gyre_mesa_m_stub.f90
new file mode 100644
index 000000000..d5d9bea4d
--- /dev/null
+++ b/gyre/public/gyre_mesa_m_stub.f90
@@ -0,0 +1,184 @@
+! This stub fakes enough of GYRE to make sure that test cases can
+! optionally use GYRE without failing to compile on systems built with
+! USE_GYRE=NO in utils/makefile_header.
+
+module gyre_mesa_m ! stub
+
+   use forum_m, only: RD
+
+   implicit none
+
+   type :: point_t
+      integer  :: s
+      real(RD) :: x
+   end type point_t
+
+   type :: grid_t
+      type(point_t), allocatable :: pt(:)
+      integer                    :: n_k
+   end type grid_t
+
+   type :: wave_t
+      type(grid_t), allocatable :: gr
+      integer :: n
+   contains
+      procedure, public :: freq
+      procedure, public :: grid
+      procedure, public :: xi_r
+      procedure, public :: xi_h
+      procedure, public :: dW_dx
+   end type wave_t
+
+   type, extends (wave_t) :: mode_t
+      integer :: n_pg
+      integer :: n_p
+      integer :: n_g
+   end type mode_t
+
+   interface set_constant
+      module procedure set_constant_r_
+      module procedure set_constant_c_
+   end interface set_constant
+
+contains
+
+   function xi_r(this, k)
+
+      class(wave_t), intent(in) :: this
+      integer, intent(in)       :: k
+      complex(RD)               :: xi_r
+
+      xi_r = 0._RD
+
+   end function xi_r
+
+  !****
+
+  function xi_h(this, k)
+
+     class(wave_t), intent(in) :: this
+     integer, intent(in)       :: k
+     complex(RD)               :: xi_h
+
+     xi_h = 0._RD
+
+  end function xi_h
+
+  !****
+
+  function dW_dx(this, k)
+
+     class(wave_t), intent(in) :: this
+     integer, intent(in)       :: k
+     real(RD)                  :: dW_dx
+
+     dW_dx = 0._RD
+
+  end function dW_dx
+
+  !****
+
+  function freq(this, freq_units, freq_frame)
+
+     class(wave_t), intent(in)          :: this
+     character(*), intent(in)           :: freq_units
+     character(*), optional, intent(in) :: freq_frame
+     complex(RD)                        :: freq
+
+     freq = 0._RD
+
+  end function freq
+
+  !****
+
+  function grid(this) result (gr)
+
+     class(wave_t), intent(in) :: this
+     type(grid_t)              :: gr
+
+     ! Return the wave's grid
+
+     gr = this%gr
+
+     ! Finish
+
+     return
+
+  end function grid
+
+  !****
+
+  subroutine init(file)
+
+     character(*), intent(in) :: file
+     write(*,*) ''
+     write(*,*) 'WARNING: You are initializing the stub version of GYRE, which means'
+     write(*,*) 'that MESA was installed without the embedded interfaces to GYRE.'
+     write(*,*) 'Calls to GYRE in this run will not produce useful output.'
+     write(*,*) ''
+
+  end subroutine init
+
+  !****
+
+  subroutine final()
+  end subroutine final
+
+  !****
+
+  subroutine read_model (file)
+
+     character(LEN=*), intent(in) :: file
+
+  end subroutine read_model
+
+  !****
+
+  subroutine set_model (global_data, point_data, version)
+
+     real(RD), intent(in) :: global_data(:)
+     real(RD), intent(in) :: point_data(:,:)
+     integer, intent(in)  :: version
+
+  end subroutine set_model
+
+  !****
+
+  subroutine get_modes (l, user_sub, ipar, rpar)
+
+     integer, intent(in)     :: l
+     interface
+        subroutine user_sub (md, ipar, rpar, retcode)
+           import mode_t
+           import RD
+           type(mode_t), intent(in) :: md
+           integer, intent(inout)   :: ipar(:)
+           real(RD), intent(inout)  :: rpar(:)
+           integer, intent(out)     :: retcode
+        end subroutine user_sub
+     end interface
+     integer, intent(inout)  :: ipar(:)
+     real(RD), intent(inout) :: rpar(:)
+
+  end subroutine get_modes
+
+  !****
+
+  subroutine set_constant_r_ (name, value)
+
+     character(*), intent(in) :: name
+     real(RD), intent(in)     :: value
+
+  end subroutine set_constant_r_
+
+  !****
+
+  subroutine set_constant_c_ (name, value)
+
+     character(*), intent(in) :: name
+     character(*), intent(in) :: value
+
+  end subroutine set_constant_c_
+
+end module gyre_mesa_m ! stub
+
diff --git a/gyre/test/make/makefile_base b/gyre/test/make/makefile_base
index 3905a3f7b..9cdf14ce7 100644
--- a/gyre/test/make/makefile_base
+++ b/gyre/test/make/makefile_base
@@ -12,23 +12,32 @@ include $(MESA_DIR)/utils/makefile_header
 #
 # SOURCES
 
-ifeq ($(USE_GYRE),NO)
-    SRCS = test_gyre_stub.f
-else
+ifeq ($(USE_GYRE),YES)
     SRCS = test_gyre.f
+else
+    SRCS = test_gyre_stub.f
 endif
 
 #################################################################
 #
 # LIBRARIES
 
-LIBS_LOCAL = gyre
+ifeq ($(USE_GYRE),YES)
+    LOCAL_LIB_DIR = ../../gyre/lib
+    LOCAL_INC_DIR = ../../gyre/include
+    LIBS_LOCAL = gyre_mesa gyre
+else
+    LOCAL_LIB_DIR = ../../make
+    LOCAL_INC_DIR = ../../make
+    LIBS_LOCAL = gyre_mesa
+endif
+
 DEPS_LOCAL = $(patsubst %,$(LOCAL_LIB_DIR)/lib%.$(LIB_SUFFIX),$(LIBS_LOCAL))
 LOAD_LOCAL = -L$(LOCAL_LIB_DIR) $(addprefix -l,$(LIBS_LOCAL))
 
-LIBS_OTHER = $(LIBS_MATRIX)
+LIBS_OTHER = $(LIBS_MATRIX) $(LIBS_MESA_NUMERICS)
 DEPS_OTHER = $(patsubst %,$(MESA_LIB_DIR)/lib%.$(LIB_SUFFIX),$(LIBS_OTHER))
-LOAD_OTHER = -L$(MESA_LIB_DIR) $(LOAD_MATRIX) $(LOAD_HDF5)
+LOAD_OTHER = -L$(MESA_LIB_DIR) $(LOAD_MATRIX) $(LOAD_MESA_NUMERICS)
 
 #################################################################
 #
@@ -58,9 +67,9 @@ nodeps : $(.DEFAULT_GOAL)
 %.o: %.f
 ifneq ($(QUIET),)
 	@echo TEST_COMPILE $<
-	@$(TEST_COMPILE) $(FCfree) $<
+	@$(TEST_COMPILE) $(FCfree) -I$(LOCAL_INC_DIR) $<
 else
-	$(TEST_COMPILE) $(FCfree) $<
+	$(TEST_COMPILE) $(FCfree) -I$(LOCAL_INC_DIR) $<
 endif
 
 #################################################################
@@ -71,7 +80,7 @@ SRC_PATH = ../src
 
 vpath %.f $(SRC_PATH)
 
-vpath %.mod $(LOCAL_LIB_DIR):$(MESA_DIR)/include
+vpath %.mod $(LOCAL_INC_DIR):$(MESA_DIR)/include
 
 NODEPS = $(or $(filter nodeps,$(MAKECMDGOALS)),$(filter clean,$(MAKECMDGOALS)))
 
diff --git a/gyre/test/src/test_gyre.f b/gyre/test/src/test_gyre.f
index 872c9343b..f9fb6c471 100644
--- a/gyre/test/src/test_gyre.f
+++ b/gyre/test/src/test_gyre.f
@@ -1,7 +1,7 @@
 module test_gyre_mod
 
   use const_def, only : dp, mesa_dir
-  use gyre_lib
+  use gyre_mesa_m
 
   implicit none
 
@@ -15,22 +15,21 @@ subroutine do_test ()
 
     integer  :: ipar(1)
     real(dp) :: rpar(1)
-    integer  :: retcode
 
     ! Initialize
 
-    call gyre_init('gyre.in')
+    call init('gyre.in')
 
-    call gyre_set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
+    call set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
 
     ! Read a model from file
 
-    call gyre_read_model('model.dat')
+    call read_model('model.dat')
 
     ! Find modes
 
-    call gyre_get_modes(0, user_sub, ipar, rpar)
-    call gyre_get_modes(1, user_sub, ipar, rpar)
+    call get_modes(0, user_sub, ipar, rpar)
+    call get_modes(1, user_sub, ipar, rpar)
 
     write(*,*) 'done file model'
 
@@ -38,12 +37,12 @@ subroutine do_test ()
 
     call load_model('model.dat', global_data, point_data, version)
 
-    call gyre_set_model(global_data, point_data, version)
+    call set_model(global_data, point_data, version)
 
     ! Find modes
 
-    call gyre_get_modes(0, user_sub, ipar, rpar)
-    call gyre_get_modes(1, user_sub, ipar, rpar)
+    call get_modes(0, user_sub, ipar, rpar)
+    call get_modes(1, user_sub, ipar, rpar)
 
     write(*,*) 'done memory model'
 
@@ -58,10 +57,6 @@ subroutine user_sub (md, ipar, rpar, retcode)
     real(dp), intent(inout)  :: rpar(:)
     integer, intent(out)     :: retcode
 
-    integer :: n_p
-    integer :: n_g
-    integer :: n_pg
-
     ! Print out mode info
 
     write(*,*) md%md_p%l, md%n_p, md%n_g, md%n_pg, REAL(md%freq('UHZ')), md%E_norm()
diff --git a/hdf5io/build_and_test b/hdf5io/build_and_test
deleted file mode 100755
index e02a156fe..000000000
--- a/hdf5io/build_and_test
+++ /dev/null
@@ -1,3 +0,0 @@
-#!/bin/bash
-
-../utils/build_and_test
diff --git a/hdf5io/build_and_test_parallel b/hdf5io/build_and_test_parallel
deleted file mode 100755
index 2b3599335..000000000
--- a/hdf5io/build_and_test_parallel
+++ /dev/null
@@ -1,3 +0,0 @@
-#!/bin/bash
-
-../utils/build_and_test_parallel
diff --git a/hdf5io/clean b/hdf5io/clean
deleted file mode 100755
index 6957bce5c..000000000
--- a/hdf5io/clean
+++ /dev/null
@@ -1,2 +0,0 @@
-cd make; make clean
-cd ../test/make; make clean
\ No newline at end of file
diff --git a/hdf5io/make/makefile_base b/hdf5io/make/makefile_base
deleted file mode 100644
index 4ea19e008..000000000
--- a/hdf5io/make/makefile_base
+++ /dev/null
@@ -1,114 +0,0 @@
-# This is the makefile for the mesa atm library
-
-MESA_DIR = ../..
-
-#################################################################
-#
-# PREAMBLE
-
-include $(MESA_DIR)/utils/makefile_header
-
-#################################################################
-#
-# SOURCES
-
-SRCS = \
-   hdf5io_lib.f90 \
-   kinds_m.f90 \
-   hdf5io_m.f90 \
-   cinter_m.f90
-
-#################################################################
-#
-# LIBRARIES
-
-ifeq ($(USE_SHARED), YES)
-     LIBS_OTHER = 
-     DEPS_OTHER = 
-     LOAD_OTHER = 
-endif
-
-#################################################################
-#
-# TARGETS
-
-LIB = libhdf5io.$(LIB_SUFFIX)
-
-OBJS = $(patsubst %.f,%.o,$(patsubst %.f90,%.o,$(SRCS)))
-
-$(LIB) : $(OBJS) $(DEPS_OTHER)
-ifneq ($(QUIET),)
-	@echo LIB_TOOL $(LIB)
-	@$(LIB_TOOL) $(LIB) $(OBJS) $(LOAD_OTHER)
-else	   
-	$(LIB_TOOL) $(LIB) $(OBJS) $(LOAD_OTHER)
-endif	
-
-clean:
-	-@rm -f *.o *.mod *genmod.f90 *.so *.a .depend *.smod
-
-install:
-	@$(CP_IF_NEWER) hdf5io_lib.mod $(MESA_DIR)/include
-	@$(CP_IF_NEWER) $(LIB) $(MESA_DIR)/lib
-
-nodeps : $(.DEFAULT_GOAL)
-
-#################################################################
-#
-# COMPILATION RULES
-
-COMPILE = $(COMPILE_TO_DEPLOY)
-#COMPILE = $(COMPILE_TO_TEST)
-
-#COMPILE = $(COMPILE_NO_OPENMP_NO_OPT)
-
-COMPILE_CMD = $(COMPILE) $(FCfree)
-
-%.o : %.mod
-
-%.o : %.f
-ifneq ($(QUIET),)
-	@echo COMPILE_CMD $<
-	@$(COMPILE_CMD) $<
-else
-	$(COMPILE_CMD) $<
-endif
-
-%.o : %.f90
-ifneq ($(QUIET),)
-	@echo COMPILE_CMD $<
-	@$(COMPILE_CMD) $<
-else
-	$(COMPILE_CMD) $<
-endif
-
-%.mod : %.o
-	@true
-
-#################################################################
-#
-# DEPENDENCIES
-
-SRC_PATH = $(MOD_PUBLIC_DIR):$(MOD_PRIVATE_DIR) 
-
-vpath %.f $(SRC_PATH)
-vpath %.f90 $(SRC_PATH)
-vpath %.dek $(SRC_PATH)
-
-vpath %.mod $(MESA_DIR)/include
-
-NODEPS = $(or $(filter nodeps,$(MAKECMDGOALS)),$(filter clean,$(MAKECMDGOALS)))
-
-ifeq ($(NODEPS),)
-
-  .depend :
-  ifneq ($(QUIET),)
-	@echo MAKEDEPF90
-	@$(MAKEDEPF90) -I$(SRC_PATH) $(SRCS) > .depend
-  else
-	$(MAKEDEPF90) -I$(SRC_PATH) $(SRCS) > .depend
-  endif
-
-  -include .depend
-
-endif
diff --git a/hdf5io/private/README b/hdf5io/private/README
deleted file mode 100644
index 92534f41d..000000000
--- a/hdf5io/private/README
+++ /dev/null
@@ -1,16 +0,0 @@
-NOTE: the .fypp and .inc files are copied from the ForUM project
-(https://github.com/rhdtownsend/forum). They are designed to be
-processed using the fypp preprocessor
-(https://github.com/aradi/fypp). This can be done by running the
-regen_src script
-
-Given that not all users will have fypp installed, for now we're
-storing both .fypp/.inc *and* .f90 files in the repo. Longer term, we
-may want to add fypp to the MESA SDK, allowing us to ship only the
-.fypp/.inc files.
-
-TL;DR: Don't edit the .f90 files, edit the .fypp/.inc files and run
-fypp.
-
-Rich Townsend
-February 2021
diff --git a/hdf5io/private/cinter_m.f90 b/hdf5io/private/cinter_m.f90
deleted file mode 100644
index 53dbe6d08..000000000
--- a/hdf5io/private/cinter_m.f90
+++ /dev/null
@@ -1,206 +0,0 @@
-! Module   : cinter_m
-! Purpose  : C interoperability support
-!
-! Copyright 2021 Rich Townsend
-!
-! This file is part of the ForUM (Fortran Utility Modules)
-! package. ForUM is free software: you can redistribute it and/or
-! modify it under the terms of the GNU General Public License as
-! published by the Free Software Foundation, version 3.
-!
-! ForUM is distributed in the hope that it will be useful, but WITHOUT
-! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-! or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
-! License for more details.
-!
-! You should have received a copy of the GNU General Public License
-! along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-module cinter_m
-
-  ! Uses
-
-  use kinds_m
-
-  use ISO_FORTRAN_ENV
-  use ISO_C_BINDING
-  
-  ! No implicit typing
-
-  implicit none
-
-  ! Interfaces
-
-  interface c_f_len
-     module procedure c_f_len_arr_
-     module procedure c_f_len_ptr_
-  end interface c_f_len
-
-  interface c_f_string
-     module procedure c_f_string_arr_
-     module procedure c_f_string_ptr_
-  end interface c_f_string
-
-  ! Access specifiers
-
-  private
-
-  public :: c_f_len
-  public :: c_f_string
-
-  ! Procedures
-
-contains
-
-   function c_f_len_arr_(c_str) result (f_len)
-
-      character(C_CHAR) :: c_str(*)
-      integer           :: f_len
-
-      integer :: i
-
-      ! Determine the Fortran length of the C string (expressed as an
-      ! assumed-size array of C_CHARs, terminated by a NULL)
-
-      i = 1
-
-      len_loop : do
-         if (c_str(i) == C_NULL_CHAR) exit len_loop
-         i = i + 1
-      end do len_loop
-
-      f_len = i - 1
-
-      ! Finish
-
-      return
-
-   end function c_f_len_arr_
-
-   !****
-
-   function c_f_len_ptr_(c_str) result (f_len)
-
-      type(C_PTR), value :: c_str
-      integer            :: f_len
-
-      character(C_CHAR), pointer :: p(:)
-      integer                    :: i
-
-      ! Determine the Fortran length of the C string (expressed as a
-      ! pointer to a NULL-termninated sequence)
-
-      if (C_ASSOCIATED(c_str)) then
-
-         call c_f_pointer(c_str, p, [HUGE(0)])
-
-         i = 1
-
-         len_loop : do
-            if (p(i) == C_NULL_CHAR) exit len_loop
-            i = i + 1
-         end do len_loop
-
-         f_len = i - 1
-
-      else
-
-         f_len = 0
-
-      endif
-
-      ! Finish
-
-      return
-
-   end function c_f_len_ptr_
-
-   !****
-   
-   function c_f_string_arr_(c_str) result (f_str)
-
-      character(C_CHAR)         :: c_str(*)
-      character(:), allocatable :: f_str
-
-      integer :: n
-      integer :: i
-
-      ! Convert the C string (expressed as an assumed-size array of
-      ! C_CHARs, terminated by a NULL) into a Fortran string
-
-      n = c_f_len(c_str)
-
-      allocate(character(LEN=c_f_len(c_str))::f_str)
-
-      copy_loop : do i = 1, n
-         f_str(i:i) = c_str(i)
-      end do copy_loop
-
-      ! Finish
-
-      return
-
-   end function c_f_string_arr_
-
-   !****
-
-   function c_f_string_ptr_(c_str) result (f_str)
-
-      type(C_PTR), value        :: c_str
-      character(:), allocatable :: f_str
-
-      character(C_CHAR), pointer :: p(:)
-      integer                    :: n
-      integer                    :: i
-
-      ! Convert the C string (expressed as a pointer to a
-      ! NULL-terminated sequence) into a Fortran string
-
-      if (C_ASSOCIATED(c_str)) then
-
-         call c_f_pointer(c_str, p, [HUGE(0)])
-
-         n = c_f_len(p)
-         
-         allocate(character(LEN=n)::f_str)
-
-         copy_loop : do i = 1, n
-            f_str(i:i) = p(i)
-         end do copy_loop
-
-      else
-
-         allocate(character(LEN=0)::f_str)
-
-      endif
-
-      ! Finish
-
-      return
-
-   end function c_f_string_ptr_
-
-end module cinter_m
diff --git a/hdf5io/private/cinter_m.fypp b/hdf5io/private/cinter_m.fypp
deleted file mode 100644
index a85ea8d46..000000000
--- a/hdf5io/private/cinter_m.fypp
+++ /dev/null
@@ -1,185 +0,0 @@
-! Module   : cinter_m
-! Purpose  : C interoperability support
-!
-! Copyright 2021 Rich Townsend
-!
-! This file is part of the ForUM (Fortran Utility Modules)
-! package. ForUM is free software: you can redistribute it and/or
-! modify it under the terms of the GNU General Public License as
-! published by the Free Software Foundation, version 3.
-!
-! ForUM is distributed in the hope that it will be useful, but WITHOUT
-! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-! or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
-! License for more details.
-!
-! You should have received a copy of the GNU General Public License
-! along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-#:include 'forum.inc'
-
-module cinter_m
-
-  ! Uses
-
-  use kinds_m
-
-  use ISO_FORTRAN_ENV
-  use ISO_C_BINDING
-  
-  ! No implicit typing
-
-  implicit none
-
-  ! Interfaces
-
-  interface c_f_len
-     module procedure c_f_len_arr_
-     module procedure c_f_len_ptr_
-  end interface c_f_len
-
-  interface c_f_string
-     module procedure c_f_string_arr_
-     module procedure c_f_string_ptr_
-  end interface c_f_string
-
-  ! Access specifiers
-
-  private
-
-  public :: c_f_len
-  public :: c_f_string
-
-  ! Procedures
-
-contains
-
-   function c_f_len_arr_(c_str) result (f_len)
-
-      character(C_CHAR) :: c_str(*)
-      integer           :: f_len
-
-      integer :: i
-
-      ! Determine the Fortran length of the C string (expressed as an
-      ! assumed-size array of C_CHARs, terminated by a NULL)
-
-      i = 1
-
-      len_loop : do
-         if (c_str(i) == C_NULL_CHAR) exit len_loop
-         i = i + 1
-      end do len_loop
-
-      f_len = i - 1
-
-      ! Finish
-
-      return
-
-   end function c_f_len_arr_
-
-   !****
-
-   function c_f_len_ptr_(c_str) result (f_len)
-
-      type(C_PTR), value :: c_str
-      integer            :: f_len
-
-      character(C_CHAR), pointer :: p(:)
-      integer                    :: i
-
-      ! Determine the Fortran length of the C string (expressed as a
-      ! pointer to a NULL-termninated sequence)
-
-      if (C_ASSOCIATED(c_str)) then
-
-         call c_f_pointer(c_str, p, [HUGE(0)])
-
-         i = 1
-
-         len_loop : do
-            if (p(i) == C_NULL_CHAR) exit len_loop
-            i = i + 1
-         end do len_loop
-
-         f_len = i - 1
-
-      else
-
-         f_len = 0
-
-      endif
-
-      ! Finish
-
-      return
-
-   end function c_f_len_ptr_
-
-   !****
-   
-   function c_f_string_arr_(c_str) result (f_str)
-
-      character(C_CHAR)         :: c_str(*)
-      character(:), allocatable :: f_str
-
-      integer :: n
-      integer :: i
-
-      ! Convert the C string (expressed as an assumed-size array of
-      ! C_CHARs, terminated by a NULL) into a Fortran string
-
-      n = c_f_len(c_str)
-
-      allocate(character(LEN=c_f_len(c_str))::f_str)
-
-      copy_loop : do i = 1, n
-         f_str(i:i) = c_str(i)
-      end do copy_loop
-
-      ! Finish
-
-      return
-
-   end function c_f_string_arr_
-
-   !****
-
-   function c_f_string_ptr_(c_str) result (f_str)
-
-      type(C_PTR), value        :: c_str
-      character(:), allocatable :: f_str
-
-      character(C_CHAR), pointer :: p(:)
-      integer                    :: n
-      integer                    :: i
-
-      ! Convert the C string (expressed as a pointer to a
-      ! NULL-terminated sequence) into a Fortran string
-
-      if (C_ASSOCIATED(c_str)) then
-
-         call c_f_pointer(c_str, p, [HUGE(0)])
-
-         n = c_f_len(p)
-         
-         allocate(character(LEN=n)::f_str)
-
-         copy_loop : do i = 1, n
-            f_str(i:i) = p(i)
-         end do copy_loop
-
-      else
-
-         allocate(character(LEN=0)::f_str)
-
-      endif
-
-      ! Finish
-
-      return
-
-   end function c_f_string_ptr_
-
-end module cinter_m
diff --git a/hdf5io/private/forum.inc b/hdf5io/private/forum.inc
deleted file mode 100644
index 5207597d6..000000000
--- a/hdf5io/private/forum.inc
+++ /dev/null
@@ -1,108 +0,0 @@
-#! Include : forum
-#! Purpose : common macros used throughout ForUM
-#!
-#! Copyright 2021 Rich Townsend
-#!
-#! This file is part of the ForUM (Fortran Utility Modules)
-#! package. ForUM is free software: you can redistribute it and/or
-#! modify it under the terms of the GNU General Public License as
-#! published by the Free Software Foundation, version 3.
-#!
-#! ForUM is distributed in the hope that it will be useful, but WITHOUT
-#! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-#! or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
-#! License for more details.
-#!
-#! You should have received a copy of the GNU General Public License
-#! along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-#!!! Type and suffix definitions
-
-#:set INT_KINDS = ['IS', 'ID']
-#:set INT_TYPES = [f'integer({kind})' for kind in INT_KINDS]
-#:set INT_SUFFIXES = ['is', 'id']
-
-#:set REAL_KINDS = ['RS', 'RD']
-#:set REAL_TYPES = [f'real({kind})' for kind in REAL_KINDS]
-#:set REAL_SUFFIXES = ['rs', 'rd']
-
-#:set COMPLEX_KINDS = REAL_KINDS
-#:set COMPLEX_TYPES = [f'complex({kind})' for kind in REAL_KINDS]
-#:set COMPLEX_SUFFIXES = [kind.replace('r', 'c') for kind in REAL_SUFFIXES]
-
-#:set CHAR_TYPES = ['character(*)']
-#:set CHAR_SUFFIXES = ['s']
-
-#:set LOGICAL_TYPES = ['logical']
-#:set LOGICAL_SUFFIXES = ['l']
-
-#:set NUM_TYPES = INT_TYPES + REAL_TYPES + COMPLEX_TYPES
-#:set NUM_SUFFIXES = INT_SUFFIXES + REAL_SUFFIXES + COMPLEX_SUFFIXES
-
-#:set MATH_TYPES = NUM_TYPES + LOGICAL_TYPES
-#:set MATH_SUFFIXES = NUM_SUFFIXES + LOGICAL_SUFFIXES
-
-#:set ORDERED_TYPES = INT_TYPES + REAL_TYPES + CHAR_TYPES
-#:set ORDERED_SUFFIXES = INT_SUFFIXES + REAL_SUFFIXES + CHAR_SUFFIXES
-
-#:set ALL_TYPES = MATH_TYPES + CHAR_TYPES
-#:set ALL_SUFFIXES = MATH_SUFFIXES + CHAR_SUFFIXES
-
-#:set RANK_MAX = 7
-
-#!!! Macro definitions
-
-#!!
-#! Abort execution
-#!!
-
-#:def ABORT(message=None)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line ${_LINE_}$ of ${_FILE_}$'
-   #:if message
-      write(UNIT=ERROR_UNIT, FMT=*) '${message}$'
-   #:endif
-   error stop
-#:enddef
-
-#!!
-#! Assert that cond is satisfied
-#!!
-
-#:def ASSERT(cond, message=None)
-   if (.NOT. (${cond}$)) then
-      #:set cond_str = cond.replace("'", "''")
-      #:if message
-         $:ABORT(f'assertion "{cond_str}" failed with message "{message}"')
-      #:else
-         $:ABORT(f'assertion "{cond_str}" failed')
-      #:endif
-   end if
-#:enddef
-
-#!!
-#! Same as ASSERT, but only if DEBUG is set
-#!!
-
-#:def ASSERT_DEBUG(cond, message=None)
-   #:if defined('DEBUG')
-      $:ASSERT(cond, message)
-   #:endif
-#:enddef
-
-#!!
-#! Used for bounds checking
-#!!
-
-#:def CHECK_BOUNDS(x, y)
-   $:ASSERT_DEBUG(x+'=='+y, 'bounds mismatch')
-#:enddef
-
-#!!
-#! Create a deferred shape array specification list
-#!!
-
-#:def ARRAY_SPEC(rank, str=':')
-   #:if rank > 0
-      $:'(' + ','.join([str.format(i) for i in range(1, rank+1)]) + ')'
-   #:endif
-#:enddef
diff --git a/hdf5io/private/hdf5io.inc b/hdf5io/private/hdf5io.inc
deleted file mode 100644
index f9530aa3e..000000000
--- a/hdf5io/private/hdf5io.inc
+++ /dev/null
@@ -1,31 +0,0 @@
-#! Include : hdf5io
-#! Purpose : support macros for hdf5io module
-#!
-#! Copyright 2021 Rich Townsend
-#!
-#! This file is part of the ForUM (Fortran Utility Modules)
-#! package. ForUM is free software: you can redistribute it and/or
-#! modify it under the terms of the GNU General Public License as
-#! published by the Free Software Foundation, version 3.
-#!
-#! ForUM is distributed in the hope that it will be useful, but WITHOUT
-#! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-#! or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
-#! License for more details.
-#!
-#! You should have received a copy of the GNU General Public License
-#! along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-#!!
-#! Standard macro to call HDF5
-#!!
-
-#:def HDF5_CALL(proc, *vars_pos, **vars_kw)
-   #:set vars = vars_pos + ['hdf_err'] + ['{:s}={:s}'.format(key, value) for key, value in vars_kw.items()]
-   #:set arg_list = '(' + ','.join(vars) + ')'
-   call ${proc}$${arg_list}$
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-      @:ABORT(error in call to ${proc}$)
-   endif
-#:enddef
diff --git a/hdf5io/private/hdf5io_m.f90 b/hdf5io/private/hdf5io_m.f90
deleted file mode 100644
index e47b401b3..000000000
--- a/hdf5io/private/hdf5io_m.f90
+++ /dev/null
@@ -1,23601 +0,0 @@
-! Module  : hdf5io
-! Purpose : definition of hdf5io_t type, supporting HDF5 input/output
-!
-! Copyright 2021 Rich Townsend
-!
-! This file is part of the ForUM (Fortran Utility Modules)
-! package. ForUM is free software: you can redistribute it and/or
-! modify it under the terms of the GNU General Public License as
-! published by the Free Software Foundation, version 3.
-!
-! ForUM is distributed in the hope that it will be useful, but WITHOUT
-! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-! or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
-! License for more details.
-!
-! You should have received a copy of the GNU General Public License
-! along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-module hdf5io_m
-
-   ! Uses
-
-   use kinds_m
-   use cinter_m
-
-   use hdf5
-
-   use ISO_FORTRAN_ENV
-   use ISO_C_BINDING
-
-   ! No implicit typing
-
-   implicit none
-
-   ! Parameters
-
-   integer, parameter :: CREATE_FILE = 1
-   integer, parameter :: OPEN_FILE_RO = 2
-   integer, parameter :: OPEN_FILE_RW = 3
-
-   integer, parameter :: TYPE_LEN = 31
-
-   ! Derived-type definitions
-
-   type hdf5io_t
-      private
-      integer(HID_T)   :: file_id = 0
-      integer(HID_T)   :: group_id = 0
-      integer          :: comp_level = 0
-      integer, pointer :: ref_count => null()
-   contains
-      private
-      procedure, public :: final => final_
-         procedure, public :: group_exists
-         procedure, public :: attr_exists
-         procedure, public :: dset_exists
-         procedure, public :: group_names
-         procedure, public :: dset_names
-         procedure, public :: attr_shape
-         procedure, public :: dset_shape
-                  procedure :: read_attr_is_0_
-                  procedure :: read_attr_id_0_
-                  procedure :: read_attr_rs_0_
-                  procedure :: read_attr_rd_0_
-                  procedure :: read_attr_cs_0_
-                  procedure :: read_attr_cd_0_
-                  procedure :: read_attr_l_0_
-                  procedure :: read_attr_s_0_
-                  procedure :: read_attr_is_1_
-                  procedure :: read_attr_id_1_
-                  procedure :: read_attr_rs_1_
-                  procedure :: read_attr_rd_1_
-                  procedure :: read_attr_cs_1_
-                  procedure :: read_attr_cd_1_
-                  procedure :: read_attr_l_1_
-                  procedure :: read_attr_s_1_
-                  procedure :: read_attr_is_2_
-                  procedure :: read_attr_id_2_
-                  procedure :: read_attr_rs_2_
-                  procedure :: read_attr_rd_2_
-                  procedure :: read_attr_cs_2_
-                  procedure :: read_attr_cd_2_
-                  procedure :: read_attr_l_2_
-                  procedure :: read_attr_s_2_
-                  procedure :: read_attr_is_3_
-                  procedure :: read_attr_id_3_
-                  procedure :: read_attr_rs_3_
-                  procedure :: read_attr_rd_3_
-                  procedure :: read_attr_cs_3_
-                  procedure :: read_attr_cd_3_
-                  procedure :: read_attr_l_3_
-                  procedure :: read_attr_s_3_
-                  procedure :: read_attr_is_4_
-                  procedure :: read_attr_id_4_
-                  procedure :: read_attr_rs_4_
-                  procedure :: read_attr_rd_4_
-                  procedure :: read_attr_cs_4_
-                  procedure :: read_attr_cd_4_
-                  procedure :: read_attr_l_4_
-                  procedure :: read_attr_s_4_
-                  procedure :: read_attr_is_5_
-                  procedure :: read_attr_id_5_
-                  procedure :: read_attr_rs_5_
-                  procedure :: read_attr_rd_5_
-                  procedure :: read_attr_cs_5_
-                  procedure :: read_attr_cd_5_
-                  procedure :: read_attr_l_5_
-                  procedure :: read_attr_s_5_
-                  procedure :: read_attr_is_6_
-                  procedure :: read_attr_id_6_
-                  procedure :: read_attr_rs_6_
-                  procedure :: read_attr_rd_6_
-                  procedure :: read_attr_cs_6_
-                  procedure :: read_attr_cd_6_
-                  procedure :: read_attr_l_6_
-                  procedure :: read_attr_s_6_
-                  procedure :: read_attr_is_7_
-                  procedure :: read_attr_id_7_
-                  procedure :: read_attr_rs_7_
-                  procedure :: read_attr_rd_7_
-                  procedure :: read_attr_cs_7_
-                  procedure :: read_attr_cd_7_
-                  procedure :: read_attr_l_7_
-                  procedure :: read_attr_s_7_
-            generic, public :: read_attr => read_attr_is_0_,read_attr_id_0_,read_attr_rs_0_,read_attr_rd_0_,read_attr_cs_0_,read_at&
-                &tr_cd_0_,read_attr_l_0_,read_attr_s_0_,read_attr_is_1_,read_attr_id_1_,read_attr_rs_1_,read_attr_rd_1_,read_attr_c&
-                &s_1_,read_attr_cd_1_,read_attr_l_1_,read_attr_s_1_,read_attr_is_2_,read_attr_id_2_,read_attr_rs_2_,read_attr_rd_2_&
-                &,read_attr_cs_2_,read_attr_cd_2_,read_attr_l_2_,read_attr_s_2_,read_attr_is_3_,read_attr_id_3_,read_attr_rs_3_,rea&
-                &d_attr_rd_3_,read_attr_cs_3_,read_attr_cd_3_,read_attr_l_3_,read_attr_s_3_,read_attr_is_4_,read_attr_id_4_,read_at&
-                &tr_rs_4_,read_attr_rd_4_,read_attr_cs_4_,read_attr_cd_4_,read_attr_l_4_,read_attr_s_4_,read_attr_is_5_,read_attr_i&
-                &d_5_,read_attr_rs_5_,read_attr_rd_5_,read_attr_cs_5_,read_attr_cd_5_,read_attr_l_5_,read_attr_s_5_,read_attr_is_6_&
-                &,read_attr_id_6_,read_attr_rs_6_,read_attr_rd_6_,read_attr_cs_6_,read_attr_cd_6_,read_attr_l_6_,read_attr_s_6_,rea&
-                &d_attr_is_7_,read_attr_id_7_,read_attr_rs_7_,read_attr_rd_7_,read_attr_cs_7_,read_attr_cd_7_,read_attr_l_7_,read_a&
-                &ttr_s_7_
-                  procedure :: read_dset_is_0_
-                  procedure :: read_dset_id_0_
-                  procedure :: read_dset_rs_0_
-                  procedure :: read_dset_rd_0_
-                  procedure :: read_dset_cs_0_
-                  procedure :: read_dset_cd_0_
-                  procedure :: read_dset_l_0_
-                  procedure :: read_dset_s_0_
-                  procedure :: read_dset_is_1_
-                  procedure :: read_dset_id_1_
-                  procedure :: read_dset_rs_1_
-                  procedure :: read_dset_rd_1_
-                  procedure :: read_dset_cs_1_
-                  procedure :: read_dset_cd_1_
-                  procedure :: read_dset_l_1_
-                  procedure :: read_dset_s_1_
-                  procedure :: read_dset_is_2_
-                  procedure :: read_dset_id_2_
-                  procedure :: read_dset_rs_2_
-                  procedure :: read_dset_rd_2_
-                  procedure :: read_dset_cs_2_
-                  procedure :: read_dset_cd_2_
-                  procedure :: read_dset_l_2_
-                  procedure :: read_dset_s_2_
-                  procedure :: read_dset_is_3_
-                  procedure :: read_dset_id_3_
-                  procedure :: read_dset_rs_3_
-                  procedure :: read_dset_rd_3_
-                  procedure :: read_dset_cs_3_
-                  procedure :: read_dset_cd_3_
-                  procedure :: read_dset_l_3_
-                  procedure :: read_dset_s_3_
-                  procedure :: read_dset_is_4_
-                  procedure :: read_dset_id_4_
-                  procedure :: read_dset_rs_4_
-                  procedure :: read_dset_rd_4_
-                  procedure :: read_dset_cs_4_
-                  procedure :: read_dset_cd_4_
-                  procedure :: read_dset_l_4_
-                  procedure :: read_dset_s_4_
-                  procedure :: read_dset_is_5_
-                  procedure :: read_dset_id_5_
-                  procedure :: read_dset_rs_5_
-                  procedure :: read_dset_rd_5_
-                  procedure :: read_dset_cs_5_
-                  procedure :: read_dset_cd_5_
-                  procedure :: read_dset_l_5_
-                  procedure :: read_dset_s_5_
-                  procedure :: read_dset_is_6_
-                  procedure :: read_dset_id_6_
-                  procedure :: read_dset_rs_6_
-                  procedure :: read_dset_rd_6_
-                  procedure :: read_dset_cs_6_
-                  procedure :: read_dset_cd_6_
-                  procedure :: read_dset_l_6_
-                  procedure :: read_dset_s_6_
-                  procedure :: read_dset_is_7_
-                  procedure :: read_dset_id_7_
-                  procedure :: read_dset_rs_7_
-                  procedure :: read_dset_rd_7_
-                  procedure :: read_dset_cs_7_
-                  procedure :: read_dset_cd_7_
-                  procedure :: read_dset_l_7_
-                  procedure :: read_dset_s_7_
-            generic, public :: read_dset => read_dset_is_0_,read_dset_id_0_,read_dset_rs_0_,read_dset_rd_0_,read_dset_cs_0_,read_ds&
-                &et_cd_0_,read_dset_l_0_,read_dset_s_0_,read_dset_is_1_,read_dset_id_1_,read_dset_rs_1_,read_dset_rd_1_,read_dset_c&
-                &s_1_,read_dset_cd_1_,read_dset_l_1_,read_dset_s_1_,read_dset_is_2_,read_dset_id_2_,read_dset_rs_2_,read_dset_rd_2_&
-                &,read_dset_cs_2_,read_dset_cd_2_,read_dset_l_2_,read_dset_s_2_,read_dset_is_3_,read_dset_id_3_,read_dset_rs_3_,rea&
-                &d_dset_rd_3_,read_dset_cs_3_,read_dset_cd_3_,read_dset_l_3_,read_dset_s_3_,read_dset_is_4_,read_dset_id_4_,read_ds&
-                &et_rs_4_,read_dset_rd_4_,read_dset_cs_4_,read_dset_cd_4_,read_dset_l_4_,read_dset_s_4_,read_dset_is_5_,read_dset_i&
-                &d_5_,read_dset_rs_5_,read_dset_rd_5_,read_dset_cs_5_,read_dset_cd_5_,read_dset_l_5_,read_dset_s_5_,read_dset_is_6_&
-                &,read_dset_id_6_,read_dset_rs_6_,read_dset_rd_6_,read_dset_cs_6_,read_dset_cd_6_,read_dset_l_6_,read_dset_s_6_,rea&
-                &d_dset_is_7_,read_dset_id_7_,read_dset_rs_7_,read_dset_rd_7_,read_dset_cs_7_,read_dset_cd_7_,read_dset_l_7_,read_d&
-                &set_s_7_
-                  procedure :: alloc_read_attr_is_0_
-                  procedure :: alloc_read_attr_id_0_
-                  procedure :: alloc_read_attr_rs_0_
-                  procedure :: alloc_read_attr_rd_0_
-                  procedure :: alloc_read_attr_cs_0_
-                  procedure :: alloc_read_attr_cd_0_
-                  procedure :: alloc_read_attr_l_0_
-                  procedure :: alloc_read_attr_s_0_
-                  procedure :: alloc_read_attr_is_1_
-                  procedure :: alloc_read_attr_id_1_
-                  procedure :: alloc_read_attr_rs_1_
-                  procedure :: alloc_read_attr_rd_1_
-                  procedure :: alloc_read_attr_cs_1_
-                  procedure :: alloc_read_attr_cd_1_
-                  procedure :: alloc_read_attr_l_1_
-                  procedure :: alloc_read_attr_s_1_
-                  procedure :: alloc_read_attr_is_2_
-                  procedure :: alloc_read_attr_id_2_
-                  procedure :: alloc_read_attr_rs_2_
-                  procedure :: alloc_read_attr_rd_2_
-                  procedure :: alloc_read_attr_cs_2_
-                  procedure :: alloc_read_attr_cd_2_
-                  procedure :: alloc_read_attr_l_2_
-                  procedure :: alloc_read_attr_s_2_
-                  procedure :: alloc_read_attr_is_3_
-                  procedure :: alloc_read_attr_id_3_
-                  procedure :: alloc_read_attr_rs_3_
-                  procedure :: alloc_read_attr_rd_3_
-                  procedure :: alloc_read_attr_cs_3_
-                  procedure :: alloc_read_attr_cd_3_
-                  procedure :: alloc_read_attr_l_3_
-                  procedure :: alloc_read_attr_s_3_
-                  procedure :: alloc_read_attr_is_4_
-                  procedure :: alloc_read_attr_id_4_
-                  procedure :: alloc_read_attr_rs_4_
-                  procedure :: alloc_read_attr_rd_4_
-                  procedure :: alloc_read_attr_cs_4_
-                  procedure :: alloc_read_attr_cd_4_
-                  procedure :: alloc_read_attr_l_4_
-                  procedure :: alloc_read_attr_s_4_
-                  procedure :: alloc_read_attr_is_5_
-                  procedure :: alloc_read_attr_id_5_
-                  procedure :: alloc_read_attr_rs_5_
-                  procedure :: alloc_read_attr_rd_5_
-                  procedure :: alloc_read_attr_cs_5_
-                  procedure :: alloc_read_attr_cd_5_
-                  procedure :: alloc_read_attr_l_5_
-                  procedure :: alloc_read_attr_s_5_
-                  procedure :: alloc_read_attr_is_6_
-                  procedure :: alloc_read_attr_id_6_
-                  procedure :: alloc_read_attr_rs_6_
-                  procedure :: alloc_read_attr_rd_6_
-                  procedure :: alloc_read_attr_cs_6_
-                  procedure :: alloc_read_attr_cd_6_
-                  procedure :: alloc_read_attr_l_6_
-                  procedure :: alloc_read_attr_s_6_
-                  procedure :: alloc_read_attr_is_7_
-                  procedure :: alloc_read_attr_id_7_
-                  procedure :: alloc_read_attr_rs_7_
-                  procedure :: alloc_read_attr_rd_7_
-                  procedure :: alloc_read_attr_cs_7_
-                  procedure :: alloc_read_attr_cd_7_
-                  procedure :: alloc_read_attr_l_7_
-                  procedure :: alloc_read_attr_s_7_
-            generic, public :: alloc_read_attr => alloc_read_attr_is_0_,alloc_read_attr_id_0_,alloc_read_attr_rs_0_,alloc_read_attr&
-                &_rd_0_,alloc_read_attr_cs_0_,alloc_read_attr_cd_0_,alloc_read_attr_l_0_,alloc_read_attr_s_0_,alloc_read_attr_is_1_&
-                &,alloc_read_attr_id_1_,alloc_read_attr_rs_1_,alloc_read_attr_rd_1_,alloc_read_attr_cs_1_,alloc_read_attr_cd_1_,all&
-                &oc_read_attr_l_1_,alloc_read_attr_s_1_,alloc_read_attr_is_2_,alloc_read_attr_id_2_,alloc_read_attr_rs_2_,alloc_rea&
-                &d_attr_rd_2_,alloc_read_attr_cs_2_,alloc_read_attr_cd_2_,alloc_read_attr_l_2_,alloc_read_attr_s_2_,alloc_read_attr&
-                &_is_3_,alloc_read_attr_id_3_,alloc_read_attr_rs_3_,alloc_read_attr_rd_3_,alloc_read_attr_cs_3_,alloc_read_attr_cd_&
-                &3_,alloc_read_attr_l_3_,alloc_read_attr_s_3_,alloc_read_attr_is_4_,alloc_read_attr_id_4_,alloc_read_attr_rs_4_,all&
-                &oc_read_attr_rd_4_,alloc_read_attr_cs_4_,alloc_read_attr_cd_4_,alloc_read_attr_l_4_,alloc_read_attr_s_4_,alloc_rea&
-                &d_attr_is_5_,alloc_read_attr_id_5_,alloc_read_attr_rs_5_,alloc_read_attr_rd_5_,alloc_read_attr_cs_5_,alloc_read_at&
-                &tr_cd_5_,alloc_read_attr_l_5_,alloc_read_attr_s_5_,alloc_read_attr_is_6_,alloc_read_attr_id_6_,alloc_read_attr_rs_&
-                &6_,alloc_read_attr_rd_6_,alloc_read_attr_cs_6_,alloc_read_attr_cd_6_,alloc_read_attr_l_6_,alloc_read_attr_s_6_,all&
-                &oc_read_attr_is_7_,alloc_read_attr_id_7_,alloc_read_attr_rs_7_,alloc_read_attr_rd_7_,alloc_read_attr_cs_7_,alloc_r&
-                &ead_attr_cd_7_,alloc_read_attr_l_7_,alloc_read_attr_s_7_
-                  procedure :: alloc_read_dset_is_0_
-                  procedure :: alloc_read_dset_id_0_
-                  procedure :: alloc_read_dset_rs_0_
-                  procedure :: alloc_read_dset_rd_0_
-                  procedure :: alloc_read_dset_cs_0_
-                  procedure :: alloc_read_dset_cd_0_
-                  procedure :: alloc_read_dset_l_0_
-                  procedure :: alloc_read_dset_s_0_
-                  procedure :: alloc_read_dset_is_1_
-                  procedure :: alloc_read_dset_id_1_
-                  procedure :: alloc_read_dset_rs_1_
-                  procedure :: alloc_read_dset_rd_1_
-                  procedure :: alloc_read_dset_cs_1_
-                  procedure :: alloc_read_dset_cd_1_
-                  procedure :: alloc_read_dset_l_1_
-                  procedure :: alloc_read_dset_s_1_
-                  procedure :: alloc_read_dset_is_2_
-                  procedure :: alloc_read_dset_id_2_
-                  procedure :: alloc_read_dset_rs_2_
-                  procedure :: alloc_read_dset_rd_2_
-                  procedure :: alloc_read_dset_cs_2_
-                  procedure :: alloc_read_dset_cd_2_
-                  procedure :: alloc_read_dset_l_2_
-                  procedure :: alloc_read_dset_s_2_
-                  procedure :: alloc_read_dset_is_3_
-                  procedure :: alloc_read_dset_id_3_
-                  procedure :: alloc_read_dset_rs_3_
-                  procedure :: alloc_read_dset_rd_3_
-                  procedure :: alloc_read_dset_cs_3_
-                  procedure :: alloc_read_dset_cd_3_
-                  procedure :: alloc_read_dset_l_3_
-                  procedure :: alloc_read_dset_s_3_
-                  procedure :: alloc_read_dset_is_4_
-                  procedure :: alloc_read_dset_id_4_
-                  procedure :: alloc_read_dset_rs_4_
-                  procedure :: alloc_read_dset_rd_4_
-                  procedure :: alloc_read_dset_cs_4_
-                  procedure :: alloc_read_dset_cd_4_
-                  procedure :: alloc_read_dset_l_4_
-                  procedure :: alloc_read_dset_s_4_
-                  procedure :: alloc_read_dset_is_5_
-                  procedure :: alloc_read_dset_id_5_
-                  procedure :: alloc_read_dset_rs_5_
-                  procedure :: alloc_read_dset_rd_5_
-                  procedure :: alloc_read_dset_cs_5_
-                  procedure :: alloc_read_dset_cd_5_
-                  procedure :: alloc_read_dset_l_5_
-                  procedure :: alloc_read_dset_s_5_
-                  procedure :: alloc_read_dset_is_6_
-                  procedure :: alloc_read_dset_id_6_
-                  procedure :: alloc_read_dset_rs_6_
-                  procedure :: alloc_read_dset_rd_6_
-                  procedure :: alloc_read_dset_cs_6_
-                  procedure :: alloc_read_dset_cd_6_
-                  procedure :: alloc_read_dset_l_6_
-                  procedure :: alloc_read_dset_s_6_
-                  procedure :: alloc_read_dset_is_7_
-                  procedure :: alloc_read_dset_id_7_
-                  procedure :: alloc_read_dset_rs_7_
-                  procedure :: alloc_read_dset_rd_7_
-                  procedure :: alloc_read_dset_cs_7_
-                  procedure :: alloc_read_dset_cd_7_
-                  procedure :: alloc_read_dset_l_7_
-                  procedure :: alloc_read_dset_s_7_
-            generic, public :: alloc_read_dset => alloc_read_dset_is_0_,alloc_read_dset_id_0_,alloc_read_dset_rs_0_,alloc_read_dset&
-                &_rd_0_,alloc_read_dset_cs_0_,alloc_read_dset_cd_0_,alloc_read_dset_l_0_,alloc_read_dset_s_0_,alloc_read_dset_is_1_&
-                &,alloc_read_dset_id_1_,alloc_read_dset_rs_1_,alloc_read_dset_rd_1_,alloc_read_dset_cs_1_,alloc_read_dset_cd_1_,all&
-                &oc_read_dset_l_1_,alloc_read_dset_s_1_,alloc_read_dset_is_2_,alloc_read_dset_id_2_,alloc_read_dset_rs_2_,alloc_rea&
-                &d_dset_rd_2_,alloc_read_dset_cs_2_,alloc_read_dset_cd_2_,alloc_read_dset_l_2_,alloc_read_dset_s_2_,alloc_read_dset&
-                &_is_3_,alloc_read_dset_id_3_,alloc_read_dset_rs_3_,alloc_read_dset_rd_3_,alloc_read_dset_cs_3_,alloc_read_dset_cd_&
-                &3_,alloc_read_dset_l_3_,alloc_read_dset_s_3_,alloc_read_dset_is_4_,alloc_read_dset_id_4_,alloc_read_dset_rs_4_,all&
-                &oc_read_dset_rd_4_,alloc_read_dset_cs_4_,alloc_read_dset_cd_4_,alloc_read_dset_l_4_,alloc_read_dset_s_4_,alloc_rea&
-                &d_dset_is_5_,alloc_read_dset_id_5_,alloc_read_dset_rs_5_,alloc_read_dset_rd_5_,alloc_read_dset_cs_5_,alloc_read_ds&
-                &et_cd_5_,alloc_read_dset_l_5_,alloc_read_dset_s_5_,alloc_read_dset_is_6_,alloc_read_dset_id_6_,alloc_read_dset_rs_&
-                &6_,alloc_read_dset_rd_6_,alloc_read_dset_cs_6_,alloc_read_dset_cd_6_,alloc_read_dset_l_6_,alloc_read_dset_s_6_,all&
-                &oc_read_dset_is_7_,alloc_read_dset_id_7_,alloc_read_dset_rs_7_,alloc_read_dset_rd_7_,alloc_read_dset_cs_7_,alloc_r&
-                &ead_dset_cd_7_,alloc_read_dset_l_7_,alloc_read_dset_s_7_
-                  procedure :: write_attr_is_0_
-                  procedure :: write_attr_id_0_
-                  procedure :: write_attr_rs_0_
-                  procedure :: write_attr_rd_0_
-                  procedure :: write_attr_cs_0_
-                  procedure :: write_attr_cd_0_
-                  procedure :: write_attr_l_0_
-                  procedure :: write_attr_s_0_
-                  procedure :: write_attr_is_1_
-                  procedure :: write_attr_id_1_
-                  procedure :: write_attr_rs_1_
-                  procedure :: write_attr_rd_1_
-                  procedure :: write_attr_cs_1_
-                  procedure :: write_attr_cd_1_
-                  procedure :: write_attr_l_1_
-                  procedure :: write_attr_s_1_
-                  procedure :: write_attr_is_2_
-                  procedure :: write_attr_id_2_
-                  procedure :: write_attr_rs_2_
-                  procedure :: write_attr_rd_2_
-                  procedure :: write_attr_cs_2_
-                  procedure :: write_attr_cd_2_
-                  procedure :: write_attr_l_2_
-                  procedure :: write_attr_s_2_
-                  procedure :: write_attr_is_3_
-                  procedure :: write_attr_id_3_
-                  procedure :: write_attr_rs_3_
-                  procedure :: write_attr_rd_3_
-                  procedure :: write_attr_cs_3_
-                  procedure :: write_attr_cd_3_
-                  procedure :: write_attr_l_3_
-                  procedure :: write_attr_s_3_
-                  procedure :: write_attr_is_4_
-                  procedure :: write_attr_id_4_
-                  procedure :: write_attr_rs_4_
-                  procedure :: write_attr_rd_4_
-                  procedure :: write_attr_cs_4_
-                  procedure :: write_attr_cd_4_
-                  procedure :: write_attr_l_4_
-                  procedure :: write_attr_s_4_
-                  procedure :: write_attr_is_5_
-                  procedure :: write_attr_id_5_
-                  procedure :: write_attr_rs_5_
-                  procedure :: write_attr_rd_5_
-                  procedure :: write_attr_cs_5_
-                  procedure :: write_attr_cd_5_
-                  procedure :: write_attr_l_5_
-                  procedure :: write_attr_s_5_
-                  procedure :: write_attr_is_6_
-                  procedure :: write_attr_id_6_
-                  procedure :: write_attr_rs_6_
-                  procedure :: write_attr_rd_6_
-                  procedure :: write_attr_cs_6_
-                  procedure :: write_attr_cd_6_
-                  procedure :: write_attr_l_6_
-                  procedure :: write_attr_s_6_
-                  procedure :: write_attr_is_7_
-                  procedure :: write_attr_id_7_
-                  procedure :: write_attr_rs_7_
-                  procedure :: write_attr_rd_7_
-                  procedure :: write_attr_cs_7_
-                  procedure :: write_attr_cd_7_
-                  procedure :: write_attr_l_7_
-                  procedure :: write_attr_s_7_
-            generic, public :: write_attr => write_attr_is_0_,write_attr_id_0_,write_attr_rs_0_,write_attr_rd_0_,write_attr_cs_0_,w&
-                &rite_attr_cd_0_,write_attr_l_0_,write_attr_s_0_,write_attr_is_1_,write_attr_id_1_,write_attr_rs_1_,write_attr_rd_1&
-                &_,write_attr_cs_1_,write_attr_cd_1_,write_attr_l_1_,write_attr_s_1_,write_attr_is_2_,write_attr_id_2_,write_attr_r&
-                &s_2_,write_attr_rd_2_,write_attr_cs_2_,write_attr_cd_2_,write_attr_l_2_,write_attr_s_2_,write_attr_is_3_,write_att&
-                &r_id_3_,write_attr_rs_3_,write_attr_rd_3_,write_attr_cs_3_,write_attr_cd_3_,write_attr_l_3_,write_attr_s_3_,write_&
-                &attr_is_4_,write_attr_id_4_,write_attr_rs_4_,write_attr_rd_4_,write_attr_cs_4_,write_attr_cd_4_,write_attr_l_4_,wr&
-                &ite_attr_s_4_,write_attr_is_5_,write_attr_id_5_,write_attr_rs_5_,write_attr_rd_5_,write_attr_cs_5_,write_attr_cd_5&
-                &_,write_attr_l_5_,write_attr_s_5_,write_attr_is_6_,write_attr_id_6_,write_attr_rs_6_,write_attr_rd_6_,write_attr_c&
-                &s_6_,write_attr_cd_6_,write_attr_l_6_,write_attr_s_6_,write_attr_is_7_,write_attr_id_7_,write_attr_rs_7_,write_att&
-                &r_rd_7_,write_attr_cs_7_,write_attr_cd_7_,write_attr_l_7_,write_attr_s_7_
-                  procedure :: write_dset_is_0_
-                  procedure :: write_dset_id_0_
-                  procedure :: write_dset_rs_0_
-                  procedure :: write_dset_rd_0_
-                  procedure :: write_dset_cs_0_
-                  procedure :: write_dset_cd_0_
-                  procedure :: write_dset_l_0_
-                  procedure :: write_dset_s_0_
-                  procedure :: write_dset_is_1_
-                  procedure :: write_dset_id_1_
-                  procedure :: write_dset_rs_1_
-                  procedure :: write_dset_rd_1_
-                  procedure :: write_dset_cs_1_
-                  procedure :: write_dset_cd_1_
-                  procedure :: write_dset_l_1_
-                  procedure :: write_dset_s_1_
-                  procedure :: write_dset_is_2_
-                  procedure :: write_dset_id_2_
-                  procedure :: write_dset_rs_2_
-                  procedure :: write_dset_rd_2_
-                  procedure :: write_dset_cs_2_
-                  procedure :: write_dset_cd_2_
-                  procedure :: write_dset_l_2_
-                  procedure :: write_dset_s_2_
-                  procedure :: write_dset_is_3_
-                  procedure :: write_dset_id_3_
-                  procedure :: write_dset_rs_3_
-                  procedure :: write_dset_rd_3_
-                  procedure :: write_dset_cs_3_
-                  procedure :: write_dset_cd_3_
-                  procedure :: write_dset_l_3_
-                  procedure :: write_dset_s_3_
-                  procedure :: write_dset_is_4_
-                  procedure :: write_dset_id_4_
-                  procedure :: write_dset_rs_4_
-                  procedure :: write_dset_rd_4_
-                  procedure :: write_dset_cs_4_
-                  procedure :: write_dset_cd_4_
-                  procedure :: write_dset_l_4_
-                  procedure :: write_dset_s_4_
-                  procedure :: write_dset_is_5_
-                  procedure :: write_dset_id_5_
-                  procedure :: write_dset_rs_5_
-                  procedure :: write_dset_rd_5_
-                  procedure :: write_dset_cs_5_
-                  procedure :: write_dset_cd_5_
-                  procedure :: write_dset_l_5_
-                  procedure :: write_dset_s_5_
-                  procedure :: write_dset_is_6_
-                  procedure :: write_dset_id_6_
-                  procedure :: write_dset_rs_6_
-                  procedure :: write_dset_rd_6_
-                  procedure :: write_dset_cs_6_
-                  procedure :: write_dset_cd_6_
-                  procedure :: write_dset_l_6_
-                  procedure :: write_dset_s_6_
-                  procedure :: write_dset_is_7_
-                  procedure :: write_dset_id_7_
-                  procedure :: write_dset_rs_7_
-                  procedure :: write_dset_rd_7_
-                  procedure :: write_dset_cs_7_
-                  procedure :: write_dset_cd_7_
-                  procedure :: write_dset_l_7_
-                  procedure :: write_dset_s_7_
-            generic, public :: write_dset => write_dset_is_0_,write_dset_id_0_,write_dset_rs_0_,write_dset_rd_0_,write_dset_cs_0_,w&
-                &rite_dset_cd_0_,write_dset_l_0_,write_dset_s_0_,write_dset_is_1_,write_dset_id_1_,write_dset_rs_1_,write_dset_rd_1&
-                &_,write_dset_cs_1_,write_dset_cd_1_,write_dset_l_1_,write_dset_s_1_,write_dset_is_2_,write_dset_id_2_,write_dset_r&
-                &s_2_,write_dset_rd_2_,write_dset_cs_2_,write_dset_cd_2_,write_dset_l_2_,write_dset_s_2_,write_dset_is_3_,write_dse&
-                &t_id_3_,write_dset_rs_3_,write_dset_rd_3_,write_dset_cs_3_,write_dset_cd_3_,write_dset_l_3_,write_dset_s_3_,write_&
-                &dset_is_4_,write_dset_id_4_,write_dset_rs_4_,write_dset_rd_4_,write_dset_cs_4_,write_dset_cd_4_,write_dset_l_4_,wr&
-                &ite_dset_s_4_,write_dset_is_5_,write_dset_id_5_,write_dset_rs_5_,write_dset_rd_5_,write_dset_cs_5_,write_dset_cd_5&
-                &_,write_dset_l_5_,write_dset_s_5_,write_dset_is_6_,write_dset_id_6_,write_dset_rs_6_,write_dset_rd_6_,write_dset_c&
-                &s_6_,write_dset_cd_6_,write_dset_l_6_,write_dset_s_6_,write_dset_is_7_,write_dset_id_7_,write_dset_rs_7_,write_dse&
-                &t_rd_7_,write_dset_cs_7_,write_dset_cd_7_,write_dset_l_7_,write_dset_s_7_
-   end type hdf5io_t
-
-   ! Module variables
-  
-   integer, save :: ref_count = 0
-
-      integer(HID_T), save :: mem_type_id_is
-      integer(HID_T), save :: file_type_id_is
-      integer(HID_T), save :: mem_type_id_id
-      integer(HID_T), save :: file_type_id_id
-      integer(HID_T), save :: mem_type_id_rs
-      integer(HID_T), save :: file_type_id_rs
-      integer(HID_T), save :: mem_type_id_rd
-      integer(HID_T), save :: file_type_id_rd
-      integer(HID_T), save :: mem_type_id_cs
-      integer(HID_T), save :: file_type_id_cs
-      integer(HID_T), save :: mem_type_id_cd
-      integer(HID_T), save :: file_type_id_cd
-      
-   ! Interfaces
-
-   interface hdf5io_t
-      module procedure hdf5io_t_file_
-      module procedure hdf5io_t_group_
-   end interface hdf5io_t
-   
-   ! Access specifiers
-
-   private
-
-   public :: CREATE_FILE
-   public :: OPEN_FILE_RO
-   public :: OPEN_FILE_RW
-   public :: TYPE_LEN
-   public :: hdf5io_t
-   
-   ! Procedures
-
-contains
-
-   function hdf5io_t_file_(file_name, access_type, comp_level) result (hi)
-
-      character(*), intent(in)      :: file_name
-      integer, intent(in)           :: access_type
-      integer, intent(in), optional :: comp_level
-      type(hdf5io_t)                :: hi
-
-      integer        :: hdf_err
-      integer(HID_T) :: file_id
-      integer(HID_T) :: group_id
-
-      ! If necessary, open the HDF5 library
-
-      if (ref_count == 0) then
-         call open_library_()
-      endif
-
-      ref_count = ref_count + 1
-
-      ! Depending on the access_type, open or create the file
-
-      select case(access_type)
-      case(CREATE_FILE)
-   call h5fcreate_f(file_name,H5F_ACC_TRUNC_F,file_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 134 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5fcreate_f'
-   error stop
-   endif
-      case(OPEN_FILE_RO)
-   call h5fopen_f(file_name,H5F_ACC_RDONLY_F,file_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 136 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5fopen_f'
-   error stop
-   endif
-      case(OPEN_FILE_RW)
-   call h5fopen_f(file_name,H5F_ACC_RDWR_F,file_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 138 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5fopen_f'
-   error stop
-   endif
-      case default
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 140 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'invalid access_type'
-   error stop
-      end select
-
-      ! Open the root group
-
-   call h5gopen_f(file_id,'/',group_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 145 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5gopen_f'
-   error stop
-   endif
-
-      ! Construct the hdf5io_t
-
-      hi%file_id = file_id
-      hi%group_id = group_id
-      if (PRESENT(comp_level)) then
-         hi%comp_level = comp_level
-      else
-         hi%comp_level = 0
-      endif
-
-      allocate(hi%ref_count)
-      hi%ref_count = 1
-
-      ! Finish
-
-      return
-
-   end function hdf5io_t_file_
-
-   !****
-
-   function hdf5io_t_group_(hi_parent, group_name) result (hi)
-
-      type(hdf5io_t), intent(inout) :: hi_parent
-      character(*), intent(in)      :: group_name
-      type(hdf5io_t)                :: hi
-
-      integer        :: hdf_err
-      integer(HID_T) :: group_id
-
-      ! Depending on whether the group already exists, open or create it
-
-      if (hi_parent%group_exists(group_name)) then
-   call h5gopen_f(hi_parent%group_id,group_name,group_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 180 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5gopen_f'
-   error stop
-   endif
-      else
-   call h5gcreate_f(hi_parent%group_id,group_name,group_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 182 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5gcreate_f'
-   error stop
-   endif
-      endif
-
-      ! Construct the hdf5io_t
-
-      hi%file_id = hi_parent%file_id
-      hi%group_id = group_id
-      hi%comp_level = hi_parent%comp_level
-
-      hi%ref_count => hi_parent%ref_count
-      hi%ref_count = hi%ref_count + 1
-
-      ! Finish
-
-      return
-
-   end function hdf5io_t_group_
-
-   !****
-
-   subroutine final_(self)
-
-      class(hdf5io_t), intent(inout) :: self
-
-      integer :: hdf_err
-
-      ! Close the group
-
-   call h5gclose_f(self%group_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 210 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5gclose_f'
-   error stop
-   endif
-
-      self%ref_count = self%ref_count - 1
-
-      ! If necessary, close the file also
-
-      if (self%ref_count == 0) then
-   call h5fclose_f(self%file_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 217 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5fclose_f'
-   error stop
-   endif
-         deallocate(self%ref_count)
-         ref_count = ref_count - 1
-      endif
-
-      ! If necessary, close the HDF5 library
-
-      if (ref_count == 0) then
-         call close_library_()
-      endif
-
-      ! Finish
-
-      return
-
-   end subroutine final_
-
-   !****
-
-   subroutine open_library_()
-
-      integer       :: hdf_err
-
-      ! Open the HDF5 library
-      
-   call h5open_f(hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 242 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5open_f'
-   error stop
-   endif
-
-   if (.NOT. (hdf_err == 0)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 244 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "hdf_err == 0" failed with message "Failed to open HDF5 library"'
-   error stop
-   end if
-
-      ! Set up data types
-
-      mem_type_id_is = h5kind_to_type(is, H5_INTEGER_KIND)
-      mem_type_id_id = h5kind_to_type(id, H5_INTEGER_KIND)
-
-      mem_type_id_rs = h5kind_to_type(rs, H5_REAL_KIND)
-      mem_type_id_rd = h5kind_to_type(rd, H5_REAL_KIND)
-
-      call create_complex_type_(mem_type_id_rs, mem_type_id_cs)
-      call create_complex_type_(mem_type_id_rd, mem_type_id_cd)
-
-      file_type_id_is = H5T_STD_I32LE
-      file_type_id_id = H5T_STD_I64LE
-
-      file_type_id_rs = H5T_IEEE_F32LE
-      file_type_id_rd = H5T_IEEE_F64LE
-
-      call create_complex_type_(file_type_id_rs, file_type_id_cs)
-      call create_complex_type_(file_type_id_rd, file_type_id_cd)
-
-      ! Finish
-
-      return
-
-   contains
-
-      subroutine create_complex_type_(comp_type_id, type_id)
-
-         integer(HID_T), intent(in)  :: comp_type_id
-         integer(HID_T), intent(out) :: type_id
-
-         integer         :: hdf_err
-         integer(SIZE_T) :: comp_size
-
-         ! Create a complex data type
-
-   call h5tget_size_f(comp_type_id,comp_size,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 282 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tget_size_f'
-   error stop
-   endif
-
-   call h5tcreate_f(H5T_COMPOUND_F,INT(2*comp_size, SIZE_T),type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 284 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcreate_f'
-   error stop
-   endif
-   call h5tinsert_f(type_id,'re',INT(0, SIZE_T),comp_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 285 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tinsert_f'
-   error stop
-   endif
-   call h5tinsert_f(type_id,'im',INT(comp_size, SIZE_T),comp_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 286 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tinsert_f'
-   error stop
-   endif
-
-         ! Finish
-
-         return
-
-      end subroutine create_complex_type_
-
-   end subroutine open_library_
-
-   !****
-
-   subroutine close_library_()
-
-      integer :: hdf_err
-
-      ! Close complex data types
-
-   call h5tclose_f(mem_type_id_cs,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 305 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-   call h5tclose_f(file_type_id_cs,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 306 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-   call h5tclose_f(mem_type_id_cd,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 305 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-   call h5tclose_f(file_type_id_cd,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 306 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-      ! Close the HDF5 library
-
-   call h5close_f(hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 311 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5close_f'
-   error stop
-   endif
-
-      ! Finish
-
-      return
-
-   end subroutine close_library_
-
-   !****
-
-   function group_exists(self, group_name)
-
-      class(hdf5io_t), intent(inout) :: self
-      character(*), intent(in)       :: group_name
-      logical                        :: group_exists
-
-      integer        :: hdf_err
-      integer(HID_T) :: group_id
-
-      ! Determine whether the named group already exists
-
-      call h5eset_auto_f(0, hdf_err)
-
-      call h5gopen_f(self%group_id, group_name, group_id, hdf_err)
-
-      if (hdf_err >= 0) then
-         group_exists = .TRUE.
-         call h5gclose_f(group_id, hdf_err)
-      else
-         group_exists = .FALSE.
-      endif
-
-      call h5eset_auto_f(1, hdf_err)
-
-      ! Finish
-
-      return
-
-   end function group_exists
-
-   !****
-
-   function attr_exists(self, attr_name)
-
-      class(hdf5io_t), intent(inout) :: self
-      character(*), intent(in)       :: attr_name
-      logical                        :: attr_exists
-
-      integer :: hdf_err
-
-      ! Check if the attribute exists
-
-   call h5aexists_f(self%group_id,attr_name,attr_exists,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 363 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aexists_f'
-   error stop
-   endif
-
-      ! Finish
-
-      return
-
-   end function attr_exists
-
-   !****
-
-   function dset_exists(self, dset_name)
-
-      class(hdf5io_t), intent(inout) :: self
-      character(*), intent(in)       :: dset_name
-      logical                        :: dset_exists
-
-      integer          :: hdf_err
-      logical          :: link_exists
-      type(h5o_info_t) :: obj_info
-
-      ! Check if the dataset exists
-
-   call h5lexists_f(self%group_id,dset_name,link_exists,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 385 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5lexists_f'
-   error stop
-   endif
-
-      if (link_exists) then
-
-   call h5oget_info_by_name_f(self%group_id,dset_name,obj_info,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 389 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5oget_info_by_name_f'
-   error stop
-   endif
-
-         dset_exists = obj_info%type == H5O_TYPE_DATASET_F
-
-      else
-
-         dset_exists = .FALSE.
-
-      endif
-
-      ! Finish
-
-      return
-
-   end function dset_exists
-
-   !****
-
-
-      function group_names(self) result(names)
-
-         class(hdf5io_t), intent(inout) :: self
-         character(:), allocatable      :: names(:)
-
-         integer(HSIZE_T) :: i
-         integer          :: n_names
-         integer          :: max_len
-         type(C_FUNPTR)   :: op
-         integer          :: ret_value
-         integer          :: hdf_err
-         integer          :: i_name
-
-         ! Iterate to get number of items and maximum name length
-
-         i = 0
-
-         n_names = 0
-         max_len = 0
-
-         op = C_FUNLOC(op_len_)
-
-   call h5literate_f(self%group_id,H5_INDEX_NAME_F,H5_ITER_NATIVE_F,i,op,C_NULL_PTR,ret_value,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 431 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5literate_f'
-   error stop
-   endif
-
-         ! Allocate space
-
-         allocate(character(LEN=max_len)::names(n_names))
-
-         ! Iterate again to store the names
-
-         i = 0
-
-         i_name = 0
-
-         op = C_FUNLOC(op_name_)
-
-   call h5literate_f(self%group_id,H5_INDEX_NAME_F,H5_ITER_NATIVE_F,i,op,C_NULL_PTR,ret_value,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 445 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5literate_f'
-   error stop
-   endif
-
-         ! Finish
-
-         return
-
-      contains
-      
-         function op_len_(loc_id, c_name, c_info, c_data) result(ret_value) bind(C)
-
-            integer(HID_T), value :: loc_id
-            character(C_CHAR)     :: c_name(*)
-            type(C_PTR), value    :: c_info
-            type(C_PTR), value    :: c_data
-            integer(C_INT)        :: ret_value
-
-            type(H5O_INFO_T) :: info
-            integer          :: hdf_err
-
-            ! Check that the link points to the appropriate object type
-
-   call h5oget_info_f(loc_id,info,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 466 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5oget_info_f'
-   error stop
-   endif
-
-            if (info%type == H5O_TYPE_GROUP_F) then
-
-               ! Update counters
-
-               n_names = n_names + 1
-
-               max_len = MAX(c_f_len(c_name), max_len)
-
-            endif
-
-            ! Finish
-
-            ret_value = 0
-
-         end function op_len_
-
-         !****
-
-         function op_name_(loc_id, c_name, c_info, c_data) result(ret_value) bind(C)
-
-            integer(HID_T), value :: loc_id
-            character(C_CHAR)     :: c_name(*)
-            type(C_PTR), value    :: c_info
-            type(C_PTR), value    :: c_data
-            integer(C_INT)        :: ret_value
-
-            type(H5O_INFO_T) :: info
-            integer          :: hdf_err
-
-            ! Check that the link points to the appropriate object type
-
-   call h5oget_info_f(loc_id,info,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 499 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5oget_info_f'
-   error stop
-   endif
-
-            if (info%type == H5O_TYPE_GROUP_F) then
-
-               ! Store the name
-
-               i_name = i_name + 1
-
-               names(i_name) = c_f_string(c_name)
-
-            end if
-
-            ! Finish
-
-            ret_value = 0
-
-         end function op_name_
-
-      end function group_names
-         
-
-      function dset_names(self) result(names)
-
-         class(hdf5io_t), intent(inout) :: self
-         character(:), allocatable      :: names(:)
-
-         integer(HSIZE_T) :: i
-         integer          :: n_names
-         integer          :: max_len
-         type(C_FUNPTR)   :: op
-         integer          :: ret_value
-         integer          :: hdf_err
-         integer          :: i_name
-
-         ! Iterate to get number of items and maximum name length
-
-         i = 0
-
-         n_names = 0
-         max_len = 0
-
-         op = C_FUNLOC(op_len_)
-
-   call h5literate_f(self%group_id,H5_INDEX_NAME_F,H5_ITER_NATIVE_F,i,op,C_NULL_PTR,ret_value,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 431 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5literate_f'
-   error stop
-   endif
-
-         ! Allocate space
-
-         allocate(character(LEN=max_len)::names(n_names))
-
-         ! Iterate again to store the names
-
-         i = 0
-
-         i_name = 0
-
-         op = C_FUNLOC(op_name_)
-
-   call h5literate_f(self%group_id,H5_INDEX_NAME_F,H5_ITER_NATIVE_F,i,op,C_NULL_PTR,ret_value,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 445 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5literate_f'
-   error stop
-   endif
-
-         ! Finish
-
-         return
-
-      contains
-      
-         function op_len_(loc_id, c_name, c_info, c_data) result(ret_value) bind(C)
-
-            integer(HID_T), value :: loc_id
-            character(C_CHAR)     :: c_name(*)
-            type(C_PTR), value    :: c_info
-            type(C_PTR), value    :: c_data
-            integer(C_INT)        :: ret_value
-
-            type(H5O_INFO_T) :: info
-            integer          :: hdf_err
-
-            ! Check that the link points to the appropriate object type
-
-   call h5oget_info_f(loc_id,info,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 466 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5oget_info_f'
-   error stop
-   endif
-
-            if (info%type == H5O_TYPE_DATASET_F) then
-
-               ! Update counters
-
-               n_names = n_names + 1
-
-               max_len = MAX(c_f_len(c_name), max_len)
-
-            endif
-
-            ! Finish
-
-            ret_value = 0
-
-         end function op_len_
-
-         !****
-
-         function op_name_(loc_id, c_name, c_info, c_data) result(ret_value) bind(C)
-
-            integer(HID_T), value :: loc_id
-            character(C_CHAR)     :: c_name(*)
-            type(C_PTR), value    :: c_info
-            type(C_PTR), value    :: c_data
-            integer(C_INT)        :: ret_value
-
-            type(H5O_INFO_T) :: info
-            integer          :: hdf_err
-
-            ! Check that the link points to the appropriate object type
-
-   call h5oget_info_f(loc_id,info,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 499 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5oget_info_f'
-   error stop
-   endif
-
-            if (info%type == H5O_TYPE_DATASET_F) then
-
-               ! Store the name
-
-               i_name = i_name + 1
-
-               names(i_name) = c_f_string(c_name)
-
-            end if
-
-            ! Finish
-
-            ret_value = 0
-
-         end function op_name_
-
-      end function dset_names
-         
-
-   !****
-
-
-      function attr_shape(self, item_name) result(shape)
-
-         class(hdf5io_t), intent(inout) :: self
-         character(*), intent(in)       :: item_name
-         integer(HSIZE_T), allocatable  :: shape(:)
-
-         integer                       :: hdf_err
-         integer(HID_T)                :: item_id
-         integer(HID_T)                :: space_id
-         integer                       :: rank
-         integer(HSIZE_T), allocatable :: max_shape(:)
-
-         ! Get the shape of the item
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 539 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-
-   call h5aget_space_f(item_id,space_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 541 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aget_space_f'
-   error stop
-   endif
-
-   call h5sget_simple_extent_ndims_f(space_id,rank,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 543 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sget_simple_extent_ndims_f'
-   error stop
-   endif
-
-         allocate(shape(rank))
-         allocate(max_shape(rank))
-
-   call h5sget_simple_extent_dims_f(space_id,shape,max_shape,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 548 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sget_simple_extent_dims_f'
-   error stop
-   endif
-
-   call h5sclose_f(space_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 550 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 551 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-         ! Finish
-
-         return
-
-      end function attr_shape
-
-
-      function dset_shape(self, item_name) result(shape)
-
-         class(hdf5io_t), intent(inout) :: self
-         character(*), intent(in)       :: item_name
-         integer(HSIZE_T), allocatable  :: shape(:)
-
-         integer                       :: hdf_err
-         integer(HID_T)                :: item_id
-         integer(HID_T)                :: space_id
-         integer                       :: rank
-         integer(HSIZE_T), allocatable :: max_shape(:)
-
-         ! Get the shape of the item
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 539 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-
-   call h5dget_space_f(item_id,space_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 541 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dget_space_f'
-   error stop
-   endif
-
-   call h5sget_simple_extent_ndims_f(space_id,rank,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 543 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sget_simple_extent_ndims_f'
-   error stop
-   endif
-
-         allocate(shape(rank))
-         allocate(max_shape(rank))
-
-   call h5sget_simple_extent_dims_f(space_id,shape,max_shape,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 548 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sget_simple_extent_dims_f'
-   error stop
-   endif
-
-   call h5sclose_f(space_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 550 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 551 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-         ! Finish
-
-         return
-
-      end function dset_shape
-
-
-   !****
-
-
-
-            subroutine read_attr_is_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(out)  :: data
-
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_is_0_
-
-
-            subroutine read_attr_id_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(out)  :: data
-
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_id_0_
-
-
-            subroutine read_attr_rs_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(out)  :: data
-
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_rs_0_
-
-
-            subroutine read_attr_rd_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(out)  :: data
-
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_rd_0_
-
-
-            subroutine read_attr_cs_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(out)  :: data
-
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_cs_0_
-
-
-            subroutine read_attr_cd_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(out)  :: data
-
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_cd_0_
-
-
-            
-            subroutine read_attr_s_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(out)  :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-         
-               ! Read the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 644 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 645 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 649 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 650 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 651 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 653 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_s_0_
-
-
-            
-            subroutine read_attr_l_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(out)  :: data
-
-               integer, allocatable :: data_i
-
-               ! Read the logical item
-
-               call self%alloc_read_attr(item_name, data_i)
-
-               data = data_i /= 0
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_l_0_
-
-            
-
-
-            subroutine read_attr_is_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(out)  :: data(:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_is_1_
-
-
-            subroutine read_attr_id_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(out)  :: data(:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_id_1_
-
-
-            subroutine read_attr_rs_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(out)  :: data(:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_rs_1_
-
-
-            subroutine read_attr_rd_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(out)  :: data(:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_rd_1_
-
-
-            subroutine read_attr_cs_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(out)  :: data(:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_cs_1_
-
-
-            subroutine read_attr_cd_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(out)  :: data(:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_cd_1_
-
-
-            
-            subroutine read_attr_s_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(out)  :: data(:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 637 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 638 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-         
-               ! Read the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 644 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 645 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 649 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 650 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 651 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 653 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_s_1_
-
-
-            
-            subroutine read_attr_l_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(out)  :: data(:)
-                  contiguous :: data
-
-               integer, allocatable :: data_i(:)
-
-               ! Read the logical item
-
-               call self%alloc_read_attr(item_name, data_i)
-
-               data = data_i /= 0
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_l_1_
-
-            
-
-
-            subroutine read_attr_is_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(out)  :: data(:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_is_2_
-
-
-            subroutine read_attr_id_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(out)  :: data(:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_id_2_
-
-
-            subroutine read_attr_rs_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(out)  :: data(:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_rs_2_
-
-
-            subroutine read_attr_rd_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(out)  :: data(:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_rd_2_
-
-
-            subroutine read_attr_cs_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(out)  :: data(:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_cs_2_
-
-
-            subroutine read_attr_cd_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(out)  :: data(:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_cd_2_
-
-
-            
-            subroutine read_attr_s_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(out)  :: data(:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 637 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 638 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-         
-               ! Read the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 644 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 645 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 649 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 650 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 651 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 653 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_s_2_
-
-
-            
-            subroutine read_attr_l_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(out)  :: data(:,:)
-                  contiguous :: data
-
-               integer, allocatable :: data_i(:,:)
-
-               ! Read the logical item
-
-               call self%alloc_read_attr(item_name, data_i)
-
-               data = data_i /= 0
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_l_2_
-
-            
-
-
-            subroutine read_attr_is_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(out)  :: data(:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_is_3_
-
-
-            subroutine read_attr_id_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(out)  :: data(:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_id_3_
-
-
-            subroutine read_attr_rs_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(out)  :: data(:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_rs_3_
-
-
-            subroutine read_attr_rd_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(out)  :: data(:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_rd_3_
-
-
-            subroutine read_attr_cs_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(out)  :: data(:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_cs_3_
-
-
-            subroutine read_attr_cd_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(out)  :: data(:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_cd_3_
-
-
-            
-            subroutine read_attr_s_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(out)  :: data(:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 637 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 638 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-         
-               ! Read the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 644 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 645 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 649 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 650 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 651 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 653 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_s_3_
-
-
-            
-            subroutine read_attr_l_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(out)  :: data(:,:,:)
-                  contiguous :: data
-
-               integer, allocatable :: data_i(:,:,:)
-
-               ! Read the logical item
-
-               call self%alloc_read_attr(item_name, data_i)
-
-               data = data_i /= 0
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_l_3_
-
-            
-
-
-            subroutine read_attr_is_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(out)  :: data(:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_is_4_
-
-
-            subroutine read_attr_id_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(out)  :: data(:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_id_4_
-
-
-            subroutine read_attr_rs_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(out)  :: data(:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_rs_4_
-
-
-            subroutine read_attr_rd_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(out)  :: data(:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_rd_4_
-
-
-            subroutine read_attr_cs_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(out)  :: data(:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_cs_4_
-
-
-            subroutine read_attr_cd_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(out)  :: data(:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_cd_4_
-
-
-            
-            subroutine read_attr_s_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(out)  :: data(:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 637 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 638 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-         
-               ! Read the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 644 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 645 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 649 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 650 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 651 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 653 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_s_4_
-
-
-            
-            subroutine read_attr_l_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(out)  :: data(:,:,:,:)
-                  contiguous :: data
-
-               integer, allocatable :: data_i(:,:,:,:)
-
-               ! Read the logical item
-
-               call self%alloc_read_attr(item_name, data_i)
-
-               data = data_i /= 0
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_l_4_
-
-            
-
-
-            subroutine read_attr_is_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(out)  :: data(:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_is_5_
-
-
-            subroutine read_attr_id_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(out)  :: data(:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_id_5_
-
-
-            subroutine read_attr_rs_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(out)  :: data(:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_rs_5_
-
-
-            subroutine read_attr_rd_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(out)  :: data(:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_rd_5_
-
-
-            subroutine read_attr_cs_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(out)  :: data(:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_cs_5_
-
-
-            subroutine read_attr_cd_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(out)  :: data(:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_cd_5_
-
-
-            
-            subroutine read_attr_s_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(out)  :: data(:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 637 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 638 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-         
-               ! Read the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 644 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 645 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 649 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 650 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 651 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 653 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_s_5_
-
-
-            
-            subroutine read_attr_l_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(out)  :: data(:,:,:,:,:)
-                  contiguous :: data
-
-               integer, allocatable :: data_i(:,:,:,:,:)
-
-               ! Read the logical item
-
-               call self%alloc_read_attr(item_name, data_i)
-
-               data = data_i /= 0
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_l_5_
-
-            
-
-
-            subroutine read_attr_is_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(out)  :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_is_6_
-
-
-            subroutine read_attr_id_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(out)  :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_id_6_
-
-
-            subroutine read_attr_rs_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(out)  :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_rs_6_
-
-
-            subroutine read_attr_rd_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(out)  :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_rd_6_
-
-
-            subroutine read_attr_cs_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(out)  :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_cs_6_
-
-
-            subroutine read_attr_cd_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(out)  :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_cd_6_
-
-
-            
-            subroutine read_attr_s_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(out)  :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 637 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 638 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-         
-               ! Read the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 644 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 645 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 649 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 650 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 651 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 653 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_s_6_
-
-
-            
-            subroutine read_attr_l_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(out)  :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-               integer, allocatable :: data_i(:,:,:,:,:,:)
-
-               ! Read the logical item
-
-               call self%alloc_read_attr(item_name, data_i)
-
-               data = data_i /= 0
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_l_6_
-
-            
-
-
-            subroutine read_attr_is_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(out)  :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_is_7_
-
-
-            subroutine read_attr_id_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(out)  :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_id_7_
-
-
-            subroutine read_attr_rs_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(out)  :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_rs_7_
-
-
-            subroutine read_attr_rd_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(out)  :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_rd_7_
-
-
-            subroutine read_attr_cs_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(out)  :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_cs_7_
-
-
-            subroutine read_attr_cd_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(out)  :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_cd_7_
-
-
-            
-            subroutine read_attr_s_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(out)  :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 637 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 638 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-         
-               ! Read the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 644 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 645 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5aopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 649 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aopen_f'
-   error stop
-   endif
-   call h5aread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 650 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aread_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 651 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 653 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_s_7_
-
-
-            
-            subroutine read_attr_l_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(out)  :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-               integer, allocatable :: data_i(:,:,:,:,:,:,:)
-
-               ! Read the logical item
-
-               call self%alloc_read_attr(item_name, data_i)
-
-               data = data_i /= 0
-
-               ! Finish
-
-               return
-
-            end subroutine read_attr_l_7_
-
-            
-
-
-            subroutine read_dset_is_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(out)  :: data
-
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_is_0_
-
-
-            subroutine read_dset_id_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(out)  :: data
-
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_id_0_
-
-
-            subroutine read_dset_rs_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(out)  :: data
-
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_rs_0_
-
-
-            subroutine read_dset_rd_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(out)  :: data
-
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_rd_0_
-
-
-            subroutine read_dset_cs_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(out)  :: data
-
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_cs_0_
-
-
-            subroutine read_dset_cd_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(out)  :: data
-
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_cd_0_
-
-
-            
-            subroutine read_dset_s_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(out)  :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-         
-               ! Read the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 644 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 645 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 649 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 650 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 651 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 653 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_s_0_
-
-
-            
-            subroutine read_dset_l_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(out)  :: data
-
-               integer, allocatable :: data_i
-
-               ! Read the logical item
-
-               call self%alloc_read_dset(item_name, data_i)
-
-               data = data_i /= 0
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_l_0_
-
-            
-
-
-            subroutine read_dset_is_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(out)  :: data(:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_is_1_
-
-
-            subroutine read_dset_id_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(out)  :: data(:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_id_1_
-
-
-            subroutine read_dset_rs_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(out)  :: data(:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_rs_1_
-
-
-            subroutine read_dset_rd_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(out)  :: data(:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_rd_1_
-
-
-            subroutine read_dset_cs_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(out)  :: data(:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_cs_1_
-
-
-            subroutine read_dset_cd_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(out)  :: data(:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_cd_1_
-
-
-            
-            subroutine read_dset_s_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(out)  :: data(:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 637 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 638 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-         
-               ! Read the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 644 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 645 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 649 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 650 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 651 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 653 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_s_1_
-
-
-            
-            subroutine read_dset_l_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(out)  :: data(:)
-                  contiguous :: data
-
-               integer, allocatable :: data_i(:)
-
-               ! Read the logical item
-
-               call self%alloc_read_dset(item_name, data_i)
-
-               data = data_i /= 0
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_l_1_
-
-            
-
-
-            subroutine read_dset_is_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(out)  :: data(:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_is_2_
-
-
-            subroutine read_dset_id_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(out)  :: data(:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_id_2_
-
-
-            subroutine read_dset_rs_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(out)  :: data(:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_rs_2_
-
-
-            subroutine read_dset_rd_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(out)  :: data(:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_rd_2_
-
-
-            subroutine read_dset_cs_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(out)  :: data(:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_cs_2_
-
-
-            subroutine read_dset_cd_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(out)  :: data(:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_cd_2_
-
-
-            
-            subroutine read_dset_s_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(out)  :: data(:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 637 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 638 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-         
-               ! Read the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 644 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 645 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 649 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 650 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 651 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 653 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_s_2_
-
-
-            
-            subroutine read_dset_l_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(out)  :: data(:,:)
-                  contiguous :: data
-
-               integer, allocatable :: data_i(:,:)
-
-               ! Read the logical item
-
-               call self%alloc_read_dset(item_name, data_i)
-
-               data = data_i /= 0
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_l_2_
-
-            
-
-
-            subroutine read_dset_is_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(out)  :: data(:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_is_3_
-
-
-            subroutine read_dset_id_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(out)  :: data(:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_id_3_
-
-
-            subroutine read_dset_rs_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(out)  :: data(:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_rs_3_
-
-
-            subroutine read_dset_rd_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(out)  :: data(:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_rd_3_
-
-
-            subroutine read_dset_cs_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(out)  :: data(:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_cs_3_
-
-
-            subroutine read_dset_cd_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(out)  :: data(:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_cd_3_
-
-
-            
-            subroutine read_dset_s_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(out)  :: data(:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 637 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 638 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-         
-               ! Read the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 644 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 645 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 649 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 650 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 651 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 653 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_s_3_
-
-
-            
-            subroutine read_dset_l_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(out)  :: data(:,:,:)
-                  contiguous :: data
-
-               integer, allocatable :: data_i(:,:,:)
-
-               ! Read the logical item
-
-               call self%alloc_read_dset(item_name, data_i)
-
-               data = data_i /= 0
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_l_3_
-
-            
-
-
-            subroutine read_dset_is_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(out)  :: data(:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_is_4_
-
-
-            subroutine read_dset_id_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(out)  :: data(:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_id_4_
-
-
-            subroutine read_dset_rs_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(out)  :: data(:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_rs_4_
-
-
-            subroutine read_dset_rd_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(out)  :: data(:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_rd_4_
-
-
-            subroutine read_dset_cs_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(out)  :: data(:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_cs_4_
-
-
-            subroutine read_dset_cd_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(out)  :: data(:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_cd_4_
-
-
-            
-            subroutine read_dset_s_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(out)  :: data(:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 637 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 638 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-         
-               ! Read the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 644 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 645 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 649 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 650 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 651 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 653 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_s_4_
-
-
-            
-            subroutine read_dset_l_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(out)  :: data(:,:,:,:)
-                  contiguous :: data
-
-               integer, allocatable :: data_i(:,:,:,:)
-
-               ! Read the logical item
-
-               call self%alloc_read_dset(item_name, data_i)
-
-               data = data_i /= 0
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_l_4_
-
-            
-
-
-            subroutine read_dset_is_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(out)  :: data(:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_is_5_
-
-
-            subroutine read_dset_id_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(out)  :: data(:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_id_5_
-
-
-            subroutine read_dset_rs_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(out)  :: data(:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_rs_5_
-
-
-            subroutine read_dset_rd_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(out)  :: data(:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_rd_5_
-
-
-            subroutine read_dset_cs_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(out)  :: data(:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_cs_5_
-
-
-            subroutine read_dset_cd_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(out)  :: data(:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_cd_5_
-
-
-            
-            subroutine read_dset_s_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(out)  :: data(:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 637 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 638 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-         
-               ! Read the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 644 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 645 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 649 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 650 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 651 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 653 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_s_5_
-
-
-            
-            subroutine read_dset_l_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(out)  :: data(:,:,:,:,:)
-                  contiguous :: data
-
-               integer, allocatable :: data_i(:,:,:,:,:)
-
-               ! Read the logical item
-
-               call self%alloc_read_dset(item_name, data_i)
-
-               data = data_i /= 0
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_l_5_
-
-            
-
-
-            subroutine read_dset_is_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(out)  :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_is_6_
-
-
-            subroutine read_dset_id_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(out)  :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_id_6_
-
-
-            subroutine read_dset_rs_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(out)  :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_rs_6_
-
-
-            subroutine read_dset_rd_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(out)  :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_rd_6_
-
-
-            subroutine read_dset_cs_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(out)  :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_cs_6_
-
-
-            subroutine read_dset_cd_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(out)  :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_cd_6_
-
-
-            
-            subroutine read_dset_s_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(out)  :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 637 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 638 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-         
-               ! Read the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 644 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 645 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 649 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 650 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 651 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 653 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_s_6_
-
-
-            
-            subroutine read_dset_l_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(out)  :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-               integer, allocatable :: data_i(:,:,:,:,:,:)
-
-               ! Read the logical item
-
-               call self%alloc_read_dset(item_name, data_i)
-
-               data = data_i /= 0
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_l_6_
-
-            
-
-
-            subroutine read_dset_is_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(out)  :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_is_7_
-
-
-            subroutine read_dset_id_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(out)  :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_id_7_
-
-
-            subroutine read_dset_rs_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(out)  :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_rs_7_
-
-
-            subroutine read_dset_rd_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(out)  :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_rd_7_
-
-
-            subroutine read_dset_cs_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(out)  :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_cs_7_
-
-
-            subroutine read_dset_cd_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(out)  :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 590 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 591 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 601 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 602 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 603 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_cd_7_
-
-
-            
-            subroutine read_dset_s_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(out)  :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-
-                  ! Check rank and shape
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 637 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-   if (.NOT. (ALL(item_shape == SHAPE(data)))) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 638 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "ALL(item_shape == SHAPE(data))" failed with message "shape mismatch"'
-   error stop
-   end if
-
-         
-               ! Read the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 644 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 645 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5dopen_f(self%group_id,item_name,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 649 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dopen_f'
-   error stop
-   endif
-   call h5dread_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 650 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dread_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 651 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 653 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_s_7_
-
-
-            
-            subroutine read_dset_l_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(out)  :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-               integer, allocatable :: data_i(:,:,:,:,:,:,:)
-
-               ! Read the logical item
-
-               call self%alloc_read_dset(item_name, data_i)
-
-               data = data_i /= 0
-
-               ! Finish
-
-               return
-
-            end subroutine read_dset_l_7_
-
-            
-
-   !****
-
-         
-            subroutine alloc_read_attr_is_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(IS), allocatable, intent(out) :: data
-
-
-               ! Allocate the item
-                  
-
-                  allocate(data)
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_is_0_
-
-         
-            subroutine alloc_read_attr_id_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(ID), allocatable, intent(out) :: data
-
-
-               ! Allocate the item
-                  
-
-                  allocate(data)
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_id_0_
-
-         
-            subroutine alloc_read_attr_rs_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RS), allocatable, intent(out) :: data
-
-
-               ! Allocate the item
-                  
-
-                  allocate(data)
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_rs_0_
-
-         
-            subroutine alloc_read_attr_rd_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RD), allocatable, intent(out) :: data
-
-
-               ! Allocate the item
-                  
-
-                  allocate(data)
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_rd_0_
-
-         
-            subroutine alloc_read_attr_cs_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RS), allocatable, intent(out) :: data
-
-
-               ! Allocate the item
-                  
-
-                  allocate(data)
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_cs_0_
-
-         
-            subroutine alloc_read_attr_cd_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RD), allocatable, intent(out) :: data
-
-
-               ! Allocate the item
-                  
-
-                  allocate(data)
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_cd_0_
-
-         
-            subroutine alloc_read_attr_l_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               logical, allocatable, intent(out) :: data
-
-
-               ! Allocate the item
-                  
-
-                  allocate(data)
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_l_0_
-
-         
-            subroutine alloc_read_attr_s_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               character(*), allocatable, intent(out) :: data
-
-
-               ! Allocate the item
-                  
-
-                  allocate(data)
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_s_0_
-
-         
-            subroutine alloc_read_attr_is_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(IS), allocatable, intent(out) :: data(:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_is_1_
-
-         
-            subroutine alloc_read_attr_id_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(ID), allocatable, intent(out) :: data(:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_id_1_
-
-         
-            subroutine alloc_read_attr_rs_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RS), allocatable, intent(out) :: data(:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_rs_1_
-
-         
-            subroutine alloc_read_attr_rd_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RD), allocatable, intent(out) :: data(:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_rd_1_
-
-         
-            subroutine alloc_read_attr_cs_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RS), allocatable, intent(out) :: data(:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_cs_1_
-
-         
-            subroutine alloc_read_attr_cd_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RD), allocatable, intent(out) :: data(:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_cd_1_
-
-         
-            subroutine alloc_read_attr_l_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               logical, allocatable, intent(out) :: data(:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_l_1_
-
-         
-            subroutine alloc_read_attr_s_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               character(*), allocatable, intent(out) :: data(:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_s_1_
-
-         
-            subroutine alloc_read_attr_is_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(IS), allocatable, intent(out) :: data(:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_is_2_
-
-         
-            subroutine alloc_read_attr_id_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(ID), allocatable, intent(out) :: data(:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_id_2_
-
-         
-            subroutine alloc_read_attr_rs_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RS), allocatable, intent(out) :: data(:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_rs_2_
-
-         
-            subroutine alloc_read_attr_rd_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RD), allocatable, intent(out) :: data(:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_rd_2_
-
-         
-            subroutine alloc_read_attr_cs_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RS), allocatable, intent(out) :: data(:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_cs_2_
-
-         
-            subroutine alloc_read_attr_cd_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RD), allocatable, intent(out) :: data(:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_cd_2_
-
-         
-            subroutine alloc_read_attr_l_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               logical, allocatable, intent(out) :: data(:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_l_2_
-
-         
-            subroutine alloc_read_attr_s_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               character(*), allocatable, intent(out) :: data(:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_s_2_
-
-         
-            subroutine alloc_read_attr_is_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(IS), allocatable, intent(out) :: data(:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_is_3_
-
-         
-            subroutine alloc_read_attr_id_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(ID), allocatable, intent(out) :: data(:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_id_3_
-
-         
-            subroutine alloc_read_attr_rs_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RS), allocatable, intent(out) :: data(:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_rs_3_
-
-         
-            subroutine alloc_read_attr_rd_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RD), allocatable, intent(out) :: data(:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_rd_3_
-
-         
-            subroutine alloc_read_attr_cs_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RS), allocatable, intent(out) :: data(:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_cs_3_
-
-         
-            subroutine alloc_read_attr_cd_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RD), allocatable, intent(out) :: data(:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_cd_3_
-
-         
-            subroutine alloc_read_attr_l_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               logical, allocatable, intent(out) :: data(:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_l_3_
-
-         
-            subroutine alloc_read_attr_s_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               character(*), allocatable, intent(out) :: data(:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_s_3_
-
-         
-            subroutine alloc_read_attr_is_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(IS), allocatable, intent(out) :: data(:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_is_4_
-
-         
-            subroutine alloc_read_attr_id_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(ID), allocatable, intent(out) :: data(:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_id_4_
-
-         
-            subroutine alloc_read_attr_rs_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RS), allocatable, intent(out) :: data(:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_rs_4_
-
-         
-            subroutine alloc_read_attr_rd_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RD), allocatable, intent(out) :: data(:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_rd_4_
-
-         
-            subroutine alloc_read_attr_cs_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RS), allocatable, intent(out) :: data(:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_cs_4_
-
-         
-            subroutine alloc_read_attr_cd_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RD), allocatable, intent(out) :: data(:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_cd_4_
-
-         
-            subroutine alloc_read_attr_l_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               logical, allocatable, intent(out) :: data(:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_l_4_
-
-         
-            subroutine alloc_read_attr_s_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               character(*), allocatable, intent(out) :: data(:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_s_4_
-
-         
-            subroutine alloc_read_attr_is_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(IS), allocatable, intent(out) :: data(:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_is_5_
-
-         
-            subroutine alloc_read_attr_id_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(ID), allocatable, intent(out) :: data(:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_id_5_
-
-         
-            subroutine alloc_read_attr_rs_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RS), allocatable, intent(out) :: data(:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_rs_5_
-
-         
-            subroutine alloc_read_attr_rd_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RD), allocatable, intent(out) :: data(:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_rd_5_
-
-         
-            subroutine alloc_read_attr_cs_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RS), allocatable, intent(out) :: data(:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_cs_5_
-
-         
-            subroutine alloc_read_attr_cd_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RD), allocatable, intent(out) :: data(:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_cd_5_
-
-         
-            subroutine alloc_read_attr_l_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               logical, allocatable, intent(out) :: data(:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_l_5_
-
-         
-            subroutine alloc_read_attr_s_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               character(*), allocatable, intent(out) :: data(:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_s_5_
-
-         
-            subroutine alloc_read_attr_is_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(IS), allocatable, intent(out) :: data(:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_is_6_
-
-         
-            subroutine alloc_read_attr_id_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(ID), allocatable, intent(out) :: data(:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_id_6_
-
-         
-            subroutine alloc_read_attr_rs_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RS), allocatable, intent(out) :: data(:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_rs_6_
-
-         
-            subroutine alloc_read_attr_rd_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RD), allocatable, intent(out) :: data(:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_rd_6_
-
-         
-            subroutine alloc_read_attr_cs_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RS), allocatable, intent(out) :: data(:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_cs_6_
-
-         
-            subroutine alloc_read_attr_cd_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RD), allocatable, intent(out) :: data(:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_cd_6_
-
-         
-            subroutine alloc_read_attr_l_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               logical, allocatable, intent(out) :: data(:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_l_6_
-
-         
-            subroutine alloc_read_attr_s_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               character(*), allocatable, intent(out) :: data(:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_s_6_
-
-         
-            subroutine alloc_read_attr_is_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(IS), allocatable, intent(out) :: data(:,:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6),item_shape(7)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_is_7_
-
-         
-            subroutine alloc_read_attr_id_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(ID), allocatable, intent(out) :: data(:,:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6),item_shape(7)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_id_7_
-
-         
-            subroutine alloc_read_attr_rs_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RS), allocatable, intent(out) :: data(:,:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6),item_shape(7)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_rs_7_
-
-         
-            subroutine alloc_read_attr_rd_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RD), allocatable, intent(out) :: data(:,:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6),item_shape(7)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_rd_7_
-
-         
-            subroutine alloc_read_attr_cs_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RS), allocatable, intent(out) :: data(:,:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6),item_shape(7)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_cs_7_
-
-         
-            subroutine alloc_read_attr_cd_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RD), allocatable, intent(out) :: data(:,:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6),item_shape(7)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_cd_7_
-
-         
-            subroutine alloc_read_attr_l_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               logical, allocatable, intent(out) :: data(:,:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6),item_shape(7)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_l_7_
-
-         
-            subroutine alloc_read_attr_s_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               character(*), allocatable, intent(out) :: data(:,:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%attr_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6),item_shape(7)))
-
-
-               ! Read the item
-
-               call self%read_attr(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_attr_s_7_
-
-         
-            subroutine alloc_read_dset_is_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(IS), allocatable, intent(out) :: data
-
-
-               ! Allocate the item
-                  
-
-                  allocate(data)
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_is_0_
-
-         
-            subroutine alloc_read_dset_id_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(ID), allocatable, intent(out) :: data
-
-
-               ! Allocate the item
-                  
-
-                  allocate(data)
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_id_0_
-
-         
-            subroutine alloc_read_dset_rs_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RS), allocatable, intent(out) :: data
-
-
-               ! Allocate the item
-                  
-
-                  allocate(data)
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_rs_0_
-
-         
-            subroutine alloc_read_dset_rd_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RD), allocatable, intent(out) :: data
-
-
-               ! Allocate the item
-                  
-
-                  allocate(data)
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_rd_0_
-
-         
-            subroutine alloc_read_dset_cs_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RS), allocatable, intent(out) :: data
-
-
-               ! Allocate the item
-                  
-
-                  allocate(data)
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_cs_0_
-
-         
-            subroutine alloc_read_dset_cd_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RD), allocatable, intent(out) :: data
-
-
-               ! Allocate the item
-                  
-
-                  allocate(data)
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_cd_0_
-
-         
-            subroutine alloc_read_dset_l_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               logical, allocatable, intent(out) :: data
-
-
-               ! Allocate the item
-                  
-
-                  allocate(data)
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_l_0_
-
-         
-            subroutine alloc_read_dset_s_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               character(*), allocatable, intent(out) :: data
-
-
-               ! Allocate the item
-                  
-
-                  allocate(data)
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_s_0_
-
-         
-            subroutine alloc_read_dset_is_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(IS), allocatable, intent(out) :: data(:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_is_1_
-
-         
-            subroutine alloc_read_dset_id_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(ID), allocatable, intent(out) :: data(:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_id_1_
-
-         
-            subroutine alloc_read_dset_rs_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RS), allocatable, intent(out) :: data(:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_rs_1_
-
-         
-            subroutine alloc_read_dset_rd_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RD), allocatable, intent(out) :: data(:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_rd_1_
-
-         
-            subroutine alloc_read_dset_cs_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RS), allocatable, intent(out) :: data(:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_cs_1_
-
-         
-            subroutine alloc_read_dset_cd_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RD), allocatable, intent(out) :: data(:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_cd_1_
-
-         
-            subroutine alloc_read_dset_l_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               logical, allocatable, intent(out) :: data(:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_l_1_
-
-         
-            subroutine alloc_read_dset_s_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               character(*), allocatable, intent(out) :: data(:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 1)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 1" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_s_1_
-
-         
-            subroutine alloc_read_dset_is_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(IS), allocatable, intent(out) :: data(:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_is_2_
-
-         
-            subroutine alloc_read_dset_id_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(ID), allocatable, intent(out) :: data(:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_id_2_
-
-         
-            subroutine alloc_read_dset_rs_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RS), allocatable, intent(out) :: data(:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_rs_2_
-
-         
-            subroutine alloc_read_dset_rd_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RD), allocatable, intent(out) :: data(:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_rd_2_
-
-         
-            subroutine alloc_read_dset_cs_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RS), allocatable, intent(out) :: data(:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_cs_2_
-
-         
-            subroutine alloc_read_dset_cd_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RD), allocatable, intent(out) :: data(:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_cd_2_
-
-         
-            subroutine alloc_read_dset_l_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               logical, allocatable, intent(out) :: data(:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_l_2_
-
-         
-            subroutine alloc_read_dset_s_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               character(*), allocatable, intent(out) :: data(:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 2)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 2" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_s_2_
-
-         
-            subroutine alloc_read_dset_is_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(IS), allocatable, intent(out) :: data(:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_is_3_
-
-         
-            subroutine alloc_read_dset_id_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(ID), allocatable, intent(out) :: data(:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_id_3_
-
-         
-            subroutine alloc_read_dset_rs_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RS), allocatable, intent(out) :: data(:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_rs_3_
-
-         
-            subroutine alloc_read_dset_rd_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RD), allocatable, intent(out) :: data(:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_rd_3_
-
-         
-            subroutine alloc_read_dset_cs_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RS), allocatable, intent(out) :: data(:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_cs_3_
-
-         
-            subroutine alloc_read_dset_cd_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RD), allocatable, intent(out) :: data(:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_cd_3_
-
-         
-            subroutine alloc_read_dset_l_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               logical, allocatable, intent(out) :: data(:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_l_3_
-
-         
-            subroutine alloc_read_dset_s_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               character(*), allocatable, intent(out) :: data(:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 3)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 3" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_s_3_
-
-         
-            subroutine alloc_read_dset_is_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(IS), allocatable, intent(out) :: data(:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_is_4_
-
-         
-            subroutine alloc_read_dset_id_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(ID), allocatable, intent(out) :: data(:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_id_4_
-
-         
-            subroutine alloc_read_dset_rs_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RS), allocatable, intent(out) :: data(:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_rs_4_
-
-         
-            subroutine alloc_read_dset_rd_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RD), allocatable, intent(out) :: data(:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_rd_4_
-
-         
-            subroutine alloc_read_dset_cs_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RS), allocatable, intent(out) :: data(:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_cs_4_
-
-         
-            subroutine alloc_read_dset_cd_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RD), allocatable, intent(out) :: data(:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_cd_4_
-
-         
-            subroutine alloc_read_dset_l_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               logical, allocatable, intent(out) :: data(:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_l_4_
-
-         
-            subroutine alloc_read_dset_s_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               character(*), allocatable, intent(out) :: data(:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 4)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 4" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_s_4_
-
-         
-            subroutine alloc_read_dset_is_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(IS), allocatable, intent(out) :: data(:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_is_5_
-
-         
-            subroutine alloc_read_dset_id_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(ID), allocatable, intent(out) :: data(:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_id_5_
-
-         
-            subroutine alloc_read_dset_rs_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RS), allocatable, intent(out) :: data(:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_rs_5_
-
-         
-            subroutine alloc_read_dset_rd_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RD), allocatable, intent(out) :: data(:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_rd_5_
-
-         
-            subroutine alloc_read_dset_cs_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RS), allocatable, intent(out) :: data(:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_cs_5_
-
-         
-            subroutine alloc_read_dset_cd_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RD), allocatable, intent(out) :: data(:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_cd_5_
-
-         
-            subroutine alloc_read_dset_l_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               logical, allocatable, intent(out) :: data(:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_l_5_
-
-         
-            subroutine alloc_read_dset_s_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               character(*), allocatable, intent(out) :: data(:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 5)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 5" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_s_5_
-
-         
-            subroutine alloc_read_dset_is_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(IS), allocatable, intent(out) :: data(:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_is_6_
-
-         
-            subroutine alloc_read_dset_id_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(ID), allocatable, intent(out) :: data(:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_id_6_
-
-         
-            subroutine alloc_read_dset_rs_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RS), allocatable, intent(out) :: data(:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_rs_6_
-
-         
-            subroutine alloc_read_dset_rd_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RD), allocatable, intent(out) :: data(:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_rd_6_
-
-         
-            subroutine alloc_read_dset_cs_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RS), allocatable, intent(out) :: data(:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_cs_6_
-
-         
-            subroutine alloc_read_dset_cd_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RD), allocatable, intent(out) :: data(:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_cd_6_
-
-         
-            subroutine alloc_read_dset_l_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               logical, allocatable, intent(out) :: data(:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_l_6_
-
-         
-            subroutine alloc_read_dset_s_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               character(*), allocatable, intent(out) :: data(:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 6)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 6" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_s_6_
-
-         
-            subroutine alloc_read_dset_is_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(IS), allocatable, intent(out) :: data(:,:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6),item_shape(7)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_is_7_
-
-         
-            subroutine alloc_read_dset_id_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               integer(ID), allocatable, intent(out) :: data(:,:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6),item_shape(7)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_id_7_
-
-         
-            subroutine alloc_read_dset_rs_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RS), allocatable, intent(out) :: data(:,:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6),item_shape(7)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_rs_7_
-
-         
-            subroutine alloc_read_dset_rd_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               real(RD), allocatable, intent(out) :: data(:,:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6),item_shape(7)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_rd_7_
-
-         
-            subroutine alloc_read_dset_cs_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RS), allocatable, intent(out) :: data(:,:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6),item_shape(7)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_cs_7_
-
-         
-            subroutine alloc_read_dset_cd_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               complex(RD), allocatable, intent(out) :: data(:,:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6),item_shape(7)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_cd_7_
-
-         
-            subroutine alloc_read_dset_l_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               logical, allocatable, intent(out) :: data(:,:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6),item_shape(7)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_l_7_
-
-         
-            subroutine alloc_read_dset_s_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               character(*), allocatable, intent(out) :: data(:,:,:,:,:,:,:)
-
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-
-               ! Allocate the item
-                  
-
-                  item_shape = self%dset_shape(item_name)
-   if (.NOT. (SIZE(item_shape) == 7)) then
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 714 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'assertion "SIZE(item_shape) == 7" failed with message "rank mismatch"'
-   error stop
-   end if
-
-                  allocate(data(item_shape(1),item_shape(2),item_shape(3),item_shape(4),item_shape(5),item_shape(6),item_shape(7)))
-
-
-               ! Read the item
-
-               call self%read_dset(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_dset_s_7_
-
-
-   !****
-
-
-
-            subroutine write_attr_is_0_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(in)   :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_f(H5S_SCALAR_F,dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 767 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_is
-               file_type_id = file_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_is_0_
-
-
-            subroutine write_attr_id_0_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(in)   :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_f(H5S_SCALAR_F,dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 767 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_id
-               file_type_id = file_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_id_0_
-
-
-            subroutine write_attr_rs_0_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(in)   :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_f(H5S_SCALAR_F,dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 767 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rs
-               file_type_id = file_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_rs_0_
-
-
-            subroutine write_attr_rd_0_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(in)   :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_f(H5S_SCALAR_F,dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 767 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rd
-               file_type_id = file_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_rd_0_
-
-
-            subroutine write_attr_cs_0_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(in)   :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_f(H5S_SCALAR_F,dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 767 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cs
-               file_type_id = file_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_cs_0_
-
-
-            subroutine write_attr_cd_0_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(in)   :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_f(H5S_SCALAR_F,dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 767 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cd
-               file_type_id = file_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_cd_0_
-
-
-
-            subroutine write_attr_s_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(in)   :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               integer(HID_T) :: dspace_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 824 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 825 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 827 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(file_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 828 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5screate_f(H5S_SCALAR_F,dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 833 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 838 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 839 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 840 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 842 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 844 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-   call h5tclose_f(file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 845 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_s_0_
-
-
-
-            subroutine write_attr_l_0_ (self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(in)   :: data
-
-               ! Write the logical item
-
-               call self%write_attr(item_name, MERGE(1, 0, MASK=data))
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_l_0_
-
-
-
-
-            subroutine write_attr_is_1_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(in)   :: data(:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(1,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_is
-               file_type_id = file_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_is_1_
-
-
-            subroutine write_attr_id_1_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(in)   :: data(:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(1,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_id
-               file_type_id = file_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_id_1_
-
-
-            subroutine write_attr_rs_1_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(in)   :: data(:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(1,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rs
-               file_type_id = file_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_rs_1_
-
-
-            subroutine write_attr_rd_1_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(in)   :: data(:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(1,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rd
-               file_type_id = file_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_rd_1_
-
-
-            subroutine write_attr_cs_1_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(in)   :: data(:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(1,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cs
-               file_type_id = file_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_cs_1_
-
-
-            subroutine write_attr_cd_1_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(in)   :: data(:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(1,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cd
-               file_type_id = file_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_cd_1_
-
-
-
-            subroutine write_attr_s_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(in)   :: data(:)
-                  contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               integer(HID_T) :: dspace_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 824 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 825 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 827 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(file_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 828 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5screate_simple_f(1,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 831 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 838 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 839 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 840 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 842 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 844 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-   call h5tclose_f(file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 845 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_s_1_
-
-
-
-            subroutine write_attr_l_1_ (self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(in)   :: data(:)
-                  contiguous :: data
-
-               ! Write the logical item
-
-               call self%write_attr(item_name, MERGE(1, 0, MASK=data))
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_l_1_
-
-
-
-
-            subroutine write_attr_is_2_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(in)   :: data(:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(2,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_is
-               file_type_id = file_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_is_2_
-
-
-            subroutine write_attr_id_2_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(in)   :: data(:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(2,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_id
-               file_type_id = file_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_id_2_
-
-
-            subroutine write_attr_rs_2_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(in)   :: data(:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(2,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rs
-               file_type_id = file_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_rs_2_
-
-
-            subroutine write_attr_rd_2_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(in)   :: data(:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(2,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rd
-               file_type_id = file_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_rd_2_
-
-
-            subroutine write_attr_cs_2_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(in)   :: data(:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(2,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cs
-               file_type_id = file_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_cs_2_
-
-
-            subroutine write_attr_cd_2_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(in)   :: data(:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(2,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cd
-               file_type_id = file_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_cd_2_
-
-
-
-            subroutine write_attr_s_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(in)   :: data(:,:)
-                  contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               integer(HID_T) :: dspace_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 824 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 825 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 827 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(file_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 828 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5screate_simple_f(2,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 831 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 838 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 839 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 840 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 842 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 844 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-   call h5tclose_f(file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 845 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_s_2_
-
-
-
-            subroutine write_attr_l_2_ (self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(in)   :: data(:,:)
-                  contiguous :: data
-
-               ! Write the logical item
-
-               call self%write_attr(item_name, MERGE(1, 0, MASK=data))
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_l_2_
-
-
-
-
-            subroutine write_attr_is_3_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(in)   :: data(:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(3,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_is
-               file_type_id = file_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_is_3_
-
-
-            subroutine write_attr_id_3_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(in)   :: data(:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(3,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_id
-               file_type_id = file_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_id_3_
-
-
-            subroutine write_attr_rs_3_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(in)   :: data(:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(3,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rs
-               file_type_id = file_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_rs_3_
-
-
-            subroutine write_attr_rd_3_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(in)   :: data(:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(3,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rd
-               file_type_id = file_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_rd_3_
-
-
-            subroutine write_attr_cs_3_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(in)   :: data(:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(3,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cs
-               file_type_id = file_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_cs_3_
-
-
-            subroutine write_attr_cd_3_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(in)   :: data(:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(3,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cd
-               file_type_id = file_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_cd_3_
-
-
-
-            subroutine write_attr_s_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(in)   :: data(:,:,:)
-                  contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               integer(HID_T) :: dspace_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 824 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 825 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 827 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(file_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 828 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5screate_simple_f(3,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 831 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 838 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 839 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 840 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 842 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 844 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-   call h5tclose_f(file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 845 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_s_3_
-
-
-
-            subroutine write_attr_l_3_ (self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(in)   :: data(:,:,:)
-                  contiguous :: data
-
-               ! Write the logical item
-
-               call self%write_attr(item_name, MERGE(1, 0, MASK=data))
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_l_3_
-
-
-
-
-            subroutine write_attr_is_4_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(in)   :: data(:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(4,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_is
-               file_type_id = file_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_is_4_
-
-
-            subroutine write_attr_id_4_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(in)   :: data(:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(4,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_id
-               file_type_id = file_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_id_4_
-
-
-            subroutine write_attr_rs_4_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(in)   :: data(:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(4,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rs
-               file_type_id = file_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_rs_4_
-
-
-            subroutine write_attr_rd_4_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(in)   :: data(:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(4,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rd
-               file_type_id = file_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_rd_4_
-
-
-            subroutine write_attr_cs_4_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(in)   :: data(:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(4,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cs
-               file_type_id = file_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_cs_4_
-
-
-            subroutine write_attr_cd_4_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(in)   :: data(:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(4,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cd
-               file_type_id = file_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_cd_4_
-
-
-
-            subroutine write_attr_s_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(in)   :: data(:,:,:,:)
-                  contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               integer(HID_T) :: dspace_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 824 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 825 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 827 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(file_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 828 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5screate_simple_f(4,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 831 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 838 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 839 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 840 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 842 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 844 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-   call h5tclose_f(file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 845 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_s_4_
-
-
-
-            subroutine write_attr_l_4_ (self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(in)   :: data(:,:,:,:)
-                  contiguous :: data
-
-               ! Write the logical item
-
-               call self%write_attr(item_name, MERGE(1, 0, MASK=data))
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_l_4_
-
-
-
-
-            subroutine write_attr_is_5_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(in)   :: data(:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(5,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_is
-               file_type_id = file_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_is_5_
-
-
-            subroutine write_attr_id_5_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(in)   :: data(:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(5,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_id
-               file_type_id = file_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_id_5_
-
-
-            subroutine write_attr_rs_5_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(in)   :: data(:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(5,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rs
-               file_type_id = file_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_rs_5_
-
-
-            subroutine write_attr_rd_5_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(in)   :: data(:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(5,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rd
-               file_type_id = file_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_rd_5_
-
-
-            subroutine write_attr_cs_5_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(in)   :: data(:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(5,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cs
-               file_type_id = file_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_cs_5_
-
-
-            subroutine write_attr_cd_5_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(in)   :: data(:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(5,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cd
-               file_type_id = file_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_cd_5_
-
-
-
-            subroutine write_attr_s_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(in)   :: data(:,:,:,:,:)
-                  contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               integer(HID_T) :: dspace_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 824 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 825 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 827 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(file_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 828 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5screate_simple_f(5,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 831 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 838 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 839 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 840 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 842 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 844 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-   call h5tclose_f(file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 845 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_s_5_
-
-
-
-            subroutine write_attr_l_5_ (self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(in)   :: data(:,:,:,:,:)
-                  contiguous :: data
-
-               ! Write the logical item
-
-               call self%write_attr(item_name, MERGE(1, 0, MASK=data))
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_l_5_
-
-
-
-
-            subroutine write_attr_is_6_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(in)   :: data(:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(6,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_is
-               file_type_id = file_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_is_6_
-
-
-            subroutine write_attr_id_6_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(in)   :: data(:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(6,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_id
-               file_type_id = file_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_id_6_
-
-
-            subroutine write_attr_rs_6_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(in)   :: data(:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(6,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rs
-               file_type_id = file_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_rs_6_
-
-
-            subroutine write_attr_rd_6_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(in)   :: data(:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(6,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rd
-               file_type_id = file_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_rd_6_
-
-
-            subroutine write_attr_cs_6_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(in)   :: data(:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(6,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cs
-               file_type_id = file_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_cs_6_
-
-
-            subroutine write_attr_cd_6_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(in)   :: data(:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(6,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cd
-               file_type_id = file_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_cd_6_
-
-
-
-            subroutine write_attr_s_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(in)   :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               integer(HID_T) :: dspace_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 824 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 825 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 827 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(file_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 828 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5screate_simple_f(6,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 831 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 838 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 839 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 840 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 842 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 844 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-   call h5tclose_f(file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 845 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_s_6_
-
-
-
-            subroutine write_attr_l_6_ (self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(in)   :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-               ! Write the logical item
-
-               call self%write_attr(item_name, MERGE(1, 0, MASK=data))
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_l_6_
-
-
-
-
-            subroutine write_attr_is_7_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(in)   :: data(:,:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(7,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_is
-               file_type_id = file_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_is_7_
-
-
-            subroutine write_attr_id_7_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(in)   :: data(:,:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(7,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_id
-               file_type_id = file_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_id_7_
-
-
-            subroutine write_attr_rs_7_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(in)   :: data(:,:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(7,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rs
-               file_type_id = file_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_rs_7_
-
-
-            subroutine write_attr_rd_7_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(in)   :: data(:,:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(7,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rd
-               file_type_id = file_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_rd_7_
-
-
-            subroutine write_attr_cs_7_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(in)   :: data(:,:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(7,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cs
-               file_type_id = file_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_cs_7_
-
-
-            subroutine write_attr_cd_7_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(in)   :: data(:,:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(7,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_ATTRIBUTE_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 771 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cd
-               file_type_id = file_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,acpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 786 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_cd_7_
-
-
-
-            subroutine write_attr_s_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(in)   :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               integer(HID_T) :: dspace_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 824 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 825 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 827 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(file_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 828 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5screate_simple_f(7,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 831 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5acreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 838 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5acreate_f'
-   error stop
-   endif
-   call h5awrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 839 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5awrite_f'
-   error stop
-   endif
-   call h5aclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 840 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5aclose_f'
-   error stop
-   endif
-
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 842 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 844 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-   call h5tclose_f(file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 845 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_s_7_
-
-
-
-            subroutine write_attr_l_7_ (self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(in)   :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-               ! Write the logical item
-
-               call self%write_attr(item_name, MERGE(1, 0, MASK=data))
-
-               ! Finish
-
-               return
-
-            end subroutine write_attr_l_7_
-
-
-
-
-            subroutine write_dset_is_0_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(in)   :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_f(H5S_SCALAR_F,dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 767 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_is
-               file_type_id = file_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_is_0_
-
-
-            subroutine write_dset_id_0_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(in)   :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_f(H5S_SCALAR_F,dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 767 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_id
-               file_type_id = file_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_id_0_
-
-
-            subroutine write_dset_rs_0_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(in)   :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_f(H5S_SCALAR_F,dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 767 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rs
-               file_type_id = file_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_rs_0_
-
-
-            subroutine write_dset_rd_0_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(in)   :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_f(H5S_SCALAR_F,dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 767 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rd
-               file_type_id = file_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_rd_0_
-
-
-            subroutine write_dset_cs_0_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(in)   :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_f(H5S_SCALAR_F,dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 767 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cs
-               file_type_id = file_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_cs_0_
-
-
-            subroutine write_dset_cd_0_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(in)   :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_f(H5S_SCALAR_F,dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 767 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cd
-               file_type_id = file_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_cd_0_
-
-
-
-            subroutine write_dset_s_0_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(in)   :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               integer(HID_T) :: dspace_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 824 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 825 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 827 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(file_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 828 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5screate_f(H5S_SCALAR_F,dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 833 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 838 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 839 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 840 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 842 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 844 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-   call h5tclose_f(file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 845 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_s_0_
-
-
-
-            subroutine write_dset_l_0_ (self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(in)   :: data
-
-               ! Write the logical item
-
-               call self%write_dset(item_name, MERGE(1, 0, MASK=data))
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_l_0_
-
-
-
-
-            subroutine write_dset_is_1_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(in)   :: data(:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(1,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,1,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_is
-               file_type_id = file_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_is_1_
-
-
-            subroutine write_dset_id_1_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(in)   :: data(:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(1,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,1,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_id
-               file_type_id = file_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_id_1_
-
-
-            subroutine write_dset_rs_1_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(in)   :: data(:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(1,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,1,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rs
-               file_type_id = file_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_rs_1_
-
-
-            subroutine write_dset_rd_1_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(in)   :: data(:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(1,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,1,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rd
-               file_type_id = file_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_rd_1_
-
-
-            subroutine write_dset_cs_1_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(in)   :: data(:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(1,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,1,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cs
-               file_type_id = file_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_cs_1_
-
-
-            subroutine write_dset_cd_1_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(in)   :: data(:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(1,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,1,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cd
-               file_type_id = file_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_cd_1_
-
-
-
-            subroutine write_dset_s_1_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(in)   :: data(:)
-                  contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               integer(HID_T) :: dspace_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 824 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 825 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 827 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(file_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 828 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5screate_simple_f(1,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 831 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 838 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 839 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 840 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 842 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 844 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-   call h5tclose_f(file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 845 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_s_1_
-
-
-
-            subroutine write_dset_l_1_ (self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(in)   :: data(:)
-                  contiguous :: data
-
-               ! Write the logical item
-
-               call self%write_dset(item_name, MERGE(1, 0, MASK=data))
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_l_1_
-
-
-
-
-            subroutine write_dset_is_2_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(in)   :: data(:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(2,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,2,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_is
-               file_type_id = file_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_is_2_
-
-
-            subroutine write_dset_id_2_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(in)   :: data(:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(2,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,2,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_id
-               file_type_id = file_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_id_2_
-
-
-            subroutine write_dset_rs_2_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(in)   :: data(:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(2,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,2,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rs
-               file_type_id = file_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_rs_2_
-
-
-            subroutine write_dset_rd_2_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(in)   :: data(:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(2,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,2,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rd
-               file_type_id = file_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_rd_2_
-
-
-            subroutine write_dset_cs_2_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(in)   :: data(:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(2,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,2,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cs
-               file_type_id = file_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_cs_2_
-
-
-            subroutine write_dset_cd_2_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(in)   :: data(:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(2,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,2,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cd
-               file_type_id = file_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_cd_2_
-
-
-
-            subroutine write_dset_s_2_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(in)   :: data(:,:)
-                  contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               integer(HID_T) :: dspace_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 824 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 825 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 827 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(file_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 828 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5screate_simple_f(2,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 831 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 838 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 839 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 840 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 842 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 844 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-   call h5tclose_f(file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 845 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_s_2_
-
-
-
-            subroutine write_dset_l_2_ (self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(in)   :: data(:,:)
-                  contiguous :: data
-
-               ! Write the logical item
-
-               call self%write_dset(item_name, MERGE(1, 0, MASK=data))
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_l_2_
-
-
-
-
-            subroutine write_dset_is_3_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(in)   :: data(:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(3,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,3,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_is
-               file_type_id = file_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_is_3_
-
-
-            subroutine write_dset_id_3_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(in)   :: data(:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(3,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,3,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_id
-               file_type_id = file_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_id_3_
-
-
-            subroutine write_dset_rs_3_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(in)   :: data(:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(3,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,3,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rs
-               file_type_id = file_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_rs_3_
-
-
-            subroutine write_dset_rd_3_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(in)   :: data(:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(3,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,3,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rd
-               file_type_id = file_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_rd_3_
-
-
-            subroutine write_dset_cs_3_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(in)   :: data(:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(3,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,3,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cs
-               file_type_id = file_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_cs_3_
-
-
-            subroutine write_dset_cd_3_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(in)   :: data(:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(3,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,3,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cd
-               file_type_id = file_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_cd_3_
-
-
-
-            subroutine write_dset_s_3_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(in)   :: data(:,:,:)
-                  contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               integer(HID_T) :: dspace_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 824 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 825 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 827 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(file_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 828 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5screate_simple_f(3,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 831 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 838 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 839 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 840 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 842 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 844 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-   call h5tclose_f(file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 845 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_s_3_
-
-
-
-            subroutine write_dset_l_3_ (self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(in)   :: data(:,:,:)
-                  contiguous :: data
-
-               ! Write the logical item
-
-               call self%write_dset(item_name, MERGE(1, 0, MASK=data))
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_l_3_
-
-
-
-
-            subroutine write_dset_is_4_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(in)   :: data(:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(4,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,4,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_is
-               file_type_id = file_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_is_4_
-
-
-            subroutine write_dset_id_4_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(in)   :: data(:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(4,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,4,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_id
-               file_type_id = file_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_id_4_
-
-
-            subroutine write_dset_rs_4_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(in)   :: data(:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(4,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,4,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rs
-               file_type_id = file_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_rs_4_
-
-
-            subroutine write_dset_rd_4_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(in)   :: data(:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(4,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,4,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rd
-               file_type_id = file_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_rd_4_
-
-
-            subroutine write_dset_cs_4_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(in)   :: data(:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(4,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,4,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cs
-               file_type_id = file_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_cs_4_
-
-
-            subroutine write_dset_cd_4_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(in)   :: data(:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(4,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,4,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cd
-               file_type_id = file_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_cd_4_
-
-
-
-            subroutine write_dset_s_4_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(in)   :: data(:,:,:,:)
-                  contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               integer(HID_T) :: dspace_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 824 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 825 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 827 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(file_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 828 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5screate_simple_f(4,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 831 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 838 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 839 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 840 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 842 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 844 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-   call h5tclose_f(file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 845 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_s_4_
-
-
-
-            subroutine write_dset_l_4_ (self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(in)   :: data(:,:,:,:)
-                  contiguous :: data
-
-               ! Write the logical item
-
-               call self%write_dset(item_name, MERGE(1, 0, MASK=data))
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_l_4_
-
-
-
-
-            subroutine write_dset_is_5_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(in)   :: data(:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(5,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,5,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_is
-               file_type_id = file_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_is_5_
-
-
-            subroutine write_dset_id_5_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(in)   :: data(:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(5,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,5,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_id
-               file_type_id = file_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_id_5_
-
-
-            subroutine write_dset_rs_5_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(in)   :: data(:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(5,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,5,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rs
-               file_type_id = file_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_rs_5_
-
-
-            subroutine write_dset_rd_5_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(in)   :: data(:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(5,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,5,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rd
-               file_type_id = file_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_rd_5_
-
-
-            subroutine write_dset_cs_5_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(in)   :: data(:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(5,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,5,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cs
-               file_type_id = file_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_cs_5_
-
-
-            subroutine write_dset_cd_5_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(in)   :: data(:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(5,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,5,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cd
-               file_type_id = file_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_cd_5_
-
-
-
-            subroutine write_dset_s_5_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(in)   :: data(:,:,:,:,:)
-                  contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               integer(HID_T) :: dspace_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 824 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 825 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 827 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(file_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 828 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5screate_simple_f(5,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 831 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 838 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 839 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 840 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 842 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 844 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-   call h5tclose_f(file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 845 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_s_5_
-
-
-
-            subroutine write_dset_l_5_ (self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(in)   :: data(:,:,:,:,:)
-                  contiguous :: data
-
-               ! Write the logical item
-
-               call self%write_dset(item_name, MERGE(1, 0, MASK=data))
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_l_5_
-
-
-
-
-            subroutine write_dset_is_6_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(in)   :: data(:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(6,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,6,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_is
-               file_type_id = file_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_is_6_
-
-
-            subroutine write_dset_id_6_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(in)   :: data(:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(6,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,6,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_id
-               file_type_id = file_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_id_6_
-
-
-            subroutine write_dset_rs_6_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(in)   :: data(:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(6,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,6,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rs
-               file_type_id = file_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_rs_6_
-
-
-            subroutine write_dset_rd_6_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(in)   :: data(:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(6,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,6,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rd
-               file_type_id = file_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_rd_6_
-
-
-            subroutine write_dset_cs_6_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(in)   :: data(:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(6,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,6,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cs
-               file_type_id = file_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_cs_6_
-
-
-            subroutine write_dset_cd_6_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(in)   :: data(:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(6,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,6,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cd
-               file_type_id = file_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_cd_6_
-
-
-
-            subroutine write_dset_s_6_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(in)   :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               integer(HID_T) :: dspace_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 824 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 825 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 827 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(file_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 828 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5screate_simple_f(6,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 831 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 838 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 839 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 840 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 842 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 844 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-   call h5tclose_f(file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 845 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_s_6_
-
-
-
-            subroutine write_dset_l_6_ (self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(in)   :: data(:,:,:,:,:,:)
-                  contiguous :: data
-
-               ! Write the logical item
-
-               call self%write_dset(item_name, MERGE(1, 0, MASK=data))
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_l_6_
-
-
-
-
-            subroutine write_dset_is_7_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(IS), target, intent(in)   :: data(:,:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(7,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,7,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_is
-               file_type_id = file_type_id_is
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_is_7_
-
-
-            subroutine write_dset_id_7_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               integer(ID), target, intent(in)   :: data(:,:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(7,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,7,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_id
-               file_type_id = file_type_id_id
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_id_7_
-
-
-            subroutine write_dset_rs_7_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RS), target, intent(in)   :: data(:,:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(7,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,7,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rs
-               file_type_id = file_type_id_rs
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_rs_7_
-
-
-            subroutine write_dset_rd_7_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               real(RD), target, intent(in)   :: data(:,:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(7,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,7,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_rd
-               file_type_id = file_type_id_rd
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_rd_7_
-
-
-            subroutine write_dset_cs_7_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RS), target, intent(in)   :: data(:,:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(7,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,7,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cs
-               file_type_id = file_type_id_cs
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_cs_7_
-
-
-            subroutine write_dset_cd_7_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               complex(RD), target, intent(in)   :: data(:,:,:,:,:,:,:)
-               contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-   call h5screate_simple_f(7,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 765 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-   call h5pcreate_f(H5P_DATASET_CREATE_F,plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 773 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pcreate_f'
-   error stop
-   endif
-   call h5pset_chunk_f(plist_id,7,INT(SHAPE(data), HSIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 775 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_chunk_f'
-   error stop
-   endif
-   call h5pset_deflate_f(plist_id,self%comp_level,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 776 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pset_deflate_f'
-   error stop
-   endif
-
-               mem_type_id = mem_type_id_cd
-               file_type_id = file_type_id_cd
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err,dcpl_id=plist_id)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 788 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 791 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5pclose_f(plist_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 792 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5pclose_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 793 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 794 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_cd_7_
-
-
-
-            subroutine write_dset_s_7_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               character(*), target, intent(in)   :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               integer(HID_T) :: dspace_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the character item
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 824 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(mem_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 825 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5tcopy_f(H5T_NATIVE_CHARACTER,file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 827 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tcopy_f'
-   error stop
-   endif
-   call h5tset_size_f(file_type_id,LEN(data, SIZE_T),hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 828 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tset_size_f'
-   error stop
-   endif
-
-   call h5screate_simple_f(7,INT(SHAPE(data), HSIZE_T),dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 831 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5screate_simple_f'
-   error stop
-   endif
-
-               data_ptr = C_LOC(data)
-
-   call h5dcreate_f(self%group_id,item_name,file_type_id,dspace_id,item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 838 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dcreate_f'
-   error stop
-   endif
-   call h5dwrite_f(item_id,mem_type_id,data_ptr,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 839 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dwrite_f'
-   error stop
-   endif
-   call h5dclose_f(item_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 840 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5dclose_f'
-   error stop
-   endif
-
-   call h5sclose_f(dspace_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 842 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5sclose_f'
-   error stop
-   endif
-
-   call h5tclose_f(mem_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 844 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-   call h5tclose_f(file_type_id,hdf_err)
-   if (hdf_err == -1) then
-      call h5eprint_f(hdf_err)
-   write(UNIT=ERROR_UNIT, FMT=*) 'ABORT at line 845 of hdf5io_m.fypp'
-      write(UNIT=ERROR_UNIT, FMT=*) 'error in call to h5tclose_f'
-   error stop
-   endif
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_s_7_
-
-
-
-            subroutine write_dset_l_7_ (self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               logical, target, intent(in)   :: data(:,:,:,:,:,:,:)
-                  contiguous :: data
-
-               ! Write the logical item
-
-               call self%write_dset(item_name, MERGE(1, 0, MASK=data))
-
-               ! Finish
-
-               return
-
-            end subroutine write_dset_l_7_
-
-
-
-end module hdf5io_m
diff --git a/hdf5io/private/hdf5io_m.fypp b/hdf5io/private/hdf5io_m.fypp
deleted file mode 100644
index 3142d3848..000000000
--- a/hdf5io/private/hdf5io_m.fypp
+++ /dev/null
@@ -1,881 +0,0 @@
-! Module  : hdf5io
-! Purpose : definition of hdf5io_t type, supporting HDF5 input/output
-!
-! Copyright 2021 Rich Townsend
-!
-! This file is part of the ForUM (Fortran Utility Modules)
-! package. ForUM is free software: you can redistribute it and/or
-! modify it under the terms of the GNU General Public License as
-! published by the Free Software Foundation, version 3.
-!
-! ForUM is distributed in the hope that it will be useful, but WITHOUT
-! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-! or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
-! License for more details.
-!
-! You should have received a copy of the GNU General Public License
-! along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-#:include 'forum.inc'
-#:include 'hdf5io.inc'
-
-module hdf5io_m
-
-   ! Uses
-
-   use kinds_m
-   use cinter_m
-
-   use hdf5
-
-   use ISO_FORTRAN_ENV
-   use ISO_C_BINDING
-
-   ! No implicit typing
-
-   implicit none
-
-   ! Parameters
-
-   integer, parameter :: CREATE_FILE = 1
-   integer, parameter :: OPEN_FILE_RO = 2
-   integer, parameter :: OPEN_FILE_RW = 3
-
-   integer, parameter :: TYPE_LEN = 31
-
-   ! Derived-type definitions
-
-   type hdf5io_t
-      private
-      integer(HID_T)   :: file_id = 0
-      integer(HID_T)   :: group_id = 0
-      integer          :: comp_level = 0
-      integer, pointer :: ref_count => null()
-   contains
-      private
-      procedure, public :: final => final_
-      #:for obj_type in ('group', 'attr', 'dset')
-         procedure, public :: ${obj_type}$_exists
-      #:endfor
-      #:for obj_type in ('group', 'dset')
-         procedure, public :: ${obj_type}$_names
-      #:endfor
-      #:for obj_type in ('attr', 'dset')
-         procedure, public :: ${obj_type}$_shape
-      #:endfor
-      #:for op in ('read', 'alloc_read', 'write')
-         #:for obj_type in ('attr', 'dset')
-            #:set proc_list = []
-            #:for rank in range(RANK_MAX+1)
-               #:for type, suffix in zip(ALL_TYPES, ALL_SUFFIXES)
-                  #:set proc = '{:s}_{:s}_{:s}_{:d}_'.format(op, obj_type, suffix, rank)
-                  #:set proc_list = proc_list + [proc]
-                  procedure :: ${proc}$
-               #:endfor
-            #:endfor
-            generic, public :: ${op}$_${obj_type}$ => ${','.join(proc_list)}$
-         #:endfor
-      #:endfor
-   end type hdf5io_t
-
-   ! Module variables
-  
-   integer, save :: ref_count = 0
-
-   #:for suffix in NUM_SUFFIXES
-      integer(HID_T), save :: mem_type_id_${suffix}$
-      integer(HID_T), save :: file_type_id_${suffix}$
-   #:endfor
-      
-   ! Interfaces
-
-   interface hdf5io_t
-      module procedure hdf5io_t_file_
-      module procedure hdf5io_t_group_
-   end interface hdf5io_t
-   
-   ! Access specifiers
-
-   private
-
-   public :: CREATE_FILE
-   public :: OPEN_FILE_RO
-   public :: OPEN_FILE_RW
-   public :: TYPE_LEN
-   public :: hdf5io_t
-   
-   ! Procedures
-
-contains
-
-   function hdf5io_t_file_(file_name, access_type, comp_level) result (hi)
-
-      character(*), intent(in)      :: file_name
-      integer, intent(in)           :: access_type
-      integer, intent(in), optional :: comp_level
-      type(hdf5io_t)                :: hi
-
-      integer        :: hdf_err
-      integer(HID_T) :: file_id
-      integer(HID_T) :: group_id
-
-      ! If necessary, open the HDF5 library
-
-      if (ref_count == 0) then
-         call open_library_()
-      endif
-
-      ref_count = ref_count + 1
-
-      ! Depending on the access_type, open or create the file
-
-      select case(access_type)
-      case(CREATE_FILE)
-         @:HDF5_CALL(h5fcreate_f, file_name, H5F_ACC_TRUNC_F, file_id)
-      case(OPEN_FILE_RO)
-         @:HDF5_CALL(h5fopen_f, file_name, H5F_ACC_RDONLY_F, file_id)
-      case(OPEN_FILE_RW)
-         @:HDF5_CALL(h5fopen_f, file_name, H5F_ACC_RDWR_F, file_id)
-      case default
-         @:ABORT(invalid access_type)
-      end select
-
-      ! Open the root group
-
-      @:HDF5_CALL(h5gopen_f, file_id, '/', group_id)
-
-      ! Construct the hdf5io_t
-
-      hi%file_id = file_id
-      hi%group_id = group_id
-      if (PRESENT(comp_level)) then
-         hi%comp_level = comp_level
-      else
-         hi%comp_level = 0
-      endif
-
-      allocate(hi%ref_count)
-      hi%ref_count = 1
-
-      ! Finish
-
-      return
-
-   end function hdf5io_t_file_
-
-   !****
-
-   function hdf5io_t_group_(hi_parent, group_name) result (hi)
-
-      type(hdf5io_t), intent(inout) :: hi_parent
-      character(*), intent(in)      :: group_name
-      type(hdf5io_t)                :: hi
-
-      integer        :: hdf_err
-      integer(HID_T) :: group_id
-
-      ! Depending on whether the group already exists, open or create it
-
-      if (hi_parent%group_exists(group_name)) then
-         @:HDF5_CALL(h5gopen_f, hi_parent%group_id, group_name, group_id)
-      else
-         @:HDF5_CALL(h5gcreate_f, hi_parent%group_id, group_name, group_id)
-      endif
-
-      ! Construct the hdf5io_t
-
-      hi%file_id = hi_parent%file_id
-      hi%group_id = group_id
-      hi%comp_level = hi_parent%comp_level
-
-      hi%ref_count => hi_parent%ref_count
-      hi%ref_count = hi%ref_count + 1
-
-      ! Finish
-
-      return
-
-   end function hdf5io_t_group_
-
-   !****
-
-   subroutine final_(self)
-
-      class(hdf5io_t), intent(inout) :: self
-
-      integer :: hdf_err
-
-      ! Close the group
-
-      @:HDF5_CALL(h5gclose_f, self%group_id)
-
-      self%ref_count = self%ref_count - 1
-
-      ! If necessary, close the file also
-
-      if (self%ref_count == 0) then
-         @:HDF5_CALL(h5fclose_f, self%file_id)
-         deallocate(self%ref_count)
-         ref_count = ref_count - 1
-      endif
-
-      ! If necessary, close the HDF5 library
-
-      if (ref_count == 0) then
-         call close_library_()
-      endif
-
-      ! Finish
-
-      return
-
-   end subroutine final_
-
-   !****
-
-   subroutine open_library_()
-
-      integer       :: hdf_err
-
-      ! Open the HDF5 library
-      
-      @:HDF5_CALL(h5open_f)
-
-      @:ASSERT(hdf_err == 0,Failed to open HDF5 library)
-
-      ! Set up data types
-
-      mem_type_id_is = h5kind_to_type(is, H5_INTEGER_KIND)
-      mem_type_id_id = h5kind_to_type(id, H5_INTEGER_KIND)
-
-      mem_type_id_rs = h5kind_to_type(rs, H5_REAL_KIND)
-      mem_type_id_rd = h5kind_to_type(rd, H5_REAL_KIND)
-
-      call create_complex_type_(mem_type_id_rs, mem_type_id_cs)
-      call create_complex_type_(mem_type_id_rd, mem_type_id_cd)
-
-      file_type_id_is = H5T_STD_I32LE
-      file_type_id_id = H5T_STD_I64LE
-
-      file_type_id_rs = H5T_IEEE_F32LE
-      file_type_id_rd = H5T_IEEE_F64LE
-
-      call create_complex_type_(file_type_id_rs, file_type_id_cs)
-      call create_complex_type_(file_type_id_rd, file_type_id_cd)
-
-      ! Finish
-
-      return
-
-   contains
-
-      subroutine create_complex_type_(comp_type_id, type_id)
-
-         integer(HID_T), intent(in)  :: comp_type_id
-         integer(HID_T), intent(out) :: type_id
-
-         integer         :: hdf_err
-         integer(SIZE_T) :: comp_size
-
-         ! Create a complex data type
-
-         @:HDF5_CALL(h5tget_size_f, comp_type_id, comp_size)
-
-         @:HDF5_CALL(h5tcreate_f, H5T_COMPOUND_F, INT(2*comp_size, SIZE_T), type_id)
-         @:HDF5_CALL(h5tinsert_f, type_id, 're', INT(0, SIZE_T), comp_type_id)
-         @:HDF5_CALL(h5tinsert_f, type_id, 'im', INT(comp_size, SIZE_T), comp_type_id)
-
-         ! Finish
-
-         return
-
-      end subroutine create_complex_type_
-
-   end subroutine open_library_
-
-   !****
-
-   subroutine close_library_()
-
-      integer :: hdf_err
-
-      ! Close complex data types
-
-      #:for suffix in COMPLEX_SUFFIXES
-         @:HDF5_CALL(h5tclose_f, mem_type_id_${suffix}$)
-         @:HDF5_CALL(h5tclose_f, file_type_id_${suffix}$)
-      #:endfor
-
-      ! Close the HDF5 library
-
-      @:HDF5_CALL(h5close_f)
-
-      ! Finish
-
-      return
-
-   end subroutine close_library_
-
-   !****
-
-   function group_exists(self, group_name)
-
-      class(hdf5io_t), intent(inout) :: self
-      character(*), intent(in)       :: group_name
-      logical                        :: group_exists
-
-      integer        :: hdf_err
-      integer(HID_T) :: group_id
-
-      ! Determine whether the named group already exists
-
-      call h5eset_auto_f(0, hdf_err)
-
-      call h5gopen_f(self%group_id, group_name, group_id, hdf_err)
-
-      if (hdf_err >= 0) then
-         group_exists = .TRUE.
-         call h5gclose_f(group_id, hdf_err)
-      else
-         group_exists = .FALSE.
-      endif
-
-      call h5eset_auto_f(1, hdf_err)
-
-      ! Finish
-
-      return
-
-   end function group_exists
-
-   !****
-
-   function attr_exists(self, attr_name)
-
-      class(hdf5io_t), intent(inout) :: self
-      character(*), intent(in)       :: attr_name
-      logical                        :: attr_exists
-
-      integer :: hdf_err
-
-      ! Check if the attribute exists
-
-      @:HDF5_CALL(h5aexists_f, self%group_id, attr_name, attr_exists)
-
-      ! Finish
-
-      return
-
-   end function attr_exists
-
-   !****
-
-   function dset_exists(self, dset_name)
-
-      class(hdf5io_t), intent(inout) :: self
-      character(*), intent(in)       :: dset_name
-      logical                        :: dset_exists
-
-      integer          :: hdf_err
-      logical          :: link_exists
-      type(h5o_info_t) :: obj_info
-
-      ! Check if the dataset exists
-
-      @:HDF5_CALL(h5lexists_f, self%group_id, dset_name, link_exists)
-
-      if (link_exists) then
-
-         @:HDF5_CALL(h5oget_info_by_name_f, self%group_id, dset_name, obj_info)
-
-         dset_exists = obj_info%type == H5O_TYPE_DATASET_F
-
-      else
-
-         dset_exists = .FALSE.
-
-      endif
-
-      ! Finish
-
-      return
-
-   end function dset_exists
-
-   !****
-
-   #:for obj_type, hdf_type in (('group', 'H5O_TYPE_GROUP_F'), ('dset', 'H5O_TYPE_DATASET_F'))
-
-      function ${obj_type}$_names(self) result(names)
-
-         class(hdf5io_t), intent(inout) :: self
-         character(:), allocatable      :: names(:)
-
-         integer(HSIZE_T) :: i
-         integer          :: n_names
-         integer          :: max_len
-         type(C_FUNPTR)   :: op
-         integer          :: ret_value
-         integer          :: hdf_err
-         integer          :: i_name
-
-         ! Iterate to get number of items and maximum name length
-
-         i = 0
-
-         n_names = 0
-         max_len = 0
-
-         op = C_FUNLOC(op_len_)
-
-         @:HDF5_CALL(h5literate_f, self%group_id, H5_INDEX_NAME_F, H5_ITER_NATIVE_F, i, op, C_NULL_PTR, ret_value)
-
-         ! Allocate space
-
-         allocate(character(LEN=max_len)::names(n_names))
-
-         ! Iterate again to store the names
-
-         i = 0
-
-         i_name = 0
-
-         op = C_FUNLOC(op_name_)
-
-         @:HDF5_CALL(h5literate_f, self%group_id, H5_INDEX_NAME_F, H5_ITER_NATIVE_F, i, op, C_NULL_PTR, ret_value)
-
-         ! Finish
-
-         return
-
-      contains
-      
-         function op_len_(loc_id, c_name, c_info, c_data) result(ret_value) bind(C)
-
-            integer(HID_T), value :: loc_id
-            character(C_CHAR)     :: c_name(*)
-            type(C_PTR), value    :: c_info
-            type(C_PTR), value    :: c_data
-            integer(C_INT)        :: ret_value
-
-            type(H5O_INFO_T) :: info
-            integer          :: hdf_err
-
-            ! Check that the link points to the appropriate object type
-
-            @:HDF5_CALL(h5oget_info_f, loc_id, info)
-
-            if (info%type == ${hdf_type}$) then
-
-               ! Update counters
-
-               n_names = n_names + 1
-
-               max_len = MAX(c_f_len(c_name), max_len)
-
-            endif
-
-            ! Finish
-
-            ret_value = 0
-
-         end function op_len_
-
-         !****
-
-         function op_name_(loc_id, c_name, c_info, c_data) result(ret_value) bind(C)
-
-            integer(HID_T), value :: loc_id
-            character(C_CHAR)     :: c_name(*)
-            type(C_PTR), value    :: c_info
-            type(C_PTR), value    :: c_data
-            integer(C_INT)        :: ret_value
-
-            type(H5O_INFO_T) :: info
-            integer          :: hdf_err
-
-            ! Check that the link points to the appropriate object type
-
-            @:HDF5_CALL(h5oget_info_f, loc_id, info)
-
-            if (info%type == ${hdf_type}$) then
-
-               ! Store the name
-
-               i_name = i_name + 1
-
-               names(i_name) = c_f_string(c_name)
-
-            end if
-
-            ! Finish
-
-            ret_value = 0
-
-         end function op_name_
-
-      end function ${obj_type}$_names
-         
-   #:endfor
-
-   !****
-
-   #:for obj_type, prefix in (('attr', 'h5a'), ('dset', 'h5d'))
-
-      function ${obj_type}$_shape(self, item_name) result(shape)
-
-         class(hdf5io_t), intent(inout) :: self
-         character(*), intent(in)       :: item_name
-         integer(HSIZE_T), allocatable  :: shape(:)
-
-         integer                       :: hdf_err
-         integer(HID_T)                :: item_id
-         integer(HID_T)                :: space_id
-         integer                       :: rank
-         integer(HSIZE_T), allocatable :: max_shape(:)
-
-         ! Get the shape of the item
-
-         @:HDF5_CALL(${prefix}$open_f, self%group_id, item_name, item_id)
-
-         @:HDF5_CALL(${prefix}$get_space_f, item_id, space_id)
-
-         @:HDF5_CALL(h5sget_simple_extent_ndims_f, space_id, rank)
-
-         allocate(shape(rank))
-         allocate(max_shape(rank))
-
-         @:HDF5_CALL(h5sget_simple_extent_dims_f, space_id, shape, max_shape)
-
-         @:HDF5_CALL(h5sclose_f, space_id)
-         @:HDF5_CALL(${prefix}$close_f, item_id)
-
-         ! Finish
-
-         return
-
-      end function ${obj_type}$_shape
-
-   #:endfor
-
-   !****
-
-   #:for obj_type, prefix in (('attr', 'h5a'), ('dset', 'h5d'))
-      #:for rank in range(RANK_MAX+1)
-
-         #:for type, suffix in zip(NUM_TYPES, NUM_SUFFIXES)
-
-            subroutine read_${obj_type}$_${suffix}$_${rank}$_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               ${type}$, target, intent(out)  :: data${ARRAY_SPEC(rank)}$
-               #:if rank > 0
-                  contiguous :: data
-               #:endif
-
-               #:if rank > 0
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               #:endif
-               integer(HID_T) :: mem_type_id
-               integer        :: hdf_err
-               integer(HID_T) :: item_id
-               type(C_PTR)    :: data_ptr
-
-               #:if rank > 0
-
-                  ! Check rank and shape
-
-                  item_shape = self%${obj_type}$_shape(item_name)
-                  @:ASSERT(SIZE(item_shape) == ${rank}$, rank mismatch)
-                  @:ASSERT(ALL(item_shape == SHAPE(data)), shape mismatch)
-
-               #:endif
-
-               ! Read the item
-
-               mem_type_id = mem_type_id_${suffix}$
-
-               data_ptr = C_LOC(data)
-
-               @:HDF5_CALL(${prefix}$open_f, self%group_id, item_name, item_id)
-               @:HDF5_CALL(${prefix}$read_f, item_id, mem_type_id, data_ptr)
-               @:HDF5_CALL(${prefix}$close_f, item_id)
-
-               ! Finish
-
-               return
-
-            end subroutine read_${obj_type}$_${suffix}$_${rank}$_
-
-         #:endfor
-
-         #:for type, suffix in zip(CHAR_TYPES, CHAR_SUFFIXES)
-            
-            subroutine read_${obj_type}$_${suffix}$_${rank}$_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               ${type}$, target, intent(out)  :: data${ARRAY_SPEC(rank)}$
-               #:if rank > 0
-                  contiguous :: data
-               #:endif
-
-               #:if rank > 0
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               #:endif
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               #:if rank > 0
-
-                  ! Check rank and shape
-
-                  item_shape = self%${obj_type}$_shape(item_name)
-                  @:ASSERT(SIZE(item_shape) == ${rank}$, rank mismatch)
-                  @:ASSERT(ALL(item_shape == SHAPE(data)), shape mismatch)
-
-               #:endif
-         
-               ! Read the character item
-
-               @:HDF5_CALL(h5tcopy_f, H5T_NATIVE_CHARACTER, mem_type_id)
-               @:HDF5_CALL(h5tset_size_f, mem_type_id, LEN(data, SIZE_T))
-
-               data_ptr = C_LOC(data)
-
-               @:HDF5_CALL(${prefix}$open_f, self%group_id, item_name, item_id)
-               @:HDF5_CALL(${prefix}$read_f, item_id, mem_type_id, data_ptr)
-               @:HDF5_CALL(${prefix}$close_f, item_id)
-
-               @:HDF5_CALL(h5tclose_f, mem_type_id)
-
-               ! Finish
-
-               return
-
-            end subroutine read_${obj_type}$_${suffix}$_${rank}$_
-
-         #:endfor
-
-         #:for type, suffix in zip(LOGICAL_TYPES, LOGICAL_SUFFIXES)   
-            
-            subroutine read_${obj_type}$_${suffix}$_${rank}$_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               ${type}$, target, intent(out)  :: data${ARRAY_SPEC(rank)}$
-               #:if rank > 0
-                  contiguous :: data
-               #:endif
-
-               integer, allocatable :: data_i${ARRAY_SPEC(rank)}$
-
-               ! Read the logical item
-
-               call self%alloc_read_${obj_type}$(item_name, data_i)
-
-               data = data_i /= 0
-
-               ! Finish
-
-               return
-
-            end subroutine read_${obj_type}$_${suffix}$_${rank}$_
-
-         #:endfor
-            
-      #:endfor
-   #:endfor
-
-   !****
-
-   #:for obj_type in ('attr', 'dset')
-      #:for rank in range(RANK_MAX+1)
-         #:for type, suffix in zip(ALL_TYPES, ALL_SUFFIXES)
-         
-            subroutine alloc_read_${obj_type}$_${suffix}$_${rank}$_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout)     :: self
-               character(*), intent(in)           :: item_name
-               ${type}$, allocatable, intent(out) :: data${ARRAY_SPEC(rank)}$
-
-               #:if rank > 0
-                  integer(HSIZE_T), allocatable :: item_shape(:)
-               #:endif
-
-               ! Allocate the item
-                  
-               #:if rank > 0
-
-                  item_shape = self%${obj_type}$_shape(item_name)
-                  @:ASSERT(SIZE(item_shape) == ${rank}$, rank mismatch)
-
-                  allocate(data${ARRAY_SPEC(rank, 'item_shape({0:d})')}$)
-
-               #:else
-
-                  allocate(data)
-
-               #:endif
-
-               ! Read the item
-
-               call self%read_${obj_type}$(item_name, data)
-
-               ! Finish
-
-               return
-
-            end subroutine alloc_read_${obj_type}$_${suffix}$_${rank}$_
-
-         #:endfor
-      #:endfor
-   #:endfor
-
-   !****
-
-   #:for obj_type, prefix in (('attr', 'h5a'), ('dset', 'h5d'))
-      #:for rank in range(RANK_MAX+1)
-
-         #:for type, suffix in zip(NUM_TYPES, NUM_SUFFIXES)
-
-            subroutine write_${obj_type}$_${suffix}$_${rank}$_(self, item_name, data)
-            
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               ${type}$, target, intent(in)   :: data${ARRAY_SPEC(rank)}$
-               #:if rank > 0
-               contiguous :: data
-               #:endif
-
-               integer        :: hdf_err
-               integer(HID_T) :: dspace_id
-               integer(HID_T) :: plist_id
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the item
-
-               #:if rank > 0
-                  @:HDF5_CALL(h5screate_simple_f, ${rank}$, INT(SHAPE(data), HSIZE_T), dspace_id)
-               #:else
-                  @:HDF5_CALL(h5screate_f, H5S_SCALAR_F, dspace_id)
-               #:endif
-
-               #:if obj_type == 'attr'
-                  @:HDF5_CALL(h5pcreate_f, H5P_ATTRIBUTE_CREATE_F, plist_id)
-               #:else
-                  @:HDF5_CALL(h5pcreate_f, H5P_DATASET_CREATE_F, plist_id)
-                  #:if rank > 0
-                     @:HDF5_CALL(h5pset_chunk_f, plist_id, ${rank}$, INT(SHAPE(data), HSIZE_T))
-                     @:HDF5_CALL(h5pset_deflate_f, plist_id, self%comp_level)
-                  #:endif
-               #:endif
-
-               mem_type_id = mem_type_id_${suffix}$
-               file_type_id = file_type_id_${suffix}$
-
-               data_ptr = C_LOC(data)
-
-               #:if obj_type == 'attr'
-                  @:HDF5_CALL(${prefix}$create_f, self%group_id, item_name, file_type_id, dspace_id, item_id, acpl_id=plist_id)
-               #:else
-                  @:HDF5_CALL(${prefix}$create_f, self%group_id, item_name, file_type_id, dspace_id, item_id, dcpl_id=plist_id)
-               #:endif
-
-               @:HDF5_CALL(${prefix}$write_f, item_id, mem_type_id, data_ptr)
-               @:HDF5_CALL(h5pclose_f, plist_id)
-               @:HDF5_CALL(${prefix}$close_f, item_id)
-               @:HDF5_CALL(h5sclose_f, dspace_id)
-
-               ! Finish
-
-               return
-
-            end subroutine write_${obj_type}$_${suffix}$_${rank}$_
-
-         #:endfor
-
-         #:for type, suffix in zip(CHAR_TYPES, CHAR_SUFFIXES)
-
-            subroutine write_${obj_type}$_${suffix}$_${rank}$_(self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               ${type}$, target, intent(in)   :: data${ARRAY_SPEC(rank)}$
-               #:if rank > 0
-                  contiguous :: data
-               #:endif
-
-               integer        :: hdf_err
-               integer(HID_T) :: mem_type_id
-               integer(HID_T) :: file_type_id
-               integer(HID_T) :: dspace_id
-               type(C_PTR)    :: data_ptr
-               integer(HID_T) :: item_id
-
-               ! Write the character item
-
-               @:HDF5_CALL(h5tcopy_f, H5T_NATIVE_CHARACTER, mem_type_id)
-               @:HDF5_CALL(h5tset_size_f, mem_type_id, LEN(data, SIZE_T))
-
-               @:HDF5_CALL(h5tcopy_f, H5T_NATIVE_CHARACTER, file_type_id)
-               @:HDF5_CALL(h5tset_size_f, file_type_id, LEN(data, SIZE_T))
-
-               #:if rank > 0
-                  @:HDF5_CALL(h5screate_simple_f, ${rank}$, INT(SHAPE(data), HSIZE_T), dspace_id)
-               #:else
-                  @:HDF5_CALL(h5screate_f, H5S_SCALAR_F, dspace_id)
-               #:endif
-
-               data_ptr = C_LOC(data)
-
-               @:HDF5_CALL(${prefix}$create_f, self%group_id, item_name, file_type_id, dspace_id, item_id)
-               @:HDF5_CALL(${prefix}$write_f, item_id, mem_type_id, data_ptr)
-               @:HDF5_CALL(${prefix}$close_f, item_id)
-
-               @:HDF5_CALL(h5sclose_f, dspace_id)
-
-               @:HDF5_CALL(h5tclose_f, mem_type_id)
-               @:HDF5_CALL(h5tclose_f, file_type_id)
-
-               ! Finish
-
-               return
-
-            end subroutine write_${obj_type}$_${suffix}$_${rank}$_
-
-         #:endfor
-
-         #:for type, suffix in zip(LOGICAL_TYPES, LOGICAL_SUFFIXES)
-
-            subroutine write_${obj_type}$_${suffix}$_${rank}$_ (self, item_name, data)
-
-               class(hdf5io_t), intent(inout) :: self
-               character(*), intent(in)       :: item_name
-               ${type}$, target, intent(in)   :: data${ARRAY_SPEC(rank)}$
-               #:if rank > 0
-                  contiguous :: data
-               #:endif
-
-               ! Write the logical item
-
-               call self%write_${obj_type}$(item_name, MERGE(1, 0, MASK=data))
-
-               ! Finish
-
-               return
-
-            end subroutine write_${obj_type}$_${suffix}$_${rank}$_
-
-         #:endfor
-
-      #:endfor
-   #:endfor
-
-end module hdf5io_m
diff --git a/hdf5io/private/kinds_m.f90 b/hdf5io/private/kinds_m.f90
deleted file mode 100644
index 46fa98015..000000000
--- a/hdf5io/private/kinds_m.f90
+++ /dev/null
@@ -1,46 +0,0 @@
-! Module  : kinds_m
-! Purpose : kind type parameter definitions
-!
-! Copyright 2021 Rich Townsend
-!
-! This file is part of the ForUM (Fortran Utility Modules)
-! package. ForUM is free software: you can redistribute it and/or
-! modify it under the terms of the GNU General Public License as
-! published by the Free Software Foundation, version 3.
-!
-! ForUM is distributed in the hope that it will be useful, but WITHOUT
-! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-! or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
-! License for more details.
-!
-! You should have received a copy of the GNU General Public License
-! along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-module kinds_m
-
-  ! Uses
-
-  use ISO_FORTRAN_ENV
-
-  ! No implicit typing
-
-  implicit none
-
-  ! Parameter definitions
-
-  integer, parameter :: IS = INT32
-  integer, parameter :: ID = INT64
-
-  integer, parameter :: RS = REAL32
-  integer, parameter :: RD = REAL64
-
-  ! Access specifiers
-
-  private
-
-  public :: IS
-  public :: ID
-  public :: RS
-  public :: RD
-
-end module kinds_m
diff --git a/hdf5io/private/kinds_m.fypp b/hdf5io/private/kinds_m.fypp
deleted file mode 100644
index 46fa98015..000000000
--- a/hdf5io/private/kinds_m.fypp
+++ /dev/null
@@ -1,46 +0,0 @@
-! Module  : kinds_m
-! Purpose : kind type parameter definitions
-!
-! Copyright 2021 Rich Townsend
-!
-! This file is part of the ForUM (Fortran Utility Modules)
-! package. ForUM is free software: you can redistribute it and/or
-! modify it under the terms of the GNU General Public License as
-! published by the Free Software Foundation, version 3.
-!
-! ForUM is distributed in the hope that it will be useful, but WITHOUT
-! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-! or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
-! License for more details.
-!
-! You should have received a copy of the GNU General Public License
-! along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-module kinds_m
-
-  ! Uses
-
-  use ISO_FORTRAN_ENV
-
-  ! No implicit typing
-
-  implicit none
-
-  ! Parameter definitions
-
-  integer, parameter :: IS = INT32
-  integer, parameter :: ID = INT64
-
-  integer, parameter :: RS = REAL32
-  integer, parameter :: RD = REAL64
-
-  ! Access specifiers
-
-  private
-
-  public :: IS
-  public :: ID
-  public :: RS
-  public :: RD
-
-end module kinds_m
diff --git a/hdf5io/private/regen_srcs b/hdf5io/private/regen_srcs
deleted file mode 100755
index 78ede9b87..000000000
--- a/hdf5io/private/regen_srcs
+++ /dev/null
@@ -1,7 +0,0 @@
-#!/bin/sh
-#
-# Regenerate source files from preprocessor files
-
-for f in *.fypp; do
-    fypp $f ${f%.fypp}.f90
-done
diff --git a/hdf5io/public/hdf5io_lib.f90 b/hdf5io/public/hdf5io_lib.f90
deleted file mode 100644
index 260d988bf..000000000
--- a/hdf5io/public/hdf5io_lib.f90
+++ /dev/null
@@ -1,37 +0,0 @@
-! ***********************************************************************
-!
-!   Copyright (C) 2010-2021  Rich Townsend & The MESA Team
-!
-!   MESA is free software; you can use it and/or modify
-!   it under the combined terms and restrictions of the MESA MANIFESTO
-!   and the GNU General Library Public License as published
-!   by the Free Software Foundation; either version 2 of the License,
-!   or (at your option) any later version.
-!
-!   You should have received a copy of the MESA MANIFESTO along with
-!   this software; if not, it is available at the mesa website:
-!   http://mesa.sourceforge.net/
-!
-!   MESA is distributed in the hope that it will be useful,
-!   but WITHOUT ANY WARRANTY; without even the implied warranty of
-!   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-!   See the GNU Library General Public License for more details.
-!
-!   You should have received a copy of the GNU Library General Public License
-!   along with this software; if not, write to the Free Software
-!   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-!
-! ***********************************************************************
-
-module hdf5io_lib
-
-   use hdf5io_m
-
-   private
-
-   public :: hdf5io_t
-   public :: OPEN_FILE_RO
-   public :: OPEN_FILE_RW
-   public :: CREATE_FILE
-
-end module hdf5io_lib
diff --git a/hdf5io/test/.gitignore b/hdf5io/test/.gitignore
deleted file mode 100644
index 4a8c32ac9..000000000
--- a/hdf5io/test/.gitignore
+++ /dev/null
@@ -1 +0,0 @@
-test.h5
diff --git a/hdf5io/test/cleanup b/hdf5io/test/cleanup
deleted file mode 100755
index e383ea3f7..000000000
--- a/hdf5io/test/cleanup
+++ /dev/null
@@ -1,4 +0,0 @@
-cd make
-make clean
-cd ../../make
-make clean
diff --git a/hdf5io/test/make/makefile b/hdf5io/test/make/makefile
deleted file mode 100644
index 2a4718cad..000000000
--- a/hdf5io/test/make/makefile
+++ /dev/null
@@ -1,8 +0,0 @@
-# QUIET makes the output from the compilation process much less verbose -- basically,
-# show which files are being compiled with which generic compilation command. The
-# goal of QUIET is to make it easier to spot warnings and/or circular dependency
-# errors.
-
-QUIET = yes
-
-include makefile_base
diff --git a/hdf5io/test/make/makefile_base b/hdf5io/test/make/makefile_base
deleted file mode 100644
index 293d3fa01..000000000
--- a/hdf5io/test/make/makefile_base
+++ /dev/null
@@ -1,92 +0,0 @@
-# This is the makefile for testing the mesa atm library
-
-MESA_DIR = ../../..
-
-#################################################################
-#
-# PREAMBLE
-
-include $(MESA_DIR)/utils/makefile_header
-
-#################################################################
-#
-# SOURCES
-
-SRCS = test_hdf5io.f90
-
-#################################################################
-#
-# LIBRARIES
-
-LIBS_LOCAL = hdf5io
-DEPS_LOCAL = $(patsubst %,$(LOCAL_LIB_DIR)/lib%.$(LIB_SUFFIX),$(LIBS_LOCAL))
-LOAD_LOCAL = -L$(LOCAL_LIB_DIR) $(addprefix -l,$(LIBS_LOCAL))
-
-LIBS_OTHER = 
-DEPS_OTHER = 
-LOAD_OTHER = $(LOAD_HDF5)
-
-#################################################################
-#
-# TARGETS
-
-TEST = $(TEST_DIR)/tester
-
-TEST_OBJS = $(patsubst %.f,%.o,$(patsubst %.f90,%.o,$(SRCS)))
-
-all : $(TEST)
-
-$(TEST) : $(TEST_OBJS) $(DEPS_LOCAL) $(DEPS_OTHER)
-
-$(TEST) : OBJS = $(TEST_OBJS)
-
-$(TEST_DIR)/% :
-ifneq ($(QUIET),)
-	@echo LOADER $@
-	@$(LOADER) $(FCopenmp) -o $@ $(OBJS) $(LOAD_LOCAL) $(LOAD_OTHER) $(LD_FLAGS)
-else
-	$(LOADER) $(FCopenmp) -o $@ $(OBJS) $(LOAD_LOCAL) $(LOAD_OTHER) $(LD_FLAGS)
-endif
-
-clean:
-	-@rm -f *.o *.mod *.smod .depend $(TEST) $(TESTQ)
-
-nodeps : $(.DEFAULT_GOAL)
-
-#################################################################
-#
-# COMPILATION RULES
-
-%.o: %.f90
-ifneq ($(QUIET),)
-	@echo TEST_COMPILE $<
-	@$(TEST_COMPILE) -O${OPT_LEVEL} $(FCfree) $<
-else
-	$(TEST_COMPILE) -O${OPT_LEVEL} $(FCfree) $<
-endif
-
-#################################################################
-#
-# DEPENDENCIES
-
-SRC_PATH = $(TEST_SRC_DIR)
-
-vpath %.f90 $(SRC_PATH)
-
-vpath %.mod $(LOCAL_LIB_DIR):$(MESA_DIR)/include
-
-NODEPS = $(or $(filter nodeps,$(MAKECMDGOALS)),$(filter clean,$(MAKECMDGOALS)))
-
-ifeq ($(NODEPS),)
-
-  .depend :
-  ifneq ($(QUIET),)
-	@echo MAKEDEPF90
-	@$(MAKEDEPF90) -I$(SRC_PATH) $(SRCS) > .depend
-  else
-	$(MAKEDEPF90) -I$(SRC_PATH) $(SRCS) > .depend
-  endif
-
-  -include .depend
-
-endif
diff --git a/hdf5io/test/mk b/hdf5io/test/mk
deleted file mode 100755
index 78c91b0e9..000000000
--- a/hdf5io/test/mk
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/bin/bash
-
-function check_okay {
-	if [ $? -ne 0 ]
-	then
-		echo
-		echo "FAILED"
-		echo
-		exit 1
-	fi
-}
-
-cd ../make; make; check_okay
-cd ../test/make; make
diff --git a/hdf5io/test/rn b/hdf5io/test/rn
deleted file mode 100755
index e5d7960ab..000000000
--- a/hdf5io/test/rn
+++ /dev/null
@@ -1,3 +0,0 @@
-#!/bin/bash
-
-./tester
diff --git a/hdf5io/test/src/test_hdf5io.f90 b/hdf5io/test/src/test_hdf5io.f90
deleted file mode 100644
index 860ab7448..000000000
--- a/hdf5io/test/src/test_hdf5io.f90
+++ /dev/null
@@ -1,211 +0,0 @@
-program test_hdf5io
-
-   ! Uses
-
-   use const_lib
-   use hdf5io_lib
-
-   ! No implicit typing
-
-   implicit none
-
-   integer, parameter :: n = 3
-
-   character(12) :: s_0
-   integer(i4)   :: is_0
-   integer(i4)   :: id_0
-   real(sp)      :: rs_0
-   real(dp)      :: rd_0
-   real(sp)      :: cs_0
-   real(dp)      :: cd_0
-   logical       :: l_0
-   character(12) :: s_1(n)
-   integer(i4)   :: is_1(n)
-   integer(i4)   :: id_1(n)
-   real(sp)      :: rs_1(n)
-   real(dp)      :: rd_1(n)
-   real(sp)      :: cs_1(n)
-   real(dp)      :: cd_1(n)
-   logical       :: l_1(n)
-
-   ! Run tests
-   
-   call write_file()
-   call read_file()
-   
-contains
-
-   subroutine write_file()
-
-      type(hdf5io_t) :: hi
-
-      ! Set up values
-
-      s_0 = 'hello world!'
-      s_1 = s_0
-
-      is_0 = 1_i4
-      is_1 = is_0
-      
-      id_0 = 2_i8
-      id_1 = id_0
-
-      rs_0 = 3._sp
-      rs_1 = rs_0
-
-      rd_0 = 4._dp
-      rd_1 = rd_0
-
-      cs_0 = CMPLX(rs_0, 5*rs_0, sp)
-      cs_1 = cs_0
-
-      cd_0 = CMPLX(rd_0, 6*rd_0, dp)
-      cd_1 = cd_0
-
-      l_0 = .TRUE.
-      l_1 = [.FALSE., .TRUE., .FALSE.]
-
-      ! Read the file
-
-      hi = hdf5io_t('test.h5', CREATE_FILE)
-      
-      call hi%write_dset('s_0', s_0)
-      call hi%write_dset('s_1', s_1)
-
-      call hi%write_dset('is_0', is_0)
-      call hi%write_dset('is_1', is_1)
-   
-      call hi%write_dset('id_0', id_0)
-      call hi%write_dset('id_1', id_1)
-   
-      call hi%write_dset('rs_0', rs_0)
-      call hi%write_dset('rs_1', rs_1)
-   
-      call hi%write_dset('rd_0', rd_0)
-      call hi%write_dset('rd_1', rd_1)
- 
-      call hi%write_dset('cs_0', cs_0)
-      call hi%write_dset('cs_1', cs_1)
-   
-      call hi%write_dset('cd_0', cd_0)
-      call hi%write_dset('cd_1', cd_1)
-
-      call hi%write_dset('l_0', l_0)
-      call hi%write_dset('l_1', l_1)
-
-      call hi%final()
-
-      ! Finish
-
-   end subroutine write_file
-
-   subroutine read_file()
-
-      type(hdf5io_t) :: hi
-
-      character(12) :: s_0_chk
-      integer(i4)   :: is_0_chk
-      integer(i4)   :: id_0_chk
-      real(sp)      :: rs_0_chk
-      real(dp)      :: rd_0_chk
-      real(sp)      :: cs_0_chk
-      real(dp)      :: cd_0_chk
-      logical       :: l_0_chk
-      character(12) :: s_1_chk(n)
-      integer(i4)   :: is_1_chk(n)
-      integer(i4)   :: id_1_chk(n)
-      real(sp)      :: rs_1_chk(n)
-      real(dp)      :: rd_1_chk(n)
-      real(sp)      :: cs_1_chk(n)
-      real(dp)      :: cd_1_chk(n)
-      logical       :: l_1_chk(n)
-
-100   format(A)
-110   format(2X,'scalar',1X,1L)
-120   format(2X,'array ',1X,1L)
-
-      ! Open the file
-
-      hi = hdf5io_t('test.h5', OPEN_FILE_RO)
-      
-      ! Read and check values
-
-      call hi%read_dset('s_0', s_0_chk)
-      call hi%read_dset('s_1', s_1_chk)
-
-      write (*,100) 'character dataset'
-      write (*,110) s_0 == s_0_chk
-      write (*,120) ALL(s_1 == s_1_chk)
-
-      !
-
-      call hi%read_dset('is_0', is_0_chk)
-      call hi%read_dset('is_1', is_1_chk)
-
-      write (*,100) 'integer(i4) dataset'
-      write (*,110) is_0 == is_0_chk
-      write (*,120) ALL(is_1 == is_1_chk)
-
-      !
-      
-      call hi%read_dset('id_0', id_0_chk)
-      call hi%read_dset('id_1', id_1_chk)
-
-      write (*,100) 'integer(i8) dataset'
-      write (*,110) id_0 == id_0_chk
-      write (*,120) ALL(id_1 == id_1_chk)
-
-      !
-      
-      call hi%read_dset('rs_0', rs_0_chk)
-      call hi%read_dset('rs_1', rs_1_chk)
-
-      write (*,100) 'real(sp) dataset'
-      write (*,110) rs_0 == rs_0_chk
-      write (*,120) ALL(rs_1 == rs_1_chk)
-
-      !
-      
-      call hi%read_dset('rd_0', rd_0_chk)
-      call hi%read_dset('rd_1', rd_1_chk)
-
-      write (*,100) 'real(dp) dataset'
-      write (*,110) rd_0 == rd_0_chk
-      write (*,120) ALL(rd_1 == rd_1_chk)
-
-      !
-      
-      call hi%read_dset('cs_0', cs_0_chk)
-      call hi%read_dset('cs_1', cs_1_chk)
-
-      write (*,100) 'complex(sp) dataset'
-      write (*,110) cs_0 == cs_0_chk
-      write (*,120) ALL(cs_1 == cs_1_chk)
-
-      !
-      
-      call hi%read_dset('cd_0', cd_0_chk)
-      call hi%read_dset('cd_1', cd_1_chk)
-
-      write (*,100) 'complex(dp) dataset'
-      write (*,110) cd_0 == cd_0_chk
-      write (*,120) ALL(cd_1 == cd_1_chk)
-
-      !
-      
-      call hi%read_dset('l_0', l_0_chk)
-      call hi%read_dset('l_1', l_1_chk)
-
-      write (*,100) 'logical dataset'
-      write (*,110) l_0 .EQV. l_0_chk
-      write (*,120) ALL(l_1 .EQV. l_1_chk)
-
-      call hi%final()
-
-      ! Finish
-
-      return
-
-   end subroutine read_file
-
-end program test_hdf5io
diff --git a/hdf5io/test/test_output b/hdf5io/test/test_output
deleted file mode 100644
index 202d90b7a..000000000
--- a/hdf5io/test/test_output
+++ /dev/null
@@ -1,24 +0,0 @@
-character dataset
-  scalar T
-  array  T
-integer(i4) dataset
-  scalar T
-  array  T
-integer(i8) dataset
-  scalar T
-  array  T
-real(sp) dataset
-  scalar T
-  array  T
-real(dp) dataset
-  scalar T
-  array  T
-complex(sp) dataset
-  scalar T
-  array  T
-complex(dp) dataset
-  scalar T
-  array  T
-logical dataset
-  scalar T
-  array  T
diff --git a/install b/install
index 2954e1fd5..0ca3fc2b3 100755
--- a/install
+++ b/install
@@ -278,7 +278,7 @@ do_one utils
 do_one_parallel math
 do_one_parallel mtx
 do_one_parallel auto_diff
-do_one_parallel hdf5io
+do_one_parallel forum
 do_one_parallel num
 
 do_one_parallel interp_1d
@@ -363,23 +363,17 @@ do_one_parallel ionization
 if [ ! -r data/atm_data ]
 then
 	do_input_data atm
-fi
+fi 
 do_one atm
 
 do_one sample
-
 do_one_parallel gyre
-
 do_one adipls
-
 do_one_parallel star
-
 do_one_parallel binary
-
 do_one_parallel astero
 
 
-
 echo
 echo
 echo
diff --git a/interp_1d/make/makefile_base b/interp_1d/make/makefile_base
index 3f6858f45..cc06ef4ac 100644
--- a/interp_1d/make/makefile_base
+++ b/interp_1d/make/makefile_base
@@ -15,7 +15,9 @@ include $(MESA_DIR)/utils/makefile_header
 SRCS = \
    interp_1d_misc.f90 \
    interp_1d_pm.f90 \
+   interp_1d_pm_autodiff.f90 \
    interp_1d_mp.f90 \
+   interp_1d_mp_autodiff.f90\
    interp_1d_misc_sg.f90 \
    interp_1d_pm_sg.f90 \
    interp_1d_mp_sg.f90 \
@@ -28,9 +30,9 @@ SRCS = \
 # LIBRARIES
 
 ifeq ($(USE_SHARED), YES)
-     LIBS_OTHER = $(LIBS_MATRIX)
+     LIBS_OTHER = auto_diff $(LIBS_MATRIX)
      DEPS_OTHER = $(patsubst %,$(MESA_LIB_DIR)/lib%.$(LIB_SUFFIX),$(LIBS_OTHER))
-     LOAD_OTHER = -L$(MESA_LIB_DIR) $(LOAD_MATRIX)
+     LOAD_OTHER = -L$(MESA_LIB_DIR) -lauto_diff $(LOAD_MATRIX)
 endif
 
 #################################################################
diff --git a/interp_1d/private/interp_1d_misc.f90 b/interp_1d/private/interp_1d_misc.f90
index 93e949a67..e5c0fb790 100644
--- a/interp_1d/private/interp_1d_misc.f90
+++ b/interp_1d/private/interp_1d_misc.f90
@@ -26,7 +26,8 @@
       module interp_1d_misc
       
       use const_lib, only: dp
-
+      use auto_diff
+      
       implicit none
       
       contains
@@ -181,7 +182,75 @@ subroutine do_interp_values(init_x, nx, f1, nv, x, vals, ierr)
 
    
       end subroutine do_interp_values
+
+      subroutine do_interp_values_autodiff(init_x, nx, f1, nv, x, vals, ierr)
+         type(auto_diff_real_2var_order1), intent(in) :: init_x(:) ! (nx) ! junction points, strictly monotonic
+         integer, intent(in) :: nx ! length of init_x vector
+         type(auto_diff_real_2var_order1), intent(in), pointer :: f1(:) ! =(4, nx)  ! data & interpolation coefficients
+         integer, intent(in) :: nv ! length of new x vector and vals vector
+         type(auto_diff_real_2var_order1), intent(in) :: x(:) ! (nv)  ! locations where want interpolated values
+            ! strictly monotonic in same way as init_x
+            ! values out of range of init_x's are clipped to boundaries of init_x's
+         type(auto_diff_real_2var_order1), intent(inout) :: vals(:) ! (nv)
+         integer, intent(out) :: ierr ! 0 means aok
+   
+         integer :: k_old, k_new
+         type(auto_diff_real_2var_order1) :: xk_old, xkp1_old, xk_new, delta
+         logical :: increasing
+         type(auto_diff_real_2var_order1), pointer :: f(:,:) ! (4, nx)  ! data & interpolation coefficients
+         
+         ierr = 0
+         
+         if (nx == 1) then            
+            vals(1:nv) = f1(1)
+            return
+         end if
+
+         f(1:4,1:nx) => f1(1:4*nx)
+
+         if(init_x(1) < init_x(nx)) then
+            increasing = .true.
+         end if
+         
+         k_old = 1; xk_old = init_x(k_old); xkp1_old = init_x(k_old+1)
+                  
+         do k_new = 1, nv
       
+            xk_new = x(k_new)
+            if (increasing) then
+               if (xk_new > init_x(nx)) then
+                  xk_new = init_x(nx)
+               else if (xk_new < init_x(1)) then
+                  xk_new = init_x(1)
+               end if
+            else ! decreasing
+               if (xk_new < init_x(nx)) then
+                  xk_new = init_x(nx)
+               else if (xk_new > init_x(1)) then
+                  xk_new = init_x(1)
+               end if
+            end if
+            do while ((increasing .and. xk_new > xkp1_old) .or. ((.not. increasing) .and. xk_new < xkp1_old))
+               k_old = k_old + 1
+               if (k_old >= nx) then
+                  k_old = k_old - 1
+                  xk_new = xkp1_old
+                  exit
+               end if
+               xk_old = xkp1_old
+               xkp1_old = init_x(k_old+1)
+            end do
+         
+            delta = xk_new - xk_old
+         
+            vals(k_new) =  &
+                  f(1, k_old) + delta*(f(2, k_old)  &
+                     + delta*(f(3, k_old) + delta*f(4, k_old)))
+            
+         end do
+
+   
+      end subroutine do_interp_values_autodiff
       
       subroutine do_interp_values_and_slopes(init_x, nx, f1, nv, x, vals, slopes, ierr)
          real(dp), intent(in) :: init_x(:) ! (nx) ! junction points, strictly monotonic
@@ -576,10 +645,10 @@ subroutine minmod4(z, n, f1, f2, f3, f4)
          call minmod(z, n, z, f3)
          call minmod(z, n, z, f4)
       end subroutine minmod4
-      
-      
+
+
       subroutine median(z, n, f1, f2, f3)
-         real(dp), intent(inout) :: z(:)     
+         real(dp), intent(inout) :: z(:)
          integer, intent(in) :: n       ! length of vectors
          real(dp), intent(in) :: f1(:), f2(:), f3(:)
          real(dp), target :: tmp1_ary(n), tmp2_ary(n)
@@ -593,4 +662,61 @@ subroutine median(z, n, f1, f2, f3)
       end subroutine median
 
 
+      type(auto_diff_real_2var_order1) function minmod1_autodiff(f1, f2)
+         use auto_diff
+         type(auto_diff_real_2var_order1), intent(in) :: f1, f2
+         minmod1_autodiff = 0.5d0 * (sign(f1) + sign(f2)) * min(abs(f1), abs(f2))
+      end function minmod1_autodiff
+
+
+      type(auto_diff_real_2var_order1) function median1_autodiff(f1, f2, f3)
+         use auto_diff
+         type(auto_diff_real_2var_order1), intent(in) :: f1, f2, f3
+         median1_autodiff = f1 + minmod1_autodiff(f2 - f1, f3 - f1)
+      end function median1_autodiff
+
+
+      subroutine minmod_autodiff(z, n, f1, f2)
+         use auto_diff
+         type(auto_diff_real_2var_order1), intent(inout) :: z(:)
+         integer, intent(in) :: n       ! length of vectors
+         integer :: k
+         type(auto_diff_real_2var_order1), intent(in) :: f1(:), f2(:)
+         do k =1, n
+         z(k) = 0.5d0 * (sign(f1(k)) + sign(f2(k))) * min(abs(f1(k)), abs(f2(k)))
+         end do
+      end subroutine minmod_autodiff
+
+      subroutine minmod4_autodiff(z, n, f1, f2, f3, f4)
+         use auto_diff
+         type(auto_diff_real_2var_order1), intent(inout) :: z(:)
+         integer, intent(in) :: n       ! length of vectors
+         type(auto_diff_real_2var_order1), intent(in) :: f1(:), f2(:), f3(:), f4(:)
+         call minmod_autodiff(z, n, f1, f2)
+         call minmod_autodiff(z, n, z, f3)
+         call minmod_autodiff(z, n, z, f4)
+      end subroutine minmod4_autodiff
+
+
+      subroutine median_autodiff(z, n, f1, f2, f3)
+         use auto_diff
+         type(auto_diff_real_2var_order1), intent(inout) :: z(:)
+         integer, intent(in) :: n       ! length of vectors
+         integer :: k
+         type(auto_diff_real_2var_order1), intent(in) :: f1(:), f2(:), f3(:)
+         type(auto_diff_real_2var_order1), target :: tmp1_ary(n), tmp2_ary(n)
+         type(auto_diff_real_2var_order1), pointer :: tmp1(:), tmp2(:)
+         tmp1 => tmp1_ary
+         tmp2 => tmp2_ary
+         do k =1,n
+         tmp1(k) = f2(k) - f1(k)
+         tmp2(k) = f3(k) - f1(k)
+         end do
+         call minmod_autodiff(z, n, tmp1, tmp2)
+         do k =1,n
+         z(k) = z(k) + f1(k)
+         end do
+      end subroutine median_autodiff
+
+
       end module interp_1d_misc
diff --git a/interp_1d/private/interp_1d_mp.f90 b/interp_1d/private/interp_1d_mp.f90
index e73404fb7..d881095f9 100644
--- a/interp_1d/private/interp_1d_mp.f90
+++ b/interp_1d/private/interp_1d_mp.f90
@@ -52,7 +52,6 @@ subroutine m3(x, nx, f1, which, slope_only, nwork, work1, str, ierr)
                spL, spR, t, tmax, tmp, tmp1, tmp2
          real(dp), parameter :: tiny = 1d-20
          integer :: i
-         character (len=256) :: message
          real(dp), pointer :: f(:,:) ! (4, nx)  ! data & interpolation coefficients
          f(1:4,1:nx) => f1(1:4*nx)
 
diff --git a/interp_1d/private/interp_1d_mp_autodiff.f90 b/interp_1d/private/interp_1d_mp_autodiff.f90
new file mode 100644
index 000000000..6a3847baa
--- /dev/null
+++ b/interp_1d/private/interp_1d_mp_autodiff.f90
@@ -0,0 +1,397 @@
+! ***********************************************************************
+!
+!   Copyright (C) 2010  The MESA Team
+!
+!   MESA is free software; you can use it and/or modify
+!   it under the combined terms and restrictions of the MESA MANIFESTO
+!   and the GNU General Library Public License as published
+!   by the Free Software Foundation; either version 2 of the License,
+!   or (at your option) any later version.
+!
+!   You should have received a copy of the MESA MANIFESTO along with
+!   this software; if not, it is available at the mesa website:
+!   http://mesa.sourceforge.net/
+!
+!   MESA is distributed in the hope that it will be useful,
+!   but WITHOUT ANY WARRANTY; without even the implied warranty of
+!   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+!   See the GNU Library General Public License for more details.
+!
+!   You should have received a copy of the GNU Library General Public License
+!   along with this software; if not, write to the Free Software
+!   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+!
+! ***********************************************************************
+
+      module interp_1d_mp_autodiff ! high accuracy monotonicity preserving algorithms
+      
+      use const_lib, only: dp
+      use auto_diff
+
+      implicit none
+      private
+      public :: m3_autodiff, m3_on_uniform_grid_autodiff
+      
+      contains
+      
+      
+      subroutine m3_autodiff(x, nx, f1, which, slope_only, nwork, work1, str, ierr)  
+         use interp_1d_def
+         use auto_diff
+         use interp_1d_misc
+         use interp_1d_pm_autodiff, only: mk_pmlinear, mk_pmquad
+         integer, intent(in) :: nx       ! length of x vector
+         type(auto_diff_real_2var_order1), intent(in)    :: x(:) ! (nx)    ! junction points, strictly monotonic
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: f1(:) ! =(4, nx)  ! data & interpolation coefficients
+         integer, intent(in) :: which
+         logical, intent(in) :: slope_only
+         integer, intent(in) :: nwork
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: work1(:) ! =(nx, nwork)
+         character (len=*) :: str
+         integer, intent(out) :: ierr
+         
+         type(auto_diff_real_2var_order1), dimension(:), pointer :: h, s_mid, s, d, d_mid, e_mid, hd_mid,  &
+               spL, spR, t, tmax, tmp, tmp1, tmp2
+         real(dp), parameter :: tiny = 1d-20
+         integer :: i
+         type(auto_diff_real_2var_order1), pointer :: f(:,:) ! (4, nx)  ! data & interpolation coefficients
+         f(1:4,1:nx) => f1(1:4*nx)
+
+         ierr = 0
+         
+         if (nx < 2) then
+            return
+         end if
+         
+         if (nx == 2) then
+            call mk_pmlinear(x, f1, slope_only, nwork, work1, str, ierr)
+            return
+         end if
+         
+         if (nx == 3) then
+            call mk_pmquad(x, f1, slope_only, nwork, work1, str, ierr)
+            return
+         end if
+         
+         if (nwork < mp_work_size) then
+            ierr = -1
+            return
+         end if
+         
+         i = 0
+         h(1:nx) => work1(i+1:i+nx); i = i+nx
+         s_mid(1:nx) => work1(i+1:i+nx); i = i+nx
+         s(1:nx) => work1(i+1:i+nx); i = i+nx
+         d(1:nx) => work1(i+1:i+nx); i = i+nx
+         d_mid(1:nx) => work1(i+1:i+nx); i = i+nx
+         e_mid(1:nx) => work1(i+1:i+nx); i = i+nx
+         hd_mid(1:nx) => work1(i+1:i+nx); i = i+nx
+         spL(1:nx) => work1(i+1:i+nx); i = i+nx
+         spR(1:nx) => work1(i+1:i+nx); i = i+nx
+         t(1:nx) => work1(i+1:i+nx); i = i+nx
+         tmax(1:nx) => work1(i+1:i+nx); i = i+nx
+         tmp(1:nx) => work1(i+1:i+nx); i = i+nx
+         tmp1(1:nx) => work1(i+1:i+nx); i = i+nx
+         tmp2(1:nx) => work1(i+1:i+nx); i = i+nx
+
+         ! grid spacing
+         do i=1,nx-1
+            h(i) = x(i+1) - x(i)
+         end do
+         do i = 1, nx-1
+            if (h(i) == 0) then
+               write(*, '(a,1x,2i5,1x,a)')  &
+                  'same interpolation x values at', i, i+1, 'for ' // trim(str)
+               ierr = -1
+               return
+            end if
+         end do
+                  
+         ! divided differences
+         do i=1,nx-1
+            s_mid(i) = (f(1,i+1) - f(1,i)) / h(i) ! eqn 2.1      
+         end do
+         do i=2,nx-1 
+            d(i) = (s_mid(i) - s_mid(i-1)) / (x(i+1) - x(i-1)) ! eqn 3.1
+         end do
+         ! need to extend d to full range. simplest way is just to copy from neighbor
+         d(1) = d(2)
+         d(nx) = d(nx-1)
+         
+         ! d_mid eqn(3.4) -- modified according to eqn (2.27) of Suresh & Huynh, 1997
+         do i=1,nx-1
+            tmp1(i) = 4*d(i+1) - d(i)
+            tmp2(i) = 4*d(i) - d(i+1)
+         end do
+         call minmod4_autodiff(d_mid(1:nx-1), nx-1, d(2:nx), d(1:nx-1), tmp1(1:nx-1), tmp2(1:nx-1))
+         
+         do i=1,nx-1
+            hd_mid(i) = h(i)*d_mid(i)
+         end do
+         
+         ! spL(i) = p'(i-1/2)(xi) = smid(i-1) + h(i-1)*d_mid(i-1) from Theorem 1
+         do i=1,nx-1
+            spL(i+1) = s_mid(i) + hd_mid(i)      
+         end do
+         
+         ! spR(i) = p'(i+1/2)(xi) = smid(i) - h(i)*d_mid(i) from Theorem 1
+         do i=1,nx-1
+            spR(i) = s_mid(i) - hd_mid(i) 
+         end do
+         
+         call minmod_autodiff(s(2:nx-1), nx-2, s_mid(1:nx-2), s_mid(2:nx-1)) ! eqn (2.8)
+         call minmod_autodiff(t(2:nx-1), nx-2, spL(2:nx-1), spR(2:nx-1))
+         
+         if (which == average) then
+         
+            do i=2,nx-1 
+               f(2,i) = sign(t(i))* &
+                  min((abs(spL(i)+spR(i)))/2d0,  &
+                     max(3*abs(s(i)), 1.5d0*abs(t(i))))
+            end do
+
+         else if (which == quartic) then
+         
+            do i=2,nx-2 
+               e_mid(i) = (d(i+1) - d(i)) / (x(i+2) - x(i-1))  ! eqn 4.1
+            end do
+            ! eqn 3.5b for p'(i); eqn 4.20 for quadratic f'(i)
+            do i=3,nx-2
+               f(2,i) = s_mid(i) -  &
+                  h(i) * (d(i) + h(i-1)* &
+                     (e_mid(i-1)*(x(i+2)-x(i))  &
+                        + e_mid(i)*(x(i)-x(i-2)))/(x(i+2)-x(i-2)))
+            end do
+            ! finish off ends with average
+            f(2,2) = sign(t(2))* &
+                  min((abs(spL(2)+spR(2)))/2d0, max(3*abs(s(2)), 1.5d0*abs(t(2))))
+            f(2,nx-1) = sign(t(nx-1))* &
+                  min((abs(spL(nx-1)+spR(nx-1)))/2d0,  &
+                  max(3*abs(s(nx-1)), 1.5d0*abs(t(nx-1))))
+            do i=2,nx-1
+               tmp1(i) = f(2,i)
+               tmp2(i) = tmp1(i)
+            end do
+            call median_autodiff(tmp1(2:nx-1), nx-2, tmp2(2:nx-1), spL(2:nx-1), spR(2:nx-1))
+            do i=2,nx-1 
+               f(2,i) = tmp1(i)
+            end do
+            do i=2,nx-1 
+               tmax(i) = sign(t(i))* &
+                  max(3*abs(s(i)), 1.5d0*abs(t(i)))
+            end do
+            do i=2,nx-1 
+               tmp1(i) = f(2,i)
+            end do
+            call minmod_autodiff(tmp2(2:nx-1), nx-2, tmp1(2:nx-1), tmax(2:nx-1))
+            do i=2,nx-1 
+               f(2,i) = tmp2(i)
+            end do
+            
+         else !if (which == super_bee) then
+         
+            do i=2,nx-1 
+               f(2,i) = sign(t(i))* &
+                  min(max(abs(spL(i)), abs(spR(i))),  &
+                     max(3*abs(s(i)), 1.5d0*abs(t(i))))
+            end do
+
+         end if
+         
+         ! slope at i=1
+         !f(2, 1) = minmod1_autodiff(spR(1), 3*s_mid(1)) ! eqn (5.2)
+         f(2,1) = minmod1_autodiff(s_mid(1), s_mid(2)) ! stablize the ends
+
+         ! slope at i=nx
+         !f(2, nx) = minmod1_autodiff(spL(nx), 3*s_mid(nx-1)) ! eqn (5.2)
+         f(2,nx) = minmod1_autodiff(s_mid(nx-2), s_mid(nx-1)) ! stablize the ends
+         
+         if (slope_only) return
+
+         ! 2nd and 3rd derivatives
+         do i=1,nx-1
+            f(3,i) = (3*s_mid(i) - 2*f(2,i) - f(2,i+1)) / h(i)       
+            f(4,i) = (f(2,i) + f(2,i+1) - 2*s_mid(i)) / (h(i)*h(i))
+         end do
+         f(3,nx) = (3*f(1, nx-1) - 3*f(1, nx) + (f(2, nx-1) + 2*f(2, nx)) * h(nx-1)) / (h(nx-1)*h(nx-1))
+         f(4,nx) = (-2*f(1, nx-1) + 2*f(1, nx) - (f(2, nx-1) + f(2, nx))*h(nx-1)) / (h(nx-1)*h(nx-1)*h(nx-1))
+      
+      end subroutine m3_autodiff
+
+      
+      subroutine m3_on_uniform_grid_autodiff(dx, nx, f1, which, slope_only, nwork, work1, str, ierr)  
+         use interp_1d_def
+         use auto_diff
+         use interp_1d_misc
+         use interp_1d_pm_autodiff, only: mk_pmlinear, mk_pmquad
+         ! make piecewise monotonic cubic interpolant
+         type(auto_diff_real_2var_order1), intent(in) :: dx ! the grid spacing
+         integer, intent(in) :: nx       ! length of x vector
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: f1(:) ! =(4, nx)  ! data & interpolation coefficients
+         integer, intent(in) :: which
+         logical, intent(in) :: slope_only
+         integer, intent(in) :: nwork
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: work1(:) ! =(nx, nwork)
+         character (len=*) :: str
+         integer, intent(out) :: ierr
+         
+         type(auto_diff_real_2var_order1), dimension(:), pointer :: s_mid, s, d, d_mid, e_mid, spL, spR, t, tmax,  &
+            tmp, tmp1, tmp2         
+         real(dp), parameter :: tiny = 1d-20
+         type(auto_diff_real_2var_order1) :: x(3)
+         integer :: i
+         type(auto_diff_real_2var_order1), pointer :: f(:,:) ! (4, nx)  ! data & interpolation coefficients
+         f(1:4,1:nx) => f1(1:4*nx)
+
+         ierr = 0
+         
+         if (nx < 2) then
+            return
+         end if
+         
+         if (nx == 2) then
+            x(1) = 0
+            x(2) = dx
+            call mk_pmlinear(x, f1, slope_only, nwork, work1, str, ierr)
+            return
+         end if
+         
+         if (nx == 3) then
+            x(1) = 0
+            x(2) = dx
+            x(3) = 2*dx
+            call mk_pmquad(x, f1, slope_only, nwork, work1, str, ierr)
+            return
+         end if
+
+         if (dx == 0) then
+            ierr = -1
+            return
+         end if
+         
+         if (nwork < mp_work_size) then
+            ierr = -1
+            return
+         end if
+
+         i = 0
+         s_mid(1:nx) => work1(i+1:i+nx); i = i+nx
+         s(1:nx) => work1(i+1:i+nx); i = i+nx
+         d(1:nx) => work1(i+1:i+nx); i = i+nx
+         d_mid(1:nx) => work1(i+1:i+nx); i = i+nx
+         e_mid(1:nx) => work1(i+1:i+nx); i = i+nx
+         spL(1:nx) => work1(i+1:i+nx); i = i+nx
+         spR(1:nx) => work1(i+1:i+nx); i = i+nx
+         t(1:nx) => work1(i+1:i+nx); i = i+nx
+         tmax(1:nx) => work1(i+1:i+nx); i = i+nx
+         tmp(1:nx) => work1(i+1:i+nx); i = i+nx
+         tmp1(1:nx) => work1(i+1:i+nx); i = i+nx
+         tmp2(1:nx) => work1(i+1:i+nx); i = i+nx
+         
+         ! divided differences
+         do i=1,nx-1
+            s_mid(i) = (f(1,i+1) - f(1,i)) / dx ! eqn 2.1    
+         end do
+         do i=2,nx-1 
+            d(i) = (s_mid(i) - s_mid(i-1)) / (2*dx) ! eqn 3.1
+         end do
+         ! need to extend d to full range. simplest way is just to copy from neighbor
+         d(1) = d(2)
+         d(nx) = d(nx-1)
+         
+         ! d_mid eqn(3.4) -- modified according to eqn (2.27) of Suresh & Huynh, 1997
+         do i=1,nx-1
+            tmp1(i) = 4*d(i+1) - d(i)
+            tmp2(i) = 4*d(i) - d(i+1)
+         end do
+         call minmod4_autodiff(d_mid(1:nx-1), nx-1, d(2:nx), d(1:nx-1), tmp1(1:nx-1), tmp2(1:nx-1))
+         
+         ! spL(i) = p'(i-1/2)(xi) = smid(i-1) + h(i-1)*d_mid(i-1) from Theorem 1
+         do i=1,nx-1
+            spL(i+1) = s_mid(i) + dx*d_mid(i)    
+         end do
+         
+         ! spR(i) = p'(i+1/2)(xi) = smid(i) - h(i)*d_mid(i) from Theorem 1
+         do i=1,nx-1
+            spR(i) = s_mid(i) - dx*d_mid(i)        
+         end do
+         
+         call minmod_autodiff(s(2:nx-1), nx-2, s_mid(1:nx-2), s_mid(2:nx-1)) ! eqn (2.8)
+         call minmod_autodiff(t(2:nx-1), nx-2, spL(2:nx-1), spR(2:nx-1))
+         
+         if (which == average) then
+         
+            do i=2,nx-1 
+               f(2,i) = sign(t(i))* &
+                  min((abs(spL(i)+spR(i)))/2d0,  &
+                     max(3*abs(s(i)), 1.5d0*abs(t(i))))
+            end do
+   
+         else if (which == quartic) then
+         
+            do i=2,nx-2 
+               e_mid(i) = (d(i+1) - d(i)) / (3*dx)  ! eqn 4.1
+            end do
+            ! eqn 3.5b for p'(i); eqn 4.20 for quadratic f'(i)
+            do i=3,nx-2
+               f(2,i) = s_mid(i) -  &
+                  dx * (d(i) + dx*(e_mid(i-1)*(2*dx) + e_mid(i)*(2*dx))/(4*dx))
+            end do
+            ! finish off ends with average
+            f(2,2) = sign(t(2))* &
+                  min((abs(spL(2)+spR(2)))/2d0, max(3*abs(s(2)), 1.5d0*abs(t(2))))
+            f(2,nx-1) = sign(t(nx-1))* &
+                  min((abs(spL(nx-1)+spR(nx-1)))/2d0,  &
+                  max(3*abs(s(nx-1)), 1.5d0*abs(t(nx-1))))
+            do i=2,nx-1
+               tmp1(i) = f(2,i)
+               tmp2(i) = tmp1(i)
+            end do
+            call median_autodiff(tmp1(2:nx-1), nx-2, tmp2(2:nx-1), spL(2:nx-1), spR(2:nx-1))
+            do i=2,nx-1 
+               f(2,i) = tmp1(i)
+            end do
+            do i=2,nx-1 
+               tmax(i) = sign(t(i))* &
+                  max(3*abs(s(i)), 1.5d0*abs(t(i)))
+            end do
+            do i=2,nx-1 
+               tmp1(i) = f(2,i)
+            end do
+            call minmod_autodiff(tmp2(2:nx-1), nx-2, tmp1(2:nx-1), tmax(2:nx-1))
+            do i=2,nx-1 
+               f(2,i) = tmp2(i)
+            end do
+            
+         else !if (which == super_bee) then
+         
+            do i=2,nx-1 
+               f(2,i) = sign(t(i))* &
+                  min(max(abs(spL(i)), abs(spR(i))),  &
+                     max(3*abs(s(i)), 1.5d0*abs(t(i))))
+            end do
+
+         end if
+         
+         ! slope at i=1
+         !f(2, 1) = minmod1_autodiff(spR(1), 3*s_mid(1)) ! eqn (5.2)
+         f(2,1) = minmod1_autodiff(s_mid(1), s_mid(2)) ! stablize the ends
+         
+         ! slope at i=nx
+         !f(2, nx) = minmod1_autodiff(spL(nx), 3*s_mid(nx-1)) ! eqn (5.2)
+         f(2, nx) = minmod1_autodiff(s_mid(nx-2), s_mid(nx-1)) ! stablize the ends
+         
+         if (slope_only) return
+         
+         ! 2nd and 3rd derivatives
+         do i=1,nx-1
+            f(3,i) = (3*s_mid(i) - 2*f(2,i) - f(2,i+1)) / dx        
+            f(4,i) = (f(2,i) + f(2,i+1) - 2*s_mid(i)) / (dx*dx)
+         end do
+         f(3, nx) = (3*f(1, nx-1) - 3*f(1, nx) + (f(2, nx-1) + 2*f(2, nx)) * dx) / (dx*dx)
+         f(4, nx) = (-2*f(1, nx-1) + 2*f(1, nx) - (f(2, nx-1) + f(2, nx))*dx) / (dx*dx*dx)
+      
+      end subroutine m3_on_uniform_grid_autodiff
+
+
+      end module interp_1d_mp_autodiff
diff --git a/interp_1d/private/interp_1d_mp_sg.f90 b/interp_1d/private/interp_1d_mp_sg.f90
index 8f16c32cc..faf3afc99 100644
--- a/interp_1d/private/interp_1d_mp_sg.f90
+++ b/interp_1d/private/interp_1d_mp_sg.f90
@@ -51,7 +51,6 @@ subroutine m3_sg(x,nx, f1, which, slope_only, nwork, work1, str, ierr)
                spL, spR, t, tmax, tmp, tmp1, tmp2
          real, parameter :: tiny = 1e-20
          integer :: i
-         character (len=256) :: message
          real, pointer :: f(:,:) ! (4,nx)  ! data & interpolation coefficients
          f(1:4,1:nx) => f1(1:4*nx)
 
diff --git a/interp_1d/private/interp_1d_pm.f90 b/interp_1d/private/interp_1d_pm.f90
index 3beaf2a79..7ce6b0966 100644
--- a/interp_1d/private/interp_1d_pm.f90
+++ b/interp_1d/private/interp_1d_pm.f90
@@ -52,7 +52,6 @@ subroutine mk_pmcub(x, nx, f1, slope_only, nwork, work1, str, ierr)
 
          real(dp), dimension(:), pointer :: h, s, p
          integer :: i
-         character (len=256) :: message
          logical, parameter :: dbg = .true.
          real(dp), pointer :: f(:,:) ! (4, nx)  ! data & interpolation coefficients
          f(1:4,1:nx) => f1(1:4*nx)
@@ -166,7 +165,6 @@ subroutine mk_pmcub4(x, f1, slope_only, nwork, work1, str, ierr)
 
          real(dp), dimension(:), pointer :: h, s, p
          integer :: i
-         character (len=256) :: message
          real(dp), pointer :: f(:,:) ! (4, nx)  ! data & interpolation coefficients
          f(1:4,1:nx) => f1(1:4*nx)
          
@@ -254,7 +252,6 @@ subroutine mk_pmquad(x, f1, slope_only, nwork, work1, str, ierr)
 
          real(dp), dimension(:), pointer :: h, s, p
          integer :: i
-         character (len=256) :: message
          real(dp), pointer :: f(:,:) ! (4, nx)  ! data & interpolation coefficients
          f(1:4,1:nx) => f1(1:4*nx)
          
@@ -339,7 +336,6 @@ subroutine mk_pmlinear(x, f1, slope_only, nwork, work1, str, ierr)
          integer, intent(out) :: ierr
 
          real(dp) :: h, s
-         character (len=256) :: message
          real(dp), pointer :: f(:,:) ! (4, nx)  ! data & interpolation coefficients
          f(1:4,1:nx) => f1(1:4*nx)
          
diff --git a/interp_1d/private/interp_1d_pm_autodiff.f90 b/interp_1d/private/interp_1d_pm_autodiff.f90
new file mode 100644
index 000000000..6e8255e03
--- /dev/null
+++ b/interp_1d/private/interp_1d_pm_autodiff.f90
@@ -0,0 +1,474 @@
+! ***********************************************************************
+!
+!   Copyright (C) 2010  The MESA Team
+!
+!   MESA is free software; you can use it and/or modify
+!   it under the combined terms and restrictions of the MESA MANIFESTO
+!   and the GNU General Library Public License as published
+!   by the Free Software Foundation; either version 2 of the License,
+!   or (at your option) any later version.
+!
+!   You should have received a copy of the MESA MANIFESTO along with
+!   this software; if not, it is available at the mesa website:
+!   http://mesa.sourceforge.net/
+!
+!   MESA is distributed in the hope that it will be useful,
+!   but WITHOUT ANY WARRANTY; without even the implied warranty of
+!   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+!   See the GNU Library General Public License for more details.
+!
+!   You should have received a copy of the GNU Library General Public License
+!   along with this software; if not, write to the Free Software
+!   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+!
+! ***********************************************************************
+
+      module interp_1d_pm_autodiff ! piecewise monotonic algorithms
+      
+      use const_lib, only: dp
+      use auto_diff
+      
+      implicit none
+      
+      contains
+
+      ! the following produce piecewise monotonic interpolants 
+      ! rather than monotonicity preserving
+      ! this stricter limit never introduces interpolated values exceeding the given values, 
+      ! even in places where the given values are not monotonic.
+      ! the downside is reduced accuracy on smooth data compared to the mp routines.
+      
+      
+      subroutine mk_pmcub_autodiff(x, nx, f1, slope_only, nwork, work1, str, ierr)
+         ! make piecewise monotonic cubic interpolant
+         use interp_1d_def
+         use auto_diff
+         integer, intent(in) :: nx       ! length of x vector (nx >= 2)
+         type(auto_diff_real_2var_order1), intent(in)    :: x(:) ! (nx)    ! junction points, strictly monotonic
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: f1(:) ! =(4, nx)  ! data & interpolation coefficients
+         logical, intent(in) :: slope_only
+         integer, intent(in) :: nwork ! nwork must be >= pm_work_size (see interp_1d_def)
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: work1(:) ! =(nx, nwork)
+         character (len=*) :: str
+         integer, intent(out) :: ierr
+
+         type(auto_diff_real_2var_order1), dimension(:), pointer :: h, s, p
+         integer :: i
+         logical, parameter :: dbg = .true.
+         type(auto_diff_real_2var_order1), pointer :: f(:,:) ! (4, nx)  ! data & interpolation coefficients
+         f(1:4,1:nx) => f1(1:4*nx)
+         
+         include 'formats'
+         
+         ierr = 0
+         
+         if (nx < 2) then
+            return
+         end if
+         
+         if (nx == 2) then
+            call mk_pmlinear(x, f1, slope_only, nwork, work1, str, ierr)
+            return
+         end if
+         
+         if (nx == 3) then
+            call mk_pmquad(x, f1, slope_only, nwork, work1, str, ierr)
+            return
+         end if
+         
+         if (nx == 4) then
+            call mk_pmcub4(x, f1, slope_only, nwork, work1, str, ierr)
+            return
+         end if
+         
+         if (nwork < pm_work_size) then
+            ierr = -1
+            return
+         end if
+         
+         h(1:nx) => work1(1:nx)
+         s(1:nx) => work1(1+nx:2*nx)
+         p(1:nx) => work1(1+2*nx:3*nx)
+         
+         !if (dbg) then
+         !   h(:) = 0; s(:) = 0; p(:) = 0
+         !end if
+         
+         do i=1,nx-1
+            h(i) = x(i+1) - x(i) ! width of interval
+         end do
+         do i = 1, nx-1
+            if (h(i) == 0) then
+               write(*, '(a,1x,2i5,1x,a)')  &
+                  'same interpolation x values at', i, i+1, 'for ' // trim(str)
+               ierr = -1
+               return
+            end if
+         end do
+         
+         do i=1,nx-1
+            s(i) = (f(1,i+1) - f(1,i)) / h(i) ! slope across interval
+         end do
+         
+         do i=2,nx-1 
+            p(i) = (s(i-1)*h(i) + s(i)*h(i-1))/(h(i-1)+h(i)) 
+            ! slope at i of parabola through i-1, i, and i+1
+         end do
+         do i=2,nx-1 
+            f(2,i) = (sign(s(i-1))+sign(s(i)))* &
+                        min(min(abs(s(i-1)), abs(s(i))), 0.5d0*abs(p(i)))
+            ! "safe" slope at i to ensure monotonic -- see Steffen's paper for explanation.
+         end do
+         
+         p(1) = s(1)*(1 + h(1) / (h(1) + h(2))) - s(2) * h(1) / (h(1) + h(2)) 
+            ! slope at 1 of parabola through 1st 3 points
+         if (p(1)*s(1) <= 0) then
+            f(2, 1) = 0d0
+         else if (abs(p(1)) > 2*abs(s(1))) then
+            f(2, 1) = 2*s(1)
+         else
+            f(2, 1) = p(1)
+         end if
+            
+         p(nx) = s(nx-1)*(1 + h(nx-1) / (h(nx-1) + h(nx-2)))  &
+                     - s(nx-2)*h(nx-1) / (h(nx-1) + h(nx-2)) 
+            ! slope at nx of parabola through last 3 points
+         if (p(nx)*s(nx-1) <= 0) then
+            f(2,nx) = 0
+         else if (abs(p(nx)) > 2*abs(s(nx-1))) then
+            f(2,nx) = 2*s(nx-1)
+         else
+            f(2,nx) = p(nx)
+         end if
+         
+         if (slope_only) return
+
+         do i=1,nx-1
+            f(3,i) = (3*s(i) - 2*f(2,i) - f(2,i+1)) / h(i)
+            f(4,i) = (f(2,i) + f(2,i+1) - 2*s(i)) / (h(i)*h(i))
+         end do
+         f(3,nx) = 0d0
+         f(4,nx) = 0d0
+               
+       end subroutine mk_pmcub_autodiff
+
+      
+      ! optimize special case for nx = 4
+      subroutine mk_pmcub4(x, f1, slope_only, nwork, work1, str, ierr)
+         use interp_1d_def
+         use auto_diff
+         integer, parameter :: nx = 4   ! length of x vector (nx >= 2)
+         type(auto_diff_real_2var_order1), intent(in)    :: x(:) ! (nx)    ! junction points, strictly monotonic
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: f1(:) ! =(4, nx)  ! data & interpolation coefficients
+         logical, intent(in) :: slope_only
+         integer, intent(in) :: nwork ! nwork must be >= pm_work_size (see interp_1d_def)
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: work1(:) ! =(nx, nwork)
+         character (len=*) :: str
+         integer, intent(out) :: ierr
+
+         type(auto_diff_real_2var_order1), dimension(:), pointer :: h, s, p
+         integer :: i
+         type(auto_diff_real_2var_order1), pointer :: f(:,:) ! (4, nx)  ! data & interpolation coefficients
+         f(1:4,1:nx) => f1(1:4*nx)
+         
+         ierr = 0
+         
+         if (nwork < pm_work_size) then
+            ierr = -1
+            return
+         end if
+         
+         h(1:nx) => work1(1:nx)
+         s(1:nx) => work1(1+nx:2*nx)
+         p(1:nx) => work1(1+2*nx:3*nx)
+         
+         do i=1,nx-1
+            h(i) = x(i+1) - x(i) ! width of interval
+         end do
+         do i = 1, nx-1
+            if (h(i) == 0) then
+               write(*, '(a,1x,2i5,1x,a)')  &
+                  'same interpolation x values at', i, i+1, 'for ' // trim(str)
+               ierr = -1
+               return
+            end if
+         end do
+         
+         do i=1,nx-1
+            s(i) = (f(1,i+1) - f(1,i)) / h(i) ! slope across interval
+         end do
+         do i=2,nx-1 
+            p(i) = (s(i-1)*h(i) + s(i)*h(i-1))/(h(i-1)+h(i)) 
+            ! slope at i of parabola through i-1, i, and i+1
+         end do
+         do i=2,nx-1 
+            f(2,i) = (sign(s(i-1))+sign(s(i)))* &
+                        min(min(abs(s(i-1)), abs(s(i))), 0.5d0*abs(p(i)))
+            ! "safe" slope at i to ensure monotonic -- see Steffen's paper for explanation.
+         end do
+
+         p(1) = s(1)*(1 + h(1) / (h(1) + h(2))) - s(2) * h(1) / (h(1) + h(2)) 
+            ! slope at 1 of parabola through 1st 3 points
+         if (p(1)*s(1) <= 0) then
+            f(2, 1) = 0
+         else if (abs(p(1)) > 2*abs(s(1))) then
+            f(2, 1) = 2*s(1)
+         else
+            f(2, 1) = p(1)
+         end if
+            
+         p(nx) = s(nx-1)*(1 + h(nx-1) / (h(nx-1) + h(nx-2)))  &
+                     - s(nx-2)*h(nx-1) / (h(nx-1) + h(nx-2)) 
+            ! slope at nx of parabola through last 3 points
+         if (p(nx)*s(nx-1) <= 0) then
+            f(2, nx) = 0
+         else if (abs(p(nx)) > 2*abs(s(nx-1))) then
+            f(2, nx) = 2*s(nx-1)
+         else
+            f(2, nx) = p(nx)
+         end if
+         
+         if (slope_only) return
+
+         do i=1,nx-1
+            f(3,i) = (3*s(i) - 2*f(2,i) - f(2,i+1)) / h(i)
+            f(4,i) = (f(2,i) + f(2,i+1) - 2*s(i)) / (h(i)*h(i))
+         end do
+         f(3,nx) = 0d0
+         f(4,nx) = 0d0
+      
+      end subroutine mk_pmcub4
+      
+      
+      ! optimize special case for nx = 3
+      subroutine mk_pmquad(x, f1, slope_only, nwork, work1, str, ierr) 
+         ! make piecewise monotonic quadratic interpolant
+         use interp_1d_def
+         use auto_diff
+         integer, parameter :: nx = 3
+         type(auto_diff_real_2var_order1), intent(in)    :: x(:) ! (nx)    ! junction points, strictly monotonic
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: f1(:) ! =(4, nx)  ! data & interpolation coefficients
+         logical, intent(in) :: slope_only
+         integer, intent(in) :: nwork ! nwork must be >= pm_work_size (see interp_1d_def)
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: work1(:) ! =(nx, nwork)
+         character (len=*) :: str
+         integer, intent(out) :: ierr
+
+         type(auto_diff_real_2var_order1), dimension(:), pointer :: h, s, p
+         integer :: i
+         type(auto_diff_real_2var_order1), pointer :: f(:,:) ! (4, nx)  ! data & interpolation coefficients
+         f(1:4,1:nx) => f1(1:4*nx)
+         
+         if (nwork < pm_work_size) then
+            ierr = -1
+            return
+         end if
+         ierr = 0
+         
+         h(1:nx) => work1(1:nx)
+         s(1:nx) => work1(1+nx:2*nx)
+         p(1:nx) => work1(1+2*nx:3*nx)
+         
+         do i=1,nx-1
+            h(i) = x(i+1) - x(i) ! width of interval
+         end do
+         do i = 1, nx-1
+            if (h(i) == 0) then
+               write(*, '(a,1x,2i5,1x,a)')  &
+                  'same interpolation x values at', i, i+1, 'for ' // trim(str)
+               ierr = -1
+               return
+            end if
+         end do
+         
+         do i=1,nx-1
+            s(i) = (f(1,i+1) - f(1,i)) / h(i) ! slope across interval
+         end do
+         do i=2,nx-1 
+            p(i) = (s(i-1)*h(i) + s(i)*h(i-1))/(h(i-1)+h(i)) 
+            ! slope at i of parabola through i-1, i, and i+1
+         end do
+         do i=2,nx-1 
+            f(2,i) = (sign(s(i-1))+sign(s(i)))* &
+                        min(min(abs(s(i-1)), abs(s(i))), 0.5d0*abs(p(i)))
+            ! "safe" slope at i to ensure monotonic -- see Steffen's paper for explanation.
+         end do
+
+         p(1) = s(1)*(1 + h(1) / (h(1) + h(2))) - s(2) * h(1) / (h(1) + h(2)) 
+            ! slope at 1 of parabola through 1st 3 points
+         if (p(1)*s(1) <= 0) then
+            f(2, 1) = 0
+         else if (abs(p(1)) > 2*abs(s(1))) then
+            f(2, 1) = 2*s(1)
+         else
+            f(2, 1) = p(1)
+         end if
+            
+         p(nx) = s(nx-1)*(1 + h(nx-1) / (h(nx-1) + h(nx-2)))  &
+                     - s(nx-2)*h(nx-1) / (h(nx-1) + h(nx-2)) 
+            ! slope at nx of parabola through last 3 points
+         if (p(nx)*s(nx-1) <= 0) then
+            f(2, nx) = 0
+         else if (abs(p(nx)) > 2*abs(s(nx-1))) then
+            f(2, nx) = 2*s(nx-1)
+         else
+            f(2, nx) = p(nx)
+         end if
+         
+         if (slope_only) return
+         
+         do i=1,nx-1
+            f(3,i) = (3*s(i) - 2*f(2,i) - f(2,i+1)) / h(i)
+            f(4,i) = (f(2,i) + f(2,i+1) - 2*s(i)) / (h(i)*h(i))
+         end do
+         f(3,nx) = 0         
+         f(4,nx) = 0
+      
+      end subroutine mk_pmquad
+      
+      
+      ! optimize special case for nx = 2
+      subroutine mk_pmlinear(x, f1, slope_only, nwork, work1, str, ierr)
+         use interp_1d_def
+         use auto_diff
+         integer, parameter :: nx = 2
+         type(auto_diff_real_2var_order1), intent(in)    :: x(:) ! (nx)    ! junction points, strictly monotonic
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: f1(:) ! =(4, nx)  ! data & interpolation coefficients
+         logical, intent(in) :: slope_only
+         integer, intent(in) :: nwork ! nwork must be >= pm_work_size (see interp_1d_def)
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: work1(:) ! =(nx, nwork)
+         character (len=*) :: str ! for debugging
+         integer, intent(out) :: ierr
+
+         type(auto_diff_real_2var_order1) :: h, s
+         type(auto_diff_real_2var_order1), pointer :: f(:,:) ! (4, nx)  ! data & interpolation coefficients
+         f(1:4,1:nx) => f1(1:4*nx)
+         
+         ierr = 0
+         
+         if (nwork < pm_work_size) then
+            ierr = -1
+            return
+         end if
+         
+         h = x(2) - x(1) ! width of interval
+         if (h == 0) then
+            ierr = -1
+            write(*, '(a,1x,2i5,1x,a)')  &
+                  'same interpolation x values at', 1, 2, 'for ' // trim(str)
+            return
+         end if
+         
+         s = (f(1, 2) - f(1, 1)) / h ! slope across interval
+         f(2, 1) = s
+         f(2, 2) = 0
+         
+         if (slope_only) return
+
+         f(3,1) = 0d0
+         f(3,2) = 0d0
+         f(4,1) = 0d0
+         f(4,2) = 0d0
+      
+      end subroutine mk_pmlinear
+      
+      
+      subroutine mk_pmcub_uniform(dx, n, f1, slope_only, nwork, work1, str, ierr) 
+         ! make piecewise monotonic cubic interpolant on unit spaced mesh
+         use interp_1d_def
+         use auto_diff
+         integer, intent(in) :: n     ! length of vector
+         type(auto_diff_real_2var_order1), intent(in) :: dx
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: f1(:) ! =(4,n)  ! data & interpolation coefficients
+         logical, intent(in) :: slope_only
+         integer, intent(in) :: nwork ! nwork must be >= pm_work_size (see interp_1d_def)
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: work1(:) ! =(nx, nwork)
+         character (len=*) :: str ! for debugging
+         integer, intent(out) :: ierr
+
+         type(auto_diff_real_2var_order1), dimension(:), pointer :: s, p
+         type(auto_diff_real_2var_order1) :: x(2)
+         integer :: i
+         type(auto_diff_real_2var_order1), pointer :: f(:,:) ! (4, n)  ! data & interpolation coefficients
+         f(1:4,1:n) => f1(1:4*n)
+         
+         ierr = 0
+         
+         if (n < 2) then
+            return
+         end if
+         
+         if (n == 2) then
+            x(1) = 0
+            x(2) = dx
+            call mk_pmlinear(x, f1, slope_only, nwork, work1, str, ierr)
+            return
+         end if
+
+         if (dx == 0) then
+            ierr = -1
+            return
+         end if
+         
+         if (nwork < pm_work_size) then
+            ierr = -1
+            return
+         end if
+         ierr = 0
+         
+         s(1:n) => work1(1:n)
+         p(1:n) => work1(1+n:2*n)
+
+         ierr = 0
+         
+         do i=1,n-1 
+            s(i) = f(1,i+1) - f(1,i) ! slope across interval
+         end do
+         do i=2,n-1 
+            p(i) = 0.5d0*(s(i-1) + s(i)) 
+            ! slope at i of parabola through i-1, i, and i+1
+         end do
+         do i=2,n-1 
+            f(2,i) = (sign(s(i-1))+sign(s(i)))* &
+               min(min(abs(s(i-1)), abs(s(i))), 0.5d0*abs(p(i)))
+            ! "safe" slope at i to ensure monotonic -- see Steffen's paper for explanation.
+         end do
+         
+         p(1) = 1.5d0 * s(1) - 0.5d0 * s(2)
+            ! slope at 1 of parabola through 1st 3 points
+         if (p(1)*s(1) <= 0) then
+            f(2, 1) = 0
+         else if (abs(p(1)) > 2*abs(s(1))) then
+            f(2, 1) = 2*s(1)
+         else
+            f(2, 1) = p(1)
+         end if
+            
+         p(n) = 1.5d0 * s(n-1) - 0.5d0 * s(n-2)
+            ! slope at n of parabola through last 3 points
+         if (p(n)*s(n-1) <= 0) then
+            f(2, n) = 0
+         else if (abs(p(n)) > 2*abs(s(n-1))) then
+            f(2, n) = 2*s(n-1)
+         else
+            f(2, n) = p(n)
+         end if
+
+         do i = 1,n
+            f(2,i) = f(2,i) / dx
+         end do
+         
+         if (slope_only) return
+         
+         ! 2nd and 3rd derivatives
+         do i=1,n-1
+            f(3,i) = (3*s(i) - 2*f(2,i) - f(2,i+1)) / dx       
+            f(4,i) = (f(2,i) + f(2,i+1) - 2*s(i)) / (dx*dx)
+         end do
+         f(3,n) = (3*f(1, n-1) - 3*f(1, n) + (f(2, n-1) + 2*f(2, n)) * dx) / (dx*dx*dx)
+         f(4,n) = (-2*f(1, n-1) + 2*f(1, n) - (f(2, n-1) + f(2, n))*dx) / (dx*dx*dx)
+      
+      end subroutine mk_pmcub_uniform
+
+
+    end module interp_1d_pm_autodiff
diff --git a/interp_1d/private/interp_1d_pm_sg.f90 b/interp_1d/private/interp_1d_pm_sg.f90
index 91343398d..f1c89631b 100644
--- a/interp_1d/private/interp_1d_pm_sg.f90
+++ b/interp_1d/private/interp_1d_pm_sg.f90
@@ -50,7 +50,6 @@ subroutine mk_pmcub_sg(x, nx, f1, slope_only, nwork, work1, str, ierr)
 
          real, dimension(:), pointer :: h, s, p
          integer :: i
-         character (len=256) :: message
          logical, parameter :: dbg = .true.
          real, pointer :: f(:,:) ! (4, nx)  ! data & interpolation coefficients
          f(1:4,1:nx) => f1(1:4*nx)
@@ -163,7 +162,6 @@ subroutine mk_pmcub4_sg(x, f1, slope_only, nwork, work1, str, ierr)
 
          real, dimension(:), pointer :: h, s, p
          integer :: i
-         character (len=256) :: message
          real, pointer :: f(:,:) ! (4, nx)  ! data & interpolation coefficients
          f(1:4,1:nx) => f1(1:4*nx)
          
@@ -251,7 +249,6 @@ subroutine mk_pmquad_sg(x, f1, slope_only, nwork, work1, str, ierr)
 
          real, dimension(:), pointer :: h, s, p
          integer :: i
-         character (len=256) :: message
          real, pointer :: f(:,:) ! (4, nx)  ! data & interpolation coefficients
          f(1:4,1:nx) => f1(1:4*nx)
          
@@ -334,7 +331,6 @@ subroutine mk_pmlinear_sg(x, f1, slope_only, nwork, work1, str, ierr)
          integer, intent(out) :: ierr
 
          real :: h, s
-         character (len=256) :: message
          real, pointer :: f(:,:) ! (4, nx)  ! data & interpolation coefficients
          f(1:4,1:nx) => f1(1:4*nx)
          
diff --git a/interp_1d/public/interp_1d_lib.f90 b/interp_1d/public/interp_1d_lib.f90
index 969e7260d..9ecb3a8b4 100644
--- a/interp_1d/public/interp_1d_lib.f90
+++ b/interp_1d/public/interp_1d_lib.f90
@@ -25,7 +25,8 @@
 
       module interp_1d_lib
       use const_lib, only: dp
-
+      use auto_diff
+      
       implicit none
       
       contains
@@ -72,7 +73,50 @@ end subroutine interp_vec
          call interp_values(x_old, n_old, f1, n_new, x_new, v_new, ierr)
          deallocate(f1)
       end subroutine interpolate_vector
-            
+
+      ! autodiff version of above
+      subroutine interpolate_vector_autodiff( &
+               n_old, x_old, n_new, x_new, v_old, v_new, interp_vec_autodiff, nwork, work1, str, ierr)
+         integer, intent(in) :: n_old, n_new
+         type(auto_diff_real_2var_order1), intent(in) :: x_old(:) !(n_old)
+         type(auto_diff_real_2var_order1), intent(in) :: v_old(:) !(n_old)
+         type(auto_diff_real_2var_order1), intent(in) :: x_new(:) !(n_new)
+         type(auto_diff_real_2var_order1), intent(inout) :: v_new(:) ! (n_new)
+         interface
+            subroutine interp_vec_autodiff(x, nx, f1, nwork, work1, str, ierr) ! make cubic interpolant
+               ! e.g., interp_pm, interp_m3a, interp_m3b, or interp_m3q
+               use const_lib, only: dp
+               use auto_diff
+               integer, intent(in) :: nx       ! length of x vector
+               type(auto_diff_real_2var_order1), intent(in) :: x(:) ! (nx)    ! junction points, strictly monotonic
+               type(auto_diff_real_2var_order1), intent(inout), pointer :: f1(:) ! =(4,nx)  ! data & interpolation coefficients
+               integer, intent(in) :: nwork
+               type(auto_diff_real_2var_order1), intent(inout), pointer :: work1(:) ! =(n_old, nwork)
+               character (len=*) :: str ! for debugging
+               integer, intent(out) :: ierr
+             end subroutine interp_vec_autodiff
+         end interface
+         integer, intent(in) :: nwork
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: work1(:) ! =(n_old, nwork)
+         character (len=*) :: str ! for debugging
+         integer, intent(out) :: ierr
+         type(auto_diff_real_2var_order1), pointer :: f1(:), f(:,:)
+         integer :: k
+         ierr = 0
+         allocate(f1(4*n_old), stat=ierr)
+         if (ierr /= 0) return
+         f(1:4,1:n_old) => f1(1:4*n_old)
+         do k=1,n_old
+            f(1,k) = v_old(k)
+         end do
+         call interp_vec_autodiff(x_old, n_old, f1, nwork, work1, str, ierr) ! make interpolant
+         if (ierr /= 0) then
+            deallocate(f1)
+            return
+         end if
+         call interp_values_autodiff(x_old, n_old, f1, n_new, x_new, v_new, ierr)
+         deallocate(f1)
+      end subroutine interpolate_vector_autodiff
       
       ! this routine is a simply wrapper for making an interpolant with interp_pm and then using it.
       subroutine interpolate_vector_pm( &
@@ -216,7 +260,22 @@ subroutine interp_values(init_x, nx, f1, nv, x, vals, ierr)
          integer, intent(out) :: ierr ! 0 means AOK
          call do_interp_values(init_x, nx, f1, nv, x, vals, ierr)
       end subroutine interp_values
-      
+
+      subroutine interp_values_autodiff(init_x, nx, f1, nv, x, vals, ierr)
+         use interp_1d_def
+         use interp_1d_misc
+         type(auto_diff_real_2var_order1), intent(in) :: init_x(:) ! (nx) ! junction points, strictly monotonic
+         integer, intent(in) :: nx ! length of init_x vector
+         type(auto_diff_real_2var_order1), intent(in), pointer :: f1(:) ! =(4,nx)  ! data & interpolation coefficients
+         integer, intent(in) :: nv ! length of new x vector and vals vector
+         type(auto_diff_real_2var_order1), intent(in) :: x(:) ! (nv)  ! locations where want interpolated values
+            ! strictly monotonic in same way as init_x
+            ! values out of range of init_x's are clipped to boundaries of init_x's
+         type(auto_diff_real_2var_order1), intent(inout) :: vals(:) ! (nv)
+         integer, intent(out) :: ierr ! 0 means AOK
+         call do_interp_values_autodiff(init_x, nx, f1, nv, x, vals, ierr)
+      end subroutine interp_values_autodiff
+
       
       subroutine interp_value(init_x, nx, f1, xval, val, ierr)
          use interp_1d_def
@@ -461,7 +520,19 @@ subroutine interp_pm(x, nx, f1, nwork, work1, str, ierr) ! make piecewise monoto
          integer, intent(out) :: ierr   
          call mk_pmcub(x, nx, f1, .false., nwork, work1, str, ierr)         
       end subroutine interp_pm
-      
+
+      subroutine interp_pm_autodiff(x, nx, f1, nwork, work1, str, ierr) ! make piecewise monotonic cubic interpolant
+         use interp_1d_def
+         use interp_1d_pm_autodiff
+         integer, intent(in) :: nx       ! length of x vector (>= 2)
+         type(auto_diff_real_2var_order1), intent(in) :: x(:) ! (nx)    ! junction points, strictly monotonic
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: f1(:) ! =(4,nx)  ! data & interpolation coefficients
+         integer, intent(in) :: nwork ! nwork must be >= pm_work_size (see interp_1d_def)
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: work1(:) ! =(nx, nwork)
+         character (len=*) :: str ! for debugging
+         integer, intent(out) :: ierr   
+         call mk_pmcub_autodiff(x, nx, f1, .false., nwork, work1, str, ierr)         
+      end subroutine interp_pm_autodiff
       
       subroutine interp_pm_slopes_only(x, nx, f1, nwork, work1, str, ierr)
          ! identical to interp_pm, but only calculates slopes and stores them in f(2,:)
@@ -650,6 +721,128 @@ subroutine interp_m3q_on_uniform_grid(dx, nx, f1, nwork, work1, str, ierr)
          call m3_on_uniform_grid(dx, nx, f1, quartic, .false., nwork, work1, str, ierr)        
       end subroutine interp_m3q_on_uniform_grid
 
+      
+      subroutine interp_m3_autodiff(x, nx, f1, which, nwork, work1, str, ierr) 
+         ! make monotonicity preserving cubic interpolant on arbitrarily spaced grid
+         use interp_1d_def
+         use interp_1d_mp_autodiff
+         integer, intent(in) :: nx       ! length of x vector (>= 4)
+         type(auto_diff_real_2var_order1), intent(in)    :: x(:) ! (nx)    ! junction points, strictly monotonic
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: f1(:) ! =(4,nx)  ! data & interpolation coefficients
+         integer, intent(in) :: which ! average, quartic, or super_bee
+         integer, intent(in) :: nwork ! nwork must be >= mp_work_size (see interp_1d_def)
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: work1(:) ! =(nx, nwork)
+         character (len=*) :: str ! for debugging
+         integer, intent(out) :: ierr
+         call m3_autodiff(x, nx, f1, which, .false., nwork, work1, str, ierr)      
+      end subroutine interp_m3_autodiff
+
+
+      subroutine interp_m3a_autodiff(x, nx, f1, nwork, work1, str, ierr) 
+         ! make monotonicity preserving cubic interpolant on arbitrarily spaced grid
+         use interp_1d_def
+         use interp_1d_mp_autodiff
+         integer, intent(in) :: nx       ! length of x vector (>= 4)
+         type(auto_diff_real_2var_order1), intent(in)    :: x(:) ! (nx)    ! junction points, strictly monotonic
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: f1(:) ! =(4,nx)  ! data & interpolation coefficients
+         integer, intent(in) :: nwork ! nwork must be >= mp_work_size (see interp_1d_def)
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: work1(:) ! =(nx, nwork)
+         character (len=*) :: str ! for debugging
+         integer, intent(out) :: ierr
+         call m3_autodiff(x, nx, f1, average, .false., nwork, work1, str, ierr)      
+      end subroutine interp_m3a_autodiff
+
+
+      subroutine interp_m3q_autodiff(x, nx, f1, nwork, work1, str, ierr) 
+         ! make monotonicity preserving cubic interpolant on arbitrarily spaced grid
+         use interp_1d_def
+         use interp_1d_mp_autodiff
+         integer, intent(in) :: nx       ! length of x vector (>= 4)
+         type(auto_diff_real_2var_order1), intent(in)    :: x(:) ! (nx)    ! junction points, strictly monotonic
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: f1(:) ! =(4,nx)  ! data & interpolation coefficients
+         integer, intent(in) :: nwork ! nwork must be >= mp_work_size (see interp_1d_def)
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: work1(:) ! =(nx, nwork)
+         character (len=*) :: str ! for debugging
+         integer, intent(out) :: ierr
+         call m3_autodiff(x, nx, f1, quartic, .false., nwork, work1, str, ierr)      
+      end subroutine interp_m3q_autodiff
+
+
+      subroutine interp_m3b_autodiff(x, nx, f1, nwork, work1, str, ierr) 
+         ! make monotonicity preserving cubic interpolant on arbitrarily spaced grid
+         use interp_1d_def
+         use interp_1d_mp_autodiff
+         integer, intent(in) :: nx       ! length of x vector (>= 4)
+         type(auto_diff_real_2var_order1), intent(in)    :: x(:) ! (nx)    ! junction points, strictly monotonic
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: f1(:) ! =(4,nx)  ! data & interpolation coefficients
+         integer, intent(in) :: nwork ! nwork must be >= mp_work_size (see interp_1d_def)
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: work1(:) ! =(nx, nwork)
+         character (len=*) :: str ! for debugging
+         integer, intent(out) :: ierr
+         call m3_autodiff(x, nx, f1, super_bee, .false., nwork, work1, str, ierr)     
+      end subroutine interp_m3b_autodiff
+            
+      
+      subroutine interp_m3_on_uniform_grid_autodiff(dx, nx, f1, which, nwork, work1, str, ierr)
+         ! make monotonicity preserving cubic interpolant on uniformly spaced grid
+         use interp_1d_def
+         use interp_1d_mp_autodiff
+         type(auto_diff_real_2var_order1), intent(in) :: dx ! the grid spacing
+         integer, intent(in) :: nx ! length of x vector (>= 4)
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: f1(:) ! =(4,nx)  ! data & interpolation coefficients
+         integer, intent(in) :: which ! average, quartic, or super_bee
+         integer, intent(in) :: nwork ! nwork must be >= mp_work_size (see interp_1d_def)
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: work1(:) ! =(nx, nwork)
+         character (len=*) :: str ! for debugging
+         integer, intent(out) :: ierr
+         call m3_on_uniform_grid_autodiff(dx, nx, f1, which, .false., nwork, work1, str, ierr)         
+      end subroutine interp_m3_on_uniform_grid_autodiff
+            
+      
+      subroutine interp_m3a_on_uniform_grid_autodiff(dx, nx, f1, nwork, work1, str, ierr)
+         ! make monotonicity preserving cubic interpolant on uniformly spaced grid
+         use interp_1d_def
+         use interp_1d_mp_autodiff
+         type(auto_diff_real_2var_order1), intent(in) :: dx ! the grid spacing
+         integer, intent(in) :: nx ! length of x vector (>= 4)
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: f1(:) ! =(4,nx)  ! data & interpolation coefficients
+         integer, intent(in) :: nwork ! nwork must be >= mp_work_size (see interp_1d_def)
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: work1(:) ! =(nx, nwork)
+         character (len=*) :: str ! for debugging
+         integer, intent(out) :: ierr
+         call m3_on_uniform_grid_autodiff(dx, nx, f1, average, .false., nwork, work1, str, ierr)         
+      end subroutine interp_m3a_on_uniform_grid_autodiff
+            
+      
+      subroutine interp_m3b_on_uniform_grid_autodiff(dx, nx, f1, nwork, work1, str, ierr)
+         ! make monotonicity preserving cubic interpolant on uniformly spaced grid
+         use interp_1d_def
+         use interp_1d_mp_autodiff
+         type(auto_diff_real_2var_order1), intent(in) :: dx ! the grid spacing
+         integer, intent(in) :: nx ! length of x vector (>= 4)
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: f1(:) ! =(4,nx)  ! data & interpolation coefficients
+         integer, intent(in) :: nwork ! nwork must be >= mp_work_size (see interp_1d_def)
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: work1(:) ! =(nx, nwork)
+         character (len=*) :: str ! for debugging
+         integer, intent(out) :: ierr
+         call m3_on_uniform_grid_autodiff(dx, nx, f1, super_bee, .false., nwork, work1, str, ierr)         
+      end subroutine interp_m3b_on_uniform_grid_autodiff
+            
+      
+      subroutine interp_m3q_on_uniform_grid_autodiff(dx, nx, f1, nwork, work1, str, ierr)
+         ! make monotonicity preserving cubic interpolant on uniformly spaced grid
+         use interp_1d_def
+         use interp_1d_mp_autodiff
+         type(auto_diff_real_2var_order1), intent(in) :: dx ! the grid spacing
+         integer, intent(in) :: nx ! length of x vector (>= 4)
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: f1(:) ! =(4,nx)  ! data & interpolation coefficients
+         integer, intent(in) :: nwork ! nwork must be >= mp_work_size (see interp_1d_def)
+         type(auto_diff_real_2var_order1), intent(inout), pointer :: work1(:) ! =(nx, nwork)
+         character (len=*) :: str ! for debugging
+         integer, intent(out) :: ierr
+         call m3_on_uniform_grid_autodiff(dx, nx, f1, quartic, .false., nwork, work1, str, ierr)        
+      end subroutine interp_m3q_on_uniform_grid_autodiff
+
 
 
       ! simple Lagrange polynomial weights
diff --git a/interp_1d/test/make/makefile_base b/interp_1d/test/make/makefile_base
index 751fc8de2..c1a84cb77 100644
--- a/interp_1d/test/make/makefile_base
+++ b/interp_1d/test/make/makefile_base
@@ -22,9 +22,9 @@ LIBS_LOCAL = interp_1d
 DEPS_LOCAL = $(patsubst %,$(LOCAL_LIB_DIR)/lib%.$(LIB_SUFFIX),$(LIBS_LOCAL))
 LOAD_LOCAL = -L$(LOCAL_LIB_DIR) $(addprefix -l,$(LIBS_LOCAL))
 
-LIBS_OTHER = $(LIBS_MATRIX)
+LIBS_OTHER = auto_diff $(LIBS_MATRIX)
 DEPS_OTHER = $(patsubst %,$(MESA_LIB_DIR)/lib%.$(LIB_SUFFIX),$(LIBS_OTHER))
-LOAD_OTHER = -L$(MESA_LIB_DIR) $(LOAD_MATRIX)
+LOAD_OTHER = -L$(MESA_LIB_DIR) -lauto_diff $(LOAD_MATRIX)
 
 #################################################################
 #
diff --git a/interp_1d/test/src/interp_1d_support.f b/interp_1d/test/src/interp_1d_support.f
index eb4f47c17..046a9b16a 100644
--- a/interp_1d/test/src/interp_1d_support.f
+++ b/interp_1d/test/src/interp_1d_support.f
@@ -410,7 +410,7 @@ end subroutine test_interp_3_to_2
       subroutine test_4pt
          integer, parameter :: n = 6
          real(dp) :: x(n), y(n), a(3), dx, result, exact
-         integer :: ierr, i
+         integer :: i
          integer, parameter :: nwork = max(pm_work_size, mp_work_size)
          real(dp), target :: work_ary(n*nwork)
          real(dp), pointer :: work(:)
diff --git a/interp_1d/test/src/interp_1d_support_sg.f b/interp_1d/test/src/interp_1d_support_sg.f
index 4048f9d48..f6a7bc172 100644
--- a/interp_1d/test/src/interp_1d_support_sg.f
+++ b/interp_1d/test/src/interp_1d_support_sg.f
@@ -419,8 +419,8 @@ end subroutine test_interp_3_to_2
       
       subroutine test_4pt
          integer, parameter :: n = 6
-         real :: x(n), y(n), a(3), dx, result, exact, f(4, n)
-         integer :: ierr, i
+         real :: x(n), y(n), a(3), dx, result, exact
+         integer :: i
          integer, parameter :: nwork = max(pm_work_size, mp_work_size)
          real, target :: work_ary(n*nwork)
          real, pointer :: work(:)
diff --git a/interp_2d/make/makefile_base b/interp_2d/make/makefile_base
index 7c5af172c..9438467e6 100644
--- a/interp_2d/make/makefile_base
+++ b/interp_2d/make/makefile_base
@@ -29,9 +29,9 @@ SRCS = \
 # LIBRARIES
 
 ifeq ($(USE_SHARED), YES)
-    LIBS_OTHER = num interp_1d $(LIBS_MATRIX)
+    LIBS_OTHER = num auto_diff interp_1d $(LIBS_MATRIX)
     DEPS_OTHER = $(patsubst %,$(MESA_LIB_DIR)/lib%.$(LIB_SUFFIX),$(LIBS_OTHER))
-    LOAD_OTHER = -L$(MESA_LIB_DIR) -lnum -linterp_1d $(LOAD_MATRIX) -lauto_diff
+    LOAD_OTHER = -L$(MESA_LIB_DIR) -lnum -lauto_diff -linterp_1d $(LOAD_MATRIX)
 endif
 
 #################################################################
@@ -64,7 +64,7 @@ nodeps : $(.DEFAULT_GOAL)
 #
 # COMPILATION RULES
 
-COMPILE = $(COMPILE_TO_DEPLOY) $(FCfixed)
+COMPILE = $(COMPILE_TO_DEPLOY) $(FCfree)
 
 COMPILE_CMD = $(COMPILE)
 
@@ -92,10 +92,10 @@ endif
 
 %.o : %.f
 ifneq ($(QUIET),)
-	@echo COMPILE_CMD $<
-	@$(COMPILE_CMD) $<
+	@echo COMPILE_FIXED $<
+	@$(COMPILE_FIXED) $<
 else
-	$(COMPILE_CMD) $<
+	$(COMPILE_FIXED) $<
 endif
 
 %.o : %.f90
diff --git a/interp_2d/private/bicub_db.f b/interp_2d/private/bicub_db.f
index 7cce1c40a..31ff3483f 100644
--- a/interp_2d/private/bicub_db.f
+++ b/interp_2d/private/bicub_db.f
@@ -2461,9 +2461,8 @@ subroutine herm2fcn_mesa_db(ict,ivec,ivecd,
 !     bbar(x)=x**3-2*x**2+x  bbar'(x)=3*x**2-4*x+1
 !
       real(dp) :: sum
-      integer v,z36th,iadr,i,j
+      integer v,iadr,i,j
       real(dp) :: xp,yp,xpi,ypi,xp2,yp2,xpi2,ypi2
-      real(dp) :: cx,cy,cyd,cxi,cyi,cydi,hx2,hy2,cxd,cxdi
       real(dp) :: ax,bx,axbar,bxbar,ay,by,aybar,bybar
       real(dp) :: axp,axbarp,bxp,bxbarp,ayp,aybarp,bybarp,byp
       real(dp), pointer :: fin(:,:,:)
diff --git a/interp_2d/private/bicub_sg.f b/interp_2d/private/bicub_sg.f
index ddd46c54f..5fc20702d 100644
--- a/interp_2d/private/bicub_sg.f
+++ b/interp_2d/private/bicub_sg.f
@@ -954,7 +954,7 @@ subroutine fvbicub(ict,ivec,ivecd,
      >   fval,ii,jj,xparam,yparam,hx,hxi,hy,hyi,
      >   f1,inf2,ny)
 !
-      integer nx, ny
+      integer ny
       integer ict(6)                    ! requested output control
       integer ivec                      ! vector length
       integer ivecd                     ! vector dimension (1st dim of fval)
@@ -1733,9 +1733,8 @@ subroutine herm2fcn(ict,ivec,ivecd,
 !     bbar(x)=x**3-2*x**2+x  bbar'(x)=3*x**2-4*x+1
 !
       real sum
-      integer v,z36th,iadr,i,j
+      integer v,iadr,i,j
       real xp,yp,xpi,ypi,xp2,yp2,xpi2,ypi2
-      real cx,cy,cyd,cxi,cyi,cydi,hx2,hy2,cxd,cxdi
       real ax,bx,axbar,bxbar,ay,by,aybar,bybar
       real axp,axbarp,bxp,bxbarp,ayp,aybarp,bybarp,byp
 !
@@ -2374,8 +2373,8 @@ subroutine splinck(x,inx,ilinx,ztol,ier)
       integer ier                       ! output -- =0 if OK
 !
 !  ier=1 is returned if x(1...inx) is NOT STRICTLY ASCENDING...
-      real dxavg,dyavg,zeps,zdiffx,zdiffy,zdiff
-      integer ix,iy
+      real dxavg,zeps,zdiffx,zdiff
+      integer ix
 !
 !-------------------------------
 !
diff --git a/interp_2d/private/bipm_db.f b/interp_2d/private/bipm_db.f
index 1a3599a4a..a2f1fbede 100644
--- a/interp_2d/private/bipm_db.f
+++ b/interp_2d/private/bipm_db.f
@@ -68,9 +68,9 @@ subroutine do_evbipm_db(xget,yget,x,nx,y,ny,fin1,nf2,f,ierr)
          integer, intent(out) :: ierr                      ! error code =0 ==> no error
 
          integer, parameter :: nwork = pm_work_size
-         real(dp) :: x0,x1,dx,y0,y1,dy,alfa,beta,ddx,f1,f2
+         real(dp) :: x0,x1,dx,y0,y1,dy,alfa,beta
          real(dp) :: ys(4), ynew(1), val(1)
-         integer :: j, jlo, jhi, i, ix, jy, ii
+         integer :: j, jlo, i, ix, jy, ii
          real(dp), target :: work_ary(4*nwork), ff_ary(4*4)
          real(dp), pointer :: work(:), fin(:,:,:), ff(:,:), ff1(:)
          work => work_ary
diff --git a/interp_2d/private/bipm_sg.f b/interp_2d/private/bipm_sg.f
index 59f3e5716..ea0907c38 100644
--- a/interp_2d/private/bipm_sg.f
+++ b/interp_2d/private/bipm_sg.f
@@ -66,9 +66,9 @@ subroutine do_evbipm_sg(xget,yget,x,nx,y,ny,fin1,nf2,f,ierr)
          integer, intent(out) :: ierr                      ! error code =0 ==> no error
 
          integer, parameter :: nwork = pm_work_size
-         real :: x0,x1,dx,y0,y1,dy,alfa,beta,ddx,f1,f2
+         real :: x0,x1,dx,y0,y1,dy,alfa,beta
          real :: ys(4), ynew(1), val(1)
-         integer :: j, jlo, jhi, i, ix, jy, ii
+         integer :: j, jlo, i, ix, jy, ii
          real, target :: work_ary(4*nwork), ff_ary(4*4)
          real, pointer :: work(:), fin(:,:,:), ff(:,:), ff1(:)
          work => work_ary
diff --git a/interp_2d/public/interp_2d_lib_db.f90 b/interp_2d/public/interp_2d_lib_db.f90
index ef55fdb70..176820303 100644
--- a/interp_2d/public/interp_2d_lib_db.f90
+++ b/interp_2d/public/interp_2d_lib_db.f90
@@ -23,16 +23,15 @@
 !
 ! ***********************************************************************
 
-      module interp_2d_lib_db
-      ! real(dp) library for 2d interpolation
-      
-      use const_def, only: dp
+module interp_2d_lib_db
+   ! real(dp) library for 2d interpolation
 
-      implicit none
+   use const_def, only: dp
 
-      contains ! the procedure interface for the library
-      ! client programs should only call these routines.
+   implicit none
 
+contains ! the procedure interface for the library
+   ! client programs should only call these routines.
 
 ! contents
 
@@ -41,53 +40,45 @@ module interp_2d_lib_db
    ! interp_rgsf3p_db -- surface interpolation (akima)
    ! interp_mkbicub_db -- bicubic splines
    ! interp_mkbipm_db -- 2d piecewise monotonic
-      
+
 ! scattered set of data points
    ! interp_cs2val_db -- point interpolation (renka)
    ! interp_cs2grd_db -- point interpolation with gradients (renka)
 
-
-
 ! ***********************************************************************
 ! ***********************************************************************
 ! ***********************************************************************
 ! ***********************************************************************
 
+! rectangular-grid bivariate interpolation and surface fitting
+! from acm algorithm 760., acm trans. math. software (22) 1996, 357-361.
+! hiroshi akima
+! u.s. department of commerce, ntia/its
+! version of 1995/08
 
+   ! interpolate at given points
+   subroutine interp_rgbi3p_db(md, nxd, nyd, xd, yd, zd, nip, xi, yi, zi, ierr, wk)
+      integer, intent(in) :: md, nxd, nyd, nip
+      real(dp), intent(in) :: xd(nxd), yd(nyd), zd(nxd, nyd), xi(nip), yi(nip)
+      real(dp), intent(inout) :: zi(nip), wk(3, nxd, nyd)
+      integer, intent(out) :: ierr
+      call do_rgbi3p_db(md, nxd, nyd, xd, yd, zd, nip, xi, yi, zi, ierr, wk)
+   end subroutine interp_rgbi3p_db
 
-* rectangular-grid bivariate interpolation and surface fitting
-* from acm algorithm 760., acm trans. math. software (22) 1996, 357-361.
-* hiroshi akima
-* u.s. department of commerce, ntia/its
-* version of 1995/08
-
-      ! interpolate at given points
-      subroutine interp_rgbi3p_db(md,nxd,nyd,xd,yd,zd,nip,xi,yi,zi,ier,wk)
-         integer, intent(in) :: md, nxd, nyd, nip
-         real(dp), intent(in) :: xd(nxd), yd(nyd), zd(nxd,nyd), xi(nip), yi(nip)
-         real(dp), intent(inout) :: zi(nip), wk(3,nxd,nyd)
-         integer, intent(out) :: ier
-         call do_rgbi3p_db(md,nxd,nyd,xd,yd,zd,nip,xi,yi,zi,ier,wk)
-      end subroutine interp_rgbi3p_db
-
-      ! interpolate surface for given grid in x and y
-      subroutine interp_rgsf3p_db(md,nxd,nyd,xd,yd,zd,nxi,xi,nyi,yi,zi,ier,wk)
-         integer, intent(in) :: md, nxd, nyd, nxi, nyi
-         real(dp), intent(in) :: xd(nxd), yd(nyd), zd(nxd,nyd), xi(nxi), yi(nyi)
-         real(dp), intent(inout) :: zi(nxi,nyi), wk(3,nxd,nyd)
-         integer, intent(out) :: ier
-         call do_rgsf3p_db(md,nxd,nyd,xd,yd,zd,nxi,xi,nyi,yi,zi,ier,wk)
-      end subroutine interp_rgsf3p_db
-      
-      
+   ! interpolate surface for given grid in x and y
+   subroutine interp_rgsf3p_db(md, nxd, nyd, xd, yd, zd, nxi, xi, nyi, yi, zi, ierr, wk)
+      integer, intent(in) :: md, nxd, nyd, nxi, nyi
+      real(dp), intent(in) :: xd(nxd), yd(nyd), zd(nxd, nyd), xi(nxi), yi(nyi)
+      real(dp), intent(inout) :: zi(nxi, nyi), wk(3, nxd, nyd)
+      integer, intent(out) :: ierr
+      call do_rgsf3p_db(md, nxd, nyd, xd, yd, zd, nxi, xi, nyi, yi, zi, ierr, wk)
+   end subroutine interp_rgsf3p_db
 
 ! ***********************************************************************
 ! ***********************************************************************
 ! ***********************************************************************
 ! ***********************************************************************
 
-
-
 ! cubic shepard method for bivariate interpolation of scattered data.
 ! from acm algorithm 790., acm trans. math. software (25) 1999, 70-73.
 ! robert j. renka
@@ -102,117 +93,105 @@ end subroutine interp_rgsf3p_db
 ! detailed documentation can be found in interp_2d_lib_sg.f
 ! these routines are exactly the same except they are real(dp).
 
-      ! see cshep2_sg for documentation details.
-      subroutine interp_cshep2_db(n,x,y,f,nc,nw,nr,lcell,lnext,xmin,ymin,dx,dy,rmax,rw,a,ier)
-         integer, intent(in) :: n, nc, nw, nr
-         integer, intent(out) :: lcell(nr,nr), lnext(n), ier
-         real(dp), intent(in) :: x(n), y(n), f(n)
-         real(dp), intent(inout) :: xmin, ymin, dx, dy, rmax, rw(n), a(9,n)
-         call do_cshep2_db(n,x,y,f,nc,nw,nr,lcell,lnext,xmin,ymin,dx,dy,rmax,rw,a,ier)
-      end subroutine interp_cshep2_db
-
-      ! see cs2val_sg for documentation details.
-      real(dp) function interp_cs2val_db(px,py,n,x,y,f,nr,lcell,lnext,xmin,ymin,dx,dy,rmax,rw,a,ier)
-         integer, intent(in) :: n, nr, lcell(nr,nr), lnext(n)
-         real(dp), intent(in) :: px, py, x(n), y(n), f(n), xmin, ymin, dx, dy, rmax, rw(n), a(9,n)
-         integer, intent(out) :: ier
-         real(dp) :: do_cs2val_db        
-         interp_cs2val_db = do_cs2val_db(px,py,n,x,y,f,nr,lcell,lnext,xmin,ymin,dx,dy,rmax,rw,a,ier)   
-      end function interp_cs2val_db
-
-      ! see cs2grd_sg for documentation details.
-      subroutine interp_cs2grd_db(px,py,n,x,y,f,nr,lcell,lnext,xmin,ymin,dx,dy,rmax,rw,a,c,cx,cy,ier)
-         integer, intent(in) :: n, nr, lcell(nr,nr), lnext(n)
-         real(dp), intent(in) :: px, py, x(n), y(n), f(n), xmin, ymin, dx, dy, rmax, rw(n), a(9,n)
-         real(dp), intent(out) :: c, cx, cy
-         integer, intent(out) :: ier
-         call do_cs2grd_db(px,py,n,x,y,f,nr,lcell,lnext,xmin,ymin,dx,dy,rmax,rw,a,c,cx,cy,ier)
-      end subroutine interp_cs2grd_db
+   ! see cshep2_sg for documentation details.
+   subroutine interp_cshep2_db(n, x, y, f, nc, nw, nr, lcell, lnext, xmin, ymin, dx, dy, rmax, rw, a, ierr)
+      integer, intent(in) :: n, nc, nw, nr
+      integer, intent(out) :: lcell(nr, nr), lnext(n), ierr
+      real(dp), intent(in) :: x(n), y(n), f(n)
+      real(dp), intent(inout) :: xmin, ymin, dx, dy, rmax, rw(n), a(9, n)
+      call do_cshep2_db(n, x, y, f, nc, nw, nr, lcell, lnext, xmin, ymin, dx, dy, rmax, rw, a, ierr)
+   end subroutine interp_cshep2_db
 
+   ! see cs2val_sg for documentation details.
+   real(dp) function interp_cs2val_db(px, py, n, x, y, f, nr, lcell, lnext, xmin, ymin, dx, dy, rmax, rw, a, ierr)
+      integer, intent(in) :: n, nr, lcell(nr, nr), lnext(n)
+      real(dp), intent(in) :: px, py, x(n), y(n), f(n), xmin, ymin, dx, dy, rmax, rw(n), a(9, n)
+      integer, intent(out) :: ierr
+      real(dp) :: do_cs2val_db
+      interp_cs2val_db = do_cs2val_db(px, py, n, x, y, f, nr, lcell, lnext, xmin, ymin, dx, dy, rmax, rw, a, ierr)
+   end function interp_cs2val_db
 
+   ! see cs2grd_sg for documentation details.
+   subroutine interp_cs2grd_db(px, py, n, x, y, f, nr, lcell, lnext, xmin, ymin, dx, dy, rmax, rw, a, c, cx, cy, ierr)
+      integer, intent(in) :: n, nr, lcell(nr, nr), lnext(n)
+      real(dp), intent(in) :: px, py, x(n), y(n), f(n), xmin, ymin, dx, dy, rmax, rw(n), a(9, n)
+      real(dp), intent(out) :: c, cx, cy
+      integer, intent(out) :: ierr
+      call do_cs2grd_db(px, py, n, x, y, f, nr, lcell, lnext, xmin, ymin, dx, dy, rmax, rw, a, c, cx, cy, ierr)
+   end subroutine interp_cs2grd_db
 
 ! ***********************************************************************
 ! ***********************************************************************
 
-
 ! bicubic splines
 ! use interp_mkbicub_db to set up the interpolation information
 ! use interp_evbicub_db to evaluate it
 
 ! detailed documentation can be found in interp_2d_lib_sg.f
-      
-      ! see interp_mkbicub_sg for documentation details.
-      subroutine interp_mkbicub_db(x,nx,y,ny,f1,nf2,
-     >         ibcxmin,bcxmin,ibcxmax,bcxmax,
-     >         ibcymin,bcymin,ibcymax,bcymax,
-     >         ilinx,iliny,ier)
-         use bicub_db, only: do_mkbicub_db
-         integer, intent(in) :: nx                        ! length of x vector
-         integer, intent(in) :: ny                        ! length of y vector
-         real(dp), intent(in) :: x(:) ! (nx)            ! x vector, strict ascending
-         real(dp), intent(in) :: y(:) ! (ny)            ! y vector, strict ascending
-         integer, intent(in) :: nf2                       ! 2nd dimension of f, nf2.ge.nx
-         real(dp), intent(inout), pointer :: f1(:) ! =(4,nf2,ny)   ! data & spline coefficients
-         integer, intent(in) :: ibcxmin                   ! bc flag for x=xmin
-         real(dp), intent(in) :: bcxmin(:) ! (ny)       ! bc data vs. y at x=xmin
-         integer, intent(in) :: ibcxmax                   ! bc flag for x=xmax
-         real(dp), intent(in) :: bcxmax(:) ! (ny)       ! bc data vs. y at x=xmax
-         integer, intent(in) :: ibcymin                   ! bc flag for y=ymin
-         real(dp), intent(in) :: bcymin(:) ! (nx)       ! bc data vs. x at y=ymin
-         integer, intent(in) :: ibcymax                   ! bc flag for y=ymax
-         real(dp), intent(in) :: bcymax(:) ! (nx)       ! bc data vs. x at y=ymax
-         integer, intent(out) :: ilinx                    ! =1: x grid is "nearly" equally spaced
-         integer, intent(out) :: iliny                    ! =1: y grid is "nearly" equally spaced
-         integer, intent(out) :: ier                      ! =0 on exit if there is no error.   
-         call do_mkbicub_db(x,nx,y,ny,f1,nf2,
-     >         ibcxmin,bcxmin,ibcxmax,bcxmax,
-     >         ibcymin,bcymin,ibcymax,bcymax,
-     >         ilinx,iliny,ier)
-         end subroutine interp_mkbicub_db
-
-
-      ! see interp_evbicub_sg for documentation details.
-      subroutine interp_evbicub_db(xget,yget,x,nx,y,ny,ilinx,iliny,f1,inf2,ict,fval,ier)
-         use bicub_db, only: fvbicub_db, herm2xy_db
-         integer, intent(in) :: nx,ny                     ! grid sizes
-         real(dp), intent(in) :: xget,yget        ! target of this interpolation
-         real(dp), intent(in) :: x(:) ! (nx)            ! ordered x grid
-         real(dp), intent(in) :: y(:) ! (ny)            ! ordered y grid
-         integer, intent(in) :: ilinx                     ! ilinx=1 => assume x evenly spaced
-         integer, intent(in) :: iliny                     ! iliny=1 => assume y evenly spaced
-         integer, intent(in) :: inf2
-         real(dp), intent(inout), pointer :: f1(:) ! function data
-         integer, intent(in) :: ict(6)                    ! code specifying output desired
-         real(dp), intent(inout) :: fval(6)         ! output data
-         integer, intent(out) :: ier                      ! error code =0 ==> no error
-         integer i,j
-         integer ii(1), jj(1) 
-         real(dp) xparam(1),yparam(1),hx(1),hxi(1),hy(1),hyi(1)
- 1       format(a40,1pe26.16)
-         call herm2xy_db(xget,yget,x,nx,y,ny,ilinx,iliny,i,j,
-     >         xparam(1),yparam(1),hx(1),hxi(1),hy(1),hyi(1),ier)
-         if (ier .ne. 0) return
-         ii(1) = i
-         jj(1) = j
-         call fvbicub_db(ict,1,1,fval,ii,jj,xparam,yparam,hx,hxi,hy,hyi,f1,inf2,ny)   
-      end subroutine interp_evbicub_db
-      
-      
-      ! this is used by do_mkbicub_db to get 2nd derivatives d_dx2 and d_dy2
-      subroutine interp_mkspline_db(x,nx,fspl,ibcxmin,bcxmin,ibcxmax,bcxmax,ilinx,ier)
-         use bicub_db, only: mkspline_db
-         integer, intent(in) :: nx ! no. of data points
-         real(dp), intent(in) :: x(nx) ! x axis data, strict ascending order
-         real(dp), intent(inout) :: fspl(2,nx) ! f(1,*): data in; f(2,*): coeffs out
-         integer, intent(in) :: ibcxmin                   ! b.c. flag @ x=xmin=x(1)
-         real(dp), intent(in) :: bcxmin                   ! b.c. data @xmin
-         integer, intent(in) :: ibcxmax                   ! b.c. flag @ x=xmax=x(nx)
-         real(dp), intent(in) :: bcxmax                   ! b.c. data @xmax
-         integer, intent(in) :: ilinx                     ! ilinx=1 => assume x evenly spaced
-         integer, intent(out) :: ier                      ! error code =0 ==> no error
-         call mkspline_db(x,nx,fspl,ibcxmin,bcxmin,ibcxmax,bcxmax,ilinx,ier)
-      end subroutine interp_mkspline_db
 
+   ! see interp_mkbicub_sg for documentation details.
+   subroutine interp_mkbicub_db(x, nx, y, ny, f1, nf2, &
+                                ibcxmin, bcxmin, ibcxmax, bcxmax, ibcymin, bcymin, ibcymax, bcymax, ilinx, iliny, ierr)
+      use bicub_db, only: do_mkbicub_db
+      integer, intent(in) :: nx                        ! length of x vector
+      integer, intent(in) :: ny                        ! length of y vector
+      real(dp), intent(in) :: x(:) ! (nx)              ! x vector, strict ascending
+      real(dp), intent(in) :: y(:) ! (ny)              ! y vector, strict ascending
+      integer, intent(in) :: nf2                       ! 2nd dimension of f, nf2 >= nx
+      real(dp), intent(inout), pointer :: f1(:) ! =(4,nf2,ny)   ! data & spline coefficients
+      integer, intent(in) :: ibcxmin                   ! bc flag for x=xmin
+      real(dp), intent(in) :: bcxmin(:) ! (ny)         ! bc data vs. y at x=xmin
+      integer, intent(in) :: ibcxmax                   ! bc flag for x=xmax
+      real(dp), intent(in) :: bcxmax(:) ! (ny)         ! bc data vs. y at x=xmax
+      integer, intent(in) :: ibcymin                   ! bc flag for y=ymin
+      real(dp), intent(in) :: bcymin(:) ! (nx)         ! bc data vs. x at y=ymin
+      integer, intent(in) :: ibcymax                   ! bc flag for y=ymax
+      real(dp), intent(in) :: bcymax(:) ! (nx)         ! bc data vs. x at y=ymax
+      integer, intent(out) :: ilinx                    ! =1: x grid is "nearly" equally spaced
+      integer, intent(out) :: iliny                    ! =1: y grid is "nearly" equally spaced
+      integer, intent(out) :: ierr                     ! =0 on exit if there is no error.
+      call do_mkbicub_db(x, nx, y, ny, f1, nf2, &
+                         ibcxmin, bcxmin, ibcxmax, bcxmax, ibcymin, bcymin, ibcymax, bcymax, ilinx, iliny, ierr)
+   end subroutine interp_mkbicub_db
+
+   ! see interp_evbicub_sg for documentation details.
+   subroutine interp_evbicub_db(xget, yget, x, nx, y, ny, ilinx, iliny, f1, inf2, ict, fval, ierr)
+      use bicub_db, only: fvbicub_db, herm2xy_db
+      integer, intent(in) :: nx, ny                    ! grid sizes
+      real(dp), intent(in) :: xget, yget               ! target of this interpolation
+      real(dp), intent(in) :: x(:) ! (nx)              ! ordered x grid
+      real(dp), intent(in) :: y(:) ! (ny)              ! ordered y grid
+      integer, intent(in) :: ilinx                     ! ilinx=1 => assume x evenly spaced
+      integer, intent(in) :: iliny                     ! iliny=1 => assume y evenly spaced
+      integer, intent(in) :: inf2
+      real(dp), intent(inout), pointer :: f1(:)        ! function data
+      integer, intent(in) :: ict(6)                    ! code specifying output desired
+      real(dp), intent(inout) :: fval(6)               ! output data
+      integer, intent(out) :: ierr                     ! error code =0 ==> no error
+      integer :: i, j
+      integer :: ii(1), jj(1)
+      real(dp) xparam(1), yparam(1), hx(1), hxi(1), hy(1), hyi(1)
+      call herm2xy_db(xget, yget, x, nx, y, ny, ilinx, iliny, i, j, xparam(1), yparam(1), hx(1), hxi(1), hy(1), hyi(1), ierr)
+      if (ierr /= 0) return
+      ii(1) = i
+      jj(1) = j
+      call fvbicub_db(ict, 1, 1, fval, ii, jj, xparam, yparam, hx, hxi, hy, hyi, f1, inf2, ny)
+   end subroutine interp_evbicub_db
+
+   ! this is used by do_mkbicub_db to get 2nd derivatives d_dx2 and d_dy2
+   subroutine interp_mkspline_db(x, nx, fspl, ibcxmin, bcxmin, ibcxmax, bcxmax, ilinx, ierr)
+      use bicub_db, only: mkspline_db
+      integer, intent(in) :: nx ! no. of data points
+      real(dp), intent(in) :: x(nx) ! x axis data, strict ascending order
+      real(dp), intent(inout) :: fspl(2, nx) ! f(1,*): data in; f(2,*): coeffs out
+      integer, intent(in) :: ibcxmin                   ! b.c. flag @ x=xmin=x(1)
+      real(dp), intent(in) :: bcxmin                   ! b.c. data @xmin
+      integer, intent(in) :: ibcxmax                   ! b.c. flag @ x=xmax=x(nx)
+      real(dp), intent(in) :: bcxmax                   ! b.c. data @xmax
+      integer, intent(in) :: ilinx                     ! ilinx=1 => assume x evenly spaced
+      integer, intent(out) :: ierr                     ! error code =0 ==> no error
+      call mkspline_db(x, nx, fspl, ibcxmin, bcxmin, ibcxmax, bcxmax, ilinx, ierr)
+   end subroutine interp_mkspline_db
 
 ! ***********************************************************************
 ! ***********************************************************************
@@ -221,36 +200,33 @@ end subroutine interp_mkspline_db
 ! does 4 1d interpolations in x followed by 1 1d interpolation in y.
 ! use interp_mkbipm_db to set up the interpolation information
 ! use interp_evbipm_db to evaluate it
-      
-      subroutine interp_mkbipm_db(x,nx,y,ny,f1,nf2,ier)
-         use bipm_db, only: do_mkbipm_db
-         integer, intent(in) :: nx                        ! length of x vector
-         integer, intent(in) :: ny                        ! length of y vector
-         real(dp), intent(in), pointer :: x(:) ! (nx)            ! x vector, strict ascending
-         real(dp), intent(in), pointer :: y(:) ! (ny)            ! y vector, strict ascending
-         integer, intent(in) :: nf2                       ! 2nd dimension of f, nf2.ge.nx
-         real(dp), intent(inout), pointer :: f1(:) ! =(4,nf2,ny)   ! data & interpolant coefficients
-         integer, intent(out) :: ier                      ! =0 on exit if there is no error.   
-         call do_mkbipm_db(x,nx,y,ny,f1,nf2,ier)
-      end subroutine interp_mkbipm_db
-
-
-      subroutine interp_evbipm_db(xget,yget,x,nx,y,ny,f1,nf2,z,ier)
-         use bipm_db, only: do_evbipm_db
-         integer, intent(in) :: nx,ny
-         real(dp), intent(in) :: xget,yget        ! target of this interpolation
-         real(dp), intent(in), pointer :: x(:) ! (nx)            ! ordered x grid
-         real(dp), intent(in), pointer :: y(:) ! (ny)            ! ordered y grid
-         integer, intent(in) :: nf2
-         real(dp), intent(in), pointer :: f1(:) ! =(4,nf2,ny)      ! function data
-         real(dp), intent(out) :: z
-         integer, intent(out) :: ier                      ! error code =0 ==> no error
-         call do_evbipm_db(xget,yget,x,nx,y,ny,f1,nf2,z,ier)   
-      end subroutine interp_evbipm_db
-
-
-! ***********************************************************************
-! ***********************************************************************
-
 
-      end module interp_2d_lib_db
+   subroutine interp_mkbipm_db(x, nx, y, ny, f1, nf2, ierr)
+      use bipm_db, only: do_mkbipm_db
+      integer, intent(in) :: nx                        ! length of x vector
+      integer, intent(in) :: ny                        ! length of y vector
+      real(dp), intent(in), pointer :: x(:) ! (nx)     ! x vector, strict ascending
+      real(dp), intent(in), pointer :: y(:) ! (ny)     ! y vector, strict ascending
+      integer, intent(in) :: nf2                       ! 2nd dimension of f, nf2 >= nx
+      real(dp), intent(inout), pointer :: f1(:) ! =(4,nf2,ny)   ! data & interpolant coefficients
+      integer, intent(out) :: ierr                     ! =0 on exit if there is no error.
+      call do_mkbipm_db(x, nx, y, ny, f1, nf2, ierr)
+   end subroutine interp_mkbipm_db
+
+   subroutine interp_evbipm_db(xget, yget, x, nx, y, ny, f1, nf2, z, ierr)
+      use bipm_db, only: do_evbipm_db
+      integer, intent(in) :: nx, ny
+      real(dp), intent(in) :: xget, yget               ! target of this interpolation
+      real(dp), intent(in), pointer :: x(:) ! (nx)     ! ordered x grid
+      real(dp), intent(in), pointer :: y(:) ! (ny)     ! ordered y grid
+      integer, intent(in) :: nf2
+      real(dp), intent(in), pointer :: f1(:) ! =(4,nf2,ny)   ! function data
+      real(dp), intent(out) :: z
+      integer, intent(out) :: ierr                     ! error code =0 ==> no error
+      call do_evbipm_db(xget, yget, x, nx, y, ny, f1, nf2, z, ierr)
+   end subroutine interp_evbipm_db
+
+! ***********************************************************************
+! ***********************************************************************
+
+end module interp_2d_lib_db
diff --git a/interp_2d/public/interp_2d_lib_sg.f90 b/interp_2d/public/interp_2d_lib_sg.f90
index f5f35fc0b..c20e05948 100644
--- a/interp_2d/public/interp_2d_lib_sg.f90
+++ b/interp_2d/public/interp_2d_lib_sg.f90
@@ -23,13 +23,13 @@
 !
 ! ***********************************************************************
 
-      module interp_2d_lib_sg
-      ! single precision library for 2D interpolation
+module interp_2d_lib_sg
+   ! single precision library for 2D interpolation
 
-      implicit none
+   implicit none
 
-      contains ! the procedure interface for the library
-      ! client programs should only call these routines.
+contains ! the procedure interface for the library
+   ! client programs should only call these routines.
 
 ! Contents
 
@@ -37,16 +37,14 @@ module interp_2d_lib_sg
 
    ! interp_RGBI3P_sg -- point interpolation (Akima)
    ! interp_RGSF3P_sg -- surface interpolation (Akima)
-   
+
    ! interp_mkbicub_sg -- bicubic splines
-      
+
 ! Scattered set of data points
 
    ! interp_CS2VAL_sg -- point interpolation (Renka)
    ! interp_CS2GRD_sg -- point interpolation with gradients (Renka)
 
-
-
 ! see the documents in refs directory for more info.
 
 ! ***********************************************************************
@@ -54,181 +52,175 @@ module interp_2d_lib_sg
 ! ***********************************************************************
 ! ***********************************************************************
 
-
-
-* Rectangular-grid bivariate interpolation and surface fitting
-* from ACM Algorithm 760., ACM Trans. Math. Software (22) 1996, 357-361.
-* Hiroshi Akima
-* U.S. Department of Commerce, NTIA/ITS
-* Version of 1995/08
-
-* NOTE: versions for scattered data follow.
-
-* see interp_2d_lib_db for double precision version.
-
-      subroutine interp_RGBI3P_sg(MD,NXD,NYD,XD,YD,ZD,NIP,XI,YI,ZI,IER,WK)
-         integer, intent(in) :: MD, NXD, NYD, NIP
-         real, intent(in) :: XD(NXD), YD(NYD), ZD(NXD,NYD), XI(NIP), YI(NIP)
-         real, intent(inout) :: ZI(NIP), WK(3,NXD,NYD)
-         integer, intent(out) :: IER
-*
-* This subroutine performs interpolation of a bivariate function,
-* z(x,y), on a rectangular grid in the x-y plane.  It is based on
-* the revised Akima method.
-*
-* In this subroutine, the interpolating function is a piecewise
-* function composed of a set of bicubic (bivariate third-degree)
-* polynomials, each applicable to a rectangle of the input grid
-* in the x-y plane.  Each polynomial is determined locally.
-*
-* This subroutine has the accuracy of a bicubic polynomial, i.e.,
-* it interpolates accurately when all data points lie on a
-* surface of a bicubic polynomial.
-*
-* The grid lines can be unevenly spaced.
-*
-* The input arguments are
-*   MD  = mode of computation
-*       = 1 for new XD, YD, or ZD data (default)
-*       = 2 for old XD, YD, and ZD data,
-*   NXD = number of the input-grid data points in the x
-*         coordinate (must be 2 or greater),
-*   NYD = number of the input-grid data points in the y
-*         coordinate (must be 2 or greater),
-*   XD  = array of dimension NXD containing the x coordinates
-*         of the input-grid data points (must be in a
-*         monotonic increasing order),
-*   YD  = array of dimension NYD containing the y coordinates
-*         of the input-grid data points (must be in a
-*         monotonic increasing order),
-*   ZD  = two-dimensional array of dimension NXD*NYD
-*         containing the z(x,y) values at the input-grid data
-*         points,
-*   NIP = number of the output points at which interpolation
-*         of the z value is desired (must be 1 or greater),
-*   XI  = array of dimension NIP containing the x coordinates
-*         of the output points,
-*   YI  = array of dimension NIP containing the y coordinates
-*         of the output points.
-*
-* The output arguments are
-*   ZI  = array of dimension NIP where the interpolated z
-*         values at the output points are to be stored,
-*   IER = error flag
-*       = 0 for no errors
-*       = 1 for NXD = 1 or less
-*       = 2 for NYD = 1 or less
-*       = 3 for identical XD values or
-*               XD values out of sequence
-*       = 4 for identical YD values or
-*               YD values out of sequence
-*       = 5 for NIP = 0 or less.
-*
-* The other argument is
-*   WK  = three dimensional array of dimension 3*NXD*NYD used
-*         internally as a work area.
-*
-* The very first call to this subroutine and the call with a new
-* XD, YD, and ZD array must be made with MD=1.  The call with MD=2
-* must be preceded by another call with the same XD, YD, and ZD
-* arrays.  Between the call with MD=2 and its preceding call, the
-* WK array must not be disturbed.
-*
-         call do_RGBI3P_sg(MD,NXD,NYD,XD,YD,ZD,NIP,XI,YI,ZI,IER,WK)
-      end subroutine interp_RGBI3P_sg
-      
-      
-      subroutine interp_RGSF3P_sg(MD,NXD,NYD,XD,YD,ZD,NXI,XI,NYI,YI,ZI,IER,WK)
-         integer, intent(in) :: MD, NXD, NYD, NXI, NYI
-         real, intent(in) :: XD(NXD), YD(NYD), ZD(NXD,NYD), XI(NXI), YI(NYI)
-         real, intent(inout) :: ZI(NXI,NYI), WK(3,NXD,NYD)
-         integer, intent(out) :: IER
-*
-* Rectangular-grid surface fitting
-* (a master subroutine of the RGBI3P/RGSF3P_sg subroutine package)
-*
-* Hiroshi Akima
-* U.S. Department of Commerce, NTIA/ITS
-* Version of 1995/08
-*
-* This subroutine performs surface fitting by interpolating
-* values of a bivariate function, z(x,y), on a rectangular grid
-* in the x-y plane.  It is based on the revised Akima method.
-*
-* In this subroutine, the interpolating function is a piecewise
-* function composed of a set of bicubic (bivariate third-degree)
-* polynomials, each applicable to a rectangle of the input grid
-* in the x-y plane.  Each polynomial is determined locally.
-*
-* This subroutine has the accuracy of a bicubic polynomial, i.e.,
-* it fits the surface accurately when all data points lie on a
-* surface of a bicubic polynomial.
-*
-* The grid lines of the input and output data can be unevenly
-* spaced.
-*
-* The input arguments are
-*   MD  = mode of computation
-*       = 1 for new XD, YD, or ZD data (default)
-*       = 2 for old XD, YD, and ZD data,
-*   NXD = number of the input-grid data points in the x
-*         coordinate (must be 2 or greater),
-*   NYD = number of the input-grid data points in the y
-*         coordinate (must be 2 or greater),
-*   XD  = array of dimension NXD containing the x coordinates
-*         of the input-grid data points (must be in a
-*         monotonic increasing order),
-*   YD  = array of dimension NYD containing the y coordinates
-*         of the input-grid data points (must be in a
-*         monotonic increasing order),
-*   ZD  = two-dimensional array of dimension NXD*NYD
-*         containing the z(x,y) values at the input-grid data
-*         points,
-*   NXI = number of output grid points in the x coordinate
-*         (must be 1 or greater),
-*   XI  = array of dimension NXI containing the x coordinates
-*         of the output grid points,
-*   NYI = number of output grid points in the y coordinate
-*         (must be 1 or greater),
-*   YI  = array of dimension NYI containing the y coordinates
-*         of the output grid points.
-*
-* The output arguments are
-*   ZI  = two-dimensional array of dimension NXI*NYI, where
-*         the interpolated z values at the output grid
-*         points are to be stored,
-*   IER = error flag
-*       = 0 for no error
-*       = 1 for NXD = 1 or less
-*       = 2 for NYD = 1 or less
-*       = 3 for identical XD values or
-*               XD values out of sequence
-*       = 4 for identical YD values or
-*               YD values out of sequence
-*       = 5 for NXI = 0 or less
-*       = 6 for NYI = 0 or less.
-*
-* The other argument is
-*   WK  = three-dimensional array of dimension 3*NXD*NYD used
-*         internally as a work area.
-*
-* The very first call to this subroutine and the call with a new
-* XD, YD, or ZD array must be made with MD=1.  The call with MD=2
-* must be preceded by another call with the same XD, YD, and ZD
-* arrays.  Between the call with MD=2 and its preceding call, the
-* WK array must not be disturbed.
-
-         call do_RGSF3P_sg(MD,NXD,NYD,XD,YD,ZD,NXI,XI,NYI,YI,ZI,IER,WK)
-      end subroutine interp_RGSF3P_sg
-      
+! Rectangular-grid bivariate interpolation and surface fitting
+! from ACM Algorithm 760., ACM Trans. Math. Software (22) 1996, 357-361.
+! Hiroshi Akima
+! U.S. Department of Commerce, NTIA/ITS
+! Version of 1995/08
+
+! NOTE: versions for scattered data follow.
+
+! see interp_2d_lib_db for double precision version.
+
+   subroutine interp_RGBI3P_sg(MD, NXD, NYD, XD, YD, ZD, NIP, XI, YI, ZI, ierr, WK)
+      integer, intent(in) :: MD, NXD, NYD, NIP
+      real, intent(in) :: XD(NXD), YD(NYD), ZD(NXD, NYD), XI(NIP), YI(NIP)
+      real, intent(inout) :: ZI(NIP), WK(3, NXD, NYD)
+      integer, intent(out) :: ierr
+!
+! This subroutine performs interpolation of a bivariate function,
+! z(x,y), on a rectangular grid in the x-y plane.  It is based on
+! the revised Akima method.
+!
+! In this subroutine, the interpolating function is a piecewise
+! function composed of a set of bicubic (bivariate third-degree)
+! polynomials, each applicable to a rectangle of the input grid
+! in the x-y plane.  Each polynomial is determined locally.
+!
+! This subroutine has the accuracy of a bicubic polynomial, i.e.,
+! it interpolates accurately when all data points lie on a
+! surface of a bicubic polynomial.
+!
+! The grid lines can be unevenly spaced.
+!
+! The input arguments are
+!   MD  = mode of computation
+!       = 1 for new XD, YD, or ZD data (default)
+!       = 2 for old XD, YD, and ZD data,
+!   NXD = number of the input-grid data points in the x
+!         coordinate (must be 2 or greater),
+!   NYD = number of the input-grid data points in the y
+!         coordinate (must be 2 or greater),
+!   XD  = array of dimension NXD containing the x coordinates
+!         of the input-grid data points (must be in a
+!         monotonic increasing order),
+!   YD  = array of dimension NYD containing the y coordinates
+!         of the input-grid data points (must be in a
+!         monotonic increasing order),
+!   ZD  = two-dimensional array of dimension NXD*NYD
+!         containing the z(x,y) values at the input-grid data
+!         points,
+!   NIP = number of the output points at which interpolation
+!         of the z value is desired (must be 1 or greater),
+!   XI  = array of dimension NIP containing the x coordinates
+!         of the output points,
+!   YI  = array of dimension NIP containing the y coordinates
+!         of the output points.
+!
+! The output arguments are
+!   ZI  = array of dimension NIP where the interpolated z
+!         values at the output points are to be stored,
+!   ierr = error flag
+!       = 0 for no errors
+!       = 1 for NXD = 1 or less
+!       = 2 for NYD = 1 or less
+!       = 3 for identical XD values or
+!               XD values out of sequence
+!       = 4 for identical YD values or
+!               YD values out of sequence
+!       = 5 for NIP = 0 or less.
+!
+! The other argument is
+!   WK  = three dimensional array of dimension 3*NXD*NYD used
+!         internally as a work area.
+!
+! The very first call to this subroutine and the call with a new
+! XD, YD, and ZD array must be made with MD=1.  The call with MD=2
+! must be preceded by another call with the same XD, YD, and ZD
+! arrays.  Between the call with MD=2 and its preceding call, the
+! WK array must not be disturbed.
+!
+      call do_RGBI3P_sg(MD, NXD, NYD, XD, YD, ZD, NIP, XI, YI, ZI, ierr, WK)
+   end subroutine interp_RGBI3P_sg
+
+   subroutine interp_RGSF3P_sg(MD, NXD, NYD, XD, YD, ZD, NXI, XI, NYI, YI, ZI, ierr, WK)
+      integer, intent(in) :: MD, NXD, NYD, NXI, NYI
+      real, intent(in) :: XD(NXD), YD(NYD), ZD(NXD, NYD), XI(NXI), YI(NYI)
+      real, intent(inout) :: ZI(NXI, NYI), WK(3, NXD, NYD)
+      integer, intent(out) :: ierr
+!
+! Rectangular-grid surface fitting
+! (a master subroutine of the RGBI3P/RGSF3P_sg subroutine package)
+!
+! Hiroshi Akima
+! U.S. Department of Commerce, NTIA/ITS
+! Version of 1995/08
+!
+! This subroutine performs surface fitting by interpolating
+! values of a bivariate function, z(x,y), on a rectangular grid
+! in the x-y plane.  It is based on the revised Akima method.
+!
+! In this subroutine, the interpolating function is a piecewise
+! function composed of a set of bicubic (bivariate third-degree)
+! polynomials, each applicable to a rectangle of the input grid
+! in the x-y plane.  Each polynomial is determined locally.
+!
+! This subroutine has the accuracy of a bicubic polynomial, i.e.,
+! it fits the surface accurately when all data points lie on a
+! surface of a bicubic polynomial.
+!
+! The grid lines of the input and output data can be unevenly
+! spaced.
+!
+! The input arguments are
+!   MD  = mode of computation
+!       = 1 for new XD, YD, or ZD data (default)
+!       = 2 for old XD, YD, and ZD data,
+!   NXD = number of the input-grid data points in the x
+!         coordinate (must be 2 or greater),
+!   NYD = number of the input-grid data points in the y
+!         coordinate (must be 2 or greater),
+!   XD  = array of dimension NXD containing the x coordinates
+!         of the input-grid data points (must be in a
+!         monotonic increasing order),
+!   YD  = array of dimension NYD containing the y coordinates
+!         of the input-grid data points (must be in a
+!         monotonic increasing order),
+!   ZD  = two-dimensional array of dimension NXD*NYD
+!         containing the z(x,y) values at the input-grid data
+!         points,
+!   NXI = number of output grid points in the x coordinate
+!         (must be 1 or greater),
+!   XI  = array of dimension NXI containing the x coordinates
+!         of the output grid points,
+!   NYI = number of output grid points in the y coordinate
+!         (must be 1 or greater),
+!   YI  = array of dimension NYI containing the y coordinates
+!         of the output grid points.
+!
+! The output arguments are
+!   ZI  = two-dimensional array of dimension NXI*NYI, where
+!         the interpolated z values at the output grid
+!         points are to be stored,
+!   ierr = error flag
+!       = 0 for no error
+!       = 1 for NXD = 1 or less
+!       = 2 for NYD = 1 or less
+!       = 3 for identical XD values or
+!               XD values out of sequence
+!       = 4 for identical YD values or
+!               YD values out of sequence
+!       = 5 for NXI = 0 or less
+!       = 6 for NYI = 0 or less.
+!
+! The other argument is
+!   WK  = three-dimensional array of dimension 3*NXD*NYD used
+!         internally as a work area.
+!
+! The very first call to this subroutine and the call with a new
+! XD, YD, or ZD array must be made with MD=1.  The call with MD=2
+! must be preceded by another call with the same XD, YD, and ZD
+! arrays.  Between the call with MD=2 and its preceding call, the
+! WK array must not be disturbed.
+
+      call do_RGSF3P_sg(MD, NXD, NYD, XD, YD, ZD, NXI, XI, NYI, YI, ZI, ierr, WK)
+   end subroutine interp_RGSF3P_sg
 
 ! ***********************************************************************
 ! ***********************************************************************
 ! ***********************************************************************
 ! ***********************************************************************
 
-
-
 ! cubic Shepard method for bivariate interpolation of scattered data.
 ! from ACM Algorithm 790., ACM Trans. Math. Software (25) 1999, 70-73.
 ! Robert J. Renka
@@ -240,12 +232,12 @@ end subroutine interp_RGSF3P_sg
 ! use CS2VAL_sg to evaluate it.
 ! use CS2GRD_sg to get value and derivatives.
 ! see interp_2d_lib_db for double precision versions.
-      
-      subroutine interp_CSHEP2_sg(N,X,Y,F,NC,NW,NR,LCELL,LNEXT,XMIN,YMIN,DX,DY,RMAX,RW,A,IER)
-         integer, intent(in) :: N, NC, NW, NR
-         integer, intent(out) :: LCELL(NR,NR), LNEXT(N), IER
-         real, intent(in) :: X(N), Y(N), F(N)
-         real, intent(inout) :: XMIN, YMIN, DX, DY, RMAX, RW(N), A(9,N)
+
+   subroutine interp_CSHEP2_sg(N, X, Y, F, NC, NW, NR, LCELL, LNEXT, XMIN, YMIN, DX, DY, RMAX, RW, A, ierr)
+      integer, intent(in) :: N, NC, NW, NR
+      integer, intent(out) :: LCELL(NR, NR), LNEXT(N), ierr
+      real, intent(in) :: X(N), Y(N), F(N)
+      real, intent(inout) :: XMIN, YMIN, DX, DY, RMAX, RW(N), A(9, N)
 !
 ! Here's the [slightly edited] documentation.
 !
@@ -351,24 +343,23 @@ subroutine interp_CSHEP2_sg(N,X,Y,F,NC,NW,NR,LCELL,LNEXT,XMIN,YMIN,DX,DY,RMAX,RW
 !           cubic nodal function C(k) in column k.
 !
 !   Note that the output parameters described above are not
-! defined unless IER = 0.
+! defined unless ierr = 0.
 !
-!       IER = Error indicator:
-!             IER = 0 if no errors were encountered.
-!             IER = 1 if N, NC, NW, or NR is outside its
+!       ierr = Error indicator:
+!             ierr = 0 if no errors were encountered.
+!             ierr = 1 if N, NC, NW, or NR is outside its
 !                     valid range.
-!             IER = 2 if duplicate nodes were encountered.
-!             IER = 3 if all nodes are collinear.
-   
-         call do_CSHEP2_sg(N,X,Y,F,NC,NW,NR,LCELL,LNEXT,XMIN,YMIN,DX,DY,RMAX,RW,A,IER)
+!             ierr = 2 if duplicate nodes were encountered.
+!             ierr = 3 if all nodes are collinear.
 
-      end subroutine interp_CSHEP2_sg
+      call do_CSHEP2_sg(N, X, Y, F, NC, NW, NR, LCELL, LNEXT, XMIN, YMIN, DX, DY, RMAX, RW, A, ierr)
 
+   end subroutine interp_CSHEP2_sg
 
-      real function interp_CS2VAL_sg(PX,PY,N,X,Y,F,NR,LCELL,LNEXT,XMIN,YMIN,DX,DY,RMAX,RW,A,IER)
-         integer, intent(in) :: N, NR, LCELL(NR,NR), LNEXT(N)
-         real, intent(in) :: PX, PY, X(N), Y(N), F(N), XMIN, YMIN, DX, DY, RMAX, RW(N), A(9,N)
-         integer, intent(out) :: IER
+   real function interp_CS2VAL_sg(PX, PY, N, X, Y, F, NR, LCELL, LNEXT, XMIN, YMIN, DX, DY, RMAX, RW, A, ierr)
+      integer, intent(in) :: N, NR, LCELL(NR, NR), LNEXT(N)
+      real, intent(in) :: PX, PY, X(N), Y(N), F(N), XMIN, YMIN, DX, DY, RMAX, RW(N), A(9, N)
+      integer, intent(out) :: ierr
 !
 !   This function returns the value C(PX,PY), where C is the
 ! weighted sum of cubic nodal functions defined in Subrou-
@@ -419,21 +410,20 @@ real function interp_CS2VAL_sg(PX,PY,N,X,Y,F,NR,LCELL,LNEXT,XMIN,YMIN,DX,DY,RMAX
 ! On output:
 !
 !       CS2VAL_sg = Function value C(PX,PY) unless N, NR, DX,
-!                DY, or RMAX is invalid, in which case IER /= 0.
+!                DY, or RMAX is invalid, in which case ierr /= 0.
 !
-!       IER = Error indicator:
-!             IER = 0 if no errors were encountered.
+!       ierr = Error indicator:
+!             ierr = 0 if no errors were encountered.
 !
-         real :: do_CS2VAL_sg         
-         interp_CS2VAL_sg = do_CS2VAL_sg(PX,PY,N,X,Y,F,NR,LCELL,LNEXT,XMIN,YMIN,DX,DY,RMAX,RW,A,IER)   
-      end function interp_CS2VAL_sg
-      
+      real :: do_CS2VAL_sg
+      interp_CS2VAL_sg = do_CS2VAL_sg(PX, PY, N, X, Y, F, NR, LCELL, LNEXT, XMIN, YMIN, DX, DY, RMAX, RW, A, ierr)
+   end function interp_CS2VAL_sg
 
-      subroutine interp_CS2GRD_sg(PX,PY,N,X,Y,F,NR,LCELL,LNEXT,XMIN,YMIN,DX,DY,RMAX,RW,A,C,CX,CY,IER)
-         integer, intent(in) :: N, NR, LCELL(NR,NR), LNEXT(N)
-         real, intent(in) :: PX, PY, X(N), Y(N), F(N), XMIN, YMIN, DX, DY, RMAX, RW(N), A(9,N)
-         real, intent(out) :: C, CX, CY
-         integer, intent(out) :: IER
+   subroutine interp_CS2GRD_sg(PX, PY, N, X, Y, F, NR, LCELL, LNEXT, XMIN, YMIN, DX, DY, RMAX, RW, A, C, CX, CY, ierr)
+      integer, intent(in) :: N, NR, LCELL(NR, NR), LNEXT(N)
+      real, intent(in) :: PX, PY, X(N), Y(N), F(N), XMIN, YMIN, DX, DY, RMAX, RW(N), A(9, N)
+      real, intent(out) :: C, CX, CY
+      integer, intent(out) :: ierr
 !
 !   This subroutine computes the value and gradient at P =
 ! (PX,PY) of the interpolatory function C defined in Sub-
@@ -482,30 +472,27 @@ subroutine interp_CS2GRD_sg(PX,PY,N,X,Y,F,NR,LCELL,LNEXT,XMIN,YMIN,DX,DY,RMAX,RW
 !
 ! On output:
 !
-!       C = Value of C at (PX,PY) unless IER .EQ. 1, in
+!       C = Value of C at (PX,PY) unless ierr .EQ. 1, in
 !           which case no values are returned.
 !
 !       CX,CY = First partial derivatives of C at (PX,PY)
-!               unless IER .EQ. 1.
+!               unless ierr .EQ. 1.
 !
-!       IER = Error indicator:
-!             IER = 0 if no errors were encountered.
-!             IER = 1 if N, NR, DX, DY or RMAX is invalid.
-!             IER = 2 if no errors were encountered but
+!       ierr = Error indicator:
+!             ierr = 0 if no errors were encountered.
+!             ierr = 1 if N, NR, DX, DY or RMAX is invalid.
+!             ierr = 2 if no errors were encountered but
 !                     (PX,PY) is not within the radius R(k)
 !                     for any node k (and thus C=CX=CY=0).
 
-         call do_CS2GRD_sg(PX,PY,N,X,Y,F,NR,LCELL,LNEXT,XMIN,YMIN,DX,DY,RMAX,RW,A,C,CX,CY,IER)
-      end subroutine interp_CS2GRD_sg
-
-
+      call do_CS2GRD_sg(PX, PY, N, X, Y, F, NR, LCELL, LNEXT, XMIN, YMIN, DX, DY, RMAX, RW, A, C, CX, CY, ierr)
+   end subroutine interp_CS2GRD_sg
 
 ! ***********************************************************************
 ! ***********************************************************************
 ! ***********************************************************************
 ! ***********************************************************************
 
-
 ! bicubic splines and hermite
 
 ! from PSPLINE by Doug McCune (version as of February, 2004)
@@ -513,24 +500,22 @@ end subroutine interp_CS2GRD_sg
 ! http://w3.pppl.gov/NTCC/PSPLINE
 ! Doug McCune, Princeton University
 !     dmccune@pppl.gov
-    
+
 ! use interp_mkbicub_sg to set up the interpolation information
 ! use interp_evbicub_sg to evaluate it
 ! see interp_2d_lib_db for double precision versions.
 
-      subroutine interp_mkbicub_sg(x,nx,y,ny,f1,nf2,
-     >   ibcxmin,bcxmin,ibcxmax,bcxmax,
-     >   ibcymin,bcymin,ibcymax,bcymax,
-     >   ilinx,iliny,ier)
+   subroutine interp_mkbicub_sg(x, nx, y, ny, f1, nf2, &
+                                ibcxmin, bcxmin, ibcxmax, bcxmax, ibcymin, bcymin, ibcymax, bcymax, ilinx, iliny, ierr)
 
-         use bicub_sg
+      use bicub_sg
 
-         integer, intent(in) :: nx                        ! length of x vector
-         integer, intent(in) :: ny                        ! length of y vector
-         real, intent(in) :: x(:) ! (nx)                        ! x vector, strict ascending
-         real, intent(in) :: y(:) ! (ny)                        ! y vector, strict ascending
-         integer, intent(in) :: nf2                       ! 2nd dimension of f, nf2.ge.nx
-         real, intent(inout), pointer :: f1(:) ! =(4,nf2,ny)               ! data & spline coefficients
+      integer, intent(in) :: nx                        ! length of x vector
+      integer, intent(in) :: ny                        ! length of y vector
+      real, intent(in) :: x(:) ! (nx)                  ! x vector, strict ascending
+      real, intent(in) :: y(:) ! (ny)                  ! y vector, strict ascending
+      integer, intent(in) :: nf2                       ! 2nd dimension of f, nf2.ge.nx
+      real, intent(inout), pointer :: f1(:) ! =(4,nf2,ny)   ! data & spline coefficients
 !
 !  on input:  f(1,i,j) = f(x(i),y(j))
 !  on output:  f(1,i,j) unchanged
@@ -564,13 +549,13 @@ subroutine interp_mkbicub_sg(x,nx,y,ny,f1,nf2,
 !
 !  input bdy condition data:
       integer, intent(in) :: ibcxmin                   ! bc flag for x=xmin
-      real, intent(in) :: bcxmin(:) ! (ny)                   ! bc data vs. y at x=xmin
+      real, intent(in) :: bcxmin(:) ! (ny)             ! bc data vs. y at x=xmin
       integer, intent(in) :: ibcxmax                   ! bc flag for x=xmax
-      real, intent(in) :: bcxmax(:) ! (ny)                   ! bc data vs. y at x=xmax
+      real, intent(in) :: bcxmax(:) ! (ny)             ! bc data vs. y at x=xmax
       integer, intent(in) :: ibcymin                   ! bc flag for y=ymin
-      real, intent(in) :: bcymin(:) ! (nx)                   ! bc data vs. x at y=ymin
+      real, intent(in) :: bcymin(:) ! (nx)             ! bc data vs. x at y=ymin
       integer, intent(in) :: ibcymax                   ! bc flag for y=ymax
-      real, intent(in) :: bcymax(:) ! (nx)                   ! bc data vs. x at y=ymax
+      real, intent(in) :: bcymax(:) ! (nx)             ! bc data vs. x at y=ymax
 !
 !  with interpretation:
 !   ibcxmin -- indicator for boundary condition at x(1):
@@ -596,16 +581,16 @@ subroutine interp_mkbicub_sg(x,nx,y,ny,f1,nf2,
 !  and analogous interpretation for ibcymin,bcymin,ibcymax,bcymax
 !  (df/dy or d2f/dy2 boundary conditions at y=ymin and y=ymax).
 !
-!  output linear grid flags and completion code (ier=0 is normal):
+!  output linear grid flags and completion code (ierr=0 is normal):
 !
       integer, intent(out) :: ilinx                     ! =1: x grid is "nearly" equally spaced
       integer, intent(out) :: iliny                     ! =1: y grid is "nearly" equally spaced
 !  ilinx and iliny are set to zero if corresponding grids are not equally
 !  spaced
 !
-      integer, intent(out) :: ier                       ! =0 on exit if there is no error.
+      integer, intent(out) :: ierr                      ! =0 on exit if there is no error.
 !
-!  if there is an error, ier is set and a message is output on unit 6.
+!  if there is an error, ierr is set and a message is output on unit 6.
 !  these are considered programming errors in the calling routine.
 !
 !  possible errors:
@@ -617,16 +602,11 @@ subroutine interp_mkbicub_sg(x,nx,y,ny,f1,nf2,
 !
 !-----------------------
 
-         call do_mkbicub(x,nx,y,ny,f1,nf2,
-     >         ibcxmin,bcxmin,ibcxmax,bcxmax,
-     >         ibcymin,bcymin,ibcymax,bcymax,
-     >         ilinx,iliny,ier)
+      call do_mkbicub(x, nx, y, ny, f1, nf2, ibcxmin, bcxmin, ibcxmax, bcxmax, ibcymin, bcymin, ibcymax, bcymax, ilinx, iliny, ierr)
 
-      end subroutine interp_mkbicub_sg
-      
-      
-      
-      subroutine interp_evbicub_sg(xget,yget,x,nx,y,ny,ilinx,iliny,f1,inf2,ict,fval,ier)
+   end subroutine interp_mkbicub_sg
+
+   subroutine interp_evbicub_sg(xget, yget, x, nx, y, ny, ilinx, iliny, f1, inf2, ict, fval, ierr)
 
       use bicub_sg
 
@@ -640,14 +620,14 @@ subroutine interp_evbicub_sg(xget,yget,x,nx,y,ny,ilinx,iliny,f1,inf2,ict,fval,ie
 !  this subroutine calls two subroutines:
 !     herm2xy  -- find cell containing (xget,yget)
 !     fvbicub  -- evaluate interpolant function and (optionally) derivatives
-      
+
 !  input arguments:
 !  ================
 !
-      integer, intent(in) :: nx,ny                     ! grid sizes
-      real, intent(in) :: xget,yget                    ! target of this interpolation
-      real, intent(in) :: x(:) ! (nx)                        ! ordered x grid
-      real, intent(in) :: y(:) ! (ny)                        ! ordered y grid
+      integer, intent(in) :: nx, ny                    ! grid sizes
+      real, intent(in) :: xget, yget                   ! target of this interpolation
+      real, intent(in) :: x(:) ! (nx)                  ! ordered x grid
+      real, intent(in) :: y(:) ! (ny)                  ! ordered y grid
       integer, intent(in) :: ilinx                     ! ilinx=1 => assume x evenly spaced
       integer, intent(in) :: iliny                     ! iliny=1 => assume y evenly spaced
 !
@@ -699,8 +679,8 @@ subroutine interp_evbicub_sg(xget,yget,x,nx,y,ny,ilinx,iliny,f1,inf2,ict,fval,ie
 ! output arguments:
 ! =================
 !
-      real, intent(inout) :: fval(6)                      ! output data
-      integer, intent(out) :: ier                       ! error code =0 ==> no error
+      real, intent(inout) :: fval(6)                     ! output data
+      integer, intent(out) :: ierr                       ! error code =0 ==> no error
 !
 !  fval(1) receives the first output (depends on ict(...) spec)
 !  fval(2) receives the second output (depends on ict(...) spec)
@@ -722,22 +702,19 @@ subroutine interp_evbicub_sg(xget,yget,x,nx,y,ny,ilinx,iliny,f1,inf2,ict,fval,ie
 !    on input ict = [0,0,1,0,0,0]
 !   on output fval= [df/dy] ... elements 2 -- 6 never referenced.
 !
-!  ier -- completion code:  0 means OK
+!  ierr -- completion code:  0 means OK
 !-------------------
 
-      integer i,j
-      integer ii(1), jj(1) 
-      real xparam(1),yparam(1),hx(1),hxi(1),hy(1),hyi(1)
-      call herm2xy(xget,yget,x,nx,y,ny,ilinx,iliny,i,j,
-     >         xparam(1),yparam(1),hx(1),hxi(1),hy(1),hyi(1),ier)
-      if(ier.ne.0) return
+      integer :: i, j
+      integer :: ii(1), jj(1)
+      real xparam(1), yparam(1), hx(1), hxi(1), hy(1), hyi(1)
+      call herm2xy(xget, yget, x, nx, y, ny, ilinx, iliny, i, j, xparam(1), yparam(1), hx(1), hxi(1), hy(1), hyi(1), ierr)
+      if (ierr /= 0) return
       ii(1) = i
       jj(1) = j
-      call fvbicub(ict,1,1,fval,ii,jj,xparam,yparam,hx,hxi,hy,hyi,f1,inf2,ny)
-
-      end subroutine interp_evbicub_sg
-      
+      call fvbicub(ict, 1, 1, fval, ii, jj, xparam, yparam, hx, hxi, hy, hyi, f1, inf2, ny)
 
+   end subroutine interp_evbicub_sg
 
 ! ***********************************************************************
 ! ***********************************************************************
@@ -746,33 +723,30 @@ end subroutine interp_evbicub_sg
 ! does 4 1d interpolations in x followed by 1 1d interpolation in y.
 ! use interp_mkbipm_db to set up the interpolation information
 ! use interp_evbipm_db to evaluate it
-      
-      subroutine interp_mkbipm_sg(x,nx,y,ny,f1,nf2,ier)
-         use bipm_sg, only: do_mkbipm_sg
-         integer, intent(in) :: nx                        ! length of x vector
-         integer, intent(in) :: ny                        ! length of y vector
-         real, intent(in), pointer :: x(:) ! (nx)            ! x vector, strict ascending
-         real, intent(in), pointer :: y(:) ! (ny)            ! y vector, strict ascending
-         integer, intent(in) :: nf2                       ! 2nd dimension of f, nf2.ge.nx
-         real, intent(inout), pointer :: f1(:) ! =(4,nf2,ny)   ! data & interpolant coefficients
-         integer, intent(out) :: ier                      ! =0 on exit if there is no error.   
-         call do_mkbipm_sg(x,nx,y,ny,f1,nf2,ier)
-      end subroutine interp_mkbipm_sg
-
-
-      subroutine interp_evbipm_sg(xget,yget,x,nx,y,ny,f1,nf2,z,ier)
-         use bipm_sg, only: do_evbipm_sg
-         integer, intent(in) :: nx,ny
-         real, intent(in) :: xget,yget        ! target of this interpolation
-         real, intent(in), pointer :: x(:) ! (nx)            ! ordered x grid
-         real, intent(in), pointer :: y(:) ! (ny)            ! ordered y grid
-         integer, intent(in) :: nf2
-         real, intent(in), pointer :: f1(:) ! =(4,nf2,ny)      ! function data
-         real, intent(out) :: z
-         integer, intent(out) :: ier                      ! error code =0 ==> no error
-         call do_evbipm_sg(xget,yget,x,nx,y,ny,f1,nf2,z,ier)   
-      end subroutine interp_evbipm_sg
-
-
-
-      end module interp_2d_lib_sg
+
+   subroutine interp_mkbipm_sg(x, nx, y, ny, f1, nf2, ierr)
+      use bipm_sg, only: do_mkbipm_sg
+      integer, intent(in) :: nx                        ! length of x vector
+      integer, intent(in) :: ny                        ! length of y vector
+      real, intent(in), pointer :: x(:) ! (nx)         ! x vector, strict ascending
+      real, intent(in), pointer :: y(:) ! (ny)         ! y vector, strict ascending
+      integer, intent(in) :: nf2                       ! 2nd dimension of f, nf2.ge.nx
+      real, intent(inout), pointer :: f1(:) ! =(4,nf2,ny)   ! data & interpolant coefficients
+      integer, intent(out) :: ierr                     ! =0 on exit if there is no error.
+      call do_mkbipm_sg(x, nx, y, ny, f1, nf2, ierr)
+   end subroutine interp_mkbipm_sg
+
+   subroutine interp_evbipm_sg(xget, yget, x, nx, y, ny, f1, nf2, z, ierr)
+      use bipm_sg, only: do_evbipm_sg
+      integer, intent(in) :: nx, ny
+      real, intent(in) :: xget, yget                   ! target of this interpolation
+      real, intent(in), pointer :: x(:) ! (nx)         ! ordered x grid
+      real, intent(in), pointer :: y(:) ! (ny)         ! ordered y grid
+      integer, intent(in) :: nf2
+      real, intent(in), pointer :: f1(:) ! =(4,nf2,ny)   ! function data
+      real, intent(out) :: z
+      integer, intent(out) :: ierr                     ! error code =0 ==> no error
+      call do_evbipm_sg(xget, yget, x, nx, y, ny, f1, nf2, z, ierr)
+   end subroutine interp_evbipm_sg
+
+end module interp_2d_lib_sg
diff --git a/interp_2d/test/make/makefile_base b/interp_2d/test/make/makefile_base
index 98343004d..a13c90dd0 100644
--- a/interp_2d/test/make/makefile_base
+++ b/interp_2d/test/make/makefile_base
@@ -25,9 +25,9 @@ LIBS_LOCAL = interp_2d
 DEPS_LOCAL = $(patsubst %,$(LOCAL_LIB_DIR)/lib%.$(LIB_SUFFIX),$(LIBS_LOCAL))
 LOAD_LOCAL = -L$(LOCAL_LIB_DIR) $(addprefix -l,$(LIBS_LOCAL))
 
-LIBS_OTHER = num interp_1d $(LIBS_MATRIX)
+LIBS_OTHER = num interp_1d auto_diff $(LIBS_MATRIX)
 DEPS_OTHER = $(patsubst %,$(MESA_LIB_DIR)/lib%.$(LIB_SUFFIX),$(LIBS_OTHER))
-LOAD_OTHER = -L$(MESA_LIB_DIR) -lnum -linterp_1d $(LOAD_MATRIX)
+LOAD_OTHER = -L$(MESA_LIB_DIR) -lnum -linterp_1d -lauto_diff $(LOAD_MATRIX)
 
 #################################################################
 #
diff --git a/interp_2d/test/src/interp_2d_support.f b/interp_2d/test/src/interp_2d_support.f
index 33803c7c2..102e6c09f 100644
--- a/interp_2d/test/src/interp_2d_support.f
+++ b/interp_2d/test/src/interp_2d_support.f
@@ -171,7 +171,7 @@ subroutine eval_2D_interp_db(bicub_flag,x,y,z,dz_dx,dz_dy)
          
          integer :: ict(6) ! code specifying output desired
          real(dp) :: fval(6) ! results
-         integer :: nf2, ix, jy
+         integer :: nf2
          integer :: ier ! error code =0 ==> no error
          
          nf2 = num_xpts
@@ -212,7 +212,7 @@ subroutine eval_2D_interp_sg(bicub_flag,x,y,z,dz_dx,dz_dy)
          
          integer :: ict(6) ! code specifying output desired
          real :: fval(6) ! results
-         integer :: nf2, ix, jy
+         integer :: nf2
          integer :: ier ! error code =0 ==> no error
          
 
diff --git a/interp_2d/test/src/test_renka790_db.f b/interp_2d/test/src/test_renka790_db.f
index d8d40812b..056bb732a 100644
--- a/interp_2d/test/src/test_renka790_db.f
+++ b/interp_2d/test/src/test_renka790_db.f
@@ -30,7 +30,7 @@ SUBROUTINE TEST_RENKA790_db
      .                 RMAX, SSA, SSE, SSM, SUM, XMIN, YMIN
 C      DOUBLE PRECISION CS2VAL_db
       INTEGER          I, IER, J, K, KF, KFF, KFL, KS, LOUT,
-     .                 N, NC, NFUN, NP, NR, NSET, NW, NWMAX
+     .                 N, NC, NFUN, NP, NR, NSET, NW
 C
 C Data:
 C
diff --git a/interp_2d/test/src/test_renka790_sg.f b/interp_2d/test/src/test_renka790_sg.f
index d107ede11..d9e95ec69 100644
--- a/interp_2d/test/src/test_renka790_sg.f
+++ b/interp_2d/test/src/test_renka790_sg.f
@@ -30,7 +30,7 @@ SUBROUTINE TEST_RENKA790_SG
      .                 RMAX, SSA, SSE, SSM, SUM, XMIN, YMIN
 C      REAL CS2VAL_sg
       INTEGER          I, IER, J, K, KF, KFF, KFL, KS, LOUT,
-     .                 N, NC, NFUN, NP, NR, NSET, NW, NWMAX
+     .                 N, NC, NFUN, NP, NR, NSET, NW
 C
 C Data:
 C
diff --git a/ionization/test/src/test_ionization_support.f b/ionization/test/src/test_ionization_support.f
index b8cbc285f..72ead98e1 100644
--- a/ionization/test/src/test_ionization_support.f
+++ b/ionization/test/src/test_ionization_support.f
@@ -146,10 +146,9 @@ end subroutine do_test_eval_ionization
       subroutine Build_Plots
          use const_lib
          use utils_lib, only: mkdir
-         integer :: ierr
          character(len=256) :: data_dir, dir
       
-         real(dp) :: log_ne_min,log_ne_max,logT_min,logT_max,dlog_ne,dlogT,lgRho,log_ne,logT
+         real(dp) :: log_ne_min,log_ne_max,logT_min,logT_max,dlog_ne,dlogT,log_ne,logT
       
          integer log_ne_points, logT_points
          integer i,j,k,info,io,io_first,io_last,io_log_ne,io_logT,num_vals
diff --git a/jenkins/Dockerfile b/jenkins/Dockerfile
index 5c38363bc..48d90fd86 100644
--- a/jenkins/Dockerfile
+++ b/jenkins/Dockerfile
@@ -12,6 +12,7 @@ RUN apt-get update && \
       tcsh \
       git \
       git-lfs \
+      python3 \
       ruby \
       && \
     apt-get autoremove --purge -y && \
diff --git a/kap/defaults/kap.defaults b/kap/defaults/kap.defaults
index 115bcd82b..168cdc847 100644
--- a/kap/defaults/kap.defaults
+++ b/kap/defaults/kap.defaults
@@ -12,10 +12,31 @@
    ! Zbase
    ! ~~~~~
 
-   ! The base metallicity for the opacity tables.  This provides the
+   ! The base metallicity for the opacity tables. This provides the
    ! reference metallicity necessary to calculate element variations.
    ! Physically, this usually corresponds to the initial metallicity
-   ! of the star.
+   ! of the model and remains static during the entirety of a 
+   ! calculation. Variations in metallicity from nuclear burning and
+   ! mixing should not alter Zbase as its purpose is to serve as a
+   ! reference metallicity for C and O enhancement during Helium burning. 
+
+   ! See ``use_Zbase_for_Type1``. By default, Zbase does not typically affect the
+   ! outer regions of a stellar model when the surface metallicity remains 
+   ! below the initial metallicity (Z < Zbase). Zbase is typically 
+   ! only used for Type2 opacities which operate deeper in the stellar interior. 
+
+   ! Specific scenarios such as high Z accretion onto a metal poor model
+   ! can produce a situation where (Z > Zbase). During this scenario
+   ! the surface metallicity can be enhanced beyond the initial metallicity. 
+   ! Users can opt to exclusively adopt Type1 opacities in this scenario with
+   ! the ``use_Zbase_for_Type1`` flag.
+
+   ! NOTE: For wind schemes that scale with metallicity, we use Zbase rather than Z (as long as Zbase > 0).
+      ! This is because wind mass loss rate is primarily determined by iron opacity,
+      ! which is unlikely to change during the evolution. 
+
+   ! Zbase must be set if using kapCN, AESOPUS, or Type2
+   ! opacities or else MESA well draw an error. 
    ! ::
 
       Zbase = -1
@@ -33,11 +54,26 @@
    ! These tables use the value of ``Zbase`` for Z, unless ``use_Zbase_for_Type1 = .false.``.
 
    ! The Type1 tables cover a wider range of X and have a higher resolution in
-   ! Z for each X than Type2.  The Type1 tables are for (X,Z) pairs from the following sets:
+   ! Z for each X than Type2.  The OPAL/OP Type1 tables are for 126 (X,Z) pairs from the following sets:
    !
    ! + X:  0.0, 0.1, 0.2, 0.35, 0.5, 0.7, 0.8, 0.9, 0.95, 1-Z
    ! + Z: 0.0, 1e-4, 3e-4, 1e-3, 2e-3, 4e-3, 1e-2, 2e-2, 3e-2, 4e-2, 6e-2, 8e-1, 1e-1
 
+   !The OPLIB Type1 tables offer additional table density, for 1194 (X,Z) pairs from the following sets:
+   !
+   ! + X:  0.0, 0.000001, 0.00001, 0.0001, 0.001, 0.01, 0.05, 0.1,
+   ! + 0.15, 0.2, 0.25, 0.3, 0.35, 0.4, 0.45, 0.5, 
+   ! + 0.55, 0.6, 0.65, 0.7, 0.75, 0.8, 0.85, 0.9, 
+   ! + 0.91, 0.92, 0.93, 0.94, 0.95, 0.96, 0.97, 
+   ! + 0.98, 0.99, 1-Z
+
+   ! + Z: 0.0, 0.000001, 0.00001, 0.00003, 0.00007, 0.0001,
+   ! + 0.0003, 0.0007, 0.001, 0.002, 0.003, 0.004,0.006,
+   ! + 0.008, 0.01, 0.012, 0.014, 0.015, 0.016, 0.017, 0.018,
+   ! + 0.019, 0.02, 0.021, 0.022, 0.023, 0.024, 0.025, 0.026,
+   ! + 0.028, 0.03, 0.035, 0.04, 0.05, 0.06, 0.07, 0.08,
+   ! + 0.09, 0.1, 0.15, 0.2
+
 
    ! Available options:
 
@@ -46,6 +82,10 @@
    ! + ``'a09'``
    ! + ``'OP_gs98'``
    ! + ``'OP_a09_nans_removed_by_hand'``
+   ! + ``'oplib_gs98``'
+   ! + ``'oplib_agss09``'
+   ! + ``'oplib_aag21``'
+   ! + ``'oplib_mb22``'
    !
    ! ::
 
@@ -88,6 +128,8 @@
 
    ! Available options:
 
+   ! + ``'lowT_fa05_mb22'``
+   ! + ``'lowT_fa05_aag21'``
    ! + ``'lowT_Freedman11'``
    ! + ``'lowT_fa05_gs98'``
    ! + ``'lowT_fa05_gn93'``
diff --git a/kap/kap_data.tar.xz b/kap/kap_data.tar.xz
index 3172b9731..5783cad12 100644
--- a/kap/kap_data.tar.xz
+++ b/kap/kap_data.tar.xz
@@ -1,3 +1,3 @@
 version https://git-lfs.github.com/spec/v1
-oid sha256:95ca3578795e6d81ddb7ec8c896c9853fbf36bd5ec0dd7a6d213a35dee02d590
-size 50108664
+oid sha256:05d43caa14cadc43eedd4d26e5182acc416cae7434dd4ba8a0a55e8eedd5129c
+size 95406276
diff --git a/kap/plotter/inlist_plotter b/kap/plotter/inlist_plotter
index 461a292fb..c02c5f339 100644
--- a/kap/plotter/inlist_plotter
+++ b/kap/plotter/inlist_plotter
@@ -12,6 +12,9 @@
   !### put kap options here
   ! see kap/defaults/kap.defaults
 
+  ! cubic_interpolation_in_X = .true.
+  ! cubic_interpolation_in_Z = .true.
+
   use_Type2_opacities = .false.
   Zbase = 0
 
@@ -42,9 +45,9 @@
   !### pick number of points
   ! values for non-xname,yname variables are ignored
 
-  nT = 100
-  nRho = 100
-  nX = 100
+  nT = 301
+  nRho = 301
+  nX = 500
   nZ = 150
 
   !### pick plot limits
@@ -52,23 +55,23 @@
   ! center/delta takes precedence over min/max
   ! center is used when var is not xname/yname
 
-  X_center = 0.76
-  Z_center = 0.00
+  X_center = 0.625d0 ! 0.7d0
+  Z_center = 5d-4 ! closest grid points are at Z = 3d-4 and 1d-3
 
-  delta_X = 0.1
-  delta_Z = 0.1
+  delta_X = 0.0
+  delta_Z = 0.0
 
   X_min = 0
   X_max = 1
 
-  Z_min = 0
-  Z_max = 0.1
+  ! Z_min = 0
+  ! Z_max = 0.1
 
-  logT_center = 4.0
-  logRho_center = -8.5
+  logT_center = 6d0
+  logRho_center = -2d0
 
-  delta_logT = 1.0d0
-  delta_logRho = 0.5d0
+  delta_logT = 8d0
+  delta_logRho = 24d0
 
   ! logT_min = 3.8
   ! logT_max = 4.2
diff --git a/kap/plotter/plotter.py b/kap/plotter/plotter.py
index 50c15316f..2ef1dafc8 100755
--- a/kap/plotter/plotter.py
+++ b/kap/plotter/plotter.py
@@ -24,7 +24,7 @@ def parse(fname):
 kapDT, Yran, Xran = parse('kap_plotter.dat')
 
 # set up plot and labels
-fig, ax = plt.subplots()
+fig, ax = plt.subplots(figsize=(4,3))
 ax.set_title(title)
 ax.set_xlabel(xlabel)
 ax.set_ylabel(ylabel)
@@ -32,14 +32,14 @@ def parse(fname):
 ax.set_ylim(Yran.min(), Yran.max())
 
 # set up color map
-cmap = copy.copy(mpl.cm.get_cmap("viridis"))
-cmap.set_over('white')
+cmap = copy.copy(mpl.cm.get_cmap("coolwarm"))
+cmap.set_over('tab:red')
 cmap.set_under('black')
 
 # set color bar limits
 # None will auto-set limits
-cbar_min = None
-cbar_max = None
+cbar_min = -14
+cbar_max = 2
 
 pcol = ax.pcolormesh(Xran, Yran, kapDT[...,2], shading='nearest', cmap=cmap, vmin=cbar_min, vmax=cbar_max)
 pcol.set_edgecolor('face')
@@ -47,6 +47,6 @@ def parse(fname):
 cax.set_label('')
 
 # save figure
-fig.savefig('kap_plotter.png', dpi=150)
+fig.savefig('kap_plotter.png', dpi=300)
 
 plt.show()
diff --git a/kap/plotter/src/kap_plotter.f90 b/kap/plotter/src/kap_plotter.f90
index 84229b06d..0acad7bcb 100644
--- a/kap/plotter/src/kap_plotter.f90
+++ b/kap/plotter/src/kap_plotter.f90
@@ -8,6 +8,7 @@ program kap_plotter
    use chem_lib
    use const_lib
    use math_lib
+   use utils_lib
    use num_lib, only : dfridr
 
    implicit none
@@ -285,12 +286,32 @@ program kap_plotter
             eos_handle, species, chem_id, net_iso, xa, &
             Rho, log10Rho, T, log10T, &
             res, d_dlnd, d_dlnT, d_dxa, ierr)
-         if (ierr /= 0) then
+         ! ierr /= 0 is okay as long as the following inputs to kap are fine
+         if(is_bad(res(i_lnfree_e)) .or. is_bad(d_dlnd(i_lnfree_e)) .or. is_bad(d_dlnT(i_lnfree_e)) .or. &
+              is_bad(res(i_eta)) .or. is_bad(d_dlnd(i_eta)) .or. is_bad(d_dlnT(i_eta))) then
             write(*,*) 'failed in eosDT_get'
             write(*,1) 'log10Rho', log10Rho
             write(*,1) 'log10T', log10T
+            write(*,'(A)')
+            write(*,1) 'eos_frac_FreeEOS', res(i_frac_FreeEOS)
+            write(*,1) 'eos_frac_OPAL_SCVH', res(i_frac_OPAL_SCVH)
+            write(*,1) 'eos_frac_Skye',    res(i_frac_Skye)
+            write(*,1) 'eos_frac_HELM',    res(i_frac_HELM)
+            write(*,1) 'eos_frac_ideal',   res(i_frac_ideal)
+            write(*,'(A)')
+            write(*,1) 'lnfree_e', res(i_lnfree_e)
+            write(*,1) 'd_dlnd(lnfree_e)', d_dlnd(i_lnfree_e)
+            write(*,1) 'd_dlnT(lnfree_e)', d_dlnT(i_lnfree_e)
+            write(*,1) 'eta', res(i_eta)
+            write(*,1) 'd_dlnd(eta)', d_dlnd(i_eta)
+            write(*,1) 'd_dlnT(eta)', d_dlnT(i_eta)
             call mesa_error(__FILE__,__LINE__)
          end if
+
+         call set_nan(kap)
+         call set_nan(dlnkap_dlnRho)
+         call set_nan(dlnkap_dlnT)
+         call set_nan(dlnkap_dxa)
          
          call kap_get( &
               kap_handle, species, chem_id, net_iso, xa, log10Rho, log10T, &
@@ -322,7 +343,7 @@ program kap_plotter
             err = 0d0
             dvardx = dfridr(dx_0,dfridr_func,err)
             xdum = (dvardx - dvardx_0)/max(abs(dvardx_0),min_derivative_error)
-            res1 = safe_log10(abs(xdum))
+            res1 = log10(abs(xdum))
          end if
 
 
diff --git a/kap/preprocessor/inlist_lowT_fa05_aag21 b/kap/preprocessor/inlist_lowT_fa05_aag21
new file mode 100644
index 000000000..43a2f4998
--- /dev/null
+++ b/kap/preprocessor/inlist_lowT_fa05_aag21
@@ -0,0 +1,15 @@
+&kappa
+
+         data_dir = 'kap_input_data/wichita/aag21'		
+         lowT_flag = .true.
+         logT_file = 'logT_points_lowT_2.7'
+         logR_min = -8.00d0
+         logR_max = 2.00d0
+         logR_points = 51
+         type1_table = 'aag21'
+         output_dir = 'data/kap_data'
+         table_prefix = 'lowT_fa05_aag21'
+         header_info = 'low temperature opacities from Ferguson, Alexander, et al (2005) with AAG21 photospheric metals'
+         table_version= 38
+
+/
diff --git a/kap/preprocessor/inlist_lowT_fa05_mb22 b/kap/preprocessor/inlist_lowT_fa05_mb22
new file mode 100644
index 000000000..ba655fe8f
--- /dev/null
+++ b/kap/preprocessor/inlist_lowT_fa05_mb22
@@ -0,0 +1,15 @@
+&kappa
+
+         data_dir = 'kap_input_data/wichita/mb22'		
+         lowT_flag = .true.
+         logT_file = 'logT_points_lowT_2.7'
+         logR_min = -8.00d0
+         logR_max = 2.00d0
+         logR_points = 51
+         type1_table = 'magg21'
+         output_dir = 'data/kap_data'
+         table_prefix = 'lowT_fa05_mb22'
+         header_info = 'low temperature opacities from Ferguson, Alexander, et al (2005) with MB22 photospheric metals'
+         table_version= 38
+
+/
diff --git a/kap/preprocessor/kap_input_data.tar.xz b/kap/preprocessor/kap_input_data.tar.xz
index 0bfa06613..642ca3ad9 100644
--- a/kap/preprocessor/kap_input_data.tar.xz
+++ b/kap/preprocessor/kap_input_data.tar.xz
@@ -1,3 +1,3 @@
 version https://git-lfs.github.com/spec/v1
-oid sha256:a674bd84bbaf1126f635094666d99c3644875aa5d105b5f7ec86a4d0a723b45c
-size 18646724
+oid sha256:148124653fa74bb54fe0d919df7f3ee6beb617d8f6b153401e3e3b86a0efa3a3
+size 47137640
diff --git a/kap/preprocessor/rebuild_all b/kap/preprocessor/rebuild_all
index af9e0a70e..790c7f4c6 100755
--- a/kap/preprocessor/rebuild_all
+++ b/kap/preprocessor/rebuild_all
@@ -36,6 +36,26 @@ function do_one_CO {
 	echo
 }
 
+function do_one_oplib {
+	echo "using" $1
+	echo
+	check_okay
+	cd kap_input_data/oplib/
+	check_okay
+	python spline_OPLIB_tables.py $1
+	check_okay
+	echo $1_spline
+	check_okay
+    cp -r $1_spline/* ../../data/kap_data/.
+	check_okay
+	rm -rf $1_spline
+	check_okay
+	cd ../..
+	check_okay
+	echo 'done' $1
+	echo
+}
+
 mkdir -p data/kap_data
 
 rm -f data/kap_data/*.data
@@ -81,6 +101,17 @@ do_one_CO inlist_gs98_aFe_p4_CO
 do_one inlist_gs98_aFe_p6 
 do_one inlist_gs98_aFe_p8 
 
+do_one_oplib OPLIB_GS98_LOG_1194_25E
+do_one_oplib OPLIB_AGSS09_LOG_1194_25E
+do_one_oplib OPLIB_AAG21_LOG_1194_25E
+do_one_oplib OPLIB_MB22_LOG_1194_25E
+
+
+do_one inlist_lowT_fa05_mb22
+# temporary, until ferguson files issues are addressed
+#do_one inlist_lowT_fa05_aag21
+cp -r kap_input_data/wichita/AAG21_lowT_MESA_tables/*  data/kap_data/.
+
 
 
 echo "**************"
diff --git a/kap/preprocessor/rn_oplib b/kap/preprocessor/rn_oplib
new file mode 100755
index 000000000..4f59d1c91
--- /dev/null
+++ b/kap/preprocessor/rn_oplib
@@ -0,0 +1,35 @@
+#!/bin/bash
+
+
+function do_one_oplib { 
+        echo "using" $1
+        echo
+        check_okay
+        cd kap_input_data/oplib/
+        check_okay
+        python spline_OPLIB_tables.py $1 
+        check_okay   
+        echo $1_spline
+        check_okay
+        cp -r $1_spline/* ../../data/kap_data/.
+        check_okay
+        rm -rf $1_spline
+        check_okay
+        cd ../..
+        check_okay
+        echo 'done' $1
+        echo
+}
+
+
+do_one_oplib kap_input_data/oplib/OPLIB_GS98_LOG_1194_25E
+do_one_oplib kap_input_data/oplib/OPLIB_AGSS09_LOG_1194_25E
+do_one_oplib kap_input_data/oplib/OPLIB_AAG21_LOG_1194_25E
+do_one_oplib kap_input_data/oplib/OPLIB_MB22_LOG_1194_25E
+
+
+echo "**************************"
+echo "**************************"
+echo "done building oplib tables"
+echo "**************************"
+echo "**************************"
diff --git a/kap/private/kap_aesopus.f90 b/kap/private/kap_aesopus.f90
index fadc6ae16..7afbbc629 100644
--- a/kap/private/kap_aesopus.f90
+++ b/kap/private/kap_aesopus.f90
@@ -25,7 +25,7 @@
 
 module kap_aesopus
 
-  use hdf5io_lib
+  use forum_m, only: hdf5io_t, OPEN_FILE_RO
   use math_lib
   use kap_def
 
@@ -41,7 +41,6 @@ module kap_aesopus
 contains
 
   subroutine kap_aesopus_init(rq, ierr)
-    use const_def, only: mesa_data_dir
     use kap_def, only: kap_aesopus_is_initialized
     type (Kap_General_Info), pointer :: rq
     integer, intent(out) :: ierr
@@ -74,7 +73,7 @@ subroutine read_kap_aesopus_tables(rq, ierr)
     integer, intent(out) :: ierr
 
     character(len=256) :: filename
-    integer :: n, io
+    integer :: n
     integer :: iX, iCO, iC, iN
 
     type(hdf5io_t) :: hi, hi_ts
@@ -336,7 +335,7 @@ subroutine AESOPUS_interp(Zref, X, XC, XN, XO, logR, logT, res, ierr)
     real(dp), intent(in) :: Zref, X, XC, XN, XO, logR, logT
     real(dp), intent(out) :: res(3)
     integer, intent(out) :: ierr
-    real(dp), pointer :: Z_ary(:), work1(:)
+    real(dp), pointer :: work1(:)
     integer, parameter :: nZ = 3
     integer :: i,iZ
     real(dp) :: my_Z, raw_res(3, nZ), x_new(1), v_new(1)
@@ -525,8 +524,6 @@ subroutine clipped_linear_weights(val, len, vec, loc, weights, clipped)
       real(dp), dimension(2), intent(out) :: weights ! for linear interpolation
       logical, intent(out) :: clipped ! did we clip? if so, only locs(1)/weights(1) matter
 
-      integer :: i
-
       weights = 0
 
       ! clip to range, if needed
diff --git a/kap/private/kap_ctrls_io.f90 b/kap/private/kap_ctrls_io.f90
index 50629d7a0..22fa0fdd5 100644
--- a/kap/private/kap_ctrls_io.f90
+++ b/kap/private/kap_ctrls_io.f90
@@ -144,7 +144,6 @@ subroutine read_namelist(handle, inlist, ierr)
       character (len=*), intent(in) :: inlist
       integer, intent(out) :: ierr ! 0 means AOK.
       type (Kap_General_Info), pointer :: rq
-      integer :: iz, j
       include 'formats'
       call get_kap_ptr(handle,rq,ierr)
       if (ierr /= 0) return
@@ -161,7 +160,6 @@ recursive subroutine read_controls_file(rq, filename, level, ierr)
       integer, intent(in) :: level
       integer, intent(out) :: ierr
       logical, dimension(max_extra_inlists) :: read_extra
-      character (len=strlen) :: message
       character (len=strlen), dimension(max_extra_inlists) :: extra
       integer :: unit, i
 
diff --git a/kap/private/kap_eval_co.f90 b/kap/private/kap_eval_co.f90
index c317e6d7d..0fec331e7 100644
--- a/kap/private/kap_eval_co.f90
+++ b/kap/private/kap_eval_co.f90
@@ -167,7 +167,8 @@ subroutine Get_Kap_for_CO_Z_cubic(rq, iz, Z, X, dXC, dXO, logRho, logT, &
                logK, dlnkap_dlnRho, dlnkap_dlnT, ierr)
          use kap_def
          use interp_1d_def, only: pm_work_size
-         use interp_1d_lib, only: interpolate_vector, interp_pm
+         use interp_1d_lib, only: interpolate_vector_autodiff, interp_pm_autodiff
+         use auto_diff
 
          type (Kap_General_Info), pointer :: rq
          integer, intent(in) :: iz
@@ -178,9 +179,11 @@ subroutine Get_Kap_for_CO_Z_cubic(rq, iz, Z, X, dXC, dXO, logRho, logT, &
          
          integer, parameter :: n_old = 4, n_new = 1
          real(dp), dimension(n_old) :: logKs, dlogKs_dlogRho, dlogKs_dlogT
-         real(dp) :: z_old(n_old), z_new(n_new)
-         real(dp), target :: work_ary(n_old*pm_work_size)
-         real(dp), pointer :: work(:)
+         type(auto_diff_real_2var_order1), dimension(n_old) :: logKs_ad
+         type(auto_diff_real_2var_order1) :: logK_ad
+         type(auto_diff_real_2var_order1) :: z_old(n_old), z_new(n_new)
+         type(auto_diff_real_2var_order1), target :: work_ary(n_old*pm_work_size)
+         type(auto_diff_real_2var_order1), pointer :: work(:)
          integer :: i, i1, izz, num_Zs, CO_option
          
          logical, parameter :: dbg = .false.
@@ -210,7 +213,9 @@ subroutine Get_Kap_for_CO_Z_cubic(rq, iz, Z, X, dXC, dXO, logRho, logT, &
          
          do i=1,n_old
             izz = i1-2+i
-            z_old(i) = kap_co_z_tables(CO_option)% ar(izz)% Zbase
+            z_old(i) %val= kap_co_z_tables(CO_option)% ar(izz)% Zbase
+            z_old(i) % d1val1 = 0d0
+            z_old(i) % d1val2 = 0d0
             if (dbg) then
                write(*,*) 'izz', izz
                write(*,*) 'z_old', i, z_old(i)
@@ -222,27 +227,26 @@ subroutine Get_Kap_for_CO_Z_cubic(rq, iz, Z, X, dXC, dXO, logRho, logT, &
             if (ierr /= 0) then
                return
             end if
+            ! now pack into auto_diff form
+            logKs_ad(i) % val = logKs(i)
+            logKs_ad(i) % d1val1 = dlogKs_dlogT(i)
+            logKs_ad(i) % d1val2 = dlogKs_dlogRho(i)
          end do
-         z_new(1) = Z
-         
-         call interp1(logKs, logK, ierr)
+         z_new(1) % val = Z
+         z_new(1) % d1val1 = 0d0
+         z_new(1) % d1val2 = 0d0
+
+         call interp1(logKs_ad, logK_ad, ierr)
          if (ierr /= 0) then
             call mesa_error(__FILE__,__LINE__,'failed in interp1 for logK')
             return
          end if
-         
-         call interp1(dlogKs_dlogRho, dlnkap_dlnRho, ierr)
-         if (ierr /= 0) then
-            call mesa_error(__FILE__,__LINE__,'failed in interp1 for dlogK_dlogRho')
-            return
-         end if
-                  
-         call interp1(dlogKs_dlogT, dlnkap_dlnT, ierr)
-         if (ierr /= 0) then
-            call mesa_error(__FILE__,__LINE__,'failed in interp1 for dlogK_dlogT')
-            return
-         end if
-         
+
+         ! unpack auto_diff pack into output reals
+         logK = logK_ad % val
+         dlnkap_dlnT = logK_ad % d1val1
+         dlnkap_dlnRho = logK_ad % d1val2
+
          if (dbg) then
          
             do i=1,n_old
@@ -278,13 +282,16 @@ subroutine Get_Kap_for_CO_Z_cubic(rq, iz, Z, X, dXC, dXO, logRho, logT, &
          contains
          
          subroutine interp1(old, new, ierr)
-            real(dp), intent(in) :: old(n_old)
-            real(dp), intent(out) :: new
+            type(auto_diff_real_2var_order1), intent(in) :: old(n_old)
+            type(auto_diff_real_2var_order1), intent(out) :: new
             integer, intent(out) :: ierr
-            real(dp) :: v_old(n_old), v_new(n_new)
-            v_old(:) = dble(old(:))
-            call interpolate_vector( &
-               n_old, z_old, n_new, z_new, v_old, v_new, interp_pm, pm_work_size, work, &
+            type(auto_diff_real_2var_order1) :: v_old(n_old), v_new(n_new)
+            integer :: i
+            do i = 1, n_old
+               v_old(i) = old(i)
+            end do
+            call interpolate_vector_autodiff( &
+               n_old, z_old, n_new, z_new, v_old, v_new, interp_pm_autodiff, pm_work_size, work, &
                'Get_Kap_for_CO_Z_cubic', ierr)
             new = v_new(1)
          end subroutine interp1
@@ -440,7 +447,8 @@ subroutine Get_Kap_for_CO_X_cubic( &
             logK, dlogK_dlogRho, dlogK_dlogT, ierr)
          use kap_def
          use interp_1d_def, only: pm_work_size
-         use interp_1d_lib, only: interpolate_vector, interp_pm
+         use interp_1d_lib, only: interpolate_vector_autodiff, interp_pm_autodiff
+         use auto_diff
 
          ! return opacity from Z table number iz for the given X, XC, XO
          type (Kap_General_Info), pointer :: rq
@@ -453,9 +461,11 @@ subroutine Get_Kap_for_CO_X_cubic( &
          
          integer, parameter :: n_old = 4, n_new = 1
          real(dp), dimension(n_old) :: logKs, dlogKs_dlogRho, dlogKs_dlogT
-         real(dp) :: x_old(n_old), x_new(n_new)
-         real(dp), target :: work_ary(n_old*pm_work_size)
-         real(dp), pointer :: work(:)
+         type(auto_diff_real_2var_order1), dimension(n_old) :: logKs_ad
+         type(auto_diff_real_2var_order1) :: logK_ad
+         type(auto_diff_real_2var_order1) :: x_old(n_old), x_new(n_new)
+         type(auto_diff_real_2var_order1), target :: work_ary(n_old*pm_work_size)
+         type(auto_diff_real_2var_order1), pointer :: work(:)
          integer :: i, i1, ixx, num_Xs
          
          logical, parameter :: dbg = .false.
@@ -480,8 +490,9 @@ subroutine Get_Kap_for_CO_X_cubic( &
          do i=1,n_old
             ixx = i1-2+i
             if (dbg) write(*,*) 'ixx', ixx
-            x_old(i) = x_tables(ixx)% X
-
+            x_old(i) % val = x_tables(ixx)% X
+            x_old(i) % d1val1 = 0d0
+            x_old(i) % d1val2 = 0d0
             call Get_Kap_for_dXCO( &
                   rq, iz, x_tables, dXC, dXO, ixx, &
                   logRho, logT, logKs(i), dlogKs_dlogRho(i), dlogKs_dlogT(i), ierr)
@@ -490,27 +501,26 @@ subroutine Get_Kap_for_CO_X_cubic( &
                if (dbg) write(*,11) 'logT', logT
                return
             end if
+            ! now pack into auto_diff form
+            logKs_ad(i) % val = logKs(i)
+            logKs_ad(i) % d1val1 = dlogKs_dlogT(i)
+            logKs_ad(i) % d1val2 = dlogKs_dlogRho(i)
          end do
-         x_new(1) = X
-         
-         call interp1(logKs, logK, ierr)
+         x_new(1) % val = X
+         x_new(1) % d1val1 = 0d0
+         x_new(1) % d1val2 = 0d0
+
+         call interp1(logKs_ad, logK_ad, ierr)
          if (ierr /= 0) then
             call mesa_error(__FILE__,__LINE__,'failed in interp1 for logK')
             return
          end if
-         
-         call interp1(dlogKs_dlogRho, dlogK_dlogRho, ierr)
-         if (ierr /= 0) then
-            call mesa_error(__FILE__,__LINE__,'failed in interp1 for dlogK_dlogRho')
-            return
-         end if
-                  
-         call interp1(dlogKs_dlogT, dlogK_dlogT, ierr)
-         if (ierr /= 0) then
-            call mesa_error(__FILE__,__LINE__,'failed in interp1 for dlogK_dlogT')
-            return
-         end if
-         
+                 
+        ! unpack auto_diff pack into output reals
+        logK = logK_ad % val
+        dlogK_dlogT = logK_ad % d1val1
+        dlogK_dlogRho = logK_ad % d1val2
+
          if (dbg) then
          
             do i=1,n_old
@@ -542,15 +552,18 @@ subroutine Get_Kap_for_CO_X_cubic( &
          contains
          
          subroutine interp1(old, new, ierr)
-            real(dp), intent(in) :: old(n_old)
-            real(dp), intent(out) :: new
+            type(auto_diff_real_2var_order1), intent(in) :: old(n_old)
+            type(auto_diff_real_2var_order1), intent(out) :: new
             integer, intent(out) :: ierr
-            real(dp) :: v_old(n_old), v_new(n_new)
-            v_old(:) = dble(old(:))
-            call interpolate_vector( &
-                  n_old, x_old, n_new, x_new, v_old, v_new, interp_pm, pm_work_size, work, &
+            type(auto_diff_real_2var_order1) :: v_old(n_old), v_new(n_new)
+            integer :: i
+            do i = 1, n_old
+               v_old(i) = old(i)
+            end do
+            call interpolate_vector_autodiff( &
+                  n_old, x_old, n_new, x_new, v_old, v_new, interp_pm_autodiff, pm_work_size, work, &
                   'Get_Kap_for_CO_X_cubic', ierr)
-            new = real(v_new(1),kind=dp)
+            new = v_new(1)
          end subroutine interp1
       
       end subroutine Get_Kap_for_CO_X_cubic
diff --git a/kap/private/kap_eval_fixed.f90 b/kap/private/kap_eval_fixed.f90
index f11b7352e..ea963eed8 100644
--- a/kap/private/kap_eval_fixed.f90
+++ b/kap/private/kap_eval_fixed.f90
@@ -176,7 +176,8 @@ subroutine Get_Kap_for_Z_cubic( &
             logK, dlnkap_dlnRho, dlnkap_dlnT, ierr)
          use kap_def
          use interp_1d_def, only: pm_work_size
-         use interp_1d_lib, only: interpolate_vector, interp_pm
+         use interp_1d_lib, only: interpolate_vector_autodiff, interp_pm_autodiff
+         use auto_diff
 
          type (Kap_Z_Table), dimension(:), pointer :: z_tables
          type (Kap_General_Info), pointer :: rq
@@ -188,11 +189,13 @@ subroutine Get_Kap_for_Z_cubic( &
          
          integer, parameter :: n_old = 4, n_new = 1
          real(dp), dimension(n_old) :: logKs, dlogKs_dlogRho, dlogKs_dlogT
-         real(dp) :: z_old(n_old), z_new(n_new)
+         type(auto_diff_real_2var_order1), dimension(n_old) :: logKs_ad
+         type(auto_diff_real_2var_order1) :: logK_ad
+         type(auto_diff_real_2var_order1) :: z_old(n_old), z_new(n_new)
+         type(auto_diff_real_2var_order1), target :: work_ary(n_old*pm_work_size)
+         type(auto_diff_real_2var_order1), pointer :: work(:)
          integer :: i, i1, izz
-         real(dp), target :: work_ary(n_old*pm_work_size)
-         real(dp), pointer :: work(:)
-         
+
          logical, parameter :: dbg = .false.
          
          11 format(a40,e20.10)
@@ -213,7 +216,9 @@ subroutine Get_Kap_for_Z_cubic( &
          do i=1,n_old
             izz = i1-2+i
             if (dbg) write(*,*) 'izz', izz
-            z_old(i) = z_tables(izz)% Z
+            z_old(i) %val = z_tables(izz)% Z
+            z_old(i) % d1val1 = 0d0
+            z_old(i) % d1val2 = 0d0
             call Get_Kap_for_X( &
                z_tables, rq, izz, X, logRho, logT, &
                logKs(i), dlogKs_dlogRho(i), dlogKs_dlogT(i), ierr)
@@ -222,27 +227,26 @@ subroutine Get_Kap_for_Z_cubic( &
                if (dbg) write(*,11) 'logT', logT
                return
             end if
+            ! now pack into auto_diff form
+            logKs_ad(i) % val = logKs(i)
+            logKs_ad(i) % d1val1 = dlogKs_dlogT(i)
+            logKs_ad(i) % d1val2 = dlogKs_dlogRho(i)
          end do
-         z_new(1) = Z
-         
-         call interp1(logKs, logK, ierr)
+         z_new(1) % val = Z
+         z_new(1) % d1val1 = 0d0
+         z_new(1) % d1val2 = 0d0
+
+         call interp1(logKs_ad, logK_ad, ierr)
          if (ierr /= 0) then
             call mesa_error(__FILE__,__LINE__,'failed in interp1 for logK')
             return
          end if
-         
-         call interp1(dlogKs_dlogRho, dlnkap_dlnRho, ierr)
-         if (ierr /= 0) then
-            call mesa_error(__FILE__,__LINE__,'failed in interp1 for dlogK_dlogRho')
-            return
-         end if
-                  
-         call interp1(dlogKs_dlogT, dlnkap_dlnT, ierr)
-         if (ierr /= 0) then
-            call mesa_error(__FILE__,__LINE__,'failed in interp1 for dlogK_dlogT')
-            return
-         end if
-         
+
+         ! unpack auto_diff pack into output reals
+         logK = logK_ad % val
+         dlnkap_dlnT = logK_ad % d1val1
+         dlnkap_dlnRho = logK_ad % d1val2
+
          if (dbg) then
          
             do i=1,n_old
@@ -274,13 +278,16 @@ subroutine Get_Kap_for_Z_cubic( &
          contains
          
          subroutine interp1(old, new, ierr)
-            real(dp), intent(in) :: old(n_old)
-            real(dp), intent(out) :: new
+            type(auto_diff_real_2var_order1), intent(in) :: old(n_old)
+            type(auto_diff_real_2var_order1), intent(out) :: new
             integer, intent(out) :: ierr
-            real(dp) :: v_old(n_old), v_new(n_new)
-            v_old(:) = dble(old(:))
-            call interpolate_vector( &
-                  n_old, z_old, n_new, z_new, v_old, v_new, interp_pm, pm_work_size, work, &
+            type(auto_diff_real_2var_order1) :: v_old(n_old), v_new(n_new)
+            integer :: i
+            do i = 1, n_old
+               v_old(i) = old(i)
+            end do
+            call interpolate_vector_autodiff( &
+                  n_old, z_old, n_new, z_new, v_old, v_new, interp_pm_autodiff, pm_work_size, work, &
                   'Get_Kap_for_Z_cubic', ierr)
             new = v_new(1)
          end subroutine interp1
@@ -465,7 +472,8 @@ subroutine Get_Kap_for_X_cubic( &
             logK, dlogK_dlogRho, dlogK_dlogT, ierr)
          use kap_def
          use interp_1d_def, only: pm_work_size
-         use interp_1d_lib, only: interpolate_vector, interp_pm
+         use interp_1d_lib, only: interpolate_vector_autodiff, interp_pm_autodiff
+         use auto_diff
 
          type (Kap_Z_Table), dimension(:), pointer :: z_tables
          type (Kap_General_Info), pointer :: rq
@@ -478,11 +486,13 @@ subroutine Get_Kap_for_X_cubic( &
          
          integer, parameter :: n_old = 4, n_new = 1
          real(dp), dimension(n_old) :: logKs, dlogKs_dlogRho, dlogKs_dlogT
-         real(dp) :: x_old(n_old), x_new(n_new)
-         real(dp), target :: work_ary(n_old*pm_work_size)
-         real(dp), pointer :: work(:)
+         type(auto_diff_real_2var_order1), dimension(n_old) :: logKs_ad
+         type(auto_diff_real_2var_order1) :: logK_ad
+         type(auto_diff_real_2var_order1) :: x_old(n_old), x_new(n_new)
+         type(auto_diff_real_2var_order1), target :: work_ary(n_old*pm_work_size)
+         type(auto_diff_real_2var_order1), pointer :: work(:)
          integer :: i, i1, ixx
-         
+
          logical, parameter :: dbg = .false.
          
          11 format(a40,e20.10)
@@ -503,7 +513,9 @@ subroutine Get_Kap_for_X_cubic( &
          do i=1,n_old
             ixx = i1-2+i
             if (dbg) write(*,*) 'ixx', ixx
-            x_old(i) = x_tables(ixx)% X
+            x_old(i) % val = x_tables(ixx)% X
+            x_old(i) % d1val1 = 0d0
+            x_old(i) % d1val2 = 0d0
             call Get_Kap_for_logRho_logT( &
                      z_tables, rq, iz, x_tables, ixx, &
                      logRho, logT, logKs(i), dlogKs_dlogRho(i), dlogKs_dlogT(i), ierr)
@@ -512,26 +524,25 @@ subroutine Get_Kap_for_X_cubic( &
                if (dbg) write(*,11) 'logT', logT
                return
             end if
+            ! now pack into auto_diff form
+            logKs_ad(i) % val = logKs(i)
+            logKs_ad(i) % d1val1 = dlogKs_dlogT(i)
+            logKs_ad(i) % d1val2 = dlogKs_dlogRho(i)
          end do
-         x_new(1) = X
-         
-         call interp1(logKs, logK, ierr)
-         if (ierr /= 0) then
-            call mesa_error(__FILE__,__LINE__,'failed in interp1 for logK')
-            return
-         end if
-         
-         call interp1(dlogKs_dlogRho, dlogK_dlogRho, ierr)
-         if (ierr /= 0) then
-            call mesa_error(__FILE__,__LINE__,'failed in interp1 for dlogK_dlogRho')
-            return
-         end if
+         x_new(1) % val = X
+         x_new(1) % d1val1 = 0d0
+         x_new(1) % d1val2 = 0d0
                   
-         call interp1(dlogKs_dlogT, dlogK_dlogT, ierr)
+         call interp1(logKs_ad, logK_ad, ierr)
          if (ierr /= 0) then
-            call mesa_error(__FILE__,__LINE__,'failed in interp1 for dlogK_dlogT')
+            call mesa_error(__FILE__,__LINE__,'failed in interp1 for logK')
             return
          end if
+
+         ! unpack auto_diff pack into output reals
+         logK = logK_ad % val
+         dlogK_dlogT = logK_ad % d1val1
+         dlogK_dlogRho = logK_ad % d1val2
          
          if (dbg) then
          
@@ -564,17 +575,20 @@ subroutine Get_Kap_for_X_cubic( &
          contains
          
          subroutine interp1(old, new, ierr)
-            real(dp), intent(in) :: old(n_old)
-            real(dp), intent(out) :: new
+            type(auto_diff_real_2var_order1), intent(in) :: old(n_old)
+            type(auto_diff_real_2var_order1), intent(out) :: new
             integer, intent(out) :: ierr
-            real(dp) :: v_old(n_old), v_new(n_new)
-            v_old(:) = dble(old(:))
-            call interpolate_vector( &
-                  n_old, x_old, n_new, x_new, v_old, v_new, interp_pm, pm_work_size, work, &
+            type(auto_diff_real_2var_order1) :: v_old(n_old), v_new(n_new)
+            integer :: i
+            do i = 1, n_old
+               v_old(i) = old(i)
+            end do
+            call interpolate_vector_autodiff( &
+                  n_old, x_old, n_new, x_new, v_old, v_new, interp_pm_autodiff, pm_work_size, work, &
                   'Get_Kap_for_X_cubic', ierr)
-            new = real(v_new(1),kind=dp)
+            new = v_new(1)
          end subroutine interp1
-      
+          
       end subroutine Get_Kap_for_X_cubic
       
       
diff --git a/kap/private/load_kap.f90 b/kap/private/load_kap.f90
index 7a2464ecd..e53e4ae2e 100644
--- a/kap/private/load_kap.f90
+++ b/kap/private/load_kap.f90
@@ -68,7 +68,9 @@ subroutine Setup_Kap_Tables(rq, &
     call setup_lowT(kap_lowT_z_tables(rq% kap_lowT_option)% ar)
     call setup(kap_z_tables(rq% kap_option)% ar)
     
-    rq% logT_Compton_blend_hi = kap_z_tables(rq% kap_option)% ar(1)% x_tables(1)% logT_max - 0.01d0
+    rq% logT_Compton_blend_hi = & ! apply whichever is minimum for Type1 and Type2 options
+        min(kap_z_tables(rq% kap_option)% ar(1)% x_tables(1)% logT_max - 0.01d0, &
+            kap_CO_z_tables(rq% kap_CO_option)% ar(1)% x_tables(1)% logT_max - 0.01d0)
       !rq% kap_z_tables(1)% x_tables(1)% logT_max - 0.01d0
     rq% logR_Compton_blend_lo = kap_z_tables(rq% kap_option)% ar(1)% x_tables(1)% logR_min + 0.01d0
       !rq% kap_z_tables(1)% x_tables(1)% logR_min + 0.01d0
@@ -396,8 +398,6 @@ subroutine Prepare_Kap_X_Table(rq, &
     subroutine Setup_Kap_X_Table(ierr)
       integer, intent(out) :: ierr
 
-      integer :: i
-
       xErr = abs(xin - X); zErr = abs(zz - Z)
       if (xErr > tiny .or. zErr > tiny) then
          ierr = -1
diff --git a/kap/private/op_eval_mombarg.f90 b/kap/private/op_eval_mombarg.f90
index 1d74e04b3..4de69a88f 100644
--- a/kap/private/op_eval_mombarg.f90
+++ b/kap/private/op_eval_mombarg.f90
@@ -39,7 +39,7 @@ subroutine compute_grad(k, fk, logT_face, logRho_face,l, r,lkap_ross_cell, lgrad
       ! eumesh: sigma_i*(1 - exp(-u(v))) - a_k,i, where u=h*nu/(kT). OP mono grid is equally spaced in variable v. a_k,i are the correction factors. (nel,1648,nptot)
 
 
-      integer :: n, ke, nz, id, m, ik, i
+      integer :: ke, id, m, ik, i
 
       real(dp):: epa_mix_cell(1648), amu_mix_cell, logRho(1648),logT(1648) ! Number of electrons per atom, mean molecular weight, density and temperature as a function of ite (temp index) and jne (density index) from the OP mono data.
       real(dp) :: delta(1648)
@@ -55,7 +55,7 @@ subroutine compute_grad(k, fk, logT_face, logRho_face,l, r,lkap_ross_cell, lgrad
       integer :: ite_i, jne_i, dite, djne, i_grid(4,4)
       real(dp) :: logT_min, logRho_min, logT_grid(4,4), logRho_grid(4,4)
       integer :: offset1, offset2, tries, missing_point(4,4)
-      real(dp) :: log_amu_mix_cell, lkap_ross_face, gam
+      real(dp) :: log_amu_mix_cell, gam
       integer :: imin, imax
       logical :: retry
 
diff --git a/kap/private/op_load.f b/kap/private/op_load.f
index ea274dfa5..928d73e61 100644
--- a/kap/private/op_load.f
+++ b/kap/private/op_load.f
@@ -22,33 +22,30 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-c FORTRAN 90 module for calculation of radiative accelerations,
-c based on the Opacity Project (OP) code "OPserver".
-c See CHANGES_HU for changes made to the original code.
-c
-c Haili Hu 2010
-c
+
+! FORTRAN 90 module for calculation of radiative accelerations,
+! based on the Opacity Project (OP) code "OPserver".
+! See CHANGES_HU for changes made to the original code.
+!
+! Haili Hu 2010
+
       module op_load
       use math_lib
       use op_def
       logical :: have_loaded_op = .false.
-      
+
 
       contains
-C******************************************************************
+!******************************************************************
       subroutine op_dload(path, cache_filename, ierr)
         implicit none
       character (len=*), intent(in) :: path, cache_filename
       integer, intent(out) :: ierr
-      
-      
-      
-      
-      integer,parameter :: ipz=28
+
+
       real :: am,amm,delp,dpack
       integer :: ios,it,ite11,ite22,ite33,itt,itte1,itte2,itte3,izz,jne,ite
-      integer :: jne1,jne22,jne33,jnn,k,n,ncount2,ncount3,ja,jn,jnw11
+      integer :: jne1,jne22,jne33,jnn,k,n,ncount2,ncount3,ja,jn
       integer :: jne11,jne2,nccc,ne,nfff,ntott,nn
       real :: orss,um,ux,umaxx,uminn,u
       real,dimension(nptot):: umesh, semesh
@@ -56,7 +53,7 @@ subroutine op_dload(path, cache_filename, ierr)
       real :: dv,dv1
 
       integer :: cache_version
-      
+
        common /mesh/ ntotv,dv,dv1,umesh,semesh
 !    common /atomdata/
 !       common/atomdata/ ite1,ite2,ite3,jn1(91),jn2(91),jne3,umin,umax,ntot,
@@ -64,59 +61,57 @@ subroutine op_dload(path, cache_filename, ierr)
 !      +  ne2(17,91,25),fion(-1:28,28,91,25),np(17,91,25),kp1(17,91,25),
 !      +  kp2(17,91,25),kp3(17,91,25),npp(17,91,25),mx(33417000),
 !      +  yy1(33417000),yy2(120000000),nx(19305000),yx(19305000)
-!      
-     
+
       integer,dimension(ipe) :: ifl,iflp
       character num(0:9)*1,zlab(ipe)*3,tlab*6,zlabp(ipe)*3
       DATA NUM/'0','1','2','3','4','5','6','7','8','9'/
 
       integer :: kz(17)
-      data kz/1, 2, 6, 7, 8, 10, 11, 12, 13, 14, 16, 18, 20, 24, 25, 26, 28/      
+      data kz/1, 2, 6, 7, 8, 10, 11, 12, 13, 14, 16, 18, 20, 24, 25, 26, 28/
       save  /mesh/    !HH: put common block in static memory
-c
+
       integer :: nx_temp(nptot)
       real :: y_temp(nptot)
       integer :: nx_index, left_n, right_n, n_index
       real :: left_val, right_val, cross_section, slope
-      
-      if(allocated(yy2) .eqv. .false.) then
+
+      if (allocated(yy2) .eqv. .false.) then
          ! yy2 actually needs 29,563 x 10,000 length
          ALLOCATE(yy2(30000*10000),nx(19305000),yx(19305000),stat=ierr)
-         if(ierr/=0) return
+         if (ierr/=0) return
          yy2=0.0
          nx=0.0
          yx=0.0
    !     write(*,*) "ierr",ierr
       end if
-      
-      
+
+
       ierr=0
       if (have_loaded_op) return
-          
+
 !$omp critical (critial_do_op_dload)
-      
+
       if (have_loaded_op) goto 1001
 
- 
+
       !path = '../OP4STARS_1.3'
       !call getenv("oppath", path)
       !if (len(trim(path)) == 0) then
-      !   write(6,*) 'Define environmental variable oppath (directory of OP data)' 
+      !   write(6,*) 'Define environmental variable oppath (directory of OP data)'
       !   stop
       !endif
 
 
       ios = 0
-      open(1,file=trim(cache_filename),action='read',
-     >         status='old',iostat=ios,form='unformatted')
+      open(1,file=trim(cache_filename),action='read',status='old',iostat=ios,form='unformatted')
       if (ios == 0) then
          write(*,*) 'reading OP cache file ' // trim(cache_filename)
-         read(1,iostat=ios) cache_version, ntotv,dv,dv1,umesh,
-     >      ite1,ite2,ite3,jn1,jn2,jne3,umin,umax,ntotp,nc,nf,int,epatom,oplnck, ne1p,
-     >      ne2p,fionp,np,kp1,kp2,kp3,npp,yy2,nx,yx
+         read(1,iostat=ios) cache_version,ntotv,dv,dv1,umesh,
+     >     ite1,ite2,ite3,jn1,jn2,jne3,umin,umax,ntotp,nc,nf,int,epatom,oplnck, ne1p,
+     >     ne2p,fionp,np,kp1,kp2,kp3,npp,yy2,nx,yx
          write(*,*) 'done reading OP cache file'
          close(1)
-         if (cache_version .ne. op_cache_version) then
+         if (cache_version /= op_cache_version) then
             write(*,*) 'wrong version of OP cache'
             write(*,*) 'cache file path is set by op_mono_data_cache_filename'
             write(*,*) 'perhaps cache is shared between different MESA versions'
@@ -142,14 +137,14 @@ subroutine op_dload(path, cache_filename, ierr)
         zlab(n)='m'//num(kz(n)/10)//num(kz(n)-10*(kz(n)/10))
         iflp(n)=70+n
         zlabp(n)='a'//num(kz(n)/10)//num(kz(n)-10*(kz(n)/10))
-      enddo
+      end do
 
       write(*,*) 'loading OP mono data...'
 
-C  READ INDEX FILES
-C     FIRST FILE
+!  READ INDEX FILES
+!     FIRST FILE
       NN=1
-c     print*,' Opening '//'./'//zlab(1)//'.index'
+!     print*,' Opening '//'./'//zlab(1)//'.index'
       OPEN(1,FILE=trim(path)//'/'//ZLAB(1)//'.index',STATUS='OLD',
      + iostat=ios)
       if (ios /= 0) then
@@ -163,27 +158,27 @@ subroutine op_dload(path, cache_filename, ierr)
       READ(1,*)NC,NF
       READ(1,*)DPACK
       CLOSE(1)
-      IF(IZZ.NE.KZ(1))then
+      if (IZZ /= KZ(1)) then
          write(6,6001)zlab(1),izz,nn,kz(1)
          ierr=1
          goto 1001
       endif
       NTOTP=NF
-      IF(NTOTP.GT.nptot)then
+      if (NTOTP > nptot) then
          write(6,6002)ntotp,nptot
-         ierr=2         
+         ierr=2
          goto 1001
       endif
       INT(1)=1
-      IF(ITTE3.NE.ITE3)then
+      if (ITTE3 /= ITE3) then
          write(6,6077)ite3,itte3,nn
          ierr=3
          goto 1001
       endif
-c      ITE1=MAX(ITE1,ITTE1)
-c      ITE2=MIN(ITE2,ITTE2)
-C
-c  READ MESH FILES                 
+!      ITE1=MAX(ITE1,ITTE1)
+!      ITE2=MIN(ITE2,ITTE2)
+!
+!  READ MESH FILES
       OPEN(1,FILE=trim(path)//'/'//ZLAB(1)//'.mesh',status='old',
      + form='unformatted',iostat=ios)
       if (ios /= 0) then
@@ -191,17 +186,17 @@ subroutine op_dload(path, cache_filename, ierr)
          ierr = -1
          goto 1001
       end if
-      READ(1)DV,NTOTV,(UMESH(N),N=1,NTOTV)   
+      READ(1)DV,NTOTV,(UMESH(N),N=1,NTOTV)
       umin=umesh(1)
       umax=umesh(ntotv)
       DV1=DV
-      CLOSE(1)               
-C      
-C  GET MESH FOR SCREEN   
+      CLOSE(1)
+!
+!  GET MESH FOR SCREEN
       CALL IMESH(UMESH,NTOTV)
-C
-C     SUBSEQUENT FILES
-      DO 40 N=2,ipe
+!
+!     SUBSEQUENT FILES
+      DO N=2,ipe
          NN=N
          OPEN(1,FILE=trim(path)//'/'//ZLAB(N)//'.index',
      +   STATUS='OLD')
@@ -211,35 +206,35 @@ subroutine op_dload(path, cache_filename, ierr)
          READ(1,*)NC,NF
          READ(1,*)DPACK
          CLOSE(1)
-         IF(ITE33.NE.ITE3)then
+         if (ITE33 /= ITE3) then
             write(6,6077)ite3,ite33,nn
             ierr=4
             goto 1001
          endif
-c         ITE1=MAX(ITE1,ITE11)
-c         ITE2=MIN(ITE2,ITE22)
-         IF(IZZ.NE.KZ(N))then
+!         ITE1=MAX(ITE1,ITE11)
+!         ITE2=MIN(ITE2,ITE22)
+         if (IZZ /= KZ(N)) then
             write(6,6001)zlab(n),izz,nn,kz(nn)
             ierr=5
             goto 1001
          endif
          NTOTT=NF
-         IF(NTOTT.GT.NTOTP)then
+         if (NTOTT > NTOTP) then
             write(6,6006)nn,ntott,ntotp
             ierr=6
             goto 1001
          endif
-c!!         IF(UMIN.NE.UMINN.OR.UMAX.NE.UMAXX) GOTO 1003  !!
+! !!        if (UMIN /= UMINN.OR.UMAX /= UMAXX) GOTO 1003  !!
          INT(N)=NTOTP/NTOTT
-         IF(INT(N)*NTOTT.NE.NTOTP)then
+         if (INT(N)*NTOTT /= NTOTP) then
             WRITE(6,6009)NN,NTOTT,NTOTP
             ierr=7
             goto 1001
          endif
-         IF(INT(N).NE.1)WRITE(6,6007)N,INT(N)
-c
-c        READ MESH FILES
-c
+         if (INT(N) /= 1)WRITE(6,6007)N,INT(N)
+!
+!        READ MESH FILES
+!
          OPEN(1,FILE=trim(path)//'/'//ZLAB(N)//'.mesh',
      +   status='old',form='unformatted',iostat=ios)
          if (ios /= 0) then
@@ -248,26 +243,26 @@ subroutine op_dload(path, cache_filename, ierr)
             goto 1001
          end if
          READ(1)DV
-       IF(DV.NE.DV1)THEN
+       if (DV /= DV1) then
 !          PRINT*,' OP: N=',N,', DV=',DV,' NOT EQUAL TO DV1=',DV1
             ierr=8
           goto 1001
        ENDIF
          CLOSE(1)
-   40 CONTINUE
-C
-C  START TEMPERATURE LOOP
-C
+      END DO
+!
+!  START TEMPERATURE LOOP
+!
       ncount2=0
       ncount3=0
       do it=ite1,ite2,ite3
-c
-C        OPEN FILES
-c
+!
+!        OPEN FILES
+!
          TLAB='.'//NUM(IT/100)//NUM(IT/10-10*(IT/100))//
      +    NUM(IT-10*(IT/10))
          do n=1,ipe
-c            IF(SKIP(N))GOTO 70
+!            if (SKIP(N))GOTO 70
             NN=N
             OPEN(IFL(N),FILE=trim(path)//'/'//ZLAB(N)//TLAB,
      +      FORM='UNFORMATTED',STATUS='OLD',iostat=ios)
@@ -276,7 +271,7 @@ subroutine op_dload(path, cache_filename, ierr)
                ierr = -1
                goto 1001
             end if
-            if(n.gt.2) then
+            if (n > 2) then
             OPEN(IFLP(N),FILE=trim(path)//'/'//ZLABP(N)//TLAB,
      +      FORM='UNFORMATTED',STATUS='OLD',iostat=ios)
             if (ios /= 0) then
@@ -285,42 +280,42 @@ subroutine op_dload(path, cache_filename, ierr)
                goto 1001
             end if
             endif
-         enddo
-C        READ HEADINGS
+         end do
+!        READ HEADINGS
          NN=1
          READ(IFL(1))IZZ,ITE,AM,UM,UX,NCCC,NFFF,DelP,JNE1,JNE2,JNE3
          do n=2,ipe
-c            IF(SKIP(N))GOTO 80
+!            if (SKIP(N))GOTO 80
             NN=N
             READ(IFL(N))IZZ,ITE,AM,UM,UX,NC,NF,DelP,JNE11,JNE22,JNE33
-            if(n.gt.2) read(iflp(n))
-            IF(JNE33.NE.JNE3)then
+            if (n > 2) read(iflp(n))
+            if (JNE33 /= JNE3) then
               write(6,6099)jne3,jne33,nn
               ierr=9
               goto 1001
             endif
             JNE1=MAX(JNE1,JNE11)
             JNE2=MIN(JNE2,JNE22)
-         enddo
+         end do
          itt=(it-ite1)/2+1
          jn1(itt)=jne1
          jn2(itt)=jne2
-C
-c         WRITE(98,9802)ITE,JNE1,JNE2,JNE3
-C
-C        START DENSITY LOOP
-C
+!
+!         WRITE(98,9802)ITE,JNE1,JNE2,JNE3
+!
+!        START DENSITY LOOP
+!
          do n=1,ipe
            do jn=jne1,jne2,jne3
              jnn=(jn-jne1)/2+1
-C
-C           START LOOP ON ELEMENTS
-C
+!
+!           START LOOP ON ELEMENTS
+!
    95        READ(IFL(N))JNE,EPATOM(n,itt,jnn),OPLNCK(n,itt,jnn),ORSS,
      +         NE1P(n,itt,jnn),NE2P(n,itt,jnn),
      +         (FIONP(NE,n,itt,jnn),NE=NE1P(n,itt,jnn),NE2P(n,itt,jnn))
              read(ifl(n))np(n,itt,jnn)
-             if(np(n,itt,jnn).gt.0)then
+             if (np(n,itt,jnn) > 0) then
                 read(ifl(n))(nx_temp(k),y_temp(k),k=1,np(n,itt,jnn))
                 do nx_index = 2, np(n,itt,jnn)
                    left_val = y_temp(nx_index-1)
@@ -328,14 +323,14 @@ subroutine op_dload(path, cache_filename, ierr)
                    left_n = nx_temp(nx_index-1)
                    right_n = nx_temp(nx_index)
                    slope = (right_val - left_val)/float(right_n - left_n)
-                   
+
                    do n_index = left_n, right_n
                       cross_section = left_val + (n_index-left_n)*slope
                       yy2(ncount2 + n_index) = cross_section
-                   enddo
+                   end do
                    yy2(ncount2 + left_n) = left_val
                    yy2(ncount2 + right_n) = right_val
-                enddo
+                end do
                 kp2(n, itt, jnn) = ncount2
                 ncount2 = ncount2 + ntotp
              else
@@ -343,51 +338,50 @@ subroutine op_dload(path, cache_filename, ierr)
                  kp2(n,itt,jnn)=ncount2
                  ncount2=ncount2+ntotp
              endif
-               if(n.gt.2) then
+               if (n > 2) then
                  read(iflp(n))ja,npp(n,itt,jnn)
-                 if(npp(n,itt,jnn).gt.0) then
+                 if (npp(n,itt,jnn) > 0) then
            read(iflp(n))(nx(k+ncount3),yx(k+ncount3),k=1,npp(n,itt,jnn))
                    kp3(n,itt,jnn)=ncount3
                    ncount3=ncount3+npp(n,itt,jnn)
                  endif
                endif
-            enddo
-          enddo
-c          
-c     write(6,610)it
-c     write(6,*)'ncount1 = ',ncount1
-c     write(6,*)'ncount2 = ',ncount2
-c     write(6,*)'ncount3 = ',ncount3
-c
-C        CLOSE FILES
-c
-         DO 150 N=1,ipe
-            CLOSE(IFL(N))
+            end do
+          end do
+
+!     write(6,610)it
+!     write(6,*)'ncount1 = ',ncount1
+!     write(6,*)'ncount2 = ',ncount2
+!     write(6,*)'ncount3 = ',ncount3
+!
+!        CLOSE FILES
+
+         do N=1,ipe
+            close(IFL(N))
             close(iflp(n))
-  150    CONTINUE
-c
-      enddo   
-      
+         end do
+
+      end do
+
       write(*,*) 'done loading OP mono data'
       have_loaded_op = .true.
-         
+
       !write(*,*)'ncount1 = ',ncount1
       !write(6,*)'ncount2 = ',ncount2
       !write(6,*)'ncount3 = ',ncount3
       ios = 0
-      open(1, file=trim(cache_filename), iostat=ios, 
-     >         action='write', form='unformatted')
+      open(1, file=trim(cache_filename), iostat=ios, action='write', form='unformatted')
       if (ios == 0) then
          write(*,*) 'write ' // trim(cache_filename)
          write(1) op_cache_version, ntotv,dv,dv1,umesh,
-     >      ite1,ite2,ite3,jn1,jn2,jne3,umin,umax,ntotp,nc,nf,int,epatom,oplnck, ne1p, 
-     >      ne2p,fionp,np,kp1,kp2,kp3,npp,yy2,nx,yx    
+     >     ite1,ite2,ite3,jn1,jn2,jne3,umin,umax,ntotp,nc,nf,int,epatom,oplnck, ne1p,
+     >     ne2p,fionp,np,kp1,kp2,kp3,npp,yy2,nx,yx
          close(1)
       end if
-     
+
 1001  continue
 
-C     pre-calculate semesh
+!     pre-calculate semesh
       do n = 1, nptot
          u = umesh(n)
          semesh(n) = 1.d0 - exp(dble(-u))
@@ -396,7 +390,6 @@ subroutine op_dload(path, cache_filename, ierr)
 !$omp end critical (critial_do_op_dload)
 
 
-
       return
 610   format(10x,'Done IT= ',i3)
 1004  WRITE(6,6004)ZLAB(NN),TLAB
@@ -413,7 +406,7 @@ subroutine op_dload(path, cache_filename, ierr)
 6009  FORMAT(' OP: N=',I5,', NTOTT=',I10,', NTOT=',I10/
      + '   NTOT NOT MULTIPLE OF NTOTT')
 c6012  FORMAT(/10X,'ERROR, SEE WRITE(6,6012)'/
-c     + 10X,'IT=',I3,', JN=',I3,', N=',I3,', JNE=',I3/)
+!     + 10X,'IT=',I3,', JN=',I3,', N=',I3,', JNE=',I3/)
 6077  FORMAT(//5X,'OP: DISCREPANCY IN ITE3'/10X,I5,' READ FROM UNIT 5'/
      + 10X,I5,' FROM INDEX FILE ELEMENT',I5)
 6099  FORMAT(//5X,'OP: DISCREPANCY IN JNE3'/10X,I5,' READ FOR N=1'/
@@ -426,53 +419,53 @@ subroutine op_dload(path, cache_filename, ierr)
       stop
       end subroutine op_dload
 
-c***********************************************************************
+!***********************************************************************
         SUBROUTINE IMESH(UMESH,NTOT)
-C      
+
       DIMENSION UMESH(nptot)
       COMMON/CIMESH/U(100),AA(nptot),BB(nptot),IN(nptot),ITOT,NN
       save /cimesh/
-      
+
       UMIN=UMESH(1)
       UMAX=UMESH(NTOT)
-c      
+
       II=100
       A=(II*UMIN-UMAX)/REAL(II-1)
       B=(UMAX-UMIN)/REAL(II-1)
       DO I=1,II
         U(I)=A+B*I
-      ENDDO  
-c
+      end do
+
       ib=2
       ub=u(ib)
       ua=u(ib-1)
       d=ub-ua
       ibb=0
       do n=2,ntot
-        if(umesh(n).gt.ub)then
+        if (umesh(n) > ub) then
           ua=ub
           ib=ib+1
           ub=u(ib)
           d=ub-ua
-          if(umesh(n).gt.ub)then
+          if (umesh(n) > ub) then
             nn=n-1
             ibb=ib-1
             goto 1
-          endif 
-        endif  
+          endif
+        endif
         in(n)=ib
         aa(n)=(ub-umesh(n))/d
         bb(n)=(umesh(n)-ua)/d
-      enddo
-c
+      end do
+
     1      ib=ibb
       do n=nn+1,ntot
         ib=ib+1
         in(n)=ib
         u(ib)=umesh(n)
-      enddo  
+      end do
       itot=ib
-c      
+
         return
       end SUBROUTINE IMESH
 
@@ -482,11 +475,11 @@ subroutine msh(dv, ntot, umesh, semesh, uf, dscat)
       integer, intent(out) :: ntot
       real, intent(out) :: dv, uf(0:100), dscat
       real, intent(out) :: umesh(:), semesh(:) ! (nptot)
-      integer :: i, k, ntotv
+      integer :: i, ntotv
       real :: dvp, dv1, umin, umax, umeshp(nptot), semeshp(nptot)
-      common /mesh/ ntotv, dvp, dv1, umeshp, semeshp    
-      save /mesh/    
-c
+      common /mesh/ ntotv, dvp, dv1, umeshp, semeshp
+      save /mesh/
+
       ntot = ntotv
       dv = dvp
       do i=1,ntot
@@ -496,89 +489,88 @@ subroutine msh(dv, ntot, umesh, semesh, uf, dscat)
          semesh(i) = semeshp(i)
       end do
 
-c
       umin = umesh(1)
       umax = umesh(ntot)
       dscat = (umax - umin)*0.01
       do i = 0, 100
          uf(i) = umin + i*dscat
-      enddo  
-c
+      end do
+
       return
-c
+
       end subroutine msh
 
-      
+
       subroutine solve(u,v,z,uz,ierr)
       integer, intent(inout) :: ierr
       dimension u(4)
-c
-c  If  P(R) =   u(1)  u(2)  u(3)  u(4)
-c  for   R  =    -3    -1    1     3
-c  then a cubic fit is:
-      P(R)=( 
+
+!  If  P(R) =   u(1)  u(2)  u(3)  u(4)
+!  for   R  =    -3    -1    1     3
+!  then a cubic fit is:
+      P(R)=(
      +  27*(u(3)+u(2))-3*(u(1)+u(4)) +R*(
      +  27*(u(3)-u(2))-(u(4)-u(1))   +R*(
      +  -3*(u(2)+u(3))+3*(u(4)+u(1)) +R*(
      +  -3*(u(3)-u(2))+(u(4)-u(1)) ))))/48.
-c  First derivative is:
-      PP(R)=( 
+!  First derivative is:
+      PP(R)=(
      +  27*(u(3)-u(2))-(u(4)-u(1))+ 2*R*(
      +  -3*(u(2)+u(3))+3*(u(4)+u(1)) +3*R*(
      +  -3*(u(3)-u(2))+(u(4)-u(1)) )))/48.
-c
+
 !      ierr = 0
-c  Find value of z giving P(z)=v
-c  First estimate
+!  Find value of z giving P(z)=v
+!  First estimate
       z=(2.*v-u(3)-u(2))/(u(3)-u(2))
-c  Newton-Raphson iterations
+!  Newton-Raphson iterations
       do k=1,10
          uz=pp(z)
          d=(v-p(z))/uz
          z=z+d
-         if(abs(d).lt.1.e-4)return
-      enddo
-c      
+         if (abs(d) < 1.e-4) return
+      end do
+
 !      print*,' Not converged after 10 iterations in SOLVE'
 !      print*,' v=',v
 !      DO N=1,4
 !         PRINT*,' N, U(N)=',N,U(N)
-!      ENDDO  
+!      end do
       ierr = 10
       return
 !      stop
-c      
+
       end subroutine solve
-c***********************************************************************      
+!***********************************************************************
 
       SUBROUTINE BRCKR(T,FNE,RION,NION,U,NFREQ,SF, ierr)
       integer, intent(inout) :: ierr
-C
-C  CODE FOR COLLECTIVE EFFECTS ON THOMSON SCATTERING.
-C  METHOD OF D.B. BOERCKER, AP. J., 316, L98, 1987.
-C
-C  INPUT:-
-C     T=TEMPERATURTE IN K
-C     FNE=ELECTRON DENSITY IN CM**(-3)
-C     ARRAY RION (DIMENSIONED FOR 30 IONS).
-C        RION(IZ) IS NUMBER OF IONS WITH NET CHARGE IZ.
-C        NORMALISATION OF RION IS OF NO CONSEQUENCE.
-C     NION=NUMBER OF IONS INCLUDED.
-C     ARRAY U (DIMENSIONED FOR 1000). VALUES OF (H*NU/K*T).
-C     NFREQ=NUMBER OF FREQUENCY POINTS.
-C
-C  OUTPUT:-
-C     ARRAY SF, GIVING FACTORS BY WHICH THOMSON CROSS SECTION
-C     SHOULD BE MULTIPLIED TO ALLOW FOR COLLECTIVE EFFECTS.
-C
-C  MODIFFICATIONS:-
-C     (1) REPLACE (1.-Y) BY EXP(-Y) TO AVOID NEGATIVE FACTORS FOR
-C         HIGHLY-DEGENERATE CASES.
-C     (2) INCLUDE RELATIVISTIC CORRECTION.
-C
+!
+!  CODE FOR COLLECTIVE EFFECTS ON THOMSON SCATTERING.
+!  METHOD OF D.B. BOERCKER, AP. J., 316, L98, 1987.
+!
+!  INPUT:-
+!     T=TEMPERATURTE IN K
+!     FNE=ELECTRON DENSITY IN CM**(-3)
+!     ARRAY RION (DIMENSIONED FOR 30 IONS).
+!        RION(IZ) IS NUMBER OF IONS WITH NET CHARGE IZ.
+!        NORMALISATION OF RION IS OF NO CONSEQUENCE.
+!     NION=NUMBER OF IONS INCLUDED.
+!     ARRAY U (DIMENSIONED FOR 1000). VALUES OF (H*NU/K*T).
+!     NFREQ=NUMBER OF FREQUENCY POINTS.
+!
+!  OUTPUT:-
+!     ARRAY SF, GIVING FACTORS BY WHICH THOMSON CROSS SECTION
+!     SHOULD BE MULTIPLIED TO ALLOW FOR COLLECTIVE EFFECTS.
+!
+!  MODIFFICATIONS:-
+!     (1) REPLACE (1.-Y) BY EXP(-Y) TO AVOID NEGATIVE FACTORS FOR
+!         HIGHLY-DEGENERATE CASES.
+!     (2) INCLUDE RELATIVISTIC CORRECTION.
+!
       PARAMETER (IPZ=28,IPNC=100)
       DIMENSION RION(IPZ),U(0:IPNC),SF(0:IPNC)
-C
+
       AUNE=1.48185E-25*FNE
       AUT=3.16668E-6*T
       C1=-1.0650E-4*AUT
@@ -590,17 +582,17 @@ SUBROUTINE BRCKR(T,FNE,RION,NION,U,NFREQ,SF, ierr)
    11 R=FMH(W)/V
       A=0.
       B=0.
-      DO 20 I=1,NION
+      DO I=1,NION
          A=A+I*RION(I)
          B=B+I**2*RION(I)
-   20 CONTINUE
+      END DO
       X=R+B/A
-C
+
       Y=.353553*W
       C=1.1799E5*X*AUNE/(AUT*AUT*AUT)
-      DO 30 N=0,NFREQ
+      DO N=0,NFREQ
          D=C/U(N)**2
-         IF(D.GT.5.)THEN
+         if (D > 5.) then
             D=-2./D
             F=2.666667*(1.+D*(.7+D*(.55+.341*D)))
          ELSE
@@ -610,20 +602,20 @@ SUBROUTINE BRCKR(T,FNE,RION,NION,U,NFREQ,SF, ierr)
          DELTA=.375*R*F/X
          SF(N)=(1.-R*DELTA-Y*FUNS(W))*
      +   (1.+U(N)*(C1+U(N)*(C2+U(N)*C3)))   !SAMPSON CORRECTION
-   30 CONTINUE
-C
+      END DO
+
       RETURN
-C
+
   600 FORMAT(5X,'NOT CONVERGED IN LOOP 10 OF BRCKR'/
      +       5X,'T=',1P,E10.2,', FNE=',E10.2)
-C
+
       END SUBROUTINE BRCKR
-C***********************************************************************
+!***********************************************************************
       FUNCTION FUNS(A)
-C
-      IF(A.LE.0.001)THEN
+!
+      if (A <= 0.001) then
          FUNS=1.
-      ELSEIF(A.LE.0.01)THEN
+      elseif (A <= 0.01) then
          FUNS=(1.+A*(-1.0886+A*(1.06066+A*1.101193)))/
      +     (1.+A*(0.35355+A*(0.19245+A+0.125)))
       ELSE
@@ -636,16 +628,16 @@ FUNCTION FUNS(A)
       ENDIF
       RETURN
       END FUNCTION FUNS
-C***********************************************************************
+!***********************************************************************
       FUNCTION FMH(W)
-C
-C  CALCULATES FD INTERGAL I_(-1/2)(ETA). INCLUDES FACTOR 1/GAMMA(1/2).
-C  ETA=LOG(W)
-C
-      IF(W.LE.2.718282)THEN
+!
+!  CALCULATES FD INTERGAL I_(-1/2)(ETA). INCLUDES FACTOR 1/GAMMA(1/2).
+!  ETA=LOG(W)
+!
+      if (W <= 2.718282) then
          FMH=W*(1+W*(-.7070545+W*(-.3394862-W*6.923481E-4))
      +   /(1.+W*(1.2958546+W*.35469431)))
-      ELSEIF(W.LE.54.59815)THEN
+      elseif (W <= 54.59815) then
          X=LOG(dble(W))
          FMH=(.6652309+X*(.7528360+X*.6494319))
      +   /(1.+X*(.8975007+X*.1153824))
@@ -655,81 +647,81 @@ FUNCTION FMH(W)
          FMH=SQRT(X)*(1.1283792+(Y*(-.4597911+Y*(2.286168-Y*183.6074)))
      +   /(1.+Y*(-10.867628+Y*384.61501)))
       ENDIF
-C
+
       RETURN
       END FUNCTION FMH
-C***********************************************************************
+!***********************************************************************
       SUBROUTINE FDETA(X,ETA, ierr)
-C
-C  GIVEN X=N_e/P_e, CALCULATES FERMI-DIRAC ETA
-C  USE CHEBYSHEV FITS OF W.J. CODY AND H.C. THACHER,
-C  MATHS. OF COMP., 21, 30, 1967.
-C
+!
+!  GIVEN X=N_e/P_e, CALCULATES FERMI-DIRAC ETA
+!  USE CHEBYSHEV FITS OF W.J. CODY AND H.C. THACHER,
+!  MATHS. OF COMP., 21, 30, 1967.
+!
       integer, intent(inout) :: ierr
       DIMENSION D(2:12)
       DATA D/
      +  3.5355339E-01, 5.7549910E-02, 5.7639604E-03, 4.0194942E-04,
      +  2.0981899E-05, 8.6021311E-07, 2.8647149E-08, 7.9528315E-10,
      +  1.8774422E-11, 3.8247505E-13, 6.8427624E-15/
-C
+
       integer n,k
-c
-!      ierr = 0 
+
+!      ierr = 0
       a=x*0.88622693
-c
-      IF(X.LT.1)THEN
+
+      if (X < 1) then
          v=x
          S=V
          U=V
-         DO 10 N=2,12
+         DO N=2,12
              S=S*V
             SS=S*D(N)
             U=U+SS
-            IF(ABS(SS).LT.1.E-6*U)GOTO 11
-   10    CONTINUE
+            if (ABS(SS) < 1.E-6*U)GOTO 11
+         END DO
 !         PRINT*,' COMPLETED LOOP 10 IN FDETA'
          ierr = 11
          return
 !         STOP
    11    ETA=LOG(dble(U))
-c
+
       ELSE
-         if(a.lt.2)then      
+         if (a < 2) then
             E=LOG(dble(X))
          else
             e=pow(1.5d0*a,2d0/3d0)
          endif
-         do 20 k=1,10
+         do k=1,10
             CALL FDF1F2(E,F1,F2)
             DE=(A-F2)*2./F1
             E=E+DE
-            if(abs(dE).lt.1.e-4*abs(E))goto 21
-   20    continue
+            if (abs(dE) < 1.e-4*abs(E))goto 21
+         end do
 !         print*,' completed loop 20 IN FDETA'
          ierr = 12
          return
 !         stop
    21    ETA=E
-c
+
       ENDIF
-C
+
       RETURN
       END SUBROUTINE FDETA
-C***********************************************************************
+!***********************************************************************
       SUBROUTINE FDF1F2(ETA,F1,F2)
-C
-C  CALCULATES FD INTEGRALS F1, F2=F(-1/2), F(+1/2)
-C  USE CHEBYSHEV FITS OF W.J. CODY AND H.C. THACHER,
-C  MATHS. OF COMP., 21, 30, 1967.
-C
-      IF(ETA.LE.1)THEN
+!
+!  CALCULATES FD INTEGRALS F1, F2=F(-1/2), F(+1/2)
+!  USE CHEBYSHEV FITS OF W.J. CODY AND H.C. THACHER,
+!  MATHS. OF COMP., 21, 30, 1967.
+!
+      if (ETA <= 1) then
          X=exp(dble(ETA))
          F1=X*(1.772454+X*(-1.2532215+X*(-0.60172359-X*0.0012271551))/
      +      (1.+X*(1.2958546+X*0.35469431)))
          F2=X*(0.88622693+X*(-0.31329180+X*(-0.14275695-
      +      X*0.0010090890))/
      +      (1.+X*(0.99882853+X*0.19716967)))
-      ELSEIF(ETA.LE.4)THEN
+      elseif (ETA <= 4) then
          X=ETA
          F1=(1.17909+X*(1.334367+X*1.151088))/
      +      (1.+X*(0.8975007+X*0.1153824))
@@ -744,7 +736,7 @@ SUBROUTINE FDF1F2(ETA,F1,F2)
      +      Y*290.433403))/
      +      (1.+Y*(5.69335697+Y*322.149800)))
       ENDIF
-C
+
       RETURN
       END SUBROUTINE FDF1F2
 
@@ -760,25 +752,25 @@ subroutine screen2(ft,fne,rion,epa,ntot,umin,umax,umesh,p)
       data twopi/6.283185/
       COMMON/CIMESH/U(100),AA(nptot),BB(nptot),IN(nptot),ITOT,NN
       save /cimesh/
-c      
+
       rydt=ft/157894.
       aune=1.48185e-25*fne
-c      
-c       get alp2=1/(Debye)**2      
+
+!     get alp2=1/(Debye)**2
       b=0
       do i=1,ipz
         b=b+rion(i)*i**2
-      enddo
+      end do
         alp2=(5.8804e-19)*fne*b/(epa*ft)
-      if(alp2/ft.lt.5e-8)return !!!!!!!!!!!
-c      
+      if (alp2/ft < 5e-8) return !!!!!!!!!!!
+
       c=1.7337*aune/sqrt(rydt)
-c      
+
       do i=1,itot
         w=u(i)*rydt
         f(i)=0.
-        do 1 k=1,ipz
-          if(rion(k).le.0.01)goto 1
+        do k=1,ipz
+          if (rion(k) <= 0.01) cycle
           crz=c*rion(k)*k**2
           ff=0
           do j=1,3
@@ -790,22 +782,22 @@ subroutine screen2(ft,fne,rion,epa,ntot,umin,umax,umesh,p)
             q=(1./x2-1./x1+LOG(dble(x1/x2)))*
      +        (fkp*(1.-exp(dble(-twopi*k/fkp))))/(fk*(1.-exp(dble(-twopi*k/fk))))
               ff=ff+wt(j)*q
-          enddo
+          end do
           f(i)=f(i)+crz*ff
-    1     continue
-        enddo
-c
+         end do
+        end do
+
       p(1)=f(1)
       do n=2,nn
         w=umesh(n)*rydt
         p(n)=p(n)+(aa(n)*f(in(n)-1)+bb(n)*f(in(n)))/(w*w*w)
-      enddo
+      end do
       do n=nn+1,ntot
         w=umesh(n)*rydt
         p(n)=p(n)+f(in(n))/(w*w*w)
-      enddo  
-c
+      end do
+
       return
-      end subroutine screen2        
+      end subroutine screen2
 
       end module op_load
diff --git a/kap/private/op_load_master.f b/kap/private/op_load_master.f
index c41405cb3..6c8565169 100644
--- a/kap/private/op_load_master.f
+++ b/kap/private/op_load_master.f
@@ -18,7 +18,7 @@ subroutine load_op_master(emesh_data_for_op_mono_path, iz,ite,jne,epatom,amamu,s
       real(dp), pointer, intent(out) :: sig(:,:,:)
       real(dp), pointer, intent(out):: epatom(:,:),amamu(:),eumesh(:,:,:)
 
-      integer :: n, m, ke, ik
+      integer :: n, m, ke
       CHARACTER(LEN=72) :: FMT
       integer :: nel, nptot, np
       parameter(nel = 17, nptot = 10000, np=1648) !number of elements and number of u-mesh points.
diff --git a/kap/private/op_osc.f b/kap/private/op_osc.f
index 295f5325d..fc3772067 100644
--- a/kap/private/op_osc.f
+++ b/kap/private/op_osc.f
@@ -22,7 +22,7 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
+
       module op_osc
       use math_lib
       use op_def
@@ -30,44 +30,44 @@ module op_osc
       use kap_def, only: kap_test_partials, kap_test_partials_val, kap_test_partials_dval_dx
 
       contains
-c***********************************************************************
+!***********************************************************************
       subroutine abund(nel, izz, fa, flmu, nkz)
       implicit none
       integer, intent(in) :: nel, izz(ipe)
       real, intent(in) :: fa(ipe)
       real, intent(out) :: flmu
       integer, intent(out) :: nkz(ipe)
-c local variables     
+! local variables
       integer :: k, k1, k2, m
       real :: amamu(ipe), fmu
-c
-c Get k1,get amamu(k)
-      do k = 1, nel              
+
+! Get k1,get amamu(k)
+      do k = 1, nel
          do m = 1, ipe
-            if(izz(k).eq.kz(m))then
+            if (izz(k) == kz(m)) then
                amamu(k) = amass(m)
                nkz(k) = m
             goto 1
             endif
-         enddo  
+         end do
          print*,' k=',k,', izz(k)=',izz(k)
          print*,' kz(m) not found'
          stop
-    1    continue           
-      enddo      
-c   
-c  Mean atomic weight = fmu
+    1    continue
+      end do
+
+!  Mean atomic weight = fmu
       fmu = 0.
       do k = 1, nel
          fmu = fmu + fa(k)*amamu(k)
-      enddo
-c
+      end do
+
       fmu = fmu*1.660531e-24 ! Convert to cgs
       flmu = log10(dble(fmu))
-c  
+
       return
       end subroutine abund
-c**********************************************************************
+!**********************************************************************
       subroutine xindex(flt, ilab, xi, ih, i3, ierr)
       implicit none
       integer, intent(in) :: i3
@@ -77,16 +77,16 @@ subroutine xindex(flt, ilab, xi, ih, i3, ierr)
       integer, intent(out) :: ierr
       integer :: i, ih2
       real :: x
-c
+
       ierr = 0
-      if(flt.lt.3.5) then
+      if (flt < 3.5) then
         ierr = 102
         return
-      elseif(flt.gt.8.) then
+      elseif (flt > 8.) then
         ierr = 102
         return
       endif
-c      
+
       x = 40.*flt/real(i3)
       ih2 = x
       ih2 = max(ih2, 140/i3+2)
@@ -94,46 +94,45 @@ subroutine xindex(flt, ilab, xi, ih, i3, ierr)
       do i = 0, 5
          ih(i) = ih2 + i - 2
          ilab(i) = i3*ih(i)
-      enddo         
+      end do
       xi = 2.*(x-ih2) - 1
-c
+
       return
       end subroutine xindex
-c**********************************************************************
-      subroutine jrange(ih, jhmin, jhmax, i3) 
+!**********************************************************************
+      subroutine jrange(ih, jhmin, jhmax, i3)
       implicit none
       integer, intent(in) :: ih(0:5), i3
-      integer, intent(out) :: jhmin, jhmax  
+      integer, intent(out) :: jhmin, jhmax
       integer :: i
-c      
+
       jhmin = 0
       jhmax = 1000
       do i = 0, 5
          jhmin = max(jhmin, js(ih(i)*i3)/i3)
          jhmax = min(jhmax, je(ih(i)*i3)/i3)
-      enddo
-c      
+      end do
+
       return
       end subroutine jrange
-c**********************************************************************
+!**********************************************************************
       subroutine findne(ilab, fa, nel, nkz, jhmin, jhmax, ih,
      + flrho, flt, xi, flne, flmu, flr, epa, uy, i3, ierr)
       use op_load, only : solve
       implicit none
-      integer, intent(in) :: ilab(0:5), nel, nkz(ipe), jhmin, 
-     >      ih(0:5), i3
+      integer, intent(in) :: ilab(0:5), nel, nkz(ipe), jhmin, ih(0:5), i3
       integer, intent(inout) :: jhmax
       integer, intent(out) :: ierr
       real, intent(in) :: fa(ipe), flt, xi, flmu
       real,intent(out) :: flne, uy, epa
       real, intent(inout) :: flrho
-c local variables
+! local variables
       integer :: i, j, n, jh, jm, itt, jne, jnn
-      real :: flrmin, flrmax, flr(4,4), uyi(4), efa(0:5, 7:118), 
+      real :: flrmin, flrmax, flr(4,4), uyi(4), efa(0:5, 7:118),
      : flrh(0:5, 7:118), u(4), flnei(4), y, zeta, efa_temp
-c declare variables in common block, by default: real (a-h, o-z), integer (i-n)      
+! declare variables in common block, by default: real (a-h, o-z), integer (i-n)
 !       integer :: ite1, ite2, ite3, jn1, jn2, jne3, ntot, nc, nf, int,
-!      : ne1, ne2, np, kp1, kp2, kp3, npp, mx, nx   
+!      : ne1, ne2, np, kp1, kp2, kp3, npp, mx, nx
 !       real :: umin, umax, epatom, oplnck, fion, yy1, yy2, yx
 !       common /atomdata/ ite1,ite2,ite3,jn1(91),jn2(91),jne3,umin,umax,ntot,
 !      + nc,nf,int(17),epatom(17,91,25),oplnck(17,91,25),ne1(17,91,25),
@@ -141,204 +140,204 @@ subroutine findne(ilab, fa, nel, nkz, jhmin, jhmax, ih,
 !      + kp2(17,91,25),kp3(17,91,25),npp(17,91,25),mx(33417000),
 !      + yy1(33417000),yy2(120000000),nx(19305000),yx(19305000)
 !       save /atomdata/
-c
-c  efa(i,jh)=sum_n epa(i,jh,n)*fa(n)
-c  flrh(i,jh)=log10(rho(i,jh))
-c
-c  Get efa    
+!
+!  efa(i,jh)=sum_n epa(i,jh,n)*fa(n)
+!  flrh(i,jh)=log10(rho(i,jh))
+!
+!  Get efa
       do i = 0, 5
          itt = (ilab(i)-ite1)/2 + 1
          do jne = jn1(itt), jn2(itt), i3
             jnn = (jne-jn1(itt))/2 + 1
             jh = jne/i3
             efa_temp = 0.
-            do n = 1, nel               
+            do n = 1, nel
                efa_temp = efa_temp + epatom(nkz(n), itt, jnn)*fa(n)
-            enddo !n    
-            efa(i, jh) = efa_temp             
-         enddo !jne
-      enddo !i 
-c        
-c Get range for efa.gt.0
+            end do !n
+            efa(i, jh) = efa_temp
+         end do !jne
+      end do !i
+
+! Get range for efa > 0
       do i = 0, 5
          do jh = jhmin, jhmax
-            if(efa(i, jh) .le. 0.)then
+            if (efa(i, jh) <= 0.) then
                jm = jh - 1
                goto 3
             endif
-         enddo
+         end do
          goto 4
     3    jhmax = MIN(jhmax, jm)
     4    continue
-      enddo
-c    
-c Get flrh
+      end do
+
+! Get flrh
       do jh = jhmin,jhmax
         do i = 0,5
          flrh(i, jh) = flmu + 0.25*i3*jh - log10(dble(efa(i,jh)))
-        enddo
-      enddo  
-c
-c  Find flrmin and flrmax
+        end do
+      end do
+
+!  Find flrmin and flrmax
       flrmin = -1000
       flrmax = 1000
       do i = 0, 5
          flrmin = max(flrmin, flrh(i,jhmin))
          flrmax = min(flrmax, flrh(i,jhmax))
-      enddo
-c      
-c  Check range of flrho
-      if(flrho .lt. flrmin .or. flrho .gt. flrmax)then
+      end do
+
+!  Check range of flrho
+      if (flrho < flrmin .or. flrho > flrmax) then
          ierr = 101
          return
       endif
-c
-c  Interpolations in j for flne
+
+!  Interpolations in j for flne
       do jh = jhmin, jhmax
-         if(flrh(2,jh) .gt. flrho)then
+         if (flrh(2,jh) > flrho) then
             jm = jh - 1
             goto 5
          endif
-      enddo
+      end do
       print*,' Interpolations in j for flne'
       print*,' Not found, i=',i
       stop
     5 jm=max(jm,jhmin+1)
       jm=min(jm,jhmax-2)
-c      
+
       do i = 1, 4
          do j = 1, 4
             u(j) = flrh(i, jm+j-2)
             flr(i,j) = flrh(i, jm+j-2)
-         enddo
+         end do
          call solve(u, flrho, zeta, uyi(i), ierr)
          if (ierr /= 0) return
          y = jm + 0.5*(zeta+1)
          flnei(i) = .25*i3*y
-      enddo  
-c
-c  Interpolations in i
+      end do
+
+!  Interpolations in i
       flne = fint(flnei, xi)
       uy = fint(uyi, xi)
-c Get epa      
-      epa = exp10(dble(flne + flmu - flrho))  
-c      
+! Get epa
+      epa = exp10(dble(flne + flmu - flrho))
+
       return
-c   
+
   601 format(' For flt=',1p,e11.3,', flrho=',e11.3,' is out of range'/
-     +  ' Allowed range for flrho is ',e11.3,' to ',e11.3) 
+     +  ' Allowed range for flrho is ',e11.3,' to ',e11.3)
       end subroutine findne
-c***********************************************************************
+!***********************************************************************
       subroutine yindex(jhmin, jhmax, flne, jh, i3, eta)
       implicit none
       integer, intent(in) :: jhmin, jhmax, i3
       real, intent(in) :: flne
       integer, intent(out) :: jh(0:5)
       real, intent(out) :: eta
-c local variables      
+! local variables
       integer :: j, k
       real :: y
-c
+
       y = 4.*flne/real(i3)
       j = y
       j = max(j,jhmin+2)
       j = min(j,jhmax-3)
       do k = 0, 5
          jh(k) = j + k - 2
-      enddo
+      end do
       eta = 2.*(y-j)-1
-c      
+
       return
       end subroutine yindex
-c***********************************************************************
+!***********************************************************************
       subroutine findux(flr, xi, eta, ux)
       implicit none
       real, intent(in) :: flr(4, 4), xi, eta
       real, intent(out) :: ux
-c local variables      
-      integer :: i, j      
+! local variables
+      integer :: i, j
       real :: uxj(4), u(4)
-c
+
       do j = 1, 4
          do i = 1, 4
             u(i) = flr(i, j)
-         enddo
+         end do
          uxj(j) = fintp(u, xi)
-      enddo
+      end do
       ux = fint(uxj, eta)
-c
+
       return
-      end subroutine findux   
-c**********************************************************************
+      end subroutine findux
+!**********************************************************************
       subroutine rd(nel, nkz, izz, ilab, jh, n_tot, ff, rr, i3, umesh, fac)
       implicit none
-      integer, intent(in) :: nel, nkz(ipe), izz(ipe), ilab(0:5), 
-     >      jh(0:5), n_tot, i3
+      integer, intent(in) :: nel, nkz(ipe), izz(ipe), ilab(0:5),
+     >     jh(0:5), n_tot, i3
       real, intent(in) :: umesh(nptot)
       real(dp), intent(in) :: fac(nel)
       real, intent(out) :: ff(:,:,0:,0:)  ! (nptot, ipe, 6, 6)
       real, intent(out) :: rr(28, ipe, 0:5, 0:5)
-c local variables      
+! local variables
       integer :: i, j, k, l, m, n, itt, jnn, izp, ne1, ne2, ne, ib, ia
       real :: fion(-1:28), yb, ya, d
-c declare variables in common block (instead of by default: real (a-h, o-z), integer (i-n))   
+! declare variables in common block (instead of by default: real (a-h, o-z), integer (i-n))
 !       integer :: ite1, ite2, ite3, jn1, jn2, jne3, ntot, nc, nf, int,
-!      : ne1p, ne2p, np, kp1, kp2, kp3, npp, mx, nx   
-!       real :: umin, umax, epatom, oplnck, fionp, yy1, yy2, yx    
+!      : ne1p, ne2p, np, kp1, kp2, kp3, npp, mx, nx
+!       real :: umin, umax, epatom, oplnck, fionp, yy1, yy2, yx
 !       common /atomdata/ ite1,ite2,ite3,jn1(91),jn2(91),jne3,umin,umax,ntot,
 !      + nc,nf,int(17),epatom(17,91,25),oplnck(17,91,25),ne1p(17,91,25),
 !      + ne2p(17,91,25),fionp(-1:28,28,91,25),np(17,91,25),kp1(17,91,25),
 !      + kp2(17,91,25),kp3(17,91,25),npp(17,91,25),mx(33417000),
-!      + yy1(33417000),yy2(120000000),nx(19305000),yx(19305000)  
+!      + yy1(33417000),yy2(120000000),nx(19305000),yx(19305000)
 !       save /atomdata/
-c
-c  i=temperature inex
-c  j=density index
-c  k=frequency index
-c  n=element index
-c  Get:
-c    mono opacity cross-section ff(k,n,i,j)
-c    modified cross-section for selected element, ta(k,i,j)
-c
-c     Initialisations    
+!
+!  i=temperature inex
+!  j=density index
+!  k=frequency index
+!  n=element index
+!  Get:
+!    mono opacity cross-section ff(k,n,i,j)
+!    modified cross-section for selected element, ta(k,i,j)
+!
+!     Initialisations
       rr=0.
       ff=0.
-c     
-c  Start loop on i (temperature index)
+
+!  Start loop on i (temperature index)
       do i = 0, 5
-         itt = (ilab(i) - ite1)/2 + 1        
+         itt = (ilab(i) - ite1)/2 + 1
          do j = 0, 5
-            jnn = (jh(j)*i3 - jn1(itt))/2 + 1                  
-c        Read mono opacities  
+            jnn = (jh(j)*i3 - jn1(itt))/2 + 1
+!        Read mono opacities
             do n = 1, nel
                izp = izz(n)
                ne1 = ne1p(nkz(n), itt, jnn)
                ne2 = ne2p(nkz(n), itt, jnn)
                do ne = ne1, ne2
                   fion(ne) = fionp(ne, nkz(n), itt, jnn)
-               enddo    
+               end do
                do ne = ne1, min(ne2, izp-2)
                   rr(izp-1-ne, n, i, j) = fion(ne)
-               enddo
-               
+               end do
+
                do k = 1, n_tot
                   ff(k, n, i, j) = yy2(k+kp2(nkz(n), itt, jnn))
-               enddo
-                 
+               end do
+
                if (fac(n) /= 1d0) then
                   do k = 1, size(ff,dim=1)
                      ff(k,n,i,j) = fac(n)*ff(k,n,i,j)
                   end do
                end if
-            enddo !n
-         enddo !j
-      enddo !i
-c
+            end do !n
+         end do !j
+      end do !i
+
       return
-c
+
       end subroutine rd
-c***********************************************************************
-      subroutine ross(flmu, dv, ntot,rs, rossl) 
+!***********************************************************************
+      subroutine ross(flmu, dv, ntot,rs, rossl)
       implicit none
       integer, intent(in) :: ntot
       real, intent(in) :: flmu, dv, rs(nptot, 0:5, 0:5)
@@ -346,347 +345,346 @@ subroutine ross(flmu, dv, ntot,rs, rossl)
       integer :: i, j, n
       real(dp) :: drs, dd, oross
       real :: fmu, tt
-c
-c  oross=cross-section in a.u.
-c  rossl=log10(ROSS in cgs)
+
+!  oross=cross-section in a.u.
+!  rossl=log10(ROSS in cgs)
       do i = 0, 5
          do j = 0, 5
             drs = 0.d0
             do n = 1, ntot
                dd = 1.d0/rs(n, i, j)
                drs = drs + dd
-            enddo
+            end do
             oross = 1.d0/(drs*dv)
-            rossl(i, j) = log10(oross) - 16.55280d0 - flmu !log10(fmu)                 
-         enddo !j
-      enddo !i
-c
+            rossl(i, j) = log10(oross) - 16.55280d0 - flmu !log10(fmu)
+         end do !j
+      end do !i
+
       return
       end subroutine ross
-c***********************************************************************
+!***********************************************************************
       subroutine mix(ntot, nel, fa, ff, rs, rr, rion)
       implicit none
       integer, intent(in) :: ntot, nel
       real, intent(in) :: ff(nptot, ipe, 0:5, 0:5), fa(ipe), rr(28, 17, 0:5, 0:5)
       real, intent(out) :: rs(nptot, 0:5, 0:5), rion(28, 0:5, 0:5)
-c local variables      
+! local variables
       integer :: i, j, k, n, m
       real :: rs_temp, rion_temp
-c
+
       do i = 0, 5
          do j = 0, 5
             do n = 1, ntot
                !rs_temp = ff(n,1,i,j)*fa(1)
                !do k = 2, nel
                !   rs_temp = rs_temp + ff(n,k,i,j)*fa(k)
-               !enddo
-               !rs(n,i,j) = rs_temp 
+               !end do
+               !rs(n,i,j) = rs_temp
                rs(n, i, j) = dot_product(ff(n,1:nel,i,j),fa(1:nel))
-            enddo            
+            end do
             do m = 1, 28
                !rion_temp = rr(m, 1, i, j)*fa(1)
                !do k = 2, nel
                !   rion_temp = rion_temp + rr(m,k,i,j)*fa(k)
-               !enddo
+               !end do
                !rion(m,i,j) = rion_temp
                rion(m,i,j) = dot_product(rr(m,1:nel,i,j),fa(1:nel))
-            enddo    
-         enddo
-      enddo
-c
+            end do
+         end do
+      end do
+
       return
       end subroutine mix
-C***********************************************************************    
+!***********************************************************************
       subroutine interp(nel, rossl, xi, eta, g, i3, ux, uy, gx, gy)
       implicit none
       integer, intent(in) :: nel, i3
       real, intent(in) :: ux, uy, xi, eta
       real, intent(out) :: gx, gy, g
-c local variables
+! local variables
       integer :: i, j, l
       real :: V(4), U(4),  vyi(4)
       real :: x3(3), fx3!, fxxy(0:5, 0:5), fyxy(0:5, 0:5)
-c pointers and targets      
-      real, target :: fx(0:5, 0:5), fy(0:5, 0:5), fxy(0:5, 0:5), fyx(0:5, 0:5), 
+! pointers and targets
+      real, target :: fx(0:5, 0:5), fy(0:5, 0:5), fxy(0:5, 0:5), fyx(0:5, 0:5),
      : fxx(0:5, 0:5), fyy(0:5, 0:5), rossl(0:5, 0:5)
-      real, pointer :: f3(:), fin(:, :), finx(:, :), finy(:, :)   
-c        
-c     interpolation of g (=rosseland mean opacity)
-c Use refined techniques of bi-cubic spline interpolation (Seaton 1993):
+      real, pointer :: f3(:), fin(:, :), finx(:, :), finy(:, :)
+!
+!     interpolation of g (=rosseland mean opacity)
+! Use refined techniques of bi-cubic spline interpolation (Seaton 1993):
 !      call deriv(rossl, fx, fy, fxy)
 !      call interp2(rossl, fx, fy, fxy, xi, eta, g, gx, gy)
 !      gy = 0.5*gy/uy
 !      gx = (80./real(i3))*(0.5*gx-gy*ux)
-c Alternatively, use interpolation techniques by M.-A. Dupret to ensure smooothness required
-c for pulsation studies:      
+! Alternatively, use interpolation techniques by M.-A. Dupret to ensure smooothness required
+! for pulsation studies:
       do i = 0, 3
          x3(1) = i
          x3(2) = i+1
-         x3(3) = i+2 
+         x3(3) = i+2
          do j = 1, 4
             f3 => rossl(i:i+2, j)
             call deriv3(f3, x3, fx3)
             fx(i+1, j) = fx3
-         enddo
-      enddo   
+         end do
+      end do
       do i = 0, 3
          x3(1) = i
          x3(2) = i+1
-         x3(3) = i+2       
-         do j = 1, 4        
+         x3(3) = i+2
+         do j = 1, 4
             f3 => rossl(j, i:i+2)
             call deriv3(f3, x3, fx3)
             fy(j, i+1) = fx3
-         enddo
-      enddo   
+         end do
+      end do
       do i = 1, 2
          x3(1) = i
          x3(2) = i+1
-         x3(3) = i+2 
+         x3(3) = i+2
          do j = 2, 3
             f3 => fx(i:i+2, j)
             call deriv3(f3, x3, fx3)
             fxx(i+1, j) = fx3
-         enddo
-      enddo 
+         end do
+      end do
       do i = 1, 2
          x3(1) = i
          x3(2) = i+1
-         x3(3) = i+2 
+         x3(3) = i+2
          do j = 2, 3
             f3 => fx(j, i:i+2)
             call deriv3(f3, x3, fx3)
             fxy(j, i+1) = fx3
-         enddo
-      enddo      
+         end do
+      end do
        do i = 1, 2
          x3(1) = i
          x3(2) = i+1
-         x3(3) = i+2        
+         x3(3) = i+2
          do j = 2, 3
             f3 => fy(i:i+2, j)
             call deriv3(f3, x3, fx3)
             fyx(i+1, j) = fx3
-         enddo
-      enddo 
+         end do
+      end do
       do i = 1, 2
          x3(1) = i
          x3(2) = i+1
-         x3(3) = i+2 
+         x3(3) = i+2
          do j = 2, 3
             f3 => fy(j, i:i+2)
             call deriv3(f3, x3, fx3)
             fyy(j, i+1) = fx3
-         enddo
-      enddo   
-!      call deriv(rossl, fx, fy, fxy) 
-!      call deriv(fx, fxx, fxy, fxxy) 
-!      call deriv(fy, fyx, fyy, fyxy)             
+         end do
+      end do
+!      call deriv(rossl, fx, fy, fxy)
+!      call deriv(fx, fxx, fxy, fxxy)
+!      call deriv(fy, fyx, fyy, fyxy)
       fin => rossl(2:3, 2:3)
       finx => fx(2:3, 2:3)
       finy => fy(2:3, 2:3)
-      call interp3(fin, finx, finy, xi, eta, g)            
+      call interp3(fin, finx, finy, xi, eta, g)
       fin => fx(2:3, 2:3)
       finx => fxx(2:3, 2:3)
-      finy => fxy(2:3, 2:3)      
-      call interp3(fin, finx, finy, xi, eta, gx)      
+      finy => fxy(2:3, 2:3)
+      call interp3(fin, finx, finy, xi, eta, gx)
       fin => fy(2:3, 2:3)
       finx => fyx(2:3, 2:3)
-      finy => fyy(2:3, 2:3)      
-      call interp3(fin, finx, finy, xi, eta, gy)             
+      finy => fyy(2:3, 2:3)
+      call interp3(fin, finx, finy, xi, eta, gy)
       gy = 0.5*gy/uy
       gx = (80./real(i3))*(0.5*gx-gy*ux)
-c
+
       RETURN
-      end subroutine interp  
-C**************************************
+      end subroutine interp
+!**************************************
       function fint(u,r)
       dimension u(4)
-c
-c  If  P(R) =   u(1)  u(2)  u(3)  u(4)
-c  for   R  =    -3    -1     1     3
-c  then a cubic fit is:
-      P(R)=( 
+
+!  If  P(R) =   u(1)  u(2)  u(3)  u(4)
+!  for   R  =    -3    -1     1     3
+!  then a cubic fit is:
+      P(R)=(
      +  27*(u(3)+u(2))-3*(u(1)+u(4)) +R*(
      +  27*(u(3)-u(2))-(u(4)-u(1))   +R*(
      +  -3*(u(2)+u(3))+3*(u(4)+u(1)) +R*(
      +  -3*(u(3)-u(2))+(u(4)-u(1)) ))))/48.
-c
+!
         fint=p(r)
-c
+!
       return
       end function fint
-c***********************************************************************
+!***********************************************************************
       function fintp(u,r)
       dimension u(4)
-c
-c  If  P(R) =   u(1)  u(2)  u(3)  u(4)
-c  for   R  =    -3    -1     1     3
-c  then a cubic fit to the derivative is:
-      PP(R)=( 
+
+!  If  P(R) =   u(1)  u(2)  u(3)  u(4)
+!  for   R  =    -3    -1     1     3
+!  then a cubic fit to the derivative is:
+      PP(R)=(
      +  27*(u(3)-u(2))-(u(4)-u(1))   +2.*R*(
      +  -3*(u(2)+u(3))+3*(u(4)+u(1)) +3.*R*(
      +  -3*(u(3)-u(2))+(u(4)-u(1)) )))/48.
-c
+
         fintp=pp(r)
-c
+
       return
       end function fintp
-C
-c***********************************************************************
+
+!***********************************************************************
       SUBROUTINE DERIV(f, fx, fy, fxy)
-C
+
       real, intent(in) :: f(0:5, 0:5)
-      real, intent(out) :: fx(0:5, 0:5), fy(0:5, 0:5), fxy(0:5, 0:5) 
+      real, intent(out) :: fx(0:5, 0:5), fy(0:5, 0:5), fxy(0:5, 0:5)
       real :: C(6)
-C
-C  GET FX
-      DO 70 J = 0, 5
+
+!  GET FX
+      DO J = 0, 5
          L=0
-         DO 50 I = 0, 5
+         DO I = 0, 5
             L=L+1
             C(L)=F(I,J)
-   50    CONTINUE
+      END DO
          CALL GET(C,L)
          L=0
-         DO 60 I = 0, 5
+         DO I = 0, 5
             L = L + 1
             FX(I, J) = C(L)
-   60    CONTINUE
-   70 CONTINUE
-C
-C  GET FY
-      DO 100 I = 0, 5
+         END DO
+      END DO
+
+!  GET FY
+      DO I = 0, 5
          L=0
-         DO 80 J = 0, 5
+         DO J = 0, 5
             L = L + 1
             C(L) = F(I, J)
-   80    CONTINUE
+         END DO
          CALL GET(C,L)
          L=0
-         DO 90 J = 0, 5
+         DO J = 0, 5
             L = L + 1
             FY(I,J) = C(L)
-   90    CONTINUE
-  100 CONTINUE
-C
-C  GET FXY
-      DO 130 I = 0, 5
+         END DO
+      END DO
+
+!  GET FXY
+      DO I = 0, 5
          L = 0
-         DO 110 J = 0, 5
+         DO J = 0, 5
             L = L + 1
             C(L) = FX(I, J)
-  110    CONTINUE
+         END DO
          CALL GET(C,L)
          L=0
-         DO 120 J = 0, 5
+         DO J = 0, 5
             L = L + 1
             FXY(I,J) = C(L)
-  120    CONTINUE
-  130 CONTINUE
-c
+         END DO
+      END DO
+
       RETURN
-C
+
       END SUBROUTINE DERIV
-CC******************************************************************
-C
+!******************************************************************
+!
       SUBROUTINE GET(F,N)
-C
-C  SIMPLIFIED CODE FOR SPLINE COEFFICIENTS, FOR CASE OF INTERVALS
-C  OF UNITY.
-C  RETURNS DERIVATIVES OF ORIGINAL F IN LOCATION F
-C
-c  REVISED 5.5.95
-C
+!
+!  SIMPLIFIED CODE FOR SPLINE COEFFICIENTS, FOR CASE OF INTERVALS
+!  OF UNITY.
+!  RETURNS DERIVATIVES OF ORIGINAL F IN LOCATION F
+!
+!  REVISED 5.5.95
+!
       PARAMETER (IPI=6)
       DIMENSION F(IPI),D(IPI),T(IPI)
-C
-      IF(N.LE.0)THEN
+
+      if (N <= 0) then
          WRITE(6,*)' Error in SUBROUTINE GET: N=',N
          STOP
-      ELSEIF(N.EQ.1)THEN
+      elseif (N == 1) then
          F(1)=0.
          RETURN
-      ELSEIF(N.EQ.2)THEN
+      elseif (N == 2) then
          F(1)=F(2)-F(1)
          F(2)=F(1)
          RETURN
-      ELSEIF(N.EQ.3)THEN
+      elseif (N == 3) then
          FP1=.5*(-3.*F(1)+4.*F(2)-F(3))
          FPN=.5*(F(1)-4.*F(2)+3.*F(3))
       ELSE
          FP1=(-11.*F(1)+18.*F(2)-9.*F(3)+2.*F(4))/6.
          FPN=(11.*F(N)-18.*F(N-1)+9.*F(N-2)-2.*F(N-3))/6.
       ENDIF
-C
+
       D(1)=-.5
       T(1)=.5*(-F(1)+F(2)-FP1)
-C
-      DO 10 J=2,N-1
+
+      DO J=2,N-1
          D(J)=-1./(4.+D(J-1))
          T(J)=-D(J)*(F(J-1)-2.*F(J)+F(J+1)-T(J-1))
-   10 CONTINUE
-C
+      END DO
+
       D(N)=(FPN+F(N-1)-F(N)-T(N-1))/(2.+D(N-1))
-C
-      DO 20 J=N-1,1,-1
+
+      DO J=N-1,1,-1
          D(J)=D(J)*D(J+1)+T(J)
-   20 CONTINUE
-C
-      DO 30 J=2,N-1
+      END DO
+
+      DO J=2,N-1
          F(J)=-F(J)+F(J+1)-2.*D(J)-D(J+1)
-   30 CONTINUE
+      END DO
       F(1)=FP1
       F(N)=FPN
-C
+
       RETURN
       END SUBROUTINE GET
-C
-c***********************************************************************
+
+!***********************************************************************
       subroutine INTERP2(f, fx, fy, fxy, xi, eta, g, gx, gy)
       real, intent(in) :: eta, xi, f(0:5, 0:5), fx(0:5, 0:5), fy(0:5, 0:5), fxy(0:5, 0:5)
       real, intent(out) :: g, gx, gy
       integer :: i , j
       real :: x, y, B(16)
-C
-C  FUNCTION DEFINITIONS FOR CUBIC EXPANSION
-C
+!
+!  FUNCTION DEFINITIONS FOR CUBIC EXPANSION
+!
       FF(S,T)=    B( 1)+T*(B( 2)+T*(B( 3)+T*B( 4)))
      +   +S*(     B( 5)+T*(B( 6)+T*(B( 7)+T*B( 8)))
      +   +S*(     B( 9)+T*(B(10)+T*(B(11)+T*B(12)))
      +   +S*(     B(13)+T*(B(14)+T*(B(15)+T*B(16))) )))
-C
+
       FFX(S,T)=   B( 5)+T*(B( 6)+T*(B( 7)+T*B( 8)))
      +   +S*(  2*(B( 9)+T*(B(10)+T*(B(11)+T*B(12))))
      +   +S*(  3*(B(13)+T*(B(14)+T*(B(15)+T*B(16)))) ))
-C
+
       FFY(S,T)=   B( 2)+S*(B( 6)+S*(B(10)+S*B(14)))
      +   +T*(  2*(B( 3)+S*(B( 7)+S*(B(11)+S*B(15))))
      +   +T*(  3*(B( 4)+S*(B( 8)+S*(B(12)+S*B(16)))) ))
-C
-C
+
       Y = (eta + 5.)/2.
-      X = (xi + 5.)/2.    
+      X = (xi + 5.)/2.
 !      i = floor(x)
 !      j = floor(y)
       I = X + 1.E-5
-      IF(ABS(X-I).LE.1.E-5) X = I
+      if (ABS(X-I) <= 1.E-5) X = I
       J = Y + 1.E-5
-      IF(ABS(Y-J).LE.1.E-5) Y = J                
-C
-C     INTERPOLATE
-C
-C  GIVEN FUNCTIONS AND DERIVATIVES AT GRID POINTS, COMPUTE COEFFICIENTS.
+      if (ABS(Y-J) <= 1.E-5) Y = J
+!
+!     INTERPOLATE
+!
+!  GIVEN FUNCTIONS AND DERIVATIVES AT GRID POINTS, COMPUTE COEFFICIENTS.
       B(1)=F(I,J)
       B(2)=FY(I,J)
       B(3)=3*(-F(I,J)+F(I,J+1))-2*FY(I,J)-FY(I,J+1)
       B(4)=2*(F(I,J)-F(I,J+1))+FY(I,J)+FY(I,J+1)
-C
+
       B(5)=FX(I,J)
       B(6)=FXY(I,J)
       B(7)=3*(-FX(I,J)+FX(I,J+1))-2*FXY(I,J)-FXY(I,J+1)
       B(8)=2*(FX(I,J)-FX(I,J+1))+FXY(I,J)+FXY(I,J+1)
-C
+
       B(9)=3*(-F(I,J)+F(I+1,J))-2*FX(I,J)-FX(I+1,J)
       B(10)=3*(-FY(I,J)+FY(I+1,J))-2*FXY(I,J)-FXY(I+1,J)
       B(11)=9*(F(I,J)-F(I+1,J)+F(I+1,J+1)-F(I,J+1))
@@ -700,7 +698,7 @@ subroutine INTERP2(f, fx, fy, fxy, xi, eta, g, gx, gy)
      + +3*(-FY(I,J)+FY(I+1,J)+FY(I+1,J+1)-FY(I,J+1))
      + +2*(-FX(I+1,J)+FX(I+1,J+1)-FXY(I,J)-FXY(I,J+1))
      + -FXY(I+1,J)-FXY(I+1,J+1)
-C
+
       B(13)=2*(F(I,J)-F(I+1,J))+FX(I,J)+FX(I+1,J)
       B(14)=2*(FY(I,J)-FY(I+1,J))+FXY(I,J)+FXY(I+1,J)
       B(15)=6*(-F(I,J)+F(I+1,J)-F(I+1,J+1)+F(I,J+1))
@@ -712,9 +710,9 @@ subroutine INTERP2(f, fx, fy, fxy, xi, eta, g, gx, gy)
      + +2*(FX(I,J)+FX(I+1,J)-FX(I+1,J+1)-FX(I,J+1)
      +    +FY(I,J)-FY(I+1,J)-FY(I+1,J+1)+FY(I,J+1))
      + +FXY(I,J)+FXY(I+1,J)+FXY(I+1,J+1)+FXY(I,J+1)
-C
-C  GET G=LOG10(ROSS), DGDT=d LOG10(ROSS)/d LOG10(T),
-C      DGDRHO=d LOG10(ROSS)/d LOG10(RHO)
+!
+!  GET G=LOG10(ROSS), DGDT=d LOG10(ROSS)/d LOG10(T),
+!      DGDRHO=d LOG10(ROSS)/d LOG10(RHO)
       U = X - I
       V = Y - J
       G = FF(U, V)
@@ -723,39 +721,39 @@ subroutine INTERP2(f, fx, fy, fxy, xi, eta, g, gx, gy)
 !      DGDT=(1./CT)*FFX(U,V)-(3./CN)*FFY(U,V)
 !      DGDRHO=(1./CN)*FFY(U,V)
       RETURN
-C
+
       END SUBROUTINE INTERP2
-c*************************************************************
-c This subroutine estimates the partial derivative of a function 
-c as described in the PhD thesis by M.-A. Dupret.
+!*************************************************************
+! This subroutine estimates the partial derivative of a function
+! as described in the PhD thesis by M.-A. Dupret.
       subroutine deriv3(f, x, fx)
       real, intent(in) :: f(3), x(3)
       real, intent(out) :: fx
       real :: a, a1, a2, b, x1, x2
-c            
+
       x1 = (f(3)- f(2))/(x(3)-x(2))
       x2 = (f(2)-f(1))/(x(2)-x(1))
       b = abs(x1/x2)
       a = (2.*x(2) - x(1) - x(3))/((x(2)-x(1))*(x(2)-x(3)))
       a1 = (x(2)-x(3))/((x(1)-x(3))*(x(1)-x(2)))
       a2 = (x(2)-x(1))/((x(3)-x(2))*(x(3)-x(1)))
-      if (b .ge. 0.2 .and. b .le. 5.) then            
+      if (b >= 0.2 .and. b <= 5.) then
          fx = a*f(2) + a1*f(1) + a2*f(3)
       else
          if (abs(x1)<abs(x2)) fx = sign(1.0,x1)*min(abs(x1), abs(x2))
-         if (abs(x2)<abs(x1)) fx = sign(1.0,x2)*min(abs(x1), abs(x2))         
+         if (abs(x2)<abs(x1)) fx = sign(1.0,x2)*min(abs(x1), abs(x2))
       endif
-c     
-      end subroutine deriv3            
-c***********************************************************************      
+
+      end subroutine deriv3
+!***********************************************************************
       subroutine interp3(f, fx, fy, xi, eta, g)
       real, intent(in) :: eta, xi, f(2:3, 2:3), fx(2:3, 2:3), fy(2:3, 2:3)
       real, intent(out) :: g
       real :: x, y
-      
-      x = (xi + 5.)/2.        
+
+      x = (xi + 5.)/2.
       y = (eta + 5.)/2.
-      
+
       P11 = P1(x,2.,3.)*P1(y,2.,3.)
       P21 = P2(x,2.,3.)*P1(y,2.,3.)
       P12 = P1(x,2.,3.)*P2(y,2.,3.)
@@ -768,66 +766,66 @@ subroutine interp3(f, fx, fy, xi, eta, g)
       Py21 = P2(x,2.,3.)*Px1(y,2.,3.)
       Py12 = P1(x,2.,3.)*Px2(y,2.,3.)
       Py22 = P2(x,2.,3.)*Px2(y,2.,3.)
-      
-      g = f(2,2)*P11 + f(3,2)*P21 + f(2,3)*P12 + f(3,3)*P22 
+
+      g = f(2,2)*P11 + f(3,2)*P21 + f(2,3)*P12 + f(3,3)*P22
      : + fx(2,2)*Px11 + fx(3,2)*Px21 + fx(2,3)*Px12 + fx(3,3)*Px22
-     : + fy(2,2)*Py11 + fy(3,2)*Py21 + fy(2,3)*Py12 + fy(3,3)*Py22                
-            
+     : + fy(2,2)*Py11 + fy(3,2)*Py21 + fy(2,3)*Py12 + fy(3,3)*Py22
+
       end subroutine interp3
-c***********************************************************************      
+!***********************************************************************
       function P1(x, xi, xj)
-c
-      P1 = (x - xj)*(x - xj) * (2*x - 3*xi + xj)/((xj - xi)*(xj - xi)*(xj - xi))
-c      
-      end function P1      
-c***********************************************************************
+
+         P1 = (x - xj)*(x - xj) * (2*x - 3*xi + xj)/((xj - xi)*(xj - xi)*(xj - xi))
+
+      end function P1
+!***********************************************************************
       function P2(x, xi, xj)
       real, intent(in) :: x, xi, xj
-c
-      P2 = -(x - xi)*(x - xi) * (2*x - 3*xj + xi)/((xj - xi)*(xj - xi)*(xj - xi))
-c            
+
+         P2 = -(x - xi)*(x - xi) * (2*x - 3*xj + xi)/((xj - xi)*(xj - xi)*(xj - xi))
+
       end function P2
-c***********************************************************************      
+!***********************************************************************
       function Px1(x, xi, xj)
-c
-      Px1 = (x - xi) * (x - xj)*(x - xj)/((xj - xi)*(xj - xi))      
-c
+
+         Px1 = (x - xi) * (x - xj)*(x - xj)/((xj - xi)*(xj - xi))
+
       end function Px1
-c***********************************************************************
+!***********************************************************************
       function Px2(x, xi, xj)
-c
-      Px2 = (x - xi)*(x - xi) * (x - xj)/((xj - xi)*(xj - xi))    
-c      
-      end function Px2      
-c***********************************************************************
+
+         Px2 = (x - xi)*(x - xi) * (x - xj)/((xj - xi)*(xj - xi))
+
+      end function Px2
+!***********************************************************************
       subroutine scatt(ih, jh, rion, uf, f, umesh, semesh, dscat, ntot, epa, ierr)
       use op_load, only: BRCKR
       integer, intent(inout) :: ierr
       dimension rion(28, 0:5, 0:5),uf(0:100),f(nptot,0:5,0:5),umesh(nptot),
      +  semesh(nptot),fscat(0:100),p(nptot),rr(28),ih(0:5),jh(0:5)
         integer i,j,k,n
-c HH: always use meshtype q='m'
+! HH: always use meshtype q='m'
       ite3=2
       umin=umesh(1)
       CSCAT=EPA*2.37567E-8
       ierr = 0
-c
+
       do i = 0, 5
          ft = exp10(ITE3*dble(ih(i))/40d0)
          do j = 0, 5
             fne = exp10(ITE3*dble(jh(j))/4d0)
             do k = 1, ntot
                p(k) = f(k, i, j)
-            enddo
+            end do
             do m = 1, 28
               rr(m) = rion(m, i, j)
-            enddo      
+            end do
             CALL BRCKR(FT,FNE,RR,28,UF,100,FSCAT,ierr)
             if (ierr /= 0) return
             do n = 0, 100
               u = uf(n)
               fscat(n) = cscat*(fscat(n)-1)
-            enddo
+            end do
             do n = 2, ntot-1
               u = umesh(n)
               se = semesh(n)
@@ -835,50 +833,50 @@ subroutine scatt(ih, jh, rion, uf, f, umesh, semesh, dscat, ntot, epa, ierr)
               ua=umin+dscat*m
               ub=ua+dscat
               p(n)=p(n)+((ub-u)*fscat(m)+(u-ua)*fscat(m+1))/(dscat*se)
-            enddo
+            end do
             u=umesh(ntot)
             se=semesh(ntot)
             p(ntot)=p(ntot)+fscat(100)/se
             p(1)=p(1)+fscat(1)/(1.-.5*umin)
             do k=1,ntot
               f(k,i,j)=p(k)
-            enddo  
-         enddo
-      enddo  
-C
+            end do
+         end do
+      end do
+
       return
       end subroutine scatt
-c***********************************************************************      
+!***********************************************************************
       subroutine screen1(ih,jh,rion,umesh,ntot,epa,f)
       use op_load, only: screen2
       dimension uf(0:100), umesh(nptot),
-     +  fscat(0:100), ih(0:5), jh(0:5)    
-      real, target :: f(nptot, 0:5, 0:5), rion(28, 0:5, 0:5)   
+     +  fscat(0:100), ih(0:5), jh(0:5)
+      real, target :: f(nptot, 0:5, 0:5), rion(28, 0:5, 0:5)
       integer i, j, k, m
       real, pointer :: p(:), rr(:)
-c
+
       ite3=2
       umin=umesh(1)
       umax=umesh(ntot)
-c
+
       do i = 0, 5
          ft=exp10(ITE3*dble(ih(i))/40d0)
          do j = 0, 5
             fne=exp10(ITE3*dble(jh(j))/4d0)
 !            do k=1,ntot
               p => f(1:ntot,i,j)
-!            enddo
+!            end do
 !            do m=1,28
               rr => rion(1:28,i,j)
-!            enddo      
+!            end do
             call screen2(ft,fne,rr,epa,ntot,umin,umax,umesh,p)
 !            do k=1,ntot
 !              f(k,i,j)=p(k)
-!            enddo            
-        enddo
-      enddo  
-C
+!            end do
+        end do
+      end do
+
       return
       end subroutine screen1
-c***********************************************************************
+!***********************************************************************
       end module op_osc
diff --git a/kap/public/kap_def.f90 b/kap/public/kap_def.f90
index f0244e4af..5ebe3978c 100644
--- a/kap/public/kap_def.f90
+++ b/kap/public/kap_def.f90
@@ -283,12 +283,16 @@ end subroutine other_radiative_opacity_interface
      kap_a09 = 3, & 
      kap_OP_gs98 = 4, & 
      kap_OP_a09 = 5, &
-     kap_user = 6, &
-     kap_test = 7, &
-     kap_options_max = 7
+     kap_oplib_gs98 = 6, &
+     kap_oplib_agss09 = 7, &
+     kap_oplib_aag21 = 8, &
+     kap_oplib_mb22 = 9, &
+     kap_user = 10, &
+     kap_test = 11, &
+     kap_options_max = 11
 
 
-  integer, parameter :: kap_max_dim = 20 !change this to make even larger grids in X and/or Z
+  integer, parameter :: kap_max_dim = 50 !change this to make even larger grids in X and/or Z
 
   integer, dimension(kap_options_max) :: num_kap_Xs = 0
   real(dp), dimension(kap_max_dim, kap_options_max) :: kap_Xs = -1d0
@@ -320,17 +324,19 @@ end subroutine other_radiative_opacity_interface
   
   ! kap_lowT_options
   integer, parameter :: &
-     kap_lowT_Freedman11 = 1, & 
-     kap_lowT_fa05_gs98 = 2, & 
-     kap_lowT_fa05_gn93 = 3, & 
-     kap_lowT_fa05_a09p = 4, & 
-     kap_lowT_af94_gn93 = 5, &
-     kap_lowT_rt14_ag89 = 6, &
-     kap_lowT_kapCN = 7, & 
-     kap_lowT_AESOPUS = 8, &
-     kap_lowT_user = 9, &
-     kap_lowT_test = 10, &
-     kap_lowT_options_max = 10
+     kap_lowT_fa05_mb22= 1, &
+     kap_lowT_fa05_aag21 = 2, &
+     kap_lowT_Freedman11 = 3, & 
+     kap_lowT_fa05_gs98 = 4, & 
+     kap_lowT_fa05_gn93 = 5, & 
+     kap_lowT_fa05_a09p = 6, & 
+     kap_lowT_af94_gn93 = 7, &
+     kap_lowT_rt14_ag89 = 8, &
+     kap_lowT_kapCN = 9, & 
+     kap_lowT_AESOPUS = 10, &
+     kap_lowT_user = 11, &
+     kap_lowT_test = 12, &
+     kap_lowT_options_max = 12
 
   
   integer, dimension(kap_lowT_options_max) :: num_kap_lowT_Xs = 0
@@ -501,7 +507,7 @@ subroutine kap_def_init(kap_cache_dir_in)
     use utils_lib, only : mkdir
     use const_def, only: mesa_data_dir, mesa_caches_dir, mesa_temp_caches_dir, use_mesa_temp_cache
     character (*), intent(in) :: kap_cache_dir_in
-    integer :: ierr, i
+    integer :: i
     
     kap_test_partials = .false.
     
@@ -539,6 +545,10 @@ subroutine kap_def_init(kap_cache_dir_in)
     kap_option_str(kap_a09) = 'a09'
     kap_option_str(kap_OP_gs98) = 'OP_gs98'
     kap_option_str(kap_OP_a09) = 'OP_a09_nans_removed_by_hand'
+    kap_option_str(kap_oplib_gs98) = 'oplib_gs98'
+    kap_option_str(kap_oplib_agss09) = 'oplib_agss09'
+    kap_option_str(kap_oplib_aag21) = 'oplib_aag21'
+    kap_option_str(kap_oplib_mb22) = 'oplib_mb22'
     kap_option_str(kap_test) = 'test'
     
     kap_CO_option_str(kap_CO_gn93) = 'gn93_co'
@@ -546,6 +556,8 @@ subroutine kap_def_init(kap_cache_dir_in)
     kap_CO_option_str(kap_CO_a09) = 'a09_co'
     kap_CO_option_str(kap_CO_test) = 'test_co'
     
+    kap_lowT_option_str(kap_lowT_fa05_mb22) = 'lowT_fa05_mb22'
+    kap_lowT_option_str(kap_lowT_fa05_aag21) = 'lowT_fa05_aag21'
     kap_lowT_option_str(kap_lowT_Freedman11) = 'lowT_Freedman11'
     kap_lowT_option_str(kap_lowT_fa05_gs98) = 'lowT_fa05_gs98'
     kap_lowT_option_str(kap_lowT_fa05_gn93) = 'lowT_fa05_gn93'
@@ -568,6 +580,27 @@ subroutine kap_def_init(kap_cache_dir_in)
 
     do i=1, kap_options_max
        select case (i)
+       case (6:9)
+         num_kap_Xs(i) = 30
+         kap_Xs(1:num_kap_Xs(i), i) = [0.0d0, 0.000001d0, 0.00001d0, 0.000d0, 0.001d0, 0.01d0, &
+             0.05d0, 0.1d0, 0.15d0, 0.2d0, 0.25d0, 0.3d0, 0.35d0, 0.4d0, 0.45d0, 0.5d0, 0.55d0, &
+             0.6d0, 0.65d0, 0.7d0, 0.75d0, 0.8d0, 0.85d0, 0.9d0, 0.91d0, 0.92d0, 0.93d0, 0.94d0, &
+             0.95d0,1.0d0]
+         num_kap_Zs(i) = 41
+         kap_Zs(1:num_kap_Zs(i), i) = [0.0d0, 0.000001d0, 0.00001d0, 0.00003d0, 0.00007d0, 0.0001d0, &
+         0.0003d0 ,0.0007d0, 0.001d0, 0.002d0, 0.003d0, 0.004d0, 0.006d0, 0.008d0, 0.01d0, 0.012d0, &
+         0.014d0, 0.015d0, 0.016d0, 0.017d0, 0.018d0, 0.019d0, 0.02d0, 0.021d0, 0.022d0, 0.023d0, &
+         0.024d0, 0.025d0, 0.026d0, 0.028d0, 0.03d0, 0.035d0, 0.04d0, 0.05d0, 0.06d0, 0.07d0, 0.08d0, &
+         0.09d0, 0.1d0, 0.15d0, 0.2d0]
+         num_kap_Xs_for_this_Z(1:num_kap_Zs(i), i) = [ num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), &
+            num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), &
+            num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), &
+            num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), &
+            num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), &
+            num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), &
+            num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), num_kap_Xs(i), &
+            num_kap_Xs(i), num_kap_Xs(i)-1, num_kap_Xs(i)-2, num_kap_Xs(i)-3, num_kap_Xs(i)-4, &
+            num_kap_Xs(i)-5, num_kap_Xs(i)-6, num_kap_Xs(i)-7, num_kap_Xs(i)-8]
        case DEFAULT
           num_kap_Xs(i) = 10
           kap_Xs(1:num_kap_Xs(i), i) = [0.00d0, 0.10d0, 0.20d0, &
diff --git a/kap/test/src/test_kap_support.f90 b/kap/test/src/test_kap_support.f90
index 946cf21d2..8e6390d05 100644
--- a/kap/test/src/test_kap_support.f90
+++ b/kap/test/src/test_kap_support.f90
@@ -72,10 +72,10 @@ subroutine test1_op_mono(quietly, test_str)
          logical, intent(in) :: quietly
          character (len=*), intent(in) :: test_str
          real(dp) :: &
-            zbar, Z, xh, XC, XN, XO, XNe, frac, abar, kap1, &
-            fC, fN, fO, fNe, dXC, dXO, xmass(ionmax), &
+            zbar, Z, xh, XC, XN, XO, XNe, kap1, &
+            xmass(ionmax), &
             frac_Type2, lnfree_e, d_lnfree_e_dlnRho, d_lnfree_e_dlnT, &
-            logT, logRho, logR, kap, log10kap, dlnkap_dlnRho, dlnkap_dlnT
+            logT, logRho, kap, log10kap, dlnkap_dlnRho, dlnkap_dlnT
             
          logical :: CO_enhanced
          logical, parameter :: dbg = .false.
@@ -182,8 +182,8 @@ subroutine test_op_mono(fe56,ierr)
          
             real, pointer :: &
                umesh(:), semesh(:), ff(:,:,:,:), ta(:,:,:,:), rs(:,:,:)
-            integer :: kk, nel, nptot, ipe, nrad, i, iz(ionmax), iZ_rad(ionmax)
-            real(dp), dimension(ionmax) :: fap, fac, gp1, &
+            integer :: kk, nel, nptot, ipe, nrad, iz(ionmax), iZ_rad(ionmax)
+            real(dp), dimension(ionmax) :: fap, fac, &
                lgrad
             real(dp) :: flux, L, r
             logical, parameter :: screening = .true.
@@ -308,7 +308,7 @@ subroutine test1(quietly, which, test_str, ierr)
             fC, fN, fO, fNe, dXC, dXO, &
             lnfree_e, d_lnfree_e_dlnRho, d_lnfree_e_dlnT, &
             eta, d_eta_dlnRho, d_eta_dlnT, &
-            logT, logRho, logR, kap, log10kap, dlnkap_dlnRho, dlnkap_dlnT
+            logT, logRho, kap, log10kap, dlnkap_dlnRho, dlnkap_dlnT
          real(dp) :: kap_fracs(num_kap_fracs), dlnkap_dxa(species)
 
          ! eos results
@@ -486,7 +486,6 @@ subroutine setup(quietly)
          use const_lib
          logical, intent(in) :: quietly
          
-         character (len=256) :: kap_dir, opal_dir, cbeg_ferg
          integer :: ierr
          logical, parameter :: use_cache = .true.
          
diff --git a/linters/check_columns.py b/linters/check_columns.py
index 32a262576..cd77fb4c7 100755
--- a/linters/check_columns.py
+++ b/linters/check_columns.py
@@ -9,6 +9,7 @@
 ENABLE_TEST_SUITE_HIST_CHECKS = True
 ENABLE_TEST_SUITE_PROF_CHECKS = True
 
+
 # inspiration from https://stackoverflow.com/a/27531275
 class CaseInsensitiveSet(MutableSet):
     def __init__(self, iterable):
@@ -73,9 +74,9 @@ def print_options(options):
 def delete_command(options, filename):
     print("for i in", " ".join(options), end=";")
     print("do ", end="")
-    print('sed -i "/^\s*\!$i/d" */' + filename, end=";")
-    print('sed -i "/^\s*\!\s*$i/d" */' + filename, end=";")
-    print('sed -i "/^\s*$i/d" */' + filename, end=";")
+    print(r'sed -i "/^\s*\!$i/d" */' + filename, end=";")
+    print(r'sed -i "/^\s*\!\s*$i/d" */' + filename, end=";")
+    print(r'sed -i "/^\s*$i/d" */' + filename, end=";")
     print("done")
 
 
@@ -88,7 +89,7 @@ def get_history_columns(filename="star/defaults/history_columns.list"):
     # that is, they may or may not be commented out
     # and may or may not have a trailing comment
 
-    regexp = "^[ \t]*!?[ ]?(\w+)[ ^t]*(!.*)?$"
+    regexp = r"^[ \t]*!?[ ]?(\w+)[ ^t]*(!.*)?$"
 
     return get_columns(filename, regexp)
 
@@ -99,7 +100,7 @@ def get_star_history_def(filename="star/private/star_history_def.f90"):
     # these lines look like:
     #   history_column_name(h_star_mass) = 'star_mass'
     #                                       ^^^^^^^^^
-    regexp = "history_column_name\\(h_\w+\\)[ ]*=[&\s]*'(\w+)'"
+    regexp = r"history_column_name\\(h_\w+\\)[ ]*=[&\s]*'(\w+)'"
 
     return get_options(filename, regexp)
 
@@ -110,7 +111,7 @@ def get_star_history(filename="star/private/history.f90"):
     # these lines look like:
     #   case(h_star_mass)
     #          ^^^^^^^^^
-    regexp = "case[ ]*\\(h_(\w+)\\)"
+    regexp = r"case[ ]*\\(h_(\w+)\\)"
 
     return get_options(filename, regexp)
 
@@ -273,7 +274,7 @@ def get_profile_getval(filename="star/private/profile_getval.f90"):
     # these lines look like:
     #   case(p_zone)
     #          ^^^^
-    regexp = "case[ ]*\\(p_(\w+)\\)"
+    regexp = r"case[ ]*\\(p_(\w+)\\)"
 
     return get_options(filename, regexp)
 
@@ -285,7 +286,7 @@ def get_profile_def(filename="star/private/star_profile_def.f90"):
     # these lines look like:
     #   profile_column_name(p_zone) = 'zone'
     #                                  ^^^^^
-    regexp = "profile_column_name\\(p_\w+\\)[ ]*=[&\s]*'(\w+)'"
+    regexp = r"profile_column_name\\(p_\w+\\)[ ]*=[&\s]*'(\w+)'"
 
     return get_options(filename, regexp)
 
@@ -299,7 +300,7 @@ def get_profile_columns(filename="star/defaults/profile_columns.list"):
     # that is, they may or may not be commented out
     # and may or may not have a trailing comment
 
-    regexp = "^[ \t]*!?[ ]?(\w+)[ ^t]*(!.*)?$"
+    regexp = r"^[ \t]*!?[ ]?(\w+)[ ^t]*(!.*)?$"
 
     return get_columns(filename, regexp)
 
diff --git a/linters/check_defaults.py b/linters/check_defaults.py
index 7f0778702..48d7e0e58 100755
--- a/linters/check_defaults.py
+++ b/linters/check_defaults.py
@@ -2,7 +2,6 @@
 
 import os
 import re
-import glob
 from collections.abc import MutableSet
 import functools
 import operator
@@ -12,8 +11,10 @@
 ENABLE_TEST_SUITE_HIST_CHECKS = True
 ENABLE_TEST_SUITE_PROF_CHECKS = True
 
+
 # inspiration from https://stackoverflow.com/a/27531275
 class CaseInsensitiveSet(MutableSet):
+
     def __init__(self, iterable):
         self._values = {}
         self._fold = str.casefold
@@ -61,6 +62,7 @@ def get_columns(filename, regexp):
             matches.append(m.group(1))
     return CaseInsensitiveSet(matches)
 
+
 def print_section(header):
     """Display output section header"""
     print(f"\n\n*** {header} ***\n")
@@ -82,12 +84,13 @@ def get_defaults(filename):
     # and may or may not have a( )
     # and may or may not have space before a =
 
-    regexp = "^[ \t]*[ ]?(\w+)(\(.*\))*[ ^t]*="
+    regexp = r"^[ \t]*[ ]?(\w+)(\(.*\))*[ ^t]*="
 
     return get_columns(filename, regexp)
 
+
 def load_file(filename):
-    with open(os.path.join(MESA_DIR, filename),"r") as f:
+    with open(os.path.join(MESA_DIR, filename), "r") as f:
         lines = f.readlines()
 
     return lines
@@ -98,33 +101,35 @@ def get_inc(filename):
     lines = load_file(filename)
 
     # Remove line continutaion characters
-    lines = [i.replace("&","").strip() for i in lines if i]
+    lines = [i.replace("&", "").strip() for i in lines if i]
 
-    # Remove type defintion (i.e real(dp) :: x) leaves just x
-    # as well as anything that starstwith a comment or has a comment embeded in it
-    for idl,line in enumerate(lines):
+    # Remove type definition (i.e real(dp) :: x) leaves just x
+    # as well as anything that starts with a comment
+    # or has a comment embedded in it
+    for idl, line in enumerate(lines):
         if "::" in line:
             lines[idl] = line.split("::")[1].strip()
 
-    lines = [i.split(",") for i in lines  if i]
+    lines = [i.split(",") for i in lines if i]
 
     # Flatten list of lists
     lines = functools.reduce(operator.iconcat, lines, [])
 
     # Remove array sizes from variables
-    lines  = [line.split("(")[0] for line in lines if line]
-    
+    lines = [line.split("(")[0] for line in lines if line]
+
     # Remove comments
     lines = [line.split("!")[0] for line in lines if line]
 
-    # Remove = x 
-    lines  = [line.split("=")[0] for line in lines if line]
+    # Remove = x
+    lines = [line.split("=")[0] for line in lines if line]
 
     # Remove remaining empty strings
-    lines  = [line.strip() for line in lines if line]
+    lines = [line.strip() for line in lines if line]
 
     return CaseInsensitiveSet(lines)
 
+
 def check_io(filename, dt, var):
     # Checks that we have both dt% variable = variable and variable = dt% variable
     # Where dt is the derived type (s for star_job, b for binary_job etc)
@@ -142,14 +147,14 @@ def check_io(filename, dt, var):
 
     match_m1 = False
     match_m2 = False
-    r1=[]
-    r2=[]
+    r1 = []
+    r2 = []
 
     for line in lines:
         if rc1.match(line):
-            match_m1=True
+            match_m1 = True
         if rc2.match(line):
-            match_m2=True
+            match_m2 = True
 
     if not match_m1:
         r1.append(m1)
@@ -157,7 +162,8 @@ def check_io(filename, dt, var):
     if not match_m2:
         r2.append(m2)
 
-    return r1,r2
+    return r1, r2
+
 
 def run_checks(inc_file, defaults_file, io_file, dt, module):
 
@@ -181,8 +187,6 @@ def run_checks(inc_file, defaults_file, io_file, dt, module):
         f"{module}_namelist_name",
     )
 
-
-
     print_section("Things in include but not defaults")
 
     print_options(cinc - cdef - false_positives)
@@ -195,8 +199,8 @@ def run_checks(inc_file, defaults_file, io_file, dt, module):
 
     m1 = []
     m2 = []
-    for i in cdef- false_positives:
-        r1,r2=check_io(io_file, dt,i)
+    for i in cdef - false_positives:
+        r1, r2 = check_io(io_file, dt, i)
         m1.extend(r1)
         m2.extend(r2)
 
@@ -210,9 +214,34 @@ def run_checks(inc_file, defaults_file, io_file, dt, module):
 
     print()
 
+
 if __name__ == "__main__":
-    run_checks("star_data/private/star_controls.inc","star/defaults/controls.defaults","star/private/ctrls_io.f90","s","controls")
-    run_checks("star_data/private/star_controls_dev.inc","star/defaults/controls_dev.defaults","star/private/ctrls_io.f90","s","controls")
+    run_checks(
+        "star_data/private/star_controls.inc",
+        "star/defaults/controls.defaults",
+        "star/private/ctrls_io.f90",
+        "s",
+        "controls",
+    )
+    run_checks(
+        "star_data/private/star_controls_dev.inc",
+        "star/defaults/controls_dev.defaults",
+        "star/private/ctrls_io.f90",
+        "s",
+        "controls",
+    )
 
-    run_checks("star_data/private/star_job_controls.inc","star/defaults/star_job.defaults","star/private/star_job_ctrls_io.f90","s% job","star_job")
-    run_checks("star_data/private/star_job_controls_dev.inc","star/defaults/star_job_dev.defaults","star/private/star_job_ctrls_io.f90","s% job","star_job")
+    run_checks(
+        "star_data/private/star_job_controls.inc",
+        "star/defaults/star_job.defaults",
+        "star/private/star_job_ctrls_io.f90",
+        "s% job",
+        "star_job",
+    )
+    run_checks(
+        "star_data/private/star_job_controls_dev.inc",
+        "star/defaults/star_job_dev.defaults",
+        "star/private/star_job_ctrls_io.f90",
+        "s% job",
+        "star_job",
+    )
diff --git a/linters/check_empty_writes.py b/linters/check_empty_writes.py
index 21e77d050..5878e37df 100644
--- a/linters/check_empty_writes.py
+++ b/linters/check_empty_writes.py
@@ -7,16 +7,14 @@
 
 MESA_DIR = os.environ["MESA_DIR"]
 
-# Search files for instances on an empty writing usin* as the format i.e write(*,*) 
-# and replace with calls to write(*,'(A)') 
+# Search files for instances on an empty writing usin* as the format i.e write(*,*)
+# and replace with calls to write(*,'(A)')
 # This makes writes more portable to ifort
 
 # Files or folders to skip
-skip_folders = [
-]
+skip_folders = []
 
-skip_files = [
-]
+skip_files = []
 
 
 def check_skip(path):
@@ -29,10 +27,12 @@ def check_skip(path):
     return False
 
 
-write = re.compile("^ *write\([*a-zA-Z0-9]+\,[*]\)$")
+write = re.compile(r"^ *write\([*a-zA-Z0-9]+\,[*]\)$")
+
 
 def replace(match):
-    return match.string.split(',')[0] + ",'(A)')"
+    return match.string.split(",")[0] + ",'(A)')"
+
 
 if len(sys.argv) > 1:
     files = sys.argv[1:]
diff --git a/linters/check_omp_critical.py b/linters/check_omp_critical.py
index a730a108c..cc4201e00 100644
--- a/linters/check_omp_critical.py
+++ b/linters/check_omp_critical.py
@@ -10,11 +10,9 @@
 # Search files for unnamed omp critical blocks
 
 # Files or folders to skip
-skip_folders = [
-]
+skip_folders = []
 
-skip_files = [
-]
+skip_files = []
 
 
 def check_skip(path):
@@ -27,21 +25,24 @@ def check_skip(path):
     return False
 
 
-omp_crit_start = re.compile("omp critical *$",re.IGNORECASE)
-omp_crit_end = re.compile("omp end critical *$",re.IGNORECASE)
+omp_crit_start = re.compile("omp critical *$", re.IGNORECASE)
+omp_crit_end = re.compile("omp end critical *$", re.IGNORECASE)
 
 if len(sys.argv) > 1:
     files = sys.argv[1:]
 else:
     files = Path("./").rglob("*.f90")
 
-def replace_start(line,file, num):
-    whitespace = ' '*line.index('!')
-    return whitespace + '!$omp critical (' + file.stem + '_' + str(num) + ')\n' 
 
-def replace_end(line,file, num):
-    whitespace = ' '*line.index('!')
-    return whitespace + '!$omp end critical (' + file.stem + '_' + str(num) + ')\n' 
+def replace_start(line, file, num):
+    whitespace = " " * line.index("!")
+    return whitespace + "!$omp critical (" + file.stem + "_" + str(num) + ")\n"
+
+
+def replace_end(line, file, num):
+    whitespace = " " * line.index("!")
+    return whitespace + "!$omp end critical (" + file.stem + "_" + str(num) + ")\n"
+
 
 for file in files:
     num = 1
@@ -54,16 +55,16 @@ def replace_end(line,file, num):
     modified = False
     for ldx, line in enumerate(lines):
         if omp_crit_start.search(line):
-            line = replace_start(line,file,num)
+            line = replace_start(line, file, num)
             lines[ldx] = line
             modified = True
             # Find the end statement
-            for ldx2,line2 in enumerate(lines[ldx:]):
+            for ldx2, line2 in enumerate(lines[ldx:]):
                 if omp_crit_end.search(line2):
                     line2 = replace_end(line2, file, num)
-                    lines[ldx+ldx2] = line2
+                    lines[ldx + ldx2] = line2
                     break
-            num = num+1
+            num = num + 1
 
     if modified:
         with open(file, "w") as f:
diff --git a/linters/check_photos.py b/linters/check_photos.py
index fbaff85b7..870112c0d 100755
--- a/linters/check_photos.py
+++ b/linters/check_photos.py
@@ -6,6 +6,7 @@
 
 MESA_DIR = "../"
 
+
 class CaseInsensitiveSet(MutableSet):
     def __init__(self, iterable):
         self._values = {}
@@ -53,9 +54,9 @@ def discard(self, value):
     "net_iso",
     "model_profile_filename",
     "include_binary_history_in_log_file",
-    "i_dj_rot_dt", # Shadows s% i_j_rot
-    "i_equ_w_div_wc", # Shadows s% i_w_div_wc
-    "have_j_rot", # Set from s% rotation_flag
+    "i_dj_rot_dt",  # Shadows s% i_j_rot
+    "i_equ_w_div_wc",  # Shadows s% i_w_div_wc
+    "have_j_rot",  # Set from s% rotation_flag
     "nz_old",
 }
 
diff --git a/linters/check_stop.py b/linters/check_stop.py
index a0a0d717c..3e9f0493f 100644
--- a/linters/check_stop.py
+++ b/linters/check_stop.py
@@ -14,8 +14,8 @@
 # Files or folders to skip
 skip_folders = [
     "utils/",
-    'eos/eosCMS_builder',
-    'eos/eosFreeEOS_builder',
+    "eos/eosCMS_builder",
+    "eos/eosFreeEOS_builder",
 ]
 
 skip_files = [
@@ -43,6 +43,7 @@ def mesa_error(message=None):
     else:
         return f"call mesa_error(__FILE__,__LINE__,{message})"
 
+
 if len(sys.argv) > 1:
     files = sys.argv[1:]
 else:
diff --git a/linters/fix_inlists.py b/linters/fix_inlists.py
index 29bea5019..db3e22bc7 100755
--- a/linters/fix_inlists.py
+++ b/linters/fix_inlists.py
@@ -2,71 +2,80 @@
 
 import os
 import sys
-import re
 import glob
 
 MESA_DIR = "../"
 
 
-
-def set_min_value(line,num='10'):
-    if line.strip().startswith('!'):
+def set_min_value(line, num="10"):
+    if line.strip().startswith("!"):
         return line
 
-    l = line.split('!')[0]
-    interval = l.split('=')[1]
+    lsplit = line.split("!")[0]
+    interval = lsplit.split("=")[1]
     if int(interval) < 10:
-        line = line.replace(interval,f" {num} \n")
+        line = line.replace(interval, f" {num} \n")
 
     return line
 
-def set_flag(line,new_flag='.false.',old_flag='.true.'):
-    if line.strip().startswith('!'):
+
+def set_flag(line, new_flag=".false.", old_flag=".true."):
+    if line.strip().startswith("!"):
         return line
 
-    line = line.replace(old_flag,new_flag)
+    line = line.replace(old_flag, new_flag)
 
     return line
 
+
 def fix_line(line):
 
     # Turn off solver
-    if 'report_solver_progress' in line:
+    if "report_solver_progress" in line:
         line = set_flag(line)
 
     # Limit output
-    if 'terminal_interval' in line:
+    if "terminal_interval" in line:
         line = set_min_value(line)
-        
+
     # Limit output
-    if 'profile_interval' in line:
+    if "profile_interval" in line:
         line = set_min_value(line)
+
+    # Fix indent spaces (if line starts with spaces, replace it with 3 spaces)
+    if line.startswith(" "):
+        line = "   " + line.lstrip()
+
+    # Remove spaces trailing the line
+    line = line.rstrip() + "\n"
+
     return line
 
 
 def fix_inlist(file):
     try:
-        with open(file,'r') as f:
+        with open(file, "r") as f:
             lines = f.readlines()
     except IsADirectoryError:
         return
 
     lines = [fix_line(line) for line in lines]
 
-    with open(file,'w') as f:
+    with open(file, "w") as f:
         f.writelines(lines)
 
+
 def fix_inlists(*files):
     for file in files:
         print(file)
         fix_inlist(file)
 
+
 if __name__ == "__main__":
     if len(sys.argv) > 1:
         fix_inlists(sys.argv[1:])
     else:
-        inlists = glob.glob(os.path.join(MESA_DIR,'star','test_suite','*','inlist*'))
+        inlists = glob.glob(
+            os.path.join(MESA_DIR, "star", "test_suite", "*", "inlist*")
+        )
         fix_inlists(*inlists)
-
-
-
diff --git a/linters/list_test_owner.py b/linters/list_test_owner.py
index b282b358e..18680c3d3 100644
--- a/linters/list_test_owner.py
+++ b/linters/list_test_owner.py
@@ -1,5 +1,3 @@
-import os
-import glob
 from collections import defaultdict
 
 import check_test_suite_owners as cc
diff --git a/linters/mesa-linter.py b/linters/mesa-linter.py
index c0f838a5a..00f2444c7 100644
--- a/linters/mesa-linter.py
+++ b/linters/mesa-linter.py
@@ -1,7 +1,6 @@
 from __future__ import print_function
 
 import sys
-import os
 import re
 
 
@@ -13,11 +12,11 @@ def search(filename, checks, summary=False):
                 # Skip comment lines
                 continue
             for c in checks:
-                if "!" in line and not "!$" in line:
-                    l = line[: line.index("!")]
+                if "!" in line and "!$" not in line:
+                    lcheck = line[: line.index("!")]
                 else:
-                    l = line
-                lcheck = l.lower()
+                    lcheck = line
+                lcheck = lcheck.lower()
                 x = c(lcheck)
                 if x is not None:
                     count += 1
@@ -37,14 +36,14 @@ def check_float(line):
 
 def check_pow(line):
     # Look for 3**5
-    if re.search("[a-zA-Z0-9\)]\*\*[a-zA-Z0-9]", line):
+    if re.search(r"[a-zA-Z0-9\)]\*\*[a-zA-Z0-9]", line):
         return "Found ** use, use powX() instead"
     return None
 
 
 def check_real_op(line):
     # Lots of code has 1.+2.
-    checks = ["[0-9]\.\*", "[0-9]\.\+", "[0-9]\.\-", "[0-9]\.\/"]
+    checks = [r"[0-9]\.\*", r"[0-9]\.\+", r"[0-9]\.\-", r"[0-9]\.\/"]
     found = []
     for c in checks:
         if re.search(c, line):
@@ -57,7 +56,7 @@ def check_real_op(line):
 def check_real_exp(line):
     # Look for 1e+1, 1e-1, 1e1
     if (
-        re.search("[0-9][eE][+]?[-]?[0-9]", line)
+        re.search(r"[0-9][eE][+]?[-]?[0-9]", line)
         and "write" not in line
         and "format(" not in line
     ):
@@ -69,10 +68,10 @@ def check_real_d(line):
     # Look for 1.5 but not 1.5d0
     if "write" not in line and "format(" not in line:
         for i in re.split(
-            " |\+|\-|\=|\*|\/", line
+            r" |\+|\-|\=|\*|\/", line
         ):  # Split up string into things approximately like a number
             if len(i) and re.search(
-                "\d+[.](?!.*[_Dd]).*", i
+                r"\d+[.](?!.*[_Dd]).*", i
             ):  # test if missing double precision qualifier
                 return "Missing D on float"
     return None
@@ -84,13 +83,13 @@ def check_real(line):
         return "Declared real use real(dp) instead"
     return None
 
+
 def check_dp(line):
     if "double precision" in line:
         return "Found double precision use real(dp) instead"
     return None
 
 
-
 allchecks = [
     check_float,
     check_pow,
@@ -100,6 +99,7 @@ def check_dp(line):
     check_dp,
 ]
 
+
 if __name__ == "__main__":
     files = sys.argv[1:]
     s = False
diff --git a/linters/update_columns.py b/linters/update_columns.py
index bcea6c7bd..2fec34fe4 100644
--- a/linters/update_columns.py
+++ b/linters/update_columns.py
@@ -3,9 +3,7 @@
 import os
 import re
 import glob
-import sys
 from collections.abc import MutableSet
-from pathlib import Path
 
 MESA_DIR = os.environ["MESA_DIR"]
 
@@ -44,7 +42,6 @@ def discard(self, value):
 
 def get_options(filename, regexp):
     """Return a set of MESA option names"""
-    r = regexp
     with open(os.path.join(MESA_DIR, filename)) as f:
         matches = regexp.finditer(f.read())
     return CaseInsensitiveSet(m.group(1) for m in matches)
@@ -72,9 +69,11 @@ def print_options(options):
     for o in sorted(options):
         print(f"   {o}")
 
-match_comments = re.compile("^[ \t]*!?[ ]?(\w+[ 0-9]*?)[ ^t]*(!.*)?$")
-match_no_comment = re.compile("^[ \t]*(\w+[ 0-9]*?)[ ^t]*(!.*)?$")
-match_uncomment = re.compile('(^[\s]*?)([!])(.*)')
+
+match_comments = re.compile(r"^[ \t]*!?[ ]?(\w+[ 0-9]*?)[ ^t]*(!.*)?$")
+match_no_comment = re.compile(r"^[ \t]*(\w+[ 0-9]*?)[ ^t]*(!.*)?$")
+match_uncomment = re.compile(r"(^[\s]*?)([!])(.*)")
+
 
 def match_columns(filename, comments=True):
     # extract column names from history_columns.list
@@ -88,12 +87,12 @@ def match_columns(filename, comments=True):
     if comments:
         regexp = match_comments
     else:
-        regexp = match_no_comment 
+        regexp = match_no_comment
 
     return get_columns(filename, regexp)
 
 
-def update(default, test_suite, special_cases = None, debug=False):
+def update(default, test_suite, special_cases=None, debug=False):
 
     # Load default file:
     with open(default) as f:
@@ -115,8 +114,8 @@ def update(default, test_suite, special_cases = None, debug=False):
                         groups = match_uncomment.match(line)
                         # We want the first ! before the option but not ! after the option
                         if groups is not None:
-                            if groups[2] == '!':
-                                line = ''.join([groups[1],groups[3],'\n'])
+                            if groups[2] == "!":
+                                line = "".join([groups[1], groups[3], "\n"])
 
                         test_case.discard(match.group(1))
 
@@ -125,20 +124,19 @@ def update(default, test_suite, special_cases = None, debug=False):
             # Add back in things we may miss like burning_regions 40
             if special_cases is not None and test_case:
                 print(file=f)
-                print('   !## Extras',file=f)
+                print("   !## Extras", file=f)
                 for case in special_cases:
                     for c in test_case:
                         if c.startswith(case):
-                            print(f'      {c}',file=f)
+                            print(f"      {c}", file=f)
 
         # Debug anything leftover
         if debug:
             if test_case:
-                print(file,test_case)
+                print(file, test_case)
                 print()
 
 
-
 def update_history():
     """Run updates on history columns"""
 
@@ -149,9 +147,9 @@ def update_history():
     default = os.path.join(MESA_DIR, "star", "defaults", "history_columns.list")
 
     # Special case things that are name number
-    special_cases = set(['burning_regions','mixing_regions','mix_relr_regions',
-                        'burn_relr_regions'])
-
+    special_cases = set(
+        ["burning_regions", "mixing_regions", "mix_relr_regions", "burn_relr_regions"]
+    )
 
     update(default, files, special_cases)
 
diff --git a/linters/update_ctrls.py b/linters/update_ctrls.py
index b47ec2536..a86147a5f 100644
--- a/linters/update_ctrls.py
+++ b/linters/update_ctrls.py
@@ -1,13 +1,13 @@
 #!/usr/bin/env python
 
 # This file is designed to handle moving controls from s% xx to s% ctrl %xx
-# While this replicates alot of check_defaults.py we want this to be standalone
+# While this replicates a lot of check_defaults.py we want this to be standalone
 # and only depend on the python stdlib. This way users can easily use it to port their
 # run_star_extras.f90 files without needing to worry about python packaging.
 
 # Usage: python update_ctrls.up file1.f90 file2.f90 ....
 
-# Note this only works for s% (or s %) it does not work if you renamed the star_type varaible 
+# Note this only works for s% (or s %) it does not work if you renamed the star_type variable
 # to something other than s, for instance in the binary module.
 
 import os
@@ -20,11 +20,13 @@
 
 MESA_DIR = os.environ["MESA_DIR"]
 
-ctrls_files = [ os.path.join("star_data","private","star_controls.inc"),
-                os.path.join("star_data","private","star_controls_dev.inc")
-            ]
+ctrls_files = [
+    os.path.join("star_data", "private", "star_controls.inc"),
+    os.path.join("star_data", "private", "star_controls_dev.inc"),
+]
+
+CRTL_NAME = "s% ctrl% "
 
-CRTL_NAME = 's% ctrl% '
 
 # inspiration from https://stackoverflow.com/a/27531275
 class CaseInsensitiveSet(MutableSet):
@@ -51,12 +53,11 @@ def items(self):
 
     def add(self, value):
         if isinstance(value, CaseInsensitiveSet):
-            for k,v in value.items():
+            for k, v in value.items():
                 self._values[self._fold(k)] = v
         else:
             self._values[self._fold(value)] = value
 
-        
     def discard(self, value):
         v = self._fold(value)
         if v in self._values:
@@ -83,6 +84,7 @@ def get_columns(filename, regexp):
             matches.append(m.group(1))
     return CaseInsensitiveSet(matches)
 
+
 def get_defaults(filename):
     # extract column names from defaults file
 
@@ -93,12 +95,13 @@ def get_defaults(filename):
     # and may or may not have a( )
     # and may or may not have space before a =
 
-    regexp = "^[ \t]*[ ]?(\w+)(\(.*\))*[ ^t]*="
+    regexp = r"^[ \t]*[ ]?(\w+)(\(.*\))*[ ^t]*="
 
     return get_columns(filename, regexp)
 
+
 def load_file(filename):
-    with open(os.path.join(MESA_DIR, filename),"r") as f:
+    with open(os.path.join(MESA_DIR, filename), "r") as f:
         lines = f.readlines()
 
     return lines
@@ -109,33 +112,35 @@ def get_inc(filename):
     lines = load_file(filename)
 
     # Remove line continutaion characters
-    lines = [i.replace("&","").strip() for i in lines if i]
+    lines = [i.replace("&", "").strip() for i in lines if i]
 
     # Remove type defintion (i.e real(dp) :: x) leaves just x
-    # as well as anything that starstwith a comment or has a comment embeded in it
-    for idl,line in enumerate(lines):
+    # as well as anything that starts with a comment
+    # or has a comment embedded in it
+    for idl, line in enumerate(lines):
         if "::" in line:
             lines[idl] = line.split("::")[1].strip()
 
-    lines = [i.split(",") for i in lines  if i]
+    lines = [i.split(",") for i in lines if i]
 
     # Flatten list of lists
     lines = functools.reduce(operator.iconcat, lines, [])
 
     # Remove array sizes from variables
-    lines  = [line.split("(")[0] for line in lines if line]
-    
+    lines = [line.split("(")[0] for line in lines if line]
+
     # Remove comments
     lines = [line.split("!")[0] for line in lines if line]
 
-    # Remove = x 
-    lines  = [line.split("=")[0] for line in lines if line]
+    # Remove = x
+    lines = [line.split("=")[0] for line in lines if line]
 
     # Remove remaining empty strings
-    lines  = [line.strip() for line in lines if line]
+    lines = [line.strip() for line in lines if line]
 
     return CaseInsensitiveSet(lines)
 
+
 # Load controls names
 cinc = get_inc(ctrls_files[0])
 
@@ -148,31 +153,32 @@ def update(filename):
         lines = load_file(filename)
     except (UnicodeDecodeError, IsADirectoryError):
         return
-        
+
     " s[0 or more space] % [0 or more space] [1 or more character or number or _]"
-    # This wont match when s has been renamed 
-    regex_all = "(s[ \t]?[a-zA-Z0-9_]?%[ \t]?[a-zA-Z0-9_]*)"
+    # This won't match when s has been renamed
+    regex_all = r"(s[ \t]?[a-zA-Z0-9_]?%[ \t]?[a-zA-Z0-9_]*)"
 
     " s [0 or more space] % [0 or more space] "
-    regex_s = 's[ \ta-zA-Z0-9_]?%[ \t]?'
+    regex_s = r"s[ \ta-zA-Z0-9_]?%[ \t]?"
 
-    r_all = re.compile(regex_all)
-    r_s = re.compile(regex_s)
+    # r_all = re.compile(regex_all)
+    # r_s = re.compile(regex_s)
 
-    for idl,line in enumerate(lines):
+    for idl, line in enumerate(lines):
         # Split on s% something
-        line_split = re.split(regex_all,line)
-        for idm,match in enumerate(line_split):
+        line_split = re.split(regex_all, line)
+        for idm, match in enumerate(line_split):
             # Remove the s% so we can check if the variable is a control
-            var = match.replace('s%','').strip()
+            var = match.replace("s%", "").strip()
             if var in cinc:
                 # If it is a control then replace s% with CRTL_NAME
-                line_split[idm] = re.sub(regex_s,CRTL_NAME,match)
-        lines[idl] = ''.join(line_split)
+                line_split[idm] = re.sub(regex_s, CRTL_NAME, match)
+        lines[idl] = "".join(line_split)
 
-    with open(filename,'w') as f:
+    with open(filename, "w") as f:
         f.writelines(lines)
 
+
 if __name__ == "__main__":
     for i in sys.argv[1:]:
         update(i)
@@ -182,7 +188,7 @@ def update(filename):
 # python3 linters/update_ctrls.py star/test/src/*
 # python3 linters/update_ctrls.py star/work/src/*
 # python3 linters/update_ctrls.py star/job/*
-# python3 linters/update_ctrls.py star/p*/*.f90 
+# python3 linters/update_ctrls.py star/p*/*.f90
 # python3 linters/update_ctrls.py star/test_suite/*/src/*.f90
 # python3 linters/update_ctrls.py star/other/*.f90
 # python3 linters/update_ctrls.py */test_suite/*/src/*.inc
@@ -191,13 +197,13 @@ def update(filename):
 # python3 linters/update_ctrls.py binary/test/src/*
 # python3 linters/update_ctrls.py binary/work/src/*
 # python3 linters/update_ctrls.py binary/job/*
-# python3 linters/update_ctrls.py binary/p*/*.f90 
+# python3 linters/update_ctrls.py binary/p*/*.f90
 # python3 linters/update_ctrls.py binary/test_suite/*/src/*.f90
 # python3 linters/update_ctrls.py binary/other/*.f90
 
 # python3 linters/update_ctrls.py astero/test/src/*
 # python3 linters/update_ctrls.py astero/work/src/*
 # python3 linters/update_ctrls.py astero/job/*
-# python3 linters/update_ctrls.py astero/p*/*.f90 
+# python3 linters/update_ctrls.py astero/p*/*.f90
 # python3 linters/update_ctrls.py astero/test_suite/*/src/*.f90
 # python3 linters/update_ctrls.py astero/other/*.f90
diff --git a/mtx/mkl_pardiso_src/mod_mkl_pardiso.f b/mtx/mkl_pardiso_src/mod_mkl_pardiso.f
deleted file mode 100644
index b19d123ae..000000000
--- a/mtx/mkl_pardiso_src/mod_mkl_pardiso.f
+++ /dev/null
@@ -1,183 +0,0 @@
-! ***********************************************************************
-!
-!   Copyright (C) 2010  Bill Paxton
-!
-!   This file is part of MESA.
-!
-!   MESA is free software; you can redistribute it and/or modify
-!   it under the terms of the GNU General Library Public License as published
-!   by the Free Software Foundation; either version 2 of the License, or
-!   (at your option) any later version.
-!
-!   MESA is distributed in the hope that it will be useful,
-!   but WITHOUT ANY WARRANTY; without even the implied warranty of
-!   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-!   GNU Library General Public License for more details.
-!
-!   You should have received a copy of the GNU Library General Public License
-!   along with this software; if not, write to the Free Software
-!   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-!
-! ***********************************************************************
-
-
-      module mod_mkl_pardiso
-      
-      implicit none
-
-      integer, parameter :: num_pardiso_ipar_decsol = 64*3
-      integer, parameter :: num_pardiso_rpar_decsol = 0
-      
-      contains
-      
-      
-      logical function use_mkl_pardiso()
-         use_mkl_pardiso = .true.
-      end function use_mkl_pardiso
-
-      
-      subroutine do_mkl_pardiso_work_sizes(n,nzmax,lrd,lid)
-         integer, intent(in) :: n,nzmax
-         integer, intent(out) :: lrd,lid
-         lid = num_pardiso_ipar_decsol
-         lrd = num_pardiso_rpar_decsol
-      end subroutine do_mkl_pardiso_work_sizes
-
-      
-      subroutine do_mkl_pardiso(iop,n,nzmax,ia,ja,a,b,lrd,rpar_decsol,lid,ipar_decsol,ierr)
-         integer, intent(in) :: iop, n, nzmax, lrd, lid
-         integer, intent(inout) :: ia(n+1), ja(nzmax)
-         double precision, intent(inout) :: a(nzmax)
-         double precision, intent(inout) :: b(n)
-         double precision, intent(inout), target :: rpar_decsol(lrd)
-         integer, intent(inout), target :: ipar_decsol(lid)
-         integer, intent(out) :: ierr
-         call do_mkl_pardiso_nrhs(iop,1,n,nzmax,ia,ja,a,b,lrd,rpar_decsol,lid,ipar_decsol,ierr)
-      end subroutine do_mkl_pardiso
-
-
-      
-      subroutine do_mkl_pardiso_nrhs(iop,nrhs,n,nzmax,ia,ja,a,b,lrd,rpar_decsol,lid,ipar_decsol,ierr)
-         integer, intent(in) :: iop, nrhs, n, nzmax, lrd, lid
-         integer, intent(inout) :: ia(n+1), ja(nzmax)
-         double precision, intent(inout) :: a(nzmax)
-         double precision, intent(inout) :: b(n)
-         double precision, intent(inout), target :: rpar_decsol(lrd)
-         integer, intent(inout), target :: ipar_decsol(lid)
-         integer, intent(out) :: ierr
-         
-         integer, pointer :: pt(:) ! internal solver memory pointers
-         integer, pointer :: iparm(:) ! parameters for pardiso
-         integer :: mtype, phase, error, msglvl
-         integer :: i, idum
-         real(dp) :: ddum
-         real(dp), pointer :: x(:)
-         integer, parameter :: maxfct = 1, mnum = 1
-         
-         logical, parameter :: dbg = .false.
-         
-         if (lid < 64*3) then
-            ierr = -1
-            write(*,*) 'lid too small for mkl_pardiso_decsols', lid
-            return
-         end if
-         iparm => ipar_decsol(1:64)
-         pt => ipar_decsol(65:64*3)
-
-         ierr = 0
-         error = 0 ! initialize error flag
-         !msglvl = 1 ! print statistical information
-         msglvl = 0 ! no statistical information
-         mtype = 11 ! real unsymmetric
-         
-         if (iop == 0) then ! factor
-            !  initilize the internal solver memory pointer
-            pt(:) = 0
-            !  set up pardiso control parameters
-            iparm(:) = 0
-            iparm(1) = 1 ! no solver default
-            iparm(2) = 2 ! fill-in reordering from metis
-            iparm(3) = 4 ! use openmp    
-            iparm(4) = 0 ! no iterative-direct algorithm
-            iparm(5) = 0 ! no user fill-in reducing permutation
-            iparm(6) = 0 ! =0 solution on the first n compoments of x
-            iparm(7) = 0 ! not in use
-            iparm(8) = 9 ! numbers of iterative refinement steps
-            iparm(9) = 0 ! not in use
-            iparm(10) = 13 ! perturbe the pivot elements with 1e-13
-            iparm(11) = 1 ! use nonsymmetric permutation and scaling mps
-            iparm(12) = 0 ! not in use
-            iparm(13) = 1 ! maximum weighted matching algorithm is switched-on (default for non-symmetric)
-            iparm(14) = 0 ! output: number of perturbed pivots
-            iparm(15) = 0 ! not in use
-            iparm(16) = 0 ! not in use
-            iparm(17) = 0 ! not in use
-            iparm(18) = -1 ! output: number of nonzeros in the factor lu
-            iparm(19) = -1 ! output: mflops for lu factorization
-            iparm(20) = 0 ! output: numbers of cg iterations
-            !  reordering and symbolic factorization, this step also allocates
-            !  all memory that is necessary for the factorization
-            phase = 11 ! only reordering and symbolic factorization
-            if (dbg) write(*,*) 'call pardiso: phase', phase
-            call pardiso(pt, maxfct, mnum, mtype, phase, 
-     >            n, a, ia, ja, idum, nrhs, iparm, msglvl, ddum, ddum, error)
-            if (error .ne. 0) then
-               write(*,*) 'the following error was detected: ', error
-               call mesa_error(__FILE__,__LINE__)
-            end if
-            if (dbg) write(*,*) 'number of nonzeros in factors = ',iparm(18)
-            if (dbg) write(*,*) 'fill fraction = ',dble(iparm(18))/dble(n)
-         
-            !  factorization.
-            phase = 22 ! only factorization
-            if (dbg) write(*,*) 'call pardiso: phase', phase
-            call pardiso(pt, maxfct, mnum, mtype, phase, 
-     >            n, a, ia, ja, idum, nrhs, iparm, msglvl, ddum, ddum, error)
-            if (error .ne. 0) then
-               write(*,*) 'the following error was detected: ', error
-               call mesa_error(__FILE__,__LINE__)
-            endif
-         
-         else if (iop == 1) then ! solve
-         
-            !  back substitution and iterative refinement
-            iparm(8) = 2 ! max numbers of iterative refinement steps
-            phase = 33 ! only solve
-            allocate(x(n))
-            if (dbg) write(*,*) 'call pardiso: phase, n', phase, n, nrhs
-            call pardiso(pt, maxfct, mnum, mtype, phase, 
-     >            n, a, ia, ja, idum, nrhs, iparm, msglvl, b, x, error)
-            do i=1,n 
-               b(i) = x(i)
-            end do
-            deallocate(x)
-            if (error .ne. 0) then
-               write(*,*) 'the following error was detected: ', error
-               call mesa_error(__FILE__,__LINE__)
-            endif
-         
-         else if (iop == 2) then ! deallocate
-            phase = -1 ! release internal memory
-            if (dbg) write(*,*) 'call pardiso: phase', phase
-            call pardiso(pt, maxfct, mnum, mtype, phase, 
-     >            n, ddum, idum, idum, idum, nrhs, iparm, msglvl, ddum, ddum, error)
-            if (error .ne. 0) then
-               write(*,*) 'the following error was detected: ', error
-               call mesa_error(__FILE__,__LINE__)
-            endif
-         
-         else 
-         
-            write(*,*) 'invalid iop for do_mkl_pardiso', iop
-            call mesa_error(__FILE__,__LINE__)
-            
-         end if
-         
-         if (dbg) write(*,*) 'finished pardiso'
-         
-      end subroutine do_mkl_pardiso_nrhs
-
-
-      end module mod_mkl_pardiso
-
-
diff --git a/mtx/mkl_pardiso_src/mod_mkl_pardiso_stub.f b/mtx/mkl_pardiso_src/mod_mkl_pardiso_stub.f
deleted file mode 100644
index 4009c3d1a..000000000
--- a/mtx/mkl_pardiso_src/mod_mkl_pardiso_stub.f
+++ /dev/null
@@ -1,54 +0,0 @@
-
-      module mod_mkl_pardiso
-      
-      implicit none
-
-      integer, parameter :: num_pardiso_ipar_decsol = 0
-      integer, parameter :: num_pardiso_rpar_decsol = 0
-
-      
-      contains
-      
-      
-      logical function use_mkl_pardiso()
-         use_mkl_pardiso = .false.
-      end function use_mkl_pardiso
-
-      
-      subroutine do_mkl_pardiso_work_sizes(n,nzmax,lrd,lid)
-         integer, intent(in) :: n,nzmax
-         integer, intent(out) :: lrd,lid
-         lid = 0
-         lrd = 0
-      end subroutine do_mkl_pardiso_work_sizes
-
-      
-      subroutine do_mkl_pardiso(iop,n,nzmax,ia,ja,sa,b,lrd,rpar_decsol,lid,ipar_decsol,ierr)
-         integer, intent(in) :: iop, n, nzmax, lrd, lid
-         integer, intent(inout) :: ia(n+1), ja(nzmax)
-         double precision, intent(inout) :: sa(nzmax)
-         double precision, intent(inout) :: b(n)
-         double precision, intent(inout), target :: rpar_decsol(lrd)
-         integer, intent(inout), target :: ipar_decsol(lid)
-         integer, intent(out) :: ierr
-         ierr = -1
-         write(*,*) 'mkl pardiso not loaded'
-         call mesa_error(__FILE__,__LINE__)
-      end subroutine do_mkl_pardiso
-
-      
-      subroutine do_mkl_pardiso_nrhs(iop,nrhs,n,nzmax,ia,ja,sa,b,lrd,rpar_decsol,lid,ipar_decsol,ierr)
-         integer, intent(in) :: iop, nrhs, n, nzmax, lrd, lid
-         integer, intent(inout) :: ia(n+1), ja(nzmax)
-         double precision, intent(inout) :: sa(nzmax)
-         double precision, intent(inout) :: b(n)
-         double precision, intent(inout), target :: rpar_decsol(lrd)
-         integer, intent(inout), target :: ipar_decsol(lid)
-         integer, intent(out) :: ierr
-         ierr = -1
-         write(*,*) 'mkl pardiso not loaded'
-         call mesa_error(__FILE__,__LINE__)
-      end subroutine do_mkl_pardiso_nrhs
-
-
-      end module mod_mkl_pardiso
diff --git a/mtx/private/DGBSVX_wrapper.f90 b/mtx/private/DGBSVX_wrapper.f90
index 3309590f2..0d51bcb2f 100644
--- a/mtx/private/DGBSVX_wrapper.f90
+++ b/mtx/private/DGBSVX_wrapper.f90
@@ -28,7 +28,7 @@ subroutine DGBSVX_banded_wrapper(matrix_size, n_upper_bands, n_lower_bands, band
          integer, intent(in) :: matrix_size, n_upper_bands, n_lower_bands
 
          ! Intermediates
-         integer counter, i, j, k, k1, k2
+         integer :: i, j
          character(len=1) :: FACT, TRANS, EQUED
          integer :: NRHS, LDAB, LDAFB, LDB, LDX
          integer :: IWORK(matrix_size),  IPIV(matrix_size)
diff --git a/mtx/private/bcyclic.f90 b/mtx/private/bcyclic.f90
index f789d9473..e53aed033 100644
--- a/mtx/private/bcyclic.f90
+++ b/mtx/private/bcyclic.f90
@@ -59,8 +59,8 @@ subroutine bcyclic_factor ( &
          integer, pointer, intent(inout) :: ipar_decsol(:) ! (lid)
          integer, intent(out) :: ierr
       
-         integer, pointer :: iptr(:,:), nslevel(:), ipivot(:)
-         integer :: ncycle, nstemp, maxlevels, nlevel, i, j, k
+         integer, pointer :: nslevel(:), ipivot(:)
+         integer :: ncycle, nstemp, maxlevels, nlevel
          logical :: have_odd_storage
          real(dp), pointer, dimension(:,:) :: dmat
          real(dp) :: dlamch, sfmin
@@ -183,7 +183,7 @@ subroutine bcyclic_solve ( &
          integer, pointer, intent(inout) :: ipar_decsol(:) ! (lid)
          integer, intent(out) :: ierr
       
-         integer, pointer :: iptr(:,:), nslevel(:), ipivot(:)
+         integer, pointer :: nslevel(:), ipivot(:)
          integer :: ncycle, nstemp, maxlevels, nlevel, nvar2
          real(dp), pointer, dimension(:,:) :: dmat, bptr2
 
@@ -300,8 +300,8 @@ subroutine cycle_onestep( &
          real(dp), pointer, dimension(:,:) :: dmat, umat, lmat, umat0, lmat0
          real(dp), pointer, dimension(:,:) :: lnext, unext, lprev, uprev
          real(dp), pointer :: mat1(:)
-         integer :: i, j, shift, min_sz, new_sz, shift1, shift2, nvar2, &
-            ns, ierr_loc, nmin, kcount, k, ii, jj, kk
+         integer :: i, shift, min_sz, new_sz, shift1, shift2, nvar2, &
+            ns, ierr_loc, nmin, kcount, k
          real(dp) :: dlamch, sfmin
       
          include 'formats'
@@ -315,7 +315,7 @@ subroutine cycle_onestep( &
          if (odd_storage(nlevel)% ul_size < min_sz) then
             if (odd_storage(nlevel)% ul_size > 0) &
                deallocate(odd_storage(nlevel)% umat1, odd_storage(nlevel)% lmat1)         
-            new_sz = min_sz*1.1 + 100
+            new_sz = FLOOR(min_sz*1.1) + 100
             odd_storage(nlevel)% ul_size = new_sz
             allocate (odd_storage(nlevel)% umat1(new_sz), &
                       odd_storage(nlevel)% lmat1(new_sz), stat=ierr)
@@ -396,7 +396,7 @@ subroutine cycle_onestep( &
          nmin = 1
 !$omp parallel do schedule(static,3) &
 !$omp private(i,ns,shift2,dmat,umat,lmat,lnext,unext,lprev,uprev,kcount,shift,umat0,lmat0,k)
-         do i= 1, 3*(1+(nblk-nmin)/2)
+         do i = 1, 3*(1+(nblk-nmin)/2)
          
             ns = 2*((i-1)/3) + nmin
             k = ncycle*(ns-1) + 1
@@ -464,7 +464,7 @@ subroutine cycle_rhs( &
          integer, pointer, intent(in) :: ipivot1(:)
          integer, intent(out) :: ierr
       
-         integer :: k, ns, ierr_loc, nmin, kcount, shift, i, shift1, shift2, nvar2
+         integer :: k, ns, ierr_loc, nmin, kcount, shift, shift1, shift2, nvar2
          integer, pointer :: ipivot(:)
          real(dp), pointer, dimension(:,:) :: dmat, umat, lmat, bptr2
          real(dp), pointer, dimension(:) :: bprev, bnext, bptr
@@ -548,8 +548,7 @@ subroutine cycle_solve( &
          real(dp), pointer, intent(inout) :: brhs1(:)
 
          real(dp), pointer :: umat(:,:), lmat(:,:), bprev(:), bnext(:), bptr(:)
-         real(dp), pointer, dimension(:) :: bprevr, bnextr
-         integer :: shift1, shift2, nvar2, ns, ierr, nmin
+         integer :: shift1, shift2, nvar2, ns, nmin
 
          nvar2 = nvar*nvar
          nmin = 2
diff --git a/mtx/private/mtx_support.f90 b/mtx/private/mtx_support.f90
index 70997dc29..41fdf71a0 100644
--- a/mtx/private/mtx_support.f90
+++ b/mtx/private/mtx_support.f90
@@ -827,7 +827,7 @@ subroutine do_multiply_xa(n, A1, x, b)
          real(dp), pointer, intent(in) :: A1(:) ! =(n, n)
          real(dp), pointer, intent(in) :: x(:) ! (n)
          real(dp), pointer, intent(inout) :: b(:) ! (n)
-         integer :: i, j
+         integer :: j
          real(dp), pointer :: A(:,:) ! (n, n)
          A(1:n,1:n) => A1(1:n*n)
          do j = 1, n
@@ -842,7 +842,7 @@ subroutine do_quad_multiply_xa(n, A1, x, b)
          real(qp), pointer, intent(in) :: A1(:) ! =(n, n)
          real(qp), pointer, intent(in) :: x(:) ! (n)
          real(qp), pointer, intent(inout) :: b(:) ! (n)
-         integer :: i, j
+         integer :: j
          real(qp), pointer :: A(:,:) ! (n, n)
          A(1:n,1:n) => A1(1:n*n)
          do j = 1, n
@@ -858,7 +858,7 @@ subroutine do_multiply_xa_plus_c(n, A1, x, c, b)
          real(dp), pointer, intent(in) :: x(:) ! (n)
          real(dp), pointer, intent(in) :: c(:) ! (n)
          real(dp), pointer, intent(inout) :: b(:) ! (n)
-         integer :: i, j
+         integer :: j
          real(dp), pointer :: A(:,:) ! (n,n)
          A(1:n,1:n) => A1(1:n*n)
          do j = 1, n
@@ -874,7 +874,7 @@ subroutine do_quad_multiply_xa_plus_c(n, A1, x, c, b)
          real(qp), pointer, intent(in) :: x(:) ! (n)
          real(qp), pointer, intent(in) :: c(:) ! (n)
          real(qp), pointer, intent(inout) :: b(:) ! (n)
-         integer :: i, j
+         integer :: j
          real(qp), pointer :: A(:,:) ! (n, n)
          A(1:n,1:n) => A1(1:n*n)
          do j = 1, n
@@ -1073,7 +1073,7 @@ subroutine read_hbcode1(iounit, nrow, ncol, nnzero, values, rowind, colptr, ierr
       REAL(dp), pointer ::        VALUES (:)
       integer, intent(out) :: ierr
       
-      integer i
+      integer :: i
       ierr = 0
       READ (iounit, 1000, iostat=ierr ) TITLE , KEY   , &
                            TOTCRD, PTRCRD, INDCRD, VALCRD, RHSCRD, &
@@ -1119,7 +1119,7 @@ subroutine read_hbcode1_quad(iounit, nrow, ncol, nnzero, values, rowind, colptr,
       REAL(qp), pointer ::        VALUES (:)
       integer, intent(out) :: ierr
       
-      integer i
+      integer :: i
       ierr = 0
       READ (iounit, 1000, iostat=ierr ) TITLE , KEY   , &
                            TOTCRD, PTRCRD, INDCRD, VALCRD, RHSCRD, &
@@ -1164,7 +1164,7 @@ subroutine write_hbcode1(iounit, nrow, ncol, nnzero, values, rowind, colptr, ier
 
       REAL(dp)         VALUES (*)
       
-      integer i
+      integer :: i
       
       ierr = 0
 
diff --git a/mtx/private/my_lapack95.F90 b/mtx/private/my_lapack95.F90
index 4aa509512..f9ece650d 100644
--- a/mtx/private/my_lapack95.F90
+++ b/mtx/private/my_lapack95.F90
@@ -66,7 +66,7 @@ end subroutine my_gemv
 
 
       subroutine my_gemv_mv(m,n,a,x,b,z,y) ! y = y - a*x - b*z
-         integer lda,m,n
+         integer m, n
          real(fltp) :: a(:,:), b(:,:)
          real(fltp) :: x(:), z(:), y(:)
          real(fltp) :: tmp_x, tmp_z
@@ -118,7 +118,7 @@ end subroutine my_gemv_p1
 
 
       subroutine my_gemv_p_mv(m,n,a,x,b,z,y) ! y = y + a*x + b*z
-         integer lda,m,n
+         integer m, n
          real(fltp) :: a(:,:), b(:,:)
          real(fltp) :: x(:), z(:), y(:)
          real(fltp) :: tmp_x, tmp_z
@@ -723,7 +723,7 @@ end subroutine my_laswp
                
       subroutine my_laswp_4_by_1( a, lda, ipiv )
          ! n == 1, k1 == 1, k2 == 4, incx == 1
-         integer :: incx, k1, lda
+         integer :: lda
          integer :: ipiv(:)
          real(fltp) :: a(:,:) ! a( lda, * )
          integer :: ip
@@ -758,7 +758,7 @@ end subroutine my_laswp_4_by_1
                
       subroutine my_laswp_5_by_1( a, lda, ipiv )
          ! n == 1, k1 == 1, k2 == 5, incx == 1
-         integer :: incx, k1, lda
+         integer :: lda
          integer :: ipiv(:)
          real(fltp) :: a(:,:) ! a( lda, * )
          integer :: ip
@@ -972,8 +972,7 @@ subroutine my_getrs( n, nrhs, a, lda, ipiv, b, ldb, info )
          integer, pointer :: ipiv(:)
          real(fltp), pointer :: a(:,:), b(:,:) ! a( lda, * ), b( ldb, * )
          real(fltp), parameter :: one=1, zero=0
-         real(fltp) :: temp
-         integer :: i,j,k, n32, ix, ip
+         integer :: i, j, k
          info = 0
          
          if (nrhs == 1) then
@@ -1025,7 +1024,6 @@ subroutine my_getrs_5_by_5( a, lda, ipiv, b, ldb, info )
          real(fltp), pointer :: a(:,:), b(:,:) ! a( lda, * ), b( ldb, * )
          real(fltp), parameter :: zero=0
          
-         integer :: j
          info = 0
       
          !call my_laswp(5, b, ldb, 1, 5, ipiv, 1 )
@@ -1332,8 +1330,7 @@ subroutine my_getrs_dbg( n, nrhs, a, lda, ipiv, b, ldb, info )
          integer, pointer :: ipiv(:)
          real(fltp), pointer :: a(:,:), b(:,:) ! a( lda, * ), b( ldb, * )
          real(fltp), parameter :: one=1, zero=0
-         real(fltp) :: temp
-         integer :: i,j,k, n32, ix, ip
+         integer :: i, j, k
          info = 0
          call my_laswp_dbg(nrhs, b, ldb, 1, n, ipiv, 1 )
          !call dtrsm( 'left', 'lower', 'no transpose', 'unit', n, nrhs, one, a, lda, b, ldb )
diff --git a/mtx/public/mtx_dble_decsol.dek b/mtx/public/mtx_dble_decsol.dek
index 025cb1f1b..220af9254 100644
--- a/mtx/public/mtx_dble_decsol.dek
+++ b/mtx/public/mtx_dble_decsol.dek
@@ -16,7 +16,6 @@
          real(dp), intent(inout), pointer :: rpar_decsol(:) ! (lrd)
          integer, intent(inout), pointer :: ipar_decsol(:) ! (lid)
          integer, intent(out) :: ier
-         integer :: i, j, iounit
          include 'formats'
          ier = 0
          if (iop == 0) then ! factor
@@ -118,7 +117,6 @@
          
          complex(dp), pointer :: a(:,:)
          integer :: i, j
-         character (len=100) :: message
          
          i=1
          a(1:ndim,1:n) => cpar_decsol(i:i+n*ndim-1)
@@ -130,7 +128,7 @@
          
          do j=1,n
             do i=1,ndim
-               a(i,j) = cmplx(ar(i,j),ai(i,j))
+               a(i,j) = cmplx(ar(i,j),ai(i,j), kind=dp)
             end do
          end do
          call zgetrf(n, n, a, ndim, ip, ier)
@@ -159,7 +157,6 @@
          
          complex(dp), pointer :: a(:,:)
          integer :: i, j
-         character (len=100) :: message
          
          i=1
          a(1:ndim,1:n) => cpar_decsol(i:i+n*ndim-1)
@@ -171,7 +168,7 @@
          
          do j=1,n
             do i=1,ndim
-               a(i,j) = cmplx(ar(i,j),ai(i,j))
+               a(i,j) = cmplx(ar(i,j),ai(i,j), kind=dp)
             end do
          end do
          call zgbtrf(n, n, ml, mu, a, ndim, ip, ier)
@@ -199,7 +196,6 @@
          
          complex(dp), pointer :: a(:,:), b(:)
          integer :: i, j
-         character (len=100) :: message
          
          i = 1
          a(1:ndim,1:n) => cpar_decsol(i:i+n*ndim-1)
@@ -212,9 +208,9 @@
          
          do j=1,n
             do i=1,ndim
-               a(i,j) = cmplx(ar(i,j),ai(i,j))
+               a(i,j) = cmplx(ar(i,j),ai(i,j), kind=dp)
             end do
-            b(j) = cmplx(br(j),bi(j))
+            b(j) = cmplx(br(j),bi(j), kind=dp)
          end do
          call zgetrs('N', n, 1, a, ndim, ip, b, n, ier)
          do j=1,n
@@ -241,7 +237,6 @@
          
          complex(dp), pointer :: a(:,:), b(:)
          integer :: i, j
-         character (len=100) :: message
          
          i = 1
          a(1:ndim,1:n) => cpar_decsol(i:i+n*ndim-1)
@@ -254,9 +249,9 @@
          
          do j=1,n
             do i=1,ndim
-               a(i,j) = cmplx(ar(i,j),ai(i,j))
+               a(i,j) = cmplx(ar(i,j),ai(i,j), kind=dp)
             end do
-            b(j) = cmplx(br(j),bi(j))
+            b(j) = cmplx(br(j),bi(j), kind=dp)
          end do
          call zgbtrs('N', n, ml, mu, 1, a, ndim, ip, b, n, ier)
          do j=1,n
diff --git a/mtx/public/mtx_solve_routines.inc b/mtx/public/mtx_solve_routines.inc
index ef48e64a6..5e574fbb9 100644
--- a/mtx/public/mtx_solve_routines.inc
+++ b/mtx/public/mtx_solve_routines.inc
@@ -1,11 +1,13 @@
 
       
       subroutine my_getf2(m, a, lda, ipiv, info)
-         integer :: info, lda, m
-         integer :: ipiv(:)
-         real(dp) :: a(:,:),aj(m)
-         real(dp), parameter :: one=1, zero=0
-         integer :: i, j, jp, ii, jj, n, mm
+         integer, intent(in) :: m, lda
+         integer, intent(out) :: info
+         integer, intent(out) :: ipiv(:)
+         real(dp), intent(inout) :: a(:,:)
+         real(dp) :: aj(m)
+         real(dp), parameter :: one=1.0_dp, zero=0.0_dp
+         integer :: i, j, jp, jj
          real(dp) :: tmp, da, ajjj
          do j = 1, m
             info = 0
@@ -36,8 +38,8 @@
                do jj = j+1, m
                   ajjj = a(j,jj)
                   !$omp simd
-                  do ii = j+1, m
-                     a(ii,jj) = a(ii,jj) - aj(ii)*ajjj
+                  do i = j+1, m
+                     a(i,jj) = a(i,jj) - aj(i)*ajjj
                   end do
                end do
             end if
@@ -46,12 +48,12 @@
 
       
       subroutine my_getf2_n4(a, ipiv, info)
-         integer :: info
-         integer :: ipiv(:)
-         real(dp) :: a(:,:)
+         integer, intent(out) :: info
+         integer, intent(out) :: ipiv(4)
+         real(dp), intent(inout) :: a(4,4)
          real(dp), parameter :: one=1, zero=0
          integer, parameter :: m=4, lda=4
-         integer :: i, j, jp, ii, jj, n, mm
+         integer :: i, j, jp, jj
          real(dp) :: tmp, da
          do j = 1, m
             info = 0
@@ -80,8 +82,8 @@
                !call dger( m-j, m-j, -one, a( j+1, j ), 1, a( j, j+1 ), lda, a( j+1, j+1 ), lda )
                do jj = j+1, m
                   !$omp simd
-                  do ii = j+1, m
-                     a(ii,jj) = a(ii,jj) - a(ii,j)*a(j,jj)
+                  do i = j+1, m
+                     a(i,jj) = a(i,jj) - a(i,j)*a(j,jj)
                   end do
                end do
             end if
@@ -90,12 +92,12 @@
 
       
       subroutine my_getf2_n5(a, ipiv, info)
-         integer :: info
-         integer :: ipiv(:)
-         real(dp) :: a(:,:)
+         integer, intent(out) :: info
+         integer, intent(out) :: ipiv(5)
+         real(dp), intent(inout) :: a(5,5)
          real(dp), parameter :: one=1, zero=0
          integer, parameter :: m=5, lda=5
-         integer :: i, j, jp, ii, jj, n, mm
+         integer :: i, j, jp, jj
          real(dp) :: tmp, da
          do j = 1, m
             info = 0
@@ -124,8 +126,8 @@
                !call dger( m-j, m-j, -one, a( j+1, j ), 1, a( j, j+1 ), lda, a( j+1, j+1 ), lda )
                do jj = j+1, m
                   !$omp simd
-                  do ii = j+1, m
-                     a(ii,jj) = a(ii,jj) - a(ii,j)*a(j,jj)
+                  do i = j+1, m
+                     a(i,jj) = a(i,jj) - a(i,j)*a(j,jj)
                   end do
                end do
             end if
@@ -138,8 +140,7 @@
          integer :: ipiv(:)
          real(dp) :: a(:,:), b(:,:) ! a( lda, * ), b( ldb, * )
          real(dp), parameter :: one=1, zero=0
-         real(dp) :: temp
-         integer :: i,j,k, n32, ix, ip
+         integer :: i, j, k
          info = 0
          call my_laswp(nrhs, b, ldb, 1, n, ipiv, 1 )
          !call dtrsm( 'left', 'lower', 'no transpose', 'unit', n, nrhs, one, a, lda, b, ldb )
@@ -169,11 +170,11 @@
       end subroutine my_getrs
       
       
-      subroutine my_laswp( n,   a, lda,  k1, k2, ipiv,  incx )
+      subroutine my_laswp( n, a, lda,  k1, k2, ipiv, incx )
          integer :: incx, k1, k2, lda, n
          integer :: ipiv(:)
          real(dp) :: a(:,:) ! a( lda, * )
-         integer :: i, i1, i2, inc, ip, ix, ix0, j, k, n32
+         integer :: i, i1, i2, inc, ip, ix, ix0, k
          real(dp) :: temp
          ! interchange row i with row ipiv(i) for each of rows k1 through k2.
          if( incx.gt.0 ) then
@@ -194,7 +195,7 @@
             ip = ipiv( ix )
             if( ip.ne.i ) then
                !$omp simd private(temp)
-               do k = 1, n
+               do k = 1,n
                   temp = a( i, k )
                   a( i, k ) = a( ip, k )
                   a( ip, k ) = temp
@@ -206,15 +207,16 @@
             
       
       subroutine my_getrs1( n, a, lda, ipiv, b, ldb, info )
-         integer :: info, lda, ldb, n
-         integer :: ipiv(:)
-         real(dp) :: a(:,:), b(:)
+         integer, intent(out) :: info
+         integer, intent(in) :: ipiv(:), lda, ldb, n
+         real(dp), intent(in) :: a(:,:)
+         real(dp), intent(inout) :: b(:)
          real(dp), parameter :: one=1, zero=0
          real(dp) :: temp
-         integer :: i,k
+         integer :: i, k
          info = 0
          !$omp simd private(temp)
-         do i = 1, n
+         do i = 1,n
             temp = b(i)
             b(i) = b(ipiv(i))
             b(ipiv(i)) = temp
@@ -240,15 +242,17 @@
             
       
       subroutine my_getrs1_n4( a, ipiv, b, info )
-         integer :: info
-         integer :: ipiv(:)
-         real(dp) :: a(:,:), b(:)
+         integer, intent(out) :: info
+         integer, intent(in) :: ipiv(4)
+         real(dp), intent(in) :: a(4,4)
+         real(dp), intent(inout) :: b(4)
          real(dp), parameter :: one=1, zero=0
          integer, parameter :: n = 4
          real(dp) :: temp
-         integer :: i,k
+         integer :: i, k
          info = 0
-         do i = 1, n
+         !$omp simd private(temp)
+         do i = 1,n
             temp = b(i)
             b(i) = b(ipiv(i))
             b(ipiv(i)) = temp
@@ -274,15 +278,17 @@
             
       
       subroutine my_getrs1_n5( a, ipiv, b, info )
-         integer :: info
-         integer :: ipiv(:)
-         real(dp) :: a(:,:), b(:)
+         integer, intent(out) :: info
+         integer, intent(in) :: ipiv(5)
+         real(dp), intent(in) :: a(5,5)
+         real(dp), intent(inout) :: b(5)
          real(dp), parameter :: one=1, zero=0
          integer, parameter :: n = 5
          real(dp) :: temp
-         integer :: i,k
+         integer :: i, k
          info = 0
-         do i = 1, n
+         !$omp simd private(temp)
+         do i = 1,n
             temp = b(i)
             b(i) = b(ipiv(i))
             b(ipiv(i)) = temp
@@ -310,7 +316,6 @@
       subroutine my_gemm0_p1(m,n,k,a,lda,b,ldb,c,ldc) ! c := -a*b
          integer, intent(in) :: k,lda,ldb,ldc,m,n
          real(dp), dimension(:,:) :: a, b, c ! a(lda,*),b(ldb,*),c(ldc,*)
-         integer :: j, i
          real(dp), parameter :: zero=0
          include 'formats'
          ! transa = 'n'
@@ -407,7 +412,7 @@
 
 
       subroutine my_gemv_mv(m,n,a,x,b,z,y) ! y = y - a*x - b*z
-         integer lda,m,n
+         integer m,n
          real(dp) :: a(:,:), b(:,:)
          real(dp) :: x(:), z(:), y(:)
          real(dp) :: tmp_x, tmp_z
@@ -463,7 +468,7 @@
 
 
       subroutine my_gemv_p_mv(m,n,a,x,b,z,y) ! y = y + a*x + b*z
-         integer lda,m,n
+         integer m,n
          real(dp) :: a(:,:), b(:,:)
          real(dp) :: x(:), z(:), y(:)
          real(dp) :: tmp_x, tmp_z
@@ -522,8 +527,8 @@
          integer :: info, lda, m
          real(dp) :: a(:,:)
          real(dp), parameter :: one=1, zero=0
-         integer :: i, j, ii, jj, n, mm
-         real(dp) :: tmp, da
+         integer :: i, j, jj
+         real(dp) :: da
          do j = 1, m
             info = 0
             if( a( j, j ).ne.zero ) then
@@ -540,8 +545,8 @@
             if( j.lt.m ) then
                do jj = j+1, m
                   !$omp simd
-                  do ii = j+1, m
-                     a(ii,jj) = a(ii,jj) - a(ii,j)*a(j,jj)
+                  do i = j+1, m
+                     a(i,jj) = a(i,jj) - a(i,j)*a(j,jj)
                   end do
                end do
             end if
@@ -553,8 +558,7 @@
          integer :: info, lda, ldb, n, nrhs
          real(dp) :: a(:,:), b(:,:) ! a( lda, * ), b( ldb, * )
          real(dp), parameter :: one=1, zero=0
-         real(dp) :: temp
-         integer :: i,j,k, n32, ix, ip
+         integer :: i,j,k
          info = 0
          do j = 1,nrhs
             do k = 1,n
@@ -584,7 +588,6 @@
          integer :: info, lda, ldb, n
          real(dp) :: a(:,:), b(:)
          real(dp), parameter :: one=1, zero=0
-         real(dp) :: temp
          integer :: i,k
          info = 0
          do k = 1,n
diff --git a/mtx/test/SHERMAN5.COO b/mtx/test/SHERMAN5.COO
deleted file mode 100644
index 3606ea232..000000000
--- a/mtx/test/SHERMAN5.COO
+++ /dev/null
@@ -1,20795 +0,0 @@
-%
- 3312  3312  20793
-    0    0    1.000000 
-    1    1    1.000000 
-    2    2    1.000000 
-    3    3    1.000000 
-    4    4    1.000000 
-    5    5    1.000000 
-    6    6    1.000000 
-    7    7    1.000000 
-    8    8    1.000000 
-    9    9    1.000000 
-    10    10    1.000000 
-    11    11    1.000000 
-    12    12    1.000000 
-    13    13    1.000000 
-    14    14    1.000000 
-    15    15    1.000000 
-    16    16    1.000000 
-    17    17    1.000000 
-    18    18    1.000000 
-    19    19    1.000000 
-    20    20    1.000000 
-    21    21    1.000000 
-    22    22    1.000000 
-    23    23    1.000000 
-    24    24    1.000000 
-    25    25    1.000000 
-    26    26    1.000000 
-    27    27    1.000000 
-    28    28    1.000000 
-    29    29    1.000000 
-    30    30    1.000000 
-    31    31    1.000000 
-    32    32    1.000000 
-    33    33    1.000000 
-    34    34    1.000000 
-    35    35    1.000000 
-    36    36    1.000000 
-    37    37    1.000000 
-    38    38    1.000000 
-    39    39    1.000000 
-    40    40    1.000000 
-    41    41    1.000000 
-    42    42    1.000000 
-    43    43    1.000000 
-    44    44    1.000000 
-    45    45    1.000000 
-    46    46    1.000000 
-    47    47    1.000000 
-    48    48    1.000000 
-    49    49    1.000000 
-    50    50    1.000000 
-    51    51    1.000000 
-    52    52    1.000000 
-    53    53    1.000000 
-    54    54    1.000000 
-    55    55    1.000000 
-    56    56    1.000000 
-    57    57    1.000000 
-    58    58    1.000000 
-    59    59    1.000000 
-    60    60    1.000000 
-    61    61    1.000000 
-    62    62    1.000000 
-    63    63    1.000000 
-    64    64    1.000000 
-    65    65    1.000000 
-    66    66    1.000000 
-    67    67    1.000000 
-    68    68    1.000000 
-    69    69    1.000000 
-    70    70    1.000000 
-    71    71    1.000000 
-    72    72    1.000000 
-    73    73    1.000000 
-    74    74    1.000000 
-    75    75    1.000000 
-    76    76    1.000000 
-    77    77    1.000000 
-    78    78    1.000000 
-    79    79    1.000000 
-    80    80    1.000000 
-    81    81    1.000000 
-    82    82    1.000000 
-    83    83    1.000000 
-    84    84    1.000000 
-    85    85    1.000000 
-    86    86    1.000000 
-    87    87    1.000000 
-    88    88    1.000000 
-    89    89    1.000000 
-    90    90    1.000000 
-    91    91    1.000000 
-    92    92    1.000000 
-    93    93    1.000000 
-    94    94    1.000000 
-    95    95    1.000000 
-    96    96    1.000000 
-    97    97    1.000000 
-    98    98    1.000000 
-    99    99    1.000000 
-    100    100    1.000000 
-    101    101    1.000000 
-    102    102    1.000000 
-    103    103    1.000000 
-    104    104    1.000000 
-    105    105    1.000000 
-    106    106    1.000000 
-    107    107    1.000000 
-    108    108    1.000000 
-    109    109    1.000000 
-    110    110    1.000000 
-    111    111    582.315010 
-    111    112    -356.631800 
-    111    113    -602.850390 
-    111    114    -1.699825 
-    111    115    1.421529 
-    111    116    2.402950 
-    111    159    -9.503341 
-    112    112    -88.662401 
-    112    113    75.193603 
-    112    116    -0.239244 
-    113    111    0.524924 
-    113    112    4.332326 
-    113    113    7.323361 
-    113    114    -0.275505 
-    113    115    -1.909477 
-    113    116    -3.227777 
-    113    159    -0.168072 
-    113    160    -2.413004 
-    113    161    -4.078942 
-    114    111    -2.020336 
-    114    114    583.726240 
-    114    115    -357.315190 
-    114    116    -604.005140 
-    114    162    -9.352778 
-    115    115    -82.875303 
-    115    116    70.151506 
-    116    111    -0.275505 
-    116    112    -1.909477 
-    116    113    -3.227777 
-    116    114    0.631241 
-    116    115    3.818367 
-    116    116    6.454563 
-    116    162    -0.274064 
-    116    163    -1.899689 
-    116    164    -3.211232 
-    117    117    1.000000 
-    118    118    1.000000 
-    119    119    1.000000 
-    120    120    1.000000 
-    121    121    1.000000 
-    122    122    1.000000 
-    123    123    538.324420 
-    123    124    -330.894890 
-    123    125    -559.344730 
-    123    126    -1.398013 
-    123    127    1.385140 
-    123    128    2.341438 
-    123    171    -10.275334 
-    124    124    -74.442006 
-    124    125    63.483385 
-    124    128    -0.260478 
-    125    123    0.537820 
-    125    124    3.790360 
-    125    125    6.407222 
-    125    126    -0.155175 
-    125    127    -2.125118 
-    125    128    -3.592297 
-    125    171    -0.301098 
-    125    172    -1.656978 
-    125    173    -2.800956 
-    126    123    -0.637335 
-    126    126    501.981760 
-    126    127    -312.884400 
-    126    128    -528.899400 
-    126    129    -1.410730 
-    126    130    4.368932 
-    126    131    7.385242 
-    126    174    -5.272018 
-    127    127    -75.938657 
-    127    128    65.540651 
-    127    131    -0.932014 
-    128    123    -0.155175 
-    128    124    -2.125118 
-    128    125    -3.592297 
-    128    126    0.476894 
-    128    127    6.617771 
-    128    128    11.186675 
-    128    129    -0.086217 
-    128    130    -2.368262 
-    128    131    -4.003311 
-    128    174    -0.154486 
-    128    175    -2.115960 
-    128    176    -3.576816 
-    129    126    -0.632247 
-    129    129    465.862280 
-    129    130    -294.078520 
-    129    131    -497.110330 
-    129    132    -1.401070 
-    129    133    8.390147 
-    129    134    14.182692 
-    129    177    -4.796889 
-    130    130    -74.441522 
-    130    131    65.294128 
-    130    134    -1.869240 
-    131    126    -0.086217 
-    131    127    -2.368262 
-    131    128    -4.003311 
-    131    129    0.293833 
-    131    130    7.232501 
-    131    131    12.225815 
-    131    132    -0.042128 
-    131    133    -2.525359 
-    131    134    -4.268863 
-    131    177    -0.084836 
-    131    178    -2.330615 
-    131    179    -3.939671 
-    132    129    -0.380131 
-    132    132    420.147670 
-    132    133    -273.866150 
-    132    134    -462.942920 
-    132    135    -1.120559 
-    132    136    7.390262 
-    132    137    12.492498 
-    132    180    -2.343169 
-    132    1236    -2.599414 
-    132    1237    10.350072 
-    132    1238    17.495750 
-    133    133    -70.163194 
-    133    134    63.568717 
-    133    137    -1.677661 
-    133    1238    -1.841669 
-    134    129    -0.042128 
-    134    130    -2.525359 
-    134    131    -4.268863 
-    134    132    0.286647 
-    134    133    8.404594 
-    134    134    14.207117 
-    134    135    -0.028088 
-    134    136    -2.477089 
-    134    137    -4.187271 
-    134    180    -0.041440 
-    134    181    -2.484443 
-    134    182    -4.199699 
-    134    1236    -0.094695 
-    134    1237    -0.909913 
-    134    1238    -1.538115 
-    135    132    -0.450436 
-    135    135    396.056260 
-    135    136    -259.653660 
-    135    137    -438.918540 
-    135    138    -0.810894 
-    135    139    5.690333 
-    135    140    9.618929 
-    135    183    -1.580018 
-    135    1239    -2.030441 
-    135    1240    11.063571 
-    135    1241    18.701860 
-    136    136    -67.508510 
-    136    137    61.392103 
-    136    140    -1.356962 
-    136    1241    -2.218537 
-    137    132    -0.028088 
-    137    133    -2.477089 
-    137    134    -4.187271 
-    137    135    0.212898 
-    137    136    8.612924 
-    137    137    14.559283 
-    137    138    -0.019132 
-    137    139    -2.453026 
-    137    140    -4.146592 
-    137    183    -0.027944 
-    137    184    -2.464650 
-    137    185    -4.166244 
-    137    1239    -0.057589 
-    137    1240    -1.210663 
-    137    1241    -2.046506 
-    138    135    -0.432568 
-    138    138    371.806670 
-    138    139    -242.255770 
-    138    140    -409.508770 
-    138    141    -0.583798 
-    138    142    3.444575 
-    138    143    5.822710 
-    138    186    -1.797449 
-    138    1242    -1.579838 
-    138    1243    10.271379 
-    138    1244    17.362727 
-    139    139    -64.514006 
-    139    140    58.423373 
-    139    143    -0.831536 
-    139    1244    -2.245782 
-    140    135    -0.019132 
-    140    136    -2.453026 
-    140    137    -4.146592 
-    140    138    0.167902 
-    140    139    8.765548 
-    140    140    14.817273 
-    140    141    -0.012197 
-    140    142    -2.425760 
-    140    143    -4.100505 
-    140    186    -0.018759 
-    140    187    -2.405538 
-    140    188    -4.066317 
-    140    1242    -0.037800 
-    140    1243    -1.474060 
-    140    1244    -2.491750 
-    141    138    -0.275762 
-    141    141    347.699300 
-    141    142    -225.070850 
-    141    143    -380.459760 
-    141    189    -1.144882 
-    141    1245    -1.244929 
-    141    1246    9.960731 
-    141    1247    16.837620 
-    142    142    -61.460330 
-    142    143    55.129317 
-    142    1247    -2.290819 
-    143    138    -0.012197 
-    143    139    -2.425760 
-    143    140    -4.100505 
-    143    141    0.127852 
-    143    142    6.564631 
-    143    143    11.096852 
-    143    189    -0.011949 
-    143    190    -2.376726 
-    143    191    -4.017618 
-    143    1245    -0.023820 
-    143    1246    -1.755319 
-    143    1247    -2.967192 
-    144    144    1.000000 
-    145    145    1.000000 
-    146    146    1.000000 
-    147    147    1.000000 
-    148    148    1.000000 
-    149    149    1.000000 
-    150    150    1.000000 
-    151    151    1.000000 
-    152    152    1.000000 
-    153    153    1.000000 
-    154    154    1.000000 
-    155    155    1.000000 
-    156    156    1.000000 
-    157    157    1.000000 
-    158    158    1.000000 
-    159    111    -5.625223 
-    159    112    26.312807 
-    159    113    44.479169 
-    159    159    587.156400 
-    159    160    -364.039640 
-    159    161    -615.372610 
-    159    162    -0.383105 
-    159    207    -1.071063 
-    159    1263    -0.943418 
-    159    1264    7.787189 
-    159    1265    13.163464 
-    160    113    -5.018385 
-    160    160    -104.203570 
-    160    161    90.595331 
-    160    1265    -1.764236 
-    161    111    -0.168072 
-    161    112    -2.413004 
-    161    113    -4.078942 
-    161    159    0.207687 
-    161    160    11.702675 
-    161    161    19.782202 
-    161    162    -0.011226 
-    161    163    -4.128844 
-    161    164    -6.979397 
-    161    207    -0.011178 
-    161    208    -4.111735 
-    161    209    -6.950478 
-    161    1263    -0.015589 
-    161    1264    -1.037506 
-    161    1265    -1.753800 
-    162    114    -7.351602 
-    162    115    25.567757 
-    162    116    43.219704 
-    162    159    -0.662631 
-    162    160    1.011229 
-    162    161    1.709382 
-    162    162    588.775170 
-    162    163    -362.752100 
-    162    164    -613.195720 
-    162    165    -0.692613 
-    162    210    -2.181488 
-    162    1266    -1.367922 
-    162    1267    7.241435 
-    162    1268    12.240915 
-    163    116    -4.303068 
-    163    161    -0.248088 
-    163    163    -101.865610 
-    163    164    88.189741 
-    163    1268    -1.474653 
-    164    114    -0.274064 
-    164    115    -1.899689 
-    164    116    -3.211232 
-    164    159    -0.011226 
-    164    160    -4.128844 
-    164    161    -6.979397 
-    164    162    0.375837 
-    164    163    14.544988 
-    164    164    24.586836 
-    164    165    -0.028606 
-    164    166    -3.844660 
-    164    167    -6.499008 
-    164    210    -0.022767 
-    164    211    -3.823585 
-    164    212    -6.463384 
-    164    1266    -0.037421 
-    164    1267    -0.836888 
-    164    1268    -1.414675 
-    165    162    -0.976213 
-    165    163    0.720350 
-    165    164    1.217678 
-    165    165    579.642800 
-    165    166    -360.805590 
-    165    167    -609.905760 
-    165    168    -0.749369 
-    165    169    1.651997 
-    165    170    2.792533 
-    165    213    -2.727542 
-    165    1269    -1.530755 
-    165    1270    7.358764 
-    165    1271    12.439255 
-    166    164    -0.170634 
-    166    166    -92.549851 
-    166    167    101.138490 
-    166    170    -0.394662 
-    166    1271    -1.468541 
-    167    162    -0.028606 
-    167    163    -3.844660 
-    167    164    -6.499008 
-    167    165    0.212361 
-    167    166    12.072043 
-    167    167    20.406572 
-    167    168    -0.028598 
-    167    169    -3.728159 
-    167    170    -6.302076 
-    167    213    -0.028466 
-    167    214    -3.710244 
-    167    215    -6.271797 
-    167    1269    -0.046029 
-    167    1270    -0.777765 
-    167    1271    -1.314734 
-    168    165    -0.646595 
-    168    168    579.607820 
-    168    169    -363.238520 
-    168    170    -614.017980 
-    168    171    -0.920277 
-    168    172    4.980819 
-    168    173    8.419576 
-    168    216    -2.727779 
-    168    1272    -1.517127 
-    168    1273    7.278280 
-    168    1274    12.303195 
-    169    169    -100.896640 
-    169    170    87.613858 
-    169    173    -1.181672 
-    169    1274    -1.452577 
-    170    165    -0.028598 
-    170    166    -3.728159 
-    170    167    -6.302076 
-    170    168    0.206123 
-    170    169    12.039996 
-    170    170    20.352399 
-    170    171    -0.022406 
-    170    172    -3.811667 
-    170    173    -6.443242 
-    170    216    -0.028468 
-    170    217    -3.711677 
-    170    218    -6.274214 
-    170    1272    -0.045989 
-    170    1273    -0.777278 
-    170    1274    -1.313910 
-    171    123    -8.979267 
-    171    124    26.986678 
-    171    125    45.618281 
-    171    168    -0.506603 
-    171    171    578.414980 
-    171    172    -362.918670 
-    171    173    -613.477720 
-    171    174    -0.883766 
-    171    175    6.499227 
-    171    176    10.986285 
-    171    219    -2.138599 
-    171    1275    -1.322505 
-    171    1276    7.017312 
-    171    1277    11.862064 
-    172    125    -4.533438 
-    172    172    -99.874183 
-    172    173    88.241532 
-    172    176    -1.577905 
-    172    1277    -1.457503 
-    173    123    -0.301098 
-    173    124    -1.656978 
-    173    125    -2.800956 
-    173    168    -0.022406 
-    173    169    -3.811667 
-    173    170    -6.443242 
-    173    171    0.401055 
-    173    172    13.885676 
-    173    173    23.472342 
-    173    174    -0.017768 
-    173    175    -3.739562 
-    173    176    -6.321352 
-    173    219    -0.022319 
-    173    220    -3.797303 
-    173    221    -6.418961 
-    173    1275    -0.035749 
-    173    1276    -0.869064 
-    173    1277    -1.469066 
-    174    126    -5.728719 
-    174    127    27.415937 
-    174    128    46.343867 
-    174    171    -0.606339 
-    174    174    538.190490 
-    174    175    -345.019640 
-    174    176    -583.220820 
-    174    177    -0.802106 
-    174    178    7.400167 
-    174    179    12.509242 
-    174    222    -1.677874 
-    174    1278    -1.199037 
-    174    1279    7.544192 
-    174    1280    12.752693 
-    175    128    -5.155625 
-    175    175    -94.437882 
-    175    176    84.628322 
-    175    179    -1.798823 
-    175    1280    -1.645748 
-    176    126    -0.154486 
-    176    127    -2.115960 
-    176    128    -3.576816 
-    176    171    -0.017768 
-    176    172    -3.739562 
-    176    173    -6.321352 
-    176    174    0.228605 
-    176    175    14.167430 
-    176    176    23.948610 
-    176    177    -0.010733 
-    176    178    -3.593010 
-    176    179    -6.073624 
-    176    222    -0.017511 
-    176    223    -3.686029 
-    176    224    -6.230859 
-    176    1278    -0.026535 
-    176    1279    -1.022372 
-    176    1280    -1.728216 
-    177    129    -4.331139 
-    177    130    25.448551 
-    177    131    43.018230 
-    177    174    -0.366293 
-    177    177    491.205390 
-    177    178    -319.535410 
-    177    179    -540.142660 
-    177    180    -0.608820 
-    177    181    8.039746 
-    177    182    13.590380 
-    177    225    -1.013116 
-    177    1281    -0.944299 
-    177    1282    7.000426 
-    177    1283    11.833520 
-    178    131    -5.428882 
-    178    178    -87.270037 
-    178    179    79.198658 
-    178    182    -2.017901 
-    178    1283    -1.596528 
-    179    129    -0.084836 
-    179    130    -2.330615 
-    179    131    -3.939671 
-    179    174    -0.010733 
-    179    175    -3.593010 
-    179    176    -6.073624 
-    179    177    0.132486 
-    179    178    14.135047 
-    179    179    23.893881 
-    179    180    -0.007063 
-    179    181    -3.416753 
-    179    182    -5.775677 
-    179    225    -0.010573 
-    179    226    -3.539884 
-    179    227    -5.983820 
-    179    1281    -0.017904 
-    179    1282    -1.245084 
-    179    1283    -2.104691 
-    180    132    -3.013261 
-    180    133    27.643276 
-    180    134    46.728152 
-    180    177    -0.399343 
-    180    180    453.087360 
-    180    181    -298.422780 
-    180    182    -504.453590 
-    180    183    -0.380855 
-    180    184    7.686549 
-    180    185    12.993343 
-    180    228    -0.666030 
-    180    1284    -0.491136 
-    180    1285    4.357175 
-    180    1286    7.365364 
-    181    134    -6.158643 
-    181    181    -81.860502 
-    181    182    74.924081 
-    181    185    -2.007533 
-    181    1286    -1.034987 
-    182    132    -0.041440 
-    182    133    -2.484443 
-    182    134    -4.199699 
-    182    177    -0.007063 
-    182    178    -3.416753 
-    182    179    -5.775677 
-    182    180    0.068672 
-    182    181    14.079488 
-    182    182    23.799955 
-    182    183    -0.003175 
-    182    184    -3.291580 
-    182    185    -5.564087 
-    182    228    -0.006951 
-    182    229    -3.363208 
-    182    230    -5.685164 
-    182    1284    -0.008811 
-    182    1285    -1.514404 
-    182    1286    -2.559947 
-    183    135    -2.423607 
-    183    136    27.643725 
-    183    137    46.728953 
-    183    180    -0.179528 
-    183    183    417.040120 
-    183    184    -275.544570 
-    183    185    -465.780540 
-    183    186    -0.282214 
-    183    187    7.257302 
-    183    188    12.267737 
-    183    231    -0.299310 
-    183    1287    -0.351352 
-    183    1288    3.147673 
-    183    1289    5.320826 
-    184    137    -6.275392 
-    184    184    -76.543503 
-    184    185    70.327031 
-    184    188    -1.859816 
-    184    1289    -0.772960 
-    185    135    -0.027944 
-    185    136    -2.464650 
-    185    137    -4.166244 
-    185    180    -0.003175 
-    185    181    -3.291580 
-    185    182    -5.564087 
-    185    183    0.042225 
-    185    184    13.835576 
-    185    185    23.387654 
-    185    186    -0.002166 
-    185    187    -3.073406 
-    185    188    -5.195282 
-    185    231    -0.003124 
-    185    232    -3.238818 
-    185    233    -5.474898 
-    185    1287    -0.004734 
-    185    1288    -1.758612 
-    185    1289    -2.972758 
-    186    138    -2.075542 
-    186    139    25.159407 
-    186    140    42.529422 
-    186    183    -0.122471 
-    186    186    382.328450 
-    186    187    -252.490980 
-    186    188    -426.810540 
-    186    189    -0.225522 
-    186    190    5.081460 
-    186    191    8.589700 
-    186    234    -0.203938 
-    186    1290    -0.282224 
-    186    1291    2.700400 
-    186    1292    4.564753 
-    187    140    -5.999714 
-    187    187    -70.502971 
-    187    188    64.538446 
-    187    191    -1.311001 
-    187    1292    -0.681726 
-    188    138    -0.018759 
-    188    139    -2.405538 
-    188    140    -4.066317 
-    188    183    -0.002166 
-    188    184    -3.073406 
-    188    185    -5.195282 
-    188    186    0.029595 
-    188    187    13.352024 
-    188    188    22.570249 
-    188    189    -0.001815 
-    188    190    -2.872657 
-    188    191    -4.855939 
-    188    234    -0.002128 
-    188    235    -3.020461 
-    188    236    -5.105784 
-    188    1290    -0.003753 
-    188    1291    -1.972124 
-    188    1292    -3.333675 
-    189    141    -1.502558 
-    189    142    23.436855 
-    189    143    39.617660 
-    189    186    -0.173899 
-    189    189    358.278520 
-    189    190    -232.379710 
-    189    191    -392.814660 
-    189    237    -0.173077 
-    189    1293    -0.246779 
-    189    1294    2.622451 
-    189    1295    4.432992 
-    190    143    -5.657766 
-    190    190    -66.372454 
-    190    191    59.555841 
-    190    1295    -0.672051 
-    191    141    -0.011949 
-    191    142    -2.376726 
-    191    143    -4.017618 
-    191    186    -0.001815 
-    191    187    -2.872657 
-    191    188    -4.855939 
-    191    189    0.019645 
-    191    190    10.250425 
-    191    191    17.327318 
-    191    237    -0.001806 
-    191    238    -2.859445 
-    191    239    -4.833606 
-    191    1293    -0.003169 
-    191    1294    -2.134217 
-    191    1295    -3.607681 
-    192    192    1.000000 
-    193    193    1.000000 
-    194    194    1.000000 
-    195    195    1.000000 
-    196    196    1.000000 
-    197    197    1.000000 
-    198    198    1.000000 
-    199    199    1.000000 
-    200    200    1.000000 
-    201    201    1.000000 
-    202    202    1.000000 
-    203    203    1.000000 
-    204    204    1.000000 
-    205    205    1.000000 
-    206    206    1.000000 
-    207    159    -1.491788 
-    207    160    32.774276 
-    207    161    55.401636 
-    207    207    576.640830 
-    207    208    -369.516890 
-    207    209    -624.631340 
-    207    210    -0.234093 
-    207    255    -0.233263 
-    207    1311    -0.229676 
-    207    1312    3.269776 
-    207    1313    5.527229 
-    208    161    -8.040622 
-    208    208    -107.390810 
-    208    209    94.914364 
-    208    1313    -0.823536 
-    209    159    -0.011178 
-    209    160    -4.111735 
-    209    161    -6.950478 
-    209    207    0.020060 
-    209    208    14.473053 
-    209    209    24.465248 
-    209    210    -0.002443 
-    209    211    -4.532473 
-    209    212    -7.661692 
-    209    255    -0.002434 
-    209    256    -4.516995 
-    209    257    -7.635529 
-    209    1311    -0.002559 
-    209    1312    -1.299896 
-    209    1313    -2.197344 
-    210    162    -2.157987 
-    210    163    31.763844 
-    210    164    53.693564 
-    210    207    -0.246733 
-    210    208    1.259814 
-    210    209    2.129590 
-    210    210    578.106290 
-    210    211    -368.961330 
-    210    212    -623.691830 
-    210    213    -0.257621 
-    210    258    -0.256800 
-    210    1314    -0.246681 
-    210    1315    3.196033 
-    210    1316    5.402570 
-    211    164    -7.524094 
-    211    209    -0.327836 
-    211    211    -107.204770 
-    211    212    94.574832 
-    211    1316    -0.797235 
-    212    162    -0.022767 
-    212    163    -3.823585 
-    212    164    -6.463384 
-    212    207    -0.002443 
-    212    208    -4.532473 
-    212    209    -7.661692 
-    212    210    0.034919 
-    212    211    18.657388 
-    212    212    31.538432 
-    212    213    -0.002689 
-    212    214    -4.508297 
-    212    215    -7.620820 
-    212    258    -0.002680 
-    212    259    -4.494527 
-    212    260    -7.597543 
-    212    1314    -0.002884 
-    212    1315    -1.286574 
-    212    1316    -2.174823 
-    213    165    -2.632690 
-    213    166    30.535283 
-    213    167    51.616842 
-    213    210    -0.265122 
-    213    211    0.742490 
-    213    212    1.255104 
-    213    213    578.926990 
-    213    214    -368.930260 
-    213    215    -623.639720 
-    213    216    -0.337672 
-    213    217    0.981476 
-    213    218    1.659086 
-    213    261    -0.303425 
-    213    1317    -0.284439 
-    213    1318    3.266429 
-    213    1319    5.521572 
-    214    167    -7.294636 
-    214    212    -0.192187 
-    214    214    -98.002191 
-    214    215    109.111050 
-    214    218    -0.250001 
-    214    1319    -0.799477 
-    215    165    -0.028466 
-    215    166    -3.710244 
-    215    167    -6.271797 
-    215    210    -0.002689 
-    215    211    -4.508297 
-    215    212    -7.620820 
-    215    213    0.042733 
-    215    214    18.375718 
-    215    215    31.062304 
-    215    216    -0.003420 
-    215    217    -4.436648 
-    215    218    -7.499705 
-    215    261    -0.003167 
-    215    262    -4.447221 
-    215    263    -7.517583 
-    215    1317    -0.003515 
-    215    1318    -1.261418 
-    215    1319    -2.132301 
-    216    168    -2.681311 
-    216    169    31.315243 
-    216    170    52.935250 
-    216    213    -0.327694 
-    216    216    579.080540 
-    216    217    -371.282340 
-    216    218    -627.615270 
-    216    219    -0.360129 
-    216    220    3.210720 
-    216    221    5.427401 
-    216    264    -0.326674 
-    216    1320    -0.264566 
-    216    1321    3.087606 
-    216    1322    5.219286 
-    217    170    -7.481215 
-    217    217    -106.649090 
-    217    218    94.589072 
-    217    221    -0.817855 
-    217    1322    -0.776395 
-    218    168    -0.028468 
-    218    169    -3.711677 
-    218    170    -6.274214 
-    218    213    -0.003420 
-    218    214    -4.436648 
-    218    215    -7.499705 
-    218    216    0.044058 
-    218    217    18.269537 
-    218    218    30.882809 
-    218    219    -0.003419 
-    218    220    -4.436568 
-    218    221    -7.499575 
-    218    264    -0.003409 
-    218    265    -4.423341 
-    218    266    -7.477211 
-    218    1320    -0.003855 
-    218    1321    -1.249434 
-    218    1322    -2.112042 
-    219    171    -2.254950 
-    219    172    34.272320 
-    219    173    57.933929 
-    219    216    -0.327557 
-    219    219    578.472800 
-    219    220    -375.136440 
-    219    221    -634.130630 
-    219    222    -0.317936 
-    219    223    4.768057 
-    219    224    8.059917 
-    219    267    -0.326652 
-    219    1323    -0.253489 
-    219    1324    2.848195 
-    219    1325    4.814589 
-    220    173    -8.130919 
-    220    220    -106.648860 
-    220    221    95.574845 
-    220    224    -1.229284 
-    220    1325    -0.716338 
-    221    171    -0.022319 
-    221    172    -3.797303 
-    221    173    -6.418961 
-    221    216    -0.003419 
-    221    217    -4.436568 
-    221    218    -7.499575 
-    221    219    0.037288 
-    221    220    18.317866 
-    221    221    30.964516 
-    221    222    -0.002811 
-    221    223    -4.398270 
-    221    224    -7.434830 
-    221    267    -0.003409 
-    221    268    -4.424803 
-    221    269    -7.479687 
-    221    1323    -0.003843 
-    221    1324    -1.249054 
-    221    1325    -2.111401 
-    222    174    -2.102805 
-    222    175    34.671114 
-    222    176    58.608013 
-    222    219    -0.269392 
-    222    222    554.749030 
-    222    223    -363.906820 
-    222    224    -615.147650 
-    222    225    -0.248259 
-    222    226    6.483881 
-    222    227    10.960352 
-    222    270    -0.268693 
-    222    1326    -0.245458 
-    222    1327    2.655669 
-    222    1328    4.489140 
-    223    176    -8.417571 
-    223    223    -102.780840 
-    223    224    93.163769 
-    223    227    -1.701721 
-    223    1328    -0.660239 
-    224    174    -0.017511 
-    224    175    -3.686029 
-    224    176    -6.230859 
-    224    219    -0.002811 
-    224    220    -4.398270 
-    224    221    -7.434830 
-    224    222    0.029553 
-    224    223    18.064403 
-    224    224    30.536050 
-    224    225    -0.001902 
-    224    226    -4.246385 
-    224    227    -7.178089 
-    224    270    -0.002804 
-    224    271    -4.387421 
-    224    272    -7.416492 
-    224    1326    -0.003119 
-    224    1327    -1.334860 
-    224    1328    -2.256445 
-    225    177    -1.506565 
-    225    178    34.709746 
-    225    179    58.673355 
-    225    222    -0.182276 
-    225    225    519.204870 
-    225    226    -344.192000 
-    225    227    -581.822160 
-    225    228    -0.198586 
-    225    229    7.888630 
-    225    230    13.334930 
-    225    273    -0.179974 
-    225    1329    -0.169640 
-    225    1330    2.296972 
-    225    1331    3.882801 
-    226    179    -8.437202 
-    226    226    -96.916962 
-    226    227    88.768635 
-    226    230    -2.097495 
-    226    1331    -0.592136 
-    227    177    -0.010573 
-    227    178    -3.539884 
-    227    179    -5.983820 
-    227    222    -0.001902 
-    227    223    -4.246385 
-    227    224    -7.178089 
-    227    225    0.018823 
-    227    226    17.439049 
-    227    227    29.478962 
-    227    228    -0.001234 
-    227    229    -3.973355 
-    227    230    -6.716554 
-    227    273    -0.001878 
-    227    274    -4.193291 
-    227    275    -7.088339 
-    227    1329    -0.001949 
-    227    1330    -1.475347 
-    227    1331    -2.493926 
-    228    180    -1.250029 
-    228    181    32.776872 
-    228    182    55.405994 
-    228    225    -0.118274 
-    228    228    472.529580 
-    228    229    -316.510790 
-    228    230    -535.029440 
-    228    231    -0.116440 
-    228    232    8.666418 
-    228    233    14.649713 
-    228    276    -0.116666 
-    228    1332    -0.136430 
-    228    1333    1.852238 
-    228    1334    3.131021 
-    229    182    -8.226689 
-    229    229    -88.678619 
-    229    230    82.092491 
-    229    233    -2.356370 
-    229    1334    -0.473197 
-    230    180    -0.006951 
-    230    181    -3.363208 
-    230    182    -5.685164 
-    230    225    -0.001234 
-    230    226    -3.973355 
-    230    227    -6.716554 
-    230    228    0.012075 
-    230    229    16.662947 
-    230    230    28.167030 
-    230    231    -0.000294 
-    230    232    -3.735226 
-    230    233    -6.314026 
-    230    276    -0.001218 
-    230    277    -3.919831 
-    230    278    -6.626076 
-    230    1332    -0.001227 
-    230    1333    -1.661456 
-    230    1334    -2.808524 
-    231    183    -0.962820 
-    231    184    30.072650 
-    231    185    50.834807 
-    231    228    -0.028192 
-    231    231    437.380550 
-    231    232    -294.062540 
-    231    233    -497.083310 
-    231    234    -0.110235 
-    231    235    9.098386 
-    231    236    15.379904 
-    231    279    -0.027787 
-    231    1335    -0.094692 
-    231    1336    1.413489 
-    231    1337    2.389362 
-    232    185    -7.854217 
-    232    232    -82.802041 
-    232    233    77.003990 
-    232    236    -2.491765 
-    232    1337    -0.370686 
-    233    183    -0.003124 
-    233    184    -3.238818 
-    233    185    -5.474898 
-    233    228    -0.000294 
-    233    229    -3.735226 
-    233    230    -6.314026 
-    233    231    0.005596 
-    233    232    15.978837 
-    233    233    27.010623 
-    233    234    -0.000017 
-    233    235    -3.476036 
-    233    236    -5.875887 
-    233    279    -0.000290 
-    233    280    -3.681971 
-    233    281    -6.224003 
-    233    1335    -0.000838 
-    233    1336    -1.837569 
-    233    1337    -3.106227 
-    234    186    -0.466885 
-    234    187    27.264523 
-    234    188    46.087927 
-    234    231    -0.001622 
-    234    234    402.695510 
-    234    235    -269.895040 
-    234    236    -456.230340 
-    234    237    -0.141628 
-    234    238    8.707568 
-    234    239    14.719273 
-    234    282    -0.001597 
-    234    1338    -0.059816 
-    234    1339    1.184940 
-    234    1340    2.003021 
-    235    188    -6.987032 
-    235    235    -76.449015 
-    235    236    70.887220 
-    235    239    -2.384761 
-    235    1340    -0.315517 
-    236    186    -0.002128 
-    236    187    -3.020461 
-    236    188    -5.105784 
-    236    231    -0.000017 
-    236    232    -3.476036 
-    236    233    -5.875887 
-    236    234    0.003717 
-    236    235    15.194425 
-    236    236    25.684645 
-    236    237    -0.000015 
-    236    238    -3.240484 
-    236    239    -5.477714 
-    236    282    -0.000017 
-    236    283    -3.422994 
-    236    284    -5.786226 
-    236    1338    -0.000599 
-    236    1339    -2.025941 
-    236    1340    -3.424648 
-    237    189    -0.340413 
-    237    190    22.538935 
-    237    191    38.099815 
-    237    234    -0.001474 
-    237    237    379.567110 
-    237    238    -243.324810 
-    237    239    -411.316260 
-    237    285    -0.001449 
-    237    1341    -0.001005 
-    237    1342    1.053015 
-    237    1343    1.780016 
-    238    191    -5.814974 
-    238    238    -72.082031 
-    238    239    63.780781 
-    238    1343    -0.285622 
-    239    189    -0.001806 
-    239    190    -2.859445 
-    239    191    -4.833606 
-    239    234    -0.000015 
-    239    235    -3.240484 
-    239    236    -5.477714 
-    239    237    0.002734 
-    239    238    11.483163 
-    239    239    19.411139 
-    239    285    -0.000015 
-    239    286    -3.186243 
-    239    287    -5.386026 
-    239    1341    -0.000010 
-    239    1342    -2.188966 
-    239    1343    -3.700229 
-    240    240    1.000000 
-    241    241    1.000000 
-    242    242    1.000000 
-    243    243    1.000000 
-    244    244    1.000000 
-    245    245    1.000000 
-    246    246    1.000000 
-    247    247    1.000000 
-    248    248    1.000000 
-    249    249    1.000000 
-    250    250    1.000000 
-    251    251    1.000000 
-    252    252    1.000000 
-    253    253    1.000000 
-    254    254    1.000000 
-    255    207    -0.502753 
-    255    208    38.055507 
-    255    209    64.329029 
-    255    255    575.079160 
-    255    256    -373.053960 
-    255    257    -630.610410 
-    255    258    -0.002390 
-    255    303    -0.002385 
-    255    1359    -0.000730 
-    255    1360    1.678820 
-    255    1361    2.837878 
-    256    209    -9.903012 
-    256    256    -100.229230 
-    256    257    112.992100 
-    256    1361    -0.450112 
-    257    207    -0.002434 
-    257    208    -4.516995 
-    257    209    -7.635529 
-    257    255    0.003836 
-    257    256    15.487904 
-    257    257    26.180753 
-    257    258    -0.000025 
-    257    259    -4.770568 
-    257    260    -8.064167 
-    257    303    -0.000025 
-    257    304    -4.762029 
-    257    305    -8.049733 
-    257    1359    -0.000008 
-    257    1360    -1.426136 
-    257    1361    -2.410741 
-    258    210    -0.572549 
-    258    211    38.015026 
-    258    212    64.260557 
-    258    255    -0.061331 
-    258    256    1.205691 
-    258    257    2.038100 
-    258    258    575.127750 
-    258    259    -374.036510 
-    258    260    -632.270920 
-    258    261    -0.002404 
-    258    306    -0.002399 
-    258    1362    -0.000734 
-    258    1363    1.717198 
-    258    1364    2.902749 
-    259    212    -9.839850 
-    259    257    -0.330190 
-    259    259    -109.251310 
-    259    260    98.012889 
-    259    1364    -0.455689 
-    260    210    -0.002680 
-    260    211    -4.494527 
-    260    212    -7.597543 
-    260    255    -0.000025 
-    260    256    -4.770568 
-    260    257    -8.064167 
-    260    258    0.004107 
-    260    259    20.220255 
-    260    260    34.180302 
-    260    261    -0.000025 
-    260    262    -4.770618 
-    260    263    -8.064247 
-    260    306    -0.000025 
-    260    307    -4.760680 
-    260    308    -8.047449 
-    260    1362    -0.000008 
-    260    1363    -1.411688 
-    260    1364    -2.386316 
-    261    213    -0.696206 
-    261    214    38.721161 
-    261    215    65.454250 
-    261    258    -0.087124 
-    261    259    1.446488 
-    261    260    2.445142 
-    261    261    575.156410 
-    261    262    -374.643450 
-    261    263    -633.297290 
-    261    264    -0.002432 
-    261    309    -0.002425 
-    261    1365    -0.083649 
-    261    1366    1.765941 
-    261    1367    2.985147 
-    262    215    -9.916144 
-    262    260    -0.396133 
-    262    262    -109.245110 
-    262    263    98.193118 
-    262    1367    -0.461354 
-    263    213    -0.003167 
-    263    214    -4.447221 
-    263    215    -7.517583 
-    263    258    -0.000025 
-    263    259    -4.770618 
-    263    260    -8.064247 
-    263    261    0.005277 
-    263    262    20.149213 
-    263    263    34.060225 
-    263    264    -0.000025 
-    263    265    -4.770972 
-    263    266    -8.064851 
-    263    309    -0.000025 
-    263    310    -4.758173 
-    263    311    -8.043216 
-    263    1365    -0.000691 
-    263    1366    -1.390058 
-    263    1367    -2.349753 
-    264    216    -0.734888 
-    264    217    40.088522 
-    264    218    67.765594 
-    264    261    -0.007934 
-    264    262    0.390336 
-    264    263    0.659823 
-    264    264    575.293290 
-    264    265    -376.362580 
-    264    266    -636.202910 
-    264    267    -0.063768 
-    264    268    1.595729 
-    264    269    2.697421 
-    264    312    -0.024186 
-    264    1368    -0.090841 
-    264    1369    1.726506 
-    264    1370    2.918483 
-    265    218    -10.211302 
-    265    263    -0.106896 
-    265    265    -109.072050 
-    265    266    98.474973 
-    265    269    -0.432764 
-    265    1370    -0.448680 
-    266    216    -0.003409 
-    266    217    -4.423341 
-    266    218    -7.477211 
-    266    261    -0.000025 
-    266    262    -4.770972 
-    266    263    -8.064851 
-    266    264    0.006302 
-    266    265    20.050582 
-    266    266    33.893491 
-    266    267    -0.000496 
-    266    268    -4.724186 
-    266    269    -7.985765 
-    266    312    -0.000252 
-    266    313    -4.737192 
-    266    314    -8.007744 
-    266    1368    -0.000765 
-    266    1369    -1.382738 
-    266    1370    -2.337379 
-    267    219    -0.751303 
-    267    220    41.711503 
-    267    221    70.509125 
-    267    264    -0.047553 
-    267    267    575.383530 
-    267    268    -379.657950 
-    267    269    -641.773800 
-    267    270    -0.063582 
-    267    271    3.564133 
-    267    272    6.024807 
-    267    315    -0.047438 
-    267    1371    -0.096814 
-    267    1372    1.612247 
-    267    1373    2.725342 
-    268    221    -10.625014 
-    268    268    -108.886460 
-    268    269    99.168081 
-    268    272    -0.976066 
-    268    1373    -0.416776 
-    269    219    -0.003409 
-    269    220    -4.424803 
-    269    221    -7.479687 
-    269    264    -0.000496 
-    269    265    -4.724186 
-    269    266    -7.985765 
-    269    267    0.006629 
-    269    268    20.020417 
-    269    269    33.842508 
-    269    270    -0.000025 
-    269    271    -4.770303 
-    269    272    -8.063716 
-    269    315    -0.000495 
-    269    316    -4.713297 
-    269    317    -7.967358 
-    269    1371    -0.000840 
-    269    1372    -1.375697 
-    269    1373    -2.325478 
-    270    222    -0.673352 
-    270    223    42.136737 
-    270    224    71.227889 
-    270    267    -0.002414 
-    270    270    575.258730 
-    270    271    -382.003880 
-    270    272    -645.739000 
-    270    273    -0.114481 
-    270    274    5.745762 
-    270    275    9.712636 
-    270    318    -0.002409 
-    270    1374    -0.065999 
-    270    1375    1.435957 
-    270    1376    2.427339 
-    271    224    -10.863549 
-    271    271    -109.245510 
-    271    272    100.208510 
-    271    275    -1.573535 
-    271    1376    -0.377117 
-    272    222    -0.002804 
-    272    223    -4.387421 
-    272    224    -7.416492 
-    272    267    -0.000025 
-    272    268    -4.770303 
-    272    269    -8.063716 
-    272    270    0.004838 
-    272    271    19.950620 
-    272    272    33.724511 
-    272    273    -0.000024 
-    272    274    -4.622886 
-    272    275    -7.814527 
-    272    318    -0.000025 
-    272    319    -4.761428 
-    272    320    -8.048713 
-    272    1374    -0.000616 
-    272    1375    -1.396409 
-    272    1376    -2.360487 
-    273    225    -0.518847 
-    273    226    40.524145 
-    273    227    68.502014 
-    273    270    -0.002303 
-    273    273    540.678330 
-    273    274    -363.064230 
-    273    275    -613.723770 
-    273    276    -0.153708 
-    273    277    7.859068 
-    273    278    13.284960 
-    273    321    -0.002299 
-    273    1377    -0.000772 
-    273    1378    1.281349 
-    273    1379    2.165992 
-    274    227    -10.635726 
-    274    274    -102.693650 
-    274    275    95.280061 
-    274    278    -2.152302 
-    274    1379    -0.341669 
-    275    225    -0.001878 
-    275    226    -4.193291 
-    275    227    -7.088339 
-    275    270    -0.000024 
-    275    271    -4.622886 
-    275    272    -7.814527 
-    275    273    0.003220 
-    275    274    19.287736 
-    275    275    32.603984 
-    275    276    -0.000022 
-    275    277    -4.336491 
-    275    278    -7.330400 
-    275    321    -0.000024 
-    275    322    -4.614695 
-    275    323    -7.800680 
-    275    1377    -0.000008 
-    275    1378    -1.508930 
-    275    1379    -2.550695 
-    276    228    -0.367419 
-    276    229    37.856342 
-    276    230    63.992312 
-    276    273    -0.002126 
-    276    276    506.167270 
-    276    277    -342.279590 
-    276    278    -578.589030 
-    276    279    -0.148128 
-    276    280    9.560603 
-    276    281    16.161243 
-    276    324    -0.002100 
-    276    1380    -0.000812 
-    276    1381    1.032550 
-    276    1382    1.745421 
-    277    230    -10.065562 
-    277    277    -96.142388 
-    277    278    89.845061 
-    277    281    -2.618312 
-    277    1382    -0.280897 
-    278    228    -0.001218 
-    278    229    -3.919831 
-    278    230    -6.626076 
-    278    273    -0.000022 
-    278    274    -4.336491 
-    278    275    -7.330400 
-    278    276    0.002473 
-    278    277    18.194383 
-    278    278    30.755768 
-    278    279    -0.000020 
-    278    280    -3.998508 
-    278    281    -6.759078 
-    278    324    -0.000022 
-    278    325    -4.283847 
-    278    326    -7.241411 
-    278    1380    -0.000008 
-    278    1381    -1.644991 
-    278    1382    -2.780692 
-    279    231    -0.209472 
-    279    232    34.447542 
-    279    233    58.230126 
-    279    276    -0.001924 
-    279    279    460.094230 
-    279    280    -315.055630 
-    279    281    -532.570030 
-    279    282    -0.165332 
-    279    283    11.886166 
-    279    284    20.092362 
-    279    327    -0.001877 
-    279    1383    -0.000877 
-    279    1384    0.833644 
-    279    1385    1.409192 
-    280    233    -9.366170 
-    280    280    -87.403089 
-    280    281    82.741962 
-    280    284    -3.255230 
-    280    1385    -0.228305 
-    281    231    -0.000290 
-    281    232    -3.681971 
-    281    233    -6.224003 
-    281    276    -0.000020 
-    281    277    -3.998508 
-    281    278    -6.759078 
-    281    279    0.001432 
-    281    280    17.081396 
-    281    281    28.874387 
-    281    282    -0.000018 
-    281    283    -3.667843 
-    281    284    -6.200118 
-    281    327    -0.000020 
-    281    328    -3.900897 
-    281    329    -6.594076 
-    281    1383    -0.000009 
-    281    1384    -1.822437 
-    281    1385    -3.080647 
-    282    234    -0.123537 
-    282    235    29.659902 
-    282    236    50.137073 
-    282    279    -0.001735 
-    282    282    425.643530 
-    282    283    -299.018730 
-    282    284    -505.460930 
-    282    285    -0.267757 
-    282    286    20.669061 
-    282    287    34.938980 
-    282    330    -0.001688 
-    282    1386    -0.000932 
-    282    1387    0.721203 
-    282    1388    1.219121 
-    283    236    -8.122925 
-    283    283    -80.847251 
-    283    284    78.617985 
-    283    287    -5.660657 
-    283    1388    -0.197513 
-    284    234    -0.000017 
-    284    235    -3.422994 
-    284    236    -5.786226 
-    284    279    -0.000018 
-    284    280    -3.667843 
-    284    281    -6.200118 
-    284    282    0.001073 
-    284    283    16.020787 
-    284    284    27.081526 
-    284    285    -0.000016 
-    284    286    -3.380930 
-    284    287    -5.715124 
-    284    330    -0.000018 
-    284    331    -3.569419 
-    284    332    -6.033741 
-    284    1386    -0.000010 
-    284    1387    -1.970592 
-    284    1388    -3.331087 
-    285    237    -0.001847 
-    285    238    16.689927 
-    285    239    28.212653 
-    285    282    -0.001552 
-    285    285    391.011080 
-    285    286    -245.169820 
-    285    287    -414.435060 
-    285    1389    -0.000985 
-    285    1390    0.710329 
-    285    1391    1.200740 
-    286    239    -4.570908 
-    286    286    -74.289358 
-    286    287    64.143619 
-    286    1391    -0.194539 
-    287    237    -0.000015 
-    287    238    -3.186243 
-    287    239    -5.386026 
-    287    282    -0.000016 
-    287    283    -3.380930 
-    287    284    -5.715124 
-    287    285    0.000955 
-    287    286    8.721027 
-    287    287    14.742025 
-    287    1389    -0.000010 
-    287    1390    -2.145576 
-    287    1391    -3.626882 
-    288    288    1.000000 
-    289    289    1.000000 
-    290    290    1.000000 
-    291    291    1.000000 
-    292    292    1.000000 
-    293    293    1.000000 
-    294    294    1.000000 
-    295    295    1.000000 
-    296    296    1.000000 
-    297    297    1.000000 
-    298    298    1.000000 
-    299    299    1.000000 
-    300    300    1.000000 
-    301    301    1.000000 
-    302    302    1.000000 
-    303    255    -0.240533 
-    303    256    41.710395 
-    303    257    70.507252 
-    303    303    574.853820 
-    303    304    -378.188000 
-    303    305    -639.289000 
-    303    306    -0.002452 
-    303    351    -0.002444 
-    303    1407    -0.000749 
-    303    1408    1.133197 
-    303    1409    1.915557 
-    304    257    -11.422778 
-    304    304    -100.264510 
-    304    305    114.312160 
-    304    1409    -0.310332 
-    305    255    -0.000025 
-    305    256    -4.762029 
-    305    257    -8.049733 
-    305    303    0.001428 
-    305    304    15.762163 
-    305    305    26.644360 
-    305    306    -0.000026 
-    305    307    -4.771610 
-    305    308    -8.065930 
-    305    351    -0.000026 
-    305    352    -4.758091 
-    305    353    -8.043076 
-    305    1407    -0.000008 
-    305    1408    -1.458242 
-    305    1409    -2.465013 
-    306    258    -0.248114 
-    306    259    42.446987 
-    306    260    71.752342 
-    306    303    -0.069041 
-    306    304    1.955428 
-    306    305    3.305456 
-    306    306    574.864580 
-    306    307    -380.943930 
-    306    308    -643.947180 
-    306    309    -0.002456 
-    306    354    -0.002448 
-    306    1410    -0.000751 
-    306    1411    1.144864 
-    306    1412    1.935277 
-    307    260    -11.624465 
-    307    305    -0.535505 
-    307    307    -109.285730 
-    307    308    99.820041 
-    307    1412    -0.313526 
-    308    258    -0.000025 
-    308    259    -4.760680 
-    308    260    -8.047449 
-    308    303    -0.000026 
-    308    304    -4.771610 
-    308    305    -8.065930 
-    308    306    0.001453 
-    308    307    20.531953 
-    308    308    34.707196 
-    308    309    -0.000026 
-    308    310    -4.771707 
-    308    311    -8.066088 
-    308    354    -0.000026 
-    308    355    -4.756790 
-    308    356    -8.040872 
-    308    1410    -0.000008 
-    308    1411    -1.458976 
-    308    1412    -2.466251 
-    309    261    -0.241840 
-    309    262    44.102251 
-    309    263    74.550445 
-    309    306    -0.080982 
-    309    307    3.128247 
-    309    308    5.287986 
-    309    309    574.848610 
-    309    310    -383.753620 
-    309    311    -648.697130 
-    309    312    -0.002463 
-    309    357    -0.002455 
-    309    1413    -0.000754 
-    309    1414    1.160065 
-    309    1415    1.960974 
-    310    263    -12.077701 
-    310    308    -0.856687 
-    310    310    -109.282580 
-    310    311    100.596740 
-    310    1415    -0.317392 
-    311    261    -0.000025 
-    311    262    -4.758173 
-    311    263    -8.043216 
-    311    306    -0.000026 
-    311    307    -4.771707 
-    311    308    -8.066088 
-    311    309    0.001454 
-    311    310    20.527605 
-    311    311    34.699859 
-    311    312    -0.000026 
-    311    313    -4.771829 
-    311    314    -8.066300 
-    311    357    -0.000026 
-    311    358    -4.755391 
-    311    359    -8.038513 
-    311    1413    -0.000008 
-    311    1414    -1.458317 
-    311    1415    -2.465140 
-    312    264    -0.306743 
-    312    265    46.208999 
-    312    266    78.111643 
-    312    309    -0.051146 
-    312    310    2.489980 
-    312    311    4.209062 
-    312    312    574.900450 
-    312    313    -385.057820 
-    312    314    -650.901250 
-    312    315    -0.002473 
-    312    360    -0.002464 
-    312    1416    -0.000756 
-    312    1417    1.193951 
-    312    1418    2.018254 
-    313    266    -12.595337 
-    313    311    -0.681893 
-    313    313    -109.281340 
-    313    314    100.956820 
-    313    1418    -0.325025 
-    314    264    -0.000252 
-    314    265    -4.737192 
-    314    266    -8.007744 
-    314    309    -0.000026 
-    314    310    -4.771829 
-    314    311    -8.066300 
-    314    312    0.001681 
-    314    313    20.498379 
-    314    314    34.650441 
-    314    315    -0.000026 
-    314    316    -4.771781 
-    314    317    -8.066213 
-    314    360    -0.000026 
-    314    361    -4.755227 
-    314    362    -8.038230 
-    314    1416    -0.000008 
-    314    1417    -1.450162 
-    314    1418    -2.451353 
-    315    267    -0.370517 
-    315    268    47.904941 
-    315    269    80.978512 
-    315    312    -0.026877 
-    315    313    0.104478 
-    315    314    0.176609 
-    315    315    574.918290 
-    315    316    -387.272960 
-    315    317    -654.646210 
-    315    318    -0.058354 
-    315    319    3.198995 
-    315    320    5.407578 
-    315    363    -0.002469 
-    315    1419    -0.000757 
-    315    1420    1.185961 
-    315    1421    2.004748 
-    316    269    -12.991897 
-    316    314    -0.028612 
-    316    316    -100.254000 
-    316    317    116.824520 
-    316    320    -0.876061 
-    316    1421    -0.321222 
-    317    267    -0.000495 
-    317    268    -4.713297 
-    317    269    -7.967358 
-    317    312    -0.000026 
-    317    313    -4.771781 
-    317    314    -8.066213 
-    317    315    0.001924 
-    317    316    20.466586 
-    317    317    34.596706 
-    317    318    -0.000026 
-    317    319    -4.771299 
-    317    320    -8.065399 
-    317    363    -0.000026 
-    317    364    -4.755185 
-    317    365    -8.038164 
-    317    1419    -0.000008 
-    317    1420    -1.442837 
-    317    1421    -2.438972 
-    318    270    -0.330881 
-    318    271    48.289200 
-    318    272    81.628018 
-    318    315    -0.002462 
-    318    318    574.936420 
-    318    319    -390.526490 
-    318    320    -660.145610 
-    318    321    -0.130907 
-    318    322    5.742553 
-    318    323    9.707211 
-    318    366    -0.002454 
-    318    1422    -0.000753 
-    318    1423    1.113833 
-    318    1424    1.882822 
-    319    272    -13.224376 
-    319    319    -109.280150 
-    319    320    102.457520 
-    319    323    -1.572631 
-    319    1424    -0.303215 
-    320    270    -0.000025 
-    320    271    -4.761428 
-    320    272    -8.048713 
-    320    315    -0.000026 
-    320    316    -4.771299 
-    320    317    -8.065399 
-    320    318    0.001454 
-    320    319    20.521060 
-    320    320    34.688785 
-    320    321    -0.000026 
-    320    322    -4.770479 
-    320    323    -8.064017 
-    320    366    -0.000026 
-    320    367    -4.755219 
-    320    368    -8.038218 
-    320    1422    -0.000008 
-    320    1423    -1.450448 
-    320    1424    -2.451836 
-    321    273    -0.308332 
-    321    274    46.980387 
-    321    275    79.415645 
-    321    318    -0.002448 
-    321    321    575.019100 
-    321    322    -391.294910 
-    321    323    -661.444910 
-    321    324    -0.184205 
-    321    325    7.981406 
-    321    326    13.491762 
-    321    369    -0.002442 
-    321    1425    -0.000749 
-    321    1426    1.010525 
-    321    1427    1.708192 
-    322    275    -12.866050 
-    322    322    -109.284480 
-    322    323    102.657800 
-    322    326    -2.185763 
-    322    1427    -0.276737 
-    323    273    -0.000024 
-    323    274    -4.614695 
-    323    275    -7.800680 
-    323    318    -0.000026 
-    323    319    -4.770479 
-    323    320    -8.064017 
-    323    321    0.001451 
-    323    322    20.186025 
-    323    323    34.122453 
-    323    324    -0.000024 
-    323    325    -4.571862 
-    323    326    -7.728272 
-    323    369    -0.000025 
-    323    370    -4.758024 
-    323    371    -8.042964 
-    323    1425    -0.000008 
-    323    1426    -1.458776 
-    323    1427    -2.465915 
-    324    276    -0.265474 
-    324    277    43.895681 
-    324    278    74.201208 
-    324    321    -0.002328 
-    324    324    529.093330 
-    324    325    -361.834940 
-    324    326    -611.645450 
-    324    327    -0.160385 
-    324    328    8.502203 
-    324    329    14.372125 
-    324    372    -0.002254 
-    324    1428    -0.000807 
-    324    1429    0.951356 
-    324    1430    1.608170 
-    325    278    -12.021368 
-    325    325    -100.547760 
-    325    326    94.936056 
-    325    329    -2.328398 
-    325    1430    -0.260535 
-    326    276    -0.000022 
-    326    277    -4.283847 
-    326    278    -7.241411 
-    326    321    -0.000024 
-    326    322    -4.571862 
-    326    323    -7.728272 
-    326    324    0.001337 
-    326    325    19.068643 
-    326    326    32.233618 
-    326    327    -0.000022 
-    326    328    -4.190238 
-    326    329    -7.083178 
-    326    372    -0.000024 
-    326    373    -4.426915 
-    326    374    -7.483253 
-    326    1428    -0.000008 
-    326    1429    -1.584564 
-    326    1430    -2.678545 
-    327    279    -0.236963 
-    327    280    41.382436 
-    327    281    69.952869 
-    327    324    -0.002114 
-    327    327    483.053590 
-    327    328    -330.908030 
-    327    329    -559.366940 
-    327    330    -0.120180 
-    327    331    7.045998 
-    327    332    11.910547 
-    327    375    -0.002064 
-    327    1431    -0.000876 
-    327    1432    0.871833 
-    327    1433    1.473746 
-    328    281    -11.333192 
-    328    328    -91.807741 
-    328    329    86.820392 
-    328    332    -1.929613 
-    328    1433    -0.238759 
-    329    279    -0.000020 
-    329    280    -3.900897 
-    329    281    -6.594076 
-    329    324    -0.000022 
-    329    325    -4.190238 
-    329    326    -7.083178 
-    329    327    0.001221 
-    329    328    17.737475 
-    329    329    29.983424 
-    329    330    -0.000020 
-    329    331    -3.807946 
-    329    332    -6.436947 
-    329    375    -0.000022 
-    329    376    -4.092152 
-    329    377    -6.917374 
-    329    1431    -0.000009 
-    329    1432    -1.736001 
-    329    1433    -2.934535 
-    330    282    -0.265106 
-    330    283    42.827330 
-    330    284    72.395271 
-    330    327    -0.001905 
-    330    330    437.022830 
-    330    331    -298.436390 
-    330    332    -504.476560 
-    330    378    -0.001855 
-    330    1434    -0.000960 
-    330    1435    0.824705 
-    330    1436    1.394080 
-    331    284    -11.728997 
-    331    331    -83.065671 
-    331    332    78.286656 
-    331    1436    -0.225853 
-    332    282    -0.000018 
-    332    283    -3.569419 
-    332    284    -6.033741 
-    332    327    -0.000020 
-    332    328    -3.807946 
-    332    329    -6.436947 
-    332    330    0.001088 
-    332    331    13.013397 
-    332    332    21.997831 
-    332    378    -0.000019 
-    332    379    -3.707993 
-    332    380    -6.267987 
-    332    1434    -0.000010 
-    332    1435    -1.918772 
-    332    1436    -3.243489 
-    333    333    1.000000 
-    334    334    1.000000 
-    335    335    1.000000 
-    336    336    1.000000 
-    337    337    1.000000 
-    338    338    1.000000 
-    339    339    1.000000 
-    340    340    1.000000 
-    341    341    1.000000 
-    342    342    1.000000 
-    343    343    1.000000 
-    344    344    1.000000 
-    345    345    1.000000 
-    346    346    1.000000 
-    347    347    1.000000 
-    348    348    1.000000 
-    349    349    1.000000 
-    350    350    1.000000 
-    351    303    -0.239149 
-    351    304    46.140393 
-    351    305    77.995721 
-    351    351    574.789460 
-    351    352    -382.660890 
-    351    353    -646.849970 
-    351    354    -0.002557 
-    351    399    -0.002436 
-    351    1455    -0.000782 
-    351    1456    1.051910 
-    351    1457    1.778149 
-    352    305    -12.635806 
-    352    352    -100.305820 
-    352    353    115.435320 
-    352    1457    -0.288065 
-    353    303    -0.000026 
-    353    304    -4.758091 
-    353    305    -8.043076 
-    353    351    0.001430 
-    353    352    15.551099 
-    353    353    26.287578 
-    353    354    -0.000027 
-    353    355    -4.772839 
-    353    356    -8.068006 
-    353    399    -0.000025 
-    353    400    -4.547600 
-    353    401    -7.687263 
-    353    1455    -0.000008 
-    353    1456    -1.460362 
-    353    1457    -2.468596 
-    354    306    -0.232010 
-    354    307    47.718748 
-    354    308    80.663716 
-    354    351    -0.062044 
-    354    352    3.551726 
-    354    353    6.003837 
-    354    354    574.843860 
-    354    355    -387.852090 
-    354    356    -655.624830 
-    354    357    -0.002565 
-    354    402    -0.002499 
-    354    1458    -0.000785 
-    354    1459    1.145018 
-    354    1460    1.935538 
-    355    308    -13.068034 
-    355    353    -0.972638 
-    355    355    -109.328350 
-    355    356    101.605680 
-    355    1460    -0.313563 
-    356    306    -0.000026 
-    356    307    -4.756790 
-    356    308    -8.040872 
-    356    351    -0.000027 
-    356    352    -4.772839 
-    356    353    -8.068006 
-    356    354    0.001457 
-    356    355    20.425388 
-    356    356    34.527060 
-    356    357    -0.000027 
-    356    358    -4.772648 
-    356    359    -8.067680 
-    356    402    -0.000026 
-    356    403    -4.650736 
-    356    404    -7.861600 
-    356    1458    -0.000008 
-    356    1459    -1.460166 
-    356    1460    -2.468263 
-    357    309    -0.243872 
-    357    310    51.162626 
-    357    311    86.485303 
-    357    354    -0.093051 
-    357    355    6.598658 
-    357    356    11.154366 
-    357    357    574.933090 
-    357    358    -394.520180 
-    357    359    -666.896920 
-    357    360    -0.002580 
-    357    405    -0.002568 
-    357    1461    -0.000789 
-    357    1462    1.295786 
-    357    1463    2.190397 
-    358    311    -14.011138 
-    358    356    -1.807035 
-    358    358    -109.328750 
-    358    359    103.430250 
-    358    1463    -0.354849 
-    359    309    -0.000026 
-    359    310    -4.755391 
-    359    311    -8.038513 
-    359    354    -0.000027 
-    359    355    -4.772648 
-    359    356    -8.067680 
-    359    357    0.001458 
-    359    358    20.524561 
-    359    359    34.694713 
-    359    360    -0.000027 
-    359    361    -4.772618 
-    359    362    -8.067633 
-    359    405    -0.000027 
-    359    406    -4.751601 
-    359    407    -8.032107 
-    359    1461    -0.000008 
-    359    1462    -1.460094 
-    359    1463    -2.468143 
-    360    312    -0.304690 
-    360    313    54.850702 
-    360    314    92.719559 
-    360    357    -0.112290 
-    360    358    6.193038 
-    360    359    10.468712 
-    360    360    574.921320 
-    360    361    -397.940350 
-    360    362    -672.677880 
-    360    363    -0.002595 
-    360    408    -0.002584 
-    360    1464    -0.000794 
-    360    1465    1.452377 
-    360    1466    2.455096 
-    361    314    -15.021105 
-    361    359    -1.695952 
-    361    361    -109.326800 
-    361    362    104.371310 
-    361    1466    -0.397730 
-    362    312    -0.000026 
-    362    313    -4.755227 
-    362    314    -8.038230 
-    362    357    -0.000027 
-    362    358    -4.772618 
-    362    359    -8.067633 
-    362    360    0.001459 
-    362    361    20.528588 
-    362    362    34.701505 
-    362    363    -0.000027 
-    362    364    -4.772747 
-    362    365    -8.067845 
-    362    408    -0.000027 
-    362    409    -4.754914 
-    362    410    -8.037701 
-    362    1464    -0.000008 
-    362    1465    -1.460875 
-    362    1466    -2.469460 
-    363    315    -0.328281 
-    363    316    57.167553 
-    363    317    96.636031 
-    363    360    -0.050669 
-    363    361    2.429992 
-    363    362    4.107656 
-    363    363    574.917050 
-    363    364    -399.750220 
-    363    365    -675.737770 
-    363    366    -0.057928 
-    363    367    3.143767 
-    363    368    5.314221 
-    363    411    -0.002590 
-    363    1467    -0.000796 
-    363    1468    1.526241 
-    363    1469    2.579958 
-    364    317    -15.655569 
-    364    362    -0.665447 
-    364    364    -109.325560 
-    364    365    104.869620 
-    364    368    -0.860912 
-    364    1469    -0.417957 
-    365    315    -0.000026 
-    365    316    -4.755185 
-    365    317    -8.038164 
-    365    360    -0.000027 
-    365    361    -4.772747 
-    365    362    -8.067845 
-    365    363    0.001459 
-    365    364    20.528470 
-    365    365    34.701317 
-    365    366    -0.000027 
-    365    367    -4.772566 
-    365    368    -8.067542 
-    365    411    -0.000027 
-    365    412    -4.754903 
-    365    413    -8.037688 
-    365    1467    -0.000008 
-    365    1468    -1.460863 
-    365    1469    -2.469443 
-    366    318    -0.328822 
-    366    319    57.223219 
-    366    320    96.730076 
-    366    363    -0.002593 
-    366    366    574.959350 
-    366    367    -401.671520 
-    366    368    -678.985270 
-    366    369    -0.126107 
-    366    370    7.551997 
-    366    371    12.765896 
-    366    414    -0.002583 
-    366    1470    -0.000794 
-    366    1471    1.466363 
-    366    1472    2.478738 
-    367    320    -15.670861 
-    367    367    -109.326520 
-    367    368    105.393740 
-    367    371    -2.068102 
-    367    1472    -0.401560 
-    368    318    -0.000026 
-    368    319    -4.755219 
-    368    320    -8.038218 
-    368    363    -0.000027 
-    368    364    -4.772566 
-    368    365    -8.067542 
-    368    366    0.001459 
-    368    367    20.529394 
-    368    368    34.702875 
-    368    369    -0.000027 
-    368    370    -4.772133 
-    368    371    -8.066813 
-    368    414    -0.000027 
-    368    415    -4.756286 
-    368    416    -8.040022 
-    368    1470    -0.000008 
-    368    1471    -1.460983 
-    368    1472    -2.469644 
-    369    321    -0.333924 
-    369    322    55.453699 
-    369    323    93.738933 
-    369    366    -0.002575 
-    369    369    575.007240 
-    369    370    -401.783220 
-    369    371    -679.174360 
-    369    372    -0.176068 
-    369    373    9.558048 
-    369    374    16.156913 
-    369    417    -0.002567 
-    369    1473    -0.000788 
-    369    1474    1.317196 
-    369    1475    2.226588 
-    370    323    -15.186317 
-    370    370    -109.327940 
-    370    371    105.421310 
-    370    374    -2.617468 
-    370    1475    -0.360713 
-    371    321    -0.000025 
-    371    322    -4.758024 
-    371    323    -8.042964 
-    371    366    -0.000027 
-    371    367    -4.772133 
-    371    368    -8.066813 
-    371    369    0.001457 
-    371    370    20.383029 
-    371    371    34.455466 
-    371    372    -0.000026 
-    371    373    -4.623909 
-    371    374    -7.816251 
-    371    417    -0.000027 
-    371    418    -4.756408 
-    371    419    -8.040232 
-    371    1473    -0.000008 
-    371    1474    -1.460347 
-    371    1475    -2.468570 
-    372    324    -0.320531 
-    372    325    50.170634 
-    372    326    84.808394 
-    372    369    -0.002473 
-    372    372    540.553300 
-    372    373    -376.743370 
-    372    374    -636.846550 
-    372    375    -0.198073 
-    372    376    10.116997 
-    372    377    17.101772 
-    372    420    -0.002441 
-    372    1476    -0.000831 
-    372    1477    1.183747 
-    372    1478    2.001004 
-    373    326    -13.739575 
-    373    373    -102.771570 
-    373    374    98.833318 
-    373    377    -2.770551 
-    373    1478    -0.324169 
-    374    324    -0.000024 
-    374    325    -4.426915 
-    374    326    -7.483253 
-    374    369    -0.000026 
-    374    370    -4.623909 
-    374    371    -7.816251 
-    374    372    0.001371 
-    374    373    19.517038 
-    374    374    32.991584 
-    374    375    -0.000024 
-    374    376    -4.337745 
-    374    377    -7.332525 
-    374    420    -0.000025 
-    374    421    -4.564156 
-    374    422    -7.715244 
-    374    1476    -0.000009 
-    374    1477    -1.552835 
-    374    1478    -2.624910 
-    375    327    -0.266104 
-    375    328    45.134249 
-    375    329    76.294935 
-    375    372    -0.002297 
-    375    375    506.055980 
-    375    376    -349.110060 
-    375    377    -590.135650 
-    375    378    -0.130371 
-    375    379    7.799108 
-    375    380    13.183603 
-    375    423    -0.002265 
-    375    1479    -0.000878 
-    375    1480    1.038250 
-    375    1481    1.755057 
-    376    329    -12.360385 
-    376    376    -96.216272 
-    376    377    91.532256 
-    376    380    -2.135804 
-    376    1481    -0.284326 
-    377    327    -0.000022 
-    377    328    -4.092152 
-    377    329    -6.917374 
-    377    372    -0.000024 
-    377    373    -4.337745 
-    377    374    -7.332525 
-    377    375    0.001283 
-    377    376    18.374990 
-    377    377    31.061078 
-    377    378    -0.000022 
-    377    379    -4.000002 
-    377    380    -6.761598 
-    377    423    -0.000024 
-    377    424    -4.276954 
-    377    425    -7.229763 
-    377    1479    -0.000009 
-    377    1480    -1.657390 
-    377    1481    -2.801652 
-    378    330    -0.237342 
-    378    331    40.527498 
-    378    332    68.507639 
-    378    375    -0.002101 
-    378    378    459.883580 
-    378    379    -309.758740 
-    378    380    -523.615800 
-    378    426    -0.002022 
-    378    1482    -0.000959 
-    378    1483    0.959498 
-    378    1484    1.621934 
-    379    332    -11.098836 
-    379    379    -87.470802 
-    379    380    81.123098 
-    379    1484    -0.262761 
-    380    330    -0.000019 
-    380    331    -3.707993 
-    380    332    -6.267987 
-    380    375    -0.000022 
-    380    376    -4.000002 
-    380    377    -6.761598 
-    380    378    0.001147 
-    380    379    13.394024 
-    380    380    22.641243 
-    380    426    -0.000021 
-    380    427    -3.849901 
-    380    428    -6.507868 
-    380    1482    -0.000010 
-    380    1483    -1.826358 
-    380    1484    -3.087274 
-    381    381    1.000000 
-    382    382    1.000000 
-    383    383    1.000000 
-    384    384    1.000000 
-    385    385    1.000000 
-    386    386    1.000000 
-    387    387    1.000000 
-    388    388    1.000000 
-    389    389    1.000000 
-    390    390    1.000000 
-    391    391    1.000000 
-    392    392    1.000000 
-    393    393    1.000000 
-    394    394    1.000000 
-    395    395    1.000000 
-    396    396    505.517050 
-    396    397    -310.196010 
-    396    398    -524.355000 
-    396    399    -0.074876 
-    396    400    13.837884 
-    396    401    23.391558 
-    396    444    -0.189581 
-    396    1500    -0.000949 
-    396    1501    0.967368 
-    396    1502    1.635238 
-    397    397    -96.262683 
-    397    398    80.758997 
-    397    401    -3.789401 
-    397    1502    -0.264905 
-    398    396    0.001241 
-    398    397    9.786258 
-    398    398    16.542684 
-    398    399    -0.000025 
-    398    400    -4.294039 
-    398    401    -7.258644 
-    398    444    -0.000023 
-    398    445    -3.809722 
-    398    446    -6.439950 
-    398    1500    -0.000010 
-    398    1501    -1.671730 
-    398    1502    -2.825890 
-    399    351    -0.223521 
-    399    352    49.071106 
-    399    353    82.949797 
-    399    396    -0.002406 
-    399    399    528.658800 
-    399    400    -358.894870 
-    399    401    -606.675880 
-    399    402    -0.002513 
-    399    447    -0.002270 
-    399    1503    -0.000894 
-    399    1504    1.107872 
-    399    1505    1.872748 
-    400    353    -13.438094 
-    400    400    -100.626270 
-    400    401    93.934360 
-    400    1505    -0.303383 
-    401    351    -0.000025 
-    401    352    -4.547600 
-    401    353    -7.687263 
-    401    396    -0.000025 
-    401    397    -4.294039 
-    401    398    -7.258644 
-    401    399    0.001346 
-    401    400    18.984973 
-    401    401    32.092198 
-    401    402    -0.000026 
-    401    403    -4.485373 
-    401    404    -7.582075 
-    401    447    -0.000024 
-    401    448    -4.051385 
-    401    449    -6.848461 
-    401    1503    -0.000009 
-    401    1504    -1.595325 
-    401    1505    -2.696737 
-    402    354    -0.244770 
-    402    355    51.214427 
-    402    356    86.572821 
-    402    399    -0.073997 
-    402    400    4.331028 
-    402    401    7.321170 
-    402    402    551.772320 
-    402    403    -379.066620 
-    402    404    -640.773810 
-    402    405    -0.002631 
-    402    450    -0.002448 
-    402    1506    -0.000859 
-    402    1507    1.370675 
-    402    1508    2.316988 
-    403    356    -14.025016 
-    403    401    -1.186020 
-    403    403    -105.000440 
-    403    404    99.271279 
-    403    1508    -0.375349 
-    404    354    -0.000026 
-    404    355    -4.650736 
-    404    356    -7.861600 
-    404    399    -0.000026 
-    404    400    -4.485373 
-    404    401    -7.582075 
-    404    402    0.001404 
-    404    403    19.704360 
-    404    404    33.308234 
-    404    405    -0.000027 
-    404    406    -4.676416 
-    404    407    -7.905008 
-    404    450    -0.000026 
-    404    451    -4.352907 
-    404    452    -7.358149 
-    404    1506    -0.000009 
-    404    1507    -1.527188 
-    404    1508    -2.581557 
-    405    357    -0.316568 
-    405    358    58.288778 
-    405    359    98.531351 
-    405    402    -0.156686 
-    405    403    12.333979 
-    405    404    20.849344 
-    405    405    574.922960 
-    405    406    -407.928120 
-    405    407    -689.561680 
-    405    408    -0.002714 
-    405    453    -0.002612 
-    405    1509    -0.000832 
-    405    1510    1.778705 
-    405    1511    3.006723 
-    406    359    -15.962269 
-    406    404    -3.377559 
-    406    406    -109.377610 
-    406    407    106.979650 
-    406    1511    -0.487082 
-    407    357    -0.000027 
-    407    358    -4.751601 
-    407    359    -8.032107 
-    407    402    -0.000027 
-    407    403    -4.676416 
-    407    404    -7.905008 
-    407    405    0.001462 
-    407    406    20.272988 
-    407    407    34.269454 
-    407    408    -0.000028 
-    407    409    -4.773878 
-    407    410    -8.069763 
-    407    453    -0.000027 
-    407    454    -4.595281 
-    407    455    -7.767864 
-    407    1509    -0.000009 
-    407    1510    -1.463582 
-    407    1511    -2.474039 
-    408    360    -0.366171 
-    408    361    65.469467 
-    408    362    110.669510 
-    408    405    -0.161983 
-    408    406    13.362148 
-    408    407    22.587375 
-    408    408    575.070180 
-    408    409    -416.697170 
-    408    410    -704.384500 
-    408    411    -0.002744 
-    408    456    -0.002727 
-    408    1512    -0.000839 
-    408    1513    2.322363 
-    408    1514    3.925721 
-    409    362    -17.928632 
-    409    407    -3.659093 
-    409    409    -109.380610 
-    409    410    109.372870 
-    409    1514    -0.635955 
-    410    360    -0.000027 
-    410    361    -4.754914 
-    410    362    -8.037701 
-    410    405    -0.000028 
-    410    406    -4.773878 
-    410    407    -8.069763 
-    410    408    0.001465 
-    410    409    20.519955 
-    410    410    34.686913 
-    410    411    -0.000029 
-    410    412    -4.773891 
-    410    413    -8.069780 
-    410    456    -0.000028 
-    410    457    -4.744732 
-    410    458    -8.020490 
-    410    1512    -0.000009 
-    410    1513    -1.460309 
-    410    1514    -2.468505 
-    411    363    -0.409294 
-    411    364    69.707805 
-    411    365    117.834070 
-    411    408    -0.094099 
-    411    409    6.685379 
-    411    410    11.300958 
-    411    411    575.065950 
-    411    412    -418.959700 
-    411    413    -708.209480 
-    411    414    -0.070760 
-    411    415    4.390156 
-    411    416    7.421117 
-    411    459    -0.002743 
-    411    1515    -0.000844 
-    411    1516    2.663612 
-    411    1517    4.502570 
-    412    365    -19.089266 
-    412    410    -1.830714 
-    412    412    -109.381040 
-    412    413    109.990850 
-    412    416    -1.202192 
-    412    1517    -0.729400 
-    413    363    -0.000027 
-    413    364    -4.754903 
-    413    365    -8.037688 
-    413    408    -0.000029 
-    413    409    -4.773891 
-    413    410    -8.069780 
-    413    411    0.001466 
-    413    412    20.522181 
-    413    413    34.690686 
-    413    414    -0.000029 
-    413    415    -4.773896 
-    413    416    -8.069790 
-    413    459    -0.000029 
-    413    460    -4.746953 
-    413    461    -8.024250 
-    413    1515    -0.000009 
-    413    1516    -1.460307 
-    413    1517    -2.468503 
-    414    366    -0.396773 
-    414    367    68.486522 
-    414    368    115.769570 
-    414    411    -0.002750 
-    414    414    575.107380 
-    414    415    -418.331300 
-    414    416    -707.146920 
-    414    417    -0.146766 
-    414    418    11.865530 
-    414    419    20.057491 
-    414    462    -0.002737 
-    414    1518    -0.000841 
-    414    1519    2.450524 
-    414    1520    4.142363 
-    415    368    -18.754848 
-    415    415    -109.381500 
-    415    416    109.818010 
-    415    419    -3.249253 
-    415    1520    -0.671049 
-    416    366    -0.000027 
-    416    367    -4.756286 
-    416    368    -8.040022 
-    416    411    -0.000029 
-    416    412    -4.773896 
-    416    413    -8.069790 
-    416    414    0.001465 
-    416    415    20.527906 
-    416    416    34.700360 
-    416    417    -0.000028 
-    416    418    -4.773719 
-    416    419    -8.069494 
-    416    462    -0.000029 
-    416    463    -4.752297 
-    416    464    -8.033280 
-    416    1518    -0.000009 
-    416    1519    -1.459477 
-    416    1520    -2.467098 
-    417    369    -0.376333 
-    417    370    64.191733 
-    417    371    108.509700 
-    417    414    -0.002722 
-    417    417    575.070290 
-    417    418    -416.266450 
-    417    419    -703.656800 
-    417    420    -0.200023 
-    417    421    14.573841 
-    417    422    24.635603 
-    417    465    -0.002712 
-    417    1521    -0.000833 
-    417    1522    2.005103 
-    417    1523    3.389426 
-    418    371    -17.578799 
-    418    418    -109.379080 
-    418    419    109.259190 
-    418    422    -3.990925 
-    418    1523    -0.549078 
-    419    369    -0.000027 
-    419    370    -4.756408 
-    419    371    -8.040232 
-    419    414    -0.000028 
-    419    415    -4.773719 
-    419    416    -8.069494 
-    419    417    0.001464 
-    419    418    20.483830 
-    419    419    34.625861 
-    419    420    -0.000028 
-    419    421    -4.725012 
-    419    422    -7.987154 
-    419    465    -0.000028 
-    419    466    -4.756032 
-    419    467    -8.039597 
-    419    1521    -0.000009 
-    419    1522    -1.460429 
-    419    1523    -2.468710 
-    420    372    -0.341759 
-    420    373    56.952369 
-    420    374    96.272217 
-    420    417    -0.002661 
-    420    420    563.528350 
-    420    421    -403.020410 
-    420    422    -681.265200 
-    420    423    -0.236419 
-    420    424    15.644070 
-    420    425    26.444736 
-    420    468    -0.002651 
-    420    1524    -0.000840 
-    420    1525    1.604189 
-    420    1526    2.711719 
-    421    374    -15.596386 
-    421    421    -107.190430 
-    421    422    105.730240 
-    421    425    -4.284033 
-    421    1526    -0.439295 
-    422    372    -0.000025 
-    422    373    -4.564156 
-    422    374    -7.715244 
-    422    417    -0.000028 
-    422    418    -4.725012 
-    422    419    -7.987154 
-    422    420    0.001433 
-    422    421    20.027838 
-    422    422    33.855038 
-    422    423    -0.000026 
-    422    424    -4.528858 
-    422    425    -7.655582 
-    422    468    -0.000028 
-    422    469    -4.706510 
-    422    470    -7.955879 
-    422    1524    -0.000009 
-    422    1525    -1.491316 
-    422    1526    -2.520918 
-    423    375    -0.292316 
-    423    376    48.568136 
-    423    377    82.099576 
-    423    420    -0.002515 
-    423    423    528.961250 
-    423    424    -372.813210 
-    423    425    -630.203450 
-    423    426    -0.261328 
-    423    427    14.276224 
-    423    428    24.132512 
-    423    471    -0.002454 
-    423    1527    -0.000884 
-    423    1528    1.321505 
-    423    1529    2.233873 
-    424    377    -13.300440 
-    424    424    -100.628620 
-    424    425    97.740717 
-    424    428    -3.909488 
-    424    1529    -0.361887 
-    425    375    -0.000024 
-    425    376    -4.276954 
-    425    377    -7.229763 
-    425    420    -0.000026 
-    425    421    -4.528858 
-    425    422    -7.655582 
-    425    423    0.001345 
-    425    424    18.965360 
-    425    425    32.059040 
-    425    426    -0.000024 
-    425    427    -4.137203 
-    425    428    -6.993523 
-    425    471    -0.000026 
-    425    472    -4.419515 
-    425    473    -7.470749 
-    425    1527    -0.000009 
-    425    1528    -1.591578 
-    425    1529    -2.690404 
-    426    378    -0.145449 
-    426    379    37.938706 
-    426    380    64.131542 
-    426    423    -0.002265 
-    426    426    471.366340 
-    426    427    -314.136120 
-    426    428    -531.015340 
-    426    474    -0.002185 
-    426    1530    -0.000976 
-    426    1531    1.157591 
-    426    1532    1.956790 
-    427    380    -10.389604 
-    427    427    -89.695520 
-    427    428    82.134742 
-    427    1532    -0.317002 
-    428    378    -0.000021 
-    428    379    -3.849901 
-    428    380    -6.507868 
-    428    423    -0.000024 
-    428    424    -4.137203 
-    428    425    -6.993523 
-    428    426    0.001180 
-    428    427    13.771905 
-    428    428    23.280012 
-    428    474    -0.000023 
-    428    475    -3.991607 
-    428    476    -6.747407 
-    428    1530    -0.000010 
-    428    1531    -1.783164 
-    428    1532    -3.014258 
-    429    429    1.000000 
-    430    430    1.000000 
-    431    431    1.000000 
-    432    432    1.000000 
-    433    433    1.000000 
-    434    434    1.000000 
-    435    435    1.000000 
-    436    436    1.000000 
-    437    437    1.000000 
-    438    438    1.000000 
-    439    439    1.000000 
-    440    440    1.000000 
-    441    441    1.000000 
-    442    442    1.000000 
-    443    443    1.000000 
-    444    396    -0.002207 
-    444    397    19.835020 
-    444    398    33.529096 
-    444    444    425.372960 
-    444    445    -269.140690 
-    444    446    -454.955080 
-    444    447    -0.002126 
-    444    492    -0.022188 
-    444    1548    -0.001147 
-    444    1549    1.028724 
-    444    1550    1.738954 
-    445    398    -5.431630 
-    445    445    -80.988821 
-    445    446    70.082321 
-    445    1550    -0.281703 
-    446    396    -0.000023 
-    446    397    -3.809722 
-    446    398    -6.439950 
-    446    444    0.001072 
-    446    445    12.675962 
-    446    446    21.427431 
-    446    447    -0.000022 
-    446    448    -3.670066 
-    446    449    -6.203874 
-    446    492    -0.000020 
-    446    493    -3.206808 
-    446    494    -5.420784 
-    446    1548    -0.000012 
-    446    1549    -1.980295 
-    446    1550    -3.347488 
-    447    399    -0.008443 
-    447    400    37.150315 
-    447    401    62.798893 
-    447    444    -0.126281 
-    447    445    2.718758 
-    447    446    4.595786 
-    447    447    459.711700 
-    447    448    -309.652200 
-    447    449    -523.436070 
-    447    450    -0.002325 
-    447    495    -0.010442 
-    447    1551    -0.001067 
-    447    1552    1.285298 
-    447    1553    2.172668 
-    448    401    -10.173335 
-    448    446    -0.744497 
-    448    448    -87.547250 
-    448    449    80.902187 
-    448    1553    -0.351962 
-    449    399    -0.000024 
-    449    400    -4.051385 
-    449    401    -6.848461 
-    449    444    -0.000022 
-    449    445    -3.670066 
-    449    446    -6.203874 
-    449    447    0.001179 
-    449    448    17.112696 
-    449    449    28.927296 
-    449    450    -0.000024 
-    449    451    -4.001457 
-    449    452    -6.764063 
-    449    495    -0.000022 
-    449    496    -3.543110 
-    449    497    -5.989273 
-    449    1551    -0.000011 
-    449    1552    -1.836874 
-    449    1553    -3.105053 
-    450    402    -0.137826 
-    450    403    49.956892 
-    450    404    84.447076 
-    450    447    -0.184408 
-    450    448    13.093529 
-    450    449    22.133302 
-    450    450    505.916180 
-    450    451    -360.192350 
-    450    452    -608.868820 
-    450    453    -0.002553 
-    450    498    -0.002277 
-    450    1554    -0.000981 
-    450    1555    1.850248 
-    450    1556    3.127657 
-    451    404    -13.680288 
-    451    449    -3.585488 
-    451    451    -96.302513 
-    451    452    94.350579 
-    451    1556    -0.506663 
-    452    402    -0.000026 
-    452    403    -4.352907 
-    452    404    -7.358149 
-    452    447    -0.000024 
-    452    448    -4.001457 
-    452    449    -6.764063 
-    452    450    0.001293 
-    452    451    18.242362 
-    452    452    30.836875 
-    452    453    -0.000027 
-    452    454    -4.339397 
-    452    455    -7.335312 
-    452    498    -0.000024 
-    452    499    -3.870643 
-    452    500    -6.542931 
-    452    1554    -0.000010 
-    452    1555    -1.667175 
-    452    1556    -2.818189 
-    453    405    -0.313866 
-    453    406    64.594518 
-    453    407    109.190570 
-    453    450    -0.304404 
-    453    451    22.638721 
-    453    452    38.268474 
-    453    453    540.601510 
-    453    454    -405.612280 
-    453    455    -685.646990 
-    453    456    -0.002777 
-    453    501    -0.002562 
-    453    1557    -0.000938 
-    453    1558    2.896472 
-    453    1559    4.896196 
-    454    407    -17.688576 
-    454    452    -6.199264 
-    454    454    -102.870770 
-    454    455    106.489070 
-    454    1559    -0.793148 
-    455    405    -0.000027 
-    455    406    -4.595281 
-    455    407    -7.767864 
-    455    450    -0.000027 
-    455    451    -4.339397 
-    455    452    -7.335312 
-    455    453    0.001383 
-    455    454    19.402726 
-    455    455    32.798363 
-    455    456    -0.000029 
-    455    457    -4.626525 
-    455    458    -7.820678 
-    455    501    -0.000027 
-    455    502    -4.267851 
-    455    503    -7.214375 
-    455    1557    -0.000010 
-    455    1558    -1.562151 
-    455    1559    -2.640660 
-    456    408    -0.538198 
-    456    409    80.044732 
-    456    410    135.307540 
-    456    453    -0.365817 
-    456    454    25.964243 
-    456    455    43.889957 
-    456    456    575.128090 
-    456    457    -445.928850 
-    456    458    -753.797640 
-    456    459    -0.002929 
-    456    504    -0.002848 
-    456    1560    -0.000901 
-    456    1561    4.281811 
-    456    1562    7.237969 
-    457    410    -21.919324 
-    457    455    -7.109820 
-    457    457    -109.437850 
-    457    458    117.232730 
-    457    1562    -1.172486 
-    458    408    -0.000028 
-    458    409    -4.744732 
-    458    410    -8.020490 
-    458    453    -0.000029 
-    458    454    -4.626525 
-    458    455    -7.820678 
-    458    456    0.001471 
-    458    457    20.272320 
-    458    458    34.268312 
-    458    459    -0.000031 
-    458    460    -4.775163 
-    458    461    -8.071929 
-    458    504    -0.000030 
-    458    505    -4.644802 
-    458    506    -7.851568 
-    458    1560    -0.000009 
-    458    1561    -1.468842 
-    458    1562    -2.482929 
-    459    411    -0.629079 
-    459    412    88.993349 
-    459    413    150.434360 
-    459    456    -0.185425 
-    459    457    15.650290 
-    459    458    26.455233 
-    459    459    575.203220 
-    459    460    -455.297780 
-    459    461    -769.635370 
-    459    462    -0.099876 
-    459    463    9.533252 
-    459    464    16.114999 
-    459    507    -0.002946 
-    459    1563    -0.000911 
-    459    1564    5.459841 
-    459    1565    9.229315 
-    460    413    -24.369717 
-    460    458    -4.285481 
-    460    460    -109.441740 
-    460    461    119.787440 
-    460    464    -2.610460 
-    460    1565    -1.495057 
-    461    411    -0.000029 
-    461    412    -4.746953 
-    461    413    -8.024250 
-    461    456    -0.000031 
-    461    457    -4.775163 
-    461    458    -8.071929 
-    461    459    0.001474 
-    461    460    20.525033 
-    461    461    34.695505 
-    461    462    -0.000031 
-    461    463    -4.774974 
-    461    464    -8.071610 
-    461    507    -0.000031 
-    461    508    -4.748494 
-    461    509    -8.026854 
-    461    1563    -0.000010 
-    461    1564    -1.467191 
-    461    1565    -2.480140 
-    462    414    -0.600986 
-    462    415    83.975321 
-    462    416    141.951820 
-    462    459    -0.002942 
-    462    462    575.164940 
-    462    463    -445.732740 
-    462    464    -753.466160 
-    462    465    -0.268356 
-    462    466    21.512569 
-    462    467    36.364846 
-    462    510    -0.002923 
-    462    1566    -0.000902 
-    462    1567    4.625658 
-    462    1568    7.819207 
-    463    416    -22.995641 
-    463    463    -109.438060 
-    463    464    117.178100 
-    463    467    -5.890780 
-    463    1568    -1.266638 
-    464    414    -0.000029 
-    464    415    -4.752297 
-    464    416    -8.033280 
-    464    459    -0.000031 
-    464    460    -4.774974 
-    464    461    -8.071610 
-    464    462    0.001473 
-    464    463    20.524459 
-    464    464    34.694530 
-    464    465    -0.000030 
-    464    466    -4.774392 
-    464    467    -8.070633 
-    464    510    -0.000031 
-    464    511    -4.745694 
-    464    512    -8.022116 
-    464    1566    -0.000009 
-    464    1567    -1.464845 
-    464    1568    -2.476172 
-    465    417    -0.480449 
-    465    418    74.431540 
-    465    419    125.819070 
-    465    462    -0.002892 
-    465    465    575.208150 
-    465    466    -436.815800 
-    465    467    -738.393420 
-    465    468    -0.311075 
-    465    469    23.423199 
-    465    470    39.594554 
-    465    513    -0.002875 
-    465    1569    -0.000886 
-    465    1570    3.338117 
-    465    1571    5.642754 
-    466    419    -20.382310 
-    466    466    -109.434080 
-    466    467    114.747480 
-    466    470    -6.414040 
-    466    1571    -0.914080 
-    467    417    -0.000028 
-    467    418    -4.756032 
-    467    419    -8.039597 
-    467    462    -0.000030 
-    467    463    -4.774392 
-    467    464    -8.070633 
-    467    465    0.001471 
-    467    466    20.524231 
-    467    467    34.694155 
-    467    468    -0.000030 
-    467    469    -4.773109 
-    467    470    -8.068458 
-    467    513    -0.000030 
-    467    514    -4.746594 
-    467    515    -8.023642 
-    467    1569    -0.000009 
-    467    1570    -1.461849 
-    467    1571    -2.471110 
-    468    420    -0.367998 
-    468    421    65.074723 
-    468    422    110.002230 
-    468    465    -0.002838 
-    468    468    575.142680 
-    468    469    -426.832260 
-    468    470    -721.516840 
-    468    471    -0.366704 
-    468    472    23.835402 
-    468    473    40.291363 
-    468    516    -0.002822 
-    468    1572    -0.000870 
-    468    1573    2.352503 
-    468    1574    3.976670 
-    469    422    -17.820172 
-    469    469    -109.431520 
-    469    470    112.021640 
-    469    473    -6.526994 
-    469    1574    -0.644195 
-    470    420    -0.000028 
-    470    421    -4.706510 
-    470    422    -7.955879 
-    470    465    -0.000030 
-    470    466    -4.773109 
-    470    467    -8.068458 
-    470    468    0.001468 
-    470    469    20.326504 
-    470    470    34.359905 
-    470    471    -0.000028 
-    470    472    -4.625558 
-    470    473    -7.819042 
-    470    516    -0.000029 
-    470    517    -4.746523 
-    470    518    -8.023518 
-    470    1572    -0.000009 
-    470    1573    -1.462551 
-    470    1574    -2.472294 
-    471    423    -0.225901 
-    471    424    53.596444 
-    471    425    90.599428 
-    471    468    -0.002696 
-    471    471    540.768090 
-    471    472    -406.134360 
-    471    473    -686.529530 
-    471    474    -0.435125 
-    471    475    35.331745 
-    471    476    59.724749 
-    471    519    -0.002628 
-    471    1575    -0.000906 
-    471    1576    1.800159 
-    471    1577    3.042988 
-    472    425    -14.677058 
-    472    472    -102.867650 
-    472    473    106.642090 
-    472    476    -9.675294 
-    472    1577    -0.492950 
-    473    423    -0.000026 
-    473    424    -4.419515 
-    473    425    -7.470749 
-    473    468    -0.000028 
-    473    469    -4.625558 
-    473    470    -7.819042 
-    473    471    0.001379 
-    473    472    19.409339 
-    473    473    32.809543 
-    473    474    -0.000025 
-    473    475    -4.288222 
-    473    476    -7.248807 
-    473    519    -0.000027 
-    473    520    -4.510282 
-    473    521    -7.624180 
-    473    1575    -0.000009 
-    473    1576    -1.554243 
-    473    1577    -2.627293 
-    474    426    -0.051082 
-    474    427    29.290310 
-    474    428    49.512306 
-    474    471    -0.002419 
-    474    474    494.424700 
-    474    475    -319.051060 
-    474    476    -539.323610 
-    474    1578    -0.000959 
-    474    1579    1.337859 
-    474    1580    2.261516 
-    475    428    -8.021037 
-    475    475    -94.106391 
-    475    476    83.202806 
-    475    1580    -0.366362 
-    476    426    -0.000023 
-    476    427    -3.991607 
-    476    428    -6.747407 
-    476    471    -0.000025 
-    476    472    -4.288222 
-    476    473    -7.248807 
-    476    474    0.001214 
-    476    475    9.990103 
-    476    476    16.887259 
-    476    1578    -0.000010 
-    476    1579    -1.699738 
-    476    1580    -2.873235 
-    477    477    1.000000 
-    478    478    1.000000 
-    479    479    1.000000 
-    480    480    1.000000 
-    481    481    1.000000 
-    482    482    1.000000 
-    483    483    1.000000 
-    484    484    1.000000 
-    485    485    1.000000 
-    486    486    1.000000 
-    487    487    1.000000 
-    488    488    1.000000 
-    489    489    1.000000 
-    490    490    1.000000 
-    491    491    1.000000 
-    492    444    -0.001907 
-    492    445    22.310249 
-    492    446    37.713218 
-    492    492    356.249580 
-    492    493    -231.453830 
-    492    494    -391.249300 
-    492    495    -0.001868 
-    492    540    -0.004887 
-    492    1596    -0.001403 
-    492    1597    1.059790 
-    492    1598    1.791468 
-    493    446    -6.109375 
-    493    493    -67.884610 
-    493    494    60.276811 
-    493    1598    -0.290205 
-    494    444    -0.000020 
-    494    445    -3.206808 
-    494    446    -5.420784 
-    494    492    0.000905 
-    494    493    11.464227 
-    494    494    19.379115 
-    494    495    -0.000019 
-    494    496    -3.140288 
-    494    497    -5.308339 
-    494    540    -0.000017 
-    494    541    -2.750727 
-    494    542    -4.649826 
-    494    1596    -0.000015 
-    494    1597    -2.358791 
-    494    1598    -3.987297 
-    495    447    -0.002132 
-    495    448    32.643080 
-    495    449    55.179862 
-    495    492    -0.120564 
-    495    493    9.409640 
-    495    494    15.906044 
-    495    495    402.409670 
-    495    496    -278.459320 
-    495    497    -470.707630 
-    495    498    -0.002094 
-    495    543    -0.001852 
-    495    1599    -0.001258 
-    495    1600    1.515665 
-    495    1601    2.562080 
-    496    449    -8.938871 
-    496    494    -2.576667 
-    496    496    -76.645502 
-    496    497    72.743432 
-    496    1601    -0.415036 
-    497    447    -0.000022 
-    497    448    -3.543110 
-    497    449    -5.989273 
-    497    492    -0.000019 
-    497    493    -3.140288 
-    497    494    -5.308339 
-    497    495    0.001037 
-    497    496    15.340356 
-    497    497    25.931334 
-    497    498    -0.000022 
-    497    499    -3.480093 
-    497    500    -5.882749 
-    497    543    -0.000019 
-    497    544    -3.078045 
-    497    545    -5.203128 
-    497    1599    -0.000013 
-    497    1600    -2.090224 
-    497    1601    -3.533314 
-    498    450    -0.146500 
-    498    451    47.247510 
-    498    452    79.867150 
-    498    495    -0.298212 
-    498    496    21.802822 
-    498    497    36.855490 
-    498    498    437.055990 
-    498    499    -326.928450 
-    498    500    -552.639430 
-    498    501    -0.002374 
-    498    546    -0.002104 
-    498    1602    -0.001187 
-    498    1603    2.784652 
-    498    1604    4.707173 
-    499    452    -12.938001 
-    499    497    -5.970284 
-    499    499    -83.216692 
-    499    500    85.709818 
-    499    1604    -0.762515 
-    500    450    -0.000024 
-    500    451    -3.870643 
-    500    452    -6.542931 
-    500    495    -0.000022 
-    500    496    -3.480093 
-    500    497    -5.882749 
-    500    498    0.001126 
-    500    499    16.556385 
-    500    500    27.986897 
-    500    501    -0.000025 
-    500    502    -3.853724 
-    500    503    -6.514330 
-    500    546    -0.000022 
-    500    547    -3.415351 
-    500    548    -5.773305 
-    500    1602    -0.000012 
-    500    1603    -1.927240 
-    500    1604    -3.257804 
-    501    453    -0.323361 
-    501    454    69.551885 
-    501    455    117.570510 
-    501    498    -0.416408 
-    501    499    35.863226 
-    501    500    60.623151 
-    501    501    494.934260 
-    501    502    -399.201730 
-    501    503    -674.810610 
-    501    504    -0.002761 
-    501    549    -0.002446 
-    501    1605    -0.001082 
-    501    1606    5.196654 
-    501    1607    8.784423 
-    502    455    -19.045476 
-    502    500    -9.820310 
-    502    502    -94.176106 
-    502    503    104.971530 
-    502    1607    -1.422962 
-    503    453    -0.000027 
-    503    454    -4.267851 
-    503    455    -7.214375 
-    503    498    -0.000025 
-    503    499    -3.853724 
-    503    500    -6.514330 
-    503    501    0.001273 
-    503    502    18.002224 
-    503    503    30.430955 
-    503    504    -0.000029 
-    503    505    -4.333073 
-    503    506    -7.324626 
-    503    549    -0.000026 
-    503    550    -3.838932 
-    503    551    -6.489330 
-    503    1605    -0.000011 
-    503    1606    -1.698078 
-    503    1607    -2.870432 
-    504    456    -0.585961 
-    504    457    100.390860 
-    504    458    169.700600 
-    504    501    -0.560884 
-    504    502    47.350486 
-    504    503    80.041261 
-    504    504    552.652800 
-    504    505    -478.995230 
-    504    506    -809.692940 
-    504    507    -0.003098 
-    504    552    -0.002891 
-    504    1608    -0.026456 
-    504    1609    9.027047 
-    504    1610    15.259307 
-    505    458    -27.489782 
-    505    503    -12.965548 
-    505    505    -105.138580 
-    505    506    126.283570 
-    505    1610    -2.471763 
-    506    456    -0.000030 
-    506    457    -4.644802 
-    506    458    -7.851568 
-    506    501    -0.000029 
-    506    502    -4.333073 
-    506    503    -7.324626 
-    506    504    0.001422 
-    506    505    19.561832 
-    506    506    33.067302 
-    506    507    -0.000032 
-    506    508    -4.679025 
-    506    509    -7.909418 
-    506    552    -0.000030 
-    506    553    -4.367382 
-    506    554    -7.382617 
-    506    1608    -0.000010 
-    506    1609    -1.525749 
-    506    1610    -2.579124 
-    507    459    -0.859684 
-    507    460    125.415760 
-    507    461    212.002800 
-    507    504    -0.438609 
-    507    505    37.782580 
-    507    506    63.867626 
-    507    507    576.103930 
-    507    508    -540.566210 
-    507    509    -913.773110 
-    507    510    -0.248034 
-    507    511    28.689754 
-    507    512    48.497120 
-    507    555    -0.003235 
-    507    1611    -0.067715 
-    507    1612    13.074018 
-    507    1613    22.100320 
-    508    461    -34.342032 
-    508    506    -10.345390 
-    508    508    -109.529350 
-    508    509    142.911690 
-    508    512    -7.855611 
-    508    1613    -3.579853 
-    509    459    -0.000031 
-    509    460    -4.748494 
-    509    461    -8.026854 
-    509    504    -0.000032 
-    509    505    -4.679025 
-    509    506    -7.909418 
-    509    507    0.001484 
-    509    508    20.434084 
-    509    509    34.541762 
-    509    510    -0.000033 
-    509    511    -4.776600 
-    509    512    -8.074358 
-    509    555    -0.000034 
-    509    556    -4.756352 
-    509    557    -8.040138 
-    509    1611    -0.000010 
-    509    1612    -1.461315 
-    509    1613    -2.470208 
-    510    462    -0.712202 
-    510    463    106.312150 
-    510    464    179.709950 
-    510    507    -0.003185 
-    510    510    575.508870 
-    510    511    -494.093410 
-    510    512    -835.214800 
-    510    513    -0.412417 
-    510    514    42.569293 
-    510    515    71.959131 
-    510    558    -0.003169 
-    510    1614    -0.031451 
-    510    1615    9.523716 
-    510    1616    16.098875 
-    511    464    -29.111112 
-    511    511    -109.513980 
-    511    512    130.227040 
-    511    515    -11.656244 
-    511    1616    -2.607751 
-    512    462    -0.000031 
-    512    463    -4.745694 
-    512    464    -8.022116 
-    512    507    -0.000033 
-    512    508    -4.776600 
-    512    509    -8.074358 
-    512    510    0.001483 
-    512    511    20.528275 
-    512    512    34.700975 
-    512    513    -0.000032 
-    512    514    -4.775995 
-    512    515    -8.073342 
-    512    558    -0.000033 
-    512    559    -4.752496 
-    512    560    -8.033613 
-    512    1614    -0.000010 
-    512    1615    -1.465199 
-    512    1616    -2.476771 
-    513    465    -0.569316 
-    513    466    85.410030 
-    513    467    144.377110 
-    513    510    -0.003088 
-    513    513    575.190690 
-    513    514    -462.341610 
-    513    515    -781.542260 
-    513    516    -0.432905 
-    513    517    35.396470 
-    513    518    59.834150 
-    513    561    -0.003071 
-    513    1617    -0.000949 
-    513    1618    5.839888 
-    513    1619    9.871747 
-    514    467    -23.387800 
-    514    514    -109.495420 
-    514    515    121.581330 
-    514    518    -9.692364 
-    514    1619    -1.599082 
-    515    465    -0.000030 
-    515    466    -4.746594 
-    515    467    -8.023642 
-    515    510    -0.000032 
-    515    511    -4.775995 
-    515    512    -8.073342 
-    515    513    0.001480 
-    515    514    20.527064 
-    515    515    34.698943 
-    515    516    -0.000031 
-    515    517    -4.774870 
-    515    518    -8.071435 
-    515    561    -0.000032 
-    515    562    -4.749453 
-    515    563    -8.028476 
-    515    1617    -0.000010 
-    515    1618    -1.467869 
-    515    1619    -2.481286 
-    516    468    -0.448327 
-    516    469    73.511831 
-    516    470    124.264330 
-    516    513    -0.003007 
-    516    516    575.031490 
-    516    517    -434.504680 
-    516    518    -734.486180 
-    516    519    -0.320382 
-    516    520    21.665194 
-    516    521    36.622843 
-    516    564    -0.002991 
-    516    1620    -0.000925 
-    516    1621    3.618782 
-    516    1622    6.117184 
-    517    470    -20.129948 
-    517    517    -109.488270 
-    517    518    113.979230 
-    517    521    -5.932490 
-    517    1622    -0.990911 
-    518    468    -0.000029 
-    518    469    -4.746523 
-    518    470    -8.023518 
-    518    513    -0.000031 
-    518    514    -4.774870 
-    518    515    -8.071435 
-    518    516    0.001476 
-    518    517    20.429436 
-    518    518    34.533900 
-    518    519    -0.000030 
-    518    520    -4.676981 
-    518    521    -7.905968 
-    518    564    -0.000031 
-    518    565    -4.750618 
-    518    566    -8.030439 
-    518    1620    -0.000010 
-    518    1621    -1.468165 
-    518    1622    -2.481784 
-    519    471    -0.474622 
-    519    472    72.197736 
-    519    473    122.043050 
-    519    516    -0.002896 
-    519    519    551.862820 
-    519    520    -397.097000 
-    519    521    -671.252780 
-    519    567    -0.002853 
-    519    1623    -0.000947 
-    519    1624    2.694064 
-    519    1625    4.554046 
-    520    473    -19.770349 
-    520    520    -96.452757 
-    520    521    118.568970 
-    520    1625    -0.737707 
-    521    471    -0.000027 
-    521    472    -4.510282 
-    521    473    -7.624180 
-    521    516    -0.000030 
-    521    517    -4.676981 
-    521    518    -7.905968 
-    521    519    0.001387 
-    521    520    15.336972 
-    521    521    25.925617 
-    521    567    -0.000030 
-    521    568    -4.608696 
-    521    569    -7.790540 
-    521    1623    -0.000010 
-    521    1624    -1.529225 
-    521    1625    -2.585002 
-    522    522    1.000000 
-    523    523    1.000000 
-    524    524    1.000000 
-    525    525    1.000000 
-    526    526    1.000000 
-    527    527    1.000000 
-    528    528    1.000000 
-    529    529    1.000000 
-    530    530    1.000000 
-    531    531    1.000000 
-    532    532    1.000000 
-    533    533    1.000000 
-    534    534    1.000000 
-    535    535    1.000000 
-    536    536    1.000000 
-    537    537    1.000000 
-    538    538    1.000000 
-    539    539    1.000000 
-    540    492    -0.001676 
-    540    493    17.558430 
-    540    494    29.680750 
-    540    540    310.311670 
-    540    541    -199.818900 
-    540    542    -337.773660 
-    540    543    -0.001654 
-    540    588    -0.001478 
-    540    1644    -0.001644 
-    540    1645    1.028863 
-    540    1646    1.739189 
-    541    494    -4.808072 
-    541    541    -59.147403 
-    541    542    51.959485 
-    541    1646    -0.281732 
-    542    492    -0.000017 
-    542    493    -2.750727 
-    542    494    -4.649826 
-    542    540    0.000793 
-    542    541    10.598055 
-    542    542    17.914941 
-    542    543    -0.000017 
-    542    544    -2.715436 
-    542    545    -4.590171 
-    542    588    -0.000015 
-    542    589    -2.425963 
-    542    590    -4.100845 
-    542    1644    -0.000017 
-    542    1645    -2.699288 
-    542    1646    -4.562874 
-    543    495    -0.058779 
-    543    496    25.787942 
-    543    497    43.591937 
-    543    540    -0.157654 
-    543    541    13.552430 
-    543    542    22.909013 
-    543    543    344.968990 
-    543    544    -242.550890 
-    543    545    -410.008020 
-    543    546    -0.001889 
-    543    591    -0.001683 
-    543    1647    -0.001509 
-    543    1648    1.811281 
-    543    1649    3.061789 
-    544    497    -7.061532 
-    544    542    -3.711043 
-    544    544    -65.723061 
-    544    545    63.344299 
-    544    1649    -0.495976 
-    545    495    -0.000019 
-    545    496    -3.078045 
-    545    497    -5.203128 
-    545    540    -0.000017 
-    545    541    -2.715436 
-    545    542    -4.590171 
-    545    543    0.000896 
-    545    544    13.987573 
-    545    545    23.644591 
-    545    546    -0.000020 
-    545    547    -3.043823 
-    545    548    -5.145278 
-    545    591    -0.000018 
-    545    592    -2.711463 
-    545    593    -4.583457 
-    545    1647    -0.000016 
-    545    1648    -2.431426 
-    545    1649    -4.110083 
-    546    498    -0.153820 
-    546    499    40.410594 
-    546    500    68.310016 
-    546    543    -0.339727 
-    546    544    29.580329 
-    546    545    50.002588 
-    546    546    391.257370 
-    546    547    -302.268870 
-    546    548    -510.954950 
-    546    549    -0.002203 
-    546    594    -0.001954 
-    546    1650    -0.001382 
-    546    1651    4.066569 
-    546    1652    6.874122 
-    547    500    -11.065501 
-    547    545    -8.099846 
-    547    547    -74.494601 
-    547    548    79.264038 
-    547    1652    -1.113509 
-    548    498    -0.000022 
-    548    499    -3.415351 
-    548    500    -5.773305 
-    548    543    -0.000020 
-    548    544    -3.043823 
-    548    545    -5.145278 
-    548    546    0.001013 
-    548    547    15.085272 
-    548    548    25.500128 
-    548    549    -0.000023 
-    548    550    -3.427032 
-    548    551    -5.793050 
-    548    594    -0.000020 
-    548    595    -3.040504 
-    548    596    -5.139664 
-    548    1650    -0.000014 
-    548    1651    -2.150194 
-    548    1652    -3.634685 
-    549    501    -0.496300 
-    549    502    68.230276 
-    549    503    115.336460 
-    549    546    -0.658889 
-    549    547    52.248365 
-    549    548    88.320577 
-    549    549    437.480580 
-    549    550    -385.403360 
-    549    551    -651.485830 
-    549    552    -0.002640 
-    549    597    -0.002385 
-    549    1653    -0.033804 
-    549    1654    9.723325 
-    549    1655    16.436308 
-    550    503    -18.682869 
-    550    548    -14.306604 
-    550    550    -83.267654 
-    550    551    101.589140 
-    550    1655    -2.662369 
-    551    501    -0.000026 
-    551    502    -3.838932 
-    551    503    -6.489330 
-    551    546    -0.000023 
-    551    547    -3.427032 
-    551    548    -5.793050 
-    551    549    0.001136 
-    551    550    16.619424 
-    551    551    28.093470 
-    551    552    -0.000028 
-    551    553    -3.895894 
-    551    554    -6.585619 
-    551    597    -0.000025 
-    551    598    -3.520970 
-    551    599    -5.951847 
-    551    1653    -0.000013 
-    551    1654    -1.927240 
-    551    1655    -3.257807 
-    552    504    -0.938093 
-    552    505    124.629870 
-    552    506    210.674180 
-    552    549    -0.837358 
-    552    550    84.500754 
-    552    551    142.840070 
-    552    552    507.531190 
-    552    553    -525.361380 
-    552    554    -888.070320 
-    552    555    -0.003250 
-    552    600    -0.002941 
-    552    1656    -0.147248 
-    552    1657    20.895887 
-    552    1658    35.322382 
-    553    506    -34.125373 
-    553    551    -23.137098 
-    553    553    -96.452559 
-    553    554    139.189230 
-    553    1658    -5.721368 
-    554    504    -0.000030 
-    554    505    -4.367382 
-    554    506    -7.382617 
-    554    549    -0.000028 
-    554    550    -3.895894 
-    554    551    -6.585619 
-    554    552    0.001317 
-    554    553    18.456140 
-    554    554    31.198243 
-    554    555    -0.000034 
-    554    556    -4.472219 
-    554    557    -7.559835 
-    554    600    -0.000031 
-    554    601    -4.047197 
-    554    602    -6.841377 
-    554    1656    -0.000012 
-    554    1657    -1.662597 
-    554    1658    -2.810452 
-    555    507    -1.865817 
-    555    508    210.807250 
-    555    509    356.348580 
-    555    552    -1.212934 
-    555    553    106.698780 
-    555    554    180.363510 
-    555    555    578.495670 
-    555    556    -794.504070 
-    555    557    -1343.029600 
-    555    558    -1.107990 
-    555    559    104.125460 
-    555    560    176.013540 
-    555    603    -0.003643 
-    555    1659    -0.311618 
-    555    1660    37.096615 
-    555    1661    62.708117 
-    556    509    -57.720843 
-    556    554    -29.213649 
-    556    556    -109.636470 
-    556    557    212.154200 
-    556    560    -28.508945 
-    556    1661    -10.156920 
-    557    507    -0.000034 
-    557    508    -4.756352 
-    557    509    -8.040138 
-    557    552    -0.000034 
-    557    553    -4.472219 
-    557    554    -7.559835 
-    557    555    0.001497 
-    557    556    20.151920 
-    557    557    34.064795 
-    557    558    -0.000036 
-    557    559    -4.778585 
-    557    560    -8.077714 
-    557    603    -0.000038 
-    557    604    -4.667354 
-    557    605    -7.889694 
-    557    1659    -0.000011 
-    557    1660    -1.465065 
-    557    1661    -2.476546 
-    558    510    -1.009273 
-    558    511    135.622740 
-    558    512    229.256500 
-    558    555    -0.003495 
-    558    558    576.448190 
-    558    559    -579.757610 
-    558    560    -980.021550 
-    558    561    -0.925034 
-    558    562    88.420532 
-    558    563    149.466060 
-    558    606    -0.003484 
-    558    1662    -0.138558 
-    558    1663    20.050906 
-    558    1664    33.894031 
-    559    512    -37.135191 
-    559    559    -109.600890 
-    559    560    153.457880 
-    559    563    -24.210075 
-    559    1664    -5.489996 
-    560    510    -0.000033 
-    560    511    -4.752496 
-    560    512    -8.033613 
-    560    555    -0.000036 
-    560    556    -4.778585 
-    560    557    -8.077714 
-    560    558    0.001495 
-    560    559    20.548189 
-    560    560    34.734637 
-    560    561    -0.000034 
-    560    562    -4.777680 
-    560    563    -8.076190 
-    560    606    -0.000036 
-    560    607    -4.764557 
-    560    608    -8.054001 
-    560    1662    -0.000011 
-    560    1663    -1.462541 
-    560    1664    -2.472278 
-    561    513    -0.499113 
-    561    514    89.964943 
-    561    515    152.076740 
-    561    558    -0.003294 
-    561    561    575.588620 
-    561    562    -491.699180 
-    561    563    -831.168280 
-    561    564    -0.644451 
-    561    565    56.210454 
-    561    566    95.018084 
-    561    609    -0.003284 
-    561    1665    -0.034525 
-    561    1666    9.810796 
-    561    1667    16.584170 
-    562    515    -24.634033 
-    562    562    -109.569110 
-    562    563    129.432720 
-    562    566    -15.391186 
-    562    1667    -2.686297 
-    563    513    -0.000032 
-    563    514    -4.749453 
-    563    515    -8.028476 
-    563    558    -0.000034 
-    563    559    -4.777680 
-    563    560    -8.076190 
-    563    561    0.001488 
-    563    562    20.541572 
-    563    563    34.723467 
-    563    564    -0.000033 
-    563    565    -4.776347 
-    563    566    -8.073932 
-    563    609    -0.000034 
-    563    610    -4.764002 
-    563    611    -8.053068 
-    563    1665    -0.000010 
-    563    1666    -1.461775 
-    563    1667    -2.470984 
-    564    516    -0.288863 
-    564    517    69.290058 
-    564    518    117.127830 
-    564    561    -0.003165 
-    564    564    575.169750 
-    564    565    -440.688990 
-    564    566    -744.940170 
-    564    567    -0.408672 
-    564    568    30.525309 
-    564    569    51.599982 
-    564    612    -0.003158 
-    564    1668    -0.000968 
-    564    1669    5.218038 
-    564    1670    8.820564 
-    565    518    -18.973202 
-    565    565    -109.553980 
-    565    566    115.507080 
-    565    569    -8.358371 
-    565    1670    -1.428781 
-    566    516    -0.000031 
-    566    517    -4.750618 
-    566    518    -8.030439 
-    566    561    -0.000033 
-    566    562    -4.776347 
-    566    563    -8.073932 
-    566    564    0.001483 
-    566    565    20.495125 
-    566    566    34.644941 
-    566    567    -0.000032 
-    566    568    -4.727536 
-    566    569    -7.991427 
-    566    612    -0.000033 
-    566    613    -4.767156 
-    566    614    -8.058394 
-    566    1668    -0.000010 
-    566    1669    -1.461161 
-    566    1670    -2.469944 
-    567    519    -0.197502 
-    567    520    58.806825 
-    567    521    99.407057 
-    567    564    -0.003063 
-    567    567    563.321930 
-    567    568    -391.261510 
-    567    569    -661.388460 
-    567    615    -0.003057 
-    567    1671    -0.000966 
-    567    1672    3.531435 
-    567    1673    5.969537 
-    568    521    -16.102830 
-    568    568    -107.360000 
-    568    569    102.085340 
-    568    1673    -0.966975 
-    569    519    -0.000030 
-    569    520    -4.608696 
-    569    521    -7.790540 
-    569    564    -0.000032 
-    569    565    -4.727536 
-    569    566    -7.991427 
-    569    567    0.001421 
-    569    568    15.556430 
-    569    569    26.296589 
-    569    615    -0.000032 
-    569    616    -4.718009 
-    569    617    -7.975322 
-    569    1671    -0.000010 
-    569    1672    -1.490128 
-    569    1673    -2.518913 
-    570    570    1.000000 
-    571    571    1.000000 
-    572    572    1.000000 
-    573    573    1.000000 
-    574    574    1.000000 
-    575    575    1.000000 
-    576    576    1.000000 
-    577    577    1.000000 
-    578    578    1.000000 
-    579    579    1.000000 
-    580    580    1.000000 
-    581    581    1.000000 
-    582    582    1.000000 
-    583    583    1.000000 
-    584    584    1.000000 
-    585    585    229.786090 
-    585    586    -137.744190 
-    585    587    -232.842780 
-    585    588    -0.001273 
-    585    633    -0.067886 
-    585    634    2.887011 
-    585    635    4.880203 
-    585    1689    -0.002224 
-    585    1690    0.538526 
-    585    1691    0.910325 
-    586    586    -43.816660 
-    586    587    35.667017 
-    586    635    -0.790548 
-    586    1691    -0.147464 
-    587    585    0.000586 
-    587    586    7.642448 
-    587    587    12.918794 
-    587    588    -0.000013 
-    587    589    -2.084537 
-    587    590    -3.523702 
-    587    633    -0.000012 
-    587    634    -1.910469 
-    587    635    -3.229456 
-    587    1689    -0.000023 
-    587    1690    -3.642522 
-    587    1691    -6.157318 
-    588    540    -0.009114 
-    588    541    8.196763 
-    588    542    13.855800 
-    588    585    -0.035185 
-    588    586    5.845952 
-    588    587    9.881998 
-    588    588    275.853340 
-    588    589    -176.079070 
-    588    590    -297.643870 
-    588    591    -0.001498 
-    588    636    -0.063957 
-    588    1692    -0.001874 
-    588    1693    0.874103 
-    588    1694    1.477584 
-    589    542    -2.244508 
-    589    587    -1.600787 
-    589    589    -52.585057 
-    589    590    45.741228 
-    589    1694    -0.239353 
-    590    540    -0.000015 
-    590    541    -2.425963 
-    590    542    -4.100845 
-    590    585    -0.000013 
-    590    586    -2.084537 
-    590    587    -3.523702 
-    590    588    0.000722 
-    590    589    12.065069 
-    590    590    20.394783 
-    590    591    -0.000016 
-    590    592    -2.428302 
-    590    593    -4.104799 
-    590    636    -0.000013 
-    590    637    -2.083366 
-    590    638    -3.521720 
-    590    1692    -0.000020 
-    590    1693    -3.036994 
-    590    1694    -5.133732 
-    591    543    -0.044240 
-    591    544    15.120848 
-    591    545    25.560282 
-    591    588    -0.171453 
-    591    589    17.455773 
-    591    590    29.507220 
-    591    591    310.471090 
-    591    592    -215.746540 
-    591    593    -364.697950 
-    591    594    -0.001720 
-    591    639    -0.066318 
-    591    1695    -0.001711 
-    591    1696    1.886361 
-    591    1697    3.188705 
-    592    545    -4.140472 
-    592    590    -4.779852 
-    592    592    -59.166043 
-    592    593    56.273456 
-    592    1697    -0.516528 
-    593    543    -0.000018 
-    593    544    -2.711463 
-    593    545    -4.583457 
-    593    588    -0.000016 
-    593    589    -2.428302 
-    593    590    -4.104799 
-    593    591    0.000811 
-    593    592    12.989807 
-    593    593    21.957967 
-    593    594    -0.000018 
-    593    595    -2.715978 
-    593    596    -4.591089 
-    593    639    -0.000016 
-    593    640    -2.425874 
-    593    641    -4.100698 
-    593    1695    -0.000018 
-    593    1696    -2.701541 
-    593    1697    -4.566685 
-    594    546    -0.107945 
-    594    547    25.803312 
-    594    548    43.617890 
-    594    591    -0.355167 
-    594    592    34.295519 
-    594    593    57.973145 
-    594    594    345.232090 
-    594    595    -266.749480 
-    594    596    -450.913030 
-    594    597    -0.002070 
-    594    642    -0.068363 
-    594    1698    -0.001609 
-    594    1699    5.216788 
-    594    1700    8.818452 
-    595    548    -7.065442 
-    595    593    -9.390862 
-    595    595    -65.753455 
-    595    596    69.892338 
-    595    1700    -1.428435 
-    596    546    -0.000020 
-    596    547    -3.040504 
-    596    548    -5.139664 
-    596    591    -0.000018 
-    596    592    -2.715978 
-    596    593    -4.591089 
-    596    594    0.000902 
-    596    595    14.087562 
-    596    596    23.813602 
-    596    597    -0.000022 
-    596    598    -3.127775 
-    596    599    -5.287188 
-    596    642    -0.000019 
-    596    643    -2.764945 
-    596    644    -4.673860 
-    596    1698    -0.000017 
-    596    1699    -2.430966 
-    596    1700    -4.109303 
-    597    549    -0.250918 
-    597    550    50.320737 
-    597    551    85.062173 
-    597    594    -0.713002 
-    597    595    65.837486 
-    597    596    111.291620 
-    597    597    414.870000 
-    597    598    -380.853550 
-    597    599    -643.794840 
-    597    600    -0.002601 
-    597    645    -0.222839 
-    597    646    8.474940 
-    597    647    14.326038 
-    597    1701    -0.082985 
-    597    1702    14.531280 
-    597    1703    24.563675 
-    598    551    -13.778289 
-    598    596    -18.027209 
-    598    598    -78.927659 
-    598    599    100.442290 
-    598    647    -2.320455 
-    598    1703    -3.978735 
-    599    549    -0.000025 
-    599    550    -3.520970 
-    599    551    -5.951847 
-    599    594    -0.000022 
-    599    595    -3.127775 
-    599    596    -5.287188 
-    599    597    0.001080 
-    599    598    15.582531 
-    599    599    26.340706 
-    599    600    -0.000027 
-    599    601    -3.664737 
-    599    602    -6.194871 
-    599    645    -0.000024 
-    599    646    -3.233439 
-    599    647    -5.465805 
-    599    1701    -0.000015 
-    599    1702    -2.026727 
-    599    1703    -3.425978 
-    600    552    -1.063721 
-    600    553    128.569370 
-    600    554    217.333520 
-    600    597    -1.489375 
-    600    598    143.520640 
-    600    599    242.607280 
-    600    600    474.731490 
-    600    601    -658.028090 
-    600    602    -1112.330000 
-    600    603    -0.003377 
-    600    648    -0.844516 
-    600    649    67.680332 
-    600    650    114.406750 
-    600    1704    -0.371759 
-    600    1705    42.979748 
-    600    1706    72.652915 
-    601    554    -35.201717 
-    601    599    -39.295989 
-    601    601    -89.945654 
-    601    602    175.644280 
-    601    650    -18.529986 
-    601    1706    -11.767451 
-    602    552    -0.000031 
-    602    553    -4.047197 
-    602    554    -6.841377 
-    602    597    -0.000027 
-    602    598    -3.664737 
-    602    599    -6.194871 
-    602    600    0.001238 
-    602    601    17.444635 
-    602    602    29.488395 
-    602    603    -0.000035 
-    602    604    -4.229546 
-    602    605    -7.149619 
-    602    648    -0.000029 
-    602    649    -3.712836 
-    602    650    -6.276174 
-    602    1704    -0.000014 
-    602    1705    -1.780177 
-    602    1706    -3.009209 
-    603    555    -4.374731 
-    603    556    464.899400 
-    603    557    785.865920 
-    603    600    -3.999187 
-    603    601    387.814680 
-    603    602    655.561520 
-    603    603    569.079730 
-    603    604    -2104.427400 
-    603    605    -3557.323700 
-    603    606    -4.313237 
-    603    607    425.140240 
-    603    608    718.656680 
-    603    651    -4.005310 
-    603    652    376.374790 
-    603    653    636.223930 
-    603    1707    -1.268047 
-    603    1708    131.315640 
-    603    1709    221.975960 
-    604    557    -127.280260 
-    604    602    -106.174040 
-    604    604    -105.456400 
-    604    605    570.353420 
-    604    608    -116.392560 
-    604    653    -103.040430 
-    604    1709    -35.950514 
-    605    555    -0.000038 
-    605    556    -4.667354 
-    605    557    -7.889694 
-    605    600    -0.000035 
-    605    601    -4.229546 
-    605    602    -7.149619 
-    605    603    0.001579 
-    605    604    31.506343 
-    605    605    53.258311 
-    605    606    -0.000039 
-    605    607    -4.684476 
-    605    608    -7.918634 
-    605    651    -0.000038 
-    605    652    -4.434885 
-    605    653    -7.496729 
-    605    1707    -0.000013 
-    605    1708    -1.520875 
-    605    1709    -2.570887 
-    606    558    -1.183074 
-    606    559    145.975050 
-    606    560    246.756050 
-    606    603    -0.003752 
-    606    606    578.381960 
-    606    607    -754.675520 
-    606    608    -1275.702800 
-    606    609    -1.639264 
-    606    610    161.062080 
-    606    611    272.259340 
-    606    654    -0.971628 
-    606    655    74.628540 
-    606    656    126.152010 
-    606    1710    -0.313619 
-    606    1711    37.277203 
-    606    1712    63.013350 
-    607    560    -39.967119 
-    607    607    -109.684780 
-    607    608    201.126190 
-    607    611    -44.098175 
-    607    656    -20.432140 
-    607    1712    -10.206158 
-    608    558    -0.000036 
-    608    559    -4.764557 
-    608    560    -8.054001 
-    608    603    -0.000039 
-    608    604    -4.684476 
-    608    605    -7.918634 
-    608    606    0.001505 
-    608    607    20.472160 
-    608    608    34.606123 
-    608    609    -0.000036 
-    608    610    -4.779495 
-    608    611    -8.079258 
-    608    654    -0.000038 
-    608    655    -4.771501 
-    608    656    -8.065741 
-    608    1710    -0.000011 
-    608    1711    -1.459765 
-    608    1712    -2.467585 
-    609    561    -0.471061 
-    609    562    73.575168 
-    609    563    124.371460 
-    609    606    -0.003462 
-    609    609    575.776600 
-    609    610    -498.270230 
-    609    611    -842.275980 
-    609    612    -0.813377 
-    609    613    75.140097 
-    609    614    127.016720 
-    609    657    -0.159873 
-    609    1713    -0.075291 
-    609    1714    13.815885 
-    609    1715    23.354372 
-    610    563    -20.145325 
-    610    610    -109.623250 
-    610    611    131.093260 
-    610    614    -20.573825 
-    610    1715    -3.782819 
-    611    561    -0.000034 
-    611    562    -4.764002 
-    611    563    -8.053068 
-    611    606    -0.000036 
-    611    607    -4.779495 
-    611    608    -8.079258 
-    611    609    0.001496 
-    611    610    20.564645 
-    611    611    34.762469 
-    611    612    -0.000034 
-    611    613    -4.778098 
-    611    614    -8.076891 
-    611    657    -0.000036 
-    611    658    -4.770393 
-    611    659    -8.063872 
-    611    1713    -0.000011 
-    611    1714    -1.460318 
-    611    1715    -2.468522 
-    612    564    -0.302914 
-    612    565    54.752635 
-    612    566    92.553790 
-    612    609    -0.003291 
-    612    612    575.196000 
-    612    613    -444.684610 
-    612    614    -751.694290 
-    612    615    -0.557331 
-    612    616    47.641436 
-    612    617    80.533082 
-    612    660    -0.003286 
-    612    1716    -0.001237 
-    612    1717    6.523691 
-    612    1718    11.027642 
-    613    566    -14.992013 
-    613    613    -109.598750 
-    613    614    116.487500 
-    613    617    -13.044827 
-    613    1718    -1.786246 
-    614    564    -0.000033 
-    614    565    -4.767156 
-    614    566    -8.058394 
-    614    609    -0.000034 
-    614    610    -4.778098 
-    614    611    -8.076891 
-    614    612    0.001489 
-    614    613    20.565455 
-    614    614    34.763825 
-    614    615    -0.000033 
-    614    616    -4.777470 
-    614    617    -8.075835 
-    614    660    -0.000034 
-    614    661    -4.771325 
-    614    662    -8.065441 
-    614    1716    -0.000010 
-    614    1717    -1.459079 
-    614    1718    -2.466425 
-    615    567    -0.157166 
-    615    568    37.600113 
-    615    569    63.559232 
-    615    612    -0.003181 
-    615    615    574.753180 
-    615    616    -377.321360 
-    615    617    -637.824030 
-    615    1719    -0.000972 
-    615    1720    4.089250 
-    615    1721    6.912468 
-    616    569    -10.295578 
-    616    616    -109.586940 
-    616    617    98.074874 
-    616    1721    -1.119695 
-    617    567    -0.000032 
-    617    568    -4.718009 
-    617    569    -7.975322 
-    617    612    -0.000033 
-    617    613    -4.777470 
-    617    614    -8.075835 
-    617    615    0.001419 
-    617    616    10.968069 
-    617    617    18.540423 
-    617    1719    -0.000010 
-    617    1720    -1.460268 
-    617    1721    -2.468436 
-    618    618    1.000000 
-    619    619    1.000000 
-    620    620    1.000000 
-    621    621    1.000000 
-    622    622    1.000000 
-    623    623    1.000000 
-    624    624    1.000000 
-    625    625    1.000000 
-    626    626    1.000000 
-    627    627    1.000000 
-    628    628    1.000000 
-    629    629    1.000000 
-    630    630    1.000000 
-    631    631    1.000000 
-    632    632    1.000000 
-    633    585    -0.001160 
-    633    633    229.858440 
-    633    634    -143.349450 
-    633    635    -242.317910 
-    633    636    -0.001160 
-    633    681    -0.115957 
-    633    682    8.538711 
-    633    683    14.433837 
-    633    1737    -0.002212 
-    633    1738    0.478337 
-    633    1739    0.808582 
-    634    634    -43.819004 
-    634    635    37.196344 
-    634    683    -2.338173 
-    634    1739    -0.130983 
-    635    585    -0.000012 
-    635    586    -1.910469 
-    635    587    -3.229456 
-    635    633    0.000597 
-    635    634    9.380071 
-    635    635    15.856072 
-    635    636    -0.000012 
-    635    637    -1.910369 
-    635    638    -3.229288 
-    635    681    -0.000012 
-    635    682    -1.910672 
-    635    683    -3.229801 
-    635    1737    -0.000023 
-    635    1738    -3.643639 
-    635    1739    -6.159207 
-    636    588    -0.001286 
-    636    589    0.352535 
-    636    590    0.595925 
-    636    633    -0.041488 
-    636    634    8.567365 
-    636    635    14.482274 
-    636    636    229.957800 
-    636    637    -149.446240 
-    636    638    -252.623760 
-    636    639    -0.001287 
-    636    684    -0.103998 
-    636    685    5.520810 
-    636    686    9.332371 
-    636    1740    -0.002249 
-    636    1741    0.712025 
-    636    1742    1.203607 
-    637    590    -0.096533 
-    637    635    -2.345995 
-    637    637    -43.826616 
-    637    638    38.846729 
-    637    686    -1.511753 
-    637    1742    -0.194971 
-    638    588    -0.000013 
-    638    589    -2.083366 
-    638    590    -3.521720 
-    638    633    -0.000012 
-    638    634    -1.910369 
-    638    635    -3.229288 
-    638    636    0.000612 
-    638    637    11.637723 
-    638    638    19.672395 
-    638    639    -0.000013 
-    638    640    -2.084829 
-    638    641    -3.524192 
-    638    684    -0.000012 
-    638    685    -1.910476 
-    638    686    -3.229466 
-    638    1740    -0.000023 
-    638    1741    -3.643757 
-    638    1742    -6.159404 
-    639    591    -0.001544 
-    639    592    3.407793 
-    639    593    5.760534 
-    639    636    -0.154229 
-    639    637    17.561895 
-    639    638    29.686608 
-    639    639    276.052010 
-    639    640    -188.741840 
-    639    641    -319.049200 
-    639    642    -0.001572 
-    639    687    -0.109591 
-    639    688    5.137241 
-    639    689    8.683993 
-    639    1743    -0.001932 
-    639    1744    1.472318 
-    639    1745    2.488807 
-    640    593    -0.933128 
-    640    638    -4.808908 
-    640    640    -52.601941 
-    640    641    49.165927 
-    640    689    -1.406692 
-    640    1745    -0.403152 
-    641    591    -0.000016 
-    641    592    -2.425874 
-    641    593    -4.100698 
-    641    636    -0.000013 
-    641    637    -2.084829 
-    641    638    -3.524192 
-    641    639    0.000725 
-    641    640    12.107669 
-    641    641    20.466800 
-    641    642    -0.000016 
-    641    643    -2.470191 
-    641    644    -4.175611 
-    641    687    -0.000014 
-    641    688    -2.084177 
-    641    689    -3.523093 
-    641    1743    -0.000020 
-    641    1744    -3.036682 
-    641    1745    -5.133207 
-    642    594    -0.001837 
-    642    595    3.105706 
-    642    596    5.249882 
-    642    639    -0.329517 
-    642    640    30.495022 
-    642    641    51.548785 
-    642    642    322.147570 
-    642    643    -234.004020 
-    642    644    -395.560150 
-    642    645    -0.001897 
-    642    690    -0.180090 
-    642    691    8.611515 
-    642    692    14.556894 
-    642    1746    -0.001731 
-    642    1747    3.764654 
-    642    1748    6.363767 
-    643    596    -0.850385 
-    643    641    -8.350176 
-    643    643    -61.379794 
-    643    644    61.111547 
-    643    692    -2.357963 
-    643    1748    -1.030815 
-    644    594    -0.000019 
-    644    595    -2.764945 
-    644    596    -4.673860 
-    644    639    -0.000016 
-    644    640    -2.470191 
-    644    641    -4.175611 
-    644    642    0.000843 
-    644    643    13.221950 
-    644    644    22.350372 
-    644    645    -0.000020 
-    644    646    -2.854706 
-    644    647    -4.825592 
-    644    690    -0.000017 
-    644    691    -2.520604 
-    644    692    -4.260825 
-    644    1746    -0.000018 
-    644    1747    -2.604598 
-    644    1748    -4.402811 
-    645    597    -0.002276 
-    645    642    -0.524652 
-    645    643    49.398648 
-    645    644    83.503422 
-    645    645    368.474700 
-    645    646    -296.696620 
-    645    647    -501.535950 
-    645    648    -0.002309 
-    645    693    -0.350030 
-    645    694    22.515897 
-    645    695    38.060872 
-    645    1749    -0.035777 
-    645    1750    9.867783 
-    645    1751    16.680500 
-    646    644    -13.525992 
-    646    646    -70.166544 
-    646    647    77.805696 
-    646    695    -6.165006 
-    646    1751    -2.701845 
-    647    597    -0.000024 
-    647    598    -3.233439 
-    647    599    -5.465805 
-    647    642    -0.000020 
-    647    643    -2.854706 
-    647    644    -4.825592 
-    647    645    0.000965 
-    647    646    14.612125 
-    647    647    24.700333 
-    647    648    -0.000024 
-    647    649    -3.280569 
-    647    650    -5.545473 
-    647    693    -0.000021 
-    647    694    -2.955463 
-    647    695    -4.995914 
-    647    1749    -0.000017 
-    647    1750    -2.280049 
-    647    1751    -3.854194 
-    648    600    -0.002812 
-    648    645    -0.813184 
-    648    646    77.270965 
-    648    647    130.618840 
-    648    648    426.710000 
-    648    649    -408.814650 
-    648    650    -691.059760 
-    648    651    -0.002940 
-    648    696    -0.750957 
-    648    697    60.063016 
-    648    698    101.530450 
-    648    1752    -0.169267 
-    648    1753    23.028724 
-    648    1754    38.927728 
-    649    647    -21.156940 
-    649    649    -81.159344 
-    649    650    107.888680 
-    649    698    -16.445125 
-    649    1754    -6.305133 
-    650    600    -0.000029 
-    650    601    -3.712836 
-    650    602    -6.276174 
-    650    645    -0.000024 
-    650    646    -3.280569 
-    650    647    -5.545473 
-    650    648    0.001120 
-    650    649    16.340623 
-    650    650    27.622172 
-    650    651    -0.000031 
-    650    652    -3.882456 
-    650    653    -6.562898 
-    650    696    -0.000026 
-    650    697    -3.483214 
-    650    698    -5.888021 
-    650    1752    -0.000015 
-    650    1753    -1.972400 
-    650    1754    -3.334143 
-    651    603    -0.003610 
-    651    648    -1.047585 
-    651    649    97.265790 
-    651    650    164.417970 
-    651    651    520.639200 
-    651    652    -672.918820 
-    651    653    -1137.501900 
-    651    654    -1.001697 
-    651    655    97.489376 
-    651    656    164.795950 
-    651    699    -1.570580 
-    651    700    135.694950 
-    651    701    229.378740 
-    651    1755    -0.343756 
-    651    1756    40.238110 
-    651    1757    68.018501 
-    652    650    -26.630093 
-    652    652    -98.742650 
-    652    653    179.224030 
-    652    656    -26.691085 
-    652    701    -37.152092 
-    652    1757    -11.016657 
-    653    603    -0.000038 
-    653    604    -4.434885 
-    653    605    -7.496729 
-    653    648    -0.000031 
-    653    649    -3.882456 
-    653    650    -6.562898 
-    653    651    0.001360 
-    653    652    18.725128 
-    653    653    31.652947 
-    653    654    -0.000036 
-    653    655    -4.528771 
-    653    656    -7.655431 
-    653    699    -0.000033 
-    653    700    -4.245594 
-    653    701    -7.176753 
-    653    1755    -0.000013 
-    653    1756    -1.622280 
-    653    1757    -2.742302 
-    654    606    -0.003652 
-    654    651    -0.003466 
-    654    654    576.049940 
-    654    655    -501.668340 
-    654    656    -848.019690 
-    654    657    -0.826285 
-    654    658    78.714003 
-    654    659    133.058150 
-    654    702    -0.873933 
-    654    703    67.319482 
-    654    704    113.796800 
-    654    1758    -0.136747 
-    654    1759    19.861190 
-    654    1760    33.573335 
-    655    655    -109.675590 
-    655    656    131.888100 
-    655    659    -21.551510 
-    655    704    -18.431643 
-    655    1760    -5.437859 
-    656    606    -0.000038 
-    656    607    -4.771501 
-    656    608    -8.065741 
-    656    651    -0.000036 
-    656    652    -4.528771 
-    656    653    -7.655431 
-    656    654    0.001502 
-    656    655    20.323078 
-    656    656    34.354116 
-    656    657    -0.000036 
-    656    658    -4.779817 
-    656    659    -8.079803 
-    656    702    -0.000037 
-    656    703    -4.771426 
-    656    704    -8.065614 
-    656    1758    -0.000011 
-    656    1759    -1.459200 
-    656    1760    -2.466631 
-    657    609    -0.003473 
-    657    610    7.581968 
-    657    611    12.816558 
-    657    654    -0.003479 
-    657    657    575.094130 
-    657    658    -408.305770 
-    657    659    -690.200070 
-    657    660    -0.438161 
-    657    661    42.804789 
-    657    662    72.357161 
-    657    705    -0.286397 
-    657    706    11.770645 
-    657    707    19.897097 
-    657    1761    -0.040113 
-    657    1762    10.345366 
-    657    1763    17.487807 
-    658    611    -2.075913 
-    658    658    -109.647650 
-    658    659    106.400890 
-    658    662    -11.719986 
-    658    707    -3.222764 
-    658    1763    -2.832558 
-    659    609    -0.000036 
-    659    610    -4.770393 
-    659    611    -8.063872 
-    659    654    -0.000036 
-    659    655    -4.779817 
-    659    656    -8.079803 
-    659    657    0.001499 
-    659    658    20.571294 
-    659    659    34.773710 
-    659    660    -0.000035 
-    659    661    -4.779443 
-    659    662    -8.079164 
-    659    705    -0.000036 
-    659    706    -4.770802 
-    659    707    -8.064564 
-    659    1761    -0.000011 
-    659    1762    -1.458490 
-    659    1763    -2.465431 
-    660    612    -0.221669 
-    660    613    39.882149 
-    660    614    67.416734 
-    660    657    -0.003383 
-    660    660    574.564930 
-    660    661    -382.063040 
-    660    662    -645.838900 
-    660    708    -0.092242 
-    660    1764    -0.001033 
-    660    1765    6.392436 
-    660    1766    10.805765 
-    661    614    -10.919981 
-    661    661    -109.631210 
-    661    662    99.258914 
-    661    1766    -1.750272 
-    662    612    -0.000034 
-    662    613    -4.771325 
-    662    614    -8.065441 
-    662    657    -0.000035 
-    662    658    -4.779443 
-    662    659    -8.079164 
-    662    660    0.001460 
-    662    661    15.793919 
-    662    662    26.698019 
-    662    708    -0.000035 
-    662    709    -4.771853 
-    662    710    -8.066334 
-    662    1764    -0.000011 
-    662    1765    -1.458956 
-    662    1766    -2.466217 
-    663    663    1.000000 
-    664    664    1.000000 
-    665    665    1.000000 
-    666    666    1.000000 
-    667    667    1.000000 
-    668    668    1.000000 
-    669    669    1.000000 
-    670    670    1.000000 
-    671    671    1.000000 
-    672    672    1.000000 
-    673    673    1.000000 
-    674    674    1.000000 
-    675    675    1.000000 
-    676    676    1.000000 
-    677    677    1.000000 
-    678    678    241.281140 
-    678    679    -147.772670 
-    678    680    -249.794760 
-    678    681    -0.001146 
-    678    726    -0.050525 
-    678    727    6.265440 
-    678    728    10.591093 
-    678    1782    -0.002034 
-    678    1783    0.446232 
-    678    1784    0.754311 
-    679    679    -46.000009 
-    679    680    38.330186 
-    679    728    -1.715709 
-    679    1784    -0.122194 
-    680    678    0.000611 
-    680    679    7.570991 
-    680    680    12.797995 
-    680    681    -0.000012 
-    680    682    -1.955535 
-    680    683    -3.305634 
-    680    726    -0.000013 
-    680    727    -2.140058 
-    680    728    -3.617552 
-    680    1782    -0.000021 
-    680    1783    -3.470235 
-    680    1784    -5.866081 
-    681    633    -0.001140 
-    681    678    -0.036745 
-    681    679    9.268640 
-    681    680    15.667699 
-    681    681    229.920780 
-    681    682    -152.015400 
-    681    683    -256.966840 
-    681    684    -0.001140 
-    681    729    -0.109742 
-    681    730    7.976835 
-    681    731    13.484043 
-    681    1785    -0.002176 
-    681    1786    0.450344 
-    681    1787    0.761261 
-    682    680    -2.538079 
-    682    682    -43.818310 
-    682    683    39.571585 
-    682    731    -2.184334 
-    682    1787    -0.123319 
-    683    633    -0.000012 
-    683    634    -1.910672 
-    683    635    -3.229801 
-    683    678    -0.000012 
-    683    679    -1.955535 
-    683    680    -3.305634 
-    683    681    0.000608 
-    683    682    11.383840 
-    683    683    19.243241 
-    683    684    -0.000012 
-    683    685    -1.909831 
-    683    686    -3.228378 
-    683    729    -0.000012 
-    683    730    -1.957108 
-    683    731    -3.308296 
-    683    1785    -0.000023 
-    683    1786    -3.645772 
-    683    1787    -6.162813 
-    684    636    -0.001166 
-    684    681    -0.053412 
-    684    682    11.580450 
-    684    683    19.575592 
-    684    684    229.988000 
-    684    685    -154.312800 
-    684    686    -260.850190 
-    684    687    -0.001167 
-    684    732    -0.109230 
-    684    733    7.876621 
-    684    734    13.314632 
-    684    1788    -0.002224 
-    684    1789    0.538798 
-    684    1790    0.910784 
-    685    683    -3.171098 
-    685    685    -43.828808 
-    685    686    40.174310 
-    685    734    -2.156862 
-    685    1790    -0.147538 
-    686    636    -0.000012 
-    686    637    -1.910476 
-    686    638    -3.229466 
-    686    681    -0.000012 
-    686    682    -1.909831 
-    686    683    -3.228378 
-    686    684    0.000609 
-    686    685    11.289908 
-    686    686    19.084451 
-    686    687    -0.000012 
-    686    688    -1.911181 
-    686    689    -3.230658 
-    686    732    -0.000012 
-    686    733    -1.910894 
-    686    734    -3.230172 
-    686    1788    -0.000023 
-    686    1789    -3.642601 
-    686    1790    -6.157449 
-    687    639    -0.001314 
-    687    684    -0.144933 
-    687    685    16.910541 
-    687    686    28.585561 
-    687    687    230.077580 
-    687    688    -161.204350 
-    687    689    -272.499840 
-    687    690    -0.001339 
-    687    735    -0.130032 
-    687    736    9.000899 
-    687    737    15.215119 
-    687    1791    -0.002298 
-    687    1792    0.989684 
-    687    1793    1.672961 
-    688    686    -4.630583 
-    688    688    -43.837882 
-    688    689    42.037981 
-    688    737    -2.464676 
-    688    1793    -0.270998 
-    689    639    -0.000014 
-    689    640    -2.084177 
-    689    641    -3.523093 
-    689    684    -0.000012 
-    689    685    -1.911181 
-    689    686    -3.230658 
-    689    687    0.000614 
-    689    688    11.678161 
-    689    689    19.740762 
-    689    690    -0.000014 
-    689    691    -2.123962 
-    689    692    -3.590345 
-    689    735    -0.000012 
-    689    736    -1.911101 
-    689    737    -3.230525 
-    689    1791    -0.000024 
-    689    1792    -3.642810 
-    689    1793    -6.157807 
-    690    642    -0.001656 
-    690    687    -0.243281 
-    690    688    24.198730 
-    690    689    40.905532 
-    690    690    287.652480 
-    690    691    -207.586150 
-    690    692    -350.903370 
-    690    693    -0.001712 
-    690    738    -0.238141 
-    690    739    13.212071 
-    690    740    22.333672 
-    690    1794    -0.001918 
-    690    1795    2.254502 
-    690    1796    3.811007 
-    691    689    -6.626157 
-    691    691    -54.808161 
-    691    692    54.184103 
-    691    740    -3.617716 
-    691    1796    -0.617318 
-    692    642    -0.000017 
-    692    643    -2.520604 
-    692    644    -4.260825 
-    692    687    -0.000014 
-    692    688    -2.123962 
-    692    689    -3.590345 
-    692    690    0.000756 
-    692    691    12.411776 
-    692    692    20.980854 
-    692    693    -0.000018 
-    692    694    -2.606907 
-    692    695    -4.406711 
-    692    738    -0.000015 
-    692    739    -2.234516 
-    692    740    -3.777224 
-    692    1794    -0.000020 
-    692    1795    -2.919621 
-    692    1796    -4.935323 
-    693    645    -0.002029 
-    693    690    -0.356629 
-    693    691    34.155028 
-    693    692    57.735619 
-    693    693    345.307210 
-    693    694    -263.854300 
-    693    695    -446.019300 
-    693    696    -0.002147 
-    693    741    -0.347721 
-    693    742    23.081303 
-    693    743    39.016635 
-    693    1797    -0.001670 
-    693    1798    5.136960 
-    693    1799    8.683518 
-    694    692    -9.352165 
-    694    694    -65.783412 
-    694    695    69.023803 
-    694    743    -6.319942 
-    694    1799    -1.406542 
-    695    645    -0.000021 
-    695    646    -2.955463 
-    695    647    -4.995914 
-    695    690    -0.000018 
-    695    691    -2.606907 
-    695    692    -4.406711 
-    695    693    0.000904 
-    695    694    13.891176 
-    695    695    23.481640 
-    695    696    -0.000022 
-    695    697    -3.128501 
-    695    698    -5.288418 
-    695    741    -0.000019 
-    695    742    -2.760721 
-    695    743    -4.666722 
-    695    1797    -0.000017 
-    695    1798    -2.432178 
-    695    1799    -4.111354 
-    696    648    -0.002501 
-    696    693    -0.471510 
-    696    694    43.574756 
-    696    695    73.658766 
-    696    696    414.536050 
-    696    697    -336.478410 
-    696    698    -568.782710 
-    696    699    -0.002719 
-    696    744    -0.554882 
-    696    745    41.144406 
-    696    746    69.550444 
-    696    1800    -0.036361 
-    696    1801    9.942274 
-    696    1802    16.806408 
-    697    695    -11.931066 
-    697    697    -78.955712 
-    697    698    88.222558 
-    697    746    -11.265575 
-    697    1802    -2.722204 
-    698    648    -0.000026 
-    698    649    -3.483214 
-    698    650    -5.888021 
-    698    693    -0.000022 
-    698    694    -3.128501 
-    698    695    -5.288418 
-    698    696    0.001084 
-    698    697    15.770532 
-    698    698    26.658491 
-    698    699    -0.000028 
-    698    700    -3.785753 
-    698    701    -6.399432 
-    698    744    -0.000024 
-    698    745    -3.337165 
-    698    746    -5.641138 
-    698    1800    -0.000015 
-    698    1801    -2.027004 
-    698    1802    -3.426445 
-    699    651    -0.003148 
-    699    696    -0.437077 
-    699    697    39.122168 
-    699    698    66.132068 
-    699    699    506.762300 
-    699    700    -425.700790 
-    699    701    -719.604610 
-    699    702    -0.153784 
-    699    703    16.436817 
-    699    704    27.784783 
-    699    747    -0.805052 
-    699    748    60.712756 
-    699    749    102.628840 
-    699    1803    -0.076292 
-    699    1804    13.900146 
-    699    1805    23.496806 
-    700    698    -10.711566 
-    700    700    -96.514271 
-    700    701    111.748660 
-    700    704    -4.500295 
-    700    749    -16.623199 
-    700    1805    -3.805813 
-    701    651    -0.000033 
-    701    652    -4.245594 
-    701    653    -7.176753 
-    701    696    -0.000028 
-    701    697    -3.785753 
-    701    698    -6.399432 
-    701    699    0.001321 
-    701    700    18.276708 
-    701    701    30.894940 
-    701    702    -0.000034 
-    701    703    -4.474950 
-    701    704    -7.564452 
-    701    747    -0.000030 
-    701    748    -4.100435 
-    701    749    -6.931376 
-    701    1803    -0.000013 
-    701    1804    -1.659097 
-    701    1805    -2.804538 
-    702    654    -0.003499 
-    702    699    -0.003282 
-    702    702    575.114380 
-    702    703    -413.320390 
-    702    704    -698.676470 
-    702    705    -0.237722 
-    702    706    23.067276 
-    702    707    38.992923 
-    702    750    -0.666918 
-    702    751    44.649890 
-    702    752    75.476138 
-    702    1806    -0.033714 
-    702    1807    9.721189 
-    702    1808    16.432681 
-    703    703    -109.666930 
-    703    704    107.725600 
-    703    707    -6.315745 
-    703    752    -12.225121 
-    703    1808    -2.661640 
-    704    654    -0.000037 
-    704    655    -4.771426 
-    704    656    -8.065614 
-    704    699    -0.000034 
-    704    700    -4.474950 
-    704    701    -7.564452 
-    704    702    0.001497 
-    704    703    20.268791 
-    704    704    34.262351 
-    704    705    -0.000036 
-    704    706    -4.779850 
-    704    707    -8.079859 
-    704    750    -0.000035 
-    704    751    -4.770422 
-    704    752    -8.063917 
-    704    1806    -0.000011 
-    704    1807    -1.459785 
-    704    1808    -2.467619 
-    705    657    -0.003446 
-    705    702    -0.003452 
-    705    705    574.617660 
-    705    706    -364.415190 
-    705    707    -616.007430 
-    705    708    -0.243677 
-    705    709    21.354776 
-    705    710    36.098097 
-    705    1809    -0.008868 
-    705    1810    7.278620 
-    705    1811    12.303779 
-    706    706    -109.658170 
-    706    707    94.358729 
-    706    710    -5.846929 
-    706    1811    -1.992885 
-    707    657    -0.000036 
-    707    658    -4.770802 
-    707    659    -8.064564 
-    707    702    -0.000036 
-    707    703    -4.779850 
-    707    704    -8.079859 
-    707    705    0.001462 
-    707    706    15.803139 
-    707    707    26.713622 
-    707    708    -0.000036 
-    707    709    -4.779661 
-    707    710    -8.079536 
-    707    1809    -0.000011 
-    707    1810    -1.460471 
-    707    1811    -2.468781 
-    708    660    -0.003398 
-    708    661    9.642500 
-    708    662    16.299671 
-    708    705    -0.003403 
-    708    708    574.442700 
-    708    709    -350.941020 
-    708    710    -593.230410 
-    708    1812    -0.001039 
-    708    1813    5.519655 
-    708    1814    9.330418 
-    709    662    -2.640125 
-    709    709    -109.652150 
-    709    710    90.685708 
-    709    1814    -1.511292 
-    710    660    -0.000035 
-    710    661    -4.771853 
-    710    662    -8.066334 
-    710    705    -0.000036 
-    710    706    -4.779661 
-    710    707    -8.079536 
-    710    708    0.001426 
-    710    709    11.023000 
-    710    710    18.633268 
-    710    1812    -0.000011 
-    710    1813    -1.459135 
-    710    1814    -2.466520 
-    711    711    1.000000 
-    712    712    1.000000 
-    713    713    1.000000 
-    714    714    1.000000 
-    715    715    1.000000 
-    716    716    1.000000 
-    717    717    1.000000 
-    718    718    1.000000 
-    719    719    1.000000 
-    720    720    1.000000 
-    721    721    1.000000 
-    722    722    1.000000 
-    723    723    1.000000 
-    724    724    1.000000 
-    725    725    1.000000 
-    726    678    -0.001240 
-    726    726    275.754510 
-    726    727    -172.234060 
-    726    728    -291.144300 
-    726    729    -0.031715 
-    726    774    -0.080360 
-    726    775    10.544002 
-    726    776    17.823566 
-    726    1830    -0.001763 
-    726    1831    0.473616 
-    726    1832    0.800600 
-    727    727    -52.567430 
-    727    728    44.733734 
-    727    776    -2.887367 
-    727    1832    -0.129694 
-    728    678    -0.000013 
-    728    679    -2.140058 
-    728    680    -3.617552 
-    728    726    0.000704 
-    728    727    9.750895 
-    728    728    16.482902 
-    728    729    -0.000013 
-    728    730    -2.136405 
-    728    731    -3.611378 
-    728    774    -0.000014 
-    728    775    -2.426681 
-    728    776    -4.102058 
-    728    1830    -0.000018 
-    728    1831    -3.041851 
-    728    1832    -5.141942 
-    729    681    -0.001150 
-    729    726    -0.001255 
-    729    727    7.672635 
-    729    728    12.969815 
-    729    729    241.429160 
-    729    730    -158.240060 
-    729    731    -267.489000 
-    729    732    -0.001149 
-    729    777    -0.047710 
-    729    778    9.078726 
-    729    779    15.346678 
-    729    1833    -0.002041 
-    729    1834    0.461160 
-    729    1835    0.779544 
-    730    728    -2.101052 
-    730    730    -46.008688 
-    730    731    41.175183 
-    730    779    -2.486095 
-    730    1835    -0.126282 
-    731    681    -0.000012 
-    731    682    -1.957108 
-    731    683    -3.308296 
-    731    726    -0.000013 
-    731    727    -2.136405 
-    731    728    -3.611378 
-    731    729    0.000636 
-    731    730    11.667628 
-    731    731    19.722955 
-    731    732    -0.000012 
-    731    733    -1.956265 
-    731    734    -3.306871 
-    731    777    -0.000013 
-    731    778    -2.139502 
-    731    779    -3.616614 
-    731    1833    -0.000021 
-    731    1834    -3.473180 
-    731    1835    -5.871063 
-    732    684    -0.001149 
-    732    729    -0.052575 
-    732    730    11.771221 
-    732    731    19.898073 
-    732    732    229.973640 
-    732    733    -155.537230 
-    732    734    -262.919960 
-    732    735    -0.001148 
-    732    780    -0.064501 
-    732    781    8.996239 
-    732    782    15.207231 
-    732    1836    -0.002190 
-    732    1837    0.472142 
-    732    1838    0.798108 
-    733    731    -3.223369 
-    733    733    -43.828367 
-    733    734    40.511193 
-    733    782    -2.463474 
-    733    1838    -0.129287 
-    734    684    -0.000012 
-    734    685    -1.910894 
-    734    686    -3.230172 
-    734    729    -0.000012 
-    734    730    -1.956265 
-    734    731    -3.306871 
-    734    732    0.000608 
-    734    733    11.336191 
-    734    734    19.162684 
-    734    735    -0.000012 
-    734    736    -1.910188 
-    734    737    -3.228979 
-    734    780    -0.000012 
-    734    781    -1.910669 
-    734    782    -3.229792 
-    734    1836    -0.000023 
-    734    1837    -3.643249 
-    734    1838    -6.158543 
-    735    687    -0.001185 
-    735    732    -0.124082 
-    735    733    15.778360 
-    735    734    26.671722 
-    735    735    230.010510 
-    735    736    -161.266520 
-    735    737    -272.604930 
-    735    738    -0.001241 
-    735    783    -0.117258 
-    735    784    10.506499 
-    735    785    17.760186 
-    735    1839    -0.002260 
-    735    1840    0.644809 
-    735    1841    1.089985 
-    736    734    -4.320601 
-    736    736    -43.837874 
-    736    737    42.055632 
-    736    785    -2.876985 
-    736    1841    -0.176565 
-    737    687    -0.000012 
-    737    688    -1.911101 
-    737    689    -3.230525 
-    737    732    -0.000012 
-    737    733    -1.910188 
-    737    734    -3.228979 
-    737    735    0.000611 
-    737    736    11.383674 
-    737    737    19.242960 
-    737    738    -0.000013 
-    737    739    -2.001715 
-    737    740    -3.383699 
-    737    783    -0.000012 
-    737    784    -1.911252 
-    737    785    -3.230781 
-    737    1839    -0.000024 
-    737    1840    -3.644487 
-    737    1841    -6.160641 
-    738    690    -0.001437 
-    738    735    -0.152142 
-    738    736    20.397004 
-    738    737    34.479096 
-    738    738    253.188090 
-    738    739    -183.339790 
-    738    740    -309.917420 
-    738    741    -0.001514 
-    738    786    -0.184360 
-    738    787    13.942145 
-    738    788    23.567784 
-    738    1842    -0.002130 
-    738    1843    1.277292 
-    738    1844    2.159133 
-    739    737    -5.585221 
-    739    739    -48.235318 
-    739    740    47.854592 
-    739    788    -3.817684 
-    739    1844    -0.349747 
-    740    690    -0.000015 
-    740    691    -2.234516 
-    740    692    -3.777224 
-    740    735    -0.000013 
-    740    736    -2.001715 
-    740    737    -3.383699 
-    740    738    0.000671 
-    740    739    11.962878 
-    740    740    20.222038 
-    740    741    -0.000016 
-    740    742    -2.355314 
-    740    743    -3.981421 
-    740    786    -0.000013 
-    740    787    -2.053528 
-    740    788    -3.471281 
-    740    1842    -0.000022 
-    740    1843    -3.312375 
-    740    1844    -5.599235 
-    741    693    -0.001842 
-    741    738    -0.276554 
-    741    739    25.091868 
-    741    740    42.415271 
-    741    741    322.217860 
-    741    742    -236.896820 
-    741    743    -400.450390 
-    741    744    -0.001959 
-    741    789    -0.382956 
-    741    790    21.121733 
-    741    791    35.704177 
-    741    1845    -0.001744 
-    741    1846    2.577387 
-    741    1847    4.356815 
-    742    740    -6.870631 
-    742    742    -61.399215 
-    742    743    61.855639 
-    742    791    -5.783500 
-    742    1847    -0.705722 
-    743    693    -0.000019 
-    743    694    -2.760721 
-    743    695    -4.666722 
-    743    738    -0.000016 
-    743    739    -2.355314 
-    743    740    -3.981421 
-    743    741    0.000844 
-    743    742    13.243956 
-    743    743    22.387581 
-    743    744    -0.000020 
-    743    745    -2.935694 
-    743    746    -4.962497 
-    743    789    -0.000017 
-    743    790    -2.572364 
-    743    791    -4.348324 
-    743    1845    -0.000018 
-    743    1846    -2.612950 
-    743    1847    -4.416930 
-    744    696    -0.002303 
-    744    741    -0.324054 
-    744    742    29.237469 
-    744    743    49.423017 
-    744    744    391.270080 
-    744    745    -293.484850 
-    744    746    -496.106360 
-    744    747    -0.002479 
-    744    792    -0.463020 
-    744    793    31.337242 
-    744    794    52.972422 
-    744    1848    -0.001482 
-    744    1849    4.525563 
-    744    1850    7.650006 
-    745    743    -8.005575 
-    745    745    -74.565981 
-    745    746    76.678890 
-    745    794    -8.580509 
-    745    1850    -1.239131 
-    746    696    -0.000024 
-    746    697    -3.337165 
-    746    698    -5.641138 
-    746    741    -0.000020 
-    746    742    -2.935694 
-    746    743    -4.962497 
-    746    744    0.001022 
-    746    745    15.258691 
-    746    746    25.793274 
-    746    747    -0.000026 
-    746    748    -3.592570 
-    746    749    -6.072875 
-    746    792    -0.000023 
-    746    793    -3.238013 
-    746    794    -5.473533 
-    746    1848    -0.000015 
-    746    1849    -2.146850 
-    746    1850    -3.629033 
-    747    699    -0.002903 
-    747    744    -0.306708 
-    747    745    28.224648 
-    747    746    47.710903 
-    747    747    483.146660 
-    747    748    -345.288360 
-    747    749    -583.675450 
-    747    750    -0.003089 
-    747    795    -0.473559 
-    747    796    28.960471 
-    747    797    48.954780 
-    747    1851    -0.001230 
-    747    1852    5.945763 
-    747    1853    10.050718 
-    748    746    -7.728071 
-    748    748    -92.121217 
-    748    749    89.969790 
-    748    797    -7.929536 
-    748    1853    -1.627967 
-    749    699    -0.000030 
-    749    700    -4.100435 
-    749    701    -6.931376 
-    749    744    -0.000026 
-    749    745    -3.592570 
-    749    746    -6.072875 
-    749    747    0.001259 
-    749    748    17.763898 
-    749    749    30.028088 
-    749    750    -0.000032 
-    749    751    -4.364394 
-    749    752    -7.377571 
-    749    795    -0.000029 
-    749    796    -3.958055 
-    749    797    -6.690696 
-    749    1851    -0.000013 
-    749    1852    -1.738063 
-    749    1853    -2.938022 
-    750    702    -0.003397 
-    750    747    -0.103067 
-    750    748    7.741826 
-    750    749    13.086782 
-    750    750    574.765230 
-    750    751    -374.212130 
-    750    752    -632.567880 
-    750    798    -0.472096 
-    750    799    25.400288 
-    750    800    42.936615 
-    750    1854    -0.001040 
-    750    1855    5.193192 
-    750    1856    8.778565 
-    751    749    -2.119718 
-    751    751    -109.669190 
-    751    752    97.015417 
-    751    800    -6.954676 
-    751    1856    -1.421906 
-    752    702    -0.000035 
-    752    703    -4.770422 
-    752    704    -8.063917 
-    752    747    -0.000032 
-    752    748    -4.364394 
-    752    749    -7.377571 
-    752    750    0.001457 
-    752    751    15.329533 
-    752    752    25.913031 
-    752    798    -0.000034 
-    752    799    -4.722417 
-    752    800    -7.982768 
-    752    1854    -0.000011 
-    752    1855    -1.459942 
-    752    1856    -2.467883 
-    753    753    1.000000 
-    754    754    1.000000 
-    755    755    1.000000 
-    756    756    1.000000 
-    757    757    1.000000 
-    758    758    1.000000 
-    759    759    1.000000 
-    760    760    1.000000 
-    761    761    1.000000 
-    762    762    1.000000 
-    763    763    1.000000 
-    764    764    1.000000 
-    765    765    1.000000 
-    766    766    1.000000 
-    767    767    1.000000 
-    768    768    1.000000 
-    769    769    1.000000 
-    770    770    1.000000 
-    771    771    344.650670 
-    771    772    -206.066050 
-    771    773    -348.334050 
-    771    774    -0.016348 
-    771    819    -0.001612 
-    771    820    4.004289 
-    771    821    6.768850 
-    771    1875    -0.001368 
-    771    1876    0.552387 
-    771    1877    0.933755 
-    772    772    -65.688502 
-    772    773    53.442501 
-    772    821    -1.096545 
-    772    1877    -0.151267 
-    773    771    0.000853 
-    773    772    8.013457 
-    773    773    13.545947 
-    773    774    -0.000016 
-    773    775    -2.711276 
-    773    776    -4.583141 
-    773    819    -0.000017 
-    773    820    -2.864286 
-    773    821    -4.841788 
-    773    1875    -0.000014 
-    773    1876    -2.430530 
-    773    1877    -4.108568 
-    774    726    -0.001382 
-    774    771    -0.001545 
-    774    772    8.167058 
-    774    773    13.805595 
-    774    774    310.270710 
-    774    775    -197.588600 
-    774    776    -334.003530 
-    774    777    -0.009735 
-    774    822    -0.001546 
-    774    823    7.543646 
-    774    824    12.751770 
-    774    1878    -0.001540 
-    774    1879    0.523123 
-    774    1880    0.884287 
-    775    773    -2.236481 
-    775    775    -59.131265 
-    775    776    51.391010 
-    775    824    -2.065763 
-    775    1880    -0.143252 
-    776    726    -0.000014 
-    776    727    -2.426681 
-    776    728    -4.102058 
-    776    771    -0.000016 
-    776    772    -2.711276 
-    776    773    -4.583141 
-    776    774    0.000803 
-    776    775    12.985718 
-    776    776    21.951045 
-    776    777    -0.000015 
-    776    778    -2.424028 
-    776    779    -4.097574 
-    776    822    -0.000016 
-    776    823    -2.713573 
-    776    824    -4.587021 
-    776    1878    -0.000016 
-    776    1879    -2.703527 
-    776    1880    -4.570038 
-    777    729    -0.001237 
-    777    774    -0.001401 
-    777    775    8.951589 
-    777    776    15.131755 
-    777    777    275.786220 
-    777    778    -178.923550 
-    777    779    -302.452360 
-    777    780    -0.001203 
-    777    825    -0.038542 
-    777    826    8.304412 
-    777    827    14.037779 
-    777    1881    -0.001757 
-    777    1882    0.479744 
-    777    1883    0.810959 
-    778    776    -2.451301 
-    778    778    -52.573077 
-    778    779    46.551825 
-    778    827    -2.274078 
-    778    1883    -0.131372 
-    779    729    -0.000013 
-    779    730    -2.139502 
-    779    731    -3.616614 
-    779    774    -0.000015 
-    779    775    -2.424028 
-    779    776    -4.097574 
-    779    777    0.000717 
-    779    778    12.029808 
-    779    779    20.335185 
-    779    780    -0.000013 
-    779    781    -2.081491 
-    779    782    -3.518552 
-    779    825    -0.000014 
-    779    826    -2.338679 
-    779    827    -3.953303 
-    779    1881    -0.000018 
-    779    1882    -3.040207 
-    779    1883    -5.139166 
-    780    732    -0.001128 
-    780    777    -0.032091 
-    780    778    11.556585 
-    780    779    19.535251 
-    780    780    229.882960 
-    780    781    -155.141310 
-    780    782    -262.250680 
-    780    783    -0.001127 
-    780    828    -0.050981 
-    780    829    8.790171 
-    780    830    14.858896 
-    780    1884    -0.002155 
-    780    1885    0.459230 
-    780    1886    0.776282 
-    781    779    -3.164625 
-    781    781    -43.822323 
-    781    782    40.418167 
-    781    830    -2.407072 
-    781    1886    -0.125753 
-    782    732    -0.000012 
-    782    733    -1.910669 
-    782    734    -3.229792 
-    782    777    -0.000013 
-    782    778    -2.081491 
-    782    779    -3.518552 
-    782    780    0.000608 
-    782    781    11.509553 
-    782    782    19.455737 
-    782    783    -0.000012 
-    782    784    -1.907882 
-    782    785    -3.225081 
-    782    828    -0.000012 
-    782    829    -1.956488 
-    782    830    -3.307245 
-    782    1884    -0.000022 
-    782    1885    -3.648100 
-    782    1886    -6.166745 
-    783    735    -0.001161 
-    783    780    -0.071293 
-    783    781    14.254211 
-    783    782    24.095299 
-    783    783    229.943540 
-    783    784    -159.771020 
-    783    785    -270.076920 
-    783    786    -0.001187 
-    783    831    -0.081700 
-    783    832    10.688462 
-    783    833    18.067775 
-    783    1887    -0.002217 
-    783    1888    0.509420 
-    783    1889    0.861123 
-    784    782    -3.903285 
-    784    784    -43.834704 
-    784    785    41.654598 
-    784    833    -2.926850 
-    784    1889    -0.139494 
-    785    735    -0.000012 
-    785    736    -1.911252 
-    785    737    -3.230781 
-    785    780    -0.000012 
-    785    781    -1.907882 
-    785    782    -3.225081 
-    785    783    0.000609 
-    785    784    11.338339 
-    785    785    19.166326 
-    785    786    -0.000012 
-    785    787    -1.954691 
-    785    788    -3.304209 
-    785    831    -0.000012 
-    785    832    -1.910324 
-    785    833    -3.229212 
-    785    1887    -0.000023 
-    785    1888    -3.649262 
-    785    1889    -6.168712 
-    786    738    -0.001289 
-    786    783    -0.092997 
-    786    784    17.391223 
-    786    785    29.398124 
-    786    786    241.511390 
-    786    787    -172.866650 
-    786    788    -292.213570 
-    786    789    -0.001392 
-    786    834    -0.120154 
-    786    835    13.639587 
-    786    836    23.056342 
-    786    1890    -0.002180 
-    786    1891    0.788453 
-    786    1892    1.332799 
-    787    785    -4.762223 
-    787    787    -46.041311 
-    787    788    45.098157 
-    787    836    -3.734897 
-    787    1892    -0.215897 
-    788    738    -0.000013 
-    788    739    -2.053528 
-    788    740    -3.471281 
-    788    783    -0.000012 
-    788    784    -1.954691 
-    788    785    -3.304209 
-    788    786    0.000640 
-    788    787    11.712269 
-    788    788    19.798408 
-    788    789    -0.000015 
-    788    790    -2.218474 
-    788    791    -3.750105 
-    788    834    -0.000013 
-    788    835    -2.006779 
-    788    836    -3.392256 
-    788    1890    -0.000023 
-    788    1891    -3.473617 
-    788    1892    -5.871797 
-    789    741    -0.001668 
-    789    786    -0.129357 
-    789    787    20.478718 
-    789    788    34.617200 
-    789    789    299.296290 
-    789    790    -216.420270 
-    789    791    -365.836820 
-    789    792    -0.001826 
-    789    837    -0.204339 
-    789    838    19.964062 
-    789    839    33.747250 
-    789    1893    -0.001818 
-    789    1894    1.426502 
-    789    1895    2.411359 
-    790    788    -5.607550 
-    790    790    -57.020556 
-    790    791    56.448122 
-    790    839    -5.466612 
-    790    1895    -0.390602 
-    791    741    -0.000017 
-    791    742    -2.572364 
-    791    743    -4.348324 
-    791    786    -0.000015 
-    791    787    -2.218474 
-    791    788    -3.750105 
-    791    789    0.000785 
-    791    790    12.900552 
-    791    791    21.807090 
-    791    792    -0.000019 
-    791    793    -2.816056 
-    791    794    -4.760261 
-    791    837    -0.000016 
-    791    838    -2.483056 
-    791    839    -4.197358 
-    791    1893    -0.000019 
-    791    1894    -2.804180 
-    791    1895    -4.740185 
-    792    744    -0.002164 
-    792    789    -0.327371 
-    792    790    23.913941 
-    792    791    40.424126 
-    792    792    391.279950 
-    792    793    -291.762790 
-    792    794    -493.195350 
-    792    795    -0.002375 
-    792    840    -0.616488 
-    792    841    37.103314 
-    792    842    62.719392 
-    792    1896    -0.001440 
-    792    1897    2.286026 
-    792    1898    3.864296 
-    793    791    -6.548056 
-    793    793    -74.567079 
-    793    794    76.206877 
-    793    842    -10.159607 
-    793    1898    -0.625943 
-    794    744    -0.000023 
-    794    745    -3.238013 
-    794    746    -5.473533 
-    794    789    -0.000019 
-    794    790    -2.816056 
-    794    791    -4.760261 
-    794    792    0.001017 
-    794    793    15.008424 
-    794    794    25.370222 
-    794    795    -0.000025 
-    794    796    -3.553927 
-    794    797    -6.007552 
-    794    840    -0.000022 
-    794    841    -3.237423 
-    794    842    -5.472535 
-    794    1896    -0.000015 
-    794    1897    -2.154605 
-    794    1898    -3.642142 
-    795    747    -0.002735 
-    795    792    -0.386357 
-    795    793    36.310525 
-    795    794    61.379251 
-    795    795    471.433830 
-    795    796    -315.040320 
-    795    797    -532.544150 
-    795    798    -0.002950 
-    795    1899    -0.001231 
-    795    1900    3.358751 
-    795    1901    5.677632 
-    796    794    -9.942253 
-    796    796    -89.932956 
-    796    797    81.786007 
-    796    1901    -0.919648 
-    797    747    -0.000029 
-    797    748    -3.958055 
-    797    749    -6.690696 
-    797    792    -0.000025 
-    797    793    -3.553927 
-    797    794    -6.007552 
-    797    795    0.001199 
-    797    796    13.571840 
-    797    797    22.941832 
-    797    798    -0.000031 
-    797    799    -4.268328 
-    797    800    -7.215182 
-    797    1899    -0.000013 
-    797    1900    -1.781394 
-    797    1901    -3.011268 
-    798    750    -0.003304 
-    798    795    -0.184732 
-    798    796    15.843805 
-    798    797    26.782368 
-    798    798    563.093880 
-    798    799    -348.358320 
-    798    800    -588.864490 
-    798    1902    -0.001042 
-    798    1903    3.379522 
-    798    1904    5.712742 
-    799    797    -4.338121 
-    799    799    -107.485330 
-    799    800    90.023638 
-    799    1904    -0.925328 
-    800    750    -0.000034 
-    800    751    -4.722417 
-    800    752    -7.982768 
-    800    795    -0.000031 
-    800    796    -4.268328 
-    800    797    -7.215182 
-    800    798    0.001393 
-    800    799    10.492712 
-    800    800    17.736873 
-    800    1902    -0.000011 
-    800    1903    -1.489850 
-    800    1904    -2.518442 
-    801    801    1.000000 
-    802    802    1.000000 
-    803    803    1.000000 
-    804    804    1.000000 
-    805    805    1.000000 
-    806    806    1.000000 
-    807    807    1.000000 
-    808    808    1.000000 
-    809    809    1.000000 
-    810    810    1.000000 
-    811    811    1.000000 
-    812    812    1.000000 
-    813    813    1.000000 
-    814    814    1.000000 
-    815    815    1.000000 
-    816    816    1.000000 
-    817    817    1.000000 
-    818    818    1.000000 
-    819    771    -0.016955 
-    819    819    344.668580 
-    819    820    -206.577340 
-    819    821    -349.198340 
-    819    822    -0.024181 
-    819    867    -0.001603 
-    819    868    4.480920 
-    819    869    7.574547 
-    819    1923    -0.001360 
-    819    1924    0.562159 
-    819    1925    0.950273 
-    820    820    -60.270803 
-    820    821    62.745862 
-    820    869    -1.227071 
-    820    1925    -0.153943 
-    821    771    -0.000017 
-    821    772    -2.864286 
-    821    773    -4.841788 
-    821    819    0.000871 
-    821    820    11.026543 
-    821    821    18.639267 
-    821    822    -0.000017 
-    821    823    -2.861301 
-    821    824    -4.836742 
-    821    867    -0.000017 
-    821    868    -2.864372 
-    821    869    -4.841934 
-    821    1923    -0.000014 
-    821    1924    -2.429223 
-    821    1925    -4.106358 
-    822    774    -0.009494 
-    822    819    -0.001612 
-    822    820    4.664749 
-    822    821    7.885292 
-    822    822    344.659580 
-    822    823    -213.038160 
-    822    824    -360.119500 
-    822    825    -0.059415 
-    822    870    -0.023810 
-    822    871    6.320356 
-    822    872    10.683921 
-    822    1926    -0.001371 
-    822    1927    0.527848 
-    822    1928    0.892274 
-    823    821    -1.277407 
-    823    823    -65.690055 
-    823    824    55.347981 
-    823    872    -1.730785 
-    823    1928    -0.144547 
-    824    774    -0.000016 
-    824    775    -2.713573 
-    824    776    -4.587021 
-    824    819    -0.000017 
-    824    820    -2.861301 
-    824    821    -4.836742 
-    824    822    0.000886 
-    824    823    13.480709 
-    824    824    22.787778 
-    824    825    -0.000015 
-    824    826    -2.600280 
-    824    827    -4.395511 
-    824    870    -0.000017 
-    824    871    -2.864580 
-    824    872    -4.842282 
-    824    1926    -0.000014 
-    824    1927    -2.433610 
-    824    1928    -4.113771 
-    825    777    -0.001333 
-    825    822    -0.001482 
-    825    823    7.597627 
-    825    824    12.843021 
-    825    825    287.300140 
-    825    826    -183.234880 
-    825    827    -309.740230 
-    825    828    -0.001241 
-    825    873    -0.016360 
-    825    874    7.221469 
-    825    875    12.207171 
-    825    1929    -0.001664 
-    825    1930    0.498162 
-    825    1931    0.842094 
-    826    824    -2.080546 
-    826    826    -54.755899 
-    826    827    47.649979 
-    826    875    -1.977539 
-    826    1931    -0.136417 
-    827    777    -0.000014 
-    827    778    -2.338679 
-    827    779    -3.953303 
-    827    822    -0.000015 
-    827    823    -2.600280 
-    827    824    -4.395511 
-    827    825    0.000746 
-    827    826    12.428043 
-    827    827    21.008360 
-    827    828    -0.000013 
-    827    829    -2.176988 
-    827    830    -3.679980 
-    827    873    -0.000014 
-    827    874    -2.386958 
-    827    875    -4.034913 
-    827    1929    -0.000017 
-    827    1930    -2.918994 
-    827    1931    -4.934267 
-    828    780    -0.001135 
-    828    825    -0.012714 
-    828    826    10.036045 
-    828    827    16.964930 
-    828    828    241.330390 
-    828    829    -159.726540 
-    828    830    -270.001590 
-    828    831    -0.001133 
-    828    876    -0.025621 
-    828    877    8.198949 
-    828    878    13.859495 
-    828    1932    -0.002018 
-    828    1933    0.455151 
-    828    1934    0.769387 
-    829    827    -2.748267 
-    829    829    -46.006226 
-    829    830    41.588697 
-    829    878    -2.245195 
-    829    1934    -0.124637 
-    830    780    -0.000012 
-    830    781    -1.956488 
-    830    782    -3.307245 
-    830    825    -0.000013 
-    830    826    -2.176988 
-    830    827    -3.679980 
-    830    828    0.000634 
-    830    829    11.574441 
-    830    830    19.565427 
-    830    831    -0.000012 
-    830    832    -1.953385 
-    830    833    -3.301999 
-    830    876    -0.000012 
-    830    877    -2.004995 
-    830    878    -3.389242 
-    830    1932    -0.000021 
-    830    1933    -3.477420 
-    830    1934    -5.878228 
-    831    783    -0.001136 
-    831    828    -0.040353 
-    831    829    12.440799 
-    831    830    21.029915 
-    831    831    229.882320 
-    831    832    -157.601960 
-    831    833    -266.410360 
-    831    834    -0.001162 
-    831    879    -0.050339 
-    831    880    10.360255 
-    831    881    17.512975 
-    831    1935    -0.002173 
-    831    1936    0.461074 
-    831    1937    0.779399 
-    832    830    -3.406748 
-    832    832    -43.828011 
-    832    833    41.077746 
-    832    881    -2.837012 
-    832    1937    -0.126257 
-    833    783    -0.000012 
-    833    784    -1.910324 
-    833    785    -3.229212 
-    833    828    -0.000012 
-    833    829    -1.953385 
-    833    830    -3.301999 
-    833    831    0.000608 
-    833    832    11.384557 
-    833    833    19.244453 
-    833    834    -0.000012 
-    833    835    -1.953223 
-    833    836    -3.301729 
-    833    879    -0.000012 
-    833    880    -1.909517 
-    833    881    -3.227848 
-    833    1935    -0.000023 
-    833    1936    -3.653182 
-    833    1937    -6.175339 
-    834    786    -0.001229 
-    834    831    -0.059512 
-    834    832    15.030646 
-    834    833    25.407804 
-    834    834    241.407110 
-    834    835    -169.790470 
-    834    836    -287.013620 
-    834    837    -0.001356 
-    834    882    -0.095382 
-    834    883    13.129917 
-    834    884    22.194797 
-    834    1938    -0.002129 
-    834    1939    0.585000 
-    834    1940    0.988883 
-    835    833    -4.115882 
-    835    835    -46.034272 
-    835    836    44.274019 
-    835    884    -3.595391 
-    835    1940    -0.160189 
-    836    786    -0.000013 
-    836    787    -2.006779 
-    836    788    -3.392256 
-    836    831    -0.000012 
-    836    832    -1.953223 
-    836    833    -3.301729 
-    836    834    0.000638 
-    836    835    11.661624 
-    836    836    19.712798 
-    836    837    -0.000014 
-    836    838    -2.215379 
-    836    839    -3.744874 
-    836    882    -0.000012 
-    836    883    -2.003694 
-    836    884    -3.387043 
-    836    1938    -0.000022 
-    836    1939    -3.477370 
-    836    1940    -5.878142 
-    837    789    -0.001565 
-    837    834    -0.079495 
-    837    835    17.694926 
-    837    836    29.911484 
-    837    837    298.827460 
-    837    838    -205.621030 
-    837    839    -347.581780 
-    837    840    -0.001772 
-    837    885    -0.018481 
-    837    886    12.425388 
-    837    887    21.003875 
-    837    1941    -0.001773 
-    837    1942    0.861804 
-    837    1943    1.456794 
-    838    836    -4.845361 
-    838    838    -57.012907 
-    838    839    53.511216 
-    838    887    -3.402391 
-    838    1943    -0.235982 
-    839    789    -0.000016 
-    839    790    -2.483056 
-    839    791    -4.197358 
-    839    834    -0.000014 
-    839    835    -2.215379 
-    839    836    -3.744874 
-    839    837    0.000782 
-    839    838    12.812149 
-    839    839    21.657654 
-    839    840    -0.000018 
-    839    841    -2.812326 
-    839    842    -4.753955 
-    839    885    -0.000016 
-    839    886    -2.481705 
-    839    887    -4.195074 
-    839    1941    -0.000019 
-    839    1942    -2.813264 
-    839    1943    -4.755541 
-    840    792    -0.002077 
-    840    837    -0.022783 
-    840    838    14.261129 
-    840    839    24.107012 
-    840    840    391.051560 
-    840    841    -261.208570 
-    840    842    -441.546650 
-    840    888    -0.026512 
-    840    889    17.605472 
-    840    890    29.760267 
-    840    1944    -0.001379 
-    840    1945    1.097418 
-    840    1946    1.855074 
-    841    839    -3.905020 
-    841    841    -74.574783 
-    841    842    67.824365 
-    841    890    -4.820781 
-    841    1946    -0.300495 
-    842    792    -0.000022 
-    842    793    -3.237423 
-    842    794    -5.472535 
-    842    837    -0.000018 
-    842    838    -2.812326 
-    842    839    -4.753955 
-    842    840    0.000989 
-    842    841    11.401721 
-    842    842    19.273457 
-    842    888    -0.000021 
-    842    889    -3.193950 
-    842    890    -5.399049 
-    842    1944    -0.000014 
-    842    1945    -2.149620 
-    842    1946    -3.633714 
-    843    843    1.000000 
-    844    844    1.000000 
-    845    845    1.000000 
-    846    846    1.000000 
-    847    847    1.000000 
-    848    848    1.000000 
-    849    849    1.000000 
-    850    850    1.000000 
-    851    851    1.000000 
-    852    852    1.000000 
-    853    853    1.000000 
-    854    854    1.000000 
-    855    855    1.000000 
-    856    856    1.000000 
-    857    857    1.000000 
-    858    858    1.000000 
-    859    859    1.000000 
-    860    860    1.000000 
-    861    861    1.000000 
-    862    862    1.000000 
-    863    863    1.000000 
-    864    864    1.000000 
-    865    865    1.000000 
-    866    866    1.000000 
-    867    819    -0.026113 
-    867    867    344.663030 
-    867    868    -205.228460 
-    867    869    -346.918190 
-    867    870    -0.070844 
-    867    915    -0.001594 
-    867    916    3.131511 
-    867    917    5.293507 
-    867    1971    -0.001352 
-    867    1972    0.563222 
-    867    1973    0.952070 
-    868    868    -60.262267 
-    868    869    62.397303 
-    868    917    -0.857546 
-    868    1973    -0.154235 
-    869    819    -0.000017 
-    869    820    -2.864372 
-    869    821    -4.841934 
-    869    867    0.000870 
-    869    868    11.027649 
-    869    869    18.641137 
-    869    870    -0.000017 
-    869    871    -2.861569 
-    869    872    -4.837196 
-    869    915    -0.000017 
-    869    916    -2.864796 
-    869    917    -4.842651 
-    869    1971    -0.000014 
-    869    1972    -2.429554 
-    869    1973    -4.106918 
-    870    822    -0.001600 
-    870    867    -0.001598 
-    870    868    2.827902 
-    870    869    4.780285 
-    870    870    344.753360 
-    870    871    -209.696840 
-    870    872    -354.471290 
-    870    873    -0.055632 
-    870    918    -0.001572 
-    870    919    4.816685 
-    870    920    8.142119 
-    870    1974    -0.001358 
-    870    1975    0.531258 
-    870    1976    0.898038 
-    871    869    -0.774403 
-    871    871    -65.683722 
-    871    872    54.448839 
-    871    920    -1.319020 
-    871    1976    -0.145481 
-    872    822    -0.000017 
-    872    823    -2.864580 
-    872    824    -4.842282 
-    872    867    -0.000017 
-    872    868    -2.861569 
-    872    869    -4.837196 
-    872    870    0.000886 
-    872    871    13.583208 
-    872    872    22.961043 
-    872    873    -0.000015 
-    872    874    -2.601715 
-    872    875    -4.397936 
-    872    918    -0.000016 
-    872    919    -2.815881 
-    872    920    -4.759962 
-    872    1974    -0.000014 
-    872    1975    -2.432101 
-    872    1976    -4.111220 
-    873    825    -0.001344 
-    873    870    -0.001465 
-    873    871    5.470773 
-    873    872    9.247789 
-    873    873    287.271430 
-    873    874    -179.847910 
-    873    875    -304.014910 
-    873    876    -0.002652 
-    873    921    -0.006287 
-    873    922    5.975674 
-    873    923    10.101279 
-    873    1977    -0.001643 
-    873    1978    0.497859 
-    873    1979    0.841581 
-    874    872    -1.498133 
-    874    874    -54.747707 
-    874    875    46.742926 
-    874    923    -1.636398 
-    874    1979    -0.136335 
-    875    825    -0.000014 
-    875    826    -2.386958 
-    875    827    -4.034913 
-    875    870    -0.000015 
-    875    871    -2.601715 
-    875    872    -4.397936 
-    875    873    0.000745 
-    875    874    12.427625 
-    875    875    21.007653 
-    875    876    -0.000013 
-    875    877    -2.177178 
-    875    878    -3.680302 
-    875    921    -0.000014 
-    875    922    -2.338077 
-    875    923    -3.952285 
-    875    1977    -0.000017 
-    875    1978    -2.917556 
-    875    1979    -4.931837 
-    876    828    -0.001145 
-    876    873    -0.001244 
-    876    874    7.720605 
-    876    875    13.050911 
-    876    876    241.289140 
-    876    877    -156.530410 
-    876    878    -264.598870 
-    876    879    -0.001115 
-    876    924    -0.028587 
-    876    925    7.294179 
-    876    926    12.330072 
-    876    1980    -0.001985 
-    876    1981    0.449715 
-    876    1982    0.760198 
-    877    875    -2.114223 
-    877    877    -45.997623 
-    877    878    40.735007 
-    877    926    -1.997450 
-    877    1982    -0.123150 
-    878    828    -0.000012 
-    878    829    -2.004995 
-    878    830    -3.389242 
-    878    873    -0.000013 
-    878    874    -2.177178 
-    878    875    -3.680302 
-    878    876    0.000633 
-    878    877    11.571691 
-    878    878    19.560777 
-    878    879    -0.000012 
-    878    880    -1.952097 
-    878    881    -3.299824 
-    878    924    -0.000011 
-    878    925    -1.956197 
-    878    926    -3.306753 
-    878    1980    -0.000021 
-    878    1981    -3.476062 
-    878    1982    -5.875930 
-    879    831    -0.001112 
-    879    876    -0.013811 
-    879    877    9.823857 
-    879    878    16.606239 
-    879    879    229.819580 
-    879    880    -155.087840 
-    879    881    -262.160480 
-    879    882    -0.001138 
-    879    927    -0.051645 
-    879    928    10.488328 
-    879    929    17.729469 
-    879    1983    -0.002130 
-    879    1984    0.441456 
-    879    1985    0.746237 
-    880    878    -2.690158 
-    880    880    -43.818848 
-    880    881    40.412391 
-    880    929    -2.872120 
-    880    1985    -0.120887 
-    881    831    -0.000012 
-    881    832    -1.909517 
-    881    833    -3.227848 
-    881    876    -0.000012 
-    881    877    -1.952097 
-    881    878    -3.299824 
-    881    879    0.000606 
-    881    880    11.386064 
-    881    881    19.247000 
-    881    882    -0.000012 
-    881    883    -1.953723 
-    881    884    -3.302573 
-    881    927    -0.000011 
-    881    928    -1.909016 
-    881    929    -3.227001 
-    881    1983    -0.000022 
-    881    1984    -3.656789 
-    881    1985    -6.181435 
-    882    834    -0.001196 
-    882    879    -0.018024 
-    882    880    12.831785 
-    882    881    21.690848 
-    882    882    241.481680 
-    882    883    -172.742630 
-    882    884    -292.003970 
-    882    885    -0.001324 
-    882    930    -0.076276 
-    882    931    18.367232 
-    882    932    31.047948 
-    882    1986    -0.002078 
-    882    1987    0.512428 
-    882    1988    0.866207 
-    883    881    -3.513806 
-    883    883    -46.025611 
-    883    884    45.104546 
-    883    932    -5.029638 
-    883    1988    -0.140319 
-    884    834    -0.000012 
-    884    835    -2.003694 
-    884    836    -3.387043 
-    884    879    -0.000012 
-    884    880    -1.953723 
-    884    881    -3.302573 
-    884    882    0.000637 
-    884    883    11.710275 
-    884    884    19.795037 
-    884    885    -0.000014 
-    884    886    -2.217911 
-    884    887    -3.749154 
-    884    930    -0.000012 
-    884    931    -2.049464 
-    884    932    -3.464412 
-    884    1986    -0.000022 
-    884    1987    -3.480307 
-    884    1988    -5.883107 
-    885    837    -0.001536 
-    885    882    -0.168670 
-    885    883    21.144376 
-    885    884    35.742431 
-    885    885    298.655140 
-    885    886    -196.509860 
-    885    887    -332.180270 
-    885    888    -0.001718 
-    885    1989    -0.001739 
-    885    1990    0.675936 
-    885    1991    1.142602 
-    886    884    -5.790006 
-    886    886    -56.998073 
-    886    887    51.053573 
-    886    1991    -0.185089 
-    887    837    -0.000016 
-    887    838    -2.481705 
-    887    839    -4.195074 
-    887    882    -0.000014 
-    887    883    -2.217911 
-    887    884    -3.749154 
-    887    885    0.000765 
-    887    886    10.289227 
-    887    887    17.392906 
-    887    888    -0.000018 
-    887    889    -2.774568 
-    887    890    -4.690129 
-    887    1989    -0.000018 
-    887    1990    -2.808630 
-    887    1991    -4.747708 
-    888    840    -0.002010 
-    888    885    -0.020106 
-    888    886    12.667573 
-    888    887    21.413265 
-    888    888    379.003530 
-    888    889    -235.148880 
-    888    890    -397.495380 
-    888    1992    -0.001395 
-    888    1993    0.786443 
-    888    1994    1.329401 
-    889    887    -3.468708 
-    889    889    -72.360764 
-    889    890    60.849346 
-    889    1994    -0.215346 
-    890    840    -0.000021 
-    890    841    -3.193950 
-    890    842    -5.399049 
-    890    885    -0.000018 
-    890    886    -2.774568 
-    890    887    -4.690129 
-    890    888    0.000940 
-    890    889    8.193192 
-    890    890    13.849764 
-    890    1992    -0.000015 
-    890    1993    -2.216528 
-    890    1994    -3.746815 
-    891    891    1.000000 
-    892    892    1.000000 
-    893    893    1.000000 
-    894    894    1.000000 
-    895    895    1.000000 
-    896    896    1.000000 
-    897    897    1.000000 
-    898    898    1.000000 
-    899    899    1.000000 
-    900    900    1.000000 
-    901    901    1.000000 
-    902    902    1.000000 
-    903    903    1.000000 
-    904    904    1.000000 
-    905    905    1.000000 
-    906    906    1.000000 
-    907    907    1.000000 
-    908    908    1.000000 
-    909    909    1.000000 
-    910    910    1.000000 
-    911    911    1.000000 
-    912    912    1.000000 
-    913    913    1.000000 
-    914    914    1.000000 
-    915    867    -0.011800 
-    915    915    344.656670 
-    915    916    -202.101410 
-    915    917    -341.632220 
-    915    918    -0.061502 
-    915    2019    -0.001345 
-    915    2020    0.557291 
-    915    2021    0.942044 
-    916    916    -65.668414 
-    916    917    52.406411 
-    916    2021    -0.152611 
-    917    867    -0.000017 
-    917    868    -2.864796 
-    917    869    -4.842651 
-    917    915    0.000853 
-    917    916    8.113959 
-    917    917    13.715837 
-    917    918    -0.000016 
-    917    919    -2.813742 
-    917    920    -4.756349 
-    917    2019    -0.000014 
-    917    2020    -2.428066 
-    917    2021    -4.104402 
-    918    870    -0.019761 
-    918    915    -0.001560 
-    918    916    1.043216 
-    918    917    1.763452 
-    918    918    333.230070 
-    918    919    -199.286750 
-    918    920    -336.874120 
-    918    921    -0.075083 
-    918    966    -0.001451 
-    918    967    2.923511 
-    918    968    4.941899 
-    918    2022    -0.001395 
-    918    2023    0.520392 
-    918    2024    0.879670 
-    919    917    -0.285679 
-    919    919    -63.486307 
-    919    920    51.716900 
-    919    968    -0.800588 
-    919    2024    -0.142506 
-    920    870    -0.000016 
-    920    871    -2.815881 
-    920    872    -4.759962 
-    920    915    -0.000016 
-    920    916    -2.813742 
-    920    917    -4.756349 
-    920    918    0.000856 
-    920    919    13.273757 
-    920    920    22.437948 
-    920    921    -0.000015 
-    920    922    -2.505335 
-    920    923    -4.235015 
-    920    966    -0.000015 
-    920    967    -2.616920 
-    920    968    -4.423638 
-    920    2022    -0.000015 
-    920    2023    -2.514767 
-    920    2024    -4.250958 
-    921    873    -0.001303 
-    921    918    -0.001396 
-    921    919    3.150285 
-    921    920    5.325238 
-    921    921    275.807050 
-    921    922    -169.234850 
-    921    923    -286.074590 
-    921    924    -0.027329 
-    921    969    -0.001192 
-    921    970    4.394735 
-    921    971    7.428860 
-    921    2025    -0.001694 
-    921    2026    0.481380 
-    921    2027    0.813724 
-    922    920    -0.862687 
-    922    922    -52.550474 
-    922    923    43.955116 
-    922    971    -1.203474 
-    922    2027    -0.131823 
-    923    873    -0.000014 
-    923    874    -2.338077 
-    923    875    -3.952285 
-    923    918    -0.000015 
-    923    919    -2.505335 
-    923    920    -4.235015 
-    923    921    0.000716 
-    923    922    12.108122 
-    923    923    20.467567 
-    923    924    -0.000012 
-    923    925    -2.081367 
-    923    926    -3.518343 
-    923    969    -0.000012 
-    923    970    -2.138675 
-    923    971    -3.615217 
-    923    2025    -0.000018 
-    923    2026    -3.038776 
-    923    2027    -5.136748 
-    924    876    -0.001101 
-    924    921    -0.001171 
-    924    922    4.939394 
-    924    923    8.349552 
-    924    924    229.826800 
-    924    925    -145.449890 
-    924    926    -245.868330 
-    924    927    -0.012405 
-    924    972    -0.012781 
-    924    973    5.747739 
-    924    974    9.715972 
-    924    2028    -0.002053 
-    924    2029    0.438850 
-    924    2030    0.741831 
-    925    923    -1.352620 
-    925    925    -43.800301 
-    925    926    37.819564 
-    925    974    -1.573982 
-    925    2030    -0.120175 
-    926    876    -0.000011 
-    926    877    -1.956197 
-    926    878    -3.306753 
-    926    921    -0.000012 
-    926    922    -2.081367 
-    926    923    -3.518343 
-    926    924    0.000605 
-    926    925    11.508061 
-    926    926    19.453216 
-    926    927    -0.000011 
-    926    928    -1.908146 
-    926    929    -3.225528 
-    926    972    -0.000011 
-    926    973    -1.909476 
-    926    974    -3.227776 
-    926    2028    -0.000021 
-    926    2029    -3.647962 
-    926    2030    -6.166510 
-    927    879    -0.001088 
-    927    924    -0.001088 
-    927    925    6.233941 
-    927    926    10.537847 
-    927    927    229.825240 
-    927    928    -148.591700 
-    927    929    -251.179420 
-    927    930    -0.004189 
-    927    975    -0.012881 
-    927    976    7.593210 
-    927    977    12.835562 
-    927    2031    -0.002080 
-    927    2032    0.426569 
-    927    2033    0.721072 
-    928    926    -1.707113 
-    928    928    -43.809625 
-    928    929    38.656718 
-    928    977    -2.079341 
-    928    2033    -0.116811 
-    929    879    -0.000011 
-    929    880    -1.909016 
-    929    881    -3.227001 
-    929    924    -0.000011 
-    929    925    -1.908146 
-    929    926    -3.225528 
-    929    927    0.000605 
-    929    928    11.378192 
-    929    929    19.233694 
-    929    930    -0.000012 
-    929    931    -1.998371 
-    929    932    -3.378046 
-    929    975    -0.000011 
-    929    976    -1.908820 
-    929    977    -3.226670 
-    929    2031    -0.000022 
-    929    2032    -3.648922 
-    929    2033    -6.168137 
-    930    882    -0.001183 
-    930    927    -0.001153 
-    930    928    6.194594 
-    930    929    10.471342 
-    930    930    252.800210 
-    930    931    -163.454440 
-    930    932    -276.303210 
-    930    978    -0.028943 
-    930    979    9.057929 
-    930    980    15.311518 
-    930    2034    -0.001916 
-    930    2035    0.446378 
-    930    2036    0.754558 
-    931    929    -1.696325 
-    931    931    -48.199513 
-    931    932    42.501223 
-    931    980    -2.480426 
-    931    2036    -0.122235 
-    932    882    -0.000012 
-    932    883    -2.049464 
-    932    884    -3.464412 
-    932    927    -0.000012 
-    932    928    -1.998371 
-    932    929    -3.378046 
-    932    930    0.000648 
-    932    931    9.520503 
-    932    932    16.093452 
-    932    978    -0.000013 
-    932    979    -2.146916 
-    932    980    -3.629146 
-    932    2034    -0.000020 
-    932    2035    -3.320339 
-    932    2036    -5.612698 
-    933    933    1.000000 
-    934    934    1.000000 
-    935    935    1.000000 
-    936    936    1.000000 
-    937    937    1.000000 
-    938    938    1.000000 
-    939    939    1.000000 
-    940    940    1.000000 
-    941    941    1.000000 
-    942    942    1.000000 
-    943    943    1.000000 
-    944    944    1.000000 
-    945    945    1.000000 
-    946    946    1.000000 
-    947    947    1.000000 
-    948    948    1.000000 
-    949    949    1.000000 
-    950    950    1.000000 
-    951    951    1.000000 
-    952    952    1.000000 
-    953    953    1.000000 
-    954    954    1.000000 
-    955    955    1.000000 
-    956    956    1.000000 
-    957    957    1.000000 
-    958    958    1.000000 
-    959    959    1.000000 
-    960    960    1.000000 
-    961    961    1.000000 
-    962    962    1.000000 
-    963    963    1.000000 
-    964    964    1.000000 
-    965    965    1.000000 
-    966    918    -0.005334 
-    966    966    298.709230 
-    966    967    -175.165790 
-    966    968    -296.100050 
-    966    969    -0.065873 
-    966    2070    -0.001549 
-    966    2071    0.498117 
-    966    2072    0.842017 
-    967    967    -56.914730 
-    967    968    45.417038 
-    967    2072    -0.136407 
-    968    918    -0.000015 
-    968    919    -2.616920 
-    968    920    -4.423638 
-    968    966    0.000743 
-    968    967    7.645461 
-    968    968    12.923878 
-    968    969    -0.000013 
-    968    970    -2.216879 
-    968    971    -3.747410 
-    968    2070    -0.000016 
-    968    2071    -2.805286 
-    968    2072    -4.742052 
-    969    921    -0.004905 
-    969    966    -0.001225 
-    969    967    0.708615 
-    969    968    1.197842 
-    969    969    241.339950 
-    969    970    -145.704550 
-    969    971    -246.298970 
-    969    972    -0.041054 
-    969    1017    -0.001081 
-    969    1018    3.494555 
-    969    1019    5.907196 
-    969    2073    -0.001919 
-    969    2074    0.457785 
-    969    2075    0.773840 
-    970    968    -0.194050 
-    970    970    -42.188136 
-    970    971    44.227243 
-    970    1019    -0.956969 
-    970    2075    -0.125362 
-    971    921    -0.000012 
-    971    922    -2.138675 
-    971    923    -3.615217 
-    971    966    -0.000013 
-    971    967    -2.216879 
-    971    968    -3.747410 
-    971    969    0.000632 
-    971    970    11.743620 
-    971    971    19.851412 
-    971    972    -0.000011 
-    971    973    -1.955043 
-    971    974    -3.304805 
-    971    1017    -0.000011 
-    971    1018    -1.956197 
-    971    1019    -3.306755 
-    971    2073    -0.000020 
-    971    2074    -3.471673 
-    971    2075    -5.868516 
-    972    924    -0.001061 
-    972    969    -0.001087 
-    972    970    2.771988 
-    972    971    4.685769 
-    972    972    229.832460 
-    972    973    -142.065990 
-    972    974    -240.148210 
-    972    975    -0.012486 
-    972    1020    -0.001061 
-    972    1021    4.537014 
-    972    1022    7.669365 
-    972    2076    -0.002026 
-    972    2077    0.419476 
-    972    2078    0.709082 
-    973    971    -0.759094 
-    973    973    -43.793757 
-    973    974    36.909200 
-    973    1022    -1.242439 
-    973    2078    -0.114871 
-    974    924    -0.000011 
-    974    925    -1.909476 
-    974    926    -3.227776 
-    974    969    -0.000011 
-    974    970    -1.955043 
-    974    971    -3.304805 
-    974    972    0.000603 
-    974    973    11.332200 
-    974    974    19.155942 
-    974    975    -0.000011 
-    974    976    -1.908287 
-    974    977    -3.225767 
-    974    1020    -0.000011 
-    974    1021    -1.909338 
-    974    1022    -3.227544 
-    974    2076    -0.000021 
-    974    2077    -3.645145 
-    974    2078    -6.161749 
-    975    927    -0.001071 
-    975    972    -0.001071 
-    975    973    4.387382 
-    975    974    7.416427 
-    975    975    229.796230 
-    975    976    -145.348790 
-    975    977    -245.697590 
-    975    978    -0.017989 
-    975    1023    -0.003039 
-    975    1024    6.205289 
-    975    1025    10.489420 
-    975    2079    -0.002047 
-    975    2080    0.426701 
-    975    2081    0.721296 
-    976    974    -1.201457 
-    976    976    -43.800643 
-    976    977    37.791073 
-    976    1025    -1.699282 
-    976    2081    -0.116849 
-    977    927    -0.000011 
-    977    928    -1.908820 
-    977    929    -3.226670 
-    977    972    -0.000011 
-    977    973    -1.908287 
-    977    974    -3.225767 
-    977    975    0.000605 
-    977    976    11.511560 
-    977    977    19.459139 
-    977    978    -0.000012 
-    977    979    -2.040894 
-    977    980    -3.449927 
-    977    1023    -0.000012 
-    977    1024    -1.999851 
-    977    1025    -3.380549 
-    977    2079    -0.000021 
-    977    2080    -3.648793 
-    977    2081    -6.167920 
-    978    930    -0.001218 
-    978    975    -0.001158 
-    978    976    5.834263 
-    978    977    9.862238 
-    978    978    264.260110 
-    978    979    -160.753540 
-    978    980    -271.737680 
-    978    2082    -0.001801 
-    978    2083    0.437951 
-    978    2084    0.740312 
-    979    977    -1.597667 
-    979    979    -50.380740 
-    979    980    41.683042 
-    979    2084    -0.119929 
-    980    930    -0.000013 
-    980    931    -2.146916 
-    980    932    -3.629146 
-    980    975    -0.000012 
-    980    976    -2.040894 
-    980    977    -3.449927 
-    980    978    0.000662 
-    980    979    7.366534 
-    980    980    12.452383 
-    980    2082    -0.000019 
-    980    2083    -3.173069 
-    980    2084    -5.363752 
-    981    981    1.000000 
-    982    982    1.000000 
-    983    983    1.000000 
-    984    984    1.000000 
-    985    985    1.000000 
-    986    986    1.000000 
-    987    987    1.000000 
-    988    988    1.000000 
-    989    989    1.000000 
-    990    990    1.000000 
-    991    991    1.000000 
-    992    992    1.000000 
-    993    993    1.000000 
-    994    994    1.000000 
-    995    995    1.000000 
-    996    996    1.000000 
-    997    997    1.000000 
-    998    998    1.000000 
-    999    999    1.000000 
-    1000    1000    1.000000 
-    1001    1001    1.000000 
-    1002    1002    1.000000 
-    1003    1003    1.000000 
-    1004    1004    1.000000 
-    1005    1005    1.000000 
-    1006    1006    1.000000 
-    1007    1007    1.000000 
-    1008    1008    1.000000 
-    1009    1009    1.000000 
-    1010    1010    1.000000 
-    1011    1011    1.000000 
-    1012    1012    1.000000 
-    1013    1013    1.000000 
-    1014    1014    1.000000 
-    1015    1015    1.000000 
-    1016    1016    1.000000 
-    1017    969    -0.002636 
-    1017    1017    229.806270 
-    1017    1018    -137.022390 
-    1017    1019    -231.622650 
-    1017    1020    -0.041015 
-    1017    1065    -0.001048 
-    1017    1066    2.260580 
-    1017    1067    3.821284 
-    1017    2121    -0.001999 
-    1017    2122    0.411318 
-    1017    2123    0.695292 
-    1018    1018    -43.781862 
-    1018    1019    35.557344 
-    1018    1067    -0.619052 
-    1018    2123    -0.112638 
-    1019    969    -0.000011 
-    1019    970    -1.956197 
-    1019    971    -3.306755 
-    1019    1017    0.000592 
-    1019    1018    9.423386 
-    1019    1019    15.929293 
-    1019    1020    -0.000011 
-    1019    1021    -1.908941 
-    1019    1022    -3.226874 
-    1019    1065    -0.000011 
-    1019    1066    -1.909520 
-    1019    1067    -3.227853 
-    1019    2121    -0.000021 
-    1019    2122    -3.643823 
-    1019    2123    -6.159519 
-    1020    972    -0.001642 
-    1020    1017    -0.001051 
-    1020    1018    1.580587 
-    1020    1019    2.671825 
-    1020    1020    229.839720 
-    1020    1021    -139.621580 
-    1020    1022    -236.016200 
-    1020    1023    -0.015615 
-    1020    1068    -0.001051 
-    1020    1069    3.311547 
-    1020    1070    5.597835 
-    1020    2124    -0.002006 
-    1020    2125    0.409908 
-    1020    2126    0.692907 
-    1021    1019    -0.432837 
-    1021    1021    -43.787669 
-    1021    1022    36.254915 
-    1021    1070    -0.906855 
-    1021    2126    -0.112251 
-    1022    972    -0.000011 
-    1022    973    -1.909338 
-    1022    974    -3.227544 
-    1022    1017    -0.000011 
-    1022    1018    -1.908941 
-    1022    1019    -3.226874 
-    1022    1020    0.000603 
-    1022    1021    11.376364 
-    1022    1022    19.230594 
-    1022    1023    -0.000012 
-    1022    1024    -2.000249 
-    1022    1025    -3.381220 
-    1022    1068    -0.000011 
-    1022    1069    -1.909210 
-    1022    1070    -3.227326 
-    1022    2124    -0.000021 
-    1022    2125    -3.643718 
-    1022    2126    -6.159334 
-    1023    975    -0.001108 
-    1023    1020    -0.001108 
-    1023    1021    3.145284 
-    1023    1022    5.316785 
-    1023    1023    252.766650 
-    1023    1024    -151.330490 
-    1023    1025    -255.809070 
-    1023    2127    -0.001836 
-    1023    2128    0.416823 
-    1023    2129    0.704598 
-    1024    1022    -0.861321 
-    1024    1024    -48.172242 
-    1024    1025    39.248992 
-    1024    2129    -0.114145 
-    1025    975    -0.000012 
-    1025    976    -1.999851 
-    1025    977    -3.380549 
-    1025    1020    -0.000012 
-    1025    1021    -2.000249 
-    1025    1022    -3.381220 
-    1025    1023    0.000634 
-    1025    1024    7.319286 
-    1025    1025    12.372520 
-    1025    2127    -0.000019 
-    1025    2128    -3.313785 
-    1025    2129    -5.601621 
-    1026    1026    1.000000 
-    1027    1027    1.000000 
-    1028    1028    1.000000 
-    1029    1029    1.000000 
-    1030    1030    1.000000 
-    1031    1031    1.000000 
-    1032    1032    1.000000 
-    1033    1033    1.000000 
-    1034    1034    1.000000 
-    1035    1035    1.000000 
-    1036    1036    1.000000 
-    1037    1037    1.000000 
-    1038    1038    1.000000 
-    1039    1039    1.000000 
-    1040    1040    1.000000 
-    1041    1041    1.000000 
-    1042    1042    1.000000 
-    1043    1043    1.000000 
-    1044    1044    1.000000 
-    1045    1045    1.000000 
-    1046    1046    1.000000 
-    1047    1047    1.000000 
-    1048    1048    1.000000 
-    1049    1049    1.000000 
-    1050    1050    1.000000 
-    1051    1051    1.000000 
-    1052    1052    1.000000 
-    1053    1053    1.000000 
-    1054    1054    1.000000 
-    1055    1055    1.000000 
-    1056    1056    1.000000 
-    1057    1057    1.000000 
-    1058    1058    1.000000 
-    1059    1059    1.000000 
-    1060    1060    1.000000 
-    1061    1061    1.000000 
-    1062    1062    1.000000 
-    1063    1063    1.000000 
-    1064    1064    1.000000 
-    1065    1017    -0.015430 
-    1065    1065    229.795530 
-    1065    1066    -134.743170 
-    1065    1067    -227.769850 
-    1065    1068    -0.042360 
-    1065    2169    -0.001989 
-    1065    2170    0.398835 
-    1065    2171    0.674190 
-    1066    1066    -43.777519 
-    1066    1067    34.943889 
-    1066    2171    -0.109219 
-    1067    1017    -0.000011 
-    1067    1018    -1.909520 
-    1067    1019    -3.227853 
-    1067    1065    0.000580 
-    1067    1066    7.466155 
-    1067    1067    12.620788 
-    1067    1068    -0.000011 
-    1067    1069    -1.909093 
-    1067    1070    -3.227130 
-    1067    2169    -0.000021 
-    1067    2170    -3.642639 
-    1067    2171    -6.157516 
-    1068    1020    -0.014084 
-    1068    1065    -0.001043 
-    1068    1066    0.529376 
-    1068    1067    0.894857 
-    1068    1068    229.831970 
-    1068    1069    -135.258580 
-    1068    1070    -228.640960 
-    1068    2172    -0.001991 
-    1068    2173    0.399040 
-    1068    2174    0.674537 
-    1069    1067    -0.144968 
-    1069    1069    -43.782057 
-    1069    1070    35.074011 
-    1069    2174    -0.109276 
-    1070    1020    -0.000011 
-    1070    1021    -1.909210 
-    1070    1022    -3.227326 
-    1070    1065    -0.000011 
-    1070    1066    -1.909093 
-    1070    1067    -3.227130 
-    1070    1068    0.000580 
-    1070    1069    7.466864 
-    1070    1070    12.621981 
-    1070    2172    -0.000021 
-    1070    2173    -3.643656 
-    1070    2174    -6.159233 
-    1071    1071    1.000000 
-    1072    1072    1.000000 
-    1073    1073    1.000000 
-    1074    1074    1.000000 
-    1075    1075    1.000000 
-    1076    1076    1.000000 
-    1077    1077    1.000000 
-    1078    1078    1.000000 
-    1079    1079    1.000000 
-    1080    1080    1.000000 
-    1081    1081    1.000000 
-    1082    1082    1.000000 
-    1083    1083    1.000000 
-    1084    1084    1.000000 
-    1085    1085    1.000000 
-    1086    1086    1.000000 
-    1087    1087    1.000000 
-    1088    1088    1.000000 
-    1089    1089    1.000000 
-    1090    1090    1.000000 
-    1091    1091    1.000000 
-    1092    1092    1.000000 
-    1093    1093    1.000000 
-    1094    1094    1.000000 
-    1095    1095    1.000000 
-    1096    1096    1.000000 
-    1097    1097    1.000000 
-    1098    1098    1.000000 
-    1099    1099    1.000000 
-    1100    1100    1.000000 
-    1101    1101    1.000000 
-    1102    1102    1.000000 
-    1103    1103    1.000000 
-    1104    1104    1.000000 
-    1105    1105    1.000000 
-    1106    1106    1.000000 
-    1107    1107    1.000000 
-    1108    1108    1.000000 
-    1109    1109    1.000000 
-    1110    1110    1.000000 
-    1111    1111    1.000000 
-    1112    1112    1.000000 
-    1113    1113    1.000000 
-    1114    1114    1.000000 
-    1115    1115    1.000000 
-    1116    1116    1.000000 
-    1117    1117    1.000000 
-    1118    1118    1.000000 
-    1119    1119    1.000000 
-    1120    1120    1.000000 
-    1121    1121    1.000000 
-    1122    1122    1.000000 
-    1123    1123    1.000000 
-    1124    1124    1.000000 
-    1125    1125    1.000000 
-    1126    1126    1.000000 
-    1127    1127    1.000000 
-    1128    1128    1.000000 
-    1129    1129    1.000000 
-    1130    1130    1.000000 
-    1131    1131    1.000000 
-    1132    1132    1.000000 
-    1133    1133    1.000000 
-    1134    1134    1.000000 
-    1135    1135    1.000000 
-    1136    1136    1.000000 
-    1137    1137    1.000000 
-    1138    1138    1.000000 
-    1139    1139    1.000000 
-    1140    1140    1.000000 
-    1141    1141    1.000000 
-    1142    1142    1.000000 
-    1143    1143    1.000000 
-    1144    1144    1.000000 
-    1145    1145    1.000000 
-    1146    1146    1.000000 
-    1147    1147    1.000000 
-    1148    1148    1.000000 
-    1149    1149    1.000000 
-    1150    1150    1.000000 
-    1151    1151    1.000000 
-    1152    1152    1.000000 
-    1153    1153    1.000000 
-    1154    1154    1.000000 
-    1155    1155    1.000000 
-    1156    1156    1.000000 
-    1157    1157    1.000000 
-    1158    1158    1.000000 
-    1159    1159    1.000000 
-    1160    1160    1.000000 
-    1161    1161    1.000000 
-    1162    1162    1.000000 
-    1163    1163    1.000000 
-    1164    1164    1.000000 
-    1165    1165    1.000000 
-    1166    1166    1.000000 
-    1167    1167    1.000000 
-    1168    1168    1.000000 
-    1169    1169    1.000000 
-    1170    1170    1.000000 
-    1171    1171    1.000000 
-    1172    1172    1.000000 
-    1173    1173    1.000000 
-    1174    1174    1.000000 
-    1175    1175    1.000000 
-    1176    1176    1.000000 
-    1177    1177    1.000000 
-    1178    1178    1.000000 
-    1179    1179    1.000000 
-    1180    1180    1.000000 
-    1181    1181    1.000000 
-    1182    1182    1.000000 
-    1183    1183    1.000000 
-    1184    1184    1.000000 
-    1185    1185    1.000000 
-    1186    1186    1.000000 
-    1187    1187    1.000000 
-    1188    1188    1.000000 
-    1189    1189    1.000000 
-    1190    1190    1.000000 
-    1191    1191    1.000000 
-    1192    1192    1.000000 
-    1193    1193    1.000000 
-    1194    1194    1.000000 
-    1195    1195    1.000000 
-    1196    1196    1.000000 
-    1197    1197    1.000000 
-    1198    1198    1.000000 
-    1199    1199    1.000000 
-    1200    1200    1.000000 
-    1201    1201    1.000000 
-    1202    1202    1.000000 
-    1203    1203    1.000000 
-    1204    1204    1.000000 
-    1205    1205    1.000000 
-    1206    1206    1.000000 
-    1207    1207    1.000000 
-    1208    1208    1.000000 
-    1209    1209    1.000000 
-    1210    1210    1.000000 
-    1211    1211    1.000000 
-    1212    1212    1.000000 
-    1213    1213    1.000000 
-    1214    1214    1.000000 
-    1215    1215    1.000000 
-    1216    1216    1.000000 
-    1217    1217    1.000000 
-    1218    1218    1.000000 
-    1219    1219    1.000000 
-    1220    1220    1.000000 
-    1221    1221    1.000000 
-    1222    1222    1.000000 
-    1223    1223    1.000000 
-    1224    1224    1.000000 
-    1225    1225    1.000000 
-    1226    1226    1.000000 
-    1227    1227    1.000000 
-    1228    1228    1.000000 
-    1229    1229    1.000000 
-    1230    1230    1.000000 
-    1231    1231    1.000000 
-    1232    1232    1.000000 
-    1233    1233    1.000000 
-    1234    1234    1.000000 
-    1235    1235    1.000000 
-    1236    132    -1.518568 
-    1236    1236    199.839450 
-    1236    1237    -133.706900 
-    1236    1238    -226.018000 
-    1236    1239    -0.502966 
-    1236    1240    1.542181 
-    1236    1241    2.606903 
-    1236    1284    -1.921350 
-    1237    1237    -28.933988 
-    1237    1238    26.839463 
-    1237    1241    -0.309248 
-    1238    132    -0.094695 
-    1238    133    -0.909913 
-    1238    134    -1.538115 
-    1238    1236    0.261037 
-    1238    1237    2.090714 
-    1238    1238    3.534142 
-    1238    1239    -0.030283 
-    1238    1240    -0.636564 
-    1238    1241    -1.076047 
-    1238    1284    -0.056301 
-    1238    1285    -0.541028 
-    1238    1286    -0.914553 
-    1239    135    -1.302073 
-    1239    1236    -0.183076 
-    1239    1239    189.932610 
-    1239    1240    -130.587670 
-    1239    1241    -220.745390 
-    1239    1242    -0.304212 
-    1239    1243    0.768041 
-    1239    1244    1.298295 
-    1239    1287    -1.704141 
-    1239    2343    -2.597142 
-    1239    2344    6.781374 
-    1239    2345    11.463234 
-    1240    1240    -29.175140 
-    1240    1241    28.144064 
-    1240    1244    -0.167928 
-    1240    2345    -1.098958 
-    1241    135    -0.057589 
-    1241    136    -1.210663 
-    1241    137    -2.046506 
-    1241    1236    -0.030283 
-    1241    1237    -0.636564 
-    1241    1238    -1.076047 
-    1241    1239    0.395131 
-    1241    1240    4.075732 
-    1241    1241    6.889617 
-    1241    1242    -0.017632 
-    1241    1243    -0.687517 
-    1241    1244    -1.162178 
-    1241    1287    -0.030139 
-    1241    1288    -0.633645 
-    1241    1289    -1.071114 
-    1241    2343    -0.179884 
-    1241    2344    -0.904106 
-    1241    2345    -1.528301 
-    1242    138    -0.854651 
-    1242    1239    -0.159094 
-    1242    1242    177.378880 
-    1242    1243    -121.691480 
-    1242    1244    -205.707140 
-    1242    1245    -0.217251 
-    1242    1246    0.390354 
-    1242    1247    0.659855 
-    1242    1290    -0.977841 
-    1242    2346    -1.564624 
-    1242    2347    5.734223 
-    1242    2348    9.693123 
-    1243    1243    -28.598581 
-    1243    1244    27.549954 
-    1243    1247    -0.089776 
-    1243    2348    -1.094218 
-    1244    138    -0.037800 
-    1244    139    -1.474060 
-    1244    140    -2.491750 
-    1244    1239    -0.017632 
-    1244    1240    -0.687517 
-    1244    1241    -1.162178 
-    1244    1242    0.257859 
-    1244    1243    4.939112 
-    1244    1244    8.349069 
-    1244    1245    -0.009796 
-    1244    1246    -0.721869 
-    1244    1247    -1.220248 
-    1244    1290    -0.017294 
-    1244    1291    -0.674449 
-    1244    1292    -1.140088 
-    1244    2346    -0.095840 
-    1244    2347    -1.378043 
-    1244    2348    -2.329442 
-    1245    141    -0.812870 
-    1245    1242    -0.109920 
-    1245    1245    165.300780 
-    1245    1246    -113.835670 
-    1245    1247    -192.427820 
-    1245    1293    -0.542845 
-    1245    2349    -0.991099 
-    1245    2350    4.960127 
-    1245    2351    8.384599 
-    1246    1246    -27.734053 
-    1246    1247    26.733771 
-    1246    2351    -1.081235 
-    1247    141    -0.023820 
-    1247    142    -1.755319 
-    1247    143    -2.967192 
-    1247    1242    -0.009796 
-    1247    1243    -0.721869 
-    1247    1244    -1.220248 
-    1247    1245    0.171011 
-    1247    1246    5.044328 
-    1247    1247    8.526932 
-    1247    1293    -0.009601 
-    1247    1294    -0.707545 
-    1247    1295    -1.196033 
-    1247    2349    -0.048389 
-    1247    2350    -1.856517 
-    1247    2351    -3.138256 
-    1248    1248    1.000000 
-    1249    1249    1.000000 
-    1250    1250    1.000000 
-    1251    1251    1.000000 
-    1252    1252    1.000000 
-    1253    1253    1.000000 
-    1254    1254    1.000000 
-    1255    1255    1.000000 
-    1256    1256    1.000000 
-    1257    1257    1.000000 
-    1258    1258    1.000000 
-    1259    1259    1.000000 
-    1260    1260    1.000000 
-    1261    1261    1.000000 
-    1262    1262    1.000000 
-    1263    159    -0.881433 
-    1263    1263    273.726380 
-    1263    1264    -178.212730 
-    1263    1265    -301.250800 
-    1263    1266    -0.155701 
-    1263    1267    0.006683 
-    1263    1268    0.011297 
-    1263    1311    -0.971510 
-    1263    2367    -1.059846 
-    1263    2368    4.320226 
-    1263    2369    7.302910 
-    1264    1264    -46.024490 
-    1264    1265    41.622307 
-    1264    1268    -0.001361 
-    1264    2369    -0.848535 
-    1265    159    -0.015589 
-    1265    160    -1.037506 
-    1265    161    -1.753800 
-    1265    1263    0.186753 
-    1265    1264    4.017098 
-    1265    1265    6.790501 
-    1265    1266    -0.017256 
-    1265    1267    -0.924296 
-    1265    1268    -1.562430 
-    1265    1311    -0.017182 
-    1265    1312    -1.143580 
-    1265    1313    -1.933108 
-    1265    2367    -0.056946 
-    1265    2368    -0.906602 
-    1265    2369    -1.532520 
-    1266    162    -1.277025 
-    1266    1263    -0.310634 
-    1266    1266    274.296680 
-    1266    1267    -176.467570 
-    1266    1268    -298.300620 
-    1266    1269    -0.425286 
-    1266    1270    0.352035 
-    1266    1271    0.595080 
-    1266    1314    -2.324615 
-    1267    1267    -43.113782 
-    1267    1268    38.450812 
-    1267    1271    -0.070253 
-    1268    162    -0.037421 
-    1268    163    -0.836888 
-    1268    164    -1.414675 
-    1268    1263    -0.017256 
-    1268    1264    -0.924296 
-    1268    1265    -1.562430 
-    1268    1266    0.226629 
-    1268    1267    3.545411 
-    1268    1268    5.993160 
-    1268    1269    -0.050896 
-    1268    1270    -0.859932 
-    1268    1271    -1.453628 
-    1268    1314    -0.041112 
-    1268    1315    -0.919507 
-    1268    1316    -1.554333 
-    1269    165    -1.040707 
-    1269    1266    -0.459246 
-    1269    1269    274.999710 
-    1269    1270    -176.699330 
-    1269    1271    -298.692550 
-    1269    1272    -0.435228 
-    1269    1273    0.372769 
-    1269    1274    0.630128 
-    1269    1317    -2.863732 
-    1270    1270    -42.206845 
-    1270    1271    37.696049 
-    1270    1274    -0.074396 
-    1271    165    -0.046029 
-    1271    166    -0.777765 
-    1271    167    -1.314734 
-    1271    1266    -0.050896 
-    1271    1267    -0.859932 
-    1271    1268    -1.453628 
-    1271    1269    0.278453 
-    1271    1270    3.358200 
-    1271    1271    5.676700 
-    1271    1272    -0.050886 
-    1271    1273    -0.859976 
-    1271    1274    -1.453703 
-    1271    1317    -0.050647 
-    1271    1318    -0.855840 
-    1271    1319    -1.446711 
-    1272    168    -1.039792 
-    1272    1269    -0.373159 
-    1272    1272    274.941060 
-    1272    1273    -176.827480 
-    1272    1274    -298.908940 
-    1272    1275    -0.428469 
-    1272    1276    0.531788 
-    1272    1277    0.898934 
-    1272    1320    -1.728679 
-    1273    1273    -42.207454 
-    1273    1274    37.723230 
-    1273    1277    -0.110453 
-    1274    168    -0.045989 
-    1274    169    -0.777278 
-    1274    170    -1.313910 
-    1274    1269    -0.050886 
-    1274    1270    -0.859976 
-    1274    1271    -1.453703 
-    1274    1272    0.265925 
-    1274    1273    3.431556 
-    1274    1274    5.800699 
-    1274    1275    -0.038400 
-    1274    1276    -0.933415 
-    1274    1277    -1.577845 
-    1274    1320    -0.050655 
-    1274    1321    -0.856200 
-    1274    1322    -1.447319 
-    1275    171    -1.219980 
-    1275    1272    -0.281592 
-    1275    1275    268.945470 
-    1275    1276    -174.151710 
-    1275    1277    -294.386050 
-    1275    1278    -0.486751 
-    1275    1279    1.605341 
-    1275    1280    2.713666 
-    1275    1323    -1.305489 
-    1276    1276    -42.499768 
-    1276    1277    38.216679 
-    1276    1280    -0.350201 
-    1277    171    -0.035749 
-    1277    172    -0.869064 
-    1277    173    -1.469066 
-    1277    1272    -0.038400 
-    1277    1273    -0.933415 
-    1277    1274    -1.577845 
-    1277    1275    0.217945 
-    1277    1276    3.724749 
-    1277    1277    6.296315 
-    1277    1278    -0.025633 
-    1277    1279    -0.987525 
-    1277    1280    -1.669312 
-    1277    1323    -0.038255 
-    1277    1324    -0.930025 
-    1277    1325    -1.572114 
-    1278    174    -0.905541 
-    1278    1275    -0.231290 
-    1278    1278    253.453770 
-    1278    1279    -167.083460 
-    1278    1280    -282.437660 
-    1278    1281    -0.328328 
-    1278    1282    0.771007 
-    1278    1283    1.303310 
-    1278    1326    -1.429034 
-    1278    2382    -1.639650 
-    1278    2383    5.050454 
-    1278    2384    8.537282 
-    1279    1279    -41.094302 
-    1279    1280    37.822306 
-    1279    1283    -0.175837 
-    1279    2384    -0.863327 
-    1280    174    -0.026535 
-    1280    175    -1.022372 
-    1280    176    -1.728216 
-    1280    1275    -0.025633 
-    1280    1276    -0.987525 
-    1280    1277    -1.669312 
-    1280    1278    0.277835 
-    1280    1279    4.769201 
-    1280    1280    8.061852 
-    1280    1281    -0.014599 
-    1280    1282    -1.015154 
-    1280    1283    -1.716015 
-    1280    1326    -0.025273 
-    1280    1327    -0.973818 
-    1280    1328    -1.646141 
-    1280    2382    -0.106018 
-    1280    2383    -0.765767 
-    1280    2384    -1.294453 
-    1281    177    -1.012375 
-    1281    1278    -0.163810 
-    1281    1281    230.612260 
-    1281    1282    -152.473580 
-    1281    1283    -257.741340 
-    1281    1284    -0.458826 
-    1281    1329    -0.813619 
-    1281    2385    -0.930514 
-    1281    2386    4.095518 
-    1281    2387    6.923064 
-    1282    1282    -38.737952 
-    1282    1283    35.691370 
-    1282    2387    -0.845216 
-    1283    177    -0.017904 
-    1283    178    -1.245084 
-    1283    179    -2.104691 
-    1283    1278    -0.014599 
-    1283    1279    -1.015154 
-    1283    1280    -1.716015 
-    1283    1281    0.190554 
-    1283    1282    5.396347 
-    1283    1283    9.121984 
-    1283    1284    -0.013445 
-    1283    1285    -0.934927 
-    1283    1286    -1.580400 
-    1283    1329    -0.014389 
-    1283    1330    -1.000716 
-    1283    1331    -1.691610 
-    1283    2385    -0.050588 
-    1283    2386    -1.196163 
-    1283    2387    -2.021995 
-    1284    180    -0.498179 
-    1284    1236    -2.665440 
-    1284    1237    11.613324 
-    1284    1238    19.631152 
-    1284    1281    -0.276841 
-    1284    1282    0.033672 
-    1284    1283    0.056919 
-    1284    1284    215.170230 
-    1284    1285    -137.847310 
-    1284    1286    -233.016940 
-    1284    1287    -0.200946 
-    1284    1288    1.563150 
-    1284    1289    2.642349 
-    1284    1332    -0.579939 
-    1284    2388    -0.847189 
-    1284    2389    4.291387 
-    1284    2390    7.254155 
-    1285    1238    -2.066449 
-    1285    1283    -0.007679 
-    1285    1285    -37.353073 
-    1285    1286    33.533235 
-    1285    1289    -0.383856 
-    1285    2390    -0.956043 
-    1286    180    -0.008811 
-    1286    181    -1.514404 
-    1286    182    -2.559947 
-    1286    1236    -0.056301 
-    1286    1237    -0.541028 
-    1286    1238    -0.914553 
-    1286    1281    -0.013445 
-    1286    1282    -0.934927 
-    1286    1283    -1.580400 
-    1286    1284    0.113976 
-    1286    1285    6.636171 
-    1286    1286    11.217779 
-    1286    1287    -0.002823 
-    1286    1288    -1.048694 
-    1286    1289    -1.772712 
-    1286    1332    -0.006053 
-    1286    1333    -1.040412 
-    1286    1334    -1.758712 
-    1286    2388    -0.025903 
-    1286    2389    -1.552556 
-    1286    2390    -2.624439 
-    1287    183    -0.267653 
-    1287    1239    -2.025736 
-    1287    1240    12.447368 
-    1287    1241    21.041031 
-    1287    1284    -0.096336 
-    1287    1287    197.795590 
-    1287    1288    -127.621790 
-    1287    1289    -215.731870 
-    1287    1290    -0.158970 
-    1287    1291    2.008849 
-    1287    1292    3.395756 
-    1287    1335    -0.266229 
-    1287    2391    -0.447128 
-    1287    2392    1.730214 
-    1287    2393    2.924754 
-    1288    1241    -2.496025 
-    1288    1288    -35.250430 
-    1288    1289    31.772134 
-    1288    1292    -0.507141 
-    1288    2393    -0.413359 
-    1289    183    -0.004734 
-    1289    184    -1.758612 
-    1289    185    -2.972758 
-    1289    1239    -0.030139 
-    1289    1240    -0.633645 
-    1289    1241    -1.071114 
-    1289    1284    -0.002823 
-    1289    1285    -1.048694 
-    1289    1286    -1.772712 
-    1289    1287    0.053736 
-    1289    1288    7.425063 
-    1289    1289    12.551325 
-    1289    1290    -0.001888 
-    1289    1291    -0.991846 
-    1289    1292    -1.676616 
-    1289    1335    -0.002778 
-    1289    1336    -1.032339 
-    1289    1337    -1.745066 
-    1289    2391    -0.010827 
-    1289    2392    -1.956009 
-    1289    2393    -3.306438 
-    1290    186    -0.359639 
-    1290    1242    -1.519096 
-    1290    1243    11.326966 
-    1290    1244    19.147090 
-    1290    1287    -0.106741 
-    1290    1290    180.412580 
-    1290    1291    -116.783760 
-    1290    1292    -197.411110 
-    1290    1293    -0.118922 
-    1290    1294    1.552477 
-    1290    1295    2.624306 
-    1290    1338    -0.177810 
-    1290    2394    -0.293662 
-    1290    2395    1.328996 
-    1290    2396    2.246533 
-    1291    1244    -2.476580 
-    1291    1291    -32.598054 
-    1291    1292    29.396479 
-    1291    1295    -0.397851 
-    1291    2396    -0.334552 
-    1292    186    -0.003753 
-    1292    187    -1.972124 
-    1292    188    -3.333675 
-    1292    1242    -0.017294 
-    1292    1243    -0.674449 
-    1292    1244    -1.140088 
-    1292    1287    -0.001888 
-    1292    1288    -0.991846 
-    1292    1289    -1.676616 
-    1292    1290    0.033488 
-    1292    1291    7.800052 
-    1292    1292    13.185199 
-    1292    1293    -0.001388 
-    1292    1294    -0.934796 
-    1292    1295    -1.580180 
-    1292    1338    -0.001856 
-    1292    1339    -0.975122 
-    1292    1340    -1.648345 
-    1292    2394    -0.006823 
-    1292    2395    -2.248092 
-    1292    2396    -3.800172 
-    1293    189    -0.303637 
-    1293    1245    -1.073606 
-    1293    1246    10.369892 
-    1293    1247    17.529266 
-    1293    1290    -0.078485 
-    1293    1293    168.915090 
-    1293    1294    -108.429970 
-    1293    1295    -183.290030 
-    1293    1341    -0.132410 
-    1293    2397    -0.384613 
-    1293    2398    1.490501 
-    1293    2399    2.519544 
-    1294    1247    -2.384920 
-    1294    1294    -30.770477 
-    1294    1295    27.455917 
-    1294    2399    -0.368471 
-    1295    189    -0.003169 
-    1295    190    -2.134217 
-    1295    191    -3.607681 
-    1295    1245    -0.009601 
-    1295    1246    -0.707545 
-    1295    1247    -1.196033 
-    1295    1290    -0.001388 
-    1295    1291    -0.934796 
-    1295    1292    -1.580180 
-    1295    1293    0.022089 
-    1295    1294    7.151812 
-    1295    1295    12.089422 
-    1295    1341    -0.001382 
-    1295    1342    -0.930779 
-    1295    1343    -1.573388 
-    1295    2397    -0.006101 
-    1295    2398    -2.441055 
-    1295    2399    -4.126359 
-    1296    1296    1.000000 
-    1297    1297    1.000000 
-    1298    1298    1.000000 
-    1299    1299    1.000000 
-    1300    1300    1.000000 
-    1301    1301    1.000000 
-    1302    1302    1.000000 
-    1303    1303    1.000000 
-    1304    1304    1.000000 
-    1305    1305    1.000000 
-    1306    1306    1.000000 
-    1307    1307    1.000000 
-    1308    1308    1.000000 
-    1309    1309    1.000000 
-    1310    1310    1.000000 
-    1311    207    -0.245210 
-    1311    1263    -1.595362 
-    1311    1264    15.256565 
-    1311    1265    25.789698 
-    1311    1311    272.230710 
-    1311    1312    -173.176940 
-    1311    1313    -292.738290 
-    1311    1314    -0.159989 
-    1311    1359    -0.270155 
-    1311    2415    -0.309678 
-    1311    2416    1.783478 
-    1311    2417    3.014791 
-    1312    1265    -3.456469 
-    1312    1312    -49.368972 
-    1312    1313    43.512859 
-    1312    2417    -0.433023 
-    1313    207    -0.002559 
-    1313    208    -1.299896 
-    1313    209    -2.197344 
-    1313    1263    -0.017182 
-    1313    1264    -1.143580 
-    1313    1265    -1.933108 
-    1313    1311    0.032932 
-    1313    1312    6.751195 
-    1313    1313    11.412219 
-    1313    1314    -0.002829 
-    1313    1315    -1.437131 
-    1313    1316    -2.429327 
-    1313    1359    -0.002819 
-    1313    1360    -1.432232 
-    1313    1361    -2.421044 
-    1313    2415    -0.006803 
-    1313    2416    -1.432864 
-    1313    2417    -2.422113 
-    1314    210    -0.276363 
-    1314    1266    -2.344756 
-    1314    1267    14.043798 
-    1314    1268    23.739623 
-    1314    1311    -0.172107 
-    1314    1312    0.491974 
-    1314    1313    0.831633 
-    1314    1314    273.953100 
-    1314    1315    -172.642440 
-    1314    1316    -291.834550 
-    1314    1317    -0.180431 
-    1314    1362    -0.304784 
-    1314    2418    -0.479744 
-    1314    2419    2.827193 
-    1314    2420    4.779083 
-    1315    1268    -2.859892 
-    1315    1313    -0.123910 
-    1315    1315    -49.216982 
-    1315    1316    43.218287 
-    1315    2420    -0.681263 
-    1316    210    -0.002884 
-    1316    211    -1.286574 
-    1316    212    -2.174823 
-    1316    1266    -0.041112 
-    1316    1267    -0.919507 
-    1316    1268    -1.554333 
-    1316    1311    -0.002829 
-    1316    1312    -1.437131 
-    1316    1313    -2.429327 
-    1316    1314    0.063605 
-    1316    1315    7.857381 
-    1316    1316    13.282108 
-    1316    1317    -0.003191 
-    1316    1318    -1.423313 
-    1316    1319    -2.405967 
-    1316    1362    -0.003181 
-    1316    1363    -1.418974 
-    1316    1364    -2.398632 
-    1316    2418    -0.009660 
-    1316    2419    -1.366407 
-    1316    2420    -2.309773 
-    1317    213    -0.336833 
-    1317    1269    -2.699987 
-    1317    1270    13.811176 
-    1317    1271    23.346412 
-    1317    1314    -0.184389 
-    1317    1315    0.162643 
-    1317    1316    0.274931 
-    1317    1317    274.810930 
-    1317    1318    -172.812880 
-    1317    1319    -292.122890 
-    1317    1320    -0.154512 
-    1317    1321    0.241812 
-    1317    1322    0.408759 
-    1317    1365    -0.371797 
-    1317    2421    -0.534400 
-    1317    2422    3.219766 
-    1317    2423    5.442692 
-    1318    1271    -2.756207 
-    1318    1316    -0.040570 
-    1318    1318    -48.921717 
-    1318    1319    42.950807 
-    1318    1322    -0.060805 
-    1318    2423    -0.750848 
-    1319    213    -0.003515 
-    1319    214    -1.261418 
-    1319    215    -2.132301 
-    1319    1269    -0.050647 
-    1319    1270    -0.855840 
-    1319    1271    -1.446711 
-    1319    1314    -0.003191 
-    1319    1315    -1.423313 
-    1319    1316    -2.405967 
-    1319    1317    0.078662 
-    1319    1318    7.643173 
-    1319    1319    12.920016 
-    1319    1320    -0.004269 
-    1319    1321    -1.383385 
-    1319    1322    -2.338473 
-    1319    1365    -0.003880 
-    1319    1366    -1.392436 
-    1319    1367    -2.353775 
-    1319    2421    -0.012396 
-    1319    2422    -1.321339 
-    1319    2423    -2.233592 
-    1320    216    -0.369426 
-    1320    1272    -2.736330 
-    1320    1273    13.998636 
-    1320    1274    23.663276 
-    1320    1317    -0.241388 
-    1320    1320    273.495790 
-    1320    1321    -172.765440 
-    1320    1322    -292.042510 
-    1320    1323    -0.177520 
-    1320    1324    0.750676 
-    1320    1325    1.268943 
-    1320    1368    -0.407783 
-    1320    2424    -0.582376 
-    1320    2425    3.209121 
-    1320    2426    5.424694 
-    1321    1274    -2.793805 
-    1321    1321    -48.774953 
-    1321    1322    42.945063 
-    1321    1325    -0.188799 
-    1321    2426    -0.729756 
-    1322    216    -0.003855 
-    1322    217    -1.249434 
-    1322    218    -2.112042 
-    1322    1272    -0.050655 
-    1322    1273    -0.856200 
-    1322    1274    -1.447319 
-    1322    1317    -0.004269 
-    1322    1318    -1.383385 
-    1322    1319    -2.338473 
-    1322    1320    0.082507 
-    1322    1321    7.545682 
-    1322    1322    12.755213 
-    1322    1323    -0.004257 
-    1322    1324    -1.383562 
-    1322    1325    -2.338773 
-    1322    1368    -0.004256 
-    1322    1369    -1.379243 
-    1322    1370    -2.331471 
-    1322    2424    -0.014443 
-    1322    2425    -1.288434 
-    1322    2426    -2.177967 
-    1323    219    -0.368191 
-    1323    1275    -2.392778 
-    1323    1276    14.529641 
-    1323    1277    24.560905 
-    1323    1320    -0.145264 
-    1323    1323    273.065770 
-    1323    1324    -173.404120 
-    1323    1325    -293.122330 
-    1323    1326    -0.213513 
-    1323    1327    1.121132 
-    1323    1328    1.895160 
-    1323    1371    -0.406750 
-    1323    2427    -0.548701 
-    1323    2428    2.663259 
-    1323    2429    4.501973 
-    1324    1277    -3.017821 
-    1324    1324    -48.777713 
-    1324    1325    43.110071 
-    1324    1328    -0.278730 
-    1324    2429    -0.605644 
-    1325    219    -0.003843 
-    1325    220    -1.249054 
-    1325    221    -2.111401 
-    1325    1275    -0.038255 
-    1325    1276    -0.930025 
-    1325    1277    -1.572114 
-    1325    1320    -0.004257 
-    1325    1321    -1.383562 
-    1325    1322    -2.338773 
-    1325    1323    0.069052 
-    1325    1324    7.625224 
-    1325    1325    12.889677 
-    1325    1326    -0.003247 
-    1325    1327    -1.389334 
-    1325    1328    -2.348528 
-    1325    1371    -0.004245 
-    1325    1372    -1.379939 
-    1325    1373    -2.332650 
-    1325    2427    -0.014434 
-    1325    2428    -1.287886 
-    1325    2429    -2.177042 
-    1326    222    -0.298889 
-    1326    1278    -2.043189 
-    1326    1279    15.172454 
-    1326    1280    25.647495 
-    1326    1323    -0.110804 
-    1326    1326    262.181260 
-    1326    1327    -167.772980 
-    1326    1328    -283.603250 
-    1326    1329    -0.144529 
-    1326    1330    1.629768 
-    1326    1331    2.754961 
-    1326    1374    -0.310381 
-    1326    2430    -0.340951 
-    1326    2431    1.299477 
-    1326    2432    2.196636 
-    1327    1280    -3.309836 
-    1327    1327    -47.196986 
-    1327    1328    41.945986 
-    1327    1331    -0.420138 
-    1327    2432    -0.309574 
-    1328    222    -0.003119 
-    1328    223    -1.334860 
-    1328    224    -2.256445 
-    1328    1278    -0.025273 
-    1328    1279    -0.973818 
-    1328    1280    -1.646141 
-    1328    1323    -0.003247 
-    1328    1324    -1.389334 
-    1328    1325    -2.348528 
-    1328    1326    0.045701 
-    1328    1327    7.918147 
-    1328    1328    13.384829 
-    1328    1329    -0.001805 
-    1328    1330    -1.366247 
-    1328    1331    -2.309504 
-    1328    1374    -0.003239 
-    1328    1375    -1.386267 
-    1328    1376    -2.343345 
-    1328    2430    -0.008297 
-    1328    2431    -1.462372 
-    1328    2432    -2.471992 
-    1329    225    -0.186759 
-    1329    1281    -1.480018 
-    1329    1282    14.324093 
-    1329    1283    24.213447 
-    1329    1326    -0.102066 
-    1329    1329    244.862540 
-    1329    1330    -157.747930 
-    1329    1331    -266.657100 
-    1329    1332    -0.113007 
-    1329    1333    2.083003 
-    1329    1334    3.521106 
-    1329    1377    -0.170847 
-    1329    2433    -0.295049 
-    1329    2434    1.184203 
-    1329    2435    2.001777 
-    1330    1283    -3.266775 
-    1330    1330    -41.064603 
-    1330    1331    46.264109 
-    1330    1334    -0.532151 
-    1330    2435    -0.289675 
-    1331    225    -0.001949 
-    1331    226    -1.475347 
-    1331    227    -2.493926 
-    1331    1281    -0.014389 
-    1331    1282    -1.000716 
-    1331    1283    -1.691610 
-    1331    1326    -0.001805 
-    1331    1327    -1.366247 
-    1331    1328    -2.309504 
-    1331    1329    0.026183 
-    1331    1330    8.150742 
-    1331    1331    13.778014 
-    1331    1332    -0.000955 
-    1331    1333    -1.293603 
-    1331    1334    -2.186705 
-    1331    1377    -0.001783 
-    1331    1378    -1.349733 
-    1331    1379    -2.281588 
-    1331    2433    -0.004654 
-    1331    2434    -1.660118 
-    1331    2435    -2.806263 
-    1332    228    -0.117569 
-    1332    1284    -0.748431 
-    1332    1285    12.460168 
-    1332    1286    21.062655 
-    1332    1329    -0.054021 
-    1332    1332    222.783560 
-    1332    1333    -144.551200 
-    1332    1334    -244.349210 
-    1332    1335    -0.079318 
-    1332    1336    2.550029 
-    1332    1337    4.310569 
-    1332    1380    -0.090344 
-    1332    2436    -0.220194 
-    1332    2437    1.111985 
-    1332    2438    1.879698 
-    1333    1286    -2.959741 
-    1333    1333    -41.118626 
-    1333    1334    36.879671 
-    1333    1337    -0.668743 
-    1333    2438    -0.281781 
-    1334    228    -0.001227 
-    1334    229    -1.661456 
-    1334    230    -2.808524 
-    1334    1284    -0.006053 
-    1334    1285    -1.040412 
-    1334    1286    -1.758712 
-    1334    1329    -0.000955 
-    1334    1330    -1.293603 
-    1334    1331    -2.186705 
-    1334    1332    0.013701 
-    1334    1333    8.386635 
-    1334    1334    14.176761 
-    1334    1335    -0.000557 
-    1334    1336    -1.220782 
-    1334    1337    -2.063611 
-    1334    1380    -0.000943 
-    1334    1381    -1.276815 
-    1334    1382    -2.158327 
-    1334    2436    -0.003396 
-    1334    2437    -1.888992 
-    1334    2438    -3.193149 
-    1335    231    -0.080340 
-    1335    1287    -0.450624 
-    1335    1288    11.194629 
-    1335    1289    18.923400 
-    1335    1332    -0.053377 
-    1335    1335    205.934010 
-    1335    1336    -133.892360 
-    1335    1337    -226.331640 
-    1335    1338    -0.061814 
-    1335    1339    2.885494 
-    1335    1340    4.877635 
-    1335    1383    -0.052630 
-    1335    2439    -0.156347 
-    1335    2440    0.798596 
-    1335    2441    1.349947 
-    1336    1289    -2.749017 
-    1336    1336    -38.434575 
-    1336    1337    34.516930 
-    1336    1340    -0.768328 
-    1336    2441    -0.204220 
-    1337    231    -0.000838 
-    1337    232    -1.837569 
-    1337    233    -3.106227 
-    1337    1287    -0.002778 
-    1337    1288    -1.032339 
-    1337    1289    -1.745066 
-    1337    1332    -0.000557 
-    1337    1333    -1.220782 
-    1337    1334    -2.063611 
-    1337    1335    0.007119 
-    1337    1336    8.568902 
-    1337    1337    14.484871 
-    1337    1338    -0.000338 
-    1337    1339    -1.145250 
-    1337    1340    -1.935929 
-    1337    1383    -0.000549 
-    1337    1384    -1.203840 
-    1337    1385    -2.034972 
-    1337    2439    -0.001547 
-    1337    2440    -2.124845 
-    1337    2441    -3.591837 
-    1338    234    -0.057366 
-    1338    1290    -0.358051 
-    1338    1291    9.668961 
-    1338    1292    16.344398 
-    1338    1335    -0.032430 
-    1338    1338    189.493530 
-    1338    1339    -122.951360 
-    1338    1340    -207.836830 
-    1338    1341    -0.039817 
-    1338    1342    2.849603 
-    1338    1343    4.816969 
-    1338    1386    -0.031941 
-    1338    2442    -0.127706 
-    1338    2443    0.671867 
-    1338    2444    1.135723 
-    1339    1292    -2.440966 
-    1339    1339    -35.577035 
-    1339    1340    31.890305 
-    1339    1343    -0.772932 
-    1339    2444    -0.174866 
-    1340    234    -0.000599 
-    1340    235    -2.025941 
-    1340    236    -3.424648 
-    1340    1290    -0.001856 
-    1340    1291    -0.975122 
-    1340    1292    -1.648345 
-    1340    1335    -0.000338 
-    1340    1336    -1.145250 
-    1340    1337    -1.935929 
-    1340    1338    0.004961 
-    1340    1339    8.714197 
-    1340    1340    14.730469 
-    1340    1341    -0.000113 
-    1340    1342    -1.087564 
-    1340    1343    -1.838419 
-    1340    1386    -0.000333 
-    1340    1387    -1.128097 
-    1340    1388    -1.906933 
-    1340    2442    -0.001262 
-    1340    2443    -2.348264 
-    1340    2444    -3.969503 
-    1341    237    -0.035585 
-    1341    1293    -0.288754 
-    1341    1294    8.056114 
-    1341    1295    13.618055 
-    1341    1338    -0.010791 
-    1341    1341    178.430310 
-    1341    1342    -112.102070 
-    1341    1343    -189.497330 
-    1341    1389    -0.010611 
-    1341    2445    -0.085011 
-    1341    2446    0.629183 
-    1341    2447    1.063571 
-    1342    1295    -2.064527 
-    1342    1342    -33.750151 
-    1342    1343    29.257887 
-    1342    2447    -0.167099 
-    1343    237    -0.000010 
-    1343    238    -2.188966 
-    1343    239    -3.700229 
-    1343    1293    -0.001382 
-    1343    1294    -0.930779 
-    1343    1295    -1.573388 
-    1343    1338    -0.000113 
-    1343    1339    -1.087564 
-    1343    1340    -1.838419 
-    1343    1341    0.002859 
-    1343    1342    7.822530 
-    1343    1343    13.223205 
-    1343    1389    -0.000111 
-    1343    1390    -1.069595 
-    1343    1391    -1.808043 
-    1343    2445    -0.000821 
-    1343    2446    -2.541870 
-    1343    2447    -4.296778 
-    1344    1344    1.000000 
-    1345    1345    1.000000 
-    1346    1346    1.000000 
-    1347    1347    1.000000 
-    1348    1348    1.000000 
-    1349    1349    1.000000 
-    1350    1350    1.000000 
-    1351    1351    1.000000 
-    1352    1352    1.000000 
-    1353    1353    1.000000 
-    1354    1354    1.000000 
-    1355    1355    1.000000 
-    1356    1356    1.000000 
-    1357    1357    1.000000 
-    1358    1358    1.000000 
-    1359    255    -0.019741 
-    1359    1311    -0.532505 
-    1359    1312    14.275476 
-    1359    1313    24.131264 
-    1359    1359    270.466630 
-    1359    1360    -171.895190 
-    1359    1361    -290.571620 
-    1359    1362    -0.033909 
-    1359    1407    -0.033845 
-    1359    2463    -0.098766 
-    1359    2464    0.953137 
-    1359    2465    1.611183 
-    1360    1313    -3.595468 
-    1360    1360    -46.745499 
-    1360    1361    51.757860 
-    1360    2465    -0.247367 
-    1361    255    -0.000008 
-    1361    256    -1.426136 
-    1361    257    -2.410741 
-    1361    1311    -0.002819 
-    1361    1312    -1.432232 
-    1361    1313    -2.421044 
-    1361    1359    0.005115 
-    1361    1360    7.663963 
-    1361    1361    12.955162 
-    1361    1362    -0.000354 
-    1361    1363    -1.582759 
-    1361    1364    -2.675496 
-    1361    1407    -0.000353 
-    1361    1408    -1.579929 
-    1361    1409    -2.670712 
-    1361    2463    -0.000930 
-    1361    2464    -1.637231 
-    1361    2465    -2.767574 
-    1362    258    -0.005120 
-    1362    1314    -0.550277 
-    1362    1315    14.143033 
-    1362    1316    23.907365 
-    1362    1359    -0.037652 
-    1362    1360    0.366243 
-    1362    1361    0.619097 
-    1362    1362    270.604960 
-    1362    1363    -172.285860 
-    1362    1364    -291.231770 
-    1362    1365    -0.049716 
-    1362    1410    -0.049607 
-    1362    2466    -0.117061 
-    1362    2467    1.076642 
-    1362    2468    1.819955 
-    1363    1316    -3.527911 
-    1363    1361    -0.098194 
-    1363    1363    -50.782874 
-    1363    1364    44.566443 
-    1363    2468    -0.276454 
-    1364    258    -0.000008 
-    1364    259    -1.411688 
-    1364    260    -2.386316 
-    1364    1314    -0.003181 
-    1364    1315    -1.418974 
-    1364    1316    -2.398632 
-    1364    1359    -0.000354 
-    1364    1360    -1.582759 
-    1364    1361    -2.675496 
-    1364    1362    0.006347 
-    1364    1363    9.168995 
-    1364    1364    15.499259 
-    1364    1365    -0.000519 
-    1364    1366    -1.566579 
-    1364    1367    -2.648142 
-    1364    1410    -0.000518 
-    1364    1411    -1.563319 
-    1364    1412    -2.642632 
-    1364    2466    -0.001107 
-    1364    2467    -1.620021 
-    1364    2468    -2.738482 
-    1365    261    -0.066178 
-    1365    1317    -0.596990 
-    1365    1318    14.403206 
-    1365    1319    24.347179 
-    1365    1362    -0.054179 
-    1365    1363    0.436546 
-    1365    1364    0.737937 
-    1365    1365    270.888870 
-    1365    1366    -172.675780 
-    1365    1367    -291.891140 
-    1365    1368    -0.073436 
-    1365    1413    -0.073231 
-    1365    2469    -0.120190 
-    1365    2470    1.106324 
-    1365    2471    1.870129 
-    1366    1319    -3.525265 
-    1366    1364    -0.115845 
-    1366    1366    -50.522390 
-    1366    1367    44.401261 
-    1366    2471    -0.288300 
-    1367    261    -0.000691 
-    1367    262    -1.390058 
-    1367    263    -2.349753 
-    1367    1317    -0.003880 
-    1367    1318    -1.392436 
-    1367    1319    -2.353775 
-    1367    1362    -0.000519 
-    1367    1363    -1.566579 
-    1367    1364    -2.648142 
-    1367    1365    0.008925 
-    1367    1366    9.025045 
-    1367    1367    15.255934 
-    1367    1368    -0.000766 
-    1367    1369    -1.542398 
-    1367    1370    -2.607269 
-    1367    1413    -0.000764 
-    1367    1414    -1.538263 
-    1367    1415    -2.600280 
-    1367    2469    -0.001629 
-    1367    2470    -1.589686 
-    1367    2471    -2.687205 
-    1368    264    -0.073306 
-    1368    1320    -0.765819 
-    1368    1321    14.291331 
-    1368    1322    24.158050 
-    1368    1365    -0.075229 
-    1368    1366    0.176036 
-    1368    1367    0.297571 
-    1368    1368    271.020690 
-    1368    1369    -173.093850 
-    1368    1370    -292.597670 
-    1368    1371    -0.093439 
-    1368    1372    0.413684 
-    1368    1373    0.699292 
-    1368    1416    -0.081142 
-    1368    2472    -0.139911 
-    1368    2473    1.053118 
-    1368    2474    1.780189 
-    1369    1322    -3.593630 
-    1369    1367    -0.045989 
-    1369    1369    -50.435532 
-    1369    1370    44.420332 
-    1369    1373    -0.106940 
-    1369    2474    -0.271979 
-    1370    264    -0.000765 
-    1370    265    -1.382738 
-    1370    266    -2.337379 
-    1370    1320    -0.004256 
-    1370    1321    -1.379243 
-    1370    1322    -2.331471 
-    1370    1365    -0.000766 
-    1370    1366    -1.542398 
-    1370    1367    -2.607269 
-    1370    1368    0.010248 
-    1370    1369    8.942069 
-    1370    1370    15.115667 
-    1370    1371    -0.000931 
-    1370    1372    -1.526023 
-    1370    1373    -2.579590 
-    1370    1416    -0.000847 
-    1370    1417    -1.530604 
-    1370    1418    -2.587332 
-    1370    2472    -0.002002 
-    1370    2473    -1.575446 
-    1370    2474    -2.663132 
-    1371    267    -0.080442 
-    1371    1323    -0.781122 
-    1371    1324    14.659879 
-    1371    1325    24.781060 
-    1371    1368    -0.089237 
-    1371    1371    271.071500 
-    1371    1372    -173.851720 
-    1371    1373    -293.878950 
-    1371    1374    -0.075844 
-    1371    1375    1.013710 
-    1371    1376    1.713575 
-    1371    1419    -0.089023 
-    1371    2475    -0.157171 
-    1371    2476    0.910049 
-    1371    2477    1.538348 
-    1372    1325    -3.687047 
-    1372    1372    -50.348460 
-    1372    1373    44.526891 
-    1372    1376    -0.266225 
-    1372    2477    -0.232916 
-    1373    267    -0.000840 
-    1373    268    -1.375697 
-    1373    269    -2.325478 
-    1373    1323    -0.004245 
-    1373    1324    -1.379939 
-    1373    1325    -2.332650 
-    1373    1368    -0.000931 
-    1373    1369    -1.526023 
-    1373    1370    -2.579590 
-    1373    1371    0.010688 
-    1373    1372    8.921560 
-    1373    1373    15.081003 
-    1373    1374    -0.000684 
-    1373    1375    -1.550218 
-    1373    1376    -2.620486 
-    1373    1419    -0.000929 
-    1373    1420    -1.522509 
-    1373    1421    -2.573649 
-    1373    2475    -0.002374 
-    1373    2476    -1.561568 
-    1373    2477    -2.639675 
-    1374    270    -0.059008 
-    1374    1326    -0.577190 
-    1374    1327    15.059125 
-    1374    1328    25.455928 
-    1374    1371    -0.065512 
-    1374    1374    270.771480 
-    1374    1375    -174.288900 
-    1374    1376    -294.617730 
-    1374    1377    -0.058312 
-    1374    1378    1.697512 
-    1374    1379    2.869474 
-    1374    1422    -0.065386 
-    1374    2478    -0.130413 
-    1374    2479    0.744067 
-    1374    2480    1.257770 
-    1375    1328    -3.743923 
-    1375    1375    -50.608681 
-    1375    1376    44.916084 
-    1375    1379    -0.452639 
-    1375    2480    -0.189022 
-    1376    270    -0.000616 
-    1376    271    -1.396409 
-    1376    272    -2.360487 
-    1376    1326    -0.003239 
-    1376    1327    -1.386267 
-    1376    1328    -2.343345 
-    1376    1371    -0.000684 
-    1376    1372    -1.550218 
-    1376    1373    -2.620486 
-    1376    1374    0.007602 
-    1376    1375    9.013271 
-    1376    1376    15.236023 
-    1376    1377    -0.000428 
-    1376    1378    -1.525225 
-    1376    1379    -2.578241 
-    1376    1422    -0.000682 
-    1376    1423    -1.547405 
-    1376    1424    -2.615731 
-    1376    2478    -0.001282 
-    1376    2479    -1.602111 
-    1376    2480    -2.708207 
-    1377    273    -0.013840 
-    1377    1329    -0.472033 
-    1377    1330    14.196280 
-    1377    1331    23.997392 
-    1377    1374    -0.041027 
-    1377    1377    254.255030 
-    1377    1378    -164.917760 
-    1377    1379    -278.776990 
-    1377    1380    -0.034338 
-    1377    1381    2.364468 
-    1377    1382    3.996894 
-    1377    1425    -0.040960 
-    1377    2481    -0.108002 
-    1377    2482    0.697585 
-    1377    2483    1.179198 
-    1378    1331    -3.659658 
-    1378    1378    -47.810756 
-    1378    1379    42.765198 
-    1378    1382    -0.643236 
-    1378    2483    -0.180385 
-    1379    273    -0.000008 
-    1379    274    -1.508930 
-    1379    275    -2.550695 
-    1379    1329    -0.001783 
-    1379    1330    -1.349733 
-    1379    1331    -2.281588 
-    1379    1374    -0.000428 
-    1379    1375    -1.525225 
-    1379    1376    -2.578241 
-    1379    1377    0.004424 
-    1379    1378    9.107025 
-    1379    1379    15.394514 
-    1379    1380    -0.000107 
-    1379    1381    -1.459653 
-    1379    1382    -2.467395 
-    1379    1425    -0.000427 
-    1379    1426    -1.522914 
-    1379    1427    -2.574334 
-    1379    2481    -0.001053 
-    1379    2482    -1.735247 
-    1379    2483    -2.933261 
-    1380    276    -0.045514 
-    1380    1332    -0.226810 
-    1380    1333    13.404257 
-    1380    1334    22.658544 
-    1380    1377    -0.010247 
-    1380    1380    237.829660 
-    1380    1381    -154.804890 
-    1380    1382    -261.682040 
-    1380    1383    -0.044043 
-    1380    1384    3.014811 
-    1380    1385    5.096236 
-    1380    1428    -0.010124 
-    1380    2484    -0.072670 
-    1380    2485    0.609343 
-    1380    2486    1.030032 
-    1381    1334    -3.424427 
-    1381    1381    -45.058371 
-    1381    1382    40.473282 
-    1381    1385    -0.825646 
-    1381    2486    -0.161168 
-    1382    276    -0.000008 
-    1382    277    -1.644991 
-    1382    278    -2.780692 
-    1382    1332    -0.000943 
-    1382    1333    -1.276815 
-    1382    1334    -2.158327 
-    1382    1377    -0.000107 
-    1382    1378    -1.459653 
-    1382    1379    -2.467395 
-    1382    1380    0.002426 
-    1382    1381    9.080460 
-    1382    1382    15.349602 
-    1382    1383    -0.000007 
-    1382    1384    -1.354923 
-    1382    1385    -2.290362 
-    1382    1428    -0.000106 
-    1382    1429    -1.442356 
-    1382    1430    -2.438158 
-    1382    2484    -0.000694 
-    1382    2485    -1.896703 
-    1382    2486    -3.206184 
-    1383    279    -0.058361 
-    1383    1335    -0.163286 
-    1383    1336    12.028529 
-    1383    1337    20.333025 
-    1383    1380    -0.000659 
-    1383    1383    216.127470 
-    1383    1384    -141.902750 
-    1383    1385    -239.872410 
-    1383    1386    -0.058248 
-    1383    1387    3.914268 
-    1383    1388    6.616675 
-    1383    1431    -0.000643 
-    1383    2487    -0.001051 
-    1383    2488    0.499406 
-    1383    2489    0.844195 
-    1384    1337    -3.154471 
-    1384    1384    -41.054366 
-    1384    1385    37.214192 
-    1384    1388    -1.071987 
-    1384    2489    -0.134655 
-    1385    279    -0.000009 
-    1385    280    -1.822437 
-    1385    281    -3.080647 
-    1385    1335    -0.000549 
-    1385    1336    -1.203840 
-    1385    1337    -2.034972 
-    1385    1380    -0.000007 
-    1385    1381    -1.354923 
-    1385    1382    -2.290362 
-    1385    1383    0.001094 
-    1385    1384    9.078728 
-    1385    1385    15.346681 
-    1385    1386    -0.000006 
-    1385    1387    -1.242885 
-    1385    1388    -2.100971 
-    1385    1431    -0.000007 
-    1385    1432    -1.322312 
-    1385    1433    -2.235236 
-    1385    2487    -0.000011 
-    1385    2488    -2.127758 
-    1385    2489    -3.596762 
-    1386    282    -0.059577 
-    1386    1338    -0.109177 
-    1386    1339    10.289212 
-    1386    1340    17.392873 
-    1386    1383    -0.000591 
-    1386    1386    199.967900 
-    1386    1387    -133.854250 
-    1386    1388    -226.267070 
-    1386    1389    -0.093439 
-    1386    1390    6.964126 
-    1386    1391    11.772159 
-    1386    1434    -0.000575 
-    1386    2490    -0.001111 
-    1386    2491    0.380413 
-    1386    2492    0.643049 
-    1387    1340    -2.739737 
-    1387    1387    -37.975522 
-    1387    1388    35.133565 
-    1387    1391    -1.907273 
-    1387    2492    -0.104182 
-    1388    282    -0.000010 
-    1388    283    -1.970592 
-    1388    284    -3.331087 
-    1388    1338    -0.000333 
-    1388    1339    -1.128097 
-    1388    1340    -1.906933 
-    1388    1383    -0.000006 
-    1388    1384    -1.242885 
-    1388    1385    -2.100971 
-    1388    1386    0.000839 
-    1388    1387    9.038509 
-    1388    1388    15.278686 
-    1388    1389    -0.000005 
-    1388    1390    -1.145652 
-    1388    1391    -1.936611 
-    1388    1434    -0.000006 
-    1388    1435    -1.209887 
-    1388    1436    -2.045192 
-    1388    2490    -0.000012 
-    1388    2491    -2.337165 
-    1388    2492    -3.950741 
-    1389    285    -0.059780 
-    1389    1341    -0.023449 
-    1389    1342    5.814167 
-    1389    1343    9.828268 
-    1389    1386    -0.000525 
-    1389    1389    183.697620 
-    1389    1390    -113.148110 
-    1389    1391    -191.265560 
-    1389    2493    -0.001167 
-    1389    2494    0.371386 
-    1389    2495    0.627791 
-    1390    1343    -1.577045 
-    1390    1390    -34.895594 
-    1390    1391    29.589117 
-    1390    2495    -0.101712 
-    1391    285    -0.000010 
-    1391    286    -2.145576 
-    1391    287    -3.626882 
-    1391    1341    -0.000111 
-    1391    1342    -1.069595 
-    1391    1343    -1.808043 
-    1391    1386    -0.000005 
-    1391    1387    -1.145652 
-    1391    1388    -1.936611 
-    1391    1389    0.000568 
-    1391    1390    6.909406 
-    1391    1391    11.679659 
-    1391    2493    -0.000012 
-    1391    2494    -2.544696 
-    1391    2495    -4.301554 
-    1392    1392    1.000000 
-    1393    1393    1.000000 
-    1394    1394    1.000000 
-    1395    1395    1.000000 
-    1396    1396    1.000000 
-    1397    1397    1.000000 
-    1398    1398    1.000000 
-    1399    1399    1.000000 
-    1400    1400    1.000000 
-    1401    1401    1.000000 
-    1402    1402    1.000000 
-    1403    1403    1.000000 
-    1404    1404    1.000000 
-    1405    1405    1.000000 
-    1406    1406    1.000000 
-    1407    303    -0.055206 
-    1407    1359    -0.153775 
-    1407    1360    14.741648 
-    1407    1361    24.919282 
-    1407    1407    270.064660 
-    1407    1408    -172.594160 
-    1407    1409    -291.753170 
-    1407    1410    -0.000833 
-    1407    1455    -0.000830 
-    1407    2511    -0.000891 
-    1407    2512    0.612420 
-    1407    2513    1.035235 
-    1408    1361    -3.952417 
-    1408    1408    -47.092408 
-    1408    1409    52.338123 
-    1408    2513    -0.165668 
-    1409    303    -0.000008 
-    1409    304    -1.458242 
-    1409    305    -2.465013 
-    1409    1359    -0.000353 
-    1409    1360    -1.579929 
-    1409    1361    -2.670712 
-    1409    1407    0.001019 
-    1409    1408    7.981249 
-    1409    1409    13.491503 
-    1409    1410    -0.000009 
-    1409    1411    -1.617043 
-    1409    1412    -2.733450 
-    1409    1455    -0.000009 
-    1409    1456    -1.611960 
-    1409    1457    -2.724858 
-    1409    2511    -0.000009 
-    1409    2512    -1.708351 
-    1409    2513    -2.887796 
-    1410    306    -0.055120 
-    1410    1362    -0.188162 
-    1410    1363    15.021144 
-    1410    1364    25.391720 
-    1410    1407    -0.023272 
-    1410    1408    0.650426 
-    1410    1409    1.099480 
-    1410    1410    270.064620 
-    1410    1411    -173.448240 
-    1410    1412    -293.196720 
-    1410    1413    -0.000838 
-    1410    1458    -0.000835 
-    1410    2514    -0.000897 
-    1410    2515    0.681539 
-    1410    2516    1.152073 
-    1411    1364    -3.986130 
-    1411    1409    -0.178123 
-    1411    1411    -51.330777 
-    1411    1412    45.408629 
-    1411    2516    -0.182495 
-    1412    306    -0.000008 
-    1412    307    -1.458976 
-    1412    308    -2.466251 
-    1412    1362    -0.000518 
-    1412    1363    -1.563319 
-    1412    1364    -2.642632 
-    1412    1407    -0.000009 
-    1412    1408    -1.617043 
-    1412    1409    -2.733450 
-    1412    1410    0.001192 
-    1412    1411    9.565780 
-    1412    1412    16.169985 
-    1412    1413    -0.000009 
-    1412    1414    -1.617072 
-    1412    1415    -2.733497 
-    1412    1458    -0.000009 
-    1412    1459    -1.611772 
-    1412    1460    -2.724537 
-    1412    2514    -0.000009 
-    1412    2515    -1.691876 
-    1412    2516    -2.859945 
-    1413    309    -0.053672 
-    1413    1365    -0.232176 
-    1413    1366    15.619168 
-    1413    1367    26.402642 
-    1413    1410    -0.025816 
-    1413    1411    1.043971 
-    1413    1412    1.764727 
-    1413    1413    270.125960 
-    1413    1414    -174.246250 
-    1413    1415    -294.545860 
-    1413    1416    -0.002311 
-    1413    1461    -0.002303 
-    1413    2517    -0.062840 
-    1413    2518    0.740867 
-    1413    2519    1.252361 
-    1414    1367    -4.080522 
-    1414    1412    -0.285896 
-    1414    1414    -51.313295 
-    1414    1415    45.613128 
-    1414    2519    -0.196347 
-    1415    309    -0.000008 
-    1415    310    -1.458317 
-    1415    311    -2.465140 
-    1415    1365    -0.000764 
-    1415    1366    -1.538263 
-    1415    1367    -2.600280 
-    1415    1410    -0.000009 
-    1415    1411    -1.617072 
-    1415    1412    -2.733497 
-    1415    1413    0.002039 
-    1415    1414    9.520356 
-    1415    1415    16.093208 
-    1415    1416    -0.000024 
-    1415    1417    -1.615606 
-    1415    1418    -2.731020 
-    1415    1461    -0.000024 
-    1415    1462    -1.610040 
-    1415    1463    -2.721612 
-    1415    2517    -0.000578 
-    1415    2518    -1.675338 
-    1415    2519    -2.831991 
-    1416    312    -0.046163 
-    1416    1368    -0.246531 
-    1416    1369    16.251500 
-    1416    1370    27.471520 
-    1416    1413    -0.010518 
-    1416    1414    0.805567 
-    1416    1415    1.361731 
-    1416    1416    270.179490 
-    1416    1417    -174.635750 
-    1416    1418    -295.204080 
-    1416    1419    -0.010217 
-    1416    1464    -0.010180 
-    1416    2520    -0.071349 
-    1416    2521    0.748089 
-    1416    2522    1.264569 
-    1417    1370    -4.223402 
-    1417    1415    -0.220402 
-    1417    1417    -51.226801 
-    1417    1418    45.626707 
-    1417    2522    -0.197234 
-    1418    312    -0.000008 
-    1418    313    -1.450162 
-    1418    314    -2.451353 
-    1418    1368    -0.000847 
-    1418    1369    -1.530604 
-    1418    1370    -2.587332 
-    1418    1413    -0.000024 
-    1418    1414    -1.615606 
-    1418    1415    -2.731020 
-    1418    1416    0.002394 
-    1418    1417    9.477172 
-    1418    1418    16.020203 
-    1418    1419    -0.000107 
-    1418    1420    -1.607488 
-    1418    1421    -2.717295 
-    1418    1464    -0.000106 
-    1418    1465    -1.601910 
-    1418    1466    -2.707867 
-    1418    2520    -0.000666 
-    1418    2521    -1.665693 
-    1418    2522    -2.815685 
-    1419    315    -0.039117 
-    1419    1371    -0.259061 
-    1419    1372    16.708277 
-    1419    1373    28.243671 
-    1419    1416    -0.010675 
-    1419    1417    0.044262 
-    1419    1418    0.074820 
-    1419    1419    270.227190 
-    1419    1420    -175.279660 
-    1419    1421    -296.292740 
-    1419    1422    -0.020434 
-    1419    1423    1.003971 
-    1419    1424    1.697111 
-    1419    1467    -0.018055 
-    1419    2523    -0.079485 
-    1419    2524    0.715693 
-    1419    2525    1.209808 
-    1420    1373    -4.319193 
-    1420    1418    -0.012049 
-    1420    1420    -51.139888 
-    1420    1421    45.709042 
-    1420    1424    -0.273308 
-    1420    2525    -0.187710 
-    1421    315    -0.000008 
-    1421    316    -1.442837 
-    1421    317    -2.438972 
-    1421    1371    -0.000929 
-    1421    1372    -1.522509 
-    1421    1373    -2.573649 
-    1421    1416    -0.000107 
-    1421    1417    -1.607488 
-    1421    1418    -2.717295 
-    1421    1419    0.002734 
-    1421    1420    9.436686 
-    1421    1421    15.951770 
-    1421    1422    -0.000107 
-    1421    1423    -1.607328 
-    1421    1424    -2.717025 
-    1421    1467    -0.000188 
-    1421    1468    -1.593823 
-    1421    1469    -2.694198 
-    1421    2523    -0.000754 
-    1421    2524    -1.657002 
-    1421    2525    -2.800996 
-    1422    318    -0.046988 
-    1422    1374    -0.235601 
-    1422    1375    16.724953 
-    1422    1376    28.271838 
-    1422    1419    -0.010211 
-    1422    1422    270.179700 
-    1422    1423    -176.216070 
-    1422    1424    -297.875450 
-    1422    1425    -0.033836 
-    1422    1426    1.831802 
-    1422    1427    3.096478 
-    1422    1470    -0.010175 
-    1422    2526    -0.070592 
-    1422    2527    0.675206 
-    1422    2528    1.141367 
-    1423    1376    -4.392381 
-    1423    1423    -51.226311 
-    1423    1424    46.058279 
-    1423    1427    -0.501648 
-    1423    2528    -0.178020 
-    1424    318    -0.000008 
-    1424    319    -1.450448 
-    1424    320    -2.451836 
-    1424    1374    -0.000682 
-    1424    1375    -1.547405 
-    1424    1376    -2.615731 
-    1424    1419    -0.000107 
-    1424    1420    -1.607328 
-    1424    1421    -2.717025 
-    1424    1422    0.002214 
-    1424    1423    9.495309 
-    1424    1424    16.050862 
-    1424    1425    -0.000009 
-    1424    1426    -1.616475 
-    1424    1427    -2.732490 
-    1424    1470    -0.000106 
-    1424    1471    -1.601910 
-    1424    1472    -2.707867 
-    1424    2526    -0.000666 
-    1424    2527    -1.666034 
-    1424    2528    -2.816262 
-    1425    321    -0.056476 
-    1425    1377    -0.191271 
-    1425    1378    16.134038 
-    1425    1379    27.272978 
-    1425    1422    -0.000835 
-    1425    1425    270.096680 
-    1425    1426    -176.388040 
-    1425    1427    -298.166340 
-    1425    1428    -0.066564 
-    1425    1429    2.561431 
-    1425    1430    4.329840 
-    1425    1473    -0.000833 
-    1425    2529    -0.000894 
-    1425    2530    0.581693 
-    1425    2531    0.983293 
-    1426    1379    -4.302112 
-    1426    1426    -51.330268 
-    1426    1427    46.214953 
-    1426    1430    -0.701466 
-    1426    2531    -0.155759 
-    1427    321    -0.000008 
-    1427    322    -1.458776 
-    1427    323    -2.465915 
-    1427    1377    -0.000427 
-    1427    1378    -1.522914 
-    1427    1379    -2.574334 
-    1427    1422    -0.000009 
-    1427    1423    -1.616475 
-    1427    1424    -2.732490 
-    1427    1425    0.001102 
-    1427    1426    9.457362 
-    1427    1427    15.986723 
-    1427    1428    -0.000008 
-    1427    1429    -1.549054 
-    1427    1430    -2.618519 
-    1427    1473    -0.000009 
-    1427    1474    -1.612436 
-    1427    1475    -2.725662 
-    1427    2529    -0.000009 
-    1427    2530    -1.691985 
-    1427    2531    -2.860131 
-    1428    324    -0.057097 
-    1428    1380    -0.111799 
-    1428    1381    14.912651 
-    1428    1382    25.208332 
-    1428    1425    -0.000788 
-    1428    1428    248.539260 
-    1428    1429    -162.953950 
-    1428    1430    -275.457190 
-    1428    1431    -0.058069 
-    1428    1432    2.741661 
-    1428    1433    4.634503 
-    1428    1476    -0.000763 
-    1428    2532    -0.000956 
-    1428    2533    0.464518 
-    1428    2534    0.785221 
-    1429    1382    -4.056874 
-    1429    1429    -47.227537 
-    1429    1430    42.694757 
-    1429    1433    -0.750827 
-    1429    2534    -0.127211 
-    1430    324    -0.000008 
-    1430    325    -1.584564 
-    1430    326    -2.678545 
-    1430    1380    -0.000106 
-    1430    1381    -1.442356 
-    1430    1382    -2.438158 
-    1430    1425    -0.000008 
-    1430    1426    -1.549054 
-    1430    1427    -2.618519 
-    1430    1428    0.000729 
-    1430    1429    9.381003 
-    1430    1430    15.857638 
-    1430    1431    -0.000007 
-    1430    1432    -1.419835 
-    1430    1433    -2.400088 
-    1430    1476    -0.000008 
-    1430    1477    -1.500528 
-    1430    1478    -2.536490 
-    1430    2532    -0.000010 
-    1430    2533    -1.879401 
-    1430    2534    -3.176937 
-    1431    327    -0.057996 
-    1431    1383    -0.082149 
-    1431    1384    13.969117 
-    1431    1385    23.613395 
-    1431    1428    -0.000715 
-    1431    1431    226.911150 
-    1431    1432    -149.009340 
-    1431    1433    -251.885390 
-    1431    1434    -0.044447 
-    1431    1435    2.294259 
-    1431    1436    3.878212 
-    1431    1479    -0.000698 
-    1431    2535    -0.001037 
-    1431    2536    0.436219 
-    1431    2537    0.737384 
-    1432    1385    -3.825630 
-    1432    1432    -43.123039 
-    1432    1433    39.038658 
-    1432    1436    -0.628305 
-    1432    2537    -0.119462 
-    1433    327    -0.000009 
-    1433    328    -1.736001 
-    1433    329    -2.934535 
-    1433    1383    -0.000007 
-    1433    1384    -1.322312 
-    1433    1385    -2.235236 
-    1433    1428    -0.000007 
-    1433    1429    -1.419835 
-    1433    1430    -2.400088 
-    1433    1431    0.000578 
-    1433    1432    9.219164 
-    1433    1433    15.584074 
-    1433    1434    -0.000007 
-    1433    1435    -1.290339 
-    1433    1436    -2.181188 
-    1433    1479    -0.000007 
-    1433    1480    -1.387146 
-    1433    1481    -2.344831 
-    1433    2535    -0.000011 
-    1433    2536    -2.058723 
-    1433    2537    -3.480066 
-    1434    330    -0.058561 
-    1434    1386    -0.090194 
-    1434    1387    14.440091 
-    1434    1388    24.409514 
-    1434    1431    -0.000644 
-    1434    1434    205.294530 
-    1434    1435    -134.596750 
-    1434    1436    -227.522180 
-    1434    1482    -0.000628 
-    1434    2538    -0.001136 
-    1434    2539    0.452153 
-    1434    2540    0.764319 
-    1435    1388    -3.954655 
-    1435    1435    -39.017438 
-    1435    1436    35.257103 
-    1435    2540    -0.123826 
-    1436    330    -0.000010 
-    1436    331    -1.918772 
-    1436    332    -3.243489 
-    1436    1386    -0.000006 
-    1436    1387    -1.209887 
-    1436    1388    -2.045192 
-    1436    1431    -0.000007 
-    1436    1432    -1.290339 
-    1436    1433    -2.181188 
-    1436    1434    0.000521 
-    1436    1435    7.955726 
-    1436    1436    13.448350 
-    1436    1482    -0.000007 
-    1436    1483    -1.256884 
-    1436    1484    -2.124636 
-    1436    2538    -0.000012 
-    1436    2539    -2.275492 
-    1436    2540    -3.846489 
-    1437    1437    1.000000 
-    1438    1438    1.000000 
-    1439    1439    1.000000 
-    1440    1440    1.000000 
-    1441    1441    1.000000 
-    1442    1442    1.000000 
-    1443    1443    1.000000 
-    1444    1444    1.000000 
-    1445    1445    1.000000 
-    1446    1446    1.000000 
-    1447    1447    1.000000 
-    1448    1448    1.000000 
-    1449    1449    1.000000 
-    1450    1450    1.000000 
-    1451    1451    1.000000 
-    1452    1452    1.000000 
-    1453    1453    1.000000 
-    1454    1454    1.000000 
-    1455    351    -0.056169 
-    1455    1407    -0.081983 
-    1455    1408    15.723926 
-    1455    1409    26.579724 
-    1455    1455    270.018340 
-    1455    1456    -173.866800 
-    1455    1457    -293.904440 
-    1455    1458    -0.000864 
-    1455    1503    -0.000822 
-    1455    2559    -0.000926 
-    1455    2560    0.530999 
-    1455    2561    0.897600 
-    1456    1409    -4.306080 
-    1456    1456    -47.111932 
-    1456    1457    52.638811 
-    1456    2561    -0.145414 
-    1457    351    -0.000008 
-    1457    352    -1.460362 
-    1457    353    -2.468596 
-    1457    1407    -0.000009 
-    1457    1408    -1.611960 
-    1457    1409    -2.724858 
-    1457    1455    0.000675 
-    1457    1456    7.967980 
-    1457    1457    13.469073 
-    1457    1458    -0.000009 
-    1457    1459    -1.617465 
-    1457    1460    -2.734163 
-    1457    1503    -0.000009 
-    1457    1504    -1.539562 
-    1457    1505    -2.602475 
-    1457    2559    -0.000010 
-    1457    2560    -1.732900 
-    1457    2561    -2.929294 
-    1458    354    -0.055215 
-    1458    1410    -0.078662 
-    1458    1411    16.170540 
-    1458    1412    27.334664 
-    1458    1455    -0.019975 
-    1458    1456    1.100416 
-    1458    1457    1.860143 
-    1458    1458    270.036740 
-    1458    1459    -175.444050 
-    1458    1460    -296.570460 
-    1458    1461    -0.000867 
-    1458    1506    -0.000844 
-    1458    2562    -0.000928 
-    1458    2563    0.572969 
-    1458    2564    0.968546 
-    1459    1412    -4.428374 
-    1459    1457    -0.301349 
-    1459    1459    -51.350908 
-    1459    1460    45.905440 
-    1459    2564    -0.156907 
-    1460    354    -0.000008 
-    1460    355    -1.460166 
-    1460    356    -2.468263 
-    1460    1410    -0.000009 
-    1460    1411    -1.611772 
-    1460    1412    -2.724537 
-    1460    1455    -0.000009 
-    1460    1456    -1.617465 
-    1460    1457    -2.734163 
-    1460    1458    0.000685 
-    1460    1459    9.619876 
-    1460    1460    16.261429 
-    1460    1461    -0.000009 
-    1460    1462    -1.617400 
-    1460    1463    -2.734051 
-    1460    1506    -0.000009 
-    1460    1507    -1.575154 
-    1460    1508    -2.662638 
-    1460    2562    -0.000010 
-    1460    2563    -1.732188 
-    1460    2564    -2.928089 
-    1461    357    -0.053683 
-    1461    1413    -0.084097 
-    1461    1414    17.189845 
-    1461    1415    29.057715 
-    1461    1458    -0.029835 
-    1461    1459    2.069263 
-    1461    1460    3.497881 
-    1461    1461    270.067400 
-    1461    1462    -177.504510 
-    1461    1463    -300.053620 
-    1461    1464    -0.000871 
-    1461    1509    -0.000867 
-    1461    2565    -0.000933 
-    1461    2566    0.652848 
-    1461    2567    1.103574 
-    1462    1415    -4.703119 
-    1462    1460    -0.566666 
-    1462    1462    -51.350998 
-    1462    1463    46.469243 
-    1462    2567    -0.178781 
-    1463    357    -0.000008 
-    1463    358    -1.460094 
-    1463    359    -2.468143 
-    1463    1413    -0.000024 
-    1463    1414    -1.610040 
-    1463    1415    -2.721612 
-    1463    1458    -0.000009 
-    1463    1459    -1.617400 
-    1463    1460    -2.734051 
-    1463    1461    0.000701 
-    1463    1462    9.652102 
-    1463    1463    16.315911 
-    1463    1464    -0.000009 
-    1463    1465    -1.617388 
-    1463    1466    -2.734033 
-    1463    1509    -0.000009 
-    1463    1510    -1.609802 
-    1463    1511    -2.721210 
-    1463    2565    -0.000010 
-    1463    2566    -1.731647 
-    1463    2567    -2.927176 
-    1464    360    -0.052129 
-    1464    1416    -0.119096 
-    1464    1417    18.305960 
-    1464    1418    30.944375 
-    1464    1461    -0.036297 
-    1464    1462    1.926275 
-    1464    1463    3.256175 
-    1464    1464    270.067650 
-    1464    1465    -178.484220 
-    1464    1466    -301.709460 
-    1464    1467    -0.000877 
-    1464    1512    -0.000874 
-    1464    2568    -0.000940 
-    1464    2569    0.757945 
-    1464    2570    1.281230 
-    1465    1418    -4.983360 
-    1465    1463    -0.527508 
-    1465    1465    -51.349972 
-    1465    1466    46.739878 
-    1465    2570    -0.207560 
-    1466    360    -0.000008 
-    1466    361    -1.460875 
-    1466    362    -2.469460 
-    1466    1416    -0.000106 
-    1466    1417    -1.601910 
-    1466    1418    -2.707867 
-    1466    1461    -0.000009 
-    1466    1462    -1.617388 
-    1466    1463    -2.734033 
-    1466    1464    0.000783 
-    1466    1465    9.647286 
-    1466    1466    16.307760 
-    1466    1467    -0.000009 
-    1466    1468    -1.617430 
-    1466    1469    -2.734101 
-    1466    1512    -0.000009 
-    1466    1513    -1.611383 
-    1466    1514    -2.723879 
-    1466    2568    -0.000010 
-    1466    2569    -1.732570 
-    1466    2570    -2.928734 
-    1467    363    -0.051377 
-    1467    1419    -0.141919 
-    1467    1420    19.000849 
-    1467    1421    32.119036 
-    1467    1464    -0.016337 
-    1467    1465    0.741760 
-    1467    1466    1.253870 
-    1467    1467    270.071900 
-    1467    1468    -178.958390 
-    1467    1469    -302.511260 
-    1467    1470    -0.018954 
-    1467    1471    0.999028 
-    1467    1472    1.688756 
-    1467    1515    -0.000877 
-    1467    2571    -0.000943 
-    1467    2572    0.808856 
-    1467    2573    1.367290 
-    1468    1421    -5.146456 
-    1468    1466    -0.203129 
-    1468    1468    -51.349336 
-    1468    1469    46.871070 
-    1468    1472    -0.273582 
-    1468    2573    -0.221501 
-    1469    363    -0.000008 
-    1469    364    -1.460863 
-    1469    365    -2.469443 
-    1469    1419    -0.000188 
-    1469    1420    -1.593823 
-    1469    1421    -2.694198 
-    1469    1464    -0.000009 
-    1469    1465    -1.617430 
-    1469    1466    -2.734101 
-    1469    1467    0.000865 
-    1469    1468    9.639143 
-    1469    1469    16.294003 
-    1469    1470    -0.000009 
-    1469    1471    -1.617368 
-    1469    1472    -2.733998 
-    1469    1515    -0.000009 
-    1469    1516    -1.611376 
-    1469    1517    -2.723869 
-    1469    2571    -0.000010 
-    1469    2572    -1.732554 
-    1469    2573    -2.928709 
-    1470    366    -0.051991 
-    1470    1422    -0.126213 
-    1470    1423    19.005981 
-    1470    1424    32.127690 
-    1470    1467    -0.000876 
-    1470    1470    270.079450 
-    1470    1471    -179.650180 
-    1470    1472    -303.680460 
-    1470    1473    -0.041060 
-    1470    1474    2.394803 
-    1470    1475    4.048174 
-    1470    1518    -0.000873 
-    1470    2574    -0.000939 
-    1470    2575    0.765841 
-    1470    2576    1.294577 
-    1471    1424    -5.173942 
-    1471    1471    -51.349843 
-    1471    1472    47.059527 
-    1471    1475    -0.655814 
-    1471    2576    -0.209723 
-    1472    366    -0.000008 
-    1472    367    -1.460983 
-    1472    368    -2.469644 
-    1472    1422    -0.000106 
-    1472    1423    -1.601910 
-    1472    1424    -2.707867 
-    1472    1467    -0.000009 
-    1472    1468    -1.617368 
-    1472    1469    -2.733998 
-    1472    1470    0.000783 
-    1472    1471    9.647657 
-    1472    1472    16.308390 
-    1472    1473    -0.000009 
-    1472    1474    -1.617121 
-    1472    1475    -2.733582 
-    1472    1518    -0.000009 
-    1472    1519    -1.611847 
-    1472    1520    -2.724664 
-    1472    2574    -0.000010 
-    1472    2575    -1.732697 
-    1472    2576    -2.928949 
-    1473    369    -0.053475 
-    1473    1425    -0.109773 
-    1473    1426    18.456170 
-    1473    1427    31.198310 
-    1473    1470    -0.000870 
-    1473    1473    270.088650 
-    1473    1474    -179.769780 
-    1473    1475    -303.882830 
-    1473    1476    -0.061690 
-    1473    1477    3.020031 
-    1473    1478    5.105058 
-    1473    1521    -0.000867 
-    1473    2577    -0.000931 
-    1473    2578    0.690522 
-    1473    2579    1.167258 
-    1474    1427    -5.054313 
-    1474    1474    -51.350607 
-    1474    1475    47.090596 
-    1474    1478    -0.827036 
-    1474    2579    -0.189098 
-    1475    369    -0.000008 
-    1475    370    -1.460347 
-    1475    371    -2.468570 
-    1475    1425    -0.000009 
-    1475    1426    -1.612436 
-    1475    1427    -2.725662 
-    1475    1470    -0.000009 
-    1475    1471    -1.617121 
-    1475    1472    -2.733582 
-    1475    1473    0.000685 
-    1475    1474    9.606439 
-    1475    1475    16.238723 
-    1475    1476    -0.000009 
-    1475    1477    -1.566770 
-    1475    1478    -2.648466 
-    1475    1521    -0.000009 
-    1475    1522    -1.611892 
-    1475    1523    -2.724742 
-    1475    2577    -0.000010 
-    1475    2578    -1.732143 
-    1475    2579    -2.928014 
-    1476    372    -0.054844 
-    1476    1428    -0.107558 
-    1476    1429    16.763446 
-    1476    1430    28.336913 
-    1476    1473    -0.000835 
-    1476    1476    253.908400 
-    1476    1477    -168.780180 
-    1476    1478    -285.305840 
-    1476    1479    -0.069079 
-    1476    1480    3.228557 
-    1476    1481    5.457553 
-    1476    1524    -0.000825 
-    1476    2580    -0.000982 
-    1476    2581    0.663696 
-    1476    2582    1.121911 
-    1477    1430    -4.590788 
-    1477    1477    -48.271778 
-    1477    1478    44.204439 
-    1477    1481    -0.884145 
-    1477    2582    -0.181753 
-    1478    372    -0.000009 
-    1478    373    -1.552835 
-    1478    374    -2.624910 
-    1478    1428    -0.000008 
-    1478    1429    -1.500528 
-    1478    1430    -2.536490 
-    1478    1473    -0.000009 
-    1478    1474    -1.566770 
-    1478    1475    -2.648466 
-    1478    1476    0.000646 
-    1478    1477    9.483929 
-    1478    1478    16.031624 
-    1478    1479    -0.000008 
-    1478    1480    -1.469819 
-    1478    1481    -2.484581 
-    1478    1524    -0.000009 
-    1478    1525    -1.547082 
-    1478    1526    -2.615185 
-    1478    2580    -0.000010 
-    1478    2581    -1.841508 
-    1478    2582    -3.112884 
-    1479    375    -0.056319 
-    1479    1431    -0.090980 
-    1479    1432    15.127805 
-    1479    1433    25.572042 
-    1479    1476    -0.000776 
-    1479    1479    237.706160 
-    1479    1480    -156.883300 
-    1479    1481    -265.195530 
-    1479    1482    -0.047692 
-    1479    1483    2.505882 
-    1479    1484    4.235940 
-    1479    1527    -0.000766 
-    1479    2583    -0.001038 
-    1479    2584    0.585322 
-    1479    2585    0.989429 
-    1480    1433    -4.142879 
-    1480    1480    -45.193359 
-    1480    1481    41.068716 
-    1480    1484    -0.686243 
-    1480    2585    -0.160292 
-    1481    375    -0.000009 
-    1481    376    -1.657390 
-    1481    377    -2.801652 
-    1481    1431    -0.000007 
-    1481    1432    -1.387146 
-    1481    1433    -2.344831 
-    1481    1476    -0.000008 
-    1481    1477    -1.469819 
-    1481    1478    -2.484581 
-    1481    1479    0.000606 
-    1481    1480    9.290049 
-    1481    1481    15.703897 
-    1481    1482    -0.000007 
-    1481    1483    -1.355413 
-    1481    1484    -2.291188 
-    1481    1527    -0.000008 
-    1481    1528    -1.449741 
-    1481    1529    -2.450642 
-    1481    2583    -0.000011 
-    1481    2584    -1.965496 
-    1481    2585    -3.322474 
-    1482    378    -0.057319 
-    1482    1434    -0.081521 
-    1482    1435    13.617892 
-    1482    1436    23.019668 
-    1482    1479    -0.000710 
-    1482    1482    216.043540 
-    1482    1483    -140.206910 
-    1482    1484    -237.005610 
-    1482    1530    -0.000684 
-    1482    2586    -0.001135 
-    1482    2587    0.546028 
-    1482    2588    0.923005 
-    1483    1436    -3.729391 
-    1483    1483    -41.086240 
-    1483    1484    36.671012 
-    1483    2588    -0.149531 
-    1484    378    -0.000010 
-    1484    379    -1.826358 
-    1484    380    -3.087274 
-    1484    1434    -0.000007 
-    1484    1435    -1.256884 
-    1484    1436    -2.124636 
-    1484    1479    -0.000007 
-    1484    1480    -1.355413 
-    1484    1481    -2.291188 
-    1484    1482    0.000548 
-    1484    1483    7.914309 
-    1484    1484    13.378339 
-    1484    1530    -0.000007 
-    1484    1531    -1.305028 
-    1484    1532    -2.206018 
-    1484    2586    -0.000012 
-    1484    2587    -2.166039 
-    1484    2588    -3.661470 
-    1485    1485    1.000000 
-    1486    1486    1.000000 
-    1487    1487    1.000000 
-    1488    1488    1.000000 
-    1489    1489    1.000000 
-    1490    1490    1.000000 
-    1491    1491    1.000000 
-    1492    1492    1.000000 
-    1493    1493    1.000000 
-    1494    1494    1.000000 
-    1495    1495    1.000000 
-    1496    1496    1.000000 
-    1497    1497    1.000000 
-    1498    1498    1.000000 
-    1499    1499    1.000000 
-    1500    396    -0.057686 
-    1500    1500    237.516000 
-    1500    1501    -144.174440 
-    1500    1502    -243.712300 
-    1500    1503    -0.024458 
-    1500    1504    4.857994 
-    1500    1505    8.211954 
-    1500    1548    -0.071538 
-    1500    2604    -0.001125 
-    1500    2605    0.539926 
-    1500    2606    0.912690 
-    1501    1501    -45.215223 
-    1501    1502    37.533536 
-    1501    1505    -1.330327 
-    1501    2606    -0.147854 
-    1502    396    -0.000010 
-    1502    397    -1.671730 
-    1502    398    -2.825890 
-    1502    1500    0.000593 
-    1502    1501    6.407039 
-    1502    1502    10.830453 
-    1502    1503    -0.000008 
-    1502    1504    -1.455139 
-    1502    1505    -2.459767 
-    1502    1548    -0.000008 
-    1502    1549    -1.289214 
-    1502    1550    -2.179286 
-    1502    2604    -0.000012 
-    1502    2605    -1.985902 
-    1502    2606    -3.356966 
-    1503    399    -0.056046 
-    1503    1455    -0.070526 
-    1503    1456    16.653300 
-    1503    1457    28.150739 
-    1503    1500    -0.000813 
-    1503    1503    248.364500 
-    1503    1504    -162.319430 
-    1503    1505    -274.384770 
-    1503    1506    -0.000849 
-    1503    1551    -0.006209 
-    1503    2607    -0.001059 
-    1503    2608    0.622625 
-    1503    2609    1.052486 
-    1504    1457    -4.560504 
-    1504    1504    -47.264376 
-    1504    1505    42.428957 
-    1504    2609    -0.170502 
-    1505    399    -0.000009 
-    1505    400    -1.595325 
-    1505    401    -2.696737 
-    1505    1455    -0.000009 
-    1505    1456    -1.539562 
-    1505    1457    -2.602475 
-    1505    1500    -0.000008 
-    1505    1501    -1.455139 
-    1505    1502    -2.459767 
-    1505    1503    0.000635 
-    1505    1504    9.380903 
-    1505    1505    15.857478 
-    1505    1506    -0.000009 
-    1505    1507    -1.520008 
-    1505    1508    -2.569421 
-    1505    1551    -0.000008 
-    1505    1552    -1.371211 
-    1505    1553    -2.317896 
-    1505    2607    -0.000011 
-    1505    2608    -1.894376 
-    1505    2609    -3.202254 
-    1506    402    -0.053266 
-    1506    1458    -0.078258 
-    1506    1459    17.168040 
-    1506    1460    29.020837 
-    1506    1503    -0.024688 
-    1506    1504    1.159114 
-    1506    1505    1.959367 
-    1506    1506    259.197590 
-    1506    1507    -170.476200 
-    1506    1508    -288.172790 
-    1506    1509    -0.000889 
-    1506    1554    -0.000826 
-    1506    2610    -0.001016 
-    1506    2611    0.796559 
-    1506    2612    1.346502 
-    1507    1460    -4.701458 
-    1507    1505    -0.317415 
-    1507    1507    -49.318400 
-    1507    1508    44.577014 
-    1507    2612    -0.218132 
-    1508    402    -0.000009 
-    1508    403    -1.527188 
-    1508    404    -2.581557 
-    1508    1458    -0.000009 
-    1508    1459    -1.575154 
-    1508    1460    -2.662638 
-    1508    1503    -0.000009 
-    1508    1504    -1.520008 
-    1508    1505    -2.569421 
-    1508    1506    0.000661 
-    1508    1507    9.498793 
-    1508    1508    16.056750 
-    1508    1509    -0.000009 
-    1508    1510    -1.584763 
-    1508    1511    -2.678882 
-    1508    1554    -0.000009 
-    1508    1555    -1.473536 
-    1508    1556    -2.490863 
-    1508    2610    -0.000011 
-    1508    2611    -1.812633 
-    1508    2612    -3.064073 
-    1509    405    -0.048975 
-    1509    1461    -0.101910 
-    1509    1462    19.220924 
-    1509    1463    32.491049 
-    1509    1506    -0.050848 
-    1509    1507    3.676387 
-    1509    1508    6.214560 
-    1509    1509    270.040090 
-    1509    1510    -181.611810 
-    1509    1511    -306.996610 
-    1509    1512    -0.000915 
-    1509    1557    -0.000880 
-    1509    2613    -0.000983 
-    1509    2614    1.070897 
-    1509    2615    1.810245 
-    1510    1463    -5.263623 
-    1510    1508    -1.006751 
-    1510    1510    -51.373691 
-    1510    1511    47.537372 
-    1510    2615    -0.293256 
-    1511    405    -0.000009 
-    1511    406    -1.463582 
-    1511    407    -2.474039 
-    1511    1461    -0.000009 
-    1511    1462    -1.609802 
-    1511    1463    -2.721210 
-    1511    1506    -0.000009 
-    1511    1507    -1.584763 
-    1511    1508    -2.678882 
-    1511    1509    0.000687 
-    1511    1510    9.574459 
-    1511    1511    16.184664 
-    1511    1512    -0.000010 
-    1511    1513    -1.617810 
-    1511    1514    -2.734746 
-    1511    1557    -0.000009 
-    1511    1558    -1.556120 
-    1511    1559    -2.630466 
-    1511    2613    -0.000010 
-    1511    2614    -1.736640 
-    1511    2615    -2.935616 
-    1512    408    -0.043304 
-    1512    1464    -0.114353 
-    1512    1465    21.227252 
-    1512    1466    35.882516 
-    1512    1509    -0.048726 
-    1512    1510    3.921812 
-    1512    1511    6.629430 
-    1512    1512    270.083090 
-    1512    1513    -184.230160 
-    1512    1514    -311.422500 
-    1512    1515    -0.000924 
-    1512    1560    -0.000918 
-    1512    2616    -0.000989 
-    1512    2617    1.433314 
-    1512    2618    2.422873 
-    1513    1466    -5.813032 
-    1513    1511    -1.073953 
-    1513    1513    -51.374787 
-    1513    1514    48.251452 
-    1513    2618    -0.392499 
-    1514    408    -0.000009 
-    1514    409    -1.460309 
-    1514    410    -2.468505 
-    1514    1464    -0.000009 
-    1514    1465    -1.611383 
-    1514    1466    -2.723879 
-    1514    1509    -0.000010 
-    1514    1510    -1.617810 
-    1514    1511    -2.734746 
-    1514    1512    0.000688 
-    1514    1513    9.652496 
-    1514    1514    16.316571 
-    1514    1515    -0.000010 
-    1514    1516    -1.617811 
-    1514    1517    -2.734747 
-    1514    1560    -0.000010 
-    1514    1561    -1.607538 
-    1514    1562    -2.717380 
-    1514    2616    -0.000010 
-    1514    2617    -1.731904 
-    1514    2618    -2.927608 
-    1515    411    -0.039838 
-    1515    1467    -0.125970 
-    1515    1468    22.368532 
-    1515    1469    37.811766 
-    1515    1512    -0.028042 
-    1515    1513    1.887659 
-    1515    1514    3.190898 
-    1515    1515    270.075210 
-    1515    1516    -184.800230 
-    1515    1517    -312.386300 
-    1515    1518    -0.021591 
-    1515    1519    1.253331 
-    1515    1520    2.118629 
-    1515    1563    -0.000923 
-    1515    2619    -0.000994 
-    1515    2620    1.653146 
-    1515    2621    2.794478 
-    1516    1469    -6.125558 
-    1516    1514    -0.516916 
-    1516    1516    -51.374772 
-    1516    1517    48.407342 
-    1516    1520    -0.343211 
-    1516    2621    -0.452696 
-    1517    411    -0.000009 
-    1517    412    -1.460307 
-    1517    413    -2.468503 
-    1517    1467    -0.000009 
-    1517    1468    -1.611376 
-    1517    1469    -2.723869 
-    1517    1512    -0.000010 
-    1517    1513    -1.617811 
-    1517    1514    -2.734747 
-    1517    1515    0.000689 
-    1517    1516    9.653615 
-    1517    1517    16.318467 
-    1517    1518    -0.000010 
-    1517    1519    -1.617813 
-    1517    1520    -2.734749 
-    1517    1563    -0.000010 
-    1517    1564    -1.608668 
-    1517    1565    -2.719292 
-    1517    2619    -0.000010 
-    1517    2620    -1.731899 
-    1517    2621    -2.927602 
-    1518    414    -0.041964 
-    1518    1470    -0.123424 
-    1518    1471    22.121760 
-    1518    1472    37.394598 
-    1518    1515    -0.000926 
-    1518    1518    270.094100 
-    1518    1519    -184.810190 
-    1518    1520    -312.402960 
-    1518    1521    -0.044702 
-    1518    1522    3.526077 
-    1518    1523    5.960480 
-    1518    1566    -0.000922 
-    1518    2622    -0.000991 
-    1518    2623    1.520675 
-    1518    2624    2.570547 
-    1519    1472    -6.057994 
-    1519    1519    -51.375126 
-    1519    1520    48.409390 
-    1519    1523    -0.965583 
-    1519    2624    -0.416421 
-    1520    414    -0.000009 
-    1520    415    -1.459477 
-    1520    416    -2.467098 
-    1520    1470    -0.000009 
-    1520    1471    -1.611847 
-    1520    1472    -2.724664 
-    1520    1515    -0.000010 
-    1520    1516    -1.617813 
-    1520    1517    -2.734749 
-    1520    1518    0.000688 
-    1520    1519    9.654011 
-    1520    1520    16.319131 
-    1520    1521    -0.000010 
-    1520    1522    -1.617733 
-    1520    1523    -2.734617 
-    1520    1566    -0.000010 
-    1520    1567    -1.610483 
-    1520    1568    -2.722360 
-    1520    2622    -0.000010 
-    1520    2623    -1.730916 
-    1520    2624    -2.925939 
-    1521    417    -0.046530 
-    1521    1473    -0.119844 
-    1521    1474    20.995709 
-    1521    1475    35.491147 
-    1521    1518    -0.000918 
-    1521    1521    270.089650 
-    1521    1522    -184.318440 
-    1521    1523    -311.571890 
-    1521    1524    -0.064393 
-    1521    1525    4.462845 
-    1521    1526    7.543988 
-    1521    1569    -0.000914 
-    1521    2625    -0.000983 
-    1521    2626    1.230218 
-    1521    2627    2.079560 
-    1522    1475    -5.749652 
-    1522    1522    -51.374246 
-    1522    1523    48.277121 
-    1522    1526    -1.222116 
-    1522    2627    -0.336884 
-    1523    417    -0.000009 
-    1523    418    -1.460429 
-    1523    419    -2.468710 
-    1523    1473    -0.000009 
-    1523    1474    -1.611892 
-    1523    1475    -2.724742 
-    1523    1518    -0.000010 
-    1523    1519    -1.617733 
-    1523    1520    -2.734617 
-    1523    1521    0.000688 
-    1523    1522    9.640772 
-    1523    1523    16.296759 
-    1523    1524    -0.000009 
-    1523    1525    -1.601131 
-    1523    1526    -2.706549 
-    1523    1569    -0.000010 
-    1523    1570    -1.611757 
-    1523    1571    -2.724514 
-    1523    2625    -0.000010 
-    1523    2626    -1.732089 
-    1523    2627    -2.927923 
-    1524    420    -0.050663 
-    1524    1476    -0.113740 
-    1524    1477    18.820856 
-    1524    1478    31.814754 
-    1524    1521    -0.000898 
-    1524    1524    264.684630 
-    1524    1525    -179.202480 
-    1524    1526    -302.923650 
-    1524    1527    -0.080444 
-    1524    1528    4.924130 
-    1524    1529    8.323748 
-    1524    1572    -0.000895 
-    1524    2628    -0.000992 
-    1524    2629    0.970469 
-    1524    2630    1.640479 
-    1525    1478    -5.154093 
-    1525    1525    -50.346702 
-    1525    1526    46.920720 
-    1525    1529    -1.348445 
-    1525    2630    -0.265756 
-    1526    420    -0.000009 
-    1526    421    -1.491316 
-    1526    422    -2.520918 
-    1526    1476    -0.000009 
-    1526    1477    -1.547082 
-    1526    1478    -2.615185 
-    1526    1521    -0.000009 
-    1526    1522    -1.601131 
-    1526    1523    -2.706549 
-    1526    1524    0.000674 
-    1526    1525    9.543328 
-    1526    1526    16.132032 
-    1526    1527    -0.000009 
-    1526    1528    -1.534417 
-    1526    1529    -2.593777 
-    1526    1572    -0.000009 
-    1526    1573    -1.595112 
-    1526    1574    -2.696375 
-    1526    2628    -0.000010 
-    1526    2629    -1.768646 
-    1526    2630    -2.989716 
-    1527    423    -0.053707 
-    1527    1479    -0.098725 
-    1527    1480    16.168101 
-    1527    1481    27.330557 
-    1527    1524    -0.000849 
-    1527    1527    248.465840 
-    1527    1528    -166.547880 
-    1527    1529    -281.532540 
-    1527    1530    -0.092298 
-    1527    1531    4.582814 
-    1527    1532    7.746784 
-    1527    1575    -0.000829 
-    1527    2631    -0.001045 
-    1527    2632    0.785464 
-    1527    2633    1.327749 
-    1528    1481    -4.427659 
-    1528    1528    -47.265374 
-    1528    1529    43.584773 
-    1528    1532    -1.254987 
-    1528    2633    -0.215095 
-    1529    423    -0.000009 
-    1529    424    -1.591578 
-    1529    425    -2.690404 
-    1529    1479    -0.000008 
-    1529    1480    -1.449741 
-    1529    1481    -2.450642 
-    1529    1524    -0.000009 
-    1529    1525    -1.534417 
-    1529    1526    -2.593777 
-    1529    1527    0.000634 
-    1529    1528    9.368486 
-    1529    1529    15.836487 
-    1529    1530    -0.000008 
-    1529    1531    -1.401581 
-    1529    1532    -2.369231 
-    1529    1575    -0.000009 
-    1529    1576    -1.497985 
-    1529    1577    -2.532195 
-    1529    2631    -0.000011 
-    1529    2632    -1.887902 
-    1529    2633    -3.191310 
-    1530    426    -0.055373 
-    1530    1482    -0.048856 
-    1530    1483    12.699265 
-    1530    1484    21.466823 
-    1530    1527    -0.000765 
-    1530    1530    221.434500 
-    1530    1531    -142.602980 
-    1530    1532    -241.055940 
-    1530    1578    -0.000739 
-    1530    2634    -0.001155 
-    1530    2635    0.680199 
-    1530    2636    1.149807 
-    1531    1484    -3.477728 
-    1531    1531    -42.130994 
-    1531    1532    37.240289 
-    1531    2636    -0.186270 
-    1532    426    -0.000010 
-    1532    427    -1.783164 
-    1532    428    -3.014258 
-    1532    1482    -0.000007 
-    1532    1483    -1.305028 
-    1532    1484    -2.206018 
-    1532    1527    -0.000008 
-    1532    1528    -1.401581 
-    1532    1529    -2.369231 
-    1532    1530    0.000563 
-    1532    1531    7.962591 
-    1532    1532    13.459956 
-    1532    1578    -0.000008 
-    1532    1579    -1.353165 
-    1532    1580    -2.287390 
-    1532    2634    -0.000012 
-    1532    2635    -2.114944 
-    1532    2636    -3.575099 
-    1533    1533    1.000000 
-    1534    1534    1.000000 
-    1535    1535    1.000000 
-    1536    1536    1.000000 
-    1537    1537    1.000000 
-    1538    1538    1.000000 
-    1539    1539    1.000000 
-    1540    1540    1.000000 
-    1541    1541    1.000000 
-    1542    1542    1.000000 
-    1543    1543    1.000000 
-    1544    1544    1.000000 
-    1545    1545    1.000000 
-    1546    1546    1.000000 
-    1547    1547    1.000000 
-    1548    444    -0.057004 
-    1548    1500    -0.000745 
-    1548    1501    6.788696 
-    1548    1502    11.475603 
-    1548    1548    199.830260 
-    1548    1549    -124.044510 
-    1548    1550    -209.684700 
-    1548    1551    -0.000719 
-    1548    1596    -0.012626 
-    1548    2652    -0.001360 
-    1548    2653    0.597769 
-    1548    2654    1.010468 
-    1549    1502    -1.859022 
-    1549    1549    -38.042021 
-    1549    1550    32.281529 
-    1549    2654    -0.163692 
-    1550    444    -0.000012 
-    1550    445    -1.980295 
-    1550    446    -3.347488 
-    1550    1500    -0.000008 
-    1550    1501    -1.289214 
-    1550    1502    -2.179286 
-    1550    1548    0.000515 
-    1550    1549    7.954609 
-    1550    1550    13.446461 
-    1550    1551    -0.000008 
-    1550    1552    -1.243572 
-    1550    1553    -2.102133 
-    1550    1596    -0.000007 
-    1550    1597    -1.085812 
-    1550    1598    -1.835456 
-    1550    2652    -0.000014 
-    1550    2653    -2.351456 
-    1550    2654    -3.974898 
-    1551    447    -0.054500 
-    1551    1503    -0.000795 
-    1551    1504    12.566956 
-    1551    1505    21.243182 
-    1551    1548    -0.043887 
-    1551    1549    0.697149 
-    1551    1550    1.178460 
-    1551    1551    215.975550 
-    1551    1552    -140.180580 
-    1551    1553    -236.961250 
-    1551    1554    -0.000786 
-    1551    1599    -0.009259 
-    1551    2655    -0.001264 
-    1551    2656    0.769652 
-    1551    2657    1.301020 
-    1552    1505    -3.441372 
-    1552    1550    -0.190905 
-    1552    1552    -41.122058 
-    1552    1553    36.574131 
-    1552    2657    -0.210759 
-    1553    447    -0.000011 
-    1553    448    -1.836874 
-    1553    449    -3.105053 
-    1553    1503    -0.000008 
-    1553    1504    -1.371211 
-    1553    1505    -2.317896 
-    1553    1548    -0.000008 
-    1553    1549    -1.243572 
-    1553    1550    -2.102133 
-    1553    1551    0.000561 
-    1553    1552    9.192765 
-    1553    1553    15.539449 
-    1553    1554    -0.000008 
-    1553    1555    -1.355902 
-    1553    1556    -2.292017 
-    1553    1599    -0.000008 
-    1553    1600    -1.199531 
-    1553    1601    -2.027687 
-    1553    2655    -0.000013 
-    1553    2656    -2.181072 
-    1553    2657    -3.686883 
-    1554    450    -0.048561 
-    1554    1506    -0.038162 
-    1554    1507    16.599150 
-    1554    1508    28.059187 
-    1554    1551    -0.061746 
-    1554    1552    3.880938 
-    1554    1553    6.560338 
-    1554    1554    237.624070 
-    1554    1555    -160.377330 
-    1554    1556    -271.101610 
-    1554    1557    -0.000862 
-    1554    1602    -0.000768 
-    1554    2658    -0.001160 
-    1554    2659    1.153953 
-    1554    2660    1.950640 
-    1555    1508    -4.545551 
-    1555    1553    -1.062745 
-    1555    1555    -45.233550 
-    1555    1556    41.924961 
-    1555    2660    -0.315993 
-    1556    450    -0.000010 
-    1556    451    -1.667175 
-    1556    452    -2.818189 
-    1556    1506    -0.000009 
-    1556    1507    -1.473536 
-    1556    1508    -2.490863 
-    1556    1551    -0.000008 
-    1556    1552    -1.355902 
-    1556    1553    -2.292017 
-    1556    1554    0.000612 
-    1556    1555    9.262179 
-    1556    1556    15.656777 
-    1556    1557    -0.000009 
-    1556    1558    -1.470369 
-    1556    1559    -2.485510 
-    1556    1602    -0.000008 
-    1556    1603    -1.310395 
-    1556    1604    -2.215090 
-    1556    2658    -0.000012 
-    1556    2659    -1.979740 
-    1556    2660    -3.346550 
-    1557    453    -0.037939 
-    1557    1509    -0.091980 
-    1557    1510    20.880731 
-    1557    1511    35.296787 
-    1557    1554    -0.096017 
-    1557    1555    6.576891 
-    1557    1556    11.117568 
-    1557    1557    253.870270 
-    1557    1558    -177.534100 
-    1557    1559    -300.103640 
-    1557    1560    -0.000935 
-    1557    1605    -0.000861 
-    1557    2661    -0.001106 
-    1557    2662    1.853671 
-    1557    2663    3.133446 
-    1558    1511    -5.717999 
-    1558    1556    -1.800985 
-    1558    1558    -48.317530 
-    1558    1559    46.486840 
-    1558    2663    -0.507596 
-    1559    453    -0.000010 
-    1559    454    -1.562151 
-    1559    455    -2.640660 
-    1559    1509    -0.000009 
-    1559    1510    -1.556120 
-    1559    1511    -2.630466 
-    1559    1554    -0.000009 
-    1559    1555    -1.470369 
-    1559    1556    -2.485510 
-    1559    1557    0.000652 
-    1559    1558    9.461390 
-    1559    1559    15.993531 
-    1559    1560    -0.000010 
-    1559    1561    -1.567735 
-    1559    1562    -2.650099 
-    1559    1605    -0.000009 
-    1559    1606    -1.445193 
-    1559    1607    -2.442954 
-    1559    2661    -0.000012 
-    1559    2662    -1.854414 
-    1559    2663    -3.134701 
-    1560    456    -0.023835 
-    1560    1512    -0.160725 
-    1560    1513    24.991137 
-    1560    1514    42.244995 
-    1560    1557    -0.111313 
-    1560    1558    7.135452 
-    1560    1559    12.061768 
-    1560    1560    270.050980 
-    1560    1561    -192.553530 
-    1560    1562    -325.492300 
-    1560    1563    -0.000982 
-    1560    1608    -0.000954 
-    1560    2664    -0.001057 
-    1560    2665    2.734049 
-    1560    2666    4.621634 
-    1561    1514    -6.843558 
-    1561    1559    -1.953918 
-    1561    1561    -51.400549 
-    1561    1562    50.465801 
-    1561    2666    -0.748666 
-    1562    456    -0.000009 
-    1562    457    -1.468842 
-    1562    458    -2.482929 
-    1562    1512    -0.000010 
-    1562    1513    -1.607538 
-    1562    1514    -2.717380 
-    1562    1557    -0.000010 
-    1562    1558    -1.567735 
-    1562    1559    -2.650099 
-    1562    1560    0.000691 
-    1562    1561    9.583857 
-    1562    1562    16.200543 
-    1562    1563    -0.000010 
-    1562    1564    -1.618224 
-    1562    1565    -2.735444 
-    1562    1608    -0.000010 
-    1562    1609    -1.573049 
-    1562    1610    -2.659081 
-    1562    2664    -0.000011 
-    1562    2665    -1.742717 
-    1562    2666    -2.945886 
-    1563    459    -0.011792 
-    1563    1515    -0.182190 
-    1563    1516    27.107692 
-    1563    1517    45.822842 
-    1563    1560    -0.049570 
-    1563    1561    3.999304 
-    1563    1562    6.760419 
-    1563    1563    270.052420 
-    1563    1564    -194.544660 
-    1563    1565    -328.858290 
-    1563    1566    -0.024568 
-    1563    1567    2.318963 
-    1563    1568    3.919973 
-    1563    1611    -0.000985 
-    1563    2667    -0.001065 
-    1563    2668    3.419078 
-    1563    2669    5.779609 
-    1564    1517    -7.423134 
-    1564    1562    -1.095127 
-    1564    1564    -51.401676 
-    1564    1565    51.007865 
-    1564    1568    -0.634999 
-    1564    2669    -0.936243 
-    1565    459    -0.000010 
-    1565    460    -1.467191 
-    1565    461    -2.480140 
-    1565    1515    -0.000010 
-    1565    1516    -1.608668 
-    1565    1517    -2.719292 
-    1565    1560    -0.000010 
-    1565    1561    -1.618224 
-    1565    1562    -2.735444 
-    1565    1563    0.000692 
-    1565    1564    9.667185 
-    1565    1565    16.341406 
-    1565    1566    -0.000010 
-    1565    1567    -1.618159 
-    1565    1568    -2.735334 
-    1565    1611    -0.000010 
-    1565    1612    -1.609145 
-    1565    1613    -2.720099 
-    1565    2667    -0.000011 
-    1565    2668    -1.740045 
-    1565    2669    -2.941372 
-    1566    462    -0.020159 
-    1566    1518    -0.179488 
-    1566    1519    26.077818 
-    1566    1520    44.081918 
-    1566    1563    -0.000986 
-    1566    1566    270.062750 
-    1566    1567    -192.591450 
-    1566    1568    -325.556390 
-    1566    1569    -0.076562 
-    1566    1570    5.876120 
-    1566    1571    9.932994 
-    1566    1614    -0.000979 
-    1566    2670    -0.001058 
-    1566    2671    2.952589 
-    1566    2672    4.991052 
-    1567    1520    -7.141127 
-    1567    1567    -51.400420 
-    1567    1568    50.476322 
-    1567    1571    -1.609065 
-    1567    2672    -0.808507 
-    1568    462    -0.000009 
-    1568    463    -1.464845 
-    1568    464    -2.476172 
-    1568    1518    -0.000010 
-    1568    1519    -1.610483 
-    1568    1520    -2.722360 
-    1568    1563    -0.000010 
-    1568    1564    -1.618159 
-    1568    1565    -2.735334 
-    1568    1566    0.000692 
-    1568    1567    9.662694 
-    1568    1568    16.333809 
-    1568    1569    -0.000010 
-    1568    1570    -1.617970 
-    1568    1571    -2.735016 
-    1568    1614    -0.000010 
-    1568    1615    -1.608216 
-    1568    1616    -2.718527 
-    1568    2670    -0.000011 
-    1568    2671    -1.737268 
-    1568    2672    -2.936676 
-    1569    465    -0.033098 
-    1569    1521    -0.147929 
-    1569    1522    23.757471 
-    1569    1523    40.159629 
-    1569    1566    -0.000972 
-    1569    1569    270.102780 
-    1569    1570    -190.428260 
-    1569    1571    -321.899920 
-    1569    1572    -0.094315 
-    1569    1573    6.845753 
-    1569    1574    11.572054 
-    1569    1617    -0.000966 
-    1569    2673    -0.001041 
-    1569    2674    2.140252 
-    1569    2675    3.617882 
-    1570    1523    -6.505759 
-    1570    1570    -51.399319 
-    1570    1571    49.887176 
-    1570    1574    -1.874598 
-    1570    2675    -0.586069 
-    1571    465    -0.000009 
-    1571    466    -1.461849 
-    1571    467    -2.471110 
-    1571    1521    -0.000010 
-    1571    1522    -1.611757 
-    1571    1523    -2.724514 
-    1571    1566    -0.000010 
-    1571    1567    -1.617970 
-    1571    1568    -2.735016 
-    1571    1569    0.000691 
-    1571    1570    9.656976 
-    1571    1571    16.324150 
-    1571    1572    -0.000010 
-    1571    1573    -1.617381 
-    1571    1574    -2.734019 
-    1571    1617    -0.000010 
-    1571    1618    -1.608543 
-    1571    1619    -2.719082 
-    1571    2673    -0.000011 
-    1571    2674    -1.733724 
-    1571    2675    -2.930687 
-    1572    468    -0.043136 
-    1572    1524    -0.117552 
-    1572    1525    21.205997 
-    1572    1526    35.846591 
-    1572    1569    -0.000956 
-    1572    1572    270.100580 
-    1572    1573    -187.730390 
-    1572    1574    -317.339280 
-    1572    1575    -0.121339 
-    1572    1576    7.370835 
-    1572    1577    12.459659 
-    1572    1620    -0.000951 
-    1572    2676    -0.001026 
-    1572    2677    1.487911 
-    1572    2678    2.515162 
-    1573    1526    -5.807100 
-    1573    1573    -51.398707 
-    1573    1574    49.150588 
-    1573    1577    -2.018406 
-    1573    2678    -0.407441 
-    1574    468    -0.000009 
-    1574    469    -1.462551 
-    1574    470    -2.472294 
-    1574    1524    -0.000009 
-    1574    1525    -1.595112 
-    1574    1526    -2.696375 
-    1574    1569    -0.000010 
-    1574    1570    -1.617381 
-    1574    1571    -2.734019 
-    1574    1572    0.000690 
-    1574    1573    9.591453 
-    1574    1574    16.213383 
-    1574    1575    -0.000009 
-    1574    1576    -1.567258 
-    1574    1577    -2.649292 
-    1574    1620    -0.000010 
-    1574    1621    -1.608533 
-    1574    1622    -2.719063 
-    1574    2676    -0.000011 
-    1574    2677    -1.734867 
-    1574    2678    -2.932617 
-    1575    471    -0.048718 
-    1575    1527    -0.072953 
-    1575    1528    17.675979 
-    1575    1529    29.879475 
-    1575    1572    -0.000909 
-    1575    1575    253.954880 
-    1575    1576    -178.415320 
-    1575    1577    -301.593260 
-    1575    1578    -0.147228 
-    1575    1579    11.432940 
-    1575    1580    19.326230 
-    1575    1623    -0.000887 
-    1575    2679    -0.001070 
-    1575    2680    1.116155 
-    1575    2681    1.886748 
-    1576    1529    -4.840468 
-    1576    1576    -48.316631 
-    1576    1577    46.731329 
-    1576    1580    -3.130818 
-    1576    2681    -0.305645 
-    1577    471    -0.000009 
-    1577    472    -1.554243 
-    1577    473    -2.627293 
-    1577    1527    -0.000009 
-    1577    1528    -1.497985 
-    1577    1529    -2.532195 
-    1577    1572    -0.000009 
-    1577    1573    -1.567258 
-    1577    1574    -2.649292 
-    1577    1575    0.000650 
-    1577    1576    9.450041 
-    1577    1577    15.974347 
-    1577    1578    -0.000009 
-    1577    1579    -1.452992 
-    1577    1580    -2.456137 
-    1577    1623    -0.000009 
-    1577    1624    -1.528770 
-    1577    1625    -2.584233 
-    1577    2679    -0.000011 
-    1577    2680    -1.843384 
-    1577    2681    -3.116056 
-    1578    474    -0.053506 
-    1578    1530    -0.017879 
-    1578    1531    9.743246 
-    1578    1532    16.469973 
-    1578    1575    -0.000817 
-    1578    1578    232.246780 
-    1578    1579    -146.068830 
-    1578    1580    -246.914590 
-    1578    2682    -0.001133 
-    1578    2683    0.802498 
-    1578    2684    1.356542 
-    1579    1532    -2.668153 
-    1579    1579    -44.202421 
-    1579    1580    38.060785 
-    1579    2684    -0.219758 
-    1580    474    -0.000010 
-    1580    475    -1.699738 
-    1580    476    -2.873235 
-    1580    1530    -0.000008 
-    1580    1531    -1.353165 
-    1580    1532    -2.287390 
-    1580    1575    -0.000009 
-    1580    1576    -1.452992 
-    1580    1577    -2.456137 
-    1580    1578    0.000581 
-    1580    1579    6.526519 
-    1580    1580    11.032421 
-    1580    2682    -0.000012 
-    1580    2683    -2.015677 
-    1580    2684    -3.407298 
-    1581    1581    1.000000 
-    1582    1582    1.000000 
-    1583    1583    1.000000 
-    1584    1584    1.000000 
-    1585    1585    1.000000 
-    1586    1586    1.000000 
-    1587    1587    1.000000 
-    1588    1588    1.000000 
-    1589    1589    1.000000 
-    1590    1590    1.000000 
-    1591    1591    1.000000 
-    1592    1592    1.000000 
-    1593    1593    1.000000 
-    1594    1594    1.000000 
-    1595    1595    1.000000 
-    1596    492    -0.056812 
-    1596    1548    -0.000645 
-    1596    1549    7.630599 
-    1596    1550    12.898756 
-    1596    1596    167.375650 
-    1596    1597    -106.036730 
-    1596    1598    -179.244370 
-    1596    1599    -0.000632 
-    1596    1644    -0.004377 
-    1596    2700    -0.001663 
-    1596    2701    0.638554 
-    1596    2702    1.079411 
-    1597    1550    -2.089544 
-    1597    1597    -31.887467 
-    1597    1598    27.588098 
-    1597    2702    -0.174857 
-    1598    492    -0.000015 
-    1598    493    -2.358791 
-    1598    494    -3.987297 
-    1598    1548    -0.000007 
-    1598    1549    -1.085812 
-    1598    1550    -1.835456 
-    1598    1596    0.000443 
-    1598    1597    8.243541 
-    1598    1598    13.934873 
-    1598    1599    -0.000007 
-    1598    1600    -1.064124 
-    1598    1601    -1.798794 
-    1598    1644    -0.000006 
-    1598    1645    -0.931823 
-    1598    1646    -1.575153 
-    1598    2700    -0.000017 
-    1598    2701    -2.799416 
-    1598    2702    -4.732131 
-    1599    495    -0.052066 
-    1599    1551    -0.000720 
-    1599    1552    11.021295 
-    1599    1553    18.630397 
-    1599    1596    -0.041727 
-    1599    1597    2.895174 
-    1599    1598    4.893999 
-    1599    1599    189.021050 
-    1599    1600    -125.235250 
-    1599    1601    -211.697660 
-    1599    1602    -0.000708 
-    1599    1647    -0.000626 
-    1599    2703    -0.001489 
-    1599    2704    0.949573 
-    1599    2705    1.605158 
-    1600    1553    -3.018039 
-    1600    1598    -0.792794 
-    1600    1600    -36.002030 
-    1600    1601    32.657959 
-    1600    2705    -0.260023 
-    1601    495    -0.000013 
-    1601    496    -2.090224 
-    1601    497    -3.533314 
-    1601    1551    -0.000008 
-    1601    1552    -1.199531 
-    1601    1553    -2.027687 
-    1601    1596    -0.000007 
-    1601    1597    -1.064124 
-    1601    1598    -1.798794 
-    1601    1599    0.000499 
-    1601    1600    9.060904 
-    1601    1601    15.316551 
-    1601    1602    -0.000007 
-    1601    1603    -1.179203 
-    1601    1604    -1.993324 
-    1601    1647    -0.000007 
-    1601    1648    -1.042570 
-    1601    1649    -1.762361 
-    1601    2703    -0.000016 
-    1601    2704    -2.481216 
-    1601    2705    -4.194248 
-    1602    498    -0.039166 
-    1602    1554    -0.038034 
-    1602    1555    15.556959 
-    1602    1556    26.297461 
-    1602    1599    -0.095629 
-    1602    1600    6.539285 
-    1602    1601    11.054008 
-    1602    1602    205.248860 
-    1602    1603    -143.760790 
-    1602    1604    -243.013080 
-    1602    1605    -0.000800 
-    1602    1650    -0.000709 
-    1602    2706    -0.001402 
-    1602    2707    1.812566 
-    1602    2708    3.063961 
-    1603    1556    -4.260044 
-    1603    1601    -1.790660 
-    1603    1603    -39.087761 
-    1603    1604    37.590468 
-    1603    2708    -0.496332 
-    1604    498    -0.000012 
-    1604    499    -1.927240 
-    1604    500    -3.257804 
-    1604    1554    -0.000008 
-    1604    1555    -1.310395 
-    1604    1556    -2.215090 
-    1604    1599    -0.000007 
-    1604    1600    -1.179203 
-    1604    1601    -1.993324 
-    1604    1602    0.000538 
-    1604    1603    9.171260 
-    1604    1604    15.503089 
-    1604    1605    -0.000008 
-    1604    1606    -1.305745 
-    1604    1607    -2.207230 
-    1604    1650    -0.000007 
-    1604    1651    -1.156712 
-    1604    1652    -1.955305 
-    1604    2706    -0.000015 
-    1604    2707    -2.287583 
-    1604    2708    -3.866929 
-    1605    501    -0.014348 
-    1605    1557    -0.086572 
-    1605    1558    21.809515 
-    1605    1559    36.866804 
-    1605    1602    -0.125571 
-    1605    1603    10.042669 
-    1605    1604    16.976116 
-    1605    1605    232.330740 
-    1605    1606    -170.832760 
-    1605    1607    -288.775700 
-    1605    1608    -0.000925 
-    1605    1653    -0.000819 
-    1605    2709    -0.001270 
-    1605    2710    3.379837 
-    1605    2711    5.713277 
-    1606    1559    -5.972151 
-    1606    1604    -2.749961 
-    1606    1606    -44.233502 
-    1606    1607    44.762455 
-    1606    2711    -0.925480 
-    1607    501    -0.000011 
-    1607    502    -1.698078 
-    1607    503    -2.870432 
-    1607    1557    -0.000009 
-    1607    1558    -1.445193 
-    1607    1559    -2.442954 
-    1607    1602    -0.000008 
-    1607    1603    -1.305745 
-    1607    1604    -2.207230 
-    1607    1605    0.000603 
-    1607    1606    9.237942 
-    1607    1607    15.615816 
-    1607    1608    -0.000010 
-    1607    1609    -1.468191 
-    1607    1610    -2.481830 
-    1607    1653    -0.000009 
-    1607    1654    -1.300302 
-    1607    1655    -2.198030 
-    1607    2709    -0.000013 
-    1607    2710    -2.015473 
-    1607    2711    -3.406955 
-    1608    504    -0.000990 
-    1608    1560    -0.147647 
-    1608    1561    29.278995 
-    1608    1562    49.493185 
-    1608    1605    -0.154085 
-    1608    1606    11.851465 
-    1608    1607    20.033716 
-    1608    1608    259.338620 
-    1608    1609    -198.141940 
-    1608    1610    -334.938880 
-    1608    1611    -0.001029 
-    1608    1656    -0.000959 
-    1608    2712    -0.005064 
-    1608    2713    5.612831 
-    1608    2714    9.487922 
-    1609    1562    -8.017450 
-    1609    1607    -3.245201 
-    1609    1609    -49.379196 
-    1609    1610    51.999266 
-    1609    2714    -1.536903 
-    1610    504    -0.000010 
-    1610    505    -1.525749 
-    1610    506    -2.579124 
-    1610    1560    -0.000010 
-    1610    1561    -1.573049 
-    1610    1562    -2.659081 
-    1610    1605    -0.000010 
-    1610    1606    -1.468191 
-    1610    1607    -2.481830 
-    1610    1608    0.000669 
-    1610    1609    9.447918 
-    1610    1610    15.970750 
-    1610    1611    -0.000011 
-    1610    1612    -1.585554 
-    1610    1613    -2.680218 
-    1610    1656    -0.000010 
-    1610    1657    -1.479075 
-    1610    1658    -2.500226 
-    1610    2712    -0.000012 
-    1610    2713    -1.810762 
-    1610    2714    -3.060910 
-    1611    507    -0.000965 
-    1611    1563    -0.205907 
-    1611    1564    34.093072 
-    1611    1565    57.630928 
-    1611    1608    -0.102668 
-    1611    1609    7.999219 
-    1611    1610    13.521870 
-    1611    1611    270.219550 
-    1611    1612    -213.050040 
-    1611    1613    -360.139790 
-    1611    1614    -0.043789 
-    1611    1615    5.761893 
-    1611    1616    9.739896 
-    1611    1659    -0.001064 
-    1611    2715    -0.024425 
-    1611    2716    7.504940 
-    1611    2717    12.686351 
-    1612    1565    -9.335633 
-    1612    1610    -2.190326 
-    1612    1612    -51.438365 
-    1612    1613    55.982322 
-    1612    1616    -1.577702 
-    1612    2717    -2.054981 
-    1613    507    -0.000010 
-    1613    508    -1.461315 
-    1613    509    -2.470208 
-    1613    1563    -0.000010 
-    1613    1564    -1.609145 
-    1613    1565    -2.720099 
-    1613    1608    -0.000011 
-    1613    1609    -1.585554 
-    1613    1610    -2.680218 
-    1613    1611    0.000696 
-    1613    1612    9.624833 
-    1613    1613    16.269814 
-    1613    1614    -0.000011 
-    1613    1615    -1.618660 
-    1613    1616    -2.736180 
-    1613    1659    -0.000011 
-    1613    1660    -1.611363 
-    1613    1661    -2.723848 
-    1613    2715    -0.000012 
-    1613    2716    -1.733026 
-    1613    2717    -2.929508 
-    1614    510    -0.000956 
-    1614    1566    -0.186758 
-    1614    1567    30.653316 
-    1614    1568    51.816332 
-    1614    1611    -0.001056 
-    1614    1614    270.091410 
-    1614    1615    -204.581470 
-    1614    1616    -345.824250 
-    1614    1617    -0.098287 
-    1614    1618    10.345519 
-    1614    1619    17.488065 
-    1614    1662    -0.001050 
-    1614    2718    -0.007591 
-    1614    2719    5.863270 
-    1614    2720    9.911268 
-    1615    1568    -8.393759 
-    1615    1615    -51.433248 
-    1615    1616    53.676628 
-    1615    1619    -2.832817 
-    1615    2720    -1.605473 
-    1616    510    -0.000010 
-    1616    511    -1.465199 
-    1616    512    -2.476771 
-    1616    1566    -0.000010 
-    1616    1567    -1.608216 
-    1616    1568    -2.718527 
-    1616    1611    -0.000011 
-    1616    1612    -1.618660 
-    1616    1613    -2.736180 
-    1616    1614    0.000696 
-    1616    1615    9.664438 
-    1616    1616    16.336756 
-    1616    1617    -0.000011 
-    1616    1618    -1.618482 
-    1616    1619    -2.735883 
-    1616    1662    -0.000011 
-    1616    1663    -1.610457 
-    1616    1664    -2.722314 
-    1616    2718    -0.000012 
-    1616    2719    -1.737656 
-    1616    2720    -2.937332 
-    1617    513    -0.008014 
-    1617    1569    -0.165253 
-    1617    1570    26.218808 
-    1617    1571    44.320273 
-    1617    1614    -0.001032 
-    1617    1617    270.038210 
-    1617    1618    -197.231580 
-    1617    1619    -333.400250 
-    1617    1620    -0.121812 
-    1617    1621    9.546213 
-    1617    1622    16.136907 
-    1617    1665    -0.001026 
-    1617    2721    -0.001110 
-    1617    2722    3.745776 
-    1617    2723    6.331860 
-    1618    1571    -7.179526 
-    1618    1618    -51.426699 
-    1618    1619    51.680985 
-    1618    1622    -2.613987 
-    1618    2723    -1.025676 
-    1619    513    -0.000010 
-    1619    514    -1.467869 
-    1619    515    -2.481286 
-    1619    1569    -0.000010 
-    1619    1570    -1.608543 
-    1619    1571    -2.719082 
-    1619    1614    -0.000011 
-    1619    1615    -1.618482 
-    1619    1616    -2.735883 
-    1619    1617    0.000695 
-    1619    1618    9.669033 
-    1619    1619    16.344532 
-    1619    1620    -0.000011 
-    1619    1621    -1.618040 
-    1619    1622    -2.735132 
-    1619    1665    -0.000011 
-    1619    1666    -1.609487 
-    1619    1667    -2.720677 
-    1619    2721    -0.000012 
-    1619    2722    -1.740848 
-    1619    2723    -2.942729 
-    1620    516    -0.030580 
-    1620    1572    -0.137963 
-    1620    1573    23.535825 
-    1620    1574    39.784937 
-    1620    1617    -0.001010 
-    1620    1620    270.033690 
-    1620    1621    -189.826290 
-    1620    1622    -320.882120 
-    1620    1623    -0.100110 
-    1620    1624    6.227434 
-    1620    1625    10.526854 
-    1620    1668    -0.001005 
-    1620    2724    -0.001087 
-    1620    2725    2.339398 
-    1620    2726    3.954516 
-    1621    1574    -6.444904 
-    1621    1621    -51.424648 
-    1621    1622    49.659240 
-    1621    1625    -1.705239 
-    1621    2726    -0.640586 
-    1622    516    -0.000010 
-    1622    517    -1.468165 
-    1622    518    -2.481784 
-    1622    1572    -0.000010 
-    1622    1573    -1.608533 
-    1622    1574    -2.719063 
-    1622    1617    -0.000011 
-    1622    1618    -1.618040 
-    1622    1619    -2.735132 
-    1622    1620    0.000693 
-    1622    1621    9.636586 
-    1622    1622    16.289676 
-    1622    1623    -0.000010 
-    1622    1624    -1.584801 
-    1622    1625    -2.678947 
-    1622    1668    -0.000010 
-    1622    1669    -1.609911 
-    1622    1670    -2.721391 
-    1622    2724    -0.000011 
-    1622    2725    -1.741374 
-    1622    2726    -2.943616 
-    1623    519    -0.039998 
-    1623    1575    -0.152912 
-    1623    1576    23.550095 
-    1623    1577    39.809080 
-    1623    1620    -0.000975 
-    1623    1623    259.203030 
-    1623    1624    -176.664890 
-    1623    1625    -298.634340 
-    1623    1671    -0.000961 
-    1623    2727    -0.001116 
-    1623    2728    1.729024 
-    1623    2729    2.922742 
-    1624    1577    -6.448884 
-    1624    1624    -49.368903 
-    1624    1625    46.145579 
-    1624    2729    -0.473454 
-    1625    519    -0.000010 
-    1625    520    -1.529225 
-    1625    521    -2.585002 
-    1625    1575    -0.000009 
-    1625    1576    -1.528770 
-    1625    1577    -2.584233 
-    1625    1620    -0.000010 
-    1625    1621    -1.584801 
-    1625    1622    -2.678947 
-    1625    1623    0.000657 
-    1625    1624    8.023902 
-    1625    1625    13.563604 
-    1625    1671    -0.000010 
-    1625    1672    -1.562102 
-    1625    1673    -2.640576 
-    1625    2727    -0.000012 
-    1625    2728    -1.813471 
-    1625    2729    -3.065492 
-    1626    1626    1.000000 
-    1627    1627    1.000000 
-    1628    1628    1.000000 
-    1629    1629    1.000000 
-    1630    1630    1.000000 
-    1631    1631    1.000000 
-    1632    1632    1.000000 
-    1633    1633    1.000000 
-    1634    1634    1.000000 
-    1635    1635    1.000000 
-    1636    1636    1.000000 
-    1637    1637    1.000000 
-    1638    1638    1.000000 
-    1639    1639    1.000000 
-    1640    1640    1.000000 
-    1641    1641    1.000000 
-    1642    1642    1.000000 
-    1643    1643    1.000000 
-    1644    540    -0.057152 
-    1644    1596    -0.000567 
-    1644    1597    6.011660 
-    1644    1598    10.162103 
-    1644    1644    145.784670 
-    1644    1645    -91.799685 
-    1644    1646    -155.178110 
-    1644    1647    -0.000560 
-    1644    1692    -0.000500 
-    1644    2748    -0.001949 
-    1644    2749    0.631870 
-    1644    2750    1.068112 
-    1645    1598    -1.646190 
-    1645    1645    -27.783778 
-    1645    1646    23.849486 
-    1645    2750    -0.173024 
-    1646    540    -0.000017 
-    1646    541    -2.699288 
-    1646    542    -4.562874 
-    1646    1596    -0.000006 
-    1646    1597    -0.931823 
-    1646    1598    -1.575153 
-    1646    1644    0.000395 
-    1646    1645    8.578646 
-    1646    1646    14.501334 
-    1646    1647    -0.000006 
-    1646    1648    -0.920194 
-    1646    1649    -1.555496 
-    1646    1692    -0.000005 
-    1646    1693    -0.821943 
-    1646    1694    -1.389411 
-    1646    2748    -0.000020 
-    1646    2749    -3.202279 
-    1646    2750    -5.413128 
-    1647    543    -0.049122 
-    1647    1599    -0.014988 
-    1647    1600    8.714260 
-    1647    1601    14.730585 
-    1647    1644    -0.052525 
-    1647    1645    4.257979 
-    1647    1646    7.197684 
-    1647    1647    162.026220 
-    1647    1648    -108.770240 
-    1647    1649    -183.865220 
-    1647    1650    -0.000638 
-    1647    1695    -0.000569 
-    1647    2751    -0.001786 
-    1647    2752    1.169802 
-    1647    2753    1.977433 
-    1648    1601    -2.386236 
-    1648    1646    -1.165957 
-    1648    1648    -30.872090 
-    1648    1649    28.349994 
-    1648    2753    -0.320322 
-    1649    543    -0.000016 
-    1649    544    -2.431426 
-    1649    545    -4.110083 
-    1649    1599    -0.000007 
-    1649    1600    -1.042570 
-    1649    1601    -1.762361 
-    1649    1644    -0.000006 
-    1649    1645    -0.920194 
-    1649    1646    -1.555496 
-    1649    1647    0.000438 
-    1649    1648    9.232453 
-    1649    1649    15.606538 
-    1649    1650    -0.000007 
-    1649    1651    -1.031303 
-    1649    1652    -1.743314 
-    1649    1695    -0.000006 
-    1649    1696    -0.918639 
-    1649    1697    -1.552867 
-    1649    2751    -0.000019 
-    1649    2752    -2.884855 
-    1649    2753    -4.876560 
-    1650    546    -0.026226 
-    1650    1602    -0.042673 
-    1650    1603    13.170317 
-    1650    1604    22.263089 
-    1650    1647    -0.106835 
-    1650    1648    8.840541 
-    1650    1649    14.944051 
-    1650    1650    183.689700 
-    1650    1651    -131.930410 
-    1650    1652    -223.015010 
-    1650    1653    -0.000741 
-    1650    1698    -0.000658 
-    1650    2754    -0.001630 
-    1650    2755    2.687538 
-    1650    2756    4.543011 
-    1651    1604    -3.606397 
-    1651    1649    -2.420769 
-    1651    1651    -34.991172 
-    1651    1652    34.492949 
-    1651    2756    -0.735904 
-    1652    546    -0.000014 
-    1652    547    -2.150194 
-    1652    548    -3.634685 
-    1652    1602    -0.000007 
-    1652    1603    -1.156712 
-    1652    1604    -1.955305 
-    1652    1647    -0.000007 
-    1652    1648    -1.031303 
-    1652    1649    -1.743314 
-    1652    1650    0.000489 
-    1652    1651    9.085569 
-    1652    1652    15.358235 
-    1652    1653    -0.000008 
-    1652    1654    -1.161215 
-    1652    1655    -1.962916 
-    1652    1698    -0.000007 
-    1652    1699    -1.030072 
-    1652    1700    -1.741232 
-    1652    2754    -0.000017 
-    1652    2755    -2.552144 
-    1652    2756    -4.314142 
-    1653    549    -0.001284 
-    1653    1605    -0.136014 
-    1653    1606    20.530332 
-    1653    1607    34.704472 
-    1653    1650    -0.190266 
-    1653    1651    14.042325 
-    1653    1652    23.737128 
-    1653    1653    205.302170 
-    1653    1654    -160.669370 
-    1653    1655    -271.595500 
-    1653    1656    -0.000879 
-    1653    1701    -0.000795 
-    1653    2757    -0.011397 
-    1653    2758    6.201041 
-    1653    2759    10.482240 
-    1654    1607    -5.621672 
-    1654    1652    -3.845074 
-    1654    1654    -39.109356 
-    1654    1655    42.164769 
-    1654    2759    -1.697934 
-    1655    549    -0.000013 
-    1655    550    -1.927240 
-    1655    551    -3.257807 
-    1655    1605    -0.000009 
-    1655    1606    -1.300302 
-    1655    1607    -2.198030 
-    1655    1650    -0.000008 
-    1655    1651    -1.161215 
-    1655    1652    -1.962916 
-    1655    1653    0.000543 
-    1655    1654    9.192178 
-    1655    1655    15.538456 
-    1655    1656    -0.000009 
-    1655    1657    -1.320021 
-    1655    1658    -2.231364 
-    1655    1701    -0.000008 
-    1655    1702    -1.192726 
-    1655    1703    -2.016184 
-    1655    2757    -0.000016 
-    1655    2758    -2.286282 
-    1655    2759    -3.864731 
-    1656    552    -0.001161 
-    1656    1608    -0.212424 
-    1656    1609    32.370162 
-    1656    1610    54.718480 
-    1656    1653    -0.190020 
-    1656    1654    18.701559 
-    1656    1655    31.613115 
-    1656    1656    237.946100 
-    1656    1657    -201.708990 
-    1656    1658    -340.968640 
-    1656    1659    -0.001058 
-    1656    1704    -0.000957 
-    1656    2760    -0.068802 
-    1656    2761    11.863207 
-    1656    2762    20.053552 
-    1657    1610    -8.863517 
-    1657    1655    -5.120722 
-    1657    1657    -45.295405 
-    1657    1658    53.084456 
-    1657    2762    -3.248234 
-    1658    552    -0.000012 
-    1658    553    -1.662597 
-    1658    554    -2.810452 
-    1658    1608    -0.000010 
-    1658    1609    -1.479075 
-    1658    1610    -2.500226 
-    1658    1653    -0.000009 
-    1658    1654    -1.320021 
-    1658    1655    -2.231364 
-    1658    1656    0.000622 
-    1658    1657    9.325863 
-    1658    1658    15.764430 
-    1658    1659    -0.000011 
-    1658    1660    -1.515041 
-    1658    1661    -2.561024 
-    1658    1704    -0.000010 
-    1658    1705    -1.370786 
-    1658    1706    -2.317174 
-    1658    2760    -0.000014 
-    1658    2761    -1.973253 
-    1658    2762    -3.335585 
-    1659    555    -0.001060 
-    1659    1611    -0.364152 
-    1659    1612    45.035434 
-    1659    1613    76.127896 
-    1659    1656    -0.222899 
-    1659    1657    16.827796 
-    1659    1658    28.445687 
-    1659    1659    270.559670 
-    1659    1660    -252.969390 
-    1659    1661    -427.619450 
-    1659    1662    -0.184469 
-    1659    1663    16.483139 
-    1659    1664    27.863080 
-    1659    1707    -0.001144 
-    1659    2763    -0.119432 
-    1659    2764    16.863026 
-    1659    2765    28.505260 
-    1660    1613    -12.331347 
-    1660    1658    -4.607510 
-    1660    1660    -51.474670 
-    1660    1661    66.818708 
-    1660    1664    -4.513131 
-    1660    2765    -4.617140 
-    1661    555    -0.000011 
-    1661    556    -1.465065 
-    1661    557    -2.476546 
-    1661    1611    -0.000011 
-    1661    1612    -1.611363 
-    1661    1613    -2.723848 
-    1661    1656    -0.000011 
-    1661    1657    -1.515041 
-    1661    1658    -2.561024 
-    1661    1659    0.000701 
-    1661    1660    9.534801 
-    1661    1661    16.117624 
-    1661    1662    -0.000012 
-    1661    1663    -1.619186 
-    1661    1664    -2.737070 
-    1661    1707    -0.000012 
-    1661    1708    -1.580477 
-    1661    1709    -2.671639 
-    1661    2763    -0.000013 
-    1661    2764    -1.737883 
-    1661    2765    -2.937718 
-    1662    558    -0.001025 
-    1662    1614    -0.224082 
-    1662    1615    34.348042 
-    1662    1616    58.061886 
-    1662    1659    -0.001134 
-    1662    1662    270.284620 
-    1662    1663    -221.801810 
-    1662    1664    -374.933540 
-    1662    1665    -0.198380 
-    1662    1666    18.634428 
-    1662    1667    31.499637 
-    1662    1710    -0.001131 
-    1662    2766    -0.060944 
-    1662    2767    11.099187 
-    1662    2768    18.762053 
-    1663    1616    -9.405063 
-    1663    1663    -51.467914 
-    1663    1664    58.303482 
-    1663    1667    -5.102299 
-    1663    2768    -3.039035 
-    1664    558    -0.000011 
-    1664    559    -1.462541 
-    1664    560    -2.472278 
-    1664    1614    -0.000011 
-    1664    1615    -1.610457 
-    1664    1616    -2.722314 
-    1664    1659    -0.000012 
-    1664    1660    -1.619186 
-    1664    1661    -2.737070 
-    1664    1662    0.000700 
-    1664    1663    9.665824 
-    1664    1664    16.339100 
-    1664    1665    -0.000011 
-    1664    1666    -1.618991 
-    1664    1667    -2.736742 
-    1664    1710    -0.000012 
-    1664    1711    -1.614432 
-    1664    1712    -2.729034 
-    1664    2766    -0.000012 
-    1664    2767    -1.734435 
-    1664    2768    -2.931888 
-    1665    561    -0.000986 
-    1665    1617    -0.124469 
-    1665    1618    26.089067 
-    1665    1619    44.100959 
-    1665    1662    -0.001092 
-    1665    1665    270.112030 
-    1665    1666    -203.851590 
-    1665    1667    -344.590730 
-    1665    1668    -0.166756 
-    1665    1669    13.966226 
-    1665    1670    23.608493 
-    1665    1713    -0.001089 
-    1665    2769    -0.009736 
-    1665    2770    6.060412 
-    1665    2771    10.244521 
-    1666    1619    -7.143726 
-    1666    1666    -51.459003 
-    1666    1667    53.412258 
-    1666    1670    -3.824174 
-    1666    2771    -1.659417 
-    1667    561    -0.000010 
-    1667    562    -1.461775 
-    1667    563    -2.470984 
-    1667    1617    -0.000011 
-    1667    1618    -1.609487 
-    1667    1619    -2.720677 
-    1667    1662    -0.000011 
-    1667    1663    -1.618991 
-    1667    1664    -2.736742 
-    1667    1665    0.000698 
-    1667    1666    9.662573 
-    1667    1667    16.333612 
-    1667    1668    -0.000011 
-    1667    1669    -1.618561 
-    1667    1670    -2.736014 
-    1667    1713    -0.000011 
-    1667    1714    -1.614388 
-    1667    1715    -2.728961 
-    1667    2769    -0.000012 
-    1667    2770    -1.733594 
-    1667    2771    -2.930466 
-    1668    564    -0.014068 
-    1668    1620    -0.079817 
-    1668    1621    21.701004 
-    1668    1622    36.683350 
-    1668    1665    -0.001060 
-    1668    1668    270.043890 
-    1668    1669    -191.204140 
-    1668    1670    -323.211260 
-    1668    1671    -0.120389 
-    1668    1672    8.420229 
-    1668    1673    14.233556 
-    1668    1716    -0.001057 
-    1668    2772    -0.001135 
-    1668    2773    3.368183 
-    1668    2774    5.693572 
-    1669    1622    -5.942265 
-    1669    1669    -51.454603 
-    1669    1670    49.961416 
-    1669    1673    -2.305621 
-    1669    2774    -0.922266 
-    1670    564    -0.000010 
-    1670    565    -1.461161 
-    1670    566    -2.469944 
-    1670    1620    -0.000010 
-    1670    1621    -1.609911 
-    1670    1622    -2.721391 
-    1670    1665    -0.000011 
-    1670    1666    -1.618561 
-    1670    1667    -2.736014 
-    1670    1668    0.000697 
-    1670    1669    9.645895 
-    1670    1670    16.305411 
-    1670    1671    -0.000011 
-    1670    1672    -1.602008 
-    1670    1673    -2.708035 
-    1670    1716    -0.000011 
-    1670    1717    -1.615505 
-    1670    1718    -2.730848 
-    1670    2772    -0.000012 
-    1670    2773    -1.732973 
-    1670    2774    -2.929415 
-    1671    567    -0.031166 
-    1671    1623    -0.058725 
-    1671    1624    18.983067 
-    1671    1625    32.088976 
-    1671    1668    -0.001030 
-    1671    1671    264.572260 
-    1671    1672    -175.828060 
-    1671    1673    -297.219750 
-    1671    1719    -0.001028 
-    1671    2775    -0.001136 
-    1671    2776    2.294627 
-    1671    2777    3.878837 
-    1672    1625    -5.198076 
-    1672    1672    -50.425341 
-    1672    1673    45.800144 
-    1672    2777    -0.628315 
-    1673    567    -0.000010 
-    1673    568    -1.490128 
-    1673    569    -2.518913 
-    1673    1623    -0.000010 
-    1673    1624    -1.562102 
-    1673    1625    -2.640576 
-    1673    1668    -0.000011 
-    1673    1669    -1.602008 
-    1673    1670    -2.708035 
-    1673    1671    0.000672 
-    1673    1672    8.026125 
-    1673    1673    13.567363 
-    1673    1719    -0.000011 
-    1673    1720    -1.599065 
-    1673    1721    -2.703060 
-    1673    2775    -0.000012 
-    1673    2776    -1.767162 
-    1673    2777    -2.987210 
-    1674    1674    1.000000 
-    1675    1675    1.000000 
-    1676    1676    1.000000 
-    1677    1677    1.000000 
-    1678    1678    1.000000 
-    1679    1679    1.000000 
-    1680    1680    1.000000 
-    1681    1681    1.000000 
-    1682    1682    1.000000 
-    1683    1683    1.000000 
-    1684    1684    1.000000 
-    1685    1685    1.000000 
-    1686    1686    1.000000 
-    1687    1687    1.000000 
-    1688    1688    1.000000 
-    1689    585    -0.062688 
-    1689    1689    107.974130 
-    1689    1690    -64.387337 
-    1689    1691    -108.840360 
-    1689    1692    -0.000431 
-    1689    1737    -0.022899 
-    1689    1738    0.967739 
-    1689    1739    1.635867 
-    1689    2793    -0.002637 
-    1689    2794    0.308946 
-    1689    2795    0.522243 
-    1690    1690    -18.888764 
-    1690    1691    19.535090 
-    1690    1739    -0.264995 
-    1690    2795    -0.084598 
-    1691    585    -0.000023 
-    1691    586    -3.642522 
-    1691    587    -6.157318 
-    1691    1689    0.000312 
-    1691    1690    9.318648 
-    1691    1691    15.752243 
-    1691    1692    -0.000005 
-    1691    1693    -0.706526 
-    1691    1694    -1.194311 
-    1691    1737    -0.000004 
-    1691    1738    -0.647479 
-    1691    1739    -1.094499 
-    1691    2793    -0.000028 
-    1691    2794    -4.319810 
-    1691    2795    -7.302207 
-    1692    588    -0.058962 
-    1692    1644    -0.001637 
-    1692    1645    2.853943 
-    1692    1646    4.824304 
-    1692    1689    -0.013480 
-    1692    1690    1.882557 
-    1692    1691    3.182274 
-    1692    1692    129.594510 
-    1692    1693    -80.993831 
-    1692    1694    -136.911910 
-    1692    1695    -0.000507 
-    1692    1740    -0.023565 
-    1692    2796    -0.002221 
-    1692    2797    0.534171 
-    1692    2798    0.902962 
-    1693    1646    -0.781492 
-    1693    1691    -0.515497 
-    1693    1693    -24.701508 
-    1693    1694    21.021639 
-    1693    2798    -0.146270 
-    1694    588    -0.000020 
-    1694    589    -3.036994 
-    1694    590    -5.133732 
-    1694    1644    -0.000005 
-    1694    1645    -0.821943 
-    1694    1646    -1.389411 
-    1694    1689    -0.000005 
-    1694    1690    -0.706526 
-    1694    1691    -1.194311 
-    1694    1692    0.000365 
-    1694    1693    9.700159 
-    1694    1694    16.397142 
-    1694    1695    -0.000005 
-    1694    1696    -0.822973 
-    1694    1697    -1.391152 
-    1694    1740    -0.000005 
-    1694    1741    -0.705969 
-    1694    1742    -1.193369 
-    1694    2796    -0.000023 
-    1694    2797    -3.602981 
-    1694    2798    -6.090476 
-    1695    591    -0.048563 
-    1695    1647    -0.012933 
-    1695    1648    5.165937 
-    1695    1649    8.732500 
-    1695    1692    -0.056914 
-    1695    1693    5.578304 
-    1695    1694    9.429561 
-    1695    1695    145.821820 
-    1695    1696    -97.152630 
-    1695    1697    -164.226810 
-    1695    1698    -0.000581 
-    1695    1743    -0.022917 
-    1695    2799    -0.002025 
-    1695    2800    1.229508 
-    1695    2801    2.078360 
-    1696    1649    -1.414567 
-    1696    1694    -1.527488 
-    1696    1696    -27.792393 
-    1696    1697    25.293396 
-    1696    2801    -0.336667 
-    1697    591    -0.000018 
-    1697    592    -2.701541 
-    1697    593    -4.566685 
-    1697    1647    -0.000006 
-    1697    1648    -0.918639 
-    1697    1649    -1.552867 
-    1697    1692    -0.000005 
-    1697    1693    -0.822973 
-    1697    1694    -1.391152 
-    1697    1695    0.000403 
-    1697    1696    9.393580 
-    1697    1697    15.878907 
-    1697    1698    -0.000006 
-    1697    1699    -0.920354 
-    1697    1700    -1.555767 
-    1697    1743    -0.000005 
-    1697    1744    -0.821905 
-    1697    1745    -1.389347 
-    1697    2799    -0.000021 
-    1697    2800    -3.205047 
-    1697    2801    -5.417811 
-    1698    594    -0.014615 
-    1698    1650    -0.030180 
-    1698    1651    8.479527 
-    1698    1652    14.333783 
-    1698    1695    -0.109325 
-    1698    1696    10.289578 
-    1698    1697    17.393503 
-    1698    1698    162.062760 
-    1698    1699    -116.843410 
-    1698    1700    -197.511970 
-    1698    1701    -0.000696 
-    1698    1746    -0.018187 
-    1698    2802    -0.001895 
-    1698    2803    3.429965 
-    1698    2804    5.798008 
-    1699    1652    -2.321867 
-    1699    1697    -2.817515 
-    1699    1699    -30.885659 
-    1699    1700    30.525937 
-    1699    2804    -0.939179 
-    1700    594    -0.000017 
-    1700    595    -2.430966 
-    1700    596    -4.109303 
-    1700    1650    -0.000007 
-    1700    1651    -1.030072 
-    1700    1652    -1.741232 
-    1700    1695    -0.000006 
-    1700    1696    -0.920354 
-    1700    1697    -1.555767 
-    1700    1698    0.000442 
-    1700    1699    9.265686 
-    1700    1700    15.662705 
-    1700    1701    -0.000007 
-    1700    1702    -1.059805 
-    1700    1703    -1.791493 
-    1700    1746    -0.000006 
-    1700    1747    -0.936829 
-    1700    1748    -1.583616 
-    1700    2802    -0.000020 
-    1700    2803    -2.884187 
-    1700    2804    -4.875426 
-    1701    597    -0.001406 
-    1701    1653    -0.057101 
-    1701    1654    14.512037 
-    1701    1655    24.531147 
-    1701    1698    -0.193282 
-    1701    1699    16.984846 
-    1701    1700    28.711166 
-    1701    1701    194.590370 
-    1701    1702    -153.834730 
-    1701    1703    -260.042220 
-    1701    1704    -0.000861 
-    1701    1749    -0.047830 
-    1701    2805    -0.037830 
-    1701    2806    8.772413 
-    1701    2807    14.828886 
-    1702    1655    -3.973579 
-    1702    1700    -4.650707 
-    1702    1702    -37.069915 
-    1702    1703    40.341763 
-    1702    2807    -2.401949 
-    1703    597    -0.000015 
-    1703    598    -2.026727 
-    1703    599    -3.425978 
-    1703    1653    -0.000008 
-    1703    1654    -1.192726 
-    1703    1655    -2.016184 
-    1703    1698    -0.000007 
-    1703    1699    -1.059805 
-    1703    1700    -1.791493 
-    1703    1701    0.000519 
-    1703    1702    9.025244 
-    1703    1703    15.256271 
-    1703    1704    -0.000009 
-    1703    1705    -1.241608 
-    1703    1706    -2.098814 
-    1703    1749    -0.000008 
-    1703    1750    -1.095437 
-    1703    1751    -1.851726 
-    1703    2805    -0.000017 
-    1703    2806    -2.404773 
-    1703    2807    -4.065028 
-    1704    600    -0.001324 
-    1704    1656    -0.195441 
-    1704    1657    27.679249 
-    1704    1658    46.788972 
-    1704    1701    -0.296250 
-    1704    1702    27.552567 
-    1704    1703    46.574860 
-    1704    1704    222.000700 
-    1704    1705    -212.213850 
-    1704    1706    -358.726050 
-    1704    1707    -0.001066 
-    1704    1752    -0.131401 
-    1704    1753    7.247402 
-    1704    1754    12.251000 
-    1704    2808    -0.155675 
-    1704    2809    20.388768 
-    1704    2810    34.465149 
-    1705    1658    -7.578676 
-    1705    1703    -7.544026 
-    1705    1705    -42.232058 
-    1705    1706    56.042433 
-    1705    1754    -1.984297 
-    1705    2810    -5.582379 
-    1706    600    -0.000014 
-    1706    601    -1.780177 
-    1706    602    -3.009209 
-    1706    1656    -0.000010 
-    1706    1657    -1.370786 
-    1706    1658    -2.317174 
-    1706    1701    -0.000009 
-    1706    1702    -1.241608 
-    1706    1703    -2.098814 
-    1706    1704    0.000587 
-    1706    1705    9.199973 
-    1706    1706    15.551625 
-    1706    1707    -0.000011 
-    1706    1708    -1.432539 
-    1706    1709    -2.421562 
-    1706    1752    -0.000010 
-    1706    1753    -1.257786 
-    1706    1754    -2.126160 
-    1706    2808    -0.000016 
-    1706    2809    -2.112323 
-    1706    2810    -3.570668 
-    1707    603    -0.001233 
-    1707    1659    -0.499826 
-    1707    1660    60.983824 
-    1707    1661    103.087060 
-    1707    1704    -0.459480 
-    1707    1705    42.257388 
-    1707    1706    71.431844 
-    1707    1707    261.107860 
-    1707    1708    -371.655010 
-    1707    1709    -628.245610 
-    1707    1710    -0.479119 
-    1707    1711    47.530409 
-    1707    1712    80.345359 
-    1707    1755    -0.422697 
-    1707    1756    35.046687 
-    1707    1757    59.242920 
-    1707    2811    -0.299141 
-    1707    2812    34.530089 
-    1707    2813    58.369661 
-    1708    1661    -16.697151 
-    1708    1706    -11.569677 
-    1708    1708    -49.462685 
-    1708    1709    99.286469 
-    1708    1712    -13.013393 
-    1708    1757    -9.595315 
-    1708    2813    -9.453785 
-    1709    603    -0.000013 
-    1709    604    -1.520875 
-    1709    605    -2.570887 
-    1709    1659    -0.000012 
-    1709    1660    -1.580477 
-    1709    1661    -2.671639 
-    1709    1704    -0.000011 
-    1709    1705    -1.432539 
-    1709    1706    -2.421562 
-    1709    1707    0.000684 
-    1709    1708    9.820564 
-    1709    1709    16.600677 
-    1709    1710    -0.000012 
-    1709    1711    -1.586819 
-    1709    1712    -2.682358 
-    1709    1755    -0.000012 
-    1709    1756    -1.501972 
-    1709    1757    -2.538933 
-    1709    2811    -0.000014 
-    1709    2812    -1.803479 
-    1709    2813    -3.048600 
-    1710    606    -0.001085 
-    1710    1662    -0.206989 
-    1710    1663    30.368874 
-    1710    1664    51.335512 
-    1710    1707    -0.001179 
-    1710    1710    270.516630 
-    1710    1711    -239.664530 
-    1710    1712    -405.128690 
-    1710    1713    -0.291117 
-    1710    1714    28.543428 
-    1710    1715    48.249810 
-    1710    1758    -0.133422 
-    1710    1759    6.008596 
-    1710    1760    10.156924 
-    1710    2814    -0.120910 
-    1710    2815    16.989522 
-    1710    2816    28.719068 
-    1711    1664    -8.315086 
-    1711    1711    -51.497262 
-    1711    1712    63.118938 
-    1711    1715    -7.815253 
-    1711    1760    -1.645113 
-    1711    2816    -4.651683 
-    1712    606    -0.000011 
-    1712    607    -1.459765 
-    1712    608    -2.467585 
-    1712    1662    -0.000012 
-    1712    1663    -1.614432 
-    1712    1664    -2.729034 
-    1712    1707    -0.000012 
-    1712    1708    -1.586819 
-    1712    1709    -2.682358 
-    1712    1710    0.000704 
-    1712    1711    9.634145 
-    1712    1712    16.285550 
-    1712    1713    -0.000012 
-    1712    1714    -1.619510 
-    1712    1715    -2.737619 
-    1712    1758    -0.000012 
-    1712    1759    -1.616786 
-    1712    1760    -2.733014 
-    1712    2814    -0.000013 
-    1712    2815    -1.731037 
-    1712    2816    -2.926143 
-    1713    609    -0.001027 
-    1713    1665    -0.114556 
-    1713    1666    20.494516 
-    1713    1667    34.643930 
-    1713    1710    -0.001139 
-    1713    1713    270.107170 
-    1713    1714    -203.634730 
-    1713    1715    -344.224150 
-    1713    1716    -0.193586 
-    1713    1717    17.385177 
-    1713    1718    29.387887 
-    1713    1761    -0.015265 
-    1713    2817    -0.029539 
-    1713    2818    8.001403 
-    1713    2819    13.525571 
-    1714    1667    -5.611610 
-    1714    1714    -51.482107 
-    1714    1715    53.294295 
-    1714    1718    -4.760219 
-    1714    2819    -2.190825 
-    1715    609    -0.000011 
-    1715    610    -1.460318 
-    1715    611    -2.468522 
-    1715    1665    -0.000011 
-    1715    1666    -1.614388 
-    1715    1667    -2.728961 
-    1715    1710    -0.000012 
-    1715    1711    -1.619510 
-    1715    1712    -2.737619 
-    1715    1713    0.000701 
-    1715    1714    9.667581 
-    1715    1715    16.342077 
-    1715    1716    -0.000011 
-    1715    1717    -1.619173 
-    1715    1718    -2.737049 
-    1715    1761    -0.000012 
-    1715    1762    -1.616562 
-    1715    1763    -2.732636 
-    1715    2817    -0.000013 
-    1715    2818    -1.731841 
-    1715    2819    -2.927504 
-    1716    612    -0.000990 
-    1716    1668    -0.087899 
-    1716    1669    17.101421 
-    1716    1670    28.908223 
-    1716    1713    -0.001099 
-    1716    1716    270.029730 
-    1716    1717    -192.459250 
-    1716    1718    -325.332920 
-    1716    1719    -0.161407 
-    1716    1720    13.440870 
-    1716    1721    22.720447 
-    1716    1764    -0.001097 
-    1716    2820    -0.001175 
-    1716    2821    4.156914 
-    1716    2822    7.026842 
-    1717    1670    -4.682640 
-    1717    1717    -51.474884 
-    1717    1718    50.253828 
-    1717    1721    -3.680304 
-    1717    2822    -1.138207 
-    1718    612    -0.000010 
-    1718    613    -1.459079 
-    1718    614    -2.466425 
-    1718    1668    -0.000011 
-    1718    1669    -1.615505 
-    1718    1670    -2.730848 
-    1718    1713    -0.000011 
-    1718    1714    -1.619173 
-    1718    1715    -2.737049 
-    1718    1716    0.000699 
-    1718    1717    9.665880 
-    1718    1718    16.339196 
-    1718    1719    -0.000011 
-    1718    1720    -1.619003 
-    1718    1721    -2.736763 
-    1718    1764    -0.000011 
-    1718    1765    -1.616916 
-    1718    1766    -2.733233 
-    1718    2820    -0.000012 
-    1718    2821    -1.730419 
-    1718    2822    -2.925098 
-    1719    615    -0.025510 
-    1719    1671    -0.047733 
-    1719    1672    12.055848 
-    1719    1673    20.379205 
-    1719    1716    -0.001068 
-    1719    1719    269.939570 
-    1719    1720    -172.426060 
-    1719    1721    -291.469000 
-    1719    2823    -0.001142 
-    1719    2824    2.660689 
-    1719    2825    4.497629 
-    1720    1673    -3.301123 
-    1720    1720    -51.470763 
-    1720    1721    44.779759 
-    1720    2825    -0.728538 
-    1721    615    -0.000010 
-    1721    616    -1.460268 
-    1721    617    -2.468436 
-    1721    1671    -0.000011 
-    1721    1672    -1.599065 
-    1721    1673    -2.703060 
-    1721    1716    -0.000011 
-    1721    1717    -1.619003 
-    1721    1718    -2.736763 
-    1721    1719    0.000675 
-    1721    1720    6.415786 
-    1721    1721    10.845244 
-    1721    2823    -0.000012 
-    1721    2824    -1.731666 
-    1721    2825    -2.927208 
-    1722    1722    1.000000 
-    1723    1723    1.000000 
-    1724    1724    1.000000 
-    1725    1725    1.000000 
-    1726    1726    1.000000 
-    1727    1727    1.000000 
-    1728    1728    1.000000 
-    1729    1729    1.000000 
-    1730    1730    1.000000 
-    1731    1731    1.000000 
-    1732    1732    1.000000 
-    1733    1733    1.000000 
-    1734    1734    1.000000 
-    1735    1735    1.000000 
-    1736    1736    1.000000 
-    1737    633    -0.063308 
-    1737    1689    -0.000393 
-    1737    1737    107.996450 
-    1737    1738    -66.273133 
-    1737    1739    -112.028100 
-    1737    1740    -0.000393 
-    1737    1785    -0.039251 
-    1737    1786    2.888962 
-    1737    1787    4.883501 
-    1737    2841    -0.002623 
-    1737    2842    0.267289 
-    1737    2843    0.451825 
-    1738    1738    -20.584062 
-    1738    1739    17.184991 
-    1738    1787    -0.791091 
-    1738    2843    -0.073192 
-    1739    633    -0.000023 
-    1739    634    -3.643639 
-    1739    635    -6.159207 
-    1739    1689    -0.000004 
-    1739    1690    -0.647479 
-    1739    1691    -1.094499 
-    1739    1737    0.000315 
-    1739    1738    9.910028 
-    1739    1739    16.751912 
-    1739    1740    -0.000004 
-    1739    1741    -0.647486 
-    1739    1742    -1.094510 
-    1739    1785    -0.000004 
-    1739    1786    -0.647560 
-    1739    1787    -1.094636 
-    1739    2841    -0.000027 
-    1739    2842    -4.321552 
-    1739    2843    -7.305152 
-    1740    636    -0.060974 
-    1740    1692    -0.000436 
-    1740    1693    0.184695 
-    1740    1694    0.312209 
-    1740    1737    -0.013641 
-    1740    1738    2.862296 
-    1740    1739    4.838425 
-    1740    1740    108.031190 
-    1740    1741    -68.419519 
-    1740    1742    -115.656280 
-    1740    1743    -0.000436 
-    1740    1788    -0.034935 
-    1740    1789    1.840359 
-    1740    1790    3.110940 
-    1740    2844    -0.002666 
-    1740    2845    0.430566 
-    1740    2846    0.727828 
-    1741    1694    -0.050574 
-    1741    1739    -0.783780 
-    1741    1741    -20.587619 
-    1741    1742    17.763824 
-    1741    1790    -0.503942 
-    1741    2846    -0.117900 
-    1742    636    -0.000023 
-    1742    637    -3.643757 
-    1742    638    -6.159404 
-    1742    1692    -0.000005 
-    1742    1693    -0.705969 
-    1742    1694    -1.193369 
-    1742    1737    -0.000004 
-    1742    1738    -0.647486 
-    1742    1739    -1.094510 
-    1742    1740    0.000321 
-    1742    1741    10.674876 
-    1742    1742    18.044799 
-    1742    1743    -0.000005 
-    1742    1744    -0.706592 
-    1742    1745    -1.194423 
-    1742    1788    -0.000004 
-    1742    1789    -0.647482 
-    1742    1790    -1.094502 
-    1742    2844    -0.000028 
-    1742    2845    -4.321276 
-    1742    2846    -7.304679 
-    1743    639    -0.052938 
-    1743    1695    -0.000522 
-    1743    1696    1.329998 
-    1743    1697    2.248228 
-    1743    1740    -0.052756 
-    1743    1741    5.747727 
-    1743    1742    9.715952 
-    1743    1743    129.653910 
-    1743    1744    -85.348337 
-    1743    1745    -144.272830 
-    1743    1746    -0.000532 
-    1743    1791    -0.038165 
-    1743    1792    1.590345 
-    1743    1793    2.688319 
-    1743    2847    -0.002289 
-    1743    2848    0.954940 
-    1743    2849    1.614230 
-    1744    1697    -0.364183 
-    1744    1742    -1.573880 
-    1744    1744    -24.709362 
-    1744    1745    22.194201 
-    1744    1793    -0.435472 
-    1744    2849    -0.261483 
-    1745    639    -0.000020 
-    1745    640    -3.036682 
-    1745    641    -5.133207 
-    1745    1695    -0.000005 
-    1745    1696    -0.821905 
-    1745    1697    -1.389347 
-    1745    1740    -0.000005 
-    1745    1741    -0.706592 
-    1745    1742    -1.194423 
-    1745    1743    0.000367 
-    1745    1744    9.714083 
-    1745    1745    16.420685 
-    1745    1746    -0.000006 
-    1745    1747    -0.837098 
-    1745    1748    -1.415030 
-    1745    1791    -0.000005 
-    1745    1792    -0.706259 
-    1745    1793    -1.193860 
-    1745    2847    -0.000024 
-    1745    2848    -3.602770 
-    1745    2849    -6.090122 
-    1746    642    -0.029495 
-    1746    1698    -0.000620 
-    1746    1699    1.708587 
-    1746    1700    2.888193 
-    1746    1743    -0.106537 
-    1746    1744    9.530395 
-    1746    1745    16.110179 
-    1746    1746    151.254130 
-    1746    1747    -104.446810 
-    1746    1748    -176.556780 
-    1746    1749    -0.000640 
-    1746    1794    -0.057494 
-    1746    1795    2.342793 
-    1746    1796    3.960255 
-    1746    2850    -0.002044 
-    1746    2851    2.517673 
-    1746    2852    4.255873 
-    1747    1700    -0.467837 
-    1747    1745    -2.609624 
-    1747    1747    -28.831816 
-    1747    1748    27.216494 
-    1747    1796    -0.641494 
-    1747    2852    -0.689375 
-    1748    642    -0.000018 
-    1748    643    -2.604598 
-    1748    644    -4.402811 
-    1748    1698    -0.000006 
-    1748    1699    -0.936829 
-    1748    1700    -1.583616 
-    1748    1743    -0.000006 
-    1748    1744    -0.837098 
-    1748    1745    -1.415030 
-    1748    1746    0.000417 
-    1748    1747    9.293203 
-    1748    1748    15.709222 
-    1748    1749    -0.000007 
-    1748    1750    -0.967368 
-    1748    1751    -1.635238 
-    1748    1794    -0.000006 
-    1748    1795    -0.853975 
-    1748    1796    -1.443558 
-    1748    2850    -0.000021 
-    1748    2851    -3.090092 
-    1748    2852    -5.223489 
-    1749    645    -0.001582 
-    1749    1701    -0.000760 
-    1749    1702    0.241644 
-    1749    1703    0.408475 
-    1749    1746    -0.152981 
-    1749    1747    13.951809 
-    1749    1748    23.584125 
-    1749    1749    172.906570 
-    1749    1750    -126.993460 
-    1749    1751    -214.669750 
-    1749    1752    -0.000771 
-    1749    1797    -0.097879 
-    1749    1798    5.410514 
-    1749    1799    9.145932 
-    1749    2853    -0.014069 
-    1749    2854    6.412504 
-    1749    2855    10.839696 
-    1750    1703    -0.066163 
-    1750    1748    -3.820199 
-    1750    1750    -32.957137 
-    1750    1751    33.175169 
-    1750    1799    -1.481443 
-    1750    2855    -1.755783 
-    1751    645    -0.000017 
-    1751    646    -2.280049 
-    1751    647    -3.854194 
-    1751    1701    -0.000008 
-    1751    1702    -1.095437 
-    1751    1703    -1.851726 
-    1751    1746    -0.000007 
-    1751    1747    -0.967368 
-    1751    1748    -1.635238 
-    1751    1749    0.000470 
-    1751    1750    9.164349 
-    1751    1751    15.491414 
-    1751    1752    -0.000008 
-    1751    1753    -1.111507 
-    1751    1754    -1.878892 
-    1751    1797    -0.000007 
-    1751    1798    -1.001389 
-    1751    1799    -1.692748 
-    1751    2853    -0.000019 
-    1751    2854    -2.704891 
-    1751    2855    -4.572347 
-    1752    648    -0.001442 
-    1752    1704    -0.000919 
-    1752    1749    -0.197633 
-    1752    1750    18.014880 
-    1752    1751    30.452353 
-    1752    1752    200.077920 
-    1752    1753    -160.547650 
-    1752    1754    -271.389570 
-    1752    1755    -0.000961 
-    1752    1800    -0.174381 
-    1752    1801    12.361556 
-    1752    1802    20.895960 
-    1752    2856    -0.085147 
-    1752    2857    13.430198 
-    1752    2858    22.702394 
-    1753    1751    -4.932559 
-    1753    1753    -38.115097 
-    1753    1754    42.090424 
-    1753    1802    -3.384606 
-    1753    2858    -3.677161 
-    1754    648    -0.000015 
-    1754    649    -1.972400 
-    1754    650    -3.334143 
-    1754    1704    -0.000010 
-    1754    1705    -1.257786 
-    1754    1706    -2.126160 
-    1754    1749    -0.000008 
-    1754    1750    -1.111507 
-    1754    1751    -1.878892 
-    1754    1752    0.000536 
-    1754    1753    9.181600 
-    1754    1754    15.520567 
-    1754    1755    -0.000010 
-    1754    1756    -1.315371 
-    1754    1757    -2.223502 
-    1754    1800    -0.000009 
-    1754    1801    -1.180207 
-    1754    1802    -1.995020 
-    1754    2856    -0.000018 
-    1754    2857    -2.340037 
-    1754    2858    -3.955596 
-    1755    651    -0.001230 
-    1755    1707    -0.001139 
-    1755    1752    -0.189127 
-    1755    1753    15.687094 
-    1755    1754    26.517446 
-    1755    1755    243.503420 
-    1755    1756    -214.636380 
-    1755    1757    -362.821330 
-    1755    1758    -0.158087 
-    1755    1759    15.859809 
-    1755    1760    26.809404 
-    1755    1803    -0.293568 
-    1755    1804    22.350159 
-    1755    1805    37.780708 
-    1755    2859    -0.138715 
-    1755    2860    18.730508 
-    1755    2861    31.662050 
-    1756    1754    -4.295037 
-    1756    1756    -46.361346 
-    1756    1757    56.481337 
-    1756    1760    -4.342308 
-    1756    1805    -6.119398 
-    1756    2861    -5.128279 
-    1757    651    -0.000013 
-    1757    652    -1.622280 
-    1757    653    -2.742302 
-    1757    1707    -0.000012 
-    1757    1708    -1.501972 
-    1757    1709    -2.538933 
-    1757    1752    -0.000010 
-    1757    1753    -1.315371 
-    1757    1754    -2.223502 
-    1757    1755    0.000640 
-    1757    1756    9.341745 
-    1757    1757    15.791282 
-    1757    1758    -0.000012 
-    1757    1759    -1.534571 
-    1757    1760    -2.594038 
-    1757    1803    -0.000011 
-    1757    1804    -1.438376 
-    1757    1805    -2.431431 
-    1757    2859    -0.000015 
-    1757    2860    -1.923952 
-    1757    2861    -3.252249 
-    1758    654    -0.001072 
-    1758    1710    -0.001188 
-    1758    1755    -0.001127 
-    1758    1758    270.144950 
-    1758    1759    -196.578550 
-    1758    1760    -332.296180 
-    1758    1761    -0.172805 
-    1758    1762    16.117870 
-    1758    1763    27.245647 
-    1758    1806    -0.182016 
-    1758    1807    11.574085 
-    1758    1808    19.564815 
-    1758    2862    -0.061196 
-    1758    2863    11.111017 
-    1758    2864    18.782047 
-    1759    1759    -51.503173 
-    1759    1760    51.308508 
-    1759    1763    -4.413067 
-    1759    1808    -3.168960 
-    1759    2864    -3.042167 
-    1760    654    -0.000011 
-    1760    655    -1.459200 
-    1760    656    -2.466631 
-    1760    1710    -0.000012 
-    1760    1711    -1.616786 
-    1760    1712    -2.733014 
-    1760    1755    -0.000012 
-    1760    1756    -1.534571 
-    1760    1757    -2.594038 
-    1760    1758    0.000704 
-    1760    1759    9.583425 
-    1760    1760    16.199811 
-    1760    1761    -0.000012 
-    1760    1762    -1.619717 
-    1760    1763    -2.737969 
-    1760    1806    -0.000012 
-    1760    1807    -1.616875 
-    1760    1808    -2.733163 
-    1760    2862    -0.000013 
-    1760    2863    -1.730476 
-    1760    2864    -2.925195 
-    1761    657    -0.001038 
-    1761    1713    -0.001151 
-    1761    1714    6.396303 
-    1761    1715    10.812310 
-    1761    1758    -0.001153 
-    1761    1761    269.953340 
-    1761    1762    -181.323280 
-    1761    1763    -306.508870 
-    1761    1764    -0.103881 
-    1761    1765    10.114327 
-    1761    1766    17.097245 
-    1761    1809    -0.062403 
-    1761    1810    0.578917 
-    1761    1811    0.978601 
-    1761    2865    -0.013870 
-    1761    2866    6.452095 
-    1761    2867    10.906622 
-    1762    1715    -1.751322 
-    1762    1762    -51.495627 
-    1762    1763    47.151643 
-    1762    1766    -2.769339 
-    1762    1811    -0.158507 
-    1762    2867    -1.766597 
-    1763    657    -0.000011 
-    1763    658    -1.458490 
-    1763    659    -2.465431 
-    1763    1713    -0.000012 
-    1763    1714    -1.616562 
-    1763    1715    -2.732636 
-    1763    1758    -0.000012 
-    1763    1759    -1.619717 
-    1763    1760    -2.737969 
-    1763    1761    0.000703 
-    1763    1762    9.666624 
-    1763    1763    16.340459 
-    1763    1764    -0.000012 
-    1763    1765    -1.619648 
-    1763    1766    -2.737850 
-    1763    1809    -0.000012 
-    1763    1810    -1.616718 
-    1763    1811    -2.732899 
-    1763    2865    -0.000013 
-    1763    2866    -1.729695 
-    1763    2867    -2.923877 
-    1764    660    -0.002126 
-    1764    1716    -0.076600 
-    1764    1717    13.660612 
-    1764    1718    23.091886 
-    1764    1761    -0.001130 
-    1764    1764    269.846290 
-    1764    1765    -175.610320 
-    1764    1766    -296.851470 
-    1764    1812    -0.021406 
-    1764    2868    -0.001208 
-    1764    2869    4.174611 
-    1764    2870    7.056759 
-    1765    1718    -3.740399 
-    1765    1765    -51.490230 
-    1765    1766    45.601587 
-    1765    2870    -1.143030 
-    1766    660    -0.000011 
-    1766    661    -1.458956 
-    1766    662    -2.466217 
-    1766    1716    -0.000011 
-    1766    1717    -1.616916 
-    1766    1718    -2.733233 
-    1766    1761    -0.000012 
-    1766    1762    -1.619648 
-    1766    1763    -2.737850 
-    1766    1764    0.000690 
-    1766    1765    8.048687 
-    1766    1766    13.605490 
-    1766    1812    -0.000012 
-    1766    1813    -1.617100 
-    1766    1814    -2.733544 
-    1766    2868    -0.000013 
-    1766    2869    -1.730274 
-    1766    2870    -2.924854 
-    1767    1767    1.000000 
-    1768    1768    1.000000 
-    1769    1769    1.000000 
-    1770    1770    1.000000 
-    1771    1771    1.000000 
-    1772    1772    1.000000 
-    1773    1773    1.000000 
-    1774    1774    1.000000 
-    1775    1775    1.000000 
-    1776    1776    1.000000 
-    1777    1777    1.000000 
-    1778    1778    1.000000 
-    1779    1779    1.000000 
-    1780    1780    1.000000 
-    1781    1781    1.000000 
-    1782    678    -0.063457 
-    1782    1782    113.372150 
-    1782    1783    -68.660562 
-    1782    1784    -116.063750 
-    1782    1785    -0.000388 
-    1782    1830    -0.015354 
-    1782    1831    2.142985 
-    1782    1832    3.622500 
-    1782    2886    -0.002412 
-    1782    2887    0.239673 
-    1782    2888    0.405144 
-    1783    1783    -21.608517 
-    1783    1784    17.802766 
-    1783    1832    -0.586829 
-    1783    2888    -0.065631 
-    1784    678    -0.000021 
-    1784    679    -3.470235 
-    1784    680    -5.866081 
-    1784    1782    0.000320 
-    1784    1783    8.976971 
-    1784    1784    15.174662 
-    1784    1785    -0.000004 
-    1784    1786    -0.662728 
-    1784    1787    -1.120274 
-    1784    1830    -0.000004 
-    1784    1831    -0.725236 
-    1784    1832    -1.225939 
-    1784    2886    -0.000025 
-    1784    2887    -4.116348 
-    1784    2888    -6.958270 
-    1785    681    -0.063594 
-    1785    1737    -0.000386 
-    1785    1782    -0.011889 
-    1785    1783    3.144552 
-    1785    1784    5.315547 
-    1785    1785    108.018080 
-    1785    1786    -69.213653 
-    1785    1787    -116.998760 
-    1785    1788    -0.000386 
-    1785    1833    -0.036654 
-    1785    1834    2.709470 
-    1785    1835    4.580089 
-    1785    2889    -0.002580 
-    1785    2890    0.246444 
-    1785    2891    0.416589 
-    1786    1784    -0.861089 
-    1786    1786    -20.583738 
-    1786    1787    17.991234 
-    1786    1835    -0.741947 
-    1786    2891    -0.067484 
-    1787    681    -0.000023 
-    1787    682    -3.645772 
-    1787    683    -6.162813 
-    1787    1737    -0.000004 
-    1787    1738    -0.647560 
-    1787    1739    -1.094636 
-    1787    1782    -0.000004 
-    1787    1783    -0.662728 
-    1787    1784    -1.120274 
-    1787    1785    0.000318 
-    1787    1786    10.592832 
-    1787    1787    17.906123 
-    1787    1788    -0.000004 
-    1787    1789    -0.647263 
-    1787    1790    -1.094134 
-    1787    1833    -0.000004 
-    1787    1834    -0.663245 
-    1787    1835    -1.121149 
-    1787    2889    -0.000027 
-    1787    2890    -4.323953 
-    1787    2891    -7.309211 
-    1788    684    -0.062687 
-    1788    1740    -0.000395 
-    1788    1785    -0.017944 
-    1788    1786    3.909041 
-    1788    1787    6.607844 
-    1788    1788    108.038200 
-    1788    1789    -69.988742 
-    1788    1790    -118.308890 
-    1788    1791    -0.000395 
-    1788    1836    -0.036900 
-    1788    1837    2.657672 
-    1788    1838    4.492524 
-    1788    2892    -0.002637 
-    1788    2893    0.309799 
-    1788    2894    0.523684 
-    1789    1787    -1.070421 
-    1789    1789    -20.588667 
-    1789    1790    18.191121 
-    1789    1838    -0.727753 
-    1789    2894    -0.084832 
-    1790    684    -0.000023 
-    1790    685    -3.642601 
-    1790    686    -6.157449 
-    1790    1740    -0.000004 
-    1790    1741    -0.647482 
-    1790    1742    -1.094502 
-    1790    1785    -0.000004 
-    1790    1786    -0.647263 
-    1790    1787    -1.094134 
-    1790    1788    0.000320 
-    1790    1789    10.555334 
-    1790    1790    17.842726 
-    1790    1791    -0.000004 
-    1790    1792    -0.647728 
-    1790    1793    -1.094919 
-    1790    1836    -0.000004 
-    1790    1837    -0.647624 
-    1790    1838    -1.094742 
-    1790    2892    -0.000028 
-    1790    2893    -4.320322 
-    1790    2894    -7.303069 
-    1791    687    -0.058185 
-    1791    1743    -0.000445 
-    1791    1788    -0.048309 
-    1791    1789    5.651199 
-    1791    1790    9.552780 
-    1791    1791    108.067510 
-    1791    1792    -72.373388 
-    1791    1793    -122.339970 
-    1791    1794    -0.000454 
-    1791    1839    -0.043448 
-    1791    1840    2.989205 
-    1791    1841    5.052952 
-    1791    2895    -0.002723 
-    1791    2896    0.626735 
-    1791    2897    1.059432 
-    1792    1790    -1.547458 
-    1792    1792    -20.592885 
-    1792    1793    18.833227 
-    1792    1841    -0.818521 
-    1792    2897    -0.171614 
-    1793    687    -0.000024 
-    1793    688    -3.642810 
-    1793    689    -6.157807 
-    1793    1743    -0.000005 
-    1793    1744    -0.706259 
-    1793    1745    -1.193860 
-    1793    1788    -0.000004 
-    1793    1789    -0.647728 
-    1793    1790    -1.094919 
-    1793    1791    0.000323 
-    1793    1792    10.687176 
-    1793    1793    18.065601 
-    1793    1794    -0.000005 
-    1793    1795    -0.719826 
-    1793    1796    -1.216794 
-    1793    1839    -0.000004 
-    1793    1840    -0.647693 
-    1793    1841    -1.094861 
-    1793    2895    -0.000028 
-    1793    2896    -4.320544 
-    1793    2897    -7.303447 
-    1794    690    -0.045082 
-    1794    1746    -0.000559 
-    1794    1791    -0.082053 
-    1794    1792    7.841056 
-    1794    1793    13.254521 
-    1794    1794    135.076980 
-    1794    1795    -92.422249 
-    1794    1796    -156.230460 
-    1794    1797    -0.000579 
-    1794    1842    -0.079778 
-    1794    1843    4.184264 
-    1794    1844    7.073075 
-    1794    2898    -0.002269 
-    1794    2899    1.499179 
-    1794    2900    2.534211 
-    1795    1793    -2.147059 
-    1795    1795    -25.745523 
-    1795    1796    24.065408 
-    1795    1844    -1.145732 
-    1795    2900    -0.410499 
-    1796    690    -0.000020 
-    1796    691    -2.919621 
-    1796    692    -4.935323 
-    1796    1746    -0.000006 
-    1796    1747    -0.853975 
-    1796    1748    -1.443558 
-    1796    1791    -0.000005 
-    1796    1792    -0.719826 
-    1796    1793    -1.216794 
-    1796    1794    0.000381 
-    1796    1795    9.600882 
-    1796    1796    16.229320 
-    1796    1797    -0.000006 
-    1796    1798    -0.883417 
-    1796    1799    -1.493328 
-    1796    1842    -0.000005 
-    1796    1843    -0.757150 
-    1796    1844    -1.279886 
-    1796    2898    -0.000024 
-    1796    2899    -3.463996 
-    1796    2900    -5.855535 
-    1797    693    -0.015535 
-    1797    1749    -0.000683 
-    1797    1794    -0.112837 
-    1797    1795    10.391003 
-    1797    1796    17.564939 
-    1797    1797    162.087010 
-    1797    1798    -115.265500 
-    1797    1799    -194.844800 
-    1797    1800    -0.000723 
-    1797    1845    -0.108816 
-    1797    1846    6.767584 
-    1797    1847    11.439923 
-    1797    2901    -0.001967 
-    1797    2902    3.437816 
-    1797    2903    5.811284 
-    1798    1796    -2.845220 
-    1798    1798    -30.899754 
-    1798    1799    30.058278 
-    1798    1847    -1.853051 
-    1798    2903    -0.941305 
-    1799    693    -0.000017 
-    1799    694    -2.432178 
-    1799    695    -4.111354 
-    1799    1749    -0.000007 
-    1799    1750    -1.001389 
-    1799    1751    -1.692748 
-    1799    1794    -0.000006 
-    1799    1795    -0.883417 
-    1799    1796    -1.493328 
-    1799    1797    0.000444 
-    1799    1798    9.201385 
-    1799    1799    15.554020 
-    1799    1800    -0.000008 
-    1799    1801    -1.060058 
-    1799    1802    -1.791923 
-    1799    1845    -0.000006 
-    1799    1846    -0.935361 
-    1799    1847    -1.581134 
-    1799    2901    -0.000021 
-    1799    2902    -2.885504 
-    1799    2903    -4.877655 
-    1800    696    -0.001433 
-    1800    1752    -0.000834 
-    1800    1797    -0.135467 
-    1800    1798    11.804877 
-    1800    1799    19.954964 
-    1800    1800    194.517550 
-    1800    1801    -142.593830 
-    1800    1802    -241.040460 
-    1800    1803    -0.000907 
-    1800    1848    -0.157965 
-    1800    1849    10.780072 
-    1800    1850    18.222623 
-    1800    2904    -0.013656 
-    1800    2905    6.391327 
-    1800    2906    10.803892 
-    1801    1799    -3.232272 
-    1801    1801    -37.084526 
-    1801    1802    37.227496 
-    1801    1850    -2.951661 
-    1801    2906    -1.749963 
-    1802    696    -0.000015 
-    1802    697    -2.027004 
-    1802    698    -3.426445 
-    1802    1752    -0.000009 
-    1802    1753    -1.180207 
-    1802    1754    -1.995020 
-    1802    1797    -0.000008 
-    1802    1798    -1.060058 
-    1802    1799    -1.791923 
-    1802    1800    0.000521 
-    1802    1801    9.089951 
-    1802    1802    15.365644 
-    1802    1803    -0.000009 
-    1802    1804    -1.282751 
-    1802    1805    -2.168360 
-    1802    1848    -0.000008 
-    1802    1849    -1.130829 
-    1802    1850    -1.911551 
-    1802    2904    -0.000018 
-    1802    2905    -2.404928 
-    1802    2906    -4.065287 
-    1803    699    -0.001199 
-    1803    1755    -0.001040 
-    1803    1800    -0.112146 
-    1803    1801    8.801389 
-    1803    1802    14.877859 
-    1803    1803    237.716890 
-    1803    1804    -172.510840 
-    1803    1805    -291.612330 
-    1803    1806    -0.017391 
-    1803    1807    2.963568 
-    1803    1808    5.009611 
-    1803    1851    -0.205367 
-    1803    1852    13.685122 
-    1803    1853    23.133330 
-    1803    2907    -0.031731 
-    1803    2908    8.199983 
-    1803    2909    13.861251 
-    1804    1802    -2.409829 
-    1804    1804    -45.327617 
-    1804    1805    45.009350 
-    1804    1808    -0.811419 
-    1804    1853    -3.747027 
-    1804    2909    -2.245149 
-    1805    699    -0.000013 
-    1805    700    -1.659097 
-    1805    701    -2.804538 
-    1805    1755    -0.000011 
-    1805    1756    -1.438376 
-    1805    1757    -2.431431 
-    1805    1800    -0.000009 
-    1805    1801    -1.282751 
-    1805    1802    -2.168360 
-    1805    1803    0.000625 
-    1805    1804    9.259195 
-    1805    1805    15.651739 
-    1805    1806    -0.000011 
-    1805    1807    -1.516409 
-    1805    1808    -2.563335 
-    1805    1851    -0.000010 
-    1805    1852    -1.389323 
-    1805    1853    -2.348513 
-    1805    2907    -0.000015 
-    1805    2908    -1.968134 
-    1805    2909    -3.326934 
-    1806    702    -0.001049 
-    1806    1758    -0.001162 
-    1806    1803    -0.001089 
-    1806    1806    269.947980 
-    1806    1807    -179.105480 
-    1806    1808    -302.759630 
-    1806    1809    -0.052989 
-    1806    1810    5.103267 
-    1806    1811    8.626563 
-    1806    1854    -0.175079 
-    1806    1855    10.116538 
-    1806    1856    17.100984 
-    1806    2910    -0.009941 
-    1806    2911    6.069439 
-    1806    2912    10.259773 
-    1807    1807    -51.505101 
-    1807    1808    46.520833 
-    1807    1811    -1.397274 
-    1807    1856    -2.769927 
-    1807    2912    -1.661813 
-    1808    702    -0.000011 
-    1808    703    -1.459785 
-    1808    704    -2.467619 
-    1808    1758    -0.000012 
-    1808    1759    -1.616875 
-    1808    1760    -2.733163 
-    1808    1803    -0.000011 
-    1808    1804    -1.516409 
-    1808    1805    -2.563335 
-    1808    1806    0.000703 
-    1808    1807    9.566398 
-    1808    1808    16.171028 
-    1808    1809    -0.000012 
-    1808    1810    -1.619787 
-    1808    1811    -2.738089 
-    1808    1854    -0.000012 
-    1808    1855    -1.616506 
-    1808    1856    -2.732539 
-    1808    2910    -0.000013 
-    1808    2911    -1.731237 
-    1808    2912    -2.926480 
-    1809    705    -0.001038 
-    1809    1761    -0.001150 
-    1809    1806    -0.001152 
-    1809    1809    269.845900 
-    1809    1810    -167.811400 
-    1809    1811    -283.668390 
-    1809    1812    -0.062820 
-    1809    1813    5.291959 
-    1809    1814    8.945522 
-    1809    2913    -0.001232 
-    1809    2914    4.741739 
-    1809    2915    8.015435 
-    1810    1810    -51.502392 
-    1810    1811    43.435542 
-    1810    1814    -1.448949 
-    1810    2915    -1.298296 
-    1811    705    -0.000011 
-    1811    706    -1.460471 
-    1811    707    -2.468781 
-    1811    1761    -0.000012 
-    1811    1762    -1.616718 
-    1811    1763    -2.732899 
-    1811    1806    -0.000012 
-    1811    1807    -1.619787 
-    1811    1808    -2.738089 
-    1811    1809    0.000691 
-    1811    1810    8.054580 
-    1811    1811    13.615461 
-    1811    1812    -0.000012 
-    1811    1813    -1.619740 
-    1811    1814    -2.738007 
-    1811    2913    -0.000013 
-    1811    2914    -1.732066 
-    1811    2915    -2.927885 
-    1812    708    -0.011013 
-    1812    1764    -0.001138 
-    1812    1765    4.235712 
-    1812    1766    7.160042 
-    1812    1809    -0.001140 
-    1812    1812    269.818770 
-    1812    1813    -165.664960 
-    1812    1814    -280.039860 
-    1812    2916    -0.001218 
-    1812    2917    3.653898 
-    1812    2918    6.176546 
-    1813    1766    -1.159753 
-    1813    1813    -51.500595 
-    1813    1814    42.852774 
-    1813    2918    -1.000449 
-    1814    708    -0.000011 
-    1814    709    -1.459135 
-    1814    710    -2.466520 
-    1814    1764    -0.000012 
-    1814    1765    -1.617100 
-    1814    1766    -2.733544 
-    1814    1809    -0.000012 
-    1814    1810    -1.619740 
-    1814    1811    -2.738007 
-    1814    1812    0.000679 
-    1814    1813    6.432265 
-    1814    1814    10.873094 
-    1814    2916    -0.000013 
-    1814    2917    -1.730493 
-    1814    2918    -2.925224 
-    1815    1815    1.000000 
-    1816    1816    1.000000 
-    1817    1817    1.000000 
-    1818    1818    1.000000 
-    1819    1819    1.000000 
-    1820    1820    1.000000 
-    1821    1821    1.000000 
-    1822    1822    1.000000 
-    1823    1823    1.000000 
-    1824    1824    1.000000 
-    1825    1825    1.000000 
-    1826    1826    1.000000 
-    1827    1827    1.000000 
-    1828    1828    1.000000 
-    1829    1829    1.000000 
-    1830    726    -0.063023 
-    1830    1782    -0.000420 
-    1830    1830    129.564290 
-    1830    1831    -79.601512 
-    1830    1832    -134.558320 
-    1830    1833    -0.012541 
-    1830    1878    -0.025316 
-    1830    1879    3.604050 
-    1830    1880    6.092282 
-    1830    2934    -0.002091 
-    1830    2935    0.249867 
-    1830    2936    0.422374 
-    1831    1831    -24.693282 
-    1831    1832    20.661564 
-    1831    1880    -0.986933 
-    1831    2936    -0.068423 
-    1832    726    -0.000018 
-    1832    727    -3.041851 
-    1832    728    -5.141942 
-    1832    1782    -0.000004 
-    1832    1783    -0.725236 
-    1832    1784    -1.225939 
-    1832    1830    0.000357 
-    1832    1831    8.925299 
-    1832    1832    15.087315 
-    1832    1833    -0.000004 
-    1832    1834    -0.723883 
-    1832    1835    -1.223651 
-    1832    1878    -0.000005 
-    1832    1879    -0.822290 
-    1832    1880    -1.389997 
-    1832    2934    -0.000022 
-    1832    2935    -3.609268 
-    1832    2936    -6.101103 
-    1833    729    -0.063368 
-    1833    1785    -0.000390 
-    1833    1830    -0.000425 
-    1833    1831    2.616386 
-    1833    1832    4.422737 
-    1833    1833    113.422340 
-    1833    1834    -72.226180 
-    1833    1835    -122.091130 
-    1833    1836    -0.000389 
-    1833    1881    -0.014385 
-    1833    1882    3.094740 
-    1833    1883    5.231349 
-    1833    2937    -0.002420 
-    1833    2938    0.249406 
-    1833    2939    0.421596 
-    1834    1832    -0.716464 
-    1834    1834    -21.612590 
-    1834    1835    18.769138 
-    1834    1883    -0.847456 
-    1834    2939    -0.068296 
-    1835    729    -0.000021 
-    1835    730    -3.473180 
-    1835    731    -5.871063 
-    1835    1785    -0.000004 
-    1835    1786    -0.663245 
-    1835    1787    -1.121149 
-    1835    1830    -0.000004 
-    1835    1831    -0.723883 
-    1835    1832    -1.223651 
-    1835    1833    0.000329 
-    1835    1834    10.370998 
-    1835    1835    17.531134 
-    1835    1836    -0.000004 
-    1835    1837    -0.662971 
-    1835    1838    -1.120686 
-    1835    1881    -0.000004 
-    1835    1882    -0.725017 
-    1835    1883    -1.225569 
-    1835    2937    -0.000025 
-    1835    2938    -4.120276 
-    1835    2939    -6.964914 
-    1836    732    -0.063342 
-    1836    1788    -0.000389 
-    1836    1833    -0.017241 
-    1836    1834    3.991420 
-    1836    1835    6.747097 
-    1836    1836    108.034300 
-    1836    1837    -70.405894 
-    1836    1838    -119.014020 
-    1836    1839    -0.000389 
-    1836    1884    -0.021837 
-    1836    1885    3.046511 
-    1836    1886    5.149820 
-    1836    2940    -0.002597 
-    1836    2941    0.261947 
-    1836    2942    0.442796 
-    1837    1835    -1.092990 
-    1837    1837    -20.588468 
-    1837    1838    18.306083 
-    1837    1886    -0.834238 
-    1837    2942    -0.071729 
-    1838    732    -0.000023 
-    1838    733    -3.643249 
-    1838    734    -6.158543 
-    1838    1788    -0.000004 
-    1838    1789    -0.647624 
-    1838    1790    -1.094742 
-    1838    1833    -0.000004 
-    1838    1834    -0.662971 
-    1838    1835    -1.120686 
-    1838    1836    0.000319 
-    1838    1837    10.572209 
-    1838    1838    17.871250 
-    1838    1839    -0.000004 
-    1838    1840    -0.647431 
-    1838    1841    -1.094416 
-    1838    1884    -0.000004 
-    1838    1885    -0.647531 
-    1838    1886    -1.094585 
-    1838    2940    -0.000027 
-    1838    2941    -4.321090 
-    1838    2942    -7.304366 
-    1839    735    -0.061681 
-    1839    1791    -0.000401 
-    1839    1836    -0.041748 
-    1839    1837    5.317321 
-    1839    1838    8.988392 
-    1839    1839    108.044530 
-    1839    1840    -72.357808 
-    1839    1841    -122.313640 
-    1839    1842    -0.000420 
-    1839    1887    -0.039497 
-    1839    1888    3.536670 
-    1839    1889    5.978387 
-    1839    2943    -0.002678 
-    1839    2944    0.384067 
-    1839    2945    0.649226 
-    1840    1838    -1.456047 
-    1840    1840    -20.592914 
-    1840    1841    18.829160 
-    1840    1889    -0.968443 
-    1840    2945    -0.105167 
-    1841    735    -0.000024 
-    1841    736    -3.644487 
-    1841    737    -6.160641 
-    1841    1791    -0.000004 
-    1841    1792    -0.647693 
-    1841    1793    -1.094861 
-    1841    1836    -0.000004 
-    1841    1837    -0.647431 
-    1841    1838    -1.094416 
-    1841    1839    0.000321 
-    1841    1840    10.590126 
-    1841    1841    17.901548 
-    1841    1842    -0.000004 
-    1841    1843    -0.678411 
-    1841    1844    -1.146785 
-    1841    1887    -0.000004 
-    1841    1888    -0.647745 
-    1841    1889    -1.094948 
-    1841    2943    -0.000028 
-    1841    2944    -4.322044 
-    1841    2945    -7.305982 
-    1842    738    -0.055113 
-    1842    1794    -0.000486 
-    1842    1839    -0.051357 
-    1842    1840    6.771428 
-    1842    1841    11.446421 
-    1842    1842    118.900760 
-    1842    1843    -81.623769 
-    1842    1844    -137.976730 
-    1842    1845    -0.000513 
-    1842    1890    -0.061991 
-    1842    1891    4.614738 
-    1842    1892    7.800747 
-    1842    2946    -0.002523 
-    1842    2947    0.822619 
-    1842    2948    1.390553 
-    1843    1841    -1.854191 
-    1843    1843    -22.658386 
-    1843    1844    21.252222 
-    1843    1892    -1.263624 
-    1843    2948    -0.225249 
-    1844    738    -0.000022 
-    1844    739    -3.312375 
-    1844    740    -5.599235 
-    1844    1794    -0.000005 
-    1844    1795    -0.757150 
-    1844    1796    -1.279886 
-    1844    1839    -0.000004 
-    1844    1840    -0.678411 
-    1844    1841    -1.146785 
-    1844    1842    0.000346 
-    1844    1843    10.173885 
-    1844    1844    17.197926 
-    1844    1845    -0.000005 
-    1844    1846    -0.798127 
-    1844    1847    -1.349153 
-    1844    1890    -0.000005 
-    1844    1891    -0.695944 
-    1844    1892    -1.176423 
-    1844    2946    -0.000026 
-    1844    2947    -3.929329 
-    1844    2948    -6.642133 
-    1845    741    -0.041786 
-    1845    1797    -0.000622 
-    1845    1842    -0.093185 
-    1845    1843    8.023441 
-    1845    1844    13.562817 
-    1845    1845    151.294080 
-    1845    1846    -104.854220 
-    1845    1847    -177.245580 
-    1845    1848    -0.000662 
-    1845    1893    -0.127120 
-    1845    1894    6.741027 
-    1845    1895    11.395032 
-    1845    2949    -0.002062 
-    1845    2950    1.710576 
-    1845    2951    2.891558 
-    1846    1844    -2.196973 
-    1846    1846    -28.841163 
-    1846    1847    27.304935 
-    1846    1895    -1.845813 
-    1846    2951    -0.468378 
-    1847    741    -0.000018 
-    1847    742    -2.612950 
-    1847    743    -4.416930 
-    1847    1797    -0.000006 
-    1847    1798    -0.935361 
-    1847    1799    -1.581134 
-    1847    1842    -0.000005 
-    1847    1843    -0.798127 
-    1847    1844    -1.349153 
-    1847    1845    0.000418 
-    1847    1846    9.316449 
-    1847    1847    15.748525 
-    1847    1848    -0.000007 
-    1847    1849    -0.994792 
-    1847    1850    -1.681596 
-    1847    1893    -0.000006 
-    1847    1894    -0.871649 
-    1847    1895    -1.473435 
-    1847    2949    -0.000022 
-    1847    2950    -3.100324 
-    1847    2951    -5.240788 
-    1848    744    -0.021587 
-    1848    1800    -0.000775 
-    1848    1845    -0.103888 
-    1848    1846    8.792035 
-    1848    1847    14.862056 
-    1848    1848    183.684570 
-    1848    1849    -128.566590 
-    1848    1850    -217.328840 
-    1848    1851    -0.000834 
-    1848    1896    -0.145258 
-    1848    1897    9.471709 
-    1848    1898    16.010965 
-    1848    2952    -0.001745 
-    1848    2953    2.995374 
-    1848    2954    5.063378 
-    1849    1847    -2.407372 
-    1849    1849    -35.024614 
-    1849    1850    33.487759 
-    1849    1898    -2.593473 
-    1849    2954    -0.820157 
-    1850    744    -0.000015 
-    1850    745    -2.146850 
-    1850    746    -3.629033 
-    1850    1800    -0.000008 
-    1850    1801    -1.130829 
-    1850    1802    -1.911551 
-    1850    1845    -0.000007 
-    1850    1846    -0.994792 
-    1850    1847    -1.681596 
-    1850    1848    0.000494 
-    1850    1849    9.137652 
-    1850    1850    15.446279 
-    1850    1851    -0.000009 
-    1850    1852    -1.217376 
-    1850    1853    -2.057852 
-    1850    1896    -0.000008 
-    1850    1897    -1.097359 
-    1850    1898    -1.854974 
-    1850    2952    -0.000018 
-    1850    2953    -2.546503 
-    1850    2954    -4.304606 
-    1851    747    -0.006920 
-    1851    1803    -0.000973 
-    1851    1848    -0.096521 
-    1851    1849    7.966307 
-    1851    1850    13.466238 
-    1851    1851    226.821060 
-    1851    1852    -152.118950 
-    1851    1853    -257.141880 
-    1851    1854    -0.001036 
-    1851    1899    -0.140776 
-    1851    1900    7.754570 
-    1851    1901    13.108325 
-    1851    2955    -0.001444 
-    1851    2956    3.827795 
-    1851    2957    6.470505 
-    1852    1850    -2.181232 
-    1852    1852    -43.268319 
-    1852    1853    39.525830 
-    1852    1901    -2.123253 
-    1852    2957    -1.048066 
-    1853    747    -0.000013 
-    1853    748    -1.738063 
-    1853    749    -2.938022 
-    1853    1803    -0.000010 
-    1853    1804    -1.389323 
-    1853    1805    -2.348513 
-    1853    1848    -0.000009 
-    1853    1849    -1.217376 
-    1853    1850    -2.057852 
-    1853    1851    0.000598 
-    1853    1852    9.231555 
-    1853    1853    15.605019 
-    1853    1854    -0.000011 
-    1853    1855    -1.478956 
-    1853    1856    -2.500026 
-    1853    1899    -0.000010 
-    1853    1900    -1.341189 
-    1853    1901    -2.267146 
-    1853    2955    -0.000015 
-    1853    2956    -2.061775 
-    1853    2957    -3.485225 
-    1854    750    -0.014371 
-    1854    1806    -0.001138 
-    1854    1851    -0.043584 
-    1854    1852    2.422197 
-    1854    1853    4.094481 
-    1854    1854    269.905960 
-    1854    1855    -170.151550 
-    1854    1856    -287.623970 
-    1854    1902    -0.140481 
-    1854    1903    6.545261 
-    1854    1904    11.064105 
-    1854    2958    -0.001219 
-    1854    2959    3.365699 
-    1854    2960    5.689374 
-    1855    1853    -0.663205 
-    1855    1855    -51.508807 
-    1855    1856    44.061014 
-    1855    1904    -1.792122 
-    1855    2960    -0.921539 
-    1856    750    -0.000011 
-    1856    751    -1.459942 
-    1856    752    -2.467883 
-    1856    1806    -0.000012 
-    1856    1807    -1.616506 
-    1856    1808    -2.732539 
-    1856    1851    -0.000011 
-    1856    1852    -1.478956 
-    1856    1853    -2.500026 
-    1856    1854    0.000689 
-    1856    1855    7.893000 
-    1856    1856    13.342320 
-    1856    1902    -0.000012 
-    1856    1903    -1.600177 
-    1856    1904    -2.704938 
-    1856    2958    -0.000013 
-    1856    2959    -1.731620 
-    1856    2960    -2.927129 
-    1857    1857    1.000000 
-    1858    1858    1.000000 
-    1859    1859    1.000000 
-    1860    1860    1.000000 
-    1861    1861    1.000000 
-    1862    1862    1.000000 
-    1863    1863    1.000000 
-    1864    1864    1.000000 
-    1865    1865    1.000000 
-    1866    1866    1.000000 
-    1867    1867    1.000000 
-    1868    1868    1.000000 
-    1869    1869    1.000000 
-    1870    1870    1.000000 
-    1871    1871    1.000000 
-    1872    1872    1.000000 
-    1873    1873    1.000000 
-    1874    1874    1.000000 
-    1875    771    -0.061747 
-    1875    1875    161.937720 
-    1875    1876    -96.325749 
-    1875    1877    -162.829050 
-    1875    1878    -0.007715 
-    1875    1923    -0.000546 
-    1875    1924    1.361134 
-    1875    1925    2.300861 
-    1875    2979    -0.001622 
-    1875    2980    0.285764 
-    1875    2981    0.483056 
-    1876    1876    -30.856113 
-    1876    1877    24.983323 
-    1876    1925    -0.372737 
-    1876    2981    -0.078254 
-    1877    771    -0.000014 
-    1877    772    -2.430530 
-    1877    773    -4.108568 
-    1877    1875    0.000421 
-    1877    1876    7.206681 
-    1877    1877    12.182174 
-    1877    1878    -0.000005 
-    1877    1879    -0.918595 
-    1877    1880    -1.552793 
-    1877    1923    -0.000006 
-    1877    1924    -0.970719 
-    1877    1925    -1.640904 
-    1877    2979    -0.000017 
-    1877    2980    -2.883379 
-    1877    2981    -4.874064 
-    1878    774    -0.062289 
-    1878    1830    -0.000468 
-    1878    1875    -0.000523 
-    1878    1876    2.798144 
-    1878    1877    4.729983 
-    1878    1878    145.776990 
-    1878    1879    -90.858930 
-    1878    1880    -153.587820 
-    1878    1881    -0.005227 
-    1878    1926    -0.000524 
-    1878    1927    2.577854 
-    1878    1928    4.357601 
-    1878    2982    -0.001826 
-    1878    2983    0.273519 
-    1878    2984    0.462356 
-    1879    1877    -0.766249 
-    1879    1879    -27.776287 
-    1879    1880    23.611475 
-    1879    1928    -0.705924 
-    1879    2984    -0.074900 
-    1880    774    -0.000016 
-    1880    775    -2.703527 
-    1880    776    -4.570038 
-    1880    1830    -0.000005 
-    1880    1831    -0.822290 
-    1880    1832    -1.389997 
-    1880    1875    -0.000005 
-    1880    1876    -0.918595 
-    1880    1877    -1.552793 
-    1880    1878    0.000397 
-    1880    1879    9.396292 
-    1880    1880    15.883482 
-    1880    1881    -0.000005 
-    1880    1882    -0.821216 
-    1880    1883    -1.388182 
-    1880    1926    -0.000005 
-    1880    1927    -0.919530 
-    1880    1928    -1.554372 
-    1880    2982    -0.000019 
-    1880    2983    -3.208021 
-    1880    2984    -5.422834 
-    1881    777    -0.062920 
-    1881    1833    -0.000419 
-    1881    1878    -0.000474 
-    1881    1879    3.062025 
-    1881    1880    5.176044 
-    1881    1881    129.573790 
-    1881    1882    -81.877839 
-    1881    1883    -138.406300 
-    1881    1884    -0.000407 
-    1881    1929    -0.012450 
-    1881    1930    2.824628 
-    1881    1931    4.774750 
-    1881    2985    -0.002084 
-    1881    2986    0.253960 
-    1881    2987    0.429293 
-    1882    1880    -0.838505 
-    1882    1882    -24.695931 
-    1882    1883    21.278445 
-    1882    1931    -0.773495 
-    1882    2987    -0.069544 
-    1883    777    -0.000018 
-    1883    778    -3.040207 
-    1883    779    -5.139166 
-    1883    1833    -0.000004 
-    1883    1834    -0.725017 
-    1883    1835    -1.225569 
-    1883    1878    -0.000005 
-    1883    1879    -0.821216 
-    1883    1880    -1.388182 
-    1883    1881    0.000361 
-    1883    1882    9.694401 
-    1883    1883    16.387415 
-    1883    1884    -0.000004 
-    1883    1885    -0.705302 
-    1883    1886    -1.192243 
-    1883    1929    -0.000005 
-    1883    1930    -0.792577 
-    1883    1931    -1.339772 
-    1883    2985    -0.000022 
-    1883    2986    -3.607311 
-    1883    2987    -6.097798 
-    1884    780    -0.063524 
-    1884    1836    -0.000382 
-    1884    1881    -0.008552 
-    1884    1882    3.938488 
-    1884    1883    6.657621 
-    1884    1884    108.004790 
-    1884    1885    -70.290947 
-    1884    1886    -118.819740 
-    1884    1887    -0.000382 
-    1884    1932    -0.016713 
-    1884    1933    2.982391 
-    1884    1934    5.041431 
-    1884    2988    -0.002555 
-    1884    2989    0.251268 
-    1884    2990    0.424744 
-    1885    1883    -1.078506 
-    1885    1885    -20.585626 
-    1885    1886    18.281811 
-    1885    1934    -0.816688 
-    1885    2990    -0.068806 
-    1886    780    -0.000022 
-    1886    781    -3.648100 
-    1886    782    -6.166745 
-    1886    1836    -0.000004 
-    1886    1837    -0.647531 
-    1886    1838    -1.094585 
-    1886    1881    -0.000004 
-    1886    1882    -0.705302 
-    1886    1883    -1.192243 
-    1886    1884    0.000318 
-    1886    1885    10.639977 
-    1886    1886    17.985806 
-    1886    1887    -0.000004 
-    1886    1888    -0.646639 
-    1886    1889    -1.093077 
-    1886    1932    -0.000004 
-    1886    1933    -0.663057 
-    1886    1934    -1.120832 
-    1886    2988    -0.000027 
-    1886    2989    -4.327036 
-    1886    2990    -7.314416 
-    1887    783    -0.063099 
-    1887    1839    -0.000393 
-    1887    1884    -0.024076 
-    1887    1885    4.822416 
-    1887    1886    8.151808 
-    1887    1887    108.023360 
-    1887    1888    -71.838586 
-    1887    1889    -121.435950 
-    1887    1890    -0.000402 
-    1887    1935    -0.027603 
-    1887    1936    3.613855 
-    1887    1937    6.108861 
-    1887    2991    -0.002628 
-    1887    2992    0.288037 
-    1887    2993    0.486898 
-    1888    1886    -1.320541 
-    1888    1888    -20.591437 
-    1888    1889    18.690919 
-    1888    1937    -0.989592 
-    1888    2993    -0.078873 
-    1889    783    -0.000023 
-    1889    784    -3.649262 
-    1889    785    -6.168712 
-    1889    1839    -0.000004 
-    1889    1840    -0.647745 
-    1889    1841    -1.094948 
-    1889    1884    -0.000004 
-    1889    1885    -0.646639 
-    1889    1886    -1.093077 
-    1889    1887    0.000319 
-    1889    1888    10.583862 
-    1889    1889    17.890960 
-    1889    1890    -0.000004 
-    1889    1891    -0.662652 
-    1889    1892    -1.120147 
-    1889    1935    -0.000004 
-    1889    1936    -0.647431 
-    1889    1937    -1.094416 
-    1889    2991    -0.000027 
-    1889    2992    -4.327819 
-    1889    2993    -7.315746 
-    1890    786    -0.060195 
-    1890    1842    -0.000436 
-    1890    1887    -0.031542 
-    1890    1888    5.837954 
-    1890    1889    9.868478 
-    1890    1890    113.444730 
-    1890    1891    -77.174379 
-    1890    1892    -130.455480 
-    1890    1893    -0.000472 
-    1890    1938    -0.040319 
-    1890    1939    4.582750 
-    1890    1940    7.746674 
-    1890    2994    -0.002583 
-    1890    2995    0.480051 
-    1890    2996    0.811478 
-    1891    1889    -1.598602 
-    1891    1891    -21.627893 
-    1891    1892    20.085606 
-    1891    1940    -1.254884 
-    1891    2996    -0.131449 
-    1892    786    -0.000023 
-    1892    787    -3.473617 
-    1892    788    -5.871797 
-    1892    1842    -0.000005 
-    1892    1843    -0.695944 
-    1892    1844    -1.176423 
-    1892    1887    -0.000004 
-    1892    1888    -0.662652 
-    1892    1889    -1.120147 
-    1892    1890    0.000333 
-    1892    1891    10.384961 
-    1892    1892    17.554727 
-    1892    1893    -0.000005 
-    1892    1894    -0.751850 
-    1892    1895    -1.270926 
-    1892    1938    -0.000004 
-    1892    1939    -0.680119 
-    1892    1940    -1.149671 
-    1892    2994    -0.000027 
-    1892    2995    -4.118346 
-    1892    2996    -6.961649 
-    1893    789    -0.053321 
-    1893    1845    -0.000564 
-    1893    1890    -0.045096 
-    1893    1891    6.728683 
-    1893    1892    11.374157 
-    1893    1893    140.536610 
-    1893    1894    -96.260607 
-    1893    1895    -162.718930 
-    1893    1896    -0.000618 
-    1893    1941    -0.067528 
-    1893    1942    6.595857 
-    1893    1943    11.149637 
-    1893    2997    -0.002154 
-    1893    2998    0.910645 
-    1893    2999    1.539354 
-    1894    1892    -1.842471 
-    1894    1894    -26.784777 
-    1894    1895    25.043815 
-    1894    1943    -1.806096 
-    1894    2999    -0.249351 
-    1895    789    -0.000019 
-    1895    790    -2.804180 
-    1895    791    -4.740185 
-    1895    1845    -0.000006 
-    1895    1846    -0.871649 
-    1895    1847    -1.473435 
-    1895    1890    -0.000005 
-    1895    1891    -0.751850 
-    1895    1892    -1.270926 
-    1895    1893    0.000393 
-    1895    1894    9.553912 
-    1895    1895    16.149932 
-    1895    1896    -0.000006 
-    1895    1897    -0.954015 
-    1895    1898    -1.612666 
-    1895    1941    -0.000006 
-    1895    1942    -0.841525 
-    1895    1943    -1.422513 
-    1895    2997    -0.000022 
-    1895    2998    -3.327678 
-    1895    2999    -5.625107 
-    1896    792    -0.044529 
-    1896    1848    -0.000731 
-    1896    1893    -0.112470 
-    1896    1894    7.574903 
-    1896    1895    12.804616 
-    1896    1896    183.718260 
-    1896    1897    -128.363210 
-    1896    1898    -216.985030 
-    1896    1899    -0.000802 
-    1896    1944    -0.202821 
-    1896    1945    11.971675 
-    1896    1946    20.236903 
-    1896    3000    -0.001701 
-    1896    3001    1.482458 
-    1896    3002    2.505946 
-    1897    1895    -2.074143 
-    1897    1897    -35.025750 
-    1897    1898    33.430196 
-    1897    1946    -3.278081 
-    1897    3002    -0.405916 
-    1898    792    -0.000015 
-    1898    793    -2.154605 
-    1898    794    -3.642142 
-    1898    1848    -0.000008 
-    1898    1849    -1.097359 
-    1898    1850    -1.854974 
-    1898    1893    -0.000006 
-    1898    1894    -0.954015 
-    1898    1895    -1.612666 
-    1898    1896    0.000492 
-    1898    1897    9.067110 
-    1898    1898    15.327034 
-    1898    1899    -0.000008 
-    1898    1900    -1.204310 
-    1898    1901    -2.035764 
-    1898    1944    -0.000007 
-    1898    1945    -1.097232 
-    1898    1946    -1.854760 
-    1898    3000    -0.000018 
-    1898    3001    -2.555645 
-    1898    3002    -4.320061 
-    1899    795    -0.033230 
-    1899    1851    -0.000921 
-    1899    1896    -0.128483 
-    1899    1897    11.312072 
-    1899    1898    19.121914 
-    1899    1899    221.398250 
-    1899    1900    -142.892820 
-    1899    1901    -241.546020 
-    1899    1902    -0.000994 
-    1899    3003    -0.001452 
-    1899    3004    2.189857 
-    1899    3005    3.701734 
-    1900    1898    -3.097388 
-    1900    1900    -42.241754 
-    1900    1901    37.042029 
-    1900    3005    -0.599599 
-    1901    795    -0.000013 
-    1901    796    -1.781394 
-    1901    797    -3.011268 
-    1901    1851    -0.000010 
-    1901    1852    -1.341189 
-    1901    1853    -2.267146 
-    1901    1896    -0.000008 
-    1901    1897    -1.204310 
-    1901    1898    -2.035764 
-    1901    1899    0.000574 
-    1901    1900    7.891224 
-    1901    1901    13.339323 
-    1901    1902    -0.000010 
-    1901    1903    -1.446352 
-    1901    1904    -2.444914 
-    1901    3003    -0.000015 
-    1901    3004    -2.113221 
-    1901    3005    -3.572189 
-    1902    798    -0.032800 
-    1902    1854    -0.001112 
-    1902    1899    -0.067449 
-    1902    1900    4.815265 
-    1902    1901    8.139723 
-    1902    1902    264.482010 
-    1902    1903    -161.661860 
-    1902    1904    -273.273110 
-    1902    3006    -0.001228 
-    1902    3007    2.192554 
-    1902    3008    3.706292 
-    1903    1901    -1.318452 
-    1903    1903    -50.484398 
-    1903    1904    41.773412 
-    1903    3008    -0.600333 
-    1904    798    -0.000011 
-    1904    799    -1.489850 
-    1904    800    -2.518442 
-    1904    1854    -0.000012 
-    1904    1855    -1.600177 
-    1904    1856    -2.704938 
-    1904    1899    -0.000010 
-    1904    1900    -1.446352 
-    1904    1901    -2.444914 
-    1904    1902    0.000664 
-    1904    1903    6.309392 
-    1904    1904    10.665392 
-    1904    3006    -0.000013 
-    1904    3007    -1.767325 
-    1904    3008    -2.987485 
-    1905    1905    1.000000 
-    1906    1906    1.000000 
-    1907    1907    1.000000 
-    1908    1908    1.000000 
-    1909    1909    1.000000 
-    1910    1910    1.000000 
-    1911    1911    1.000000 
-    1912    1912    1.000000 
-    1913    1913    1.000000 
-    1914    1914    1.000000 
-    1915    1915    1.000000 
-    1916    1916    1.000000 
-    1917    1917    1.000000 
-    1918    1918    1.000000 
-    1919    1919    1.000000 
-    1920    1920    1.000000 
-    1921    1921    1.000000 
-    1922    1922    1.000000 
-    1923    819    -0.061603 
-    1923    1875    -0.005704 
-    1923    1923    161.944700 
-    1923    1924    -96.497379 
-    1923    1925    -163.119170 
-    1923    1926    -0.008047 
-    1923    1971    -0.000543 
-    1923    1972    1.519041 
-    1923    1973    2.567787 
-    1923    3027    -0.001612 
-    1923    3028    0.291487 
-    1923    3029    0.492729 
-    1924    1924    -30.852941 
-    1924    1925    25.038158 
-    1924    1973    -0.415980 
-    1924    3029    -0.079821 
-    1925    819    -0.000014 
-    1925    820    -2.429223 
-    1925    821    -4.106358 
-    1925    1875    -0.000006 
-    1925    1876    -0.970719 
-    1925    1877    -1.640904 
-    1925    1923    0.000427 
-    1925    1924    8.224674 
-    1925    1925    13.902989 
-    1925    1926    -0.000006 
-    1925    1927    -0.969386 
-    1925    1928    -1.638650 
-    1925    1971    -0.000006 
-    1925    1972    -0.970748 
-    1925    1973    -1.640953 
-    1925    3027    -0.000017 
-    1925    3028    -2.881140 
-    1925    3029    -4.870280 
-    1926    822    -0.062083 
-    1926    1878    -0.005493 
-    1926    1923    -0.000546 
-    1926    1924    1.594496 
-    1926    1925    2.695336 
-    1926    1926    161.940530 
-    1926    1927    -98.694245 
-    1926    1928    -166.832640 
-    1926    1929    -0.023695 
-    1926    1974    -0.008086 
-    1926    1975    2.143620 
-    1926    1976    3.623573 
-    1926    3030    -0.001626 
-    1926    3031    0.270891 
-    1926    3032    0.457914 
-    1927    1925    -0.436641 
-    1927    1927    -30.856855 
-    1927    1928    25.630146 
-    1927    1976    -0.587015 
-    1927    3032    -0.074181 
-    1928    822    -0.000014 
-    1928    823    -2.433610 
-    1928    824    -4.113771 
-    1928    1878    -0.000005 
-    1928    1879    -0.919530 
-    1928    1880    -1.554372 
-    1928    1923    -0.000006 
-    1928    1924    -0.969386 
-    1928    1925    -1.638650 
-    1928    1926    0.000432 
-    1928    1927    9.065615 
-    1928    1928    15.324507 
-    1928    1929    -0.000005 
-    1928    1930    -0.880782 
-    1928    1931    -1.488873 
-    1928    1974    -0.000006 
-    1928    1975    -0.970848 
-    1928    1976    -1.641121 
-    1928    3030    -0.000017 
-    1928    3031    -2.888000 
-    1928    3032    -4.881872 
-    1929    825    -0.062648 
-    1929    1881    -0.000451 
-    1929    1926    -0.000502 
-    1929    1927    2.614306 
-    1929    1928    4.419220 
-    1929    1929    134.982910 
-    1929    1930    -84.221274 
-    1929    1931    -142.367640 
-    1929    1932    -0.000420 
-    1929    1977    -0.005546 
-    1929    1978    2.447535 
-    1929    1979    4.137312 
-    1929    3033    -0.001973 
-    1929    3034    0.262622 
-    1929    3035    0.443935 
-    1930    1928    -0.715906 
-    1930    1930    -25.721199 
-    1930    1931    21.881898 
-    1930    1979    -0.670237 
-    1930    3035    -0.071916 
-    1931    825    -0.000017 
-    1931    826    -2.918994 
-    1931    827    -4.934267 
-    1931    1881    -0.000005 
-    1931    1882    -0.792577 
-    1931    1883    -1.339772 
-    1931    1926    -0.000005 
-    1931    1927    -0.880782 
-    1931    1928    -1.488873 
-    1931    1929    0.000373 
-    1931    1930    9.605163 
-    1931    1931    16.236566 
-    1931    1932    -0.000004 
-    1931    1933    -0.737613 
-    1931    1934    -1.246861 
-    1931    1977    -0.000005 
-    1931    1978    -0.808984 
-    1931    1979    -1.367506 
-    1931    3033    -0.000021 
-    1931    3034    -3.463328 
-    1931    3035    -5.854410 
-    1932    828    -0.063486 
-    1932    1884    -0.000385 
-    1932    1929    -0.001938 
-    1932    1930    3.429859 
-    1932    1931    5.797834 
-    1932    1932    113.387440 
-    1932    1933    -72.722891 
-    1932    1934    -122.930710 
-    1932    1935    -0.000384 
-    1932    1980    -0.008675 
-    1932    1981    2.777829 
-    1932    1982    4.695639 
-    1932    3036    -0.002393 
-    1932    3037    0.245664 
-    1932    3038    0.415270 
-    1933    1931    -0.939232 
-    1933    1933    -21.611440 
-    1933    1934    18.908185 
-    1933    1982    -0.760679 
-    1933    3038    -0.067272 
-    1934    828    -0.000021 
-    1934    829    -3.477420 
-    1934    830    -5.878228 
-    1934    1884    -0.000004 
-    1934    1885    -0.663057 
-    1934    1886    -1.120832 
-    1934    1929    -0.000004 
-    1934    1930    -0.737613 
-    1934    1931    -1.246861 
-    1934    1932    0.000328 
-    1934    1933    10.346880 
-    1934    1934    17.490356 
-    1934    1935    -0.000004 
-    1934    1936    -0.662028 
-    1934    1937    -1.119092 
-    1934    1980    -0.000004 
-    1934    1981    -0.679535 
-    1934    1982    -1.148685 
-    1934    3036    -0.000025 
-    1934    3037    -4.124800 
-    1934    3038    -6.972558 
-    1935    831    -0.063616 
-    1935    1887    -0.000385 
-    1935    1932    -0.013111 
-    1935    1933    4.219542 
-    1935    1934    7.132710 
-    1935    1935    108.004160 
-    1935    1936    -71.102064 
-    1935    1937    -120.190930 
-    1935    1938    -0.000394 
-    1935    1983    -0.017027 
-    1935    1984    3.507731 
-    1935    1985    5.929468 
-    1935    3039    -0.002576 
-    1935    3040    0.253442 
-    1935    3041    0.428418 
-    1936    1934    -1.155466 
-    1936    1936    -20.588297 
-    1936    1937    18.497248 
-    1936    1985    -0.960544 
-    1936    3041    -0.069401 
-    1937    831    -0.000023 
-    1937    832    -3.653182 
-    1937    833    -6.175339 
-    1937    1887    -0.000004 
-    1937    1888    -0.647431 
-    1937    1889    -1.094416 
-    1937    1932    -0.000004 
-    1937    1933    -0.662028 
-    1937    1934    -1.119092 
-    1937    1935    0.000318 
-    1937    1936    10.606735 
-    1937    1937    17.929624 
-    1937    1938    -0.000004 
-    1937    1939    -0.662199 
-    1937    1940    -1.119382 
-    1937    1983    -0.000004 
-    1937    1984    -0.647157 
-    1937    1985    -1.093954 
-    1937    3039    -0.000027 
-    1937    3040    -4.332423 
-    1937    3041    -7.323529 
-    1938    834    -0.062280 
-    1938    1890    -0.000416 
-    1938    1935    -0.020496 
-    1938    1936    5.068111 
-    1938    1937    8.567135 
-    1938    1938    113.412290 
-    1938    1939    -76.112701 
-    1938    1940    -128.660810 
-    1938    1941    -0.000460 
-    1938    1986    -0.032182 
-    1938    1987    4.435406 
-    1938    1988    7.497605 
-    1938    3042    -0.002523 
-    1938    3043    0.335842 
-    1938    3044    0.567707 
-    1939    1937    -1.387815 
-    1939    1939    -21.624608 
-    1939    1940    19.803364 
-    1939    1988    -1.214556 
-    1939    3044    -0.091963 
-    1940    834    -0.000022 
-    1940    835    -3.477370 
-    1940    836    -5.878142 
-    1940    1890    -0.000004 
-    1940    1891    -0.680119 
-    1940    1892    -1.149671 
-    1940    1935    -0.000004 
-    1940    1936    -0.662199 
-    1940    1937    -1.119382 
-    1940    1938    0.000331 
-    1940    1939    10.374867 
-    1940    1940    17.537663 
-    1940    1941    -0.000005 
-    1940    1942    -0.751356 
-    1940    1943    -1.270091 
-    1940    1986    -0.000004 
-    1940    1987    -0.679026 
-    1940    1988    -1.147825 
-    1940    3042    -0.000026 
-    1940    3043    -4.122364 
-    1940    3044    -6.968440 
-    1941    837    -0.059223 
-    1941    1893    -0.000530 
-    1941    1938    -0.029312 
-    1941    1939    5.897699 
-    1941    1940    9.969463 
-    1941    1941    140.385140 
-    1941    1942    -92.621167 
-    1941    1943    -156.566820 
-    1941    1944    -0.000600 
-    1941    1989    -0.005705 
-    1941    1990    4.155929 
-    1941    1991    7.025182 
-    1941    3045    -0.002099 
-    1941    3046    0.511721 
-    1941    3047    0.865014 
-    1942    1940    -1.614953 
-    1942    1942    -26.781272 
-    1942    1943    24.056464 
-    1942    1991    -1.138001 
-    1942    3047    -0.140121 
-    1943    837    -0.000019 
-    1943    838    -2.813264 
-    1943    839    -4.755541 
-    1943    1893    -0.000006 
-    1943    1894    -0.841525 
-    1943    1895    -1.422513 
-    1943    1938    -0.000005 
-    1943    1939    -0.751356 
-    1943    1940    -1.270091 
-    1943    1941    0.000391 
-    1943    1942    9.537883 
-    1943    1943    16.122836 
-    1943    1944    -0.000006 
-    1943    1945    -0.953417 
-    1943    1946    -1.611656 
-    1943    1989    -0.000005 
-    1943    1990    -0.841068 
-    1943    1991    -1.421741 
-    1943    3045    -0.000022 
-    1943    3046    -3.334240 
-    1943    3047    -5.636199 
-    1944    840    -0.056386 
-    1944    1896    -0.000703 
-    1944    1941    -0.012654 
-    1944    1942    4.640189 
-    1944    1943    7.843776 
-    1944    1944    183.651590 
-    1944    1945    -118.357430 
-    1944    1946    -200.071250 
-    1944    1992    -0.008260 
-    1944    1993    5.798895 
-    1944    1994    9.802444 
-    1944    3048    -0.001633 
-    1944    3049    0.657020 
-    1944    3050    1.110625 
-    1945    1943    -1.270590 
-    1945    1945    -35.029675 
-    1945    1946    30.681916 
-    1945    1994    -1.587871 
-    1945    3050    -0.179905 
-    1946    840    -0.000014 
-    1946    841    -2.149620 
-    1946    842    -3.633714 
-    1946    1896    -0.000007 
-    1946    1897    -1.097232 
-    1946    1898    -1.854760 
-    1946    1941    -0.000006 
-    1946    1942    -0.953417 
-    1946    1943    -1.611656 
-    1946    1944    0.000481 
-    1946    1945    7.837005 
-    1946    1946    13.247663 
-    1946    1992    -0.000007 
-    1946    1993    -1.082569 
-    1946    1994    -1.829974 
-    1946    3048    -0.000017 
-    1946    3049    -2.550221 
-    1946    3050    -4.310890 
-    1947    1947    1.000000 
-    1948    1948    1.000000 
-    1949    1949    1.000000 
-    1950    1950    1.000000 
-    1951    1951    1.000000 
-    1952    1952    1.000000 
-    1953    1953    1.000000 
-    1954    1954    1.000000 
-    1955    1955    1.000000 
-    1956    1956    1.000000 
-    1957    1957    1.000000 
-    1958    1958    1.000000 
-    1959    1959    1.000000 
-    1960    1960    1.000000 
-    1961    1961    1.000000 
-    1962    1962    1.000000 
-    1963    1963    1.000000 
-    1964    1964    1.000000 
-    1965    1965    1.000000 
-    1966    1966    1.000000 
-    1967    1967    1.000000 
-    1968    1968    1.000000 
-    1969    1969    1.000000 
-    1970    1970    1.000000 
-    1971    867    -0.061593 
-    1971    1923    -0.008844 
-    1971    1971    161.943980 
-    1971    1972    -96.038303 
-    1971    1973    -162.343150 
-    1971    1974    -0.023870 
-    1971    2019    -0.000540 
-    1971    2020    1.059080 
-    1971    2021    1.790269 
-    1971    3075    -0.001602 
-    1971    3076    0.292351 
-    1971    3077    0.494191 
-    1972    1972    -30.849071 
-    1972    1973    24.921984 
-    1972    2021    -0.290023 
-    1972    3077    -0.080059 
-    1973    867    -0.000014 
-    1973    868    -2.429554 
-    1973    869    -4.106918 
-    1973    1923    -0.000006 
-    1973    1924    -0.970748 
-    1973    1925    -1.640953 
-    1973    1971    0.000427 
-    1973    1972    8.225719 
-    1973    1973    13.904756 
-    1973    1974    -0.000006 
-    1973    1975    -0.969537 
-    1973    1976    -1.638906 
-    1973    2019    -0.000006 
-    1973    2020    -0.970892 
-    1973    2021    -1.641196 
-    1973    3075    -0.000017 
-    1973    3076    -2.881532 
-    1973    3077    -4.870942 
-    1974    870    -0.061994 
-    1974    1926    -0.000542 
-    1974    1971    -0.000541 
-    1974    1972    0.971131 
-    1974    1973    1.641600 
-    1974    1974    161.972440 
-    1974    1975    -97.548639 
-    1974    1976    -164.896130 
-    1974    1977    -0.022404 
-    1974    2022    -0.000533 
-    1974    2023    1.621599 
-    1974    2024    2.741148 
-    1974    3078    -0.001610 
-    1974    3079    0.272826 
-    1974    3080    0.461184 
-    1975    1973    -0.265938 
-    1975    1975    -30.853874 
-    1975    1976    25.323854 
-    1975    2024    -0.444065 
-    1975    3080    -0.074711 
-    1976    870    -0.000014 
-    1976    871    -2.432101 
-    1976    872    -4.111220 
-    1976    1926    -0.000006 
-    1976    1927    -0.970848 
-    1976    1928    -1.641121 
-    1976    1971    -0.000006 
-    1976    1972    -0.969537 
-    1976    1973    -1.638906 
-    1976    1974    0.000432 
-    1976    1975    9.097437 
-    1976    1976    15.378299 
-    1976    1977    -0.000005 
-    1976    1978    -0.881342 
-    1976    1979    -1.489819 
-    1976    2022    -0.000006 
-    1976    2023    -0.954392 
-    1976    2024    -1.613303 
-    1976    3078    -0.000017 
-    1976    3079    -2.885760 
-    1976    3080    -4.878084 
-    1977    873    -0.062597 
-    1977    1929    -0.000455 
-    1977    1974    -0.000496 
-    1977    1975    1.895418 
-    1977    1976    3.204013 
-    1977    1977    134.977250 
-    1977    1978    -83.065857 
-    1977    1979    -140.414520 
-    1977    1980    -0.003258 
-    1977    2025    -0.002751 
-    1977    2026    2.015803 
-    1977    2027    3.407513 
-    1977    3081    -0.001948 
-    1977    3082    0.262586 
-    1977    3083    0.443875 
-    1978    1976    -0.519047 
-    1978    1978    -25.717348 
-    1978    1979    21.575094 
-    1978    2027    -0.552014 
-    1978    3083    -0.071907 
-    1979    873    -0.000017 
-    1979    874    -2.917556 
-    1979    875    -4.931837 
-    1979    1929    -0.000005 
-    1979    1930    -0.808984 
-    1979    1931    -1.367506 
-    1979    1974    -0.000005 
-    1979    1975    -0.881342 
-    1979    1976    -1.489819 
-    1979    1977    0.000372 
-    1979    1978    9.602247 
-    1979    1979    16.231637 
-    1979    1980    -0.000004 
-    1979    1981    -0.737694 
-    1979    1982    -1.246998 
-    1979    2025    -0.000005 
-    1979    2026    -0.792487 
-    1979    2027    -1.339620 
-    1979    3081    -0.000020 
-    1979    3082    -3.461300 
-    1979    3083    -5.850982 
-    1980    876    -0.063482 
-    1980    1932    -0.000388 
-    1980    1977    -0.000421 
-    1980    1978    2.646479 
-    1980    1979    4.473608 
-    1980    1980    113.377560 
-    1980    1981    -71.634305 
-    1980    1982    -121.090540 
-    1980    1983    -0.000378 
-    1980    2028    -0.010229 
-    1980    2029    2.466187 
-    1980    2030    4.168840 
-    1980    3084    -0.002354 
-    1980    3085    0.242048 
-    1980    3086    0.409158 
-    1981    1979    -0.724716 
-    1981    1981    -21.607397 
-    1981    1982    18.620214 
-    1981    2030    -0.675345 
-    1981    3086    -0.066282 
-    1982    876    -0.000021 
-    1982    877    -3.476062 
-    1982    878    -5.875930 
-    1982    1932    -0.000004 
-    1982    1933    -0.679535 
-    1982    1934    -1.148685 
-    1982    1977    -0.000004 
-    1982    1978    -0.737694 
-    1982    1979    -1.246998 
-    1982    1980    0.000327 
-    1982    1981    10.343291 
-    1982    1982    17.484288 
-    1982    1983    -0.000004 
-    1982    1984    -0.661601 
-    1982    1985    -1.118369 
-    1982    2028    -0.000004 
-    1982    2029    -0.662996 
-    1982    2030    -1.120728 
-    1982    3084    -0.000025 
-    1982    3085    -4.122979 
-    1982    3086    -6.969480 
-    1983    879    -0.063837 
-    1983    1935    -0.000377 
-    1983    1980    -0.004142 
-    1983    1981    3.335276 
-    1983    1982    5.637947 
-    1983    1983    107.984370 
-    1983    1984    -70.246557 
-    1983    1985    -118.744780 
-    1983    1986    -0.000386 
-    1983    2031    -0.017480 
-    1983    2032    3.552218 
-    1983    2033    6.004669 
-    1983    3087    -0.002525 
-    1983    3088    0.239723 
-    1983    3089    0.405227 
-    1984    1982    -0.913330 
-    1984    1984    -20.583992 
-    1984    1985    18.273817 
-    1984    2033    -0.972738 
-    1984    3089    -0.065645 
-    1985    879    -0.000022 
-    1985    880    -3.656789 
-    1985    881    -6.181435 
-    1985    1935    -0.000004 
-    1985    1936    -0.647157 
-    1985    1937    -1.093954 
-    1985    1980    -0.000004 
-    1985    1981    -0.661601 
-    1985    1982    -1.118369 
-    1985    1983    0.000317 
-    1985    1984    10.613731 
-    1985    1985    17.941450 
-    1985    1986    -0.000004 
-    1985    1987    -0.662277 
-    1985    1988    -1.119512 
-    1985    2031    -0.000004 
-    1985    2032    -0.646987 
-    1985    2033    -1.093667 
-    1985    3087    -0.000026 
-    1985    3088    -4.336609 
-    1985    3089    -7.330604 
-    1986    882    -0.063020 
-    1986    1938    -0.000405 
-    1986    1983    -0.006533 
-    1986    1984    4.332274 
-    1986    1985    7.323277 
-    1986    1986    113.439620 
-    1986    1987    -77.100192 
-    1986    1988    -130.330070 
-    1986    1989    -0.000449 
-    1986    2034    -0.025133 
-    1986    2035    6.215425 
-    1986    2036    10.506548 
-    1986    3090    -0.002464 
-    1986    3091    0.284331 
-    1986    3092    0.480633 
-    1987    1985    -1.186333 
-    1987    1987    -21.620543 
-    1987    1988    20.084135 
-    1987    2036    -1.702018 
-    1987    3092    -0.077859 
-    1988    882    -0.000022 
-    1988    883    -3.480307 
-    1988    884    -5.883107 
-    1988    1938    -0.000004 
-    1988    1939    -0.679026 
-    1988    1940    -1.147825 
-    1988    1983    -0.000004 
-    1988    1984    -0.662277 
-    1988    1985    -1.119512 
-    1988    1986    0.000330 
-    1988    1987    10.397991 
-    1988    1988    17.576753 
-    1988    1989    -0.000005 
-    1988    1990    -0.752022 
-    1988    1991    -1.271217 
-    1988    2034    -0.000004 
-    1988    2035    -0.694510 
-    1988    2036    -1.173998 
-    1988    3090    -0.000026 
-    1988    3091    -4.127419 
-    1988    3092    -6.976984 
-    1989    885    -0.060966 
-    1989    1941    -0.000520 
-    1989    1986    -0.059886 
-    1989    1987    7.099303 
-    1989    1988    12.000653 
-    1989    1989    140.330510 
-    1989    1990    -89.553894 
-    1989    1991    -151.381900 
-    1989    1992    -0.000582 
-    1989    3093    -0.002060 
-    1989    3094    0.380663 
-    1989    3095    0.643473 
-    1990    1988    -1.944016 
-    1990    1990    -26.774330 
-    1990    1991    23.233965 
-    1990    3095    -0.104236 
-    1991    885    -0.000018 
-    1991    886    -2.808630 
-    1991    887    -4.747708 
-    1991    1941    -0.000005 
-    1991    1942    -0.841068 
-    1991    1943    -1.421741 
-    1991    1986    -0.000005 
-    1991    1987    -0.752022 
-    1991    1988    -1.271217 
-    1991    1989    0.000384 
-    1991    1990    8.674964 
-    1991    1991    14.664157 
-    1991    1992    -0.000006 
-    1991    1993    -0.940982 
-    1991    1994    -1.590636 
-    1991    3093    -0.000021 
-    1991    3094    -3.329250 
-    1991    3095    -5.627765 
-    1992    888    -0.059611 
-    1992    1944    -0.000680 
-    1992    1989    -0.011693 
-    1992    1990    4.188870 
-    1992    1991    7.080866 
-    1992    1992    178.074790 
-    1992    1993    -108.790480 
-    1992    1994    -183.899280 
-    1992    3096    -0.001651 
-    1992    3097    0.439028 
-    1992    3098    0.742132 
-    1993    1991    -1.147021 
-    1993    1993    -33.989894 
-    1993    1994    28.136886 
-    1993    3098    -0.120216 
-    1994    888    -0.000015 
-    1994    889    -2.216528 
-    1994    890    -3.746815 
-    1994    1944    -0.000007 
-    1994    1945    -1.082569 
-    1994    1946    -1.829974 
-    1994    1989    -0.000006 
-    1994    1990    -0.940982 
-    1994    1991    -1.590636 
-    1994    1992    0.000462 
-    1994    1993    6.870994 
-    1994    1994    11.614721 
-    1994    3096    -0.000017 
-    1994    3097    -2.627090 
-    1994    3098    -4.440830 
-    1995    1995    1.000000 
-    1996    1996    1.000000 
-    1997    1997    1.000000 
-    1998    1998    1.000000 
-    1999    1999    1.000000 
-    2000    2000    1.000000 
-    2001    2001    1.000000 
-    2002    2002    1.000000 
-    2003    2003    1.000000 
-    2004    2004    1.000000 
-    2005    2005    1.000000 
-    2006    2006    1.000000 
-    2007    2007    1.000000 
-    2008    2008    1.000000 
-    2009    2009    1.000000 
-    2010    2010    1.000000 
-    2011    2011    1.000000 
-    2012    2012    1.000000 
-    2013    2013    1.000000 
-    2014    2014    1.000000 
-    2015    2015    1.000000 
-    2016    2016    1.000000 
-    2017    2017    1.000000 
-    2018    2018    1.000000 
-    2019    915    -0.061606 
-    2019    1971    -0.004020 
-    2019    2019    161.942500 
-    2019    2020    -94.979557 
-    2019    2021    -160.553440 
-    2019    2022    -0.021480 
-    2019    3123    -0.001594 
-    2019    3124    0.288919 
-    2019    3125    0.488389 
-    2020    2020    -30.846670 
-    2020    2021    24.637981 
-    2020    3125    -0.079119 
-    2021    915    -0.000014 
-    2021    916    -2.428066 
-    2021    917    -4.104402 
-    2021    1971    -0.000006 
-    2021    1972    -0.970892 
-    2021    1973    -1.641196 
-    2021    2019    0.000421 
-    2021    2020    7.235636 
-    2021    2021    12.231119 
-    2021    2022    -0.000006 
-    2021    2023    -0.953300 
-    2021    2024    -1.611457 
-    2021    3123    -0.000017 
-    2021    3124    -2.879925 
-    2021    3125    -4.868225 
-    2022    918    -0.062109 
-    2022    1974    -0.005943 
-    2022    2019    -0.000528 
-    2022    2020    0.374978 
-    2022    2021    0.633863 
-    2022    2022    156.564940 
-    2022    2023    -93.134441 
-    2022    2024    -157.434340 
-    2022    2025    -0.028856 
-    2022    2070    -0.001318 
-    2022    2071    0.964984 
-    2022    2072    1.631208 
-    2022    3126    -0.001653 
-    2022    3127    0.268406 
-    2022    3128    0.453714 
-    2023    2021    -0.102686 
-    2023    2023    -29.821783 
-    2023    2024    24.170331 
-    2023    2072    -0.264256 
-    2023    3128    -0.073501 
-    2024    918    -0.000015 
-    2024    919    -2.514767 
-    2024    920    -4.250958 
-    2024    1974    -0.000006 
-    2024    1975    -0.954392 
-    2024    1976    -1.613303 
-    2024    2019    -0.000006 
-    2024    2020    -0.953300 
-    2024    2021    -1.611457 
-    2024    2022    0.000419 
-    2024    2023    9.145346 
-    2024    2024    15.459282 
-    2024    2025    -0.000005 
-    2024    2026    -0.848694 
-    2024    2027    -1.434632 
-    2024    2070    -0.000005 
-    2024    2071    -0.887083 
-    2024    2072    -1.499525 
-    2024    3126    -0.000017 
-    2024    3127    -2.983769 
-    2024    3128    -5.043760 
-    2025    921    -0.062807 
-    2025    1977    -0.000441 
-    2025    2022    -0.000473 
-    2025    2023    1.108379 
-    2025    2024    1.873602 
-    2025    2025    129.588830 
-    2025    2026    -78.577491 
-    2025    2027    -132.827390 
-    2025    2028    -0.011540 
-    2025    2073    -0.000916 
-    2025    2074    1.470365 
-    2025    2075    2.485505 
-    2025    3129    -0.002008 
-    2025    3130    0.254955 
-    2025    3131    0.430975 
-    2026    2024    -0.303523 
-    2026    2026    -24.685307 
-    2026    2027    20.401186 
-    2026    2075    -0.402652 
-    2026    3131    -0.069818 
-    2027    921    -0.000018 
-    2027    922    -3.038776 
-    2027    923    -5.136748 
-    2027    1977    -0.000005 
-    2027    1978    -0.792487 
-    2027    1979    -1.339620 
-    2027    2022    -0.000005 
-    2027    2023    -0.848694 
-    2027    2024    -1.434632 
-    2027    2025    0.000360 
-    2027    2026    9.717688 
-    2027    2027    16.426779 
-    2027    2028    -0.000004 
-    2027    2029    -0.705276 
-    2027    2030    -1.192198 
-    2027    2073    -0.000004 
-    2027    2074    -0.724895 
-    2027    2075    -1.225362 
-    2027    3129    -0.000021 
-    2027    3130    -3.604792 
-    2027    3131    -6.093541 
-    2028    924    -0.063624 
-    2028    1980    -0.000373 
-    2028    2025    -0.000397 
-    2028    2026    1.700641 
-    2028    2027    2.874763 
-    2028    2028    107.991650 
-    2028    2029    -66.997482 
-    2028    2030    -113.252470 
-    2028    2031    -0.004181 
-    2028    2076    -0.004298 
-    2028    2077    1.944635 
-    2028    2078    3.287208 
-    2028    3132    -0.002434 
-    2028    3133    0.237593 
-    2028    3134    0.401627 
-    2029    2027    -0.465709 
-    2029    2029    -20.575274 
-    2029    2030    17.405884 
-    2029    2078    -0.532526 
-    2029    3134    -0.065063 
-    2030    924    -0.000021 
-    2030    925    -3.647962 
-    2030    926    -6.166510 
-    2030    1980    -0.000004 
-    2030    1981    -0.662996 
-    2030    1982    -1.120728 
-    2030    2025    -0.000004 
-    2030    2026    -0.705276 
-    2030    2027    -1.192198 
-    2030    2028    0.000315 
-    2030    2029    10.639110 
-    2030    2030    17.984341 
-    2030    2031    -0.000004 
-    2030    2032    -0.646747 
-    2030    2033    -1.093260 
-    2030    2076    -0.000004 
-    2030    2077    -0.647143 
-    2030    2078    -1.093929 
-    2030    3132    -0.000025 
-    2030    3133    -4.326679 
-    2030    3134    -7.313814 
-    2031    927    -0.063795 
-    2031    1983    -0.000369 
-    2031    2028    -0.000369 
-    2031    2029    2.115171 
-    2031    2030    3.575483 
-    2031    2031    107.987120 
-    2031    2032    -68.038213 
-    2031    2033    -115.011800 
-    2031    2034    -0.000386 
-    2031    2079    -0.004367 
-    2031    2080    2.573304 
-    2031    2081    4.349913 
-    2031    3135    -0.002466 
-    2031    3136    0.229615 
-    2031    3137    0.388141 
-    2032    2030    -0.579222 
-    2032    2032    -20.579659 
-    2032    2033    17.679983 
-    2032    2081    -0.704679 
-    2032    3137    -0.062878 
-    2033    927    -0.000022 
-    2033    928    -3.648922 
-    2033    929    -6.168137 
-    2033    1983    -0.000004 
-    2033    1984    -0.646987 
-    2033    1985    -1.093667 
-    2033    2028    -0.000004 
-    2033    2029    -0.646747 
-    2033    2030    -1.093260 
-    2033    2031    0.000315 
-    2033    2032    10.596529 
-    2033    2033    17.912372 
-    2033    2034    -0.000004 
-    2033    2035    -0.677482 
-    2033    2036    -1.145215 
-    2033    2079    -0.000004 
-    2033    2080    -0.646870 
-    2033    2081    -1.093470 
-    2033    3135    -0.000026 
-    2033    3136    -4.327212 
-    2033    3137    -7.314718 
-    2034    930    -0.063493 
-    2034    1986    -0.000401 
-    2034    2031    -0.000464 
-    2034    2032    2.088239 
-    2034    2033    3.529959 
-    2034    2034    118.776760 
-    2034    2035    -74.824506 
-    2034    2036    -126.483280 
-    2034    2082    -0.009178 
-    2034    2083    3.072266 
-    2034    2084    5.193354 
-    2034    3138    -0.002271 
-    2034    3139    0.237356 
-    2034    3140    0.401227 
-    2035    2033    -0.571843 
-    2035    2035    -22.641647 
-    2035    2036    19.433192 
-    2035    2084    -0.841311 
-    2035    3140    -0.064997 
-    2036    930    -0.000020 
-    2036    931    -3.320339 
-    2036    932    -5.612698 
-    2036    1986    -0.000004 
-    2036    1987    -0.694510 
-    2036    1988    -1.173998 
-    2036    2031    -0.000004 
-    2036    2032    -0.677482 
-    2036    2033    -1.145215 
-    2036    2034    0.000334 
-    2036    2035    9.359233 
-    2036    2036    15.820839 
-    2036    2082    -0.000004 
-    2036    2083    -0.727555 
-    2036    2084    -1.229859 
-    2036    3138    -0.000024 
-    2036    3139    -3.936805 
-    2036    3140    -6.654771 
-    2037    2037    1.000000 
-    2038    2038    1.000000 
-    2039    2039    1.000000 
-    2040    2040    1.000000 
-    2041    2041    1.000000 
-    2042    2042    1.000000 
-    2043    2043    1.000000 
-    2044    2044    1.000000 
-    2045    2045    1.000000 
-    2046    2046    1.000000 
-    2047    2047    1.000000 
-    2048    2048    1.000000 
-    2049    2049    1.000000 
-    2050    2050    1.000000 
-    2051    2051    1.000000 
-    2052    2052    1.000000 
-    2053    2053    1.000000 
-    2054    2054    1.000000 
-    2055    2055    1.000000 
-    2056    2056    1.000000 
-    2057    2057    1.000000 
-    2058    2058    1.000000 
-    2059    2059    1.000000 
-    2060    2060    1.000000 
-    2061    2061    1.000000 
-    2062    2062    1.000000 
-    2063    2063    1.000000 
-    2064    2064    1.000000 
-    2065    2065    1.000000 
-    2066    2066    1.000000 
-    2067    2067    1.000000 
-    2068    2068    1.000000 
-    2069    2069    1.000000 
-    2070    966    -0.062498 
-    2070    2022    -0.000489 
-    2070    2070    140.357330 
-    2070    2071    -82.325452 
-    2070    2072    -139.162850 
-    2070    2073    -0.025370 
-    2070    3174    -0.001836 
-    2070    3175    0.261047 
-    2070    3176    0.441274 
-    2071    2071    -26.735187 
-    2071    2072    21.352282 
-    2071    3176    -0.071486 
-    2072    966    -0.000016 
-    2072    967    -2.805286 
-    2072    968    -4.742052 
-    2072    2022    -0.000005 
-    2072    2023    -0.887083 
-    2072    2024    -1.499525 
-    2072    2070    0.000373 
-    2072    2071    7.774021 
-    2072    2072    13.141196 
-    2072    2073    -0.000004 
-    2072    2074    -0.751144 
-    2072    2075    -1.269733 
-    2072    3174    -0.000019 
-    2072    3175    -3.327513 
-    2072    3176    -5.624825 
-    2073    969    -0.063249 
-    2073    2025    -0.000400 
-    2073    2070    -0.000415 
-    2073    2071    0.274430 
-    2073    2072    0.463896 
-    2073    2073    113.398910 
-    2073    2074    -67.964341 
-    2073    2075    -114.886920 
-    2073    2076    -0.014399 
-    2073    2121    -0.000366 
-    2073    2122    1.171810 
-    2073    2123    1.980828 
-    2073    3177    -0.002275 
-    2073    3178    0.247127 
-    2073    3179    0.417743 
-    2074    2072    -0.075151 
-    2074    2074    -21.597166 
-    2074    2075    17.640585 
-    2074    2123    -0.320895 
-    2074    3179    -0.067674 
-    2075    969    -0.000020 
-    2075    970    -3.471673 
-    2075    971    -5.868516 
-    2075    2025    -0.000004 
-    2075    2026    -0.724895 
-    2075    2027    -1.225362 
-    2075    2070    -0.000004 
-    2075    2071    -0.751144 
-    2075    2072    -1.269733 
-    2075    2073    0.000325 
-    2075    2074    10.393410 
-    2075    2075    17.569019 
-    2075    2076    -0.000004 
-    2075    2077    -0.662557 
-    2075    2078    -1.119986 
-    2075    2121    -0.000004 
-    2075    2122    -0.662992 
-    2075    2123    -1.120722 
-    2075    3177    -0.000024 
-    2075    3178    -4.117729 
-    2075    3179    -6.960609 
-    2076    972    -0.063744 
-    2076    2028    -0.000360 
-    2076    2073    -0.000368 
-    2076    2074    0.950555 
-    2076    2075    1.606818 
-    2076    2076    107.992110 
-    2076    2077    -65.831628 
-    2076    2078    -111.281710 
-    2076    2079    -0.004244 
-    2076    2124    -0.000360 
-    2076    2125    1.536007 
-    2076    2126    2.596464 
-    2076    3180    -0.002402 
-    2076    3181    0.225549 
-    2076    3182    0.381267 
-    2077    2075    -0.260304 
-    2077    2077    -20.572200 
-    2077    2078    17.094281 
-    2077    2126    -0.420628 
-    2077    3182    -0.061765 
-    2078    972    -0.000021 
-    2078    973    -3.645145 
-    2078    974    -6.161749 
-    2078    2028    -0.000004 
-    2078    2029    -0.647143 
-    2078    2030    -1.093929 
-    2078    2073    -0.000004 
-    2078    2074    -0.662557 
-    2078    2075    -1.119986 
-    2078    2076    0.000314 
-    2078    2077    10.574418 
-    2078    2078    17.874985 
-    2078    2079    -0.000004 
-    2078    2080    -0.646832 
-    2078    2081    -1.093405 
-    2078    2124    -0.000004 
-    2078    2125    -0.647096 
-    2078    2126    -1.093851 
-    2078    3180    -0.000025 
-    2078    3181    -4.323339 
-    2078    3182    -7.308167 
-    2079    975    -0.063758 
-    2079    2031    -0.000363 
-    2079    2076    -0.000363 
-    2079    2077    1.485970 
-    2079    2078    2.511882 
-    2079    2079    107.979000 
-    2079    2080    -66.940390 
-    2079    2081    -113.156040 
-    2079    2082    -0.004367 
-    2079    2127    -0.000380 
-    2079    2128    2.108747 
-    2079    2129    3.564626 
-    2079    3183    -0.002427 
-    2079    3184    0.229192 
-    2079    3185    0.387426 
-    2080    2078    -0.406923 
-    2080    2080    -20.575438 
-    2080    2081    17.389873 
-    2080    2129    -0.577468 
-    2080    3185    -0.062762 
-    2081    975    -0.000021 
-    2081    976    -3.648793 
-    2081    977    -6.167920 
-    2081    2031    -0.000004 
-    2081    2032    -0.646870 
-    2081    2033    -1.093470 
-    2081    2076    -0.000004 
-    2081    2077    -0.646832 
-    2081    2078    -1.093405 
-    2081    2079    0.000315 
-    2081    2080    10.641571 
-    2081    2081    17.988511 
-    2081    2082    -0.000004 
-    2081    2083    -0.691878 
-    2081    2084    -1.169550 
-    2081    2127    -0.000004 
-    2081    2128    -0.677665 
-    2081    2129    -1.145525 
-    2081    3183    -0.000025 
-    2081    3184    -4.327224 
-    2081    3185    -7.314740 
-    2082    978    -0.063402 
-    2082    2034    -0.000413 
-    2082    2079    -0.000392 
-    2082    2080    1.963315 
-    2082    2081    3.318788 
-    2082    2082    124.164440 
-    2082    2083    -74.777714 
-    2082    2084    -126.404160 
-    2082    3186    -0.002134 
-    2082    3187    0.229163 
-    2082    3188    0.387377 
-    2083    2081    -0.537639 
-    2083    2083    -23.666192 
-    2083    2084    19.383922 
-    2083    3188    -0.062754 
-    2084    978    -0.000019 
-    2084    979    -3.173069 
-    2084    980    -5.363752 
-    2084    2034    -0.000004 
-    2084    2035    -0.727555 
-    2084    2036    -1.229859 
-    2084    2079    -0.000004 
-    2084    2080    -0.691878 
-    2084    2081    -1.169550 
-    2084    2082    0.000340 
-    2084    2083    8.357926 
-    2084    2084    14.128229 
-    2084    3186    -0.000022 
-    2084    3187    -3.762768 
-    2084    3188    -6.360580 
-    2085    2085    1.000000 
-    2086    2086    1.000000 
-    2087    2087    1.000000 
-    2088    2088    1.000000 
-    2089    2089    1.000000 
-    2090    2090    1.000000 
-    2091    2091    1.000000 
-    2092    2092    1.000000 
-    2093    2093    1.000000 
-    2094    2094    1.000000 
-    2095    2095    1.000000 
-    2096    2096    1.000000 
-    2097    2097    1.000000 
-    2098    2098    1.000000 
-    2099    2099    1.000000 
-    2100    2100    1.000000 
-    2101    2101    1.000000 
-    2102    2102    1.000000 
-    2103    2103    1.000000 
-    2104    2104    1.000000 
-    2105    2105    1.000000 
-    2106    2106    1.000000 
-    2107    2107    1.000000 
-    2108    2108    1.000000 
-    2109    2109    1.000000 
-    2110    2110    1.000000 
-    2111    2111    1.000000 
-    2112    2112    1.000000 
-    2113    2113    1.000000 
-    2114    2114    1.000000 
-    2115    2115    1.000000 
-    2116    2116    1.000000 
-    2117    2117    1.000000 
-    2118    2118    1.000000 
-    2119    2119    1.000000 
-    2120    2120    1.000000 
-    2121    1017    -0.063775 
-    2121    2073    -0.000421 
-    2121    2121    107.984440 
-    2121    2122    -64.108336 
-    2121    2123    -108.368730 
-    2121    2124    -0.013898 
-    2121    2169    -0.000355 
-    2121    2170    0.763957 
-    2121    2171    1.291392 
-    2121    3225    -0.002371 
-    2121    3226    0.220269 
-    2121    3227    0.372344 
-    2122    2122    -20.566613 
-    2122    2123    16.636125 
-    2122    2171    -0.209207 
-    2122    3227    -0.060320 
-    2123    1017    -0.000021 
-    2123    1018    -3.643823 
-    2123    1019    -6.159519 
-    2123    2073    -0.000004 
-    2123    2074    -0.662992 
-    2123    2075    -1.120722 
-    2123    2121    0.000309 
-    2123    2122    9.925047 
-    2123    2123    16.777299 
-    2123    2124    -0.000004 
-    2123    2125    -0.647000 
-    2123    2126    -1.093689 
-    2123    2169    -0.000004 
-    2123    2170    -0.647158 
-    2123    2171    -1.093956 
-    2123    3225    -0.000025 
-    2123    3226    -4.321770 
-    2123    3227    -7.305520 
-    2124    1020    -0.063794 
-    2124    2076    -0.000572 
-    2124    2121    -0.000356 
-    2124    2122    0.535967 
-    2124    2123    0.905999 
-    2124    2124    107.995000 
-    2124    2125    -64.988562 
-    2124    2126    -109.856560 
-    2124    2127    -0.004156 
-    2124    2172    -0.000356 
-    2124    2173    1.120414 
-    2124    2174    1.893947 
-    2124    3228    -0.002378 
-    2124    3229    0.218914 
-    2124    3230    0.370051 
-    2125    2123    -0.146772 
-    2125    2125    -20.569350 
-    2125    2126    16.870519 
-    2125    2174    -0.306821 
-    2125    3230    -0.059948 
-    2126    1020    -0.000021 
-    2126    1021    -3.643718 
-    2126    1022    -6.159334 
-    2126    2076    -0.000004 
-    2126    2077    -0.647096 
-    2126    2078    -1.093851 
-    2126    2121    -0.000004 
-    2126    2122    -0.647000 
-    2126    2123    -1.093689 
-    2126    2124    0.000313 
-    2126    2125    10.586380 
-    2126    2126    17.895203 
-    2126    2127    -0.000004 
-    2126    2128    -0.677986 
-    2126    2129    -1.146067 
-    2126    2172    -0.000004 
-    2126    2173    -0.647053 
-    2126    2174    -1.093777 
-    2126    3228    -0.000025 
-    2126    3229    -4.321222 
-    2126    3230    -7.304589 
-    2127    1023    -0.063581 
-    2127    2079    -0.000890 
-    2127    2124    -0.000376 
-    2127    2125    1.057110 
-    2127    2126    1.786937 
-    2127    2127    118.769100 
-    2127    2128    -70.706098 
-    2127    2129    -119.521590 
-    2127    3231    -0.002177 
-    2127    3232    0.218447 
-    2127    3233    0.369263 
-    2128    2126    -0.289484 
-    2128    2128    -22.628834 
-    2128    2129    18.337250 
-    2128    3233    -0.059820 
-    2129    1023    -0.000019 
-    2129    1024    -3.313785 
-    2129    1025    -5.601621 
-    2129    2079    -0.000004 
-    2129    2080    -0.677665 
-    2129    2081    -1.145525 
-    2129    2124    -0.000004 
-    2129    2125    -0.677986 
-    2129    2126    -1.146067 
-    2129    2127    0.000328 
-    2129    2128    8.602428 
-    2129    2129    14.541544 
-    2129    3231    -0.000023 
-    2129    3232    -3.930456 
-    2129    3233    -6.644043 
-    2130    2130    1.000000 
-    2131    2131    1.000000 
-    2132    2132    1.000000 
-    2133    2133    1.000000 
-    2134    2134    1.000000 
-    2135    2135    1.000000 
-    2136    2136    1.000000 
-    2137    2137    1.000000 
-    2138    2138    1.000000 
-    2139    2139    1.000000 
-    2140    2140    1.000000 
-    2141    2141    1.000000 
-    2142    2142    1.000000 
-    2143    2143    1.000000 
-    2144    2144    1.000000 
-    2145    2145    1.000000 
-    2146    2146    1.000000 
-    2147    2147    1.000000 
-    2148    2148    1.000000 
-    2149    2149    1.000000 
-    2150    2150    1.000000 
-    2151    2151    1.000000 
-    2152    2152    1.000000 
-    2153    2153    1.000000 
-    2154    2154    1.000000 
-    2155    2155    1.000000 
-    2156    2156    1.000000 
-    2157    2157    1.000000 
-    2158    2158    1.000000 
-    2159    2159    1.000000 
-    2160    2160    1.000000 
-    2161    2161    1.000000 
-    2162    2162    1.000000 
-    2163    2163    1.000000 
-    2164    2164    1.000000 
-    2165    2165    1.000000 
-    2166    2166    1.000000 
-    2167    2167    1.000000 
-    2168    2168    1.000000 
-    2169    1065    -0.063871 
-    2169    2121    -0.005251 
-    2169    2169    107.981400 
-    2169    2170    -63.334227 
-    2169    2171    -107.060180 
-    2169    2172    -0.014356 
-    2169    3273    -0.002358 
-    2169    3274    0.212070 
-    2169    3275    0.358484 
-    2170    2170    -20.564573 
-    2170    2171    16.429162 
-    2170    3275    -0.058075 
-    2171    1065    -0.000021 
-    2171    1066    -3.642639 
-    2171    1067    -6.157516 
-    2171    2121    -0.000004 
-    2171    2122    -0.647158 
-    2171    2123    -1.093956 
-    2171    2169    0.000305 
-    2171    2170    9.259477 
-    2171    2171    15.652221 
-    2171    2172    -0.000004 
-    2171    2173    -0.647013 
-    2171    2174    -1.093711 
-    2171    3273    -0.000025 
-    2171    3274    -4.320365 
-    2171    3275    -7.303145 
-    2172    1068    -0.063889 
-    2172    2124    -0.004792 
-    2172    2169    -0.000354 
-    2172    2170    0.179397 
-    2172    2171    0.303252 
-    2172    2172    107.993130 
-    2172    2173    -63.508591 
-    2172    2174    -107.354860 
-    2172    3276    -0.002361 
-    2172    3277    0.212058 
-    2172    3278    0.358463 
-    2173    2171    -0.049127 
-    2173    2173    -20.566709 
-    2173    2174    16.471721 
-    2173    3278    -0.058071 
-    2174    1068    -0.000021 
-    2174    1069    -3.643656 
-    2174    1070    -6.159233 
-    2174    2124    -0.000004 
-    2174    2125    -0.647053 
-    2174    2126    -1.093777 
-    2174    2169    -0.000004 
-    2174    2170    -0.647013 
-    2174    2171    -1.093711 
-    2174    2172    0.000305 
-    2174    2173    9.261599 
-    2174    2174    15.655799 
-    2174    3276    -0.000025 
-    2174    3277    -4.321573 
-    2174    3278    -7.305183 
-    2175    2175    1.000000 
-    2176    2176    1.000000 
-    2177    2177    1.000000 
-    2178    2178    1.000000 
-    2179    2179    1.000000 
-    2180    2180    1.000000 
-    2181    2181    1.000000 
-    2182    2182    1.000000 
-    2183    2183    1.000000 
-    2184    2184    1.000000 
-    2185    2185    1.000000 
-    2186    2186    1.000000 
-    2187    2187    1.000000 
-    2188    2188    1.000000 
-    2189    2189    1.000000 
-    2190    2190    1.000000 
-    2191    2191    1.000000 
-    2192    2192    1.000000 
-    2193    2193    1.000000 
-    2194    2194    1.000000 
-    2195    2195    1.000000 
-    2196    2196    1.000000 
-    2197    2197    1.000000 
-    2198    2198    1.000000 
-    2199    2199    1.000000 
-    2200    2200    1.000000 
-    2201    2201    1.000000 
-    2202    2202    1.000000 
-    2203    2203    1.000000 
-    2204    2204    1.000000 
-    2205    2205    1.000000 
-    2206    2206    1.000000 
-    2207    2207    1.000000 
-    2208    2208    1.000000 
-    2209    2209    1.000000 
-    2210    2210    1.000000 
-    2211    2211    1.000000 
-    2212    2212    1.000000 
-    2213    2213    1.000000 
-    2214    2214    1.000000 
-    2215    2215    1.000000 
-    2216    2216    1.000000 
-    2217    2217    1.000000 
-    2218    2218    1.000000 
-    2219    2219    1.000000 
-    2220    2220    1.000000 
-    2221    2221    1.000000 
-    2222    2222    1.000000 
-    2223    2223    1.000000 
-    2224    2224    1.000000 
-    2225    2225    1.000000 
-    2226    2226    1.000000 
-    2227    2227    1.000000 
-    2228    2228    1.000000 
-    2229    2229    1.000000 
-    2230    2230    1.000000 
-    2231    2231    1.000000 
-    2232    2232    1.000000 
-    2233    2233    1.000000 
-    2234    2234    1.000000 
-    2235    2235    1.000000 
-    2236    2236    1.000000 
-    2237    2237    1.000000 
-    2238    2238    1.000000 
-    2239    2239    1.000000 
-    2240    2240    1.000000 
-    2241    2241    1.000000 
-    2242    2242    1.000000 
-    2243    2243    1.000000 
-    2244    2244    1.000000 
-    2245    2245    1.000000 
-    2246    2246    1.000000 
-    2247    2247    1.000000 
-    2248    2248    1.000000 
-    2249    2249    1.000000 
-    2250    2250    1.000000 
-    2251    2251    1.000000 
-    2252    2252    1.000000 
-    2253    2253    1.000000 
-    2254    2254    1.000000 
-    2255    2255    1.000000 
-    2256    2256    1.000000 
-    2257    2257    1.000000 
-    2258    2258    1.000000 
-    2259    2259    1.000000 
-    2260    2260    1.000000 
-    2261    2261    1.000000 
-    2262    2262    1.000000 
-    2263    2263    1.000000 
-    2264    2264    1.000000 
-    2265    2265    1.000000 
-    2266    2266    1.000000 
-    2267    2267    1.000000 
-    2268    2268    1.000000 
-    2269    2269    1.000000 
-    2270    2270    1.000000 
-    2271    2271    1.000000 
-    2272    2272    1.000000 
-    2273    2273    1.000000 
-    2274    2274    1.000000 
-    2275    2275    1.000000 
-    2276    2276    1.000000 
-    2277    2277    1.000000 
-    2278    2278    1.000000 
-    2279    2279    1.000000 
-    2280    2280    1.000000 
-    2281    2281    1.000000 
-    2282    2282    1.000000 
-    2283    2283    1.000000 
-    2284    2284    1.000000 
-    2285    2285    1.000000 
-    2286    2286    1.000000 
-    2287    2287    1.000000 
-    2288    2288    1.000000 
-    2289    2289    1.000000 
-    2290    2290    1.000000 
-    2291    2291    1.000000 
-    2292    2292    1.000000 
-    2293    2293    1.000000 
-    2294    2294    1.000000 
-    2295    2295    1.000000 
-    2296    2296    1.000000 
-    2297    2297    1.000000 
-    2298    2298    1.000000 
-    2299    2299    1.000000 
-    2300    2300    1.000000 
-    2301    2301    1.000000 
-    2302    2302    1.000000 
-    2303    2303    1.000000 
-    2304    2304    1.000000 
-    2305    2305    1.000000 
-    2306    2306    1.000000 
-    2307    2307    1.000000 
-    2308    2308    1.000000 
-    2309    2309    1.000000 
-    2310    2310    1.000000 
-    2311    2311    1.000000 
-    2312    2312    1.000000 
-    2313    2313    1.000000 
-    2314    2314    1.000000 
-    2315    2315    1.000000 
-    2316    2316    1.000000 
-    2317    2317    1.000000 
-    2318    2318    1.000000 
-    2319    2319    1.000000 
-    2320    2320    1.000000 
-    2321    2321    1.000000 
-    2322    2322    1.000000 
-    2323    2323    1.000000 
-    2324    2324    1.000000 
-    2325    2325    1.000000 
-    2326    2326    1.000000 
-    2327    2327    1.000000 
-    2328    2328    1.000000 
-    2329    2329    1.000000 
-    2330    2330    1.000000 
-    2331    2331    1.000000 
-    2332    2332    1.000000 
-    2333    2333    1.000000 
-    2334    2334    1.000000 
-    2335    2335    1.000000 
-    2336    2336    1.000000 
-    2337    2337    1.000000 
-    2338    2338    1.000000 
-    2339    2339    1.000000 
-    2340    2340    1.000000 
-    2341    2341    1.000000 
-    2342    2342    1.000000 
-    2343    1239    -1.623128 
-    2343    2343    206.087320 
-    2343    2344    -134.756290 
-    2343    2345    -227.792040 
-    2343    2346    -0.597370 
-    2343    2391    -2.935558 
-    2344    2344    -27.720556 
-    2344    2345    25.292823 
-    2345    1239    -0.179884 
-    2345    1240    -0.904106 
-    2345    1241    -1.528301 
-    2345    2343    0.427251 
-    2345    2344    1.748997 
-    2345    2345    2.956504 
-    2345    2346    -0.081461 
-    2345    2347    -0.409416 
-    2345    2348    -0.692077 
-    2345    2391    -0.086021 
-    2345    2392    -0.432400 
-    2345    2393    -0.730930 
-    2346    1242    -1.075363 
-    2346    2343    -0.437446 
-    2346    2344    0.447709 
-    2346    2345    0.756808 
-    2346    2346    192.135300 
-    2346    2347    -126.627090 
-    2346    2348    -214.050270 
-    2346    2349    -0.430306 
-    2346    2394    -1.366976 
-    2347    2345    -0.072554 
-    2347    2347    -28.872728 
-    2347    2348    26.519672 
-    2348    1242    -0.095840 
-    2348    1243    -1.378043 
-    2348    1244    -2.329442 
-    2348    2343    -0.081461 
-    2348    2344    -0.409416 
-    2348    2345    -0.692077 
-    2348    2346    0.335376 
-    2348    2347    2.918107 
-    2348    2348    4.932764 
-    2348    2349    -0.038350 
-    2348    2350    -0.551416 
-    2348    2351    -0.932112 
-    2348    2394    -0.040056 
-    2348    2395    -0.576030 
-    2348    2396    -0.973720 
-    2349    1245    -0.775988 
-    2349    2346    -0.290225 
-    2349    2347    0.252147 
-    2349    2348    0.426230 
-    2349    2349    178.503430 
-    2349    2350    -117.763870 
-    2349    2351    -199.068040 
-    2349    2397    -1.007434 
-    2350    2348    -0.048115 
-    2350    2350    -29.017221 
-    2350    2351    26.676978 
-    2351    1245    -0.048389 
-    2351    1246    -1.856517 
-    2351    1247    -3.138256 
-    2351    2346    -0.038350 
-    2351    2347    -0.551416 
-    2351    2348    -0.932112 
-    2351    2349    0.184065 
-    2351    2350    3.094806 
-    2351    2351    5.231460 
-    2351    2397    -0.017817 
-    2351    2398    -0.683654 
-    2351    2399    -1.155649 
-    2352    2352    1.000000 
-    2353    2353    1.000000 
-    2354    2354    1.000000 
-    2355    2355    1.000000 
-    2356    2356    1.000000 
-    2357    2357    1.000000 
-    2358    2358    1.000000 
-    2359    2359    1.000000 
-    2360    2360    1.000000 
-    2361    2361    1.000000 
-    2362    2362    1.000000 
-    2363    2363    1.000000 
-    2364    2364    1.000000 
-    2365    2365    1.000000 
-    2366    2366    1.000000 
-    2367    1263    -0.913209 
-    2367    2367    296.811240 
-    2367    2368    -189.425000 
-    2367    2369    -320.204020 
-    2367    2415    -1.956371 
-    2368    2368    -45.507683 
-    2368    2369    40.208884 
-    2369    1263    -0.056946 
-    2369    1264    -0.906602 
-    2369    1265    -1.532520 
-    2369    2367    0.194376 
-    2369    2368    1.824409 
-    2369    2369    3.083981 
-    2369    2415    -0.057328 
-    2369    2416    -0.912754 
-    2369    2417    -1.542919 
-    2370    2370    1.000000 
-    2371    2371    1.000000 
-    2372    2372    1.000000 
-    2373    2373    1.000000 
-    2374    2374    1.000000 
-    2375    2375    1.000000 
-    2376    2376    1.000000 
-    2377    2377    1.000000 
-    2378    2378    1.000000 
-    2379    2379    1.000000 
-    2380    2380    1.000000 
-    2381    2381    1.000000 
-    2382    1278    -1.189563 
-    2382    2382    275.742470 
-    2382    2383    -177.448060 
-    2382    2384    -299.958030 
-    2382    2385    -0.780969 
-    2382    2430    -3.148418 
-    2383    2383    -38.965438 
-    2383    2384    34.751750 
-    2384    1278    -0.106018 
-    2384    1279    -0.765767 
-    2384    1280    -1.294453 
-    2384    2382    0.364993 
-    2384    2383    2.061685 
-    2384    2384    3.485070 
-    2384    2385    -0.086551 
-    2384    2386    -0.625142 
-    2384    2387    -1.056740 
-    2384    2430    -0.092258 
-    2384    2431    -0.666450 
-    2384    2432    -1.126566 
-    2385    1281    -0.811244 
-    2385    2382    -0.615078 
-    2385    2383    0.905369 
-    2385    2384    1.530435 
-    2385    2385    250.317890 
-    2385    2386    -161.868230 
-    2385    2387    -273.622060 
-    2385    2388    -0.556554 
-    2385    2433    -2.100783 
-    2386    2384    -0.154764 
-    2386    2386    -39.385424 
-    2386    2387    35.440174 
-    2387    1281    -0.050588 
-    2387    1282    -1.196163 
-    2387    1283    -2.021995 
-    2387    2382    -0.086551 
-    2387    2383    -0.625142 
-    2387    2384    -1.056740 
-    2387    2385    0.288836 
-    2387    2386    3.524898 
-    2387    2387    5.958487 
-    2387    2388    -0.034706 
-    2387    2389    -0.820614 
-    2387    2390    -1.387166 
-    2387    2433    -0.037154 
-    2387    2434    -0.878605 
-    2387    2435    -1.485194 
-    2388    1284    -0.883968 
-    2388    2385    -0.325797 
-    2388    2386    0.393734 
-    2388    2387    0.665567 
-    2388    2388    231.336530 
-    2388    2389    -150.058770 
-    2388    2390    -253.659180 
-    2388    2391    -0.521479 
-    2388    2436    -0.919275 
-    2389    2387    -0.081257 
-    2389    2389    -38.687284 
-    2389    2390    34.830996 
-    2390    1284    -0.025903 
-    2390    1285    -1.552556 
-    2390    1286    -2.624439 
-    2390    2385    -0.034706 
-    2390    2386    -0.820614 
-    2390    2387    -1.387166 
-    2390    2388    0.171797 
-    2390    2389    4.267915 
-    2390    2390    7.214480 
-    2390    2391    -0.015281 
-    2390    2392    -0.915891 
-    2390    2393    -1.548222 
-    2390    2436    -0.016258 
-    2390    2437    -0.974557 
-    2390    2438    -1.647390 
-    2391    1287    -0.612172 
-    2391    2343    -4.155703 
-    2391    2344    13.190091 
-    2391    2345    22.296530 
-    2391    2388    -0.299916 
-    2391    2389    0.157910 
-    2391    2390    0.266930 
-    2391    2391    215.313260 
-    2391    2392    -134.961580 
-    2391    2393    -228.139060 
-    2391    2394    -0.186619 
-    2391    2395    1.841597 
-    2391    2396    3.113033 
-    2391    2439    -0.556354 
-    2392    2345    -2.137526 
-    2392    2390    -0.035179 
-    2392    2392    -37.418826 
-    2392    2393    32.922321 
-    2392    2396    -0.463591 
-    2393    1287    -0.010827 
-    2393    1288    -1.956009 
-    2393    1289    -3.306438 
-    2393    2343    -0.086021 
-    2393    2344    -0.432400 
-    2393    2345    -0.730930 
-    2393    2388    -0.015281 
-    2393    2389    -0.915891 
-    2393    2390    -1.548222 
-    2393    2391    0.121706 
-    2393    2392    5.390503 
-    2393    2393    9.112105 
-    2393    2394    -0.003135 
-    2393    2395    -1.032926 
-    2393    2396    -1.746056 
-    2393    2439    -0.005806 
-    2393    2440    -1.049120 
-    2393    2441    -1.773432 
-    2394    1290    -0.385795 
-    2394    2346    -2.488500 
-    2394    2347    13.032447 
-    2394    2348    22.030033 
-    2394    2391    -0.106988 
-    2394    2394    195.511800 
-    2394    2395    -124.514620 
-    2394    2396    -210.479390 
-    2394    2397    -0.181521 
-    2394    2398    1.690200 
-    2394    2399    2.857115 
-    2394    2442    -0.295344 
-    2395    2348    -2.486881 
-    2395    2395    -34.875408 
-    2395    2396    30.994421 
-    2395    2399    -0.417839 
-    2396    1290    -0.006823 
-    2396    1291    -2.248092 
-    2396    1292    -3.800172 
-    2396    2346    -0.040056 
-    2396    2347    -0.576030 
-    2396    2348    -0.973720 
-    2396    2391    -0.003135 
-    2396    2392    -1.032926 
-    2396    2393    -1.746056 
-    2396    2394    0.056090 
-    2396    2395    5.853460 
-    2396    2396    9.894684 
-    2396    2397    -0.002441 
-    2396    2398    -0.976845 
-    2396    2399    -1.651260 
-    2396    2442    -0.003082 
-    2396    2443    -1.015693 
-    2396    2444    -1.716926 
-    2397    1293    -0.344959 
-    2397    2349    -1.589981 
-    2397    2350    11.924609 
-    2397    2351    20.157360 
-    2397    2394    -0.083317 
-    2397    2397    183.272000 
-    2397    2398    -116.463740 
-    2397    2399    -196.870310 
-    2397    2445    -0.232932 
-    2398    2351    -2.599390 
-    2398    2398    -32.951383 
-    2398    2399    29.082529 
-    2399    1293    -0.006101 
-    2399    1294    -2.441055 
-    2399    1295    -4.126359 
-    2399    2349    -0.017817 
-    2399    2350    -0.683654 
-    2399    2351    -1.155649 
-    2399    2394    -0.002441 
-    2399    2395    -0.976845 
-    2399    2396    -1.651260 
-    2399    2397    0.029298 
-    2399    2398    5.078005 
-    2399    2399    8.583860 
-    2399    2445    -0.002431 
-    2399    2446    -0.972790 
-    2399    2447    -1.644404 
-    2400    2400    1.000000 
-    2401    2401    1.000000 
-    2402    2402    1.000000 
-    2403    2403    1.000000 
-    2404    2404    1.000000 
-    2405    2405    1.000000 
-    2406    2406    1.000000 
-    2407    2407    1.000000 
-    2408    2408    1.000000 
-    2409    2409    1.000000 
-    2410    2410    1.000000 
-    2411    2411    1.000000 
-    2412    2412    1.000000 
-    2413    2413    1.000000 
-    2414    2414    1.000000 
-    2415    1311    -0.384679 
-    2415    2367    -3.279794 
-    2415    2368    16.991600 
-    2415    2369    28.722601 
-    2415    2415    295.962690 
-    2415    2416    -185.669440 
-    2415    2417    -313.855620 
-    2415    2418    -0.348094 
-    2415    2419    0.631146 
-    2415    2420    1.066888 
-    2415    2463    -0.655968 
-    2416    2369    -3.337316 
-    2416    2416    -52.249143 
-    2416    2417    45.541410 
-    2416    2420    -0.152086 
-    2417    1311    -0.006803 
-    2417    1312    -1.432864 
-    2417    1313    -2.422113 
-    2417    2367    -0.057328 
-    2417    2368    -0.912754 
-    2417    2369    -1.542919 
-    2417    2415    0.081608 
-    2417    2416    5.174138 
-    2417    2417    8.746362 
-    2417    2418    -0.009761 
-    2417    2419    -1.380717 
-    2417    2420    -2.333962 
-    2417    2463    -0.006846 
-    2417    2464    -1.441995 
-    2417    2465    -2.437548 
-    2418    1314    -0.546198 
-    2418    2415    -0.333118 
-    2418    2418    294.817100 
-    2418    2419    -187.614800 
-    2418    2420    -317.143830 
-    2418    2421    -0.220702 
-    2418    2422    0.235822 
-    2418    2423    0.398633 
-    2418    2466    -0.932334 
-    2419    2419    -51.494702 
-    2419    2420    45.386677 
-    2419    2423    -0.054994 
-    2420    1314    -0.009660 
-    2420    1315    -1.366407 
-    2420    1316    -2.309773 
-    2420    2415    -0.009761 
-    2420    2416    -1.380717 
-    2420    2417    -2.333962 
-    2420    2418    0.118679 
-    2420    2419    5.465519 
-    2420    2420    9.238908 
-    2420    2421    -0.009761 
-    2420    2422    -1.336179 
-    2420    2423    -2.258677 
-    2420    2466    -0.009730 
-    2420    2467    -1.376491 
-    2420    2468    -2.326819 
-    2421    1317    -0.700884 
-    2421    2418    -0.237236 
-    2421    2421    294.911180 
-    2421    2422    -188.213360 
-    2421    2423    -318.155860 
-    2421    2424    -0.345123 
-    2421    2425    0.241201 
-    2421    2426    0.407726 
-    2421    2469    -0.706610 
-    2422    2422    -50.966088 
-    2422    2423    44.963881 
-    2422    2426    -0.054849 
-    2423    1317    -0.012396 
-    2423    1318    -1.321339 
-    2423    1319    -2.233592 
-    2423    2418    -0.009761 
-    2423    2419    -1.336179 
-    2423    2420    -2.258677 
-    2423    2421    0.129056 
-    2423    2422    5.298425 
-    2423    2423    8.956455 
-    2423    2424    -0.014607 
-    2423    2425    -1.302995 
-    2423    2426    -2.202580 
-    2423    2469    -0.012497 
-    2423    2470    -1.332246 
-    2423    2471    -2.252029 
-    2424    1320    -0.492875 
-    2424    2421    -0.330249 
-    2424    2424    295.159830 
-    2424    2425    -188.670340 
-    2424    2426    -318.928050 
-    2424    2427    -0.344523 
-    2424    2428    0.231088 
-    2424    2429    0.390632 
-    2424    2472    -0.823328 
-    2425    2425    -50.571975 
-    2425    2426    44.643506 
-    2425    2429    -0.052551 
-    2426    1320    -0.014443 
-    2426    1321    -1.288434 
-    2426    1322    -2.177967 
-    2426    2421    -0.014607 
-    2426    2422    -1.302995 
-    2426    2423    -2.202580 
-    2426    2424    0.138031 
-    2426    2425    5.199069 
-    2426    2426    8.788499 
-    2426    2427    -0.014603 
-    2426    2428    -1.302916 
-    2426    2429    -2.202449 
-    2426    2472    -0.014561 
-    2426    2473    -1.299103 
-    2426    2474    -2.196001 
-    2427    1323    -0.492578 
-    2427    2424    -0.330172 
-    2427    2427    295.190420 
-    2427    2428    -188.409100 
-    2427    2429    -318.486750 
-    2427    2430    -0.488073 
-    2427    2475    -0.823460 
-    2428    2428    -50.572276 
-    2428    2429    44.584784 
-    2429    1323    -0.014434 
-    2429    1324    -1.287886 
-    2429    1325    -2.177042 
-    2429    2424    -0.014603 
-    2429    2425    -1.302916 
-    2429    2426    -2.202449 
-    2429    2427    0.137721 
-    2429    2428    5.172030 
-    2429    2429    8.742800 
-    2429    2430    -0.014302 
-    2429    2431    -1.276073 
-    2429    2432    -2.157074 
-    2429    2475    -0.014563 
-    2429    2476    -1.299535 
-    2429    2477    -2.196733 
-    2430    1326    -0.469139 
-    2430    2382    -4.408557 
-    2430    2383    16.821468 
-    2430    2384    28.434994 
-    2430    2427    -0.396557 
-    2430    2428    0.325126 
-    2430    2429    0.549592 
-    2430    2430    285.836750 
-    2430    2431    -178.932720 
-    2430    2432    -302.467730 
-    2430    2433    -0.263041 
-    2430    2434    1.551843 
-    2430    2435    2.623236 
-    2430    2478    -0.754214 
-    2431    2384    -2.875469 
-    2431    2429    -0.073936 
-    2431    2431    -49.860319 
-    2431    2432    43.576472 
-    2431    2435    -0.379606 
-    2432    1326    -0.008297 
-    2432    1327    -1.462372 
-    2432    1328    -2.471992 
-    2432    2382    -0.092258 
-    2432    2383    -0.666450 
-    2432    2384    -1.126566 
-    2432    2427    -0.014302 
-    2432    2428    -1.276073 
-    2432    2429    -2.157074 
-    2432    2430    0.127517 
-    2432    2431    6.202164 
-    2432    2432    10.484134 
-    2432    2433    -0.003937 
-    2432    2434    -1.404263 
-    2432    2435    -2.373766 
-    2432    2478    -0.007871 
-    2432    2479    -1.387462 
-    2432    2480    -2.345365 
-    2433    1329    -0.263160 
-    2433    2385    -2.604048 
-    2433    2386    16.163394 
-    2433    2387    27.322602 
-    2433    2430    -0.134357 
-    2433    2433    266.626370 
-    2433    2434    -169.785360 
-    2433    2435    -287.005170 
-    2433    2436    -0.189533 
-    2433    2437    2.046968 
-    2433    2438    3.460192 
-    2433    2481    -0.372709 
-    2434    2387    -3.335735 
-    2434    2434    -47.687417 
-    2434    2435    42.190864 
-    2434    2438    -0.518710 
-    2435    1329    -0.004654 
-    2435    1330    -1.660118 
-    2435    1331    -2.806263 
-    2435    2385    -0.037154 
-    2435    2386    -0.878605 
-    2435    2387    -1.485194 
-    2435    2430    -0.003937 
-    2435    2431    -1.404263 
-    2435    2432    -2.373766 
-    2435    2433    0.052795 
-    2435    2434    6.679445 
-    2435    2435    11.290933 
-    2435    2436    -0.002415 
-    2435    2437    -1.343578 
-    2435    2438    -2.271183 
-    2435    2481    -0.003890 
-    2435    2482    -1.387579 
-    2435    2483    -2.345563 
-    2436    1332    -0.325360 
-    2436    2388    -1.508888 
-    2436    2389    14.485912 
-    2436    2390    24.486970 
-    2436    2433    -0.136569 
-    2436    2436    241.692610 
-    2436    2437    -155.354030 
-    2436    2438    -262.610280 
-    2436    2439    -0.115570 
-    2436    2440    2.494726 
-    2436    2441    4.217085 
-    2436    2484    -0.228451 
-    2437    2390    -3.227197 
-    2437    2437    -43.939068 
-    2437    2438    39.136646 
-    2437    2441    -0.637960 
-    2438    1332    -0.003396 
-    2438    1333    -1.888992 
-    2438    1334    -3.193149 
-    2438    2388    -0.016258 
-    2438    2389    -0.974557 
-    2438    2390    -1.647390 
-    2438    2433    -0.002415 
-    2438    2434    -1.343578 
-    2438    2435    -2.271183 
-    2438    2436    0.026043 
-    2438    2437    6.827924 
-    2438    2438    11.541916 
-    2438    2439    -0.000939 
-    2438    2440    -1.289442 
-    2438    2441    -2.179673 
-    2438    2484    -0.002384 
-    2438    2485    -1.326469 
-    2438    2486    -2.242262 
-    2439    1335    -0.148188 
-    2439    2391    -0.730654 
-    2439    2392    12.199921 
-    2439    2393    20.622746 
-    2439    2436    -0.053069 
-    2439    2439    223.363930 
-    2439    2440    -144.219590 
-    2439    2441    -243.788790 
-    2439    2442    -0.093204 
-    2439    2443    3.024884 
-    2439    2444    5.113261 
-    2439    2487    -0.088688 
-    2440    2393    -2.914640 
-    2440    2440    -41.297090 
-    2440    2441    36.812861 
-    2440    2444    -0.787282 
-    2441    1335    -0.001547 
-    2441    1336    -2.124845 
-    2441    1337    -3.591837 
-    2441    2391    -0.005806 
-    2441    2392    -1.049120 
-    2441    2393    -1.773432 
-    2441    2436    -0.000939 
-    2441    2437    -1.289442 
-    2441    2438    -2.179673 
-    2441    2439    0.010441 
-    2441    2440    6.952380 
-    2441    2441    11.752301 
-    2441    2442    -0.000652 
-    2441    2443    -1.212590 
-    2441    2444    -2.049761 
-    2441    2487    -0.000926 
-    2441    2488    -1.271790 
-    2441    2489    -2.149833 
-    2442    1338    -0.120893 
-    2442    2394    -0.558837 
-    2442    2395    10.400277 
-    2442    2396    17.580618 
-    2442    2439    -0.062429 
-    2442    2442    205.430030 
-    2442    2443    -132.627050 
-    2442    2444    -224.192610 
-    2442    2445    -0.066744 
-    2442    2446    3.048959 
-    2442    2447    5.153961 
-    2442    2490    -0.061495 
-    2443    2396    -2.618094 
-    2443    2443    -38.253343 
-    2443    2444    34.089825 
-    2443    2447    -0.809744 
-    2444    1338    -0.001262 
-    2444    1339    -2.348264 
-    2444    1340    -3.969503 
-    2444    2394    -0.003082 
-    2444    2395    -1.015693 
-    2444    2396    -1.716926 
-    2444    2439    -0.000652 
-    2444    2440    -1.212590 
-    2444    2441    -2.049761 
-    2444    2442    0.006525 
-    2444    2443    6.928897 
-    2444    2444    11.712602 
-    2444    2445    -0.000372 
-    2444    2446    -1.153498 
-    2444    2447    -1.949873 
-    2444    2490    -0.000642 
-    2444    2491    -1.194597 
-    2444    2492    -2.019346 
-    2445    1341    -0.078631 
-    2445    2397    -0.374706 
-    2445    2398    9.063607 
-    2445    2399    15.321121 
-    2445    2442    -0.035684 
-    2445    2445    193.463720 
-    2445    2446    -121.008720 
-    2445    2447    -204.553130 
-    2445    2493    -0.035095 
-    2446    2399    -2.240641 
-    2446    2446    -36.306218 
-    2446    2447    31.328710 
-    2447    1341    -0.000821 
-    2447    1342    -2.541870 
-    2447    1343    -4.296778 
-    2447    2397    -0.002431 
-    2447    2398    -0.972790 
-    2447    2399    -1.644404 
-    2447    2442    -0.000372 
-    2447    2443    -1.153498 
-    2447    2444    -1.949873 
-    2447    2445    0.004462 
-    2447    2446    5.806760 
-    2447    2447    9.815746 
-    2447    2493    -0.000366 
-    2447    2494    -1.134562 
-    2447    2495    -1.917864 
-    2448    2448    1.000000 
-    2449    2449    1.000000 
-    2450    2450    1.000000 
-    2451    2451    1.000000 
-    2452    2452    1.000000 
-    2453    2453    1.000000 
-    2454    2454    1.000000 
-    2455    2455    1.000000 
-    2456    2456    1.000000 
-    2457    2457    1.000000 
-    2458    2458    1.000000 
-    2459    2459    1.000000 
-    2460    2460    1.000000 
-    2461    2461    1.000000 
-    2462    2462    1.000000 
-    2463    1359    -0.089063 
-    2463    2415    -0.919829 
-    2463    2416    15.807417 
-    2463    2417    26.720858 
-    2463    2463    293.520010 
-    2463    2464    -185.583810 
-    2463    2465    -313.710870 
-    2463    2466    -0.090287 
-    2463    2511    -0.090116 
-    2464    2417    -3.837993 
-    2464    2464    -50.099419 
-    2464    2465    55.228420 
-    2465    1359    -0.000930 
-    2465    1360    -1.637231 
-    2465    1361    -2.767574 
-    2465    2415    -0.006846 
-    2465    2416    -1.441995 
-    2465    2417    -2.437548 
-    2465    2463    0.010397 
-    2465    2464    6.401628 
-    2465    2465    10.821312 
-    2465    2466    -0.000942 
-    2465    2467    -1.659643 
-    2465    2468    -2.805461 
-    2465    2511    -0.000940 
-    2465    2512    -1.656679 
-    2465    2513    -2.800450 
-    2466    1362    -0.106034 
-    2466    2418    -1.306802 
-    2466    2419    16.075890 
-    2466    2420    27.174665 
-    2466    2463    -0.093001 
-    2466    2464    0.271675 
-    2466    2465    0.459239 
-    2466    2466    293.946980 
-    2466    2467    -186.200800 
-    2466    2468    -314.753650 
-    2466    2469    -0.063426 
-    2466    2514    -0.107246 
-    2467    2420    -3.873777 
-    2467    2465    -0.070508 
-    2467    2467    -54.424641 
-    2467    2468    47.565742 
-    2468    1362    -0.001107 
-    2468    1363    -1.620021 
-    2468    1364    -2.738482 
-    2468    2418    -0.009730 
-    2468    2419    -1.376491 
-    2468    2420    -2.326819 
-    2468    2463    -0.000942 
-    2468    2464    -1.659643 
-    2468    2465    -2.805461 
-    2468    2466    0.014769 
-    2468    2467    7.942892 
-    2468    2468    13.426657 
-    2468    2469    -0.001122 
-    2468    2470    -1.642046 
-    2468    2471    -2.775713 
-    2468    2514    -0.001119 
-    2468    2515    -1.638632 
-    2468    2516    -2.769941 
-    2469    1365    -0.156132 
-    2469    2421    -1.378051 
-    2469    2422    16.674148 
-    2469    2423    28.185979 
-    2469    2466    -0.112062 
-    2469    2467    0.404449 
-    2469    2468    0.683680 
-    2469    2469    293.942260 
-    2469    2470    -186.147850 
-    2469    2471    -314.664330 
-    2469    2472    -0.093381 
-    2469    2517    -0.157803 
-    2470    2423    -3.888405 
-    2470    2468    -0.103852 
-    2470    2470    -54.087451 
-    2470    2471    47.365100 
-    2471    1365    -0.001629 
-    2471    1366    -1.589686 
-    2471    1367    -2.687205 
-    2471    2421    -0.012497 
-    2471    2422    -1.332246 
-    2471    2423    -2.252029 
-    2471    2466    -0.001122 
-    2471    2467    -1.642046 
-    2471    2468    -2.775713 
-    2471    2469    0.019314 
-    2471    2470    7.787909 
-    2471    2471    13.164680 
-    2471    2472    -0.001652 
-    2471    2473    -1.611114 
-    2471    2474    -2.723427 
-    2471    2517    -0.001647 
-    2471    2518    -1.606797 
-    2471    2519    -2.716130 
-    2472    1368    -0.191837 
-    2472    2424    -1.453178 
-    2472    2425    17.134703 
-    2472    2426    28.964476 
-    2472    2469    -0.099581 
-    2472    2470    0.238269 
-    2472    2471    0.402771 
-    2472    2472    294.183070 
-    2472    2473    -186.458720 
-    2472    2474    -315.189560 
-    2472    2475    -0.143507 
-    2472    2476    0.288059 
-    2472    2477    0.486935 
-    2472    2520    -0.193946 
-    2473    2426    -3.896443 
-    2473    2471    -0.062091 
-    2473    2473    -53.928425 
-    2473    2474    47.280929 
-    2473    2477    -0.073725 
-    2474    1368    -0.002002 
-    2474    1369    -1.575446 
-    2474    1370    -2.663132 
-    2474    2424    -0.014561 
-    2474    2425    -1.299103 
-    2474    2426    -2.196001 
-    2474    2469    -0.001652 
-    2474    2470    -1.611114 
-    2474    2471    -2.723427 
-    2474    2472    0.023420 
-    2474    2473    7.666691 
-    2474    2474    12.959767 
-    2474    2475    -0.002405 
-    2474    2476    -1.582161 
-    2474    2477    -2.674485 
-    2474    2520    -0.002024 
-    2474    2521    -1.592864 
-    2474    2522    -2.692575 
-    2475    1371    -0.227454 
-    2475    2427    -1.451385 
-    2475    2428    17.104165 
-    2475    2429    28.912880 
-    2475    2472    -0.135997 
-    2475    2475    294.220330 
-    2475    2476    -186.970540 
-    2475    2477    -316.055000 
-    2475    2478    -0.134074 
-    2475    2479    0.898813 
-    2475    2480    1.519352 
-    2475    2523    -0.229907 
-    2476    2429    -3.889605 
-    2476    2476    -53.769714 
-    2476    2477    47.247887 
-    2476    2480    -0.228334 
-    2477    1371    -0.002374 
-    2477    1372    -1.561568 
-    2477    1373    -2.639675 
-    2477    2427    -0.014563 
-    2477    2428    -1.299535 
-    2477    2429    -2.196733 
-    2477    2472    -0.002405 
-    2477    2473    -1.582161 
-    2477    2474    -2.674485 
-    2477    2475    0.023827 
-    2477    2476    7.652109 
-    2477    2477    12.935123 
-    2477    2478    -0.001300 
-    2477    2479    -1.624342 
-    2477    2480    -2.745786 
-    2477    2523    -0.002399 
-    2477    2524    -1.578519 
-    2477    2525    -2.668329 
-    2478    1374    -0.122822 
-    2478    2430    -0.977141 
-    2478    2431    16.275427 
-    2478    2432    27.511970 
-    2478    2475    -0.073488 
-    2478    2478    293.842260 
-    2478    2479    -187.882110 
-    2478    2480    -317.595700 
-    2478    2481    -0.110990 
-    2478    2482    1.751877 
-    2478    2483    2.961372 
-    2478    2526    -0.124297 
-    2479    2432    -3.877283 
-    2479    2479    -54.236743 
-    2479    2480    47.803050 
-    2479    2483    -0.453008 
-    2480    1374    -0.001282 
-    2480    1375    -1.602111 
-    2480    1376    -2.708207 
-    2480    2430    -0.007871 
-    2480    2431    -1.387462 
-    2480    2432    -2.345365 
-    2480    2475    -0.001300 
-    2480    2476    -1.624342 
-    2480    2477    -2.745786 
-    2480    2478    0.013482 
-    2480    2479    7.843541 
-    2480    2480    13.258715 
-    2480    2481    -0.000973 
-    2480    2482    -1.602149 
-    2480    2483    -2.708272 
-    2480    2526    -0.001297 
-    2480    2527    -1.621439 
-    2480    2528    -2.740879 
-    2481    1377    -0.100928 
-    2481    2433    -0.633412 
-    2481    2434    15.780879 
-    2481    2435    26.675998 
-    2481    2478    -0.093191 
-    2481    2481    275.790340 
-    2481    2482    -177.965950 
-    2481    2483    -300.833640 
-    2481    2484    -0.078870 
-    2481    2485    2.450933 
-    2481    2486    4.143055 
-    2481    2529    -0.093052 
-    2482    2435    -3.860260 
-    2482    2482    -51.274641 
-    2482    2483    45.592825 
-    2482    2486    -0.648258 
-    2483    1377    -0.001053 
-    2483    1378    -1.735247 
-    2483    1379    -2.933261 
-    2483    2433    -0.003890 
-    2483    2434    -1.387579 
-    2483    2435    -2.345563 
-    2483    2478    -0.000973 
-    2483    2479    -1.602149 
-    2483    2480    -2.708272 
-    2483    2481    0.008147 
-    2483    2482    7.867811 
-    2483    2483    13.299746 
-    2483    2484    -0.000563 
-    2483    2485    -1.537203 
-    2483    2486    -2.598486 
-    2483    2529    -0.000971 
-    2483    2530    -1.599926 
-    2483    2531    -2.704515 
-    2484    1380    -0.066503 
-    2484    2436    -0.510771 
-    2484    2437    14.375670 
-    2484    2438    24.300617 
-    2484    2481    -0.053901 
-    2484    2484    257.936380 
-    2484    2485    -167.192940 
-    2484    2486    -282.622760 
-    2484    2487    -0.054919 
-    2484    2488    3.149518 
-    2484    2489    5.323946 
-    2484    2532    -0.053264 
-    2485    2438    -3.642851 
-    2485    2485    -48.357234 
-    2485    2486    43.219585 
-    2485    2489    -0.849205 
-    2486    1380    -0.000694 
-    2486    1381    -1.896703 
-    2486    1382    -3.206184 
-    2486    2436    -0.002384 
-    2486    2437    -1.326469 
-    2486    2438    -2.242262 
-    2486    2481    -0.000563 
-    2486    2482    -1.537203 
-    2486    2483    -2.598486 
-    2486    2484    0.005068 
-    2486    2485    7.729943 
-    2486    2486    13.066689 
-    2486    2487    -0.000238 
-    2486    2488    -1.444966 
-    2486    2489    -2.442570 
-    2486    2532    -0.000556 
-    2486    2533    -1.519219 
-    2486    2534    -2.568086 
-    2487    1383    -0.016242 
-    2487    2439    -0.223040 
-    2487    2440    13.195320 
-    2487    2441    22.305368 
-    2487    2484    -0.022848 
-    2487    2487    234.209590 
-    2487    2488    -153.242610 
-    2487    2489    -259.041310 
-    2487    2490    -0.044341 
-    2487    2491    4.148118 
-    2487    2492    7.011973 
-    2487    2535    -0.022299 
-    2488    2441    -3.374355 
-    2488    2488    -44.241303 
-    2488    2489    39.933058 
-    2488    2492    -1.136025 
-    2489    1383    -0.000011 
-    2489    1384    -2.127758 
-    2489    1385    -3.596762 
-    2489    2439    -0.000926 
-    2489    2440    -1.271790 
-    2489    2441    -2.149833 
-    2489    2484    -0.000238 
-    2489    2485    -1.444966 
-    2489    2486    -2.442570 
-    2489    2487    0.001974 
-    2489    2488    7.606176 
-    2489    2489    12.857479 
-    2489    2490    -0.000007 
-    2489    2491    -1.346297 
-    2489    2492    -2.275779 
-    2489    2535    -0.000233 
-    2489    2536    -1.410440 
-    2489    2537    -2.384208 
-    2490    1386    -0.050112 
-    2490    2442    -0.175000 
-    2490    2443    11.284571 
-    2490    2444    19.075426 
-    2490    2487    -0.000646 
-    2490    2490    216.590330 
-    2490    2491    -144.474550 
-    2490    2492    -244.219590 
-    2490    2493    -0.103282 
-    2490    2494    7.522888 
-    2490    2495    12.716689 
-    2490    2538    -0.000629 
-    2491    2444    -2.937019 
-    2491    2491    -41.136159 
-    2491    2492    37.924460 
-    2491    2495    -2.060299 
-    2492    1386    -0.000012 
-    2492    1387    -2.337165 
-    2492    1388    -3.950741 
-    2492    2442    -0.000642 
-    2492    2443    -1.194597 
-    2492    2444    -2.019346 
-    2492    2487    -0.000007 
-    2492    2488    -1.346297 
-    2492    2489    -2.275779 
-    2492    2490    0.001179 
-    2492    2491    7.434362 
-    2492    2492    12.567038 
-    2492    2493    -0.000006 
-    2492    2494    -1.240973 
-    2492    2495    -2.097741 
-    2492    2538    -0.000007 
-    2492    2539    -1.310749 
-    2492    2540    -2.215688 
-    2493    1389    -0.050293 
-    2493    2445    -0.074440 
-    2493    2446    6.409008 
-    2493    2447    10.833787 
-    2493    2490    -0.000571 
-    2493    2493    198.980500 
-    2493    2494    -122.161760 
-    2493    2495    -206.502240 
-    2494    2447    -1.702107 
-    2494    2494    -37.800226 
-    2494    2495    31.949098 
-    2495    1389    -0.000012 
-    2495    1390    -2.544696 
-    2495    1391    -4.301554 
-    2495    2445    -0.000366 
-    2495    2446    -1.134562 
-    2495    2447    -1.917864 
-    2495    2490    -0.000006 
-    2495    2491    -1.240973 
-    2495    2492    -2.097741 
-    2495    2493    0.000849 
-    2495    2494    4.924440 
-    2495    2495    8.324274 
-    2496    2496    1.000000 
-    2497    2497    1.000000 
-    2498    2498    1.000000 
-    2499    2499    1.000000 
-    2500    2500    1.000000 
-    2501    2501    1.000000 
-    2502    2502    1.000000 
-    2503    2503    1.000000 
-    2504    2504    1.000000 
-    2505    2505    1.000000 
-    2506    2506    1.000000 
-    2507    2507    1.000000 
-    2508    2508    1.000000 
-    2509    2509    1.000000 
-    2510    2510    1.000000 
-    2511    1407    -0.026951 
-    2511    2463    -0.256205 
-    2511    2464    16.314945 
-    2511    2465    27.578783 
-    2511    2511    292.647490 
-    2511    2512    -186.381730 
-    2511    2513    -315.059670 
-    2511    2514    -0.021757 
-    2511    2559    -0.021683 
-    2512    2465    -4.234204 
-    2512    2512    -50.801262 
-    2512    2513    56.283224 
-    2513    1407    -0.000009 
-    2513    1408    -1.708351 
-    2513    1409    -2.887796 
-    2513    2463    -0.000940 
-    2513    2464    -1.656679 
-    2513    2465    -2.800450 
-    2513    2511    0.002100 
-    2513    2512    6.826079 
-    2513    2513    11.538803 
-    2513    2514    -0.000227 
-    2513    2515    -1.730294 
-    2513    2516    -2.924890 
-    2513    2559    -0.000226 
-    2513    2560    -1.724583 
-    2513    2561    -2.915236 
-    2514    1410    -0.009360 
-    2514    2466    -0.277051 
-    2514    2467    16.672940 
-    2514    2468    28.183922 
-    2514    2511    -0.028239 
-    2514    2512    0.634952 
-    2514    2513    1.073322 
-    2514    2514    292.740630 
-    2514    2515    -187.401710 
-    2514    2516    -316.783640 
-    2514    2517    -0.038882 
-    2514    2562    -0.038747 
-    2515    2468    -4.281179 
-    2515    2513    -0.171763 
-    2515    2515    -55.188260 
-    2515    2516    48.630497 
-    2516    1410    -0.000009 
-    2516    1411    -1.691876 
-    2516    1412    -2.859945 
-    2516    2466    -0.001119 
-    2516    2467    -1.638632 
-    2516    2468    -2.769941 
-    2516    2511    -0.000227 
-    2516    2512    -1.730294 
-    2516    2513    -2.924890 
-    2516    2514    0.002873 
-    2516    2515    8.486762 
-    2516    2516    14.346016 
-    2516    2517    -0.000406 
-    2516    2518    -1.712777 
-    2516    2519    -2.895276 
-    2516    2562    -0.000404 
-    2516    2563    -1.707034 
-    2516    2564    -2.885569 
-    2517    1413    -0.055354 
-    2517    2469    -0.530944 
-    2517    2470    16.752403 
-    2517    2471    28.318262 
-    2517    2514    -0.049799 
-    2517    2515    1.071238 
-    2517    2516    1.810820 
-    2517    2517    292.923680 
-    2517    2518    -188.341130 
-    2517    2519    -318.371840 
-    2517    2520    -0.056015 
-    2517    2565    -0.055815 
-    2518    2471    -4.365549 
-    2518    2516    -0.286844 
-    2518    2518    -55.000471 
-    2518    2519    48.683506 
-    2519    1413    -0.000578 
-    2519    1414    -1.675338 
-    2519    1415    -2.831991 
-    2519    2469    -0.001647 
-    2519    2470    -1.606797 
-    2519    2471    -2.716130 
-    2519    2514    -0.000406 
-    2519    2515    -1.712777 
-    2519    2516    -2.895276 
-    2519    2517    0.004515 
-    2519    2518    8.385723 
-    2519    2519    14.175224 
-    2519    2520    -0.000585 
-    2519    2521    -1.695261 
-    2519    2522    -2.865670 
-    2519    2565    -0.000583 
-    2519    2566    -1.689422 
-    2519    2567    -2.855799 
-    2520    1416    -0.063786 
-    2520    2472    -0.568066 
-    2520    2473    17.353461 
-    2520    2474    29.334266 
-    2520    2517    -0.064823 
-    2520    2518    0.864923 
-    2520    2519    1.462065 
-    2520    2520    293.023510 
-    2520    2521    -188.676260 
-    2520    2522    -318.938140 
-    2520    2523    -0.064584 
-    2520    2568    -0.064351 
-    2521    2474    -4.481716 
-    2521    2519    -0.229225 
-    2521    2521    -54.906725 
-    2521    2522    48.672218 
-    2522    1416    -0.000666 
-    2522    1417    -1.665693 
-    2522    1418    -2.815685 
-    2522    2472    -0.002024 
-    2522    2473    -1.592864 
-    2522    2474    -2.692575 
-    2522    2517    -0.000585 
-    2522    2518    -1.695261 
-    2522    2519    -2.865670 
-    2522    2520    0.005343 
-    2522    2521    8.327012 
-    2522    2522    14.075973 
-    2522    2523    -0.000674 
-    2522    2524    -1.686464 
-    2522    2525    -2.850797 
-    2522    2568    -0.000672 
-    2522    2569    -1.680612 
-    2522    2570    -2.840905 
-    2523    1419    -0.072246 
-    2523    2475    -0.598829 
-    2523    2476    17.718613 
-    2523    2477    29.951544 
-    2523    2520    -0.065410 
-    2523    2521    0.080747 
-    2523    2522    0.136495 
-    2523    2523    293.100450 
-    2523    2524    -189.233310 
-    2523    2525    -319.879980 
-    2523    2526    -0.075201 
-    2523    2527    1.046473 
-    2523    2528    1.768957 
-    2523    2571    -0.072887 
-    2524    2477    -4.534861 
-    2524    2522    -0.021289 
-    2524    2524    -54.812579 
-    2524    2525    48.719147 
-    2524    2528    -0.275906 
-    2525    1419    -0.000754 
-    2525    1420    -1.657002 
-    2525    1421    -2.800996 
-    2525    2475    -0.002399 
-    2525    2476    -1.578519 
-    2525    2477    -2.668329 
-    2525    2520    -0.000674 
-    2525    2521    -1.686464 
-    2525    2522    -2.850797 
-    2525    2523    0.005990 
-    2525    2524    8.286247 
-    2525    2525    14.007069 
-    2525    2526    -0.000674 
-    2525    2527    -1.686308 
-    2525    2528    -2.850534 
-    2525    2571    -0.000761 
-    2525    2572    -1.671847 
-    2525    2573    -2.826091 
-    2526    1422    -0.063781 
-    2526    2478    -0.309500 
-    2526    2479    18.189066 
-    2526    2480    30.746777 
-    2526    2523    -0.064560 
-    2526    2526    292.953220 
-    2526    2527    -190.246610 
-    2526    2528    -321.592690 
-    2526    2529    -0.058123 
-    2526    2530    1.889668 
-    2526    2531    3.194295 
-    2526    2574    -0.064335 
-    2527    2480    -4.620734 
-    2527    2527    -54.906377 
-    2527    2528    49.087749 
-    2527    2531    -0.505995 
-    2528    1422    -0.000666 
-    2528    1423    -1.666034 
-    2528    1424    -2.816262 
-    2528    2478    -0.001297 
-    2528    2479    -1.621439 
-    2528    2480    -2.740879 
-    2528    2523    -0.000674 
-    2528    2524    -1.686308 
-    2528    2525    -2.850534 
-    2528    2526    0.004436 
-    2528    2527    8.372563 
-    2528    2528    14.152973 
-    2528    2529    -0.000406 
-    2528    2530    -1.712040 
-    2528    2531    -2.894032 
-    2528    2574    -0.000671 
-    2528    2575    -1.680624 
-    2528    2576    -2.840925 
-    2529    1425    -0.010377 
-    2529    2481    -0.271710 
-    2529    2482    17.552672 
-    2529    2483    29.671036 
-    2529    2526    -0.038861 
-    2529    2529    292.745990 
-    2529    2530    -190.378960 
-    2529    2531    -321.816600 
-    2529    2532    -0.038333 
-    2529    2533    2.625185 
-    2529    2534    4.437608 
-    2529    2577    -0.038761 
-    2530    2483    -4.538847 
-    2530    2530    -55.187799 
-    2530    2531    49.428946 
-    2530    2534    -0.718922 
-    2531    1425    -0.000009 
-    2531    1426    -1.691985 
-    2531    1427    -2.860131 
-    2531    2481    -0.000971 
-    2531    2482    -1.599926 
-    2531    2483    -2.704515 
-    2531    2526    -0.000406 
-    2531    2527    -1.712040 
-    2531    2528    -2.894032 
-    2531    2529    0.002507 
-    2531    2530    8.395800 
-    2531    2531    14.192258 
-    2531    2532    -0.000009 
-    2531    2533    -1.677831 
-    2531    2534    -2.836203 
-    2531    2577    -0.000405 
-    2531    2578    -1.707869 
-    2531    2579    -2.886982 
-    2532    1428    -0.049090 
-    2532    2484    -0.208653 
-    2532    2485    16.255375 
-    2532    2486    27.478068 
-    2532    2529    -0.000862 
-    2532    2532    269.211870 
-    2532    2533    -175.642640 
-    2532    2534    -296.906070 
-    2532    2535    -0.066110 
-    2532    2536    2.915540 
-    2532    2537    4.928429 
-    2532    2580    -0.000835 
-    2533    2486    -4.299454 
-    2533    2533    -51.156974 
-    2533    2534    46.023370 
-    2533    2537    -0.798444 
-    2534    1428    -0.000010 
-    2534    1429    -1.879401 
-    2534    1430    -3.176937 
-    2534    2484    -0.000556 
-    2534    2485    -1.519219 
-    2534    2486    -2.568086 
-    2534    2529    -0.000009 
-    2534    2530    -1.677831 
-    2534    2531    -2.836203 
-    2534    2532    0.001221 
-    2534    2533    8.245674 
-    2534    2534    13.938478 
-    2534    2535    -0.000008 
-    2534    2536    -1.537921 
-    2534    2537    -2.599702 
-    2534    2580    -0.000009 
-    2534    2581    -1.625600 
-    2534    2582    -2.747912 
-    2535    1431    -0.049472 
-    2535    2487    -0.134248 
-    2535    2488    15.161974 
-    2535    2489    25.629800 
-    2535    2532    -0.000777 
-    2535    2535    245.797600 
-    2535    2536    -160.742890 
-    2535    2537    -271.719790 
-    2535    2538    -0.051375 
-    2535    2539    2.466770 
-    2535    2540    4.169826 
-    2535    2583    -0.000759 
-    2536    2489    -4.088125 
-    2536    2536    -46.711518 
-    2536    2537    42.116819 
-    2536    2540    -0.675549 
-    2537    1431    -0.000011 
-    2537    1432    -2.058723 
-    2537    1433    -3.480066 
-    2537    2487    -0.000233 
-    2537    2488    -1.410440 
-    2537    2489    -2.384208 
-    2537    2532    -0.000008 
-    2537    2533    -1.537921 
-    2537    2534    -2.599702 
-    2537    2535    0.000841 
-    2537    2536    7.912791 
-    2537    2537    13.375780 
-    2537    2538    -0.000007 
-    2537    2539    -1.397682 
-    2537    2540    -2.362640 
-    2537    2583    -0.000008 
-    2537    2584    -1.502818 
-    2537    2585    -2.540363 
-    2538    1434    -0.049415 
-    2538    2490    -0.098060 
-    2538    2491    15.597252 
-    2538    2492    26.365575 
-    2538    2535    -0.000697 
-    2538    2538    222.357500 
-    2538    2539    -145.286990 
-    2538    2540    -245.592950 
-    2538    2586    -0.000679 
-    2539    2492    -4.271543 
-    2539    2539    -42.264729 
-    2539    2540    38.061162 
-    2540    1434    -0.000012 
-    2540    1435    -2.275492 
-    2540    1436    -3.846489 
-    2540    2490    -0.000007 
-    2540    2491    -1.310749 
-    2540    2492    -2.215688 
-    2540    2535    -0.000007 
-    2540    2536    -1.397682 
-    2540    2537    -2.362640 
-    2540    2538    0.000553 
-    2540    2539    6.350315 
-    2540    2540    10.734565 
-    2540    2586    -0.000007 
-    2540    2587    -1.361680 
-    2540    2588    -2.301782 
-    2541    2541    1.000000 
-    2542    2542    1.000000 
-    2543    2543    1.000000 
-    2544    2544    1.000000 
-    2545    2545    1.000000 
-    2546    2546    1.000000 
-    2547    2547    1.000000 
-    2548    2548    1.000000 
-    2549    2549    1.000000 
-    2550    2550    1.000000 
-    2551    2551    1.000000 
-    2552    2552    1.000000 
-    2553    2553    1.000000 
-    2554    2554    1.000000 
-    2555    2555    1.000000 
-    2556    2556    1.000000 
-    2557    2557    1.000000 
-    2558    2558    1.000000 
-    2559    1455    -0.048509 
-    2559    2511    -0.131228 
-    2559    2512    17.114212 
-    2559    2513    28.929865 
-    2559    2559    292.490890 
-    2559    2560    -187.666960 
-    2559    2561    -317.232240 
-    2559    2562    -0.000937 
-    2559    2607    -0.000892 
-    2560    2513    -4.629615 
-    2560    2560    -51.030416 
-    2560    2561    56.854685 
-    2561    1455    -0.000010 
-    2561    1456    -1.732900 
-    2561    1457    -2.929294 
-    2561    2511    -0.000226 
-    2561    2512    -1.724583 
-    2561    2513    -2.915236 
-    2561    2559    0.000939 
-    2561    2560    6.882697 
-    2561    2561    11.634511 
-    2561    2562    -0.000010 
-    2561    2563    -1.752131 
-    2561    2564    -2.961802 
-    2561    2607    -0.000009 
-    2561    2608    -1.666878 
-    2561    2609    -2.817690 
-    2562    1458    -0.048061 
-    2562    2514    -0.162026 
-    2562    2515    17.626293 
-    2562    2516    29.795467 
-    2562    2559    -0.021204 
-    2562    2560    1.149406 
-    2562    2561    1.942956 
-    2562    2562    292.528510 
-    2562    2563    -189.134010 
-    2562    2564    -319.711920 
-    2562    2565    -0.000943 
-    2562    2610    -0.000918 
-    2563    2516    -4.719768 
-    2563    2561    -0.314764 
-    2563    2563    -55.622843 
-    2563    2564    49.493657 
-    2564    1458    -0.000010 
-    2564    1459    -1.732188 
-    2564    1460    -2.928089 
-    2564    2514    -0.000404 
-    2564    2515    -1.707034 
-    2564    2516    -2.885569 
-    2564    2559    -0.000010 
-    2564    2560    -1.752131 
-    2564    2561    -2.961802 
-    2564    2562    0.001127 
-    2564    2563    8.655407 
-    2564    2564    14.631092 
-    2564    2565    -0.000010 
-    2564    2566    -1.752057 
-    2564    2567    -2.961675 
-    2564    2610    -0.000010 
-    2564    2611    -1.705791 
-    2564    2612    -2.883468 
-    2565    1461    -0.047233 
-    2565    2517    -0.198658 
-    2565    2518    18.710595 
-    2565    2519    31.628390 
-    2565    2562    -0.031498 
-    2565    2563    2.160631 
-    2565    2564    3.652328 
-    2565    2565    292.577630 
-    2565    2566    -191.027790 
-    2565    2567    -322.913380 
-    2565    2568    -0.000951 
-    2565    2613    -0.000946 
-    2566    2519    -4.958742 
-    2566    2564    -0.591686 
-    2566    2566    -55.622856 
-    2566    2567    50.011819 
-    2567    1461    -0.000010 
-    2567    1462    -1.731647 
-    2567    1463    -2.927176 
-    2567    2517    -0.000583 
-    2567    2518    -1.689422 
-    2567    2519    -2.855799 
-    2567    2562    -0.000010 
-    2567    2563    -1.752057 
-    2567    2564    -2.961675 
-    2567    2565    0.001306 
-    2567    2566    8.674944 
-    2567    2567    14.664123 
-    2567    2568    -0.000010 
-    2567    2569    -1.752040 
-    2567    2570    -2.961648 
-    2567    2613    -0.000010 
-    2567    2614    -1.743573 
-    2567    2615    -2.947335 
-    2568    1464    -0.046196 
-    2568    2520    -0.235581 
-    2568    2521    19.821857 
-    2568    2522    33.506847 
-    2568    2565    -0.038249 
-    2568    2566    1.980808 
-    2568    2567    3.348357 
-    2568    2568    292.576990 
-    2568    2569    -191.818840 
-    2568    2570    -324.250360 
-    2568    2571    -0.000959 
-    2568    2616    -0.000955 
-    2569    2522    -5.226034 
-    2569    2567    -0.542439 
-    2569    2569    -55.621662 
-    2569    2570    50.231084 
-    2570    1464    -0.000010 
-    2570    1465    -1.732570 
-    2570    1466    -2.928734 
-    2570    2520    -0.000672 
-    2570    2521    -1.680612 
-    2570    2522    -2.840905 
-    2570    2565    -0.000010 
-    2570    2566    -1.752040 
-    2570    2567    -2.961648 
-    2570    2568    0.001395 
-    2570    2569    8.669038 
-    2570    2570    14.654135 
-    2570    2571    -0.000010 
-    2570    2572    -1.752082 
-    2570    2573    -2.961718 
-    2570    2616    -0.000010 
-    2570    2617    -1.745529 
-    2570    2618    -2.950641 
-    2571    1467    -0.045679 
-    2571    2523    -0.259459 
-    2571    2524    20.490641 
-    2571    2525    34.637380 
-    2571    2568    -0.017181 
-    2571    2569    0.752061 
-    2571    2570    1.271282 
-    2571    2571    292.581000 
-    2571    2572    -192.184640 
-    2571    2573    -324.868920 
-    2571    2574    -0.020099 
-    2571    2575    1.038688 
-    2571    2576    1.755797 
-    2571    2619    -0.000960 
-    2572    2525    -5.374228 
-    2572    2570    -0.205949 
-    2572    2572    -55.620927 
-    2572    2573    50.332785 
-    2572    2576    -0.284441 
-    2573    1467    -0.000010 
-    2573    1468    -1.732554 
-    2573    1469    -2.928709 
-    2573    2523    -0.000761 
-    2573    2524    -1.671847 
-    2573    2525    -2.826091 
-    2573    2568    -0.000010 
-    2573    2569    -1.752082 
-    2573    2570    -2.961718 
-    2573    2571    0.001485 
-    2573    2572    8.660221 
-    2573    2573    14.639234 
-    2573    2574    -0.000010 
-    2573    2575    -1.752015 
-    2573    2576    -2.961604 
-    2573    2619    -0.000010 
-    2573    2620    -1.745518 
-    2573    2621    -2.950624 
-    2574    1470    -0.046118 
-    2574    2526    -0.242437 
-    2574    2527    20.498619 
-    2574    2528    34.650845 
-    2574    2571    -0.000959 
-    2574    2574    292.589090 
-    2574    2575    -193.001350 
-    2574    2576    -326.249260 
-    2574    2577    -0.043708 
-    2574    2578    2.518277 
-    2574    2579    4.256896 
-    2574    2622    -0.000956 
-    2575    2528    -5.404518 
-    2575    2575    -55.621503 
-    2575    2576    50.555316 
-    2575    2579    -0.689626 
-    2576    1470    -0.000010 
-    2576    1471    -1.732697 
-    2576    1472    -2.928949 
-    2576    2526    -0.000671 
-    2576    2527    -1.680624 
-    2576    2528    -2.840925 
-    2576    2571    -0.000010 
-    2576    2572    -1.752015 
-    2576    2573    -2.961604 
-    2576    2574    0.001395 
-    2576    2575    8.669263 
-    2576    2576    14.654513 
-    2576    2577    -0.000010 
-    2576    2578    -1.751691 
-    2576    2579    -2.961058 
-    2576    2622    -0.000010 
-    2576    2623    -1.746031 
-    2576    2624    -2.951488 
-    2577    1473    -0.046865 
-    2577    2529    -0.193536 
-    2577    2530    19.884307 
-    2577    2531    33.612433 
-    2577    2574    -0.000947 
-    2577    2577    292.584640 
-    2577    2578    -193.402880 
-    2577    2579    -326.928220 
-    2577    2580    -0.069271 
-    2577    2581    3.206450 
-    2577    2582    5.420180 
-    2577    2625    -0.000944 
-    2578    2531    -5.324409 
-    2578    2578    -55.622434 
-    2578    2579    50.663406 
-    2578    2582    -0.878087 
-    2579    1473    -0.000010 
-    2579    1474    -1.732143 
-    2579    1475    -2.928014 
-    2579    2529    -0.000405 
-    2579    2530    -1.707869 
-    2579    2531    -2.886982 
-    2579    2574    -0.000010 
-    2579    2575    -1.751691 
-    2579    2576    -2.961058 
-    2579    2577    0.001127 
-    2579    2578    8.641078 
-    2579    2579    14.606876 
-    2579    2580    -0.000009 
-    2579    2581    -1.697084 
-    2579    2582    -2.868749 
-    2579    2625    -0.000010 
-    2579    2626    -1.746086 
-    2579    2627    -2.951584 
-    2580    1476    -0.047160 
-    2580    2532    -0.115680 
-    2580    2533    17.977306 
-    2580    2534    30.388813 
-    2580    2577    -0.000904 
-    2580    2580    275.024510 
-    2580    2581    -181.855580 
-    2580    2582    -307.408470 
-    2580    2583    -0.076734 
-    2580    2584    3.397539 
-    2580    2585    5.743200 
-    2580    2628    -0.000892 
-    2581    2534    -4.923187 
-    2581    2581    -52.287970 
-    2581    2582    47.632801 
-    2581    2585    -0.930422 
-    2582    1476    -0.000010 
-    2582    1477    -1.841508 
-    2582    1478    -3.112884 
-    2582    2532    -0.000009 
-    2582    2533    -1.625600 
-    2582    2534    -2.747912 
-    2582    2577    -0.000009 
-    2582    2578    -1.697084 
-    2582    2579    -2.868749 
-    2582    2580    0.000689 
-    2582    2581    8.438159 
-    2582    2582    14.263855 
-    2582    2583    -0.000009 
-    2582    2584    -1.592071 
-    2582    2585    -2.691237 
-    2582    2628    -0.000009 
-    2582    2629    -1.676061 
-    2582    2630    -2.833212 
-    2583    1479    -0.047971 
-    2583    2535    -0.099113 
-    2583    2536    16.260700 
-    2583    2537    27.487088 
-    2583    2580    -0.000840 
-    2583    2583    257.471000 
-    2583    2584    -169.140370 
-    2583    2585    -285.914880 
-    2583    2586    -0.054570 
-    2583    2587    2.647312 
-    2583    2588    4.475014 
-    2583    2631    -0.000829 
-    2584    2537    -4.453124 
-    2584    2584    -48.953851 
-    2584    2585    44.281127 
-    2584    2588    -0.724974 
-    2585    1479    -0.000011 
-    2585    1480    -1.965496 
-    2585    1481    -3.322474 
-    2585    2535    -0.000008 
-    2585    2536    -1.502818 
-    2585    2537    -2.540363 
-    2585    2580    -0.000009 
-    2585    2581    -1.592071 
-    2585    2582    -2.691237 
-    2585    2583    0.000646 
-    2585    2584    8.104624 
-    2585    2585    13.700055 
-    2585    2586    -0.000008 
-    2585    2587    -1.468164 
-    2585    2588    -2.481783 
-    2585    2631    -0.000009 
-    2585    2632    -1.570612 
-    2585    2633    -2.654962 
-    2586    1482    -0.048565 
-    2586    2538    -0.089255 
-    2586    2539    14.681026 
-    2586    2540    24.816788 
-    2586    2583    -0.000769 
-    2586    2586    234.002320 
-    2586    2587    -151.239020 
-    2586    2588    -255.654270 
-    2586    2634    -0.000740 
-    2587    2540    -4.020542 
-    2587    2587    -44.505464 
-    2587    2588    39.559654 
-    2588    1482    -0.000012 
-    2588    1483    -2.166039 
-    2588    1484    -3.661470 
-    2588    2538    -0.000007 
-    2588    2539    -1.361680 
-    2588    2540    -2.301782 
-    2588    2583    -0.000008 
-    2588    2584    -1.468164 
-    2588    2585    -2.481783 
-    2588    2586    0.000582 
-    2588    2587    6.414709 
-    2588    2588    10.843417 
-    2588    2634    -0.000008 
-    2588    2635    -1.413859 
-    2588    2636    -2.389985 
-    2589    2589    1.000000 
-    2590    2590    1.000000 
-    2591    2591    1.000000 
-    2592    2592    1.000000 
-    2593    2593    1.000000 
-    2594    2594    1.000000 
-    2595    2595    1.000000 
-    2596    2596    1.000000 
-    2597    2597    1.000000 
-    2598    2598    1.000000 
-    2599    2599    1.000000 
-    2600    2600    1.000000 
-    2601    2601    1.000000 
-    2602    2602    1.000000 
-    2603    2603    1.000000 
-    2604    1500    -0.049071 
-    2604    2604    257.261830 
-    2604    2605    -155.707360 
-    2604    2606    -263.207500 
-    2604    2607    -0.025480 
-    2604    2608    5.352012 
-    2604    2609    9.047040 
-    2604    2652    -0.083154 
-    2605    2605    -48.977572 
-    2605    2606    40.543038 
-    2605    2609    -1.465612 
-    2606    1500    -0.000012 
-    2606    1501    -1.985902 
-    2606    1502    -3.356966 
-    2606    2604    0.000631 
-    2606    2605    4.963156 
-    2606    2606    8.389713 
-    2606    2607    -0.000009 
-    2606    2608    -1.576253 
-    2606    2609    -2.664498 
-    2606    2652    -0.000008 
-    2606    2653    -1.395527 
-    2606    2654    -2.358996 
-    2607    1503    -0.048017 
-    2607    2559    -0.071925 
-    2607    2560    17.993985 
-    2607    2561    30.417032 
-    2607    2604    -0.000880 
-    2607    2607    269.015240 
-    2607    2608    -175.138160 
-    2607    2609    -296.053550 
-    2607    2610    -0.000919 
-    2607    2655    -0.012520 
-    2608    2561    -4.927647 
-    2608    2608    -51.196925 
-    2608    2609    45.785790 
-    2609    1503    -0.000011 
-    2609    1504    -1.894376 
-    2609    1505    -3.202254 
-    2609    2559    -0.000009 
-    2609    2560    -1.666878 
-    2609    2561    -2.817690 
-    2609    2604    -0.000009 
-    2609    2605    -1.576253 
-    2609    2606    -2.664498 
-    2609    2607    0.000677 
-    2609    2608    8.274180 
-    2609    2609    13.986673 
-    2609    2610    -0.000010 
-    2609    2611    -1.646536 
-    2609    2612    -2.783304 
-    2609    2655    -0.000009 
-    2609    2656    -1.484417 
-    2609    2657    -2.509259 
-    2610    1506    -0.046124 
-    2610    2562    -0.080804 
-    2610    2563    18.407184 
-    2610    2564    31.115484 
-    2610    2607    -0.026902 
-    2610    2608    1.073246 
-    2610    2609    1.814215 
-    2610    2610    280.747370 
-    2610    2611    -183.459410 
-    2610    2612    -310.119550 
-    2610    2613    -0.000961 
-    2610    2658    -0.000893 
-    2611    2564    -5.040786 
-    2611    2609    -0.293901 
-    2611    2611    -53.421482 
-    2611    2612    47.973334 
-    2612    1506    -0.000011 
-    2612    1507    -1.812633 
-    2612    1508    -3.064073 
-    2612    2562    -0.000010 
-    2612    2563    -1.705791 
-    2612    2564    -2.883468 
-    2612    2607    -0.000010 
-    2612    2608    -1.646536 
-    2612    2609    -2.783304 
-    2612    2610    0.000706 
-    2612    2611    8.482956 
-    2612    2612    14.339579 
-    2612    2613    -0.000010 
-    2612    2614    -1.716692 
-    2612    2615    -2.901894 
-    2612    2658    -0.000009 
-    2612    2659    -1.595336 
-    2612    2660    -2.696754 
-    2613    1509    -0.043192 
-    2613    2565    -0.106166 
-    2613    2566    20.401092 
-    2613    2567    34.486006 
-    2613    2610    -0.054089 
-    2613    2611    3.678386 
-    2613    2612    6.217939 
-    2613    2613    292.491220 
-    2613    2614    -194.875700 
-    2613    2615    -329.417880 
-    2613    2616    -0.000989 
-    2613    2661    -0.000951 
-    2614    2567    -5.586787 
-    2614    2612    -1.007299 
-    2614    2614    -55.647323 
-    2614    2615    51.004900 
-    2615    1509    -0.000010 
-    2615    1510    -1.736640 
-    2615    1511    -2.935616 
-    2615    2565    -0.000010 
-    2615    2566    -1.743573 
-    2615    2567    -2.947335 
-    2615    2610    -0.000010 
-    2615    2611    -1.716692 
-    2615    2612    -2.901894 
-    2615    2613    0.000734 
-    2615    2614    8.640671 
-    2615    2615    14.606187 
-    2615    2616    -0.000010 
-    2615    2617    -1.752502 
-    2615    2618    -2.962429 
-    2615    2661    -0.000010 
-    2615    2662    -1.685048 
-    2615    2663    -2.848406 
-    2616    1512    -0.039367 
-    2616    2568    -0.116990 
-    2616    2569    22.314308 
-    2616    2570    37.720082 
-    2616    2613    -0.049024 
-    2616    2614    3.878796 
-    2616    2615    6.556717 
-    2616    2616    292.540140 
-    2616    2617    -196.992950 
-    2616    2618    -332.996700 
-    2616    2619    -0.000998 
-    2616    2664    -0.000992 
-    2617    2570    -6.110688 
-    2617    2615    -1.062175 
-    2617    2617    -55.648296 
-    2617    2618    51.582022 
-    2618    1512    -0.000010 
-    2618    1513    -1.731904 
-    2618    1514    -2.927608 
-    2618    2568    -0.000010 
-    2618    2569    -1.745529 
-    2618    2570    -2.950641 
-    2618    2613    -0.000010 
-    2618    2614    -1.752502 
-    2618    2615    -2.962429 
-    2618    2616    0.000735 
-    2618    2617    8.729817 
-    2618    2618    14.756875 
-    2618    2619    -0.000010 
-    2618    2620    -1.752501 
-    2618    2621    -2.962426 
-    2618    2664    -0.000010 
-    2618    2665    -1.741164 
-    2618    2666    -2.943262 
-    2619    1515    -0.037136 
-    2619    2571    -0.127846 
-    2619    2572    23.380365 
-    2619    2573    39.522169 
-    2619    2616    -0.028113 
-    2619    2617    1.822445 
-    2619    2618    3.080660 
-    2619    2619    292.531730 
-    2619    2620    -197.216270 
-    2619    2621    -333.374380 
-    2619    2622    -0.022032 
-    2619    2623    1.224559 
-    2619    2624    2.069993 
-    2619    2667    -0.000996 
-    2620    2573    -6.402606 
-    2620    2618    -0.499058 
-    2620    2620    -55.648176 
-    2620    2621    51.643267 
-    2620    2624    -0.335333 
-    2621    1515    -0.000010 
-    2621    1516    -1.731899 
-    2621    1517    -2.927602 
-    2621    2571    -0.000010 
-    2621    2572    -1.745518 
-    2621    2573    -2.950624 
-    2621    2616    -0.000010 
-    2621    2617    -1.752501 
-    2621    2618    -2.962426 
-    2621    2619    0.000736 
-    2621    2620    8.731226 
-    2621    2621    14.759261 
-    2621    2622    -0.000010 
-    2621    2623    -1.752503 
-    2621    2624    -2.962429 
-    2621    2667    -0.000010 
-    2621    2668    -1.742588 
-    2621    2669    -2.945671 
-    2622    1518    -0.038450 
-    2622    2574    -0.125992 
-    2622    2575    23.202076 
-    2622    2576    39.220762 
-    2622    2619    -0.000999 
-    2622    2622    292.552610 
-    2622    2623    -197.520590 
-    2622    2624    -333.888620 
-    2622    2625    -0.045425 
-    2622    2626    3.524849 
-    2622    2627    5.958405 
-    2622    2670    -0.000995 
-    2623    2576    -6.353800 
-    2623    2623    -55.648621 
-    2623    2624    51.725673 
-    2623    2627    -0.965248 
-    2624    1518    -0.000010 
-    2624    1519    -1.730916 
-    2624    1520    -2.925939 
-    2624    2574    -0.000010 
-    2624    2575    -1.746031 
-    2624    2576    -2.951488 
-    2624    2619    -0.000010 
-    2624    2620    -1.752503 
-    2624    2621    -2.962429 
-    2624    2622    0.000735 
-    2624    2623    8.732630 
-    2624    2624    14.761630 
-    2624    2625    -0.000010 
-    2624    2626    -1.752406 
-    2624    2627    -2.962267 
-    2624    2670    -0.000010 
-    2624    2671    -1.744558 
-    2624    2672    -2.948999 
-    2625    1521    -0.041432 
-    2625    2577    -0.124322 
-    2625    2578    22.200415 
-    2625    2579    37.527582 
-    2625    2622    -0.000991 
-    2625    2625    292.548060 
-    2625    2626    -197.535140 
-    2625    2627    -333.913400 
-    2625    2628    -0.067965 
-    2625    2629    4.554214 
-    2625    2630    7.698438 
-    2625    2673    -0.000988 
-    2626    2579    -6.079542 
-    2626    2626    -55.647836 
-    2626    2627    51.731839 
-    2626    2630    -1.247138 
-    2627    1521    -0.000010 
-    2627    1522    -1.732089 
-    2627    1523    -2.927923 
-    2627    2577    -0.000010 
-    2627    2578    -1.746086 
-    2627    2579    -2.951584 
-    2627    2622    -0.000010 
-    2627    2623    -1.752406 
-    2627    2624    -2.962267 
-    2627    2625    0.000735 
-    2627    2626    8.717101 
-    2627    2627    14.735386 
-    2627    2628    -0.000010 
-    2627    2629    -1.734362 
-    2627    2630    -2.931764 
-    2627    2673    -0.000010 
-    2627    2674    -1.745942 
-    2627    2675    -2.951340 
-    2628    1524    -0.044120 
-    2628    2580    -0.122082 
-    2628    2581    20.074998 
-    2628    2582    33.934755 
-    2628    2625    -0.000971 
-    2628    2628    286.695420 
-    2628    2629    -192.563890 
-    2628    2630    -325.509750 
-    2628    2631    -0.087941 
-    2628    2632    5.113127 
-    2628    2633    8.643229 
-    2628    2676    -0.000967 
-    2629    2582    -5.497546 
-    2629    2629    -54.535101 
-    2629    2630    50.417700 
-    2629    2633    -1.400202 
-    2630    1524    -0.000010 
-    2630    1525    -1.768646 
-    2630    1526    -2.989716 
-    2630    2580    -0.000009 
-    2630    2581    -1.676061 
-    2630    2582    -2.833212 
-    2630    2625    -0.000010 
-    2630    2626    -1.734362 
-    2630    2627    -2.931764 
-    2630    2628    0.000720 
-    2630    2629    8.575091 
-    2630    2630    14.495325 
-    2630    2631    -0.000010 
-    2630    2632    -1.661949 
-    2630    2633    -2.809358 
-    2630    2676    -0.000010 
-    2630    2677    -1.727981 
-    2630    2678    -2.920977 
-    2631    1527    -0.046165 
-    2631    2583    -0.107003 
-    2631    2584    17.330914 
-    2631    2585    29.296178 
-    2631    2628    -0.000919 
-    2631    2631    269.126650 
-    2631    2632    -179.261130 
-    2631    2633    -303.023010 
-    2631    2634    -0.103151 
-    2631    2635    4.820267 
-    2631    2636    8.148174 
-    2631    2679    -0.000897 
-    2632    2585    -4.746101 
-    2632    2632    -51.197932 
-    2632    2633    46.912740 
-    2632    2636    -1.320014 
-    2633    1527    -0.000011 
-    2633    1528    -1.887902 
-    2633    1529    -3.191310 
-    2633    2583    -0.000009 
-    2633    2584    -1.570612 
-    2633    2585    -2.654962 
-    2633    2628    -0.000010 
-    2633    2629    -1.661949 
-    2633    2630    -2.809358 
-    2633    2631    0.000676 
-    2633    2632    8.267012 
-    2633    2633    13.974555 
-    2633    2634    -0.000009 
-    2633    2635    -1.517990 
-    2633    2636    -2.566009 
-    2633    2679    -0.000009 
-    2633    2680    -1.622840 
-    2633    2681    -2.743248 
-    2634    1530    -0.047266 
-    2634    2586    -0.052806 
-    2634    2587    13.660367 
-    2634    2588    23.091469 
-    2634    2631    -0.000828 
-    2634    2634    239.845290 
-    2634    2635    -153.663950 
-    2634    2636    -259.753370 
-    2634    2682    -0.000799 
-    2635    2588    -3.740930 
-    2635    2635    -45.637013 
-    2635    2636    40.130338 
-    2636    1530    -0.000012 
-    2636    1531    -2.114944 
-    2636    1532    -3.575099 
-    2636    2586    -0.000008 
-    2636    2587    -1.413859 
-    2636    2588    -2.389985 
-    2636    2631    -0.000009 
-    2636    2632    -1.517990 
-    2636    2633    -2.566009 
-    2636    2634    0.000598 
-    2636    2635    6.517954 
-    2636    2636    11.017941 
-    2636    2682    -0.000008 
-    2636    2683    -1.466061 
-    2636    2684    -2.478228 
-    2637    2637    1.000000 
-    2638    2638    1.000000 
-    2639    2639    1.000000 
-    2640    2640    1.000000 
-    2641    2641    1.000000 
-    2642    2642    1.000000 
-    2643    2643    1.000000 
-    2644    2644    1.000000 
-    2645    2645    1.000000 
-    2646    2646    1.000000 
-    2647    2647    1.000000 
-    2648    2648    1.000000 
-    2649    2649    1.000000 
-    2650    2650    1.000000 
-    2651    2651    1.000000 
-    2652    1548    -0.048489 
-    2652    2604    -0.000806 
-    2652    2605    7.373340 
-    2652    2606    12.463884 
-    2652    2652    216.441350 
-    2652    2653    -133.763990 
-    2652    2654    -226.114460 
-    2652    2655    -0.000778 
-    2652    2700    -0.017667 
-    2653    2606    -2.019122 
-    2653    2653    -41.208238 
-    2653    2654    34.812190 
-    2654    1548    -0.000014 
-    2654    1549    -2.351456 
-    2654    1550    -3.974898 
-    2654    2604    -0.000008 
-    2654    2605    -1.395527 
-    2654    2606    -2.358996 
-    2654    2652    0.000544 
-    2654    2653    6.274304 
-    2654    2654    10.606074 
-    2654    2655    -0.000008 
-    2654    2656    -1.347007 
-    2654    2657    -2.276979 
-    2654    2700    -0.000007 
-    2654    2701    -1.175701 
-    2654    2702    -1.987403 
-    2655    1551    -0.046791 
-    2655    2607    -0.000859 
-    2655    2608    13.568905 
-    2655    2609    22.936876 
-    2655    2652    -0.048658 
-    2655    2653    0.622266 
-    2655    2654    1.051877 
-    2655    2655    233.933840 
-    2655    2656    -150.862420 
-    2655    2657    -255.017830 
-    2655    2658    -0.000850 
-    2655    2703    -0.014380 
-    2656    2609    -3.715751 
-    2656    2654    -0.170400 
-    2656    2656    -44.544210 
-    2656    2657    39.359599 
-    2657    1551    -0.000013 
-    2657    1552    -2.181072 
-    2657    1553    -3.686883 
-    2657    2607    -0.000009 
-    2657    2608    -1.484417 
-    2657    2609    -2.509259 
-    2657    2652    -0.000008 
-    2657    2653    -1.347007 
-    2657    2654    -2.276979 
-    2657    2655    0.000594 
-    2657    2656    7.784931 
-    2657    2657    13.159646 
-    2657    2658    -0.000009 
-    2657    2659    -1.468698 
-    2657    2660    -2.482687 
-    2657    2703    -0.000008 
-    2657    2704    -1.298753 
-    2657    2705    -2.195412 
-    2658    1554    -0.042697 
-    2658    2610    -0.035101 
-    2658    2611    17.742896 
-    2658    2612    29.992569 
-    2658    2655    -0.067043 
-    2658    2656    3.866122 
-    2658    2657    6.535292 
-    2658    2658    257.374050 
-    2658    2659    -171.928550 
-    2658    2660    -290.627820 
-    2658    2661    -0.000931 
-    2658    2706    -0.000830 
-    2659    2612    -4.858763 
-    2659    2657    -1.058688 
-    2659    2659    -48.997177 
-    2659    2660    44.936312 
-    2660    1554    -0.000012 
-    2660    1555    -1.979740 
-    2660    1556    -3.346550 
-    2660    2610    -0.000009 
-    2660    2611    -1.595336 
-    2660    2612    -2.696754 
-    2660    2655    -0.000009 
-    2660    2656    -1.468698 
-    2660    2657    -2.482687 
-    2660    2658    0.000651 
-    2660    2659    8.060697 
-    2660    2660    13.625795 
-    2660    2661    -0.000010 
-    2660    2662    -1.592668 
-    2660    2663    -2.692244 
-    2660    2706    -0.000009 
-    2660    2707    -1.418773 
-    2660    2708    -2.398292 
-    2661    1557    -0.035557 
-    2661    2613    -0.089967 
-    2661    2614    21.966129 
-    2661    2615    37.131544 
-    2661    2658    -0.100182 
-    2661    2659    6.460499 
-    2661    2660    10.920820 
-    2661    2661    274.973760 
-    2661    2662    -189.016190 
-    2661    2663    -319.512960 
-    2661    2664    -0.001009 
-    2661    2709    -0.000929 
-    2662    2615    -6.015234 
-    2662    2660    -1.769114 
-    2662    2662    -52.337002 
-    2662    2663    49.470820 
-    2663    1557    -0.000012 
-    2663    1558    -1.854414 
-    2663    1559    -3.134701 
-    2663    2613    -0.000010 
-    2663    2614    -1.685048 
-    2663    2615    -2.848406 
-    2663    2658    -0.000010 
-    2663    2659    -1.592668 
-    2663    2660    -2.692244 
-    2663    2661    0.000694 
-    2663    2662    8.401055 
-    2663    2663    14.201141 
-    2663    2664    -0.000011 
-    2663    2665    -1.698177 
-    2663    2666    -2.870598 
-    2663    2709    -0.000010 
-    2663    2710    -1.564892 
-    2663    2711    -2.645294 
-    2664    1560    -0.026543 
-    2664    2616    -0.160986 
-    2664    2617    25.778745 
-    2664    2618    43.576367 
-    2664    2661    -0.113865 
-    2664    2662    6.762803 
-    2664    2663    11.431841 
-    2664    2664    292.499690 
-    2664    2665    -203.392450 
-    2664    2666    -343.814330 
-    2664    2667    -0.001057 
-    2664    2712    -0.001027 
-    2665    2618    -7.059249 
-    2665    2663    -1.851879 
-    2665    2665    -55.675534 
-    2665    2666    53.266037 
-    2666    1560    -0.000011 
-    2666    1561    -1.742717 
-    2666    1562    -2.945886 
-    2666    2616    -0.000010 
-    2666    2617    -1.741164 
-    2666    2618    -2.943262 
-    2666    2661    -0.000011 
-    2666    2662    -1.698177 
-    2666    2663    -2.870598 
-    2666    2664    0.000738 
-    2666    2665    8.644688 
-    2666    2666    14.612973 
-    2666    2667    -0.000011 
-    2666    2668    -1.752938 
-    2666    2669    -2.963164 
-    2666    2712    -0.000011 
-    2666    2713    -1.703465 
-    2666    2714    -2.879535 
-    2667    1563    -0.019503 
-    2667    2619    -0.179478 
-    2667    2620    27.604579 
-    2667    2621    46.662780 
-    2667    2664    -0.046635 
-    2667    2665    3.638075 
-    2667    2666    6.149797 
-    2667    2667    292.503160 
-    2667    2668    -204.147000 
-    2667    2669    -345.090080 
-    2667    2670    -0.021879 
-    2667    2671    2.046923 
-    2667    2672    3.460115 
-    2667    2715    -0.001059 
-    2668    2621    -7.559218 
-    2668    2666    -0.996216 
-    2668    2668    -55.676391 
-    2668    2669    53.470185 
-    2668    2672    -0.560508 
-    2669    1563    -0.000011 
-    2669    1564    -1.740045 
-    2669    1565    -2.941372 
-    2669    2619    -0.000010 
-    2669    2620    -1.742588 
-    2669    2621    -2.945671 
-    2669    2664    -0.000011 
-    2669    2665    -1.752938 
-    2669    2666    -2.963164 
-    2669    2667    0.000739 
-    2669    2668    8.737749 
-    2669    2669    14.770287 
-    2669    2670    -0.000011 
-    2669    2671    -1.752867 
-    2669    2672    -2.963044 
-    2669    2715    -0.000011 
-    2669    2716    -1.743083 
-    2669    2717    -2.946507 
-    2670    1566    -0.024154 
-    2670    2622    -0.179890 
-    2670    2623    26.817401 
-    2670    2624    45.332109 
-    2670    2667    -0.001061 
-    2670    2670    292.516610 
-    2670    2671    -203.209120 
-    2670    2672    -343.504450 
-    2670    2673    -0.074649 
-    2670    2674    5.550434 
-    2670    2675    9.382454 
-    2670    2718    -0.001054 
-    2671    2624    -7.343669 
-    2671    2671    -55.675291 
-    2671    2672    53.216309 
-    2671    2675    -1.519886 
-    2672    1566    -0.000011 
-    2672    1567    -1.737268 
-    2672    1568    -2.936676 
-    2672    2622    -0.000010 
-    2672    2623    -1.744558 
-    2672    2624    -2.948999 
-    2672    2667    -0.000011 
-    2672    2668    -1.752867 
-    2672    2669    -2.963044 
-    2672    2670    0.000738 
-    2672    2671    8.735672 
-    2672    2672    14.766772 
-    2672    2673    -0.000011 
-    2672    2674    -1.752665 
-    2672    2675    -2.962706 
-    2672    2718    -0.000011 
-    2672    2719    -1.742086 
-    2672    2720    -2.944819 
-    2673    1569    -0.032290 
-    2673    2625    -0.150961 
-    2673    2626    24.820915 
-    2673    2627    41.957275 
-    2673    2670    -0.001048 
-    2673    2673    292.560490 
-    2673    2674    -202.417260 
-    2673    2675    -342.166130 
-    2673    2676    -0.095453 
-    2673    2677    6.755399 
-    2673    2678    11.419317 
-    2673    2721    -0.001042 
-    2674    2627    -6.796984 
-    2674    2674    -55.674523 
-    2674    2675    53.001769 
-    2674    2678    -1.849860 
-    2675    1569    -0.000011 
-    2675    1570    -1.733724 
-    2675    1571    -2.930687 
-    2675    2625    -0.000010 
-    2675    2626    -1.745942 
-    2675    2627    -2.951340 
-    2675    2670    -0.000011 
-    2675    2671    -1.752665 
-    2675    2672    -2.962706 
-    2675    2673    0.000738 
-    2675    2674    8.732950 
-    2675    2675    14.762177 
-    2675    2676    -0.000011 
-    2675    2677    -1.751940 
-    2675    2678    -2.961477 
-    2675    2721    -0.000011 
-    2675    2722    -1.742451 
-    2675    2723    -2.945440 
-    2676    1572    -0.038943 
-    2676    2628    -0.122994 
-    2676    2629    22.439305 
-    2676    2630    37.931372 
-    2676    2673    -0.001032 
-    2676    2676    292.559700 
-    2676    2677    -200.816080 
-    2676    2678    -339.459220 
-    2676    2679    -0.130196 
-    2676    2680    7.555952 
-    2676    2681    12.772581 
-    2676    2724    -0.001027 
-    2677    2630    -6.144839 
-    2677    2677    -55.674209 
-    2677    2678    52.564782 
-    2677    2681    -2.069101 
-    2678    1572    -0.000011 
-    2678    1573    -1.734867 
-    2678    1574    -2.932617 
-    2678    2628    -0.000010 
-    2678    2629    -1.727981 
-    2678    2630    -2.920977 
-    2678    2673    -0.000011 
-    2678    2674    -1.751940 
-    2678    2675    -2.961477 
-    2678    2676    0.000737 
-    2678    2677    8.661032 
-    2678    2678    14.640600 
-    2678    2679    -0.000010 
-    2678    2680    -1.697568 
-    2678    2681    -2.869568 
-    2678    2724    -0.000011 
-    2678    2725    -1.742449 
-    2678    2726    -2.945433 
-    2679    1575    -0.042704 
-    2679    2631    -0.076916 
-    2679    2632    18.842384 
-    2679    2633    31.851165 
-    2679    2676    -0.000983 
-    2679    2679    275.072580 
-    2679    2680    -191.454180 
-    2679    2681    -323.634150 
-    2679    2682    -0.160014 
-    2679    2683    12.057719 
-    2679    2684    20.382357 
-    2679    2727    -0.000959 
-    2680    2633    -5.159886 
-    2680    2680    -52.336375 
-    2680    2681    50.140954 
-    2680    2684    -3.301911 
-    2681    1575    -0.000011 
-    2681    1576    -1.843384 
-    2681    1577    -3.116056 
-    2681    2631    -0.000009 
-    2681    2632    -1.622840 
-    2681    2633    -2.743248 
-    2681    2676    -0.000010 
-    2681    2677    -1.697568 
-    2681    2678    -2.869568 
-    2681    2679    0.000693 
-    2681    2680    8.399661 
-    2681    2681    14.198786 
-    2681    2682    -0.000009 
-    2681    2683    -1.573816 
-    2681    2684    -2.660376 
-    2681    2727    -0.000010 
-    2681    2728    -1.656200 
-    2681    2729    -2.799640 
-    2682    1578    -0.045977 
-    2682    2634    -0.020031 
-    2682    2635    10.444244 
-    2682    2636    17.654939 
-    2682    2679    -0.000884 
-    2682    2682    251.557290 
-    2682    2683    -157.273780 
-    2682    2684    -265.855450 
-    2683    2636    -2.860122 
-    2683    2683    -47.880521 
-    2683    2684    40.980820 
-    2684    1578    -0.000012 
-    2684    1579    -2.015677 
-    2684    1580    -3.407298 
-    2684    2634    -0.000008 
-    2684    2635    -1.466061 
-    2684    2636    -2.478228 
-    2684    2679    -0.000009 
-    2684    2680    -1.573816 
-    2684    2681    -2.660376 
-    2684    2682    0.000618 
-    2684    2683    5.060910 
-    2684    2684    8.554956 
-    2685    2685    1.000000 
-    2686    2686    1.000000 
-    2687    2687    1.000000 
-    2688    2688    1.000000 
-    2689    2689    1.000000 
-    2690    2690    1.000000 
-    2691    2691    1.000000 
-    2692    2692    1.000000 
-    2693    2693    1.000000 
-    2694    2694    1.000000 
-    2695    2695    1.000000 
-    2696    2696    1.000000 
-    2697    2697    1.000000 
-    2698    2698    1.000000 
-    2699    2699    1.000000 
-    2700    1596    -0.048244 
-    2700    2652    -0.000698 
-    2700    2653    8.293174 
-    2700    2654    14.018770 
-    2700    2700    181.279450 
-    2700    2701    -114.218350 
-    2700    2702    -193.074610 
-    2700    2703    -0.000684 
-    2700    2748    -0.006890 
-    2701    2654    -2.270983 
-    2701    2701    -34.541974 
-    2701    2702    29.714594 
-    2702    1596    -0.000017 
-    2702    1597    -2.799416 
-    2702    1598    -4.732131 
-    2702    2652    -0.000007 
-    2702    2653    -1.175701 
-    2702    2654    -1.987403 
-    2702    2700    0.000462 
-    2702    2701    6.140865 
-    2702    2702    10.380512 
-    2702    2703    -0.000007 
-    2702    2704    -1.152668 
-    2702    2705    -1.948468 
-    2702    2748    -0.000006 
-    2702    2749    -1.009209 
-    2702    2750    -1.705965 
-    2703    1599    -0.044945 
-    2703    2655    -0.000779 
-    2703    2656    11.894484 
-    2703    2657    20.106436 
-    2703    2700    -0.046208 
-    2703    2701    2.957952 
-    2703    2702    5.000119 
-    2703    2703    204.725750 
-    2703    2704    -134.431330 
-    2703    2705    -227.242720 
-    2703    2706    -0.000766 
-    2703    2751    -0.000677 
-    2704    2657    -3.257153 
-    2704    2702    -0.809985 
-    2704    2704    -38.998572 
-    2704    2705    35.048730 
-    2705    1599    -0.000016 
-    2705    1600    -2.481216 
-    2705    1601    -4.194248 
-    2705    2655    -0.000008 
-    2705    2656    -1.298753 
-    2705    2657    -2.195412 
-    2705    2700    -0.000007 
-    2705    2701    -1.152668 
-    2705    2702    -1.948468 
-    2705    2703    0.000525 
-    2705    2704    7.343362 
-    2705    2705    12.413219 
-    2705    2706    -0.000008 
-    2705    2707    -1.277278 
-    2705    2708    -2.159111 
-    2705    2751    -0.000007 
-    2705    2752    -1.129076 
-    2705    2753    -1.908590 
-    2706    1602    -0.036136 
-    2706    2658    -0.032965 
-    2706    2659    16.546834 
-    2706    2660    27.970749 
-    2706    2703    -0.100611 
-    2706    2704    6.560144 
-    2706    2705    11.089268 
-    2706    2706    222.303950 
-    2706    2707    -152.958530 
-    2706    2708    -258.560970 
-    2706    2709    -0.000864 
-    2706    2754    -0.000765 
-    2707    2660    -4.531112 
-    2707    2705    -1.796374 
-    2707    2707    -42.340527 
-    2707    2708    39.972265 
-    2708    1602    -0.000015 
-    2708    1603    -2.287583 
-    2708    1604    -3.866929 
-    2708    2658    -0.000009 
-    2708    2659    -1.418773 
-    2708    2660    -2.398292 
-    2708    2703    -0.000008 
-    2708    2704    -1.277278 
-    2708    2705    -2.159111 
-    2708    2706    0.000568 
-    2708    2707    7.655307 
-    2708    2708    12.940525 
-    2708    2709    -0.000009 
-    2708    2710    -1.414297 
-    2708    2711    -2.390727 
-    2708    2754    -0.000008 
-    2708    2755    -1.252630 
-    2708    2756    -2.117444 
-    2709    1605    -0.019913 
-    2709    2661    -0.079157 
-    2709    2662    22.556493 
-    2709    2663    38.129496 
-    2709    2706    -0.127625 
-    2709    2707    9.626845 
-    2709    2708    16.273212 
-    2709    2709    251.639730 
-    2709    2710    -179.098860 
-    2709    2711    -302.748710 
-    2709    2712    -0.000996 
-    2709    2757    -0.000882 
-    2710    2663    -6.176712 
-    2710    2708    -2.636101 
-    2710    2710    -47.913181 
-    2710    2711    46.873893 
-    2711    1605    -0.000013 
-    2711    1606    -2.015473 
-    2711    1607    -3.406955 
-    2711    2661    -0.000010 
-    2711    2662    -1.564892 
-    2711    2663    -2.645294 
-    2711    2706    -0.000009 
-    2711    2707    -1.414297 
-    2711    2708    -2.390727 
-    2711    2709    0.000640 
-    2711    2710    7.998507 
-    2711    2711    13.520675 
-    2711    2712    -0.000010 
-    2711    2713    -1.590278 
-    2711    2714    -2.688206 
-    2711    2757    -0.000009 
-    2711    2758    -1.408195 
-    2711    2759    -2.380413 
-    2712    1608    -0.001162 
-    2712    2664    -0.131318 
-    2712    2665    29.099360 
-    2712    2666    49.189521 
-    2712    2709    -0.148770 
-    2712    2710    10.574914 
-    2712    2711    17.875834 
-    2712    2712    280.864350 
-    2712    2713    -203.707380 
-    2712    2714    -344.346720 
-    2712    2715    -0.001102 
-    2712    2760    -0.001028 
-    2713    2666    -7.968291 
-    2713    2711    -2.895663 
-    2713    2713    -53.485001 
-    2713    2714    53.357989 
-    2714    1608    -0.000012 
-    2714    1609    -1.810762 
-    2714    1610    -3.060910 
-    2714    2664    -0.000011 
-    2714    2665    -1.703465 
-    2714    2666    -2.879535 
-    2714    2709    -0.000010 
-    2714    2710    -1.590278 
-    2714    2711    -2.688206 
-    2714    2712    0.000712 
-    2714    2713    8.429687 
-    2714    2714    14.249535 
-    2714    2715    -0.000012 
-    2714    2716    -1.717499 
-    2714    2717    -2.903258 
-    2714    2760    -0.000011 
-    2714    2761    -1.601688 
-    2714    2762    -2.707491 
-    2715    1611    -0.001127 
-    2715    2667    -0.181157 
-    2715    2668    32.808237 
-    2715    2669    55.459044 
-    2715    2712    -0.091822 
-    2715    2713    6.551315 
-    2715    2714    11.074335 
-    2715    2715    292.604130 
-    2715    2716    -214.774880 
-    2715    2717    -363.055460 
-    2715    2718    -0.030381 
-    2715    2719    4.564827 
-    2715    2720    7.716380 
-    2715    2763    -0.001135 
-    2716    2669    -8.983851 
-    2716    2714    -1.793878 
-    2716    2716    -55.713949 
-    2716    2717    56.285871 
-    2716    2720    -1.249935 
-    2717    1611    -0.000012 
-    2717    1612    -1.733026 
-    2717    1613    -2.929508 
-    2717    2667    -0.000011 
-    2717    2668    -1.743083 
-    2717    2669    -2.946507 
-    2717    2712    -0.000012 
-    2717    2713    -1.717499 
-    2717    2714    -2.903258 
-    2717    2715    0.000742 
-    2717    2716    8.698509 
-    2717    2717    14.703956 
-    2717    2718    -0.000012 
-    2717    2719    -1.753384 
-    2717    2720    -2.963920 
-    2717    2763    -0.000012 
-    2717    2764    -1.745271 
-    2717    2765    -2.950206 
-    2718    1614    -0.001120 
-    2718    2670    -0.172672 
-    2718    2671    30.288338 
-    2718    2672    51.199370 
-    2718    2715    -0.001130 
-    2718    2718    292.511430 
-    2718    2719    -210.232150 
-    2718    2720    -355.376290 
-    2718    2721    -0.084683 
-    2718    2722    9.063667 
-    2718    2723    15.321223 
-    2718    2766    -0.001124 
-    2719    2672    -8.293851 
-    2719    2719    -55.709291 
-    2719    2720    55.053787 
-    2719    2723    -2.481832 
-    2720    1614    -0.000012 
-    2720    1615    -1.737656 
-    2720    1616    -2.937332 
-    2720    2670    -0.000011 
-    2720    2671    -1.742086 
-    2720    2672    -2.944819 
-    2720    2715    -0.000012 
-    2720    2716    -1.753384 
-    2720    2717    -2.963920 
-    2720    2718    0.000742 
-    2720    2719    8.737056 
-    2720    2720    14.769114 
-    2720    2721    -0.000012 
-    2720    2722    -1.753205 
-    2720    2723    -2.963617 
-    2720    2766    -0.000012 
-    2720    2767    -1.744482 
-    2720    2768    -2.948872 
-    2721    1617    -0.016261 
-    2721    2673    -0.162787 
-    2721    2674    26.804110 
-    2721    2675    45.309667 
-    2721    2718    -0.001110 
-    2721    2721    292.487780 
-    2721    2722    -206.609670 
-    2721    2723    -349.252980 
-    2721    2724    -0.117554 
-    2721    2725    8.924396 
-    2721    2726    15.085791 
-    2721    2769    -0.001103 
-    2722    2675    -7.339821 
-    2722    2722    -55.703345 
-    2722    2723    54.077195 
-    2722    2726    -2.443725 
-    2723    1617    -0.000012 
-    2723    1618    -1.740848 
-    2723    1619    -2.942729 
-    2723    2673    -0.000011 
-    2723    2674    -1.742451 
-    2723    2675    -2.945440 
-    2723    2718    -0.000012 
-    2723    2719    -1.753205 
-    2723    2720    -2.963617 
-    2723    2721    0.000741 
-    2723    2722    8.738894 
-    2723    2723    14.772224 
-    2723    2724    -0.000011 
-    2723    2725    -1.752690 
-    2723    2726    -2.962745 
-    2723    2769    -0.000012 
-    2723    2770    -1.743460 
-    2723    2771    -2.947144 
-    2724    1620    -0.030551 
-    2724    2676    -0.140867 
-    2724    2677    24.649625 
-    2724    2678    41.667691 
-    2724    2721    -0.001089 
-    2724    2724    292.487150 
-    2724    2725    -201.610140 
-    2724    2726    -340.801610 
-    2724    2727    -0.103736 
-    2724    2728    6.076339 
-    2724    2729    10.271443 
-    2724    2772    -0.001083 
-    2725    2678    -6.749914 
-    2725    2725    -55.701882 
-    2725    2726    52.712667 
-    2725    2729    -1.663869 
-    2726    1620    -0.000011 
-    2726    1621    -1.741374 
-    2726    1622    -2.943616 
-    2726    2676    -0.000011 
-    2726    2677    -1.742449 
-    2726    2678    -2.945433 
-    2726    2721    -0.000011 
-    2726    2722    -1.752690 
-    2726    2723    -2.962745 
-    2726    2724    0.000740 
-    2726    2725    8.703334 
-    2726    2726    14.712108 
-    2726    2727    -0.000011 
-    2726    2728    -1.716647 
-    2726    2729    -2.901821 
-    2726    2772    -0.000011 
-    2726    2773    -1.743935 
-    2726    2774    -2.947945 
-    2727    1623    -0.036772 
-    2727    2679    -0.160837 
-    2727    2680    24.937640 
-    2727    2681    42.154587 
-    2727    2724    -0.001053 
-    2727    2727    280.761620 
-    2727    2728    -188.954090 
-    2727    2729    -319.408000 
-    2727    2775    -0.001037 
-    2728    2681    -6.828855 
-    2728    2728    -53.475766 
-    2728    2729    49.342559 
-    2729    1623    -0.000012 
-    2729    1624    -1.813471 
-    2729    1625    -3.065492 
-    2729    2679    -0.000010 
-    2729    2680    -1.656200 
-    2729    2681    -2.799640 
-    2729    2724    -0.000011 
-    2729    2725    -1.716647 
-    2729    2726    -2.901821 
-    2729    2727    0.000700 
-    2729    2728    6.884603 
-    2729    2729    11.637733 
-    2729    2775    -0.000011 
-    2729    2776    -1.692294 
-    2729    2777    -2.860654 
-    2730    2730    1.000000 
-    2731    2731    1.000000 
-    2732    2732    1.000000 
-    2733    2733    1.000000 
-    2734    2734    1.000000 
-    2735    2735    1.000000 
-    2736    2736    1.000000 
-    2737    2737    1.000000 
-    2738    2738    1.000000 
-    2739    2739    1.000000 
-    2740    2740    1.000000 
-    2741    2741    1.000000 
-    2742    2742    1.000000 
-    2743    2743    1.000000 
-    2744    2744    1.000000 
-    2745    2745    1.000000 
-    2746    2746    1.000000 
-    2747    2747    1.000000 
-    2748    1644    -0.048403 
-    2748    2700    -0.000614 
-    2748    2701    6.542096 
-    2748    2702    11.058753 
-    2748    2748    157.884050 
-    2748    2749    -98.805163 
-    2748    2750    -167.020130 
-    2748    2751    -0.000606 
-    2748    2796    -0.000541 
-    2749    2702    -1.791442 
-    2749    2749    -30.096993 
-    2749    2750    25.665630 
-    2750    1644    -0.000020 
-    2750    1645    -3.202279 
-    2750    1646    -5.413128 
-    2750    2700    -0.000006 
-    2750    2701    -1.009209 
-    2750    2702    -1.705965 
-    2750    2748    0.000408 
-    2750    2749    6.101921 
-    2750    2750    10.314680 
-    2750    2751    -0.000006 
-    2750    2752    -0.996783 
-    2750    2753    -1.684961 
-    2750    2796    -0.000006 
-    2750    2797    -0.890273 
-    2750    2798    -1.504917 
-    2751    1647    -0.042824 
-    2751    2703    -0.012524 
-    2751    2704    9.411765 
-    2751    2705    15.909648 
-    2751    2748    -0.056619 
-    2751    2749    4.404968 
-    2751    2750    7.446152 
-    2751    2751    175.478800 
-    2751    2752    -116.341660 
-    2751    2753    -196.663940 
-    2751    2754    -0.000691 
-    2751    2799    -0.000615 
-    2752    2705    -2.577237 
-    2752    2750    -1.206208 
-    2752    2752    -33.442061 
-    2752    2753    30.310371 
-    2753    1647    -0.000019 
-    2753    1648    -2.884855 
-    2753    1649    -4.876560 
-    2753    2703    -0.000007 
-    2753    2704    -1.129076 
-    2753    2705    -1.908590 
-    2753    2748    -0.000006 
-    2753    2749    -0.996783 
-    2753    2750    -1.684961 
-    2753    2751    0.000456 
-    2753    2752    7.126502 
-    2753    2753    12.046637 
-    2753    2754    -0.000007 
-    2753    2755    -1.117042 
-    2753    2756    -1.888247 
-    2753    2799    -0.000006 
-    2753    2800    -0.994993 
-    2753    2801    -1.681936 
-    2754    1650    -0.027384 
-    2754    2706    -0.039837 
-    2754    2707    13.936147 
-    2754    2708    23.557652 
-    2754    2751    -0.111104 
-    2754    2752    8.852419 
-    2754    2753    14.964129 
-    2754    2754    198.949310 
-    2754    2755    -138.969300 
-    2754    2756    -234.913530 
-    2754    2757    -0.000800 
-    2754    2802    -0.000710 
-    2755    2708    -3.816109 
-    2755    2753    -2.424024 
-    2755    2755    -37.903255 
-    2755    2756    36.293837 
-    2756    1650    -0.000017 
-    2756    1651    -2.552144 
-    2756    1652    -4.314142 
-    2756    2706    -0.000008 
-    2756    2707    -1.252630 
-    2756    2708    -2.117444 
-    2756    2751    -0.000007 
-    2756    2752    -1.117042 
-    2756    2753    -1.888247 
-    2756    2754    0.000513 
-    2756    2755    7.299508 
-    2756    2756    12.339081 
-    2756    2757    -0.000008 
-    2756    2758    -1.257777 
-    2756    2759    -2.126144 
-    2756    2802    -0.000007 
-    2756    2803    -1.115661 
-    2756    2804    -1.885912 
-    2757    1653    -0.001509 
-    2757    2709    -0.128191 
-    2757    2710    20.776367 
-    2757    2711    35.120371 
-    2757    2754    -0.187967 
-    2757    2755    13.123630 
-    2757    2756    22.184168 
-    2757    2757    222.333580 
-    2757    2758    -163.800150 
-    2757    2759    -276.887780 
-    2757    2760    -0.000944 
-    2757    2805    -0.000853 
-    2758    2711    -5.689064 
-    2758    2756    -3.593527 
-    2758    2758    -42.362572 
-    2758    2759    42.884400 
-    2759    1653    -0.000016 
-    2759    1654    -2.286282 
-    2759    1655    -3.864731 
-    2759    2709    -0.000009 
-    2759    2710    -1.408195 
-    2759    2711    -2.380413 
-    2759    2754    -0.000008 
-    2759    2755    -1.257777 
-    2759    2756    -2.126144 
-    2759    2757    0.000572 
-    2759    2758    7.678512 
-    2759    2759    12.979755 
-    2759    2760    -0.000010 
-    2759    2761    -1.429739 
-    2759    2762    -2.416830 
-    2759    2805    -0.000009 
-    2759    2806    -1.291764 
-    2759    2807    -2.183598 
-    2760    1656    -0.001351 
-    2760    2712    -0.178737 
-    2760    2713    30.389582 
-    2760    2714    51.370514 
-    2760    2757    -0.163133 
-    2760    2758    15.538893 
-    2760    2759    26.266945 
-    2760    2760    257.580600 
-    2760    2761    -196.284140 
-    2760    2762    -331.798480 
-    2760    2763    -0.001123 
-    2760    2808    -0.001016 
-    2761    2714    -8.321260 
-    2761    2759    -4.254772 
-    2761    2761    -49.059757 
-    2761    2762    51.446462 
-    2762    1656    -0.000014 
-    2762    1657    -1.973253 
-    2762    1658    -3.335585 
-    2762    2712    -0.000011 
-    2762    2713    -1.601688 
-    2762    2714    -2.707491 
-    2762    2757    -0.000010 
-    2762    2758    -1.429739 
-    2762    2759    -2.416830 
-    2762    2760    0.000659 
-    2762    2761    8.135586 
-    2762    2762    13.752387 
-    2762    2763    -0.000012 
-    2762    2764    -1.640883 
-    2762    2765    -2.773746 
-    2762    2808    -0.000011 
-    2762    2809    -1.484513 
-    2762    2810    -2.509420 
-    2763    1659    -0.001220 
-    2763    2715    -0.299170 
-    2763    2716    39.402394 
-    2763    2717    66.605807 
-    2763    2760    -0.185897 
-    2763    2761    12.169841 
-    2763    2762    20.571884 
-    2763    2763    292.737760 
-    2763    2764    -234.562610 
-    2763    2765    -396.504630 
-    2763    2766    -0.140935 
-    2763    2767    12.060554 
-    2763    2768    20.387148 
-    2763    2811    -0.001201 
-    2764    2717    -10.789049 
-    2764    2762    -3.332192 
-    2764    2764    -55.748297 
-    2764    2765    61.616126 
-    2764    2768    -3.302265 
-    2765    1659    -0.000013 
-    2765    1660    -1.737883 
-    2765    1661    -2.937718 
-    2765    2715    -0.000012 
-    2765    2716    -1.745271 
-    2765    2717    -2.950206 
-    2765    2760    -0.000012 
-    2765    2761    -1.640883 
-    2765    2762    -2.773746 
-    2765    2763    0.000745 
-    2765    2764    8.595787 
-    2765    2765    14.530315 
-    2765    2766    -0.000013 
-    2765    2767    -1.753899 
-    2765    2768    -2.964790 
-    2765    2811    -0.000013 
-    2765    2812    -1.711591 
-    2765    2813    -2.893273 
-    2766    1662    -0.001190 
-    2766    2718    -0.189128 
-    2766    2719    31.930030 
-    2766    2720    53.974502 
-    2766    2763    -0.001203 
-    2766    2766    292.612180 
-    2766    2767    -217.908060 
-    2766    2768    -368.351550 
-    2766    2769    -0.163158 
-    2766    2770    15.094148 
-    2766    2771    25.515148 
-    2766    2814    -0.001199 
-    2767    2720    -8.743041 
-    2767    2767    -55.744062 
-    2767    2768    57.067662 
-    2767    2771    -4.132967 
-    2768    1662    -0.000012 
-    2768    1663    -1.734435 
-    2768    1664    -2.931888 
-    2768    2718    -0.000012 
-    2768    2719    -1.744482 
-    2768    2720    -2.948872 
-    2768    2763    -0.000013 
-    2768    2764    -1.753899 
-    2768    2765    -2.964790 
-    2768    2766    0.000745 
-    2768    2767    8.741552 
-    2768    2768    14.776712 
-    2768    2769    -0.000012 
-    2768    2770    -1.753726 
-    2768    2771    -2.964499 
-    2768    2814    -0.000013 
-    2768    2815    -1.748750 
-    2768    2816    -2.956085 
-    2769    1665    -0.001155 
-    2769    2721    -0.111032 
-    2769    2722    25.917748 
-    2769    2723    43.811362 
-    2769    2766    -0.001169 
-    2769    2769    292.531630 
-    2769    2770    -209.224400 
-    2769    2771    -353.672930 
-    2769    2772    -0.152986 
-    2769    2773    12.407653 
-    2769    2774    20.973881 
-    2769    2817    -0.001165 
-    2770    2723    -7.096851 
-    2770    2770    -55.737111 
-    2770    2771    54.708381 
-    2770    2774    -3.397428 
-    2771    1665    -0.000012 
-    2771    1666    -1.733594 
-    2771    1667    -2.930466 
-    2771    2721    -0.000012 
-    2771    2722    -1.743460 
-    2771    2723    -2.947144 
-    2771    2766    -0.000012 
-    2771    2767    -1.753726 
-    2771    2768    -2.964499 
-    2771    2769    0.000744 
-    2771    2770    8.739058 
-    2771    2771    14.772502 
-    2771    2772    -0.000012 
-    2771    2773    -1.753268 
-    2771    2774    -2.963722 
-    2771    2817    -0.000012 
-    2771    2818    -1.748755 
-    2771    2819    -2.956095 
-    2772    1668    -0.019894 
-    2772    2724    -0.075843 
-    2772    2725    22.461520 
-    2772    2726    37.968935 
-    2772    2769    -0.001140 
-    2772    2772    292.499520 
-    2772    2773    -201.339030 
-    2772    2774    -340.343250 
-    2772    2775    -0.120098 
-    2772    2776    8.001904 
-    2772    2777    13.526419 
-    2772    2820    -0.001138 
-    2773    2726    -6.150532 
-    2773    2773    -55.733785 
-    2773    2774    52.558623 
-    2773    2777    -2.191082 
-    2774    1668    -0.000012 
-    2774    1669    -1.732973 
-    2774    1670    -2.929415 
-    2774    2724    -0.000011 
-    2774    2725    -1.743935 
-    2774    2726    -2.947945 
-    2774    2769    -0.000012 
-    2774    2770    -1.753268 
-    2774    2771    -2.963722 
-    2774    2772    0.000742 
-    2774    2773    8.721750 
-    2774    2774    14.743237 
-    2774    2775    -0.000012 
-    2774    2776    -1.735331 
-    2774    2777    -2.933403 
-    2774    2820    -0.000012 
-    2774    2821    -1.749989 
-    2774    2822    -2.958180 
-    2775    1671    -0.030771 
-    2775    2727    -0.058737 
-    2775    2728    19.981820 
-    2775    2729    33.777269 
-    2775    2772    -0.001110 
-    2775    2775    286.581580 
-    2775    2776    -187.427920 
-    2775    2777    -316.828150 
-    2775    2823    -0.001108 
-    2776    2729    -5.471574 
-    2776    2776    -54.619660 
-    2776    2777    48.800221 
-    2777    1671    -0.000012 
-    2777    1672    -1.767162 
-    2777    1673    -2.987210 
-    2777    2727    -0.000011 
-    2777    2728    -1.692294 
-    2777    2729    -2.860654 
-    2777    2772    -0.000012 
-    2777    2773    -1.735331 
-    2777    2774    -2.933403 
-    2777    2775    0.000716 
-    2777    2776    6.933208 
-    2777    2777    11.719894 
-    2777    2823    -0.000012 
-    2777    2824    -1.732292 
-    2777    2825    -2.928266 
-    2778    2778    1.000000 
-    2779    2779    1.000000 
-    2780    2780    1.000000 
-    2781    2781    1.000000 
-    2782    2782    1.000000 
-    2783    2783    1.000000 
-    2784    2784    1.000000 
-    2785    2785    1.000000 
-    2786    2786    1.000000 
-    2787    2787    1.000000 
-    2788    2788    1.000000 
-    2789    2789    1.000000 
-    2790    2790    1.000000 
-    2791    2791    1.000000 
-    2792    2792    1.000000 
-    2793    1689    -0.052333 
-    2793    2793    116.917980 
-    2793    2794    -69.421330 
-    2793    2795    -117.349820 
-    2793    2796    -0.000467 
-    2793    2841    -0.024738 
-    2793    2842    1.041592 
-    2793    2843    1.760707 
-    2794    2794    -22.297074 
-    2794    2795    17.972447 
-    2794    2843    -0.285218 
-    2795    1689    -0.000028 
-    2795    1690    -4.319810 
-    2795    1691    -7.302207 
-    2795    2793    0.000310 
-    2795    2794    5.789129 
-    2795    2795    9.785944 
-    2795    2796    -0.000005 
-    2795    2797    -0.765398 
-    2795    2798    -1.293829 
-    2795    2841    -0.000004 
-    2795    2842    -0.701417 
-    2795    2843    -1.185676 
-    2796    1692    -0.049676 
-    2796    2748    -0.000585 
-    2796    2749    3.134930 
-    2796    2750    5.299283 
-    2796    2793    -0.015879 
-    2796    2794    1.980721 
-    2796    2795    3.348210 
-    2796    2796    140.341690 
-    2796    2797    -87.160026 
-    2796    2798    -147.335220 
-    2796    2799    -0.000549 
-    2796    2844    -0.027019 
-    2797    2750    -0.858435 
-    2797    2795    -0.542377 
-    2797    2797    -26.758321 
-    2797    2798    22.617766 
-    2798    1692    -0.000023 
-    2798    1693    -3.602981 
-    2798    1694    -6.090476 
-    2798    2748    -0.000006 
-    2798    2749    -0.890273 
-    2798    2750    -1.504917 
-    2798    2793    -0.000005 
-    2798    2794    -0.765398 
-    2798    2795    -1.293829 
-    2798    2796    0.000373 
-    2798    2797    6.917890 
-    2798    2798    11.693996 
-    2798    2799    -0.000006 
-    2798    2800    -0.891516 
-    2798    2801    -1.507018 
-    2798    2844    -0.000005 
-    2798    2845    -0.764717 
-    2798    2846    -1.292677 
-    2799    1695    -0.042453 
-    2799    2751    -0.012406 
-    2799    2752    5.617180 
-    2799    2753    9.495282 
-    2799    2796    -0.061160 
-    2799    2797    5.833197 
-    2799    2798    9.860430 
-    2799    2799    157.923820 
-    2799    2800    -103.738760 
-    2799    2801    -175.360000 
-    2799    2802    -0.000629 
-    2799    2847    -0.025382 
-    2800    2753    -1.538131 
-    2800    2798    -1.597285 
-    2800    2800    -30.106230 
-    2800    2801    26.993128 
-    2801    1695    -0.000021 
-    2801    1696    -3.205047 
-    2801    1697    -5.417811 
-    2801    2751    -0.000006 
-    2801    2752    -0.994993 
-    2801    2753    -1.681936 
-    2801    2796    -0.000006 
-    2801    2797    -0.891516 
-    2801    2798    -1.507018 
-    2801    2799    0.000415 
-    2801    2800    6.982097 
-    2801    2801    11.802536 
-    2801    2802    -0.000007 
-    2801    2803    -0.996933 
-    2801    2804    -1.685215 
-    2801    2847    -0.000006 
-    2801    2848    -0.890227 
-    2801    2849    -1.504840 
-    2802    1698    -0.019960 
-    2802    2754    -0.028418 
-    2802    2755    9.032298 
-    2802    2756    15.268185 
-    2802    2799    -0.112097 
-    2802    2800    10.342836 
-    2802    2801    17.483529 
-    2802    2802    175.525420 
-    2802    2803    -121.917900 
-    2802    2804    -206.089890 
-    2802    2805    -0.000751 
-    2802    2850    -0.017076 
-    2803    2756    -2.473234 
-    2803    2801    -2.832101 
-    2803    2803    -33.456331 
-    2803    2804    31.800895 
-    2804    1698    -0.000020 
-    2804    1699    -2.884187 
-    2804    1700    -4.875426 
-    2804    2754    -0.000007 
-    2804    2755    -1.115661 
-    2804    2756    -1.885912 
-    2804    2799    -0.000007 
-    2804    2800    -0.996933 
-    2804    2801    -1.685215 
-    2804    2802    0.000459 
-    2804    2803    7.163197 
-    2804    2804    12.108662 
-    2804    2805    -0.000008 
-    2804    2806    -1.147923 
-    2804    2807    -1.940448 
-    2804    2850    -0.000007 
-    2804    2851    -1.014734 
-    2804    2852    -1.715305 
-    2805    1701    -0.001648 
-    2805    2757    -0.047987 
-    2805    2758    14.508479 
-    2805    2759    24.525133 
-    2805    2802    -0.184903 
-    2805    2803    15.575259 
-    2805    2804    26.328400 
-    2805    2805    210.680910 
-    2805    2806    -153.128020 
-    2805    2807    -258.847600 
-    2805    2808    -0.000922 
-    2805    2853    -0.039306 
-    2806    2759    -3.972629 
-    2806    2804    -4.264752 
-    2806    2806    -40.153071 
-    2806    2807    40.015170 
-    2807    1701    -0.000017 
-    2807    1702    -2.404773 
-    2807    1703    -4.065028 
-    2807    2757    -0.000009 
-    2807    2758    -1.291764 
-    2807    2759    -2.183598 
-    2807    2802    -0.000008 
-    2807    2803    -1.147923 
-    2807    2804    -1.940448 
-    2807    2805    0.000545 
-    2807    2806    7.380206 
-    2807    2807    12.475499 
-    2807    2808    -0.000010 
-    2807    2809    -1.344772 
-    2807    2810    -2.273203 
-    2807    2853    -0.000009 
-    2807    2854    -1.186460 
-    2807    2855    -2.005591 
-    2808    1704    -0.001526 
-    2808    2760    -0.154046 
-    2808    2761    24.571690 
-    2808    2762    41.535956 
-    2808    2805    -0.242978 
-    2808    2806    21.768511 
-    2808    2807    36.797491 
-    2808    2808    240.122120 
-    2808    2809    -189.003000 
-    2808    2810    -319.490440 
-    2808    2811    -0.001121 
-    2808    2856    -0.091497 
-    2808    2857    2.519614 
-    2808    2858    4.259152 
-    2809    2762    -6.727911 
-    2809    2807    -5.960374 
-    2809    2809    -45.739429 
-    2809    2810    49.546697 
-    2809    2858    -0.689865 
-    2810    1704    -0.000016 
-    2810    1705    -2.112323 
-    2810    1706    -3.570668 
-    2810    2760    -0.000011 
-    2810    2761    -1.484513 
-    2810    2762    -2.509420 
-    2810    2805    -0.000010 
-    2810    2806    -1.344772 
-    2810    2807    -2.273203 
-    2810    2808    0.000619 
-    2810    2809    7.860536 
-    2810    2810    13.287442 
-    2810    2811    -0.000012 
-    2810    2812    -1.551506 
-    2810    2813    -2.622664 
-    2810    2856    -0.000010 
-    2810    2857    -1.362276 
-    2810    2858    -2.302789 
-    2811    1707    -0.001384 
-    2811    2763    -0.375093 
-    2811    2764    49.880579 
-    2811    2765    84.318130 
-    2811    2808    -0.354729 
-    2811    2809    31.038869 
-    2811    2810    52.468065 
-    2811    2811    281.898260 
-    2811    2812    -302.958660 
-    2811    2813    -512.121300 
-    2811    2814    -0.354007 
-    2811    2815    35.445146 
-    2811    2816    59.916433 
-    2811    2859    -0.305345 
-    2811    2860    22.650621 
-    2811    2861    38.288610 
-    2812    2765    -13.657432 
-    2812    2810    -8.498342 
-    2812    2812    -53.561180 
-    2812    2813    80.335994 
-    2812    2816    -9.704780 
-    2812    2861    -6.201579 
-    2813    1707    -0.000014 
-    2813    1708    -1.803479 
-    2813    1709    -3.048600 
-    2813    2763    -0.000013 
-    2813    2764    -1.711591 
-    2813    2765    -2.893273 
-    2813    2808    -0.000012 
-    2813    2809    -1.551506 
-    2813    2810    -2.622664 
-    2813    2811    0.000724 
-    2813    2812    8.839132 
-    2813    2813    14.941665 
-    2813    2814    -0.000013 
-    2813    2815    -1.718750 
-    2813    2816    -2.905372 
-    2813    2859    -0.000012 
-    2813    2860    -1.626687 
-    2813    2861    -2.749751 
-    2814    1710    -0.001248 
-    2814    2766    -0.163547 
-    2814    2767    26.923069 
-    2814    2768    45.510728 
-    2814    2811    -0.001239 
-    2814    2814    292.691800 
-    2814    2815    -220.219250 
-    2814    2816    -372.258370 
-    2814    2817    -0.222788 
-    2814    2818    21.807030 
-    2814    2819    36.862603 
-    2814    2862    -0.084129 
-    2814    2863    0.565647 
-    2814    2864    0.956170 
-    2815    2768    -7.371726 
-    2815    2815    -55.772693 
-    2815    2816    57.627715 
-    2815    2819    -5.970877 
-    2815    2864    -0.154873 
-    2816    1710    -0.000013 
-    2816    1711    -1.731037 
-    2816    1712    -2.926143 
-    2816    2766    -0.000013 
-    2816    2767    -1.748750 
-    2816    2768    -2.956085 
-    2816    2811    -0.000013 
-    2816    2812    -1.718750 
-    2816    2813    -2.905372 
-    2816    2814    0.000748 
-    2816    2815    8.710367 
-    2816    2816    14.723995 
-    2816    2817    -0.000013 
-    2816    2818    -1.754257 
-    2816    2819    -2.965397 
-    2816    2862    -0.000013 
-    2816    2863    -1.751301 
-    2816    2864    -2.960397 
-    2817    1713    -0.001200 
-    2817    2769    -0.104125 
-    2817    2770    20.234483 
-    2817    2771    34.204370 
-    2817    2814    -0.001215 
-    2817    2817    292.482780 
-    2817    2818    -206.096930 
-    2817    2819    -348.386250 
-    2817    2820    -0.170188 
-    2817    2821    14.942885 
-    2817    2822    25.259436 
-    2817    2865    -0.001213 
-    2818    2771    -5.540455 
-    2818    2818    -55.761113 
-    2818    2819    53.791450 
-    2818    2822    -4.091520 
-    2819    1713    -0.000013 
-    2819    1714    -1.731841 
-    2819    1715    -2.927504 
-    2819    2769    -0.000012 
-    2819    2770    -1.748755 
-    2819    2771    -2.956095 
-    2819    2814    -0.000013 
-    2819    2815    -1.754257 
-    2819    2816    -2.965397 
-    2819    2817    0.000746 
-    2819    2818    8.746176 
-    2819    2819    14.784534 
-    2819    2820    -0.000012 
-    2819    2821    -1.753944 
-    2819    2822    -2.964864 
-    2819    2865    -0.000013 
-    2819    2866    -1.751113 
-    2819    2867    -2.960082 
-    2820    1716    -0.011850 
-    2820    2772    -0.087073 
-    2820    2773    17.722819 
-    2820    2774    29.958631 
-    2820    2817    -0.001181 
-    2820    2820    292.489260 
-    2820    2821    -201.689720 
-    2820    2822    -340.936080 
-    2820    2823    -0.159428 
-    2820    2824    13.042016 
-    2820    2825    22.046224 
-    2820    2868    -0.001179 
-    2821    2774    -4.852811 
-    2821    2821    -55.755356 
-    2821    2822    52.600284 
-    2821    2825    -3.571104 
-    2822    1716    -0.000012 
-    2822    1717    -1.730419 
-    2822    1718    -2.925098 
-    2822    2772    -0.000012 
-    2822    2773    -1.749989 
-    2822    2774    -2.958180 
-    2822    2817    -0.000012 
-    2822    2818    -1.753944 
-    2822    2819    -2.964864 
-    2822    2820    0.000745 
-    2822    2821    8.745912 
-    2822    2822    14.784082 
-    2822    2823    -0.000012 
-    2822    2824    -1.753781 
-    2822    2825    -2.964591 
-    2822    2868    -0.000012 
-    2822    2869    -1.751516 
-    2822    2870    -2.960761 
-    2823    1719    -0.027058 
-    2823    2775    -0.048589 
-    2823    2776    12.648323 
-    2823    2777    21.380725 
-    2823    2820    -0.001151 
-    2823    2823    292.398770 
-    2823    2824    -183.518220 
-    2823    2825    -310.219190 
-    2824    2777    -3.463364 
-    2824    2824    -55.751694 
-    2824    2825    47.634733 
-    2825    1719    -0.000012 
-    2825    1720    -1.731666 
-    2825    1721    -2.927208 
-    2825    2775    -0.000012 
-    2825    2776    -1.732292 
-    2825    2777    -2.928266 
-    2825    2820    -0.000012 
-    2825    2821    -1.753781 
-    2825    2822    -2.964591 
-    2825    2823    0.000719 
-    2825    2824    5.224001 
-    2825    2825    8.830651 
-    2826    2826    1.000000 
-    2827    2827    1.000000 
-    2828    2828    1.000000 
-    2829    2829    1.000000 
-    2830    2830    1.000000 
-    2831    2831    1.000000 
-    2832    2832    1.000000 
-    2833    2833    1.000000 
-    2834    2834    1.000000 
-    2835    2835    1.000000 
-    2836    2836    1.000000 
-    2837    2837    1.000000 
-    2838    2838    1.000000 
-    2839    2839    1.000000 
-    2840    2840    1.000000 
-    2841    1737    -0.052764 
-    2841    2793    -0.000426 
-    2841    2841    116.940080 
-    2841    2842    -71.513262 
-    2841    2843    -120.886020 
-    2841    2844    -0.000426 
-    2841    2889    -0.042488 
-    2841    2890    3.126292 
-    2841    2891    5.284685 
-    2842    2842    -22.298278 
-    2842    2843    18.542426 
-    2842    2891    -0.856079 
-    2843    1737    -0.000027 
-    2843    1738    -4.321552 
-    2843    1739    -7.305152 
-    2843    2793    -0.000004 
-    2843    2794    -0.701417 
-    2843    2795    -1.185676 
-    2843    2841    0.000314 
-    2843    2842    6.428423 
-    2843    2843    10.866607 
-    2843    2844    -0.000004 
-    2843    2845    -0.701439 
-    2843    2846    -1.185713 
-    2843    2889    -0.000004 
-    2843    2890    -0.701511 
-    2843    2891    -1.185833 
-    2844    1740    -0.051145 
-    2844    2796    -0.000472 
-    2844    2797    0.237245 
-    2844    2798    0.401038 
-    2844    2841    -0.014510 
-    2844    2842    3.074341 
-    2844    2843    5.196866 
-    2844    2844    116.981860 
-    2844    2845    -73.655198 
-    2844    2846    -124.506660 
-    2844    2847    -0.000472 
-    2844    2892    -0.037647 
-    2844    2893    1.974108 
-    2844    2894    3.337031 
-    2845    2798    -0.064964 
-    2845    2843    -0.841845 
-    2845    2845    -22.302114 
-    2845    2846    19.119340 
-    2845    2894    -0.540567 
-    2846    1740    -0.000028 
-    2846    1741    -4.321276 
-    2846    1742    -7.304679 
-    2846    2796    -0.000005 
-    2846    2797    -0.764717 
-    2846    2798    -1.292677 
-    2846    2841    -0.000004 
-    2846    2842    -0.701439 
-    2846    2843    -1.185713 
-    2846    2844    0.000320 
-    2846    2845    7.256808 
-    2846    2846    12.266901 
-    2846    2847    -0.000005 
-    2846    2848    -0.765451 
-    2846    2849    -1.293918 
-    2846    2892    -0.000004 
-    2846    2893    -0.701420 
-    2846    2894    -1.185679 
-    2847    1743    -0.045466 
-    2847    2799    -0.000565 
-    2847    2800    1.546114 
-    2847    2801    2.613551 
-    2847    2844    -0.057739 
-    2847    2845    6.099991 
-    2847    2846    10.311418 
-    2847    2847    140.408860 
-    2847    2848    -91.323808 
-    2847    2849    -154.373760 
-    2847    2850    -0.000576 
-    2847    2895    -0.042281 
-    2847    2896    1.630936 
-    2847    2897    2.756933 
-    2848    2801    -0.423361 
-    2848    2846    -1.670339 
-    2848    2848    -26.766776 
-    2848    2849    23.736591 
-    2848    2897    -0.446587 
-    2849    1743    -0.000024 
-    2849    1744    -3.602770 
-    2849    1745    -6.090122 
-    2849    2799    -0.000006 
-    2849    2800    -0.890227 
-    2849    2801    -1.504840 
-    2849    2844    -0.000005 
-    2849    2845    -0.765451 
-    2849    2846    -1.293918 
-    2849    2847    0.000374 
-    2849    2848    6.933268 
-    2849    2849    11.719995 
-    2849    2850    -0.000006 
-    2849    2851    -0.906773 
-    2849    2852    -1.532808 
-    2849    2895    -0.000005 
-    2849    2896    -0.765039 
-    2849    2897    -1.293222 
-    2850    1746    -0.029380 
-    2850    2802    -0.000669 
-    2850    2803    2.230659 
-    2850    2804    3.770703 
-    2850    2847    -0.112564 
-    2850    2848    9.825410 
-    2850    2849    16.608873 
-    2850    2850    163.813100 
-    2850    2851    -109.961840 
-    2850    2852    -185.879390 
-    2850    2853    -0.000691 
-    2850    2898    -0.060381 
-    2850    2899    2.184291 
-    2850    2900    3.692323 
-    2851    2804    -0.610790 
-    2851    2849    -2.690407 
-    2851    2851    -31.231894 
-    2851    2852    28.617763 
-    2851    2900    -0.598094 
-    2852    1746    -0.000021 
-    2852    1747    -3.090092 
-    2852    1748    -5.223489 
-    2852    2802    -0.000007 
-    2852    2803    -1.014734 
-    2852    2804    -1.715305 
-    2852    2847    -0.000006 
-    2852    2848    -0.906773 
-    2852    2849    -1.532808 
-    2852    2850    0.000431 
-    2852    2851    6.987925 
-    2852    2852    11.812382 
-    2852    2853    -0.000007 
-    2852    2854    -1.047860 
-    2852    2855    -1.771302 
-    2852    2898    -0.000006 
-    2852    2899    -0.924954 
-    2852    2900    -1.563541 
-    2853    1749    -0.001863 
-    2853    2805    -0.000817 
-    2853    2806    1.776910 
-    2853    2807    3.003689 
-    2853    2850    -0.151719 
-    2853    2851    13.482684 
-    2853    2852    22.791115 
-    2853    2853    187.243250 
-    2853    2854    -129.245670 
-    2853    2855    -218.476890 
-    2853    2856    -0.000829 
-    2853    2901    -0.094354 
-    2853    2902    4.581557 
-    2853    2903    7.744664 
-    2854    2807    -0.486531 
-    2854    2852    -3.691753 
-    2854    2854    -35.699346 
-    2854    2855    33.669408 
-    2854    2903    -1.254471 
-    2855    1749    -0.000019 
-    2855    1750    -2.704891 
-    2855    1751    -4.572347 
-    2855    2805    -0.000009 
-    2855    2806    -1.186460 
-    2855    2807    -2.005591 
-    2855    2850    -0.000007 
-    2855    2851    -1.047860 
-    2855    2852    -1.771302 
-    2855    2853    0.000489 
-    2855    2854    7.231765 
-    2855    2855    12.224575 
-    2855    2856    -0.000009 
-    2855    2857    -1.203871 
-    2855    2858    -2.035024 
-    2855    2901    -0.000008 
-    2855    2902    -1.084668 
-    2855    2903    -1.833523 
-    2856    1752    -0.001680 
-    2856    2808    -0.000978 
-    2856    2853    -0.176557 
-    2856    2854    15.457157 
-    2856    2855    26.128778 
-    2856    2856    216.557680 
-    2856    2857    -151.392050 
-    2856    2858    -255.912970 
-    2856    2859    -0.001023 
-    2856    2904    -0.149658 
-    2856    2905    9.450693 
-    2856    2906    15.975441 
-    2857    2855    -4.232265 
-    2857    2857    -41.283654 
-    2857    2858    39.447704 
-    2857    2906    -2.587626 
-    2858    1752    -0.000018 
-    2858    1753    -2.340037 
-    2858    1754    -3.955596 
-    2858    2808    -0.000010 
-    2858    2809    -1.362276 
-    2858    2810    -2.302789 
-    2858    2853    -0.000009 
-    2858    2854    -1.203871 
-    2858    2855    -2.035024 
-    2858    2856    0.000563 
-    2858    2857    7.613836 
-    2858    2858    12.870422 
-    2858    2859    -0.000011 
-    2858    2860    -1.424649 
-    2858    2861    -2.408225 
-    2858    2904    -0.000009 
-    2858    2905    -1.278358 
-    2858    2906    -2.160934 
-    2859    1755    -0.001416 
-    2859    2811    -0.001197 
-    2859    2856    -0.153991 
-    2859    2857    11.298069 
-    2859    2858    19.098244 
-    2859    2859    263.422520 
-    2859    2860    -192.365090 
-    2859    2861    -325.173940 
-    2859    2862    -0.110191 
-    2859    2863    11.669962 
-    2859    2864    19.726888 
-    2859    2907    -0.230820 
-    2859    2908    15.533079 
-    2859    2909    26.257116 
-    2860    2858    -3.093388 
-    2860    2860    -50.211097 
-    2860    2861    50.228609 
-    2860    2864    -3.195205 
-    2860    2909    -4.252946 
-    2861    1755    -0.000015 
-    2861    1756    -1.923952 
-    2861    1757    -3.252249 
-    2861    2811    -0.000012 
-    2861    2812    -1.626687 
-    2861    2813    -2.749751 
-    2861    2856    -0.000011 
-    2861    2857    -1.424649 
-    2861    2858    -2.408225 
-    2861    2859    0.000678 
-    2861    2860    8.201110 
-    2861    2861    13.863152 
-    2861    2862    -0.000012 
-    2861    2863    -1.662238 
-    2861    2864    -2.809845 
-    2861    2907    -0.000012 
-    2861    2908    -1.557933 
-    2861    2909    -2.633530 
-    2862    1758    -0.001246 
-    2862    2814    -0.001261 
-    2862    2859    -0.001197 
-    2862    2862    292.461160 
-    2862    2863    -191.117990 
-    2862    2864    -323.065590 
-    2862    2865    -0.139241 
-    2862    2866    12.739216 
-    2862    2867    21.534371 
-    2862    2910    -0.145309 
-    2862    2911    7.432785 
-    2862    2912    12.564371 
-    2863    2863    -55.782280 
-    2863    2864    49.636495 
-    2863    2867    -3.488023 
-    2863    2912    -2.035097 
-    2864    1758    -0.000013 
-    2864    1759    -1.730476 
-    2864    1760    -2.925195 
-    2864    2814    -0.000013 
-    2864    2815    -1.751301 
-    2864    2816    -2.960397 
-    2864    2859    -0.000012 
-    2864    2860    -1.662238 
-    2864    2861    -2.809845 
-    2864    2862    0.000749 
-    2864    2863    8.656239 
-    2864    2864    14.632498 
-    2864    2865    -0.000013 
-    2864    2866    -1.754513 
-    2864    2867    -2.965828 
-    2864    2910    -0.000013 
-    2864    2911    -1.751435 
-    2864    2912    -2.960625 
-    2865    1761    -0.001217 
-    2865    2817    -0.001766 
-    2865    2818    8.486992 
-    2865    2819    14.346412 
-    2865    2862    -0.001234 
-    2865    2865    292.366410 
-    2865    2866    -188.081950 
-    2865    2867    -317.933730 
-    2865    2868    -0.089048 
-    2865    2869    8.645098 
-    2865    2870    14.613665 
-    2865    2913    -0.049930 
-    2866    2819    -2.323782 
-    2866    2866    -55.776604 
-    2866    2867    48.820171 
-    2866    2870    -2.367073 
-    2867    1761    -0.000013 
-    2867    1762    -1.729695 
-    2867    1763    -2.923877 
-    2867    2817    -0.000013 
-    2867    2818    -1.751113 
-    2867    2819    -2.960082 
-    2867    2862    -0.000013 
-    2867    2863    -1.754513 
-    2867    2864    -2.965828 
-    2867    2865    0.000748 
-    2867    2866    8.747352 
-    2867    2867    14.786522 
-    2867    2868    -0.000013 
-    2867    2869    -1.754465 
-    2867    2870    -2.965746 
-    2867    2913    -0.000013 
-    2867    2914    -1.751292 
-    2867    2915    -2.960384 
-    2868    1764    -0.011707 
-    2868    2820    -0.082800 
-    2868    2821    14.779875 
-    2868    2822    24.983885 
-    2868    2865    -0.001215 
-    2868    2868    292.307290 
-    2868    2869    -185.722040 
-    2868    2870    -313.944340 
-    2868    2916    -0.017816 
-    2869    2822    -4.046886 
-    2869    2869    -55.771995 
-    2869    2870    48.186100 
-    2870    1764    -0.000013 
-    2870    1765    -1.730274 
-    2870    1766    -2.924854 
-    2870    2820    -0.000012 
-    2870    2821    -1.751516 
-    2870    2822    -2.960761 
-    2870    2865    -0.000013 
-    2870    2866    -1.754465 
-    2870    2867    -2.965746 
-    2870    2868    0.000734 
-    2870    2869    6.994246 
-    2870    2870    11.823066 
-    2870    2916    -0.000013 
-    2870    2917    -1.751719 
-    2870    2918    -2.961104 
-    2871    2871    1.000000 
-    2872    2872    1.000000 
-    2873    2873    1.000000 
-    2874    2874    1.000000 
-    2875    2875    1.000000 
-    2876    2876    1.000000 
-    2877    2877    1.000000 
-    2878    2878    1.000000 
-    2879    2879    1.000000 
-    2880    2880    1.000000 
-    2881    2881    1.000000 
-    2882    2882    1.000000 
-    2883    2883    1.000000 
-    2884    2884    1.000000 
-    2885    2885    1.000000 
-    2886    1782    -0.052840 
-    2886    2886    122.763670 
-    2886    2887    -74.141000 
-    2886    2888    -125.327870 
-    2886    2889    -0.000421 
-    2886    2934    -0.015280 
-    2886    2935    2.330081 
-    2886    2936    3.938766 
-    2887    2887    -23.407988 
-    2887    2888    19.223281 
-    2887    2936    -0.638063 
-    2888    1782    -0.000025 
-    2888    1783    -4.116348 
-    2888    1784    -6.958270 
-    2888    2886    0.000322 
-    2888    2887    5.622511 
-    2888    2888    9.504287 
-    2888    2889    -0.000004 
-    2888    2890    -0.717922 
-    2888    2891    -1.213575 
-    2888    2934    -0.000005 
-    2888    2935    -0.785615 
-    2888    2936    -1.328003 
-    2889    1785    -0.052962 
-    2889    2841    -0.000419 
-    2889    2886    -0.012451 
-    2889    2887    3.407376 
-    2889    2888    5.759824 
-    2889    2889    116.963480 
-    2889    2890    -74.727793 
-    2889    2891    -126.319860 
-    2889    2892    -0.000418 
-    2889    2937    -0.039294 
-    2889    2938    2.937664 
-    2889    2939    4.965826 
-    2890    2888    -0.933059 
-    2890    2890    -22.297929 
-    2890    2891    19.423783 
-    2890    2939    -0.804434 
-    2891    1785    -0.000027 
-    2891    1786    -4.323953 
-    2891    1787    -7.309211 
-    2891    2841    -0.000004 
-    2891    2842    -0.701511 
-    2891    2843    -1.185833 
-    2891    2886    -0.000004 
-    2891    2887    -0.717922 
-    2891    2888    -1.213575 
-    2891    2889    0.000318 
-    2891    2890    7.165543 
-    2891    2891    12.112634 
-    2891    2892    -0.000004 
-    2891    2893    -0.701183 
-    2891    2894    -1.185280 
-    2891    2937    -0.000004 
-    2891    2938    -0.718470 
-    2891    2939    -1.214502 
-    2892    1788    -0.052331 
-    2892    2844    -0.000428 
-    2892    2889    -0.019336 
-    2892    2890    4.224428 
-    2892    2891    7.140973 
-    2892    2892    116.985380 
-    2892    2893    -75.477566 
-    2892    2894    -127.587220 
-    2892    2895    -0.000428 
-    2892    2940    -0.039897 
-    2892    2941    2.871332 
-    2892    2942    4.853698 
-    2893    2891    -1.156784 
-    2893    2893    -22.303262 
-    2893    2894    19.615711 
-    2893    2942    -0.786260 
-    2894    1788    -0.000028 
-    2894    1789    -4.320322 
-    2894    1790    -7.303069 
-    2894    2844    -0.000004 
-    2894    2845    -0.701420 
-    2894    2846    -1.185679 
-    2894    2889    -0.000004 
-    2894    2890    -0.701183 
-    2894    2891    -1.185280 
-    2894    2892    0.000319 
-    2894    2893    7.128685 
-    2894    2894    12.050324 
-    2894    2895    -0.000004 
-    2894    2896    -0.701681 
-    2894    2897    -1.186120 
-    2894    2940    -0.000004 
-    2894    2941    -0.701573 
-    2894    2942    -1.185939 
-    2895    1791    -0.049201 
-    2895    2847    -0.000482 
-    2895    2892    -0.051813 
-    2895    2893    6.070538 
-    2895    2894    10.261632 
-    2895    2895    117.022330 
-    2895    2896    -77.644013 
-    2895    2897    -131.249440 
-    2895    2898    -0.000491 
-    2895    2943    -0.046668 
-    2895    2944    3.198839 
-    2895    2945    5.407317 
-    2896    2894    -1.662285 
-    2896    2896    -22.307808 
-    2896    2897    20.197250 
-    2896    2945    -0.875924 
-    2897    1791    -0.000028 
-    2897    1792    -4.320544 
-    2897    1793    -7.303447 
-    2897    2847    -0.000005 
-    2897    2848    -0.765039 
-    2897    2849    -1.293222 
-    2897    2892    -0.000004 
-    2897    2893    -0.701681 
-    2897    2894    -1.186120 
-    2897    2895    0.000321 
-    2897    2896    7.271184 
-    2897    2897    12.291208 
-    2897    2898    -0.000005 
-    2897    2899    -0.779764 
-    2897    2900    -1.318112 
-    2897    2943    -0.000005 
-    2897    2944    -0.701649 
-    2897    2945    -1.186068 
-    2898    1794    -0.040000 
-    2898    2850    -0.000605 
-    2898    2895    -0.088995 
-    2898    2896    8.269744 
-    2898    2897    13.979175 
-    2898    2898    146.285930 
-    2898    2899    -98.102872 
-    2898    2900    -165.832990 
-    2898    2901    -0.000626 
-    2898    2946    -0.086061 
-    2898    2947    4.349211 
-    2898    2948    7.351902 
-    2899    2897    -2.264444 
-    2899    2899    -27.889063 
-    2899    2900    25.522133 
-    2899    2948    -1.190898 
-    2900    1794    -0.000024 
-    2900    1795    -3.463996 
-    2900    1796    -5.855535 
-    2900    2850    -0.000006 
-    2900    2851    -0.924954 
-    2900    2852    -1.563541 
-    2900    2895    -0.000005 
-    2900    2896    -0.779764 
-    2900    2897    -1.318112 
-    2900    2898    0.000389 
-    2900    2899    6.948916 
-    2900    2900    11.746441 
-    2900    2901    -0.000007 
-    2900    2902    -0.956926 
-    2900    2903    -1.617587 
-    2900    2946    -0.000005 
-    2900    2947    -0.820139 
-    2900    2948    -1.386363 
-    2901    1797    -0.019987 
-    2901    2853    -0.000737 
-    2901    2898    -0.117784 
-    2901    2899    10.529944 
-    2901    2900    17.799806 
-    2901    2901    175.551540 
-    2901    2902    -119.782820 
-    2901    2903    -202.480880 
-    2901    2904    -0.000780 
-    2901    2949    -0.112524 
-    2901    2950    6.682387 
-    2901    2951    11.295907 
-    2902    2900    -2.883266 
-    2902    2902    -33.471603 
-    2902    2903    31.177756 
-    2902    2951    -1.829725 
-    2903    1797    -0.000021 
-    2903    1798    -2.885504 
-    2903    1799    -4.877655 
-    2903    2853    -0.000008 
-    2903    2854    -1.084668 
-    2903    2855    -1.833523 
-    2903    2898    -0.000007 
-    2903    2899    -0.956926 
-    2903    2900    -1.617587 
-    2903    2901    0.000460 
-    2903    2902    7.092170 
-    2903    2903    11.988602 
-    2903    2904    -0.000008 
-    2903    2905    -1.148179 
-    2903    2906    -1.940881 
-    2903    2949    -0.000007 
-    2903    2950    -1.013127 
-    2903    2951    -1.712590 
-    2904    1800    -0.001686 
-    2904    2856    -0.000896 
-    2904    2901    -0.133850 
-    2904    2902    11.103122 
-    2904    2903    18.768717 
-    2904    2904    210.651740 
-    2904    2905    -144.066010 
-    2904    2906    -243.529010 
-    2904    2907    -0.000974 
-    2904    2952    -0.154186 
-    2904    2953    9.863041 
-    2904    2954    16.672475 
-    2905    2903    -3.040134 
-    2905    2905    -40.169576 
-    2905    2906    37.492727 
-    2905    2954    -2.700578 
-    2906    1800    -0.000018 
-    2906    1801    -2.404928 
-    2906    1802    -4.065287 
-    2906    2856    -0.000009 
-    2906    2857    -1.278358 
-    2906    2858    -2.160934 
-    2906    2901    -0.000008 
-    2906    2902    -1.148179 
-    2906    2903    -1.940881 
-    2906    2904    0.000546 
-    2906    2905    7.450284 
-    2906    2906    12.593953 
-    2906    2907    -0.000010 
-    2906    2908    -1.389370 
-    2906    2909    -2.348590 
-    2906    2952    -0.000009 
-    2906    2953    -1.224929 
-    2906    2954    -2.070619 
-    2907    1803    -0.001404 
-    2907    2859    -0.001111 
-    2907    2904    -0.106975 
-    2907    2905    7.437077 
-    2907    2906    12.571626 
-    2907    2907    257.396410 
-    2907    2908    -171.361080 
-    2907    2909    -289.668760 
-    2907    2910    -0.001779 
-    2907    2911    2.125165 
-    2907    2912    3.592377 
-    2907    2955    -0.188991 
-    2907    2956    11.347922 
-    2907    2957    19.182526 
-    2908    2906    -2.036292 
-    2908    2908    -49.096209 
-    2908    2909    44.531218 
-    2908    2912    -0.581870 
-    2908    2957    -3.107108 
-    2909    1803    -0.000015 
-    2909    1804    -1.968134 
-    2909    1805    -3.326934 
-    2909    2859    -0.000012 
-    2909    2860    -1.557933 
-    2909    2861    -2.633530 
-    2909    2904    -0.000010 
-    2909    2905    -1.389370 
-    2909    2906    -2.348590 
-    2909    2907    0.000661 
-    2909    2908    8.068391 
-    2909    2909    13.638805 
-    2909    2910    -0.000012 
-    2909    2911    -1.642573 
-    2909    2912    -2.776604 
-    2909    2955    -0.000011 
-    2909    2956    -1.504854 
-    2909    2957    -2.543806 
-    2910    1806    -0.001230 
-    2910    2862    -0.001245 
-    2910    2907    -0.001167 
-    2910    2910    292.357580 
-    2910    2911    -183.392210 
-    2910    2912    -310.005990 
-    2910    2913    -0.043703 
-    2910    2914    4.180308 
-    2910    2915    7.066393 
-    2910    2958    -0.161869 
-    2910    2959    8.223601 
-    2910    2960    13.901166 
-    2911    2911    -55.787051 
-    2911    2912    47.510016 
-    2911    2915    -1.144575 
-    2911    2960    -2.251647 
-    2912    1806    -0.000013 
-    2912    1807    -1.731237 
-    2912    1808    -2.926480 
-    2912    2862    -0.000013 
-    2912    2863    -1.751435 
-    2912    2864    -2.960625 
-    2912    2907    -0.000012 
-    2912    2908    -1.642573 
-    2912    2909    -2.776604 
-    2912    2910    0.000748 
-    2912    2911    8.637157 
-    2912    2912    14.600243 
-    2912    2913    -0.000013 
-    2912    2914    -1.754617 
-    2912    2915    -2.966005 
-    2912    2958    -0.000013 
-    2912    2959    -1.751017 
-    2912    2960    -2.959917 
-    2913    1809    -0.006031 
-    2913    2865    -0.001235 
-    2913    2866    1.110960 
-    2913    2867    1.877967 
-    2913    2910    -0.001237 
-    2913    2913    292.296900 
-    2913    2914    -176.690160 
-    2913    2915    -298.677050 
-    2913    2916    -0.056888 
-    2913    2917    4.634097 
-    2913    2918    7.833474 
-    2914    2867    -0.304183 
-    2914    2914    -55.784865 
-    2914    2915    45.680730 
-    2914    2918    -1.268831 
-    2915    1809    -0.000013 
-    2915    1810    -1.732066 
-    2915    1811    -2.927885 
-    2915    2865    -0.000013 
-    2915    2866    -1.751292 
-    2915    2867    -2.960384 
-    2915    2910    -0.000013 
-    2915    2911    -1.754617 
-    2915    2912    -2.966005 
-    2915    2913    0.000735 
-    2915    2914    6.998827 
-    2915    2915    11.830815 
-    2915    2916    -0.000013 
-    2915    2917    -1.754575 
-    2915    2918    -2.965931 
-    2916    1812    -0.017019 
-    2916    2868    -0.001224 
-    2916    2869    5.115950 
-    2916    2870    8.647996 
-    2916    2913    -0.001226 
-    2916    2916    292.278220 
-    2916    2917    -176.058170 
-    2916    2918    -297.608570 
-    2917    2870    -1.400774 
-    2917    2917    -55.783494 
-    2917    2918    45.511484 
-    2918    1812    -0.000013 
-    2918    1813    -1.730493 
-    2918    1814    -2.925224 
-    2918    2868    -0.000013 
-    2918    2869    -1.751719 
-    2918    2870    -2.961104 
-    2918    2913    -0.000013 
-    2918    2914    -1.754575 
-    2918    2915    -2.965931 
-    2918    2916    0.000722 
-    2918    2917    5.243063 
-    2918    2918    8.862868 
-    2919    2919    1.000000 
-    2920    2920    1.000000 
-    2921    2921    1.000000 
-    2922    2922    1.000000 
-    2923    2923    1.000000 
-    2924    2924    1.000000 
-    2925    2925    1.000000 
-    2926    2926    1.000000 
-    2927    2927    1.000000 
-    2928    2928    1.000000 
-    2929    2929    1.000000 
-    2930    2930    1.000000 
-    2931    2931    1.000000 
-    2932    2932    1.000000 
-    2933    2933    1.000000 
-    2934    1830    -0.052524 
-    2934    2886    -0.000455 
-    2934    2934    140.304940 
-    2934    2935    -85.988916 
-    2934    2936    -145.355580 
-    2934    2937    -0.014952 
-    2934    2982    -0.025936 
-    2934    2983    3.918270 
-    2934    2984    6.623438 
-    2935    2935    -26.749432 
-    2935    2936    22.319922 
-    2935    2984    -1.072978 
-    2936    1830    -0.000022 
-    2936    1831    -3.609268 
-    2936    1832    -6.101103 
-    2936    2886    -0.000005 
-    2936    2887    -0.785615 
-    2936    2888    -1.328003 
-    2936    2934    0.000365 
-    2936    2935    6.072683 
-    2936    2936    10.265257 
-    2936    2937    -0.000005 
-    2936    2938    -0.784093 
-    2936    2939    -1.325430 
-    2936    2982    -0.000005 
-    2936    2983    -0.890706 
-    2936    2984    -1.505649 
-    2937    1833    -0.052799 
-    2937    2889    -0.000422 
-    2937    2934    -0.000461 
-    2937    2935    2.840873 
-    2937    2936    4.802209 
-    2937    2937    122.819040 
-    2937    2938    -77.998744 
-    2937    2939    -131.849080 
-    2937    2940    -0.000422 
-    2937    2985    -0.014222 
-    2937    2986    3.360142 
-    2937    2987    5.679985 
-    2938    2936    -0.777936 
-    2938    2938    -23.412403 
-    2938    2939    20.268814 
-    2938    2987    -0.920133 
-    2939    1833    -0.000025 
-    2939    1834    -4.120276 
-    2939    1835    -6.964914 
-    2939    2889    -0.000004 
-    2939    2890    -0.718470 
-    2939    2891    -1.214502 
-    2939    2934    -0.000005 
-    2939    2935    -0.784093 
-    2939    2936    -1.325430 
-    2939    2937    0.000331 
-    2939    2938    7.129016 
-    2939    2939    12.050888 
-    2939    2940    -0.000004 
-    2939    2941    -0.718184 
-    2939    2942    -1.214018 
-    2939    2985    -0.000005 
-    2939    2986    -0.785365 
-    2939    2987    -1.327581 
-    2940    1836    -0.052786 
-    2940    2892    -0.000422 
-    2940    2937    -0.018239 
-    2940    2938    4.323829 
-    2940    2939    7.309001 
-    2940    2940    116.981090 
-    2940    2941    -75.997533 
-    2940    2942    -128.466150 
-    2940    2943    -0.000422 
-    2940    2988    -0.023639 
-    2940    2989    3.298516 
-    2940    2990    5.575808 
-    2941    2939    -1.184015 
-    2941    2941    -22.303045 
-    2941    2942    19.758867 
-    2941    2990    -0.903246 
-    2942    1836    -0.000027 
-    2942    1837    -4.321090 
-    2942    1838    -7.304366 
-    2942    2892    -0.000004 
-    2942    2893    -0.701573 
-    2942    2894    -1.185939 
-    2942    2937    -0.000004 
-    2942    2938    -0.718184 
-    2942    2939    -1.214018 
-    2942    2940    0.000318 
-    2942    2941    7.146204 
-    2942    2942    12.079937 
-    2942    2943    -0.000004 
-    2942    2944    -0.701387 
-    2942    2945    -1.185624 
-    2942    2988    -0.000004 
-    2942    2989    -0.701464 
-    2942    2990    -1.185754 
-    2943    1839    -0.051639 
-    2943    2895    -0.000435 
-    2943    2940    -0.045028 
-    2943    2941    5.740741 
-    2943    2942    9.704143 
-    2943    2943    116.993330 
-    2943    2944    -77.946499 
-    2943    2945    -131.760760 
-    2943    2946    -0.000455 
-    2943    2991    -0.042629 
-    2943    2992    3.815696 
-    2943    2993    6.450052 
-    2944    2942    -1.571992 
-    2944    2944    -22.307860 
-    2944    2945    20.280237 
-    2944    2993    -1.044849 
-    2945    1839    -0.000028 
-    2945    1840    -4.322044 
-    2945    1841    -7.305982 
-    2945    2895    -0.000005 
-    2945    2896    -0.701649 
-    2945    2897    -1.186068 
-    2945    2940    -0.000004 
-    2945    2941    -0.701387 
-    2945    2942    -1.185624 
-    2945    2943    0.000320 
-    2945    2944    7.164206 
-    2945    2945    12.110372 
-    2945    2946    -0.000005 
-    2945    2947    -0.734913 
-    2945    2948    -1.242296 
-    2945    2991    -0.000004 
-    2945    2992    -0.701705 
-    2945    2993    -1.186162 
-    2946    1842    -0.047034 
-    2946    2898    -0.000526 
-    2946    2943    -0.055637 
-    2946    2944    7.246957 
-    2946    2945    12.250255 
-    2946    2946    128.759700 
-    2946    2947    -87.385812 
-    2946    2948    -147.716890 
-    2946    2949    -0.000555 
-    2946    2994    -0.066907 
-    2946    2995    4.929220 
-    2946    2996    8.332348 
-    2947    2945    -1.984403 
-    2947    2947    -24.545170 
-    2947    2948    22.741959 
-    2947    2996    -1.349736 
-    2948    1842    -0.000026 
-    2948    1843    -3.929329 
-    2948    1844    -6.642133 
-    2948    2898    -0.000005 
-    2948    2899    -0.820139 
-    2948    2900    -1.386363 
-    2948    2943    -0.000005 
-    2948    2944    -0.734913 
-    2948    2945    -1.242296 
-    2948    2946    0.000348 
-    2948    2947    7.105568 
-    2948    2948    12.011246 
-    2948    2949    -0.000006 
-    2948    2950    -0.864518 
-    2948    2951    -1.461380 
-    2948    2994    -0.000005 
-    2948    2995    -0.753908 
-    2948    2996    -1.274405 
-    2949    1845    -0.037777 
-    2949    2901    -0.000673 
-    2949    2946    -0.101106 
-    2949    2947    8.395032 
-    2949    2948    14.190954 
-    2949    2949    163.855520 
-    2949    2950    -111.190550 
-    2949    2951    -187.956510 
-    2949    2952    -0.000716 
-    2949    2997    -0.136190 
-    2949    2998    7.039553 
-    2949    2999    11.899659 
-    2950    2948    -2.298722 
-    2950    2950    -31.242159 
-    2950    2951    28.928800 
-    2950    2999    -1.927556 
-    2951    1845    -0.000022 
-    2951    1846    -3.100324 
-    2951    1847    -5.240788 
-    2951    2901    -0.000007 
-    2951    2902    -1.013127 
-    2951    2903    -1.712590 
-    2951    2946    -0.000006 
-    2951    2947    -0.864518 
-    2951    2948    -1.461380 
-    2951    2949    0.000431 
-    2951    2950    7.003183 
-    2951    2951    11.838180 
-    2951    2952    -0.000007 
-    2951    2953    -1.077522 
-    2951    2954    -1.821443 
-    2951    2997    -0.000006 
-    2951    2998    -0.944176 
-    2951    2999    -1.596036 
-    2952    1848    -0.024271 
-    2952    2904    -0.000836 
-    2952    2949    -0.109652 
-    2952    2950    8.850513 
-    2952    2951    14.960908 
-    2952    2952    198.950030 
-    2952    2953    -134.665010 
-    2952    2954    -227.637610 
-    2952    2955    -0.000900 
-    2952    3000    -0.150164 
-    2952    3001    9.552097 
-    2952    3002    16.146856 
-    2953    2951    -2.423387 
-    2953    2953    -37.939422 
-    2953    2954    35.024388 
-    2953    3002    -2.615488 
-    2954    1848    -0.000018 
-    2954    1849    -2.546503 
-    2954    1850    -4.304606 
-    2954    2904    -0.000009 
-    2954    2905    -1.224929 
-    2954    2906    -2.070619 
-    2954    2949    -0.000007 
-    2954    2950    -1.077522 
-    2954    2951    -1.821443 
-    2954    2952    0.000517 
-    2954    2953    7.360557 
-    2954    2954    12.442280 
-    2954    2955    -0.000009 
-    2954    2956    -1.318588 
-    2954    2957    -2.228939 
-    2954    3000    -0.000008 
-    2954    3001    -1.188745 
-    2954    3002    -2.009454 
-    2955    1851    -0.015525 
-    2955    2907    -0.001048 
-    2955    2952    -0.101891 
-    2955    2953    7.731886 
-    2955    2954    13.069973 
-    2955    2955    245.685780 
-    2955    2956    -158.573580 
-    2955    2957    -268.052780 
-    2955    2958    -0.001115 
-    2955    3003    -0.141279 
-    2955    3004    7.208432 
-    2955    3005    12.185133 
-    2956    2954    -2.117051 
-    2956    2956    -46.867737 
-    2956    2957    41.131714 
-    2956    3005    -1.973721 
-    2957    1851    -0.000015 
-    2957    1852    -2.061775 
-    2957    1853    -3.485225 
-    2957    2907    -0.000011 
-    2957    2908    -1.504854 
-    2957    2909    -2.543806 
-    2957    2952    -0.000009 
-    2957    2953    -1.318588 
-    2957    2954    -2.228939 
-    2957    2955    0.000632 
-    2957    2956    7.945251 
-    2957    2957    13.430650 
-    2957    2958    -0.000012 
-    2957    2959    -1.601982 
-    2957    2960    -2.707990 
-    2957    3003    -0.000010 
-    2957    3004    -1.452776 
-    2957    3005    -2.455772 
-    2958    1854    -0.019986 
-    2958    2910    -0.001225 
-    2958    2955    -0.053627 
-    2958    2956    2.484269 
-    2958    2957    4.199408 
-    2958    2958    292.357990 
-    2958    2959    -179.346790 
-    2958    2960    -303.167610 
-    2958    3006    -0.140855 
-    2958    3007    5.871554 
-    2958    3008    9.925269 
-    2959    2957    -0.680203 
-    2959    2959    -55.792557 
-    2959    2960    46.389658 
-    2959    3008    -1.607663 
-    2960    1854    -0.000013 
-    2960    1855    -1.731620 
-    2960    1856    -2.927129 
-    2960    2910    -0.000013 
-    2960    2911    -1.751017 
-    2960    2912    -2.959917 
-    2960    2955    -0.000012 
-    2960    2956    -1.601982 
-    2960    2957    -2.707990 
-    2960    2958    0.000734 
-    2960    2959    6.824196 
-    2960    2960    11.535616 
-    2960    3006    -0.000013 
-    2960    3007    -1.733297 
-    2960    3008    -2.929964 
-    2961    2961    1.000000 
-    2962    2962    1.000000 
-    2963    2963    1.000000 
-    2964    2964    1.000000 
-    2965    2965    1.000000 
-    2966    2966    1.000000 
-    2967    2967    1.000000 
-    2968    2968    1.000000 
-    2969    2969    1.000000 
-    2970    2970    1.000000 
-    2971    2971    1.000000 
-    2972    2972    1.000000 
-    2973    2973    1.000000 
-    2974    2974    1.000000 
-    2975    2975    1.000000 
-    2976    2976    1.000000 
-    2977    2977    1.000000 
-    2978    2978    1.000000 
-    2979    1875    -0.051616 
-    2979    2979    175.379410 
-    2979    2980    -104.056960 
-    2979    2981    -175.897890 
-    2979    2982    -0.010040 
-    2979    3027    -0.000591 
-    2979    3028    1.476702 
-    2979    3029    2.496218 
-    2980    2980    -33.424919 
-    2980    2981    26.990414 
-    2980    3029    -0.404384 
-    2981    1875    -0.000017 
-    2981    1876    -2.883379 
-    2981    1877    -4.874064 
-    2981    2979    0.000439 
-    2981    2980    4.933650 
-    2981    2981    8.339842 
-    2981    2982    -0.000006 
-    2981    2983    -0.994955 
-    2981    2984    -1.681872 
-    2981    3027    -0.000006 
-    2981    3028    -1.051570 
-    2981    3029    -1.777574 
-    2982    1878    -0.052015 
-    2982    2934    -0.000507 
-    2982    2979    -0.000566 
-    2982    2980    3.044582 
-    2982    2981    5.146561 
-    2982    2982    157.872980 
-    2982    2983    -98.166516 
-    2982    2984    -165.940560 
-    2982    2985    -0.007157 
-    2982    3030    -0.000567 
-    2982    3031    2.800946 
-    2982    3032    4.734716 
-    2983    2981    -0.833734 
-    2983    2983    -30.088923 
-    2983    2984    25.511811 
-    2983    3032    -0.767016 
-    2984    1878    -0.000019 
-    2984    1879    -3.208021 
-    2984    1880    -5.422834 
-    2984    2934    -0.000005 
-    2984    2935    -0.890706 
-    2984    2936    -1.505649 
-    2984    2979    -0.000006 
-    2984    2980    -0.994955 
-    2984    2981    -1.681872 
-    2984    2982    0.000411 
-    2984    2983    6.982558 
-    2984    2984    11.803310 
-    2984    2985    -0.000005 
-    2984    2986    -0.889449 
-    2984    2987    -1.503523 
-    2984    3030    -0.000006 
-    2984    3031    -0.996054 
-    2984    3032    -1.683728 
-    2985    1881    -0.052447 
-    2985    2937    -0.000454 
-    2985    2982    -0.000514 
-    2985    2983    3.329718 
-    2985    2984    5.628552 
-    2985    2985    140.315040 
-    2985    2986    -88.453895 
-    2985    2987    -149.522460 
-    2985    2988    -0.000441 
-    2985    3033    -0.013011 
-    2985    3034    3.064588 
-    2985    3035    5.180379 
-    2986    2984    -0.911810 
-    2986    2986    -26.752309 
-    2986    2987    22.987933 
-    2986    3035    -0.839206 
-    2987    1881    -0.000022 
-    2987    1882    -3.607311 
-    2987    1883    -6.097798 
-    2987    2937    -0.000005 
-    2987    2938    -0.785365 
-    2987    2939    -1.327581 
-    2987    2982    -0.000005 
-    2987    2983    -0.889449 
-    2987    2984    -1.503523 
-    2987    2985    0.000370 
-    2987    2986    6.907690 
-    2987    2987    11.676758 
-    2987    2988    -0.000005 
-    2987    2989    -0.763978 
-    2987    2990    -1.291428 
-    2987    3033    -0.000005 
-    2987    3034    -0.858586 
-    2987    3035    -1.451353 
-    2988    1884    -0.052925 
-    2988    2940    -0.000414 
-    2988    2985    -0.007492 
-    2988    2986    4.275631 
-    2988    2987    7.227526 
-    2988    2988    116.949170 
-    2988    2989    -75.896088 
-    2988    2990    -128.294650 
-    2988    2991    -0.000414 
-    2988    3036    -0.017678 
-    2988    3037    3.231911 
-    2988    3038    5.463220 
-    2989    2987    -1.170828 
-    2989    2989    -22.299969 
-    2989    2990    19.738918 
-    2989    3038    -0.885016 
-    2990    1884    -0.000027 
-    2990    1885    -4.327036 
-    2990    1886    -7.314416 
-    2990    2940    -0.000004 
-    2990    2941    -0.701464 
-    2990    2942    -1.185754 
-    2990    2985    -0.000005 
-    2990    2986    -0.763978 
-    2990    2987    -1.291428 
-    2990    2988    0.000318 
-    2990    2989    7.213790 
-    2990    2990    12.194183 
-    2990    2991    -0.000004 
-    2990    2992    -0.700525 
-    2990    2993    -1.184166 
-    2990    3036    -0.000004 
-    2990    3037    -0.718283 
-    2990    3038    -1.214186 
-    2991    1887    -0.052635 
-    2991    2943    -0.000426 
-    2991    2988    -0.026024 
-    2991    2989    5.218415 
-    2991    2990    8.821202 
-    2991    2991    116.969630 
-    2991    2992    -77.511946 
-    2991    2993    -131.026190 
-    2991    2994    -0.000436 
-    2991    3039    -0.029847 
-    2991    3040    3.909314 
-    2991    3041    6.608305 
-    2992    2990    -1.428979 
-    2992    2992    -22.306268 
-    2992    2993    20.165486 
-    2992    3041    -1.070498 
-    2993    1887    -0.000027 
-    2993    1888    -4.327819 
-    2993    1889    -7.315746 
-    2993    2943    -0.000004 
-    2993    2944    -0.701705 
-    2993    2945    -1.186162 
-    2993    2988    -0.000004 
-    2993    2989    -0.700525 
-    2993    2990    -1.184166 
-    2993    2991    0.000319 
-    2993    2992    7.151861 
-    2993    2993    12.089506 
-    2993    2994    -0.000005 
-    2993    2995    -0.717940 
-    2993    2996    -1.213607 
-    2993    3039    -0.000004 
-    2993    3040    -0.701364 
-    2993    3041    -1.185587 
-    2994    1890    -0.050597 
-    2994    2946    -0.000473 
-    2994    2991    -0.034251 
-    2994    2992    6.289234 
-    2994    2993    10.631321 
-    2994    2994    122.846130 
-    2994    2995    -83.034678 
-    2994    2996    -140.361740 
-    2994    2997    -0.000511 
-    2994    3042    -0.043417 
-    2994    3043    4.938726 
-    2994    3044    8.348418 
-    2995    2993    -1.722176 
-    2995    2995    -23.428959 
-    2995    2996    21.606154 
-    2995    3044    -1.352361 
-    2996    1890    -0.000027 
-    2996    1891    -4.118346 
-    2996    1892    -6.961649 
-    2996    2946    -0.000005 
-    2996    2947    -0.753908 
-    2996    2948    -1.274405 
-    2996    2991    -0.000005 
-    2996    2992    -0.717940 
-    2996    2993    -1.213607 
-    2996    2994    0.000334 
-    2996    2995    7.144039 
-    2996    2996    12.076278 
-    2996    2997    -0.000005 
-    2996    2998    -0.814435 
-    2996    2999    -1.376720 
-    2996    3042    -0.000005 
-    2996    3043    -0.736774 
-    2996    3044    -1.245443 
-    2997    1893    -0.045817 
-    2997    2949    -0.000611 
-    2997    2994    -0.050044 
-    2997    2995    7.160969 
-    2997    2996    12.104894 
-    2997    2997    152.200950 
-    2997    2998    -103.068430 
-    2997    2999    -174.226880 
-    2997    3000    -0.000668 
-    2997    3045    -0.072043 
-    2997    3046    7.035841 
-    2997    3047    11.893386 
-    2998    2996    -1.960842 
-    2998    2998    -29.014860 
-    2998    2999    26.803302 
-    2998    3047    -1.926574 
-    2999    1893    -0.000022 
-    2999    1894    -3.327678 
-    2999    1895    -5.625107 
-    2999    2949    -0.000006 
-    2999    2950    -0.944176 
-    2999    2951    -1.596036 
-    2999    2994    -0.000005 
-    2999    2995    -0.814435 
-    2999    2996    -1.376720 
-    2999    2997    0.000403 
-    2999    2998    7.034397 
-    2999    2999    11.890944 
-    2999    3000    -0.000007 
-    2999    3001    -1.033222 
-    2999    3002    -1.746558 
-    2999    3045    -0.000006 
-    2999    3046    -0.911620 
-    2999    3047    -1.541002 
-    3000    1896    -0.039785 
-    3000    2952    -0.000790 
-    3000    2997    -0.123653 
-    3000    2998    7.887425 
-    3000    2999    13.332903 
-    3000    3000    198.981280 
-    3000    3001    -136.765470 
-    3000    3002    -231.188230 
-    3000    3003    -0.000867 
-    3000    3048    -0.215836 
-    3000    3049    12.586195 
-    3000    3050    21.275686 
-    3001    2999    -2.159719 
-    3001    3001    -37.941031 
-    3001    3002    35.596443 
-    3001    3050    -3.446350 
-    3002    1896    -0.000018 
-    3002    1897    -2.555645 
-    3002    1898    -4.320061 
-    3002    2952    -0.000008 
-    3002    2953    -1.188745 
-    3002    2954    -2.009454 
-    3002    2997    -0.000007 
-    3002    2998    -1.033222 
-    3002    2999    -1.746558 
-    3002    3000    0.000515 
-    3002    3001    7.274993 
-    3002    3002    12.297642 
-    3002    3003    -0.000009 
-    3002    3004    -1.304463 
-    3002    3005    -2.205063 
-    3002    3048    -0.000008 
-    3002    3049    -1.188647 
-    3002    3050    -2.009287 
-    3003    1899    -0.032199 
-    3003    2955    -0.000995 
-    3003    3000    -0.138717 
-    3003    3001    11.658090 
-    3003    3002    19.706825 
-    3003    3003    239.812300 
-    3003    3004    -151.846150 
-    3003    3005    -256.680730 
-    3003    3006    -0.001073 
-    3004    3002    -3.192137 
-    3004    3004    -45.756514 
-    3004    3005    39.333292 
-    3005    1899    -0.000015 
-    3005    1900    -2.113221 
-    3005    1901    -3.572189 
-    3005    2955    -0.000010 
-    3005    2956    -1.452776 
-    3005    2957    -2.455772 
-    3005    3000    -0.000009 
-    3005    3001    -1.304463 
-    3005    3002    -2.205063 
-    3005    3003    0.000607 
-    3005    3004    6.442203 
-    3005    3005    10.889900 
-    3005    3006    -0.000011 
-    3005    3007    -1.566592 
-    3005    3008    -2.648166 
-    3006    1902    -0.031922 
-    3006    2958    -0.001199 
-    3006    3003    -0.077473 
-    3006    3004    4.895659 
-    3006    3005    8.275621 
-    3006    3006    286.484620 
-    3006    3007    -172.456830 
-    3006    3008    -291.520850 
-    3007    3005    -1.340467 
-    3007    3007    -54.683742 
-    3007    3008    44.540689 
-    3008    1902    -0.000013 
-    3008    1903    -1.767325 
-    3008    1904    -2.987485 
-    3008    2958    -0.000013 
-    3008    2959    -1.733297 
-    3008    2960    -2.929964 
-    3008    3003    -0.000011 
-    3008    3004    -1.566592 
-    3008    3005    -2.648166 
-    3008    3006    0.000707 
-    3008    3007    5.073372 
-    3008    3008    8.576024 
-    3009    3009    1.000000 
-    3010    3010    1.000000 
-    3011    3011    1.000000 
-    3012    3012    1.000000 
-    3013    3013    1.000000 
-    3014    3014    1.000000 
-    3015    3015    1.000000 
-    3016    3016    1.000000 
-    3017    3017    1.000000 
-    3018    3018    1.000000 
-    3019    3019    1.000000 
-    3020    3020    1.000000 
-    3021    3021    1.000000 
-    3022    3022    1.000000 
-    3023    3023    1.000000 
-    3024    3024    1.000000 
-    3025    3025    1.000000 
-    3026    3026    1.000000 
-    3027    1923    -0.051506 
-    3027    2979    -0.006156 
-    3027    3027    175.387120 
-    3027    3028    -104.234320 
-    3027    3029    -176.197690 
-    3027    3030    -0.008636 
-    3027    3075    -0.000588 
-    3027    3076    1.645896 
-    3027    3077    2.782222 
-    3028    3028    -33.421480 
-    3028    3029    27.047472 
-    3028    3077    -0.450718 
-    3029    1923    -0.000017 
-    3029    1924    -2.881140 
-    3029    1925    -4.870280 
-    3029    2979    -0.000006 
-    3029    2980    -1.051570 
-    3029    2981    -1.777574 
-    3029    3027    0.000446 
-    3029    3028    6.038001 
-    3029    3029    10.206637 
-    3029    3030    -0.000006 
-    3029    3031    -1.049945 
-    3029    3032    -1.774827 
-    3029    3075    -0.000006 
-    3029    3076    -1.051602 
-    3029    3077    -1.777628 
-    3030    1926    -0.051856 
-    3030    2982    -0.007689 
-    3030    3027    -0.000591 
-    3030    3028    1.734777 
-    3030    3029    2.932467 
-    3030    3030    175.382140 
-    3030    3031    -106.645850 
-    3030    3032    -180.274020 
-    3030    3033    -0.028402 
-    3030    3078    -0.008770 
-    3030    3079    2.323025 
-    3030    3080    3.926838 
-    3031    3029    -0.475056 
-    3031    3031    -33.425726 
-    3031    3032    27.697435 
-    3031    3080    -0.636144 
-    3032    1926    -0.000017 
-    3032    1927    -2.888000 
-    3032    1928    -4.881872 
-    3032    2982    -0.000006 
-    3032    2983    -0.996054 
-    3032    2984    -1.683728 
-    3032    3027    -0.000006 
-    3032    3028    -1.049945 
-    3032    3029    -1.774827 
-    3032    3030    0.000451 
-    3032    3031    6.943351 
-    3032    3032    11.737033 
-    3032    3033    -0.000006 
-    3032    3034    -0.953881 
-    3032    3035    -1.612439 
-    3032    3078    -0.000006 
-    3032    3079    -1.051725 
-    3032    3080    -1.777834 
-    3033    1929    -0.052252 
-    3033    2985    -0.000489 
-    3033    3030    -0.000543 
-    3033    3031    2.848468 
-    3033    3032    4.815047 
-    3033    3033    146.177530 
-    3033    3034    -90.982103 
-    3033    3035    -153.796150 
-    3033    3036    -0.000640 
-    3033    3081    -0.006010 
-    3033    3082    2.651522 
-    3033    3083    4.482132 
-    3034    3032    -0.780029 
-    3034    3034    -27.862876 
-    3034    3035    23.639133 
-    3034    3083    -0.726097 
-    3035    1929    -0.000021 
-    3035    1930    -3.463328 
-    3035    1931    -5.854410 
-    3035    2985    -0.000005 
-    3035    2986    -0.858586 
-    3035    2987    -1.451353 
-    3035    3030    -0.000006 
-    3035    3031    -0.953881 
-    3035    3032    -1.612439 
-    3035    3033    0.000383 
-    3035    3034    6.954253 
-    3035    3035    11.755468 
-    3035    3036    -0.000005 
-    3035    3037    -0.798951 
-    3035    3038    -1.350547 
-    3035    3081    -0.000005 
-    3035    3082    -0.876382 
-    3035    3083    -1.481436 
-    3036    1932    -0.052868 
-    3036    2988    -0.000417 
-    3036    3033    -0.000463 
-    3036    3034    3.728140 
-    3036    3035    6.302048 
-    3036    3036    122.779940 
-    3036    3037    -78.539113 
-    3036    3038    -132.762450 
-    3036    3039    -0.000416 
-    3036    3084    -0.009392 
-    3036    3085    3.008693 
-    3036    3086    5.085891 
-    3037    3035    -1.020913 
-    3037    3037    -23.411151 
-    3037    3038    20.420065 
-    3037    3086    -0.823899 
-    3038    1932    -0.000025 
-    3038    1933    -4.124800 
-    3038    1934    -6.972558 
-    3038    2988    -0.000004 
-    3038    2989    -0.718283 
-    3038    2990    -1.214186 
-    3038    3033    -0.000005 
-    3038    3034    -0.798951 
-    3038    3035    -1.350547 
-    3038    3036    0.000330 
-    3038    3037    7.097995 
-    3038    3038    11.998445 
-    3038    3039    -0.000004 
-    3038    3040    -0.717180 
-    3038    3041    -1.212320 
-    3038    3084    -0.000004 
-    3038    3085    -0.736153 
-    3038    3086    -1.244392 
-    3039    1935    -0.052990 
-    3039    2991    -0.000417 
-    3039    3036    -0.013775 
-    3039    3037    4.571886 
-    3039    3038    7.728312 
-    3039    3039    116.948740 
-    3039    3040    -76.761331 
-    3039    3041    -129.757350 
-    3039    3042    -0.000427 
-    3039    3087    -0.018424 
-    3039    3088    3.797739 
-    3039    3089    6.419699 
-    3040    3038    -1.251951 
-    3040    3040    -22.302868 
-    3040    3041    19.968614 
-    3040    3089    -1.039959 
-    3041    1935    -0.000027 
-    3041    1936    -4.332423 
-    3041    1937    -7.323529 
-    3041    2991    -0.000004 
-    3041    2992    -0.701364 
-    3041    2993    -1.185587 
-    3041    3036    -0.000004 
-    3041    3037    -0.717180 
-    3041    3038    -1.212320 
-    3041    3039    0.000318 
-    3041    3040    7.172015 
-    3041    3041    12.123573 
-    3041    3042    -0.000004 
-    3041    3043    -0.717473 
-    3041    3044    -1.212817 
-    3041    3087    -0.000004 
-    3041    3088    -0.701068 
-    3041    3089    -1.185086 
-    3042    1938    -0.052052 
-    3042    2994    -0.000451 
-    3042    3039    -0.022481 
-    3042    3040    5.474747 
-    3042    3041    9.254513 
-    3042    3042    122.810080 
-    3042    3043    -82.076518 
-    3042    3044    -138.742050 
-    3042    3045    -0.000498 
-    3042    3090    -0.034770 
-    3042    3091    4.795548 
-    3042    3092    8.106390 
-    3043    3041    -1.499165 
-    3043    3043    -23.425410 
-    3043    3044    21.352934 
-    3043    3092    -1.313175 
-    3044    1938    -0.000026 
-    3044    1939    -4.122364 
-    3044    1940    -6.968440 
-    3044    2994    -0.000005 
-    3044    2995    -0.736774 
-    3044    2996    -1.245443 
-    3044    3039    -0.000004 
-    3044    3040    -0.717473 
-    3044    3041    -1.212817 
-    3044    3042    0.000333 
-    3044    3043    7.129001 
-    3044    3044    12.050855 
-    3044    3045    -0.000005 
-    3044    3046    -0.814188 
-    3044    3047    -1.376303 
-    3044    3090    -0.000005 
-    3044    3091    -0.735566 
-    3044    3092    -1.243400 
-    3045    1941    -0.049918 
-    3045    2997    -0.000574 
-    3045    3042    -0.033660 
-    3045    3043    6.332380 
-    3045    3044    10.704248 
-    3045    3045    152.034910 
-    3045    3046    -99.703530 
-    3045    3047    -168.538850 
-    3045    3048    -0.000650 
-    3045    3093    -0.005821 
-    3045    3094    4.466525 
-    3045    3095    7.550213 
-    3046    3044    -1.733981 
-    3046    3046    -29.011120 
-    3046    3047    25.891734 
-    3046    3095    -1.223051 
-    3047    1941    -0.000022 
-    3047    1942    -3.334240 
-    3047    1943    -5.636199 
-    3047    2997    -0.000006 
-    3047    2998    -0.911620 
-    3047    2999    -1.541002 
-    3047    3042    -0.000005 
-    3047    3043    -0.814188 
-    3047    3044    -1.376303 
-    3047    3045    0.000401 
-    3047    3046    7.007365 
-    3047    3047    11.845249 
-    3047    3048    -0.000007 
-    3047    3049    -1.032927 
-    3047    3050    -1.746060 
-    3047    3093    -0.000006 
-    3047    3094    -0.911125 
-    3047    3095    -1.540166 
-    3048    1944    -0.047987 
-    3048    3000    -0.000761 
-    3048    3045    -0.017674 
-    3048    3046    4.919676 
-    3048    3047    8.316221 
-    3048    3048    198.903700 
-    3048    3049    -127.310250 
-    3048    3050    -215.205070 
-    3048    3096    -0.008591 
-    3048    3097    6.176205 
-    3048    3098    10.440251 
-    3049    3047    -1.347120 
-    3049    3049    -37.945497 
-    3049    3050    32.997687 
-    3049    3098    -1.691188 
-    3050    1944    -0.000017 
-    3050    1945    -2.550221 
-    3050    1946    -4.310890 
-    3050    3000    -0.000008 
-    3050    3001    -1.188647 
-    3050    3002    -2.009287 
-    3050    3045    -0.000007 
-    3050    3046    -1.032927 
-    3050    3047    -1.746060 
-    3050    3048    0.000505 
-    3050    3049    5.948867 
-    3050    3050    10.055958 
-    3050    3096    -0.000008 
-    3050    3097    -1.172799 
-    3050    3098    -1.982498 
-    3051    3051    1.000000 
-    3052    3052    1.000000 
-    3053    3053    1.000000 
-    3054    3054    1.000000 
-    3055    3055    1.000000 
-    3056    3056    1.000000 
-    3057    3057    1.000000 
-    3058    3058    1.000000 
-    3059    3059    1.000000 
-    3060    3060    1.000000 
-    3061    3061    1.000000 
-    3062    3062    1.000000 
-    3063    3063    1.000000 
-    3064    3064    1.000000 
-    3065    3065    1.000000 
-    3066    3066    1.000000 
-    3067    3067    1.000000 
-    3068    3068    1.000000 
-    3069    3069    1.000000 
-    3070    3070    1.000000 
-    3071    3071    1.000000 
-    3072    3072    1.000000 
-    3073    3073    1.000000 
-    3074    3074    1.000000 
-    3075    1971    -0.051494 
-    3075    3027    -0.009576 
-    3075    3075    175.386370 
-    3075    3076    -103.734500 
-    3075    3077    -175.352800 
-    3075    3078    -0.025780 
-    3075    3123    -0.000584 
-    3075    3124    1.146120 
-    3075    3125    1.937401 
-    3076    3076    -33.417286 
-    3076    3077    26.920936 
-    3076    3125    -0.313859 
-    3077    1971    -0.000017 
-    3077    1972    -2.881532 
-    3077    1973    -4.870942 
-    3077    3027    -0.000006 
-    3077    3028    -1.051602 
-    3077    3029    -1.777628 
-    3077    3075    0.000445 
-    3077    3076    6.038774 
-    3077    3077    10.207943 
-    3077    3078    -0.000006 
-    3077    3079    -1.050140 
-    3077    3080    -1.775157 
-    3077    3123    -0.000006 
-    3077    3124    -1.051757 
-    3077    3125    -1.777891 
-    3078    1974    -0.051778 
-    3078    3030    -0.000587 
-    3078    3075    -0.000586 
-    3078    3076    1.059146 
-    3078    3077    1.790380 
-    3078    3078    175.416220 
-    3078    3079    -105.396550 
-    3078    3080    -178.162180 
-    3078    3081    -0.027000 
-    3078    3126    -0.000577 
-    3078    3127    1.752014 
-    3078    3128    2.961602 
-    3079    3077    -0.290040 
-    3079    3079    -33.422495 
-    3079    3080    27.363394 
-    3079    3128    -0.479779 
-    3080    1974    -0.000017 
-    3080    1975    -2.885760 
-    3080    1976    -4.878084 
-    3080    3030    -0.000006 
-    3080    3031    -1.051725 
-    3080    3032    -1.777834 
-    3080    3075    -0.000006 
-    3080    3076    -1.050140 
-    3080    3077    -1.775157 
-    3080    3078    0.000451 
-    3080    3079    6.979811 
-    3080    3080    11.798665 
-    3080    3081    -0.000006 
-    3080    3082    -0.954525 
-    3080    3083    -1.613527 
-    3080    3126    -0.000006 
-    3080    3127    -1.033917 
-    3080    3128    -1.747733 
-    3081    1977    -0.052196 
-    3081    3033    -0.000493 
-    3081    3078    -0.000537 
-    3081    3079    2.070671 
-    3081    3080    3.500259 
-    3081    3081    146.173570 
-    3081    3082    -89.727004 
-    3081    3083    -151.674530 
-    3081    3084    -0.005342 
-    3081    3129    -0.003462 
-    3081    3130    2.179455 
-    3081    3131    3.684150 
-    3082    3080    -0.567039 
-    3082    3082    -27.858703 
-    3082    3083    23.305832 
-    3082    3131    -0.596829 
-    3083    1977    -0.000020 
-    3083    1978    -3.461300 
-    3083    1979    -5.850982 
-    3083    3033    -0.000005 
-    3083    3034    -0.876382 
-    3083    3035    -1.481436 
-    3083    3078    -0.000006 
-    3083    3079    -0.954525 
-    3083    3080    -1.613527 
-    3083    3081    0.000383 
-    3083    3082    6.952922 
-    3083    3083    11.753218 
-    3083    3084    -0.000005 
-    3083    3085    -0.799048 
-    3083    3086    -1.350711 
-    3083    3129    -0.000005 
-    3083    3130    -0.858544 
-    3083    3131    -1.451282 
-    3084    1980    -0.052843 
-    3084    3036    -0.000420 
-    3084    3081    -0.000456 
-    3084    3082    2.880340 
-    3084    3083    4.868927 
-    3084    3084    122.771330 
-    3084    3085    -77.362189 
-    3084    3086    -130.772960 
-    3084    3087    -0.000409 
-    3084    3132    -0.011494 
-    3084    3133    2.668981 
-    3084    3134    4.511643 
-    3085    3083    -0.788757 
-    3085    3085    -23.406774 
-    3085    3086    20.108738 
-    3085    3134    -0.730878 
-    3086    1980    -0.000025 
-    3086    1981    -4.122979 
-    3086    1982    -6.969480 
-    3086    3036    -0.000004 
-    3086    3037    -0.736153 
-    3086    3038    -1.244392 
-    3086    3081    -0.000005 
-    3086    3082    -0.799048 
-    3086    3083    -1.350711 
-    3086    3084    0.000329 
-    3086    3085    7.095763 
-    3086    3086    11.994671 
-    3086    3087    -0.000004 
-    3086    3088    -0.716721 
-    3086    3089    -1.211544 
-    3086    3132    -0.000004 
-    3086    3133    -0.718236 
-    3086    3134    -1.214106 
-    3087    1983    -0.053129 
-    3087    3039    -0.000408 
-    3087    3084    -0.004076 
-    3087    3085    3.615660 
-    3087    3086    6.111908 
-    3087    3087    116.927240 
-    3087    3088    -75.851741 
-    3087    3089    -128.219780 
-    3087    3090    -0.000418 
-    3087    3135    -0.018922 
-    3087    3136    3.846637 
-    3087    3137    6.502356 
-    3088    3086    -0.990110 
-    3088    3088    -22.298205 
-    3088    3089    19.731273 
-    3088    3137    -1.053362 
-    3089    1983    -0.000026 
-    3089    1984    -4.336609 
-    3089    1985    -7.330604 
-    3089    3039    -0.000004 
-    3089    3040    -0.701068 
-    3089    3041    -1.185086 
-    3089    3084    -0.000004 
-    3089    3085    -0.716721 
-    3089    3086    -1.211544 
-    3089    3087    0.000317 
-    3089    3088    7.175295 
-    3089    3089    12.129118 
-    3089    3090    -0.000004 
-    3089    3091    -0.717509 
-    3089    3092    -1.212877 
-    3089    3135    -0.000004 
-    3089    3136    -0.700884 
-    3089    3137    -1.184775 
-    3090    1986    -0.052581 
-    3090    3042    -0.000439 
-    3090    3087    -0.007420 
-    3090    3088    4.683879 
-    3090    3089    7.917630 
-    3090    3090    122.839510 
-    3090    3091    -83.210913 
-    3090    3092    -140.659650 
-    3090    3093    -0.000486 
-    3090    3138    -0.026702 
-    3090    3139    6.726466 
-    3090    3140    11.370411 
-    3091    3089    -1.282616 
-    3091    3091    -23.421014 
-    3091    3092    21.674765 
-    3091    3140    -1.841960 
-    3092    1986    -0.000026 
-    3092    1987    -4.127419 
-    3092    1988    -6.976984 
-    3092    3042    -0.000005 
-    3092    3043    -0.735566 
-    3092    3044    -1.243400 
-    3092    3087    -0.000004 
-    3092    3088    -0.717509 
-    3092    3089    -1.212877 
-    3092    3090    0.000332 
-    3092    3091    7.150266 
-    3092    3092    12.086803 
-    3092    3093    -0.000005 
-    3092    3094    -0.814816 
-    3092    3095    -1.377364 
-    3092    3138    -0.000005 
-    3092    3139    -0.752324 
-    3092    3140    -1.271728 
-    3093    1989    -0.051129 
-    3093    3045    -0.000563 
-    3093    3090    -0.067005 
-    3093    3091    7.655198 
-    3093    3092    12.940339 
-    3093    3093    151.975000 
-    3093    3094    -96.579452 
-    3093    3095    -163.257900 
-    3093    3096    -0.000631 
-    3094    3092    -2.096239 
-    3094    3094    -29.003616 
-    3094    3095    25.055078 
-    3095    1989    -0.000021 
-    3095    1990    -3.329250 
-    3095    1991    -5.627765 
-    3095    3045    -0.000006 
-    3095    3046    -0.911125 
-    3095    3047    -1.540166 
-    3095    3090    -0.000005 
-    3095    3091    -0.814816 
-    3095    3092    -1.377364 
-    3095    3093    0.000395 
-    3095    3094    6.078102 
-    3095    3095    10.274423 
-    3095    3096    -0.000007 
-    3095    3097    -1.019649 
-    3095    3098    -1.723615 
-    3096    1992    -0.050210 
-    3096    3048    -0.000737 
-    3096    3093    -0.016492 
-    3096    3094    4.485347 
-    3096    3095    7.582031 
-    3096    3096    192.863050 
-    3096    3097    -117.341770 
-    3096    3098    -198.354410 
-    3097    3095    -1.228204 
-    3097    3097    -36.819304 
-    3097    3098    30.348281 
-    3098    1992    -0.000017 
-    3098    1993    -2.627090 
-    3098    1994    -4.440830 
-    3098    3048    -0.000008 
-    3098    3049    -1.172799 
-    3098    3050    -1.982498 
-    3098    3093    -0.000007 
-    3098    3094    -1.019649 
-    3098    3095    -1.723615 
-    3098    3096    0.000483 
-    3098    3097    4.823681 
-    3098    3098    8.153946 
-    3099    3099    1.000000 
-    3100    3100    1.000000 
-    3101    3101    1.000000 
-    3102    3102    1.000000 
-    3103    3103    1.000000 
-    3104    3104    1.000000 
-    3105    3105    1.000000 
-    3106    3106    1.000000 
-    3107    3107    1.000000 
-    3108    3108    1.000000 
-    3109    3109    1.000000 
-    3110    3110    1.000000 
-    3111    3111    1.000000 
-    3112    3112    1.000000 
-    3113    3113    1.000000 
-    3114    3114    1.000000 
-    3115    3115    1.000000 
-    3116    3116    1.000000 
-    3117    3117    1.000000 
-    3118    3118    1.000000 
-    3119    3119    1.000000 
-    3120    3120    1.000000 
-    3121    3121    1.000000 
-    3122    3122    1.000000 
-    3123    2019    -0.051492 
-    3123    3075    -0.004367 
-    3123    3123    175.384750 
-    3123    3124    -102.592570 
-    3123    3125    -173.422480 
-    3123    3126    -0.023788 
-    3124    3124    -33.414684 
-    3124    3125    26.614646 
-    3125    2019    -0.000017 
-    3125    2020    -2.879925 
-    3125    2021    -4.868225 
-    3125    3075    -0.000006 
-    3125    3076    -1.051757 
-    3125    3077    -1.777891 
-    3125    3123    0.000439 
-    3125    3124    4.967957 
-    3125    3125    8.397835 
-    3125    3126    -0.000006 
-    3125    3127    -1.032534 
-    3125    3128    -1.745396 
-    3126    2022    -0.051840 
-    3126    3078    -0.005853 
-    3126    3123    -0.000572 
-    3126    3124    0.416853 
-    3126    3125    0.704649 
-    3126    3126    169.559040 
-    3126    3127    -100.616180 
-    3126    3128    -170.081480 
-    3126    3129    -0.033882 
-    3126    3174    -0.003079 
-    3126    3175    1.034420 
-    3126    3176    1.748582 
-    3127    3125    -0.114153 
-    3127    3127    -32.304568 
-    3127    3128    26.113754 
-    3127    3176    -0.283270 
-    3128    2022    -0.000017 
-    3128    2023    -2.983769 
-    3128    2024    -5.043760 
-    3128    3078    -0.000006 
-    3128    3079    -1.033917 
-    3128    3080    -1.747733 
-    3128    3123    -0.000006 
-    3128    3124    -1.032534 
-    3128    3125    -1.745396 
-    3128    3126    0.000437 
-    3128    3127    6.934065 
-    3128    3128    11.721336 
-    3128    3129    -0.000005 
-    3128    3130    -0.919168 
-    3128    3131    -1.553760 
-    3128    3174    -0.000006 
-    3128    3175    -0.961059 
-    3128    3176    -1.624572 
-    3129    2025    -0.052323 
-    3129    3081    -0.000478 
-    3129    3126    -0.000512 
-    3129    3127    1.218111 
-    3129    3128    2.059094 
-    3129    3129    140.336210 
-    3129    3130    -84.868844 
-    3129    3131    -143.462290 
-    3129    3132    -0.014245 
-    3129    3177    -0.002348 
-    3129    3178    1.584534 
-    3129    3179    2.678497 
-    3130    3128    -0.333573 
-    3130    3130    -26.740796 
-    3130    3131    22.034918 
-    3130    3179    -0.433916 
-    3131    2025    -0.000021 
-    3131    2026    -3.604792 
-    3131    2027    -6.093541 
-    3131    3081    -0.000005 
-    3131    3082    -0.858544 
-    3131    3083    -1.451282 
-    3131    3126    -0.000005 
-    3131    3127    -0.919168 
-    3131    3128    -1.553760 
-    3131    3129    0.000369 
-    3131    3130    6.934774 
-    3131    3131    11.722541 
-    3131    3132    -0.000004 
-    3131    3133    -0.763958 
-    3131    3134    -1.291395 
-    3131    3177    -0.000005 
-    3131    3178    -0.785315 
-    3131    3179    -1.327497 
-    3132    2028    -0.052937 
-    3132    3084    -0.000404 
-    3132    3129    -0.000430 
-    3132    3130    1.854249 
-    3132    3131    3.134422 
-    3132    3132    116.937180 
-    3132    3133    -72.342964 
-    3132    3134    -122.288470 
-    3132    3135    -0.004515 
-    3132    3180    -0.004638 
-    3132    3181    2.104738 
-    3132    3182    3.557846 
-    3133    3131    -0.507774 
-    3133    3133    -22.288761 
-    3133    3134    18.794041 
-    3133    3182    -0.576369 
-    3134    2028    -0.000025 
-    3134    2029    -4.326679 
-    3134    2030    -7.313814 
-    3134    3084    -0.000004 
-    3134    3085    -0.718236 
-    3134    3086    -1.214106 
-    3134    3129    -0.000004 
-    3134    3130    -0.763958 
-    3134    3131    -1.291395 
-    3134    3132    0.000316 
-    3134    3133    7.213076 
-    3134    3134    12.192977 
-    3134    3135    -0.000004 
-    3134    3136    -0.700651 
-    3134    3137    -1.184379 
-    3134    3180    -0.000004 
-    3134    3181    -0.701053 
-    3134    3182    -1.185059 
-    3135    2031    -0.053057 
-    3135    3087    -0.000399 
-    3135    3132    -0.000399 
-    3135    3133    2.292791 
-    3135    3134    3.875731 
-    3135    3135    116.930790 
-    3135    3136    -73.470486 
-    3135    3137    -124.194510 
-    3135    3138    -0.000418 
-    3135    3183    -0.004731 
-    3135    3184    2.787532 
-    3135    3185    4.712045 
-    3136    3134    -0.627862 
-    3136    3136    -22.293510 
-    3136    3137    19.090994 
-    3136    3185    -0.763344 
-    3137    2031    -0.000026 
-    3137    2032    -4.327212 
-    3137    2033    -7.314718 
-    3137    3087    -0.000004 
-    3137    3088    -0.700884 
-    3137    3089    -1.184775 
-    3137    3132    -0.000004 
-    3137    3133    -0.700651 
-    3137    3134    -1.184379 
-    3137    3135    0.000316 
-    3137    3136    7.165999 
-    3137    3137    12.113403 
-    3137    3138    -0.000004 
-    3137    3139    -0.734021 
-    3137    3140    -1.240789 
-    3137    3183    -0.000004 
-    3137    3184    -0.700730 
-    3137    3185    -1.184514 
-    3138    2034    -0.052824 
-    3138    3090    -0.000434 
-    3138    3135    -0.001348 
-    3138    3136    2.257240 
-    3138    3137    3.815638 
-    3138    3138    128.618690 
-    3138    3139    -80.808617 
-    3138    3140    -136.598800 
-    3138    3186    -0.009467 
-    3138    3187    3.328598 
-    3138    3188    5.626658 
-    3139    3137    -0.618122 
-    3139    3139    -24.527093 
-    3139    3140    20.987143 
-    3139    3188    -0.911505 
-    3140    2034    -0.000024 
-    3140    2035    -3.936805 
-    3140    2036    -6.654771 
-    3140    3090    -0.000005 
-    3140    3091    -0.752324 
-    3140    3092    -1.271728 
-    3140    3135    -0.000004 
-    3140    3136    -0.734021 
-    3140    3137    -1.240789 
-    3140    3138    0.000338 
-    3140    3139    6.214035 
-    3140    3140    10.504199 
-    3140    3186    -0.000005 
-    3140    3187    -0.788131 
-    3140    3188    -1.332257 
-    3141    3141    1.000000 
-    3142    3142    1.000000 
-    3143    3143    1.000000 
-    3144    3144    1.000000 
-    3145    3145    1.000000 
-    3146    3146    1.000000 
-    3147    3147    1.000000 
-    3148    3148    1.000000 
-    3149    3149    1.000000 
-    3150    3150    1.000000 
-    3151    3151    1.000000 
-    3152    3152    1.000000 
-    3153    3153    1.000000 
-    3154    3154    1.000000 
-    3155    3155    1.000000 
-    3156    3156    1.000000 
-    3157    3157    1.000000 
-    3158    3158    1.000000 
-    3159    3159    1.000000 
-    3160    3160    1.000000 
-    3161    3161    1.000000 
-    3162    3162    1.000000 
-    3163    3163    1.000000 
-    3164    3164    1.000000 
-    3165    3165    1.000000 
-    3166    3166    1.000000 
-    3167    3167    1.000000 
-    3168    3168    1.000000 
-    3169    3169    1.000000 
-    3170    3170    1.000000 
-    3171    3171    1.000000 
-    3172    3172    1.000000 
-    3173    3173    1.000000 
-    3174    2070    -0.052088 
-    3174    3126    -0.000530 
-    3174    3174    152.001170 
-    3174    3175    -88.913889 
-    3174    3176    -150.299940 
-    3174    3177    -0.029814 
-    3175    3175    -28.961215 
-    3175    3176    23.061769 
-    3176    2070    -0.000019 
-    3176    2071    -3.327513 
-    3176    2072    -5.624825 
-    3176    3126    -0.000006 
-    3176    3127    -0.961059 
-    3176    3128    -1.624572 
-    3176    3174    0.000385 
-    3176    3175    5.105427 
-    3176    3176    8.630208 
-    3176    3177    -0.000005 
-    3176    3178    -0.813612 
-    3176    3179    -1.375329 
-    3177    2073    -0.052643 
-    3177    3129    -0.000434 
-    3177    3174    -0.000449 
-    3177    3175    0.312256 
-    3177    3176    0.527837 
-    3177    3177    122.796920 
-    3177    3178    -73.378153 
-    3177    3179    -124.038430 
-    3177    3180    -0.015979 
-    3177    3225    -0.000709 
-    3177    3226    1.262960 
-    3177    3227    2.134908 
-    3178    3176    -0.085510 
-    3178    3178    -23.395689 
-    3178    3179    19.045226 
-    3178    3227    -0.345856 
-    3179    2073    -0.000024 
-    3179    2074    -4.117729 
-    3179    2075    -6.960609 
-    3179    3129    -0.000005 
-    3179    3130    -0.785315 
-    3179    3131    -1.327497 
-    3179    3174    -0.000005 
-    3179    3175    -0.813612 
-    3179    3176    -1.375329 
-    3179    3177    0.000328 
-    3179    3178    7.155242 
-    3179    3179    12.095220 
-    3179    3180    -0.000004 
-    3179    3181    -0.717735 
-    3179    3182    -1.213259 
-    3179    3225    -0.000004 
-    3179    3226    -0.718229 
-    3179    3227    -1.214095 
-    3180    2076    -0.052986 
-    3180    3132    -0.000390 
-    3180    3177    -0.000399 
-    3180    3178    1.035362 
-    3180    3179    1.750175 
-    3180    3180    116.935840 
-    3180    3181    -71.087844 
-    3180    3182    -120.166810 
-    3180    3183    -0.004602 
-    3180    3228    -0.000390 
-    3180    3229    1.662928 
-    3180    3230    2.811012 
-    3181    3179    -0.283528 
-    3181    3181    -22.285431 
-    3181    3182    18.458632 
-    3181    3230    -0.455385 
-    3182    2076    -0.000025 
-    3182    2077    -4.323339 
-    3182    2078    -7.308167 
-    3182    3132    -0.000004 
-    3182    3133    -0.701053 
-    3182    3134    -1.185059 
-    3182    3177    -0.000004 
-    3182    3178    -0.717735 
-    3182    3179    -1.213259 
-    3182    3180    0.000315 
-    3182    3181    7.146388 
-    3182    3182    12.080246 
-    3182    3183    -0.000004 
-    3182    3184    -0.700761 
-    3182    3185    -1.184566 
-    3182    3228    -0.000004 
-    3182    3229    -0.701002 
-    3182    3230    -1.184974 
-    3183    2079    -0.053022 
-    3183    3135    -0.000393 
-    3183    3180    -0.000393 
-    3183    3181    1.609325 
-    3183    3182    2.720402 
-    3183    3183    116.922090 
-    3183    3184    -72.281303 
-    3183    3185    -122.184320 
-    3183    3186    -0.003415 
-    3183    3231    -0.000412 
-    3183    3232    2.286183 
-    3183    3233    3.864564 
-    3184    3182    -0.440704 
-    3184    3184    -22.288936 
-    3184    3185    18.776741 
-    3184    3233    -0.626058 
-    3185    2079    -0.000025 
-    3185    2080    -4.327224 
-    3185    2081    -7.314740 
-    3185    3135    -0.000004 
-    3185    3136    -0.700730 
-    3185    3137    -1.184514 
-    3185    3180    -0.000004 
-    3185    3181    -0.700761 
-    3185    3182    -1.184566 
-    3185    3183    0.000316 
-    3185    3184    7.214881 
-    3185    3185    12.196034 
-    3185    3186    -0.000004 
-    3185    3187    -0.749608 
-    3185    3188    -1.267137 
-    3185    3231    -0.000004 
-    3185    3232    -0.734058 
-    3185    3233    -1.240852 
-    3186    2082    -0.052729 
-    3186    3138    -0.000447 
-    3186    3183    -0.000425 
-    3186    3184    2.121216 
-    3186    3185    3.585703 
-    3186    3186    134.454320 
-    3186    3187    -80.766249 
-    3186    3188    -136.527180 
-    3187    3185    -0.580879 
-    3187    3187    -25.636890 
-    3187    3188    20.936337 
-    3188    2082    -0.000022 
-    3188    2083    -3.762768 
-    3188    2084    -6.360580 
-    3188    3138    -0.000005 
-    3188    3139    -0.788131 
-    3188    3140    -1.332257 
-    3188    3183    -0.000004 
-    3188    3184    -0.749608 
-    3188    3185    -1.267137 
-    3188    3186    0.000346 
-    3188    3187    5.303384 
-    3188    3188    8.964836 
-    3189    3189    1.000000 
-    3190    3190    1.000000 
-    3191    3191    1.000000 
-    3192    3192    1.000000 
-    3193    3193    1.000000 
-    3194    3194    1.000000 
-    3195    3195    1.000000 
-    3196    3196    1.000000 
-    3197    3197    1.000000 
-    3198    3198    1.000000 
-    3199    3199    1.000000 
-    3200    3200    1.000000 
-    3201    3201    1.000000 
-    3202    3202    1.000000 
-    3203    3203    1.000000 
-    3204    3204    1.000000 
-    3205    3205    1.000000 
-    3206    3206    1.000000 
-    3207    3207    1.000000 
-    3208    3208    1.000000 
-    3209    3209    1.000000 
-    3210    3210    1.000000 
-    3211    3211    1.000000 
-    3212    3212    1.000000 
-    3213    3213    1.000000 
-    3214    3214    1.000000 
-    3215    3215    1.000000 
-    3216    3216    1.000000 
-    3217    3217    1.000000 
-    3218    3218    1.000000 
-    3219    3219    1.000000 
-    3220    3220    1.000000 
-    3221    3221    1.000000 
-    3222    3222    1.000000 
-    3223    3223    1.000000 
-    3224    3224    1.000000 
-    3225    2121    -0.052989 
-    3225    3177    -0.000394 
-    3225    3225    116.927460 
-    3225    3226    -69.220622 
-    3225    3227    -117.010540 
-    3225    3228    -0.015054 
-    3225    3273    -0.000385 
-    3225    3274    0.826290 
-    3225    3275    1.396761 
-    3226    3226    -22.279374 
-    3226    3227    17.962197 
-    3226    3275    -0.226277 
-    3227    2121    -0.000025 
-    3227    2122    -4.321770 
-    3227    2123    -7.305520 
-    3227    3177    -0.000004 
-    3227    3178    -0.718229 
-    3227    3179    -1.214095 
-    3227    3225    0.000310 
-    3227    3226    6.444480 
-    3227    3227    10.893749 
-    3227    3228    -0.000004 
-    3227    3229    -0.700916 
-    3227    3230    -1.184829 
-    3227    3273    -0.000004 
-    3227    3274    -0.701069 
-    3227    3275    -1.185087 
-    3228    2124    -0.053004 
-    3228    3180    -0.000630 
-    3228    3225    -0.000386 
-    3228    3226    0.580854 
-    3228    3227    0.981876 
-    3228    3228    116.938550 
-    3228    3229    -70.175975 
-    3228    3230    -118.625400 
-    3228    3231    -0.003640 
-    3228    3276    -0.000386 
-    3228    3277    1.212652 
-    3228    3278    2.049865 
-    3229    3227    -0.159064 
-    3229    3229    -22.282337 
-    3229    3230    18.216588 
-    3229    3278    -0.332080 
-    3230    2124    -0.000025 
-    3230    2125    -4.321222 
-    3230    2126    -7.304589 
-    3230    3180    -0.000004 
-    3230    3181    -0.701002 
-    3230    3182    -1.184974 
-    3230    3225    -0.000004 
-    3230    3226    -0.700916 
-    3230    3227    -1.184829 
-    3230    3228    0.000315 
-    3230    3229    7.161095 
-    3230    3230    12.105109 
-    3230    3231    -0.000004 
-    3230    3232    -0.734503 
-    3230    3233    -1.241603 
-    3230    3276    -0.000004 
-    3230    3277    -0.700955 
-    3230    3278    -1.184894 
-    3231    2127    -0.052835 
-    3231    3183    -0.001842 
-    3231    3228    -0.000407 
-    3231    3229    1.141636 
-    3231    3230    1.929820 
-    3231    3231    128.610050 
-    3231    3232    -76.368722 
-    3231    3233    -129.093690 
-    3232    3230    -0.312632 
-    3232    3232    -24.513213 
-    3232    3233    19.805802 
-    3233    2127    -0.000023 
-    3233    2128    -3.930456 
-    3233    2129    -6.644043 
-    3233    3183    -0.000004 
-    3233    3184    -0.734058 
-    3233    3185    -1.240852 
-    3233    3228    -0.000004 
-    3233    3229    -0.734503 
-    3233    3230    -1.241603 
-    3233    3231    0.000332 
-    3233    3232    5.401765 
-    3233    3233    9.131143 
-    3234    3234    1.000000 
-    3235    3235    1.000000 
-    3236    3236    1.000000 
-    3237    3237    1.000000 
-    3238    3238    1.000000 
-    3239    3239    1.000000 
-    3240    3240    1.000000 
-    3241    3241    1.000000 
-    3242    3242    1.000000 
-    3243    3243    1.000000 
-    3244    3244    1.000000 
-    3245    3245    1.000000 
-    3246    3246    1.000000 
-    3247    3247    1.000000 
-    3248    3248    1.000000 
-    3249    3249    1.000000 
-    3250    3250    1.000000 
-    3251    3251    1.000000 
-    3252    3252    1.000000 
-    3253    3253    1.000000 
-    3254    3254    1.000000 
-    3255    3255    1.000000 
-    3256    3256    1.000000 
-    3257    3257    1.000000 
-    3258    3258    1.000000 
-    3259    3259    1.000000 
-    3260    3260    1.000000 
-    3261    3261    1.000000 
-    3262    3262    1.000000 
-    3263    3263    1.000000 
-    3264    3264    1.000000 
-    3265    3265    1.000000 
-    3266    3266    1.000000 
-    3267    3267    1.000000 
-    3268    3268    1.000000 
-    3269    3269    1.000000 
-    3270    3270    1.000000 
-    3271    3271    1.000000 
-    3272    3272    1.000000 
-    3273    2169    -0.053043 
-    3273    3225    -0.005702 
-    3273    3273    116.923770 
-    3273    3274    -68.392282 
-    3273    3275    -115.610310 
-    3273    3276    -0.015552 
-    3274    3274    -22.277164 
-    3274    3275    17.740800 
-    3275    2169    -0.000025 
-    3275    2170    -4.320365 
-    3275    2171    -7.303145 
-    3275    3225    -0.000004 
-    3275    3226    -0.701069 
-    3275    3227    -1.185087 
-    3275    3273    0.000306 
-    3275    3274    5.724840 
-    3275    3275    9.677270 
-    3275    3276    -0.000004 
-    3275    3277    -0.700912 
-    3275    3278    -1.184822 
-    3276    2172    -0.053061 
-    3276    3228    -0.005202 
-    3276    3273    -0.000383 
-    3276    3274    0.194354 
-    3276    3275    0.328536 
-    3276    3276    116.936470 
-    3276    3277    -68.581138 
-    3276    3278    -115.929490 
-    3277    3275    -0.053223 
-    3277    3277    -22.279477 
-    3277    3278    17.786906 
-    3278    2172    -0.000025 
-    3278    2173    -4.321573 
-    3278    2174    -7.305183 
-    3278    3228    -0.000004 
-    3278    3229    -0.700955 
-    3278    3230    -1.184894 
-    3278    3273    -0.000004 
-    3278    3274    -0.700912 
-    3278    3275    -1.184822 
-    3278    3276    0.000306 
-    3278    3277    5.725936 
-    3278    3278    9.679117 
-    3279    3279    1.000000 
-    3280    3280    1.000000 
-    3281    3281    1.000000 
-    3282    3282    1.000000 
-    3283    3283    1.000000 
-    3284    3284    1.000000 
-    3285    3285    1.000000 
-    3286    3286    1.000000 
-    3287    3287    1.000000 
-    3288    3288    1.000000 
-    3289    3289    1.000000 
-    3290    3290    1.000000 
-    3291    3291    1.000000 
-    3292    3292    1.000000 
-    3293    3293    1.000000 
-    3294    3294    1.000000 
-    3295    3295    1.000000 
-    3296    3296    1.000000 
-    3297    3297    1.000000 
-    3298    3298    1.000000 
-    3299    3299    1.000000 
-    3300    3300    1.000000 
-    3301    3301    1.000000 
-    3302    3302    1.000000 
-    3303    3303    1.000000 
-    3304    3304    1.000000 
-    3305    3305    1.000000 
-    3306    3306    1.000000 
-    3307    3307    1.000000 
-    3308    3308    1.000000 
-    3309    3309    1.000000 
-    3310    3310    1.000000 
-    3311    3311    1.000000 
diff --git a/mtx/test/jac.data b/mtx/test/jac.data
deleted file mode 100644
index 240419d7a..000000000
--- a/mtx/test/jac.data
+++ /dev/null
@@ -1,10741 +0,0 @@
-          15         716
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.3646840382055612E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.7875154851126848E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0022733166720472E+05
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.7127914871813438E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.0337722523519114E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.4347266508924396E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.8822468793640743E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.1645500863695561E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.5602095735894196E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.8885976690593590E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.2237684886089890E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.7701504665303626E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.0755381663259970E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.2915221748411190E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.6807346546076908E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2556684911534954E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.9570922637178028E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7257518773802261E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.5306544017162340E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3486183296721181E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1799329345534443E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0206457988354590E+04
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.7768795786180635E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.4048316733716874E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.1568823322640601E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.1268082407553402E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.3210752781100664E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.7343978499769682E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.2808679944895334E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.8922791439985240E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.5487767575499274E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2550772143009854E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0029173006865469E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7842879444952871E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.5933146255228589E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.4227529991133147E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2669767666763557E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1238761229509521E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.9797686126955011E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.9009545093282588E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.9782235397237594E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.1867910979617398E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.5214963352342875E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.9900767896450918E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.6066754624217947E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.3817717878464703E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.3118889353335283E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.3897196428474524E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.5976245024845912E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.9167789866391308E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.3248902945461555E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.7931032388534015E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.2934918421485395E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.8012850711595149E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.3050591469445385E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.7845403079048413E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.2322557812977186E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.6497920370669203E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0122139506310650E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0806940151705990E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0851342143099473E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.1494272718149168E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.1522099595364939E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2124012845107691E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2117316029072467E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2678817863792087E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1267714985965567E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1515186869968381E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1734226241939461E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1927149962705207E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2106255113380691E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2205186705438741E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2559139419025496E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2518201798536820E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2785056674414259E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2766540042637212E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2963622584564148E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2997118381161581E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3120919841371353E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3160854973541336E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3236111704459140E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3311548874452074E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3379933846262059E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3439885364945228E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3500819215447352E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3553269335613916E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3597674924435937E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3641964450989221E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3695296488212255E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3731384442342471E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3766521587100087E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3802514806404633E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3820133627837381E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3846649983120626E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3873537099370049E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3899754779007167E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3917488029185276E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3916671156666350E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3924930831802244E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3933695646755816E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3933184459100241E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3932792603804260E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3932372860420371E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3923021852358074E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3904102745829362E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3894505848285103E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3885379910207935E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3867138864252779E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3848997103230092E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3830904895353528E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3812864974970694E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3794867007266557E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3776886748531997E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3758951805396848E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3732454867524468E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3714198149044892E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3696893383838387E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3661576091362945E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3635020829369207E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3617505264817587E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3591530183097939E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3556745756791624E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3530558624245245E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3496574587093191E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3461810014861710E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3436416381500983E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3394167787717643E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3351747033034419E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3318211854059793E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3284773369669238E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3243418109435372E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3193857025666432E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3144714998452746E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3103790656435349E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3055716733309423E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2999303671900595E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2951556375963903E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2896454429831385E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2833804297307056E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2771778614273446E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2710356553717834E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2649453637984500E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2581876175809271E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2514501020082027E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2441174073363507E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2360779909708815E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2288795808443890E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2210702625677764E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2119647976897122E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2036121761136958E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1947980226325940E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1853367230768808E+03
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.6667824334197815E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.5628204351582610E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.4518278018209958E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.3350084575103938E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.2072318736833529E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.0714263145379567E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.9262889008018976E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.7712197207923225E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.6053829428405049E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.4287470345861885E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.2398098229266742E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.0389824333843882E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.8246667471475723E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.5969290386617769E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.3549241688927594E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.0982047531725402E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.8261725866624818E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.5389625398535634E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2363056547663220E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.9189338275374706E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.5879987799806412E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2459610727729138E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3131419071150910E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.2256588291332903E+01
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2419603992359227E+02
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.1459839959930910E+01
-   -1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.4551930540735201E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    5.1611209214567090E+01
-   -2.5002167017866389E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.7430737323361448E+01
-    6.8090180432907849E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.2352662213576430E+01
-    7.4520234263676946E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.9366172336139627E+01
-    7.6681901933227603E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.8373133179458129E+01
-    8.0103188554912108E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.7806235498053802E+01
-    8.3226185778337444E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.7136217501374034E+01
-    8.5198255783851776E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.7098352155098532E+01
-    8.8485325991167665E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.7082698347630902E+01
-    9.1628612940675661E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.7318093597379693E+01
-    9.6336880560843552E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.7805194856419405E+01
-    1.0403195223813595E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.7208025404979743E+01
-    1.1073113808118538E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.7393244596862566E+01
-    1.1719470652318427E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.9775986016605330E+01
-    1.1927257353208165E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.3473644977443975E+01
-    1.1352554936339081E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.7070974386535518E+01
-    1.0683363432532959E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.9666468179576981E+01
-    1.0507930927328347E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.1253681603659281E+01
-    1.0722071765282905E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.2152840973992689E+01
-    1.1153925934147166E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.2868285513959073E+01
-    1.1800187046115872E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.3500105304152861E+01
-    1.2562915358630602E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.4282846993225562E+01
-    1.3256662728491175E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.5024420307318991E+01
-    1.3978563387995196E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.6028049532574478E+01
-    1.5127108208385645E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.7370057018900972E+01
-    1.6020463362969969E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.9079499834107416E+01
-    1.5621595899038135E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.1228674662197669E+01
-    1.4414070367794099E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.2973378008360505E+01
-    1.3338783574344024E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.3976438675913229E+01
-    1.2911237591574798E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.4590263597289024E+01
-    1.2975660836460506E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.5114674229879697E+01
-    1.3085397632930243E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.5494508504667820E+01
-    1.2979036403429581E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.5778825926518351E+01
-    1.2774949149843876E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.5994669663590685E+01
-    1.2637693663627719E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.6004743731483984E+01
-    1.2753291218120505E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.5823050814593032E+01
-    1.3026686002437265E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.5569162251407732E+01
-    1.3412773560153887E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.5244647006827734E+01
-    1.3970925509824278E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.4786968601403601E+01
-    1.4222255514586993E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.4199128407530637E+01
-    1.4173973327170639E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.3413760339748556E+01
-    1.4215102034742108E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.2380873007873653E+01
-    1.4341209798262181E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.1049697702890846E+01
-    1.4377190695578829E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.9360814126511663E+01
-    1.4143469000022194E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.7336908036675965E+01
-    1.3311147308601898E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.4915929367687696E+01
-    1.2118801022162096E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.2003161615137508E+01
-    1.0870671148323828E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.8591765723663045E+01
-    9.6781059056951127E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.4790156174575245E+01
-    8.6958462410774873E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.0812518484515564E+01
-    7.8373177606459593E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.6902878245907715E+01
-    7.0496157405781593E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.3256764276345166E+01
-    6.3389652314971262E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.9995373108130906E+01
-    5.7207964061131378E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.7165105805585927E+01
-    5.1995830506336792E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.4741860221878728E+01
-    4.7663234672676406E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2685048025628266E+01
-    4.4082406201920762E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0949055401667707E+01
-    4.1102553342635011E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.9474032967181166E+01
-    3.8567319904410292E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3609002529844771E+01
-    2.7132794880206510E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.8191102809423771E+00
-    1.7672407246192273E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.5562970633578406E+00
-    1.7221350869516743E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.3088082157304797E+00
-    1.6797367836849552E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.0780175197987880E+00
-    1.6404443058055711E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.8597952379637483E+00
-    1.6034395557579167E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.6582259091145932E+00
-    1.5695957202204899E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.4667591802540256E+00
-    1.5376523991739392E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0961261987200061E+01
-    2.2706219336003468E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3891891025817367E+01
-    2.9064372019968095E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3273726429872747E+01
-    2.8064902512763067E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2713616295648199E+01
-    2.7178976337795997E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2196905272450396E+01
-    2.6378108065239495E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1741674128420385E+01
-    2.5693247805963524E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1220123177125938E+01
-    2.4933330638548176E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0787244438200467E+01
-    2.4298054271712149E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0398289460310663E+01
-    2.3745576516402991E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0015169139361944E+01
-    2.3209178522945812E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.6653966326367833E+00
-    2.2739324659535938E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.3078141539704031E+00
-    2.2237734039845039E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.9837506975163244E+00
-    2.1788626439598394E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.6667300471142461E+00
-    2.1339441011550296E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.3724679803492545E+00
-    2.0911405727200415E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.0735829049513086E+00
-    2.0480118664816666E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.7843547320904758E+00
-    2.0056988498001228E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.5068990724116000E+00
-    1.9649537814648246E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.2385588054827377E+00
-    1.9252127780824326E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.9791362989229100E+00
-    1.8864246375905894E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.7305320386058263E+00
-    1.8491337716961782E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.4903344566877923E+00
-    1.8127459641080500E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.2546221171745886E+00
-    1.7761989681682334E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.0273365447547134E+00
-    1.7406156374748700E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.8102185535770294E+00
-    1.7065831396534972E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.5991931111965716E+00
-    1.6729001236502096E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.3974958891657963E+00
-    1.6404796441406803E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.2032054324000789E+00
-    1.6087602645227773E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.0128005253518539E+00
-    1.5766021748507525E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.8281027850582312E+00
-    1.5445502935186751E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.6505005650260527E+00
-    1.5130916100160461E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.4825069998940812E+00
-    1.4831745997336965E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.3209010578906604E+00
-    1.4539105530053898E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.1624217128121606E+00
-    1.4240775537109555E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.0098642979426442E+00
-    1.3947830457627090E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.8636288843775635E+00
-    1.3667527253427873E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.7223078152905997E+00
-    1.3396133290097385E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.5867013165383343E+00
-    1.3135250800639001E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.4576265885406636E+00
-    1.2888017045520291E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.3326881314552277E+00
-    1.2646794399107172E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.2108392452166084E+00
-    9.2312241235541619E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.0943703051431020E+00
-    5.7601186007829278E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.9832390021814366E+00
-    4.6066061102476326E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.8762108985810544E+00
-    3.9370151475201074E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.7731208211373977E+00
-    3.4751172659775178E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.6738083030340256E+00
-    3.1279299822523904E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.5781235314560362E+00
-    2.8532710114361301E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.4859206146642863E+00
-    2.6285166330747846E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3977604416341962E+00
-    2.4408502427878528E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3127960421089071E+00
-    2.2807266198164053E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2301215953086979E+00
-    2.1414842774975664E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.1516725998078434E+00
-    2.0208510438641384E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0766664995882351E+00
-    1.9149719379323955E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0029689428629789E+00
-    1.8196405477390498E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.9318007165860498E+00
-    1.7342746081418619E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8642695518666772E+00
-    1.6584753294639768E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7990744554551790E+00
-    1.5899779008091744E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7360186289736557E+00
-    1.5277514992312623E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.6756244227836057E+00
-    1.4715432176424864E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.6167679989893164E+00
-    1.4197849836954125E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.5602873183252428E+00
-    1.3727298599195179E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.5066335208981749E+00
-    1.3303784768334984E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.4542705948282120E+00
-    1.2910438933788724E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.4031663359005919E+00
-    1.2544015323735155E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3541460752544829E+00
-    1.2209418278975431E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3075042923270577E+00
-    1.1907385288927284E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2627184649656242E+00
-    1.1631669960652355E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2189673870854860E+00
-    1.1373265085082774E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1765557320701787E+00
-    1.1133534182534235E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1361527819688992E+00
-    1.0917830365293255E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0970160898157000E+00
-    1.0718381295607241E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0590339516208365E+00
-    1.0533162910291809E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0228101129995171E+00
-    1.0367669233563663E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.8795253976995090E-01
-    1.0217724005085651E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.5409839706959110E-01
-    1.0079141614115573E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.2122878348185777E-01
-    9.9512536315834046E-10
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.8955817735911447E-01
-    9.8360352662400316E-10
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.5905747070309002E-01
-    9.7331472116655147E-10
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.2963869167743054E-01
-    9.6415126391785645E-10
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.0148383783364530E-01
-    9.5633679262391368E-10
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.7410697569279197E-01
-    9.4931326544594472E-10
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.4743860477015078E-01
-    9.4296058498259182E-10
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.2207823788527314E-01
-    9.3805246408144344E-10
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.9758942793949541E-01
-    9.3409237650883799E-10
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.7368738061137257E-01
-    9.3068773925875351E-10
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.5073935374720204E-01
-    9.2835995005814508E-10
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.1912916900094976E-01
-    1.3553713103690722E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1744856237596395E+00
-    1.8555952815427015E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0960950178098738E+00
-    1.8624484900931976E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0227667771789446E+00
-    1.8762026620474090E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.5438682566859467E-01
-    1.8975319025517078E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.9073590622047183E-01
-    1.9272652386403103E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.3124181073559122E-01
-    1.9655616060152397E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.7568348445061486E-01
-    2.0135025696200236E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.2380283794975353E-01
-    2.0723799056318412E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.7531909429464188E-01
-    2.1437817281414293E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.3000232028362413E-01
-    2.2298819633502939E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.8761787842916313E-01
-    2.3335355732433525E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.4793301061354105E-01
-    2.4584257238685237E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.1076171036275675E-01
-    2.6097972964641418E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.7586836404503213E-01
-    2.7945222454306174E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.4306373417455464E-01
-    3.0225661476412228E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.1214484177098965E-01
-    3.3082827638244761E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.8287972185444058E-01
-    3.6730259212630015E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.5500979738685184E-01
-    4.1499175167427528E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.2823399173703616E-01
-    4.7932833884255426E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.0212754264793029E-01
-    5.6969864446410594E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.7608755890911296E-01
-    7.0378317096854330E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0028419721426849E-01
-    7.3850797027162777E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.6150451574249103E-01
-    7.4316151463172783E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.6967121157666415E-01
-    1.3677858207235434E-08
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1875623200241373E-01
-    1.3920740561860094E-08
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.4043801173217313E-01
-    5.3768578865079475E-08
-    0.0000000000000000E+00
-   -4.5780348298091148E+01
-    1.2902802303641772E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.7715737769410840E+01
-   -7.0278239187611034E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.7118520898333461E+01
-   -7.6914920985704880E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.5121830676519124E+01
-   -7.9146053236477734E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3480603933872832E+01
-   -8.2677281939345342E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2686860757687015E+01
-   -8.5900635798223561E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2339818707974871E+01
-   -8.7936077717470784E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2188790088893580E+01
-   -9.1328776999327488E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2183890321763329E+01
-   -9.4573072588916620E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2251867191136956E+01
-   -9.9432639061874966E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2661327275630700E+01
-   -1.0737498969840207E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.4095803073523658E+01
-   -1.1428945209309061E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.6038999633633278E+01
-   -1.2096088335590711E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.5221147158223555E+01
-   -1.2310636010631862E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.4279804084347102E+01
-   -1.1717366089118027E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3956279618051173E+01
-   -1.1026670304971002E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3775006426052215E+01
-   -1.0845600325662829E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3600232902610774E+01
-   -1.1066622519081719E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3454654595295278E+01
-   -1.1512354199929222E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3363217325903747E+01
-   -1.2179382730558274E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3345801763498248E+01
-   -1.2966621102389407E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3384469993695877E+01
-   -1.3682661848415714E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3501762773758561E+01
-   -1.4427760582093891E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3717188733605155E+01
-   -1.5613213566466918E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.4051195971451779E+01
-   -1.6535276436988585E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.4309490799978292E+01
-   -1.6123591479252138E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.4334704428151863E+01
-   -1.4877262454976712E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.4173090100641520E+01
-   -1.3767421622920702E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3921401730989253E+01
-   -1.3326136569503163E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3653620431432856E+01
-   -1.3392630035188686E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3403339242383616E+01
-   -1.3505893187408978E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3167784116536314E+01
-   -1.3396114065467362E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2935089783630225E+01
-   -1.3185468516856385E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2720596540150598E+01
-   -1.3043802351921043E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2543701858661748E+01
-   -1.3163114558966791E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2401515119369922E+01
-   -1.3445294768831497E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2287363355687194E+01
-   -1.3843789092256641E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2214294389230364E+01
-   -1.4419876665128253E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2162274454622885E+01
-   -1.4679281968758701E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2111003866259782E+01
-   -1.4629446547214274E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2067472358870248E+01
-   -1.4671893598786307E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2032588464508795E+01
-   -1.4802044952027774E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2001536324205013E+01
-   -1.4839171142491290E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.1961928008321561E+01
-   -1.4597903975309299E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.1888456798542677E+01
-   -1.3738793645875804E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.1770169026022398E+01
-   -1.2508090634864365E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.1601466557091047E+01
-   -1.1219786341722168E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.1382520979420612E+01
-   -9.9888756260042051E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.1122767847658359E+01
-   -8.9750401732900684E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0835127509676994E+01
-   -8.0889547460376487E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0536286672773063E+01
-   -7.2759604205845925E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0240669538748410E+01
-   -6.5424684793598811E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.9962413337185446E+01
-   -5.9044249092388634E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.9711393831857578E+01
-   -5.3664700853680243E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.9491426552691983E+01
-   -4.9193180521334208E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.9300057137007208E+01
-   -4.5497169170246572E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.9136740575345009E+01
-   -4.2421632730935199E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8998209332698657E+01
-   -3.9804967768422106E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8885016951511428E+01
-   -2.8003365446523119E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8106395945876443E+01
-   -1.8239401395779145E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8070537553155425E+01
-   -1.7773839695715139E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8052861226917472E+01
-   -1.7336238299714506E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8021650953809591E+01
-   -1.6930692319298228E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8006299821015492E+01
-   -1.6548749422494542E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7978607871820021E+01
-   -1.6199430711670741E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7965408887154197E+01
-   -1.5869716325229262E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7938386903908626E+01
-   -2.3434455599116566E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8482101728281197E+01
-   -2.9996377013741613E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8425111421622201E+01
-   -2.8964649887386851E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8373594443370916E+01
-   -2.8050033330965172E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8326679438225593E+01
-   -2.7223160049624111E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8282277255236362E+01
-   -2.6515949493145290E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8243033107457354E+01
-   -2.5731111930861310E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8195999746656259E+01
-   -2.5074936136124966E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8168427612618984E+01
-   -2.4503955001476214E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8129244870878722E+01
-   -2.3949605652195332E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8102855147655887E+01
-   -2.3463557205207644E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8070047436750837E+01
-   -2.2944812692008001E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8043271815884005E+01
-   -2.2479734686314585E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8016586946183349E+01
-   -2.2014646076423268E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7992242814378194E+01
-   -2.1570949402617199E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7967796520714025E+01
-   -2.1123590403330832E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7944248969450516E+01
-   -2.0684277534945554E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7921928919979027E+01
-   -2.0260706906172379E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7900854214566969E+01
-   -1.9846986770867334E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7880580942131296E+01
-   -1.9442474788693795E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7861491023371251E+01
-   -1.9052664309603096E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7843519105548935E+01
-   -1.8671304360419019E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7826334161877288E+01
-   -1.8287336576553448E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7809613682660036E+01
-   -1.7912280840470993E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7794294839873068E+01
-   -1.7552219655573906E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7779753967645924E+01
-   -1.7195007437642269E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7765925538406840E+01
-   -1.6850445476171967E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7753391241041776E+01
-   -1.6513286163737275E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7741266295988922E+01
-   -1.6172376515755664E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7729821982295583E+01
-   -1.5833650512826782E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7719080418762260E+01
-   -1.5502088818127089E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7709240759887852E+01
-   -1.5187111595963434E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7700517718156028E+01
-   -1.4879275775656506E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7692159334448572E+01
-   -1.4565869032987904E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7684351986278930E+01
-   -1.4257881311458991E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7677366820751082E+01
-   -1.3962581926521667E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7671005101183351E+01
-   -1.3676422738714147E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7665235719599583E+01
-   -1.3401154432392799E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7660228372146030E+01
-   -1.3140006002515778E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7655954755425945E+01
-   -1.2884002364866360E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7651910812045344E+01
-   -1.2546338198869316E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7648081221378806E+01
-   -1.2086760745511402E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7644656166824682E+01
-   -1.1648455997801286E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7641442266271778E+01
-   -1.1226576008729987E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7638426445258908E+01
-   -1.0820450410901656E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7635595627499161E+01
-   -1.0429428054671297E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7632937842212428E+01
-   -1.0052901037802204E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7630442112912405E+01
-   -9.6902788615750668E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7628098944129441E+01
-   -9.3437275377371987E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7626017832161633E+01
-   -9.0099206237278651E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7623946230989596E+01
-   -8.6852644703134085E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7621988671684658E+01
-   -8.3772880664897698E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7620377850422564E+01
-   -8.0829667869706812E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7618747687484802E+01
-   -7.7939712813280704E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7617103593692189E+01
-   -7.5150335509768407E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7615655213867527E+01
-   -7.2504445983944510E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7614387012344196E+01
-   -6.9951270289933920E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7613095498742478E+01
-   -6.7483033550811722E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7611958333131948E+01
-   -6.5119899047342378E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7610889016474570E+01
-   -6.2818063681698610E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7609785763862501E+01
-   -6.0609985797117027E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7608903885485375E+01
-   -5.8513050564434677E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7608066670950777E+01
-   -5.6467493606148711E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7607190623748309E+01
-   -5.4471991904576444E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7606359010442723E+01
-   -5.2558502435431254E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7605636698292042E+01
-   -5.0738355561445525E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7605015532822801E+01
-   -4.8991180808609869E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7604417245013817E+01
-   -4.7285047804029257E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7603782070492311E+01
-   -4.5631723465174989E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7603229418832630E+01
-   -4.4057097908074788E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7602758934028241E+01
-   -4.2532312941617589E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7602245496695989E+01
-   -4.1052992476197397E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7601802976170148E+01
-   -3.9642486541259964E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7601425604116486E+01
-   -3.8285544623158041E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7601055120244474E+01
-   -3.6968063349292246E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7600691265799099E+01
-   -3.5689273644057318E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7600334822522136E+01
-   -3.4457448242707472E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7600026986805862E+01
-   -3.3271419976007810E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7599724681763437E+01
-   -3.2127747062260542E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7599461684421733E+01
-   -3.1033442132558048E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7599239208577828E+01
-   -2.9969656602736450E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7598973552622635E+01
-   -2.8933677353520038E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7598743055698002E+01
-   -2.7948683811672848E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7598576911102192E+01
-   -2.6997751130135828E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7598371316565892E+01
-   -2.6069834953657905E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7598186676900713E+01
-   -2.5179122761550787E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7598843495523582E+01
-   -3.5560276869217811E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7652388469425816E+01
-   -4.5430818276175539E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7648546277187005E+01
-   -4.2390708468106553E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7644968466972099E+01
-   -3.9547929204815374E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7641611515183168E+01
-   -3.6897848067536287E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7638528398456408E+01
-   -3.4431784538565829E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7635646723419679E+01
-   -3.2127444204263411E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7632962651743604E+01
-   -2.9976130842060450E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7630461806322298E+01
-   -2.7967736150663713E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7628133228829203E+01
-   -2.6091292985257930E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7625956754950980E+01
-   -2.4337815150410572E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7623930863807487E+01
-   -2.2698148123123277E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7622031506299528E+01
-   -2.1163223039614612E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7620259166182763E+01
-   -1.9725787240630038E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7618595164913426E+01
-   -1.8376682023586177E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7617032234120284E+01
-   -1.7108548232282245E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7615559034655675E+01
-   -1.5913503538456450E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7614166492252401E+01
-   -1.4782553146031363E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7612838101986863E+01
-   -1.3705681211910811E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7611563023487800E+01
-   -1.2671236877827710E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7610319775088644E+01
-   -1.1662800250493260E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7609083606000247E+01
-   -1.0657081288860561E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7607669987903741E+01
-   -7.7307017372214556E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7594656141823897E+01
-   -6.2337316776099480E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7605634762101708E+01
-   -6.5487043934884873E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7593681911384259E+01
-   -4.5834923538838869E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7603868382342259E+01
-   -5.4201545090585973E-02
-    0.0000000000000000E+00
-    6.7744449635526422E+01
-    1.7039827064549200E+01
-    9.3724257195852944E+04
-    1.0000000000000000E+00
-   -4.1911393485222547E+01
-   -2.0919929385893671E+01
-    9.7952571664951887E+04
-    1.0000000000000000E+00
-   -4.1584464861522306E+01
-   -2.1244911349805367E+01
-    1.0030474848102943E+05
-    1.0000000000000000E+00
-   -4.1390462974206578E+01
-   -2.1089941491097608E+01
-    9.7205331685627025E+04
-    1.0000000000000000E+00
-   -4.1416762039985933E+01
-   -2.1014915974555763E+01
-    9.0415139337332250E+04
-    1.0000000000000000E+00
-   -4.1524136509127331E+01
-   -2.1093667442728758E+01
-    8.4424683322740093E+04
-    1.0000000000000000E+00
-   -4.1528476784797327E+01
-   -2.1086086797917350E+01
-    7.8899885607464676E+04
-    1.0000000000000000E+00
-   -4.1473127853850634E+01
-   -2.1046966344666977E+01
-    7.1722917677511447E+04
-    1.0000000000000000E+00
-   -4.1499630617121149E+01
-   -2.1066527259035428E+01
-    6.5679512549710038E+04
-    1.0000000000000000E+00
-   -4.1436639321664359E+01
-   -2.0894894538630261E+01
-    5.8963393504399464E+04
-    1.0000000000000000E+00
-   -4.1359815694601316E+01
-   -2.0746514357213613E+01
-    5.2315101699889325E+04
-    1.0000000000000000E+00
-   -4.1103637208480230E+01
-   -2.0657774854368270E+01
-    4.7778921479097036E+04
-    1.0000000000000000E+00
-   -4.0477985488880016E+01
-   -2.0917761598322230E+01
-    4.0832798477043361E+04
-    1.0000000000000000E+00
-   -4.0461512735395530E+01
-   -2.1737997303179625E+01
-    3.2992638562210333E+04
-    1.0000000000000000E+00
-   -4.0883474911526854E+01
-   -2.2459815772469668E+01
-    2.6884763359885608E+04
-    1.0000000000000000E+00
-   -4.1434156559736188E+01
-   -2.2627539141533873E+01
-    2.2634101725339347E+04
-    1.0000000000000000E+00
-   -4.1958919947596030E+01
-   -2.2513435032488402E+01
-    1.9648339450986947E+04
-    1.0000000000000000E+00
-   -4.2356531897386333E+01
-   -2.2409787714590482E+01
-    1.7334935587627875E+04
-    1.0000000000000000E+00
-   -4.2628334440876138E+01
-   -2.2315609821917757E+01
-    1.5383960830972834E+04
-    1.0000000000000000E+00
-   -4.2790992840368908E+01
-   -2.2226628463686197E+01
-    1.3563600110522248E+04
-    1.0000000000000000E+00
-   -4.2894179919804607E+01
-   -2.2235415627753259E+01
-    1.1876746159351262E+04
-    1.0000000000000000E+00
-   -4.2943130994424237E+01
-   -2.2323817844072465E+01
-    1.0283874802153445E+04
-    1.0000000000000000E+00
-   -4.2966371257820349E+01
-   -2.2167944044371801E+01
-    8.8542963924108662E+03
-    1.0000000000000000E+00
-   -4.2891972572531834E+01
-   -2.2013772934006539E+01
-    7.4822484871674251E+03
-    1.0000000000000000E+00
-   -4.2783182140705328E+01
-   -2.2301949531503475E+01
-    6.2342991460552375E+03
-    1.0000000000000000E+00
-   -4.2771340565133421E+01
-   -2.2819421975233457E+01
-    5.2042250545467232E+03
-    1.0000000000000000E+00
-   -4.2974004359025706E+01
-   -2.3115736066550205E+01
-    4.3984920919146098E+03
-    1.0000000000000000E+00
-   -4.3370234521286790E+01
-   -2.3184290125088118E+01
-    3.8118146637902355E+03
-    1.0000000000000000E+00
-   -4.3761720872817065E+01
-   -2.3169703510588807E+01
-    3.3582848083048384E+03
-    1.0000000000000000E+00
-   -4.4077012002639698E+01
-   -2.3267484983087204E+01
-    2.9696959578001674E+03
-    1.0000000000000000E+00
-   -4.4349721041058061E+01
-   -2.3502452650373485E+01
-    2.6261935713687340E+03
-    1.0000000000000000E+00
-   -4.4615006930382648E+01
-   -2.3777467692989184E+01
-    2.3324940281208810E+03
-    1.0000000000000000E+00
-   -4.4863118629247836E+01
-   -2.3968646655611924E+01
-    2.0803341145081163E+03
-    1.0000000000000000E+00
-   -4.5094454000652448E+01
-   -2.4018230608494044E+01
-    1.8617047583089120E+03
-    1.0000000000000000E+00
-   -4.5297089851066936E+01
-   -2.3960040561865380E+01
-    1.6707314393426739E+03
-    1.0000000000000000E+00
-   -4.5452912365694523E+01
-   -2.3879128842663690E+01
-    1.5001698129379240E+03
-    1.0000000000000000E+00
-   -4.5569999404329934E+01
-   -2.3670166908941194E+01
-    1.3443935804906689E+03
-    1.0000000000000000E+00
-   -4.5660064688343574E+01
-   -2.3587803445386729E+01
-    1.2012929367603292E+03
-    1.0000000000000000E+00
-   -4.5736095825537703E+01
-   -2.3673834423956102E+01
-    1.0753936750814782E+03
-    1.0000000000000000E+00
-   -4.5799771657544014E+01
-   -2.3578386613636809E+01
-    9.6751226474688417E+02
-    1.0000000000000000E+00
-   -4.5848008677310318E+01
-   -2.3421788487640800E+01
-    8.7523916777870932E+02
-    1.0000000000000000E+00
-   -4.5868037013281210E+01
-   -2.3292210955993323E+01
-    7.9609592361322336E+02
-    1.0000000000000000E+00
-   -4.5855696966787285E+01
-   -2.3184871604194775E+01
-    7.2956644732004565E+02
-    1.0000000000000000E+00
-   -4.5806154152024241E+01
-   -2.3208813292295538E+01
-    6.7642449276571404E+02
-    1.0000000000000000E+00
-   -4.5717153177850157E+01
-   -2.3303686753153748E+01
-    6.3808436005134979E+02
-    1.0000000000000000E+00
-   -4.5588082685373500E+01
-   -2.3214092695557888E+01
-    6.1559399258120288E+02
-    1.0000000000000000E+00
-   -4.5393548972195568E+01
-   -2.3057795415147766E+01
-    6.0860570733882355E+02
-    1.0000000000000000E+00
-   -4.5108974506050991E+01
-   -2.2650810091041613E+01
-    6.1638877808907478E+02
-    1.0000000000000000E+00
-   -4.4725287164102689E+01
-   -2.2174255262900758E+01
-    6.3717926406510742E+02
-    1.0000000000000000E+00
-   -4.4258499713664527E+01
-   -2.1720257448627045E+01
-    6.6909471247921795E+02
-    1.0000000000000000E+00
-   -4.3744550486244812E+01
-   -2.1277707777413024E+01
-    7.0990584326295470E+02
-    1.0000000000000000E+00
-   -4.3226605046091080E+01
-   -2.0849530315482745E+01
-    7.5672713768968561E+02
-    1.0000000000000000E+00
-   -4.2736852697587757E+01
-   -2.0456507610196482E+01
-    8.0676599802003409E+02
-    1.0000000000000000E+00
-   -4.2294826620617492E+01
-   -2.0110264700050884E+01
-    8.5754532092560476E+02
-    1.0000000000000000E+00
-   -4.1908414476351282E+01
-   -1.9812028173267244E+01
-    9.0792272849549227E+02
-    1.0000000000000000E+00
-   -4.1573302442875580E+01
-   -1.9561952302768280E+01
-    9.5587084459391883E+02
-    1.0000000000000000E+00
-   -4.1286904869340276E+01
-   -1.9360770977303204E+01
-    1.0006423919328142E+03
-    1.0000000000000000E+00
-   -4.1041958037029794E+01
-   -1.9196709863947227E+01
-    1.0423960175070547E+03
-    1.0000000000000000E+00
-   -4.0830702267939209E+01
-   -1.9054648228609423E+01
-    2.0896307644367612E+03
-    1.0000000000000000E+00
-   -3.9168326229538849E+01
-   -1.8027821684274873E+01
-    2.1581108289762565E+03
-    1.0000000000000000E+00
-   -3.9105188599501901E+01
-   -1.7986089830361781E+01
-    2.1625510281153470E+03
-    1.0000000000000000E+00
-   -3.9084246019717234E+01
-   -1.7969638475484942E+01
-    2.2268440856201537E+03
-    1.0000000000000000E+00
-   -3.9028690757726508E+01
-   -1.7932918635225004E+01
-    2.2296267733412692E+03
-    1.0000000000000000E+00
-   -3.9010010401430009E+01
-   -1.7918516824507961E+01
-    2.2898180983152051E+03
-    1.0000000000000000E+00
-   -3.8960526378281010E+01
-   -1.7885916622868816E+01
-    2.2891484167110789E+03
-    1.0000000000000000E+00
-   -3.8945275449606832E+01
-   -1.7873708794785898E+01
-    2.3452986001828658E+03
-    1.0000000000000000E+00
-   -3.8902054321582995E+01
-   -1.7844891055305698E+01
-    1.2041883123932064E+03
-    1.0000000000000000E+00
-   -4.0101796544802063E+01
-   -1.8575924707376021E+01
-    1.2289355007922047E+03
-    1.0000000000000000E+00
-   -3.9997155805113877E+01
-   -1.8507236484408821E+01
-    1.2508394379876581E+03
-    1.0000000000000000E+00
-   -3.9902074016730197E+01
-   -1.8445365765359259E+01
-    1.2701318100629742E+03
-    1.0000000000000000E+00
-   -3.9815650761183697E+01
-   -1.8388778988182001E+01
-    1.2880423251289953E+03
-    1.0000000000000000E+00
-   -3.9732610124237112E+01
-   -1.8333466789449481E+01
-    1.2979354843414098E+03
-    1.0000000000000000E+00
-   -3.9663189088790951E+01
-   -1.8289284304340441E+01
-    1.3333307556991003E+03
-    1.0000000000000000E+00
-   -3.9567990205957564E+01
-   -1.8228120238046792E+01
-    1.3292369936487839E+03
-    1.0000000000000000E+00
-   -3.9519614312679913E+01
-   -1.8196117704170408E+01
-    1.3559224812352295E+03
-    1.0000000000000000E+00
-   -3.9439574075965282E+01
-   -1.8148901620602434E+01
-    1.3540708180558581E+03
-    1.0000000000000000E+00
-   -3.9391051668145757E+01
-   -1.8122154875015180E+01
-    1.3737790722470857E+03
-    1.0000000000000000E+00
-   -3.9323002641963626E+01
-   -1.8086322298974334E+01
-    1.3771286519049206E+03
-    1.0000000000000000E+00
-   -3.9270167035959069E+01
-   -1.8059864780645803E+01
-    1.3895087979241916E+03
-    1.0000000000000000E+00
-   -3.9213597265639294E+01
-   -1.8031541162270681E+01
-    1.3935023111255018E+03
-    1.0000000000000000E+00
-   -3.9162860579144400E+01
-   -1.8005310424376809E+01
-    1.4010279842144403E+03
-    1.0000000000000000E+00
-   -3.9110628268404326E+01
-   -1.7979030651689026E+01
-    1.4085717012105470E+03
-    1.0000000000000000E+00
-   -3.9059322205258503E+01
-   -1.7952881179545578E+01
-    1.4154101983882238E+03
-    1.0000000000000000E+00
-   -3.9009947092915162E+01
-   -1.7927500216345170E+01
-    1.4214053502531985E+03
-    1.0000000000000000E+00
-   -3.8962290419396886E+01
-   -1.7903372544214207E+01
-    1.4274987352995415E+03
-    1.0000000000000000E+00
-   -3.8915316522319451E+01
-   -1.7880116278610934E+01
-    1.4327437473122334E+03
-    1.0000000000000000E+00
-   -3.8869859015444518E+01
-   -1.7858177325550479E+01
-    1.4371843061900684E+03
-    1.0000000000000000E+00
-   -3.8826061662314551E+01
-   -1.7837385265205825E+01
-    1.4416132588408113E+03
-    1.0000000000000000E+00
-   -3.8783225019486380E+01
-   -1.7817197012023968E+01
-    1.4469464625580199E+03
-    1.0000000000000000E+00
-   -3.8740513766519136E+01
-   -1.7797112616000277E+01
-    1.4505552579659302E+03
-    1.0000000000000000E+00
-   -3.8699946409635935E+01
-   -1.7778736298519007E+01
-    1.4540689724362210E+03
-    1.0000000000000000E+00
-   -3.8660118282530078E+01
-   -1.7761326533212394E+01
-    1.4576682943610597E+03
-    1.0000000000000000E+00
-   -3.8621018947352340E+01
-   -1.7744731778373424E+01
-    1.4594301764986421E+03
-    1.0000000000000000E+00
-   -3.8584054514896557E+01
-   -1.7729792813411098E+01
-    1.4620818120212862E+03
-    1.0000000000000000E+00
-   -3.8547304232452326E+01
-   -1.7715071099886888E+01
-    1.4647705236410111E+03
-    1.0000000000000000E+00
-   -3.8511241977581932E+01
-   -1.7700925499097234E+01
-    1.4673922916005406E+03
-    1.0000000000000000E+00
-   -3.8476007848202144E+01
-   -1.7687327047542432E+01
-    1.4691656166153596E+03
-    1.0000000000000000E+00
-   -3.8441959638653486E+01
-   -1.7674376318571593E+01
-    1.4690839293629667E+03
-    1.0000000000000000E+00
-   -3.8409572906811661E+01
-   -1.7662239977325811E+01
-    1.4699098968792141E+03
-    1.0000000000000000E+00
-   -3.8377290404833417E+01
-   -1.7649517483728811E+01
-    1.4707863783816192E+03
-    1.0000000000000000E+00
-   -3.8345596567635056E+01
-   -1.7636597941703176E+01
-    1.4707352596290330E+03
-    1.0000000000000000E+00
-   -3.8315115746890577E+01
-   -1.7624299754462736E+01
-    1.4706960741180660E+03
-    1.0000000000000000E+00
-   -3.8285406107625697E+01
-   -1.7612352744597228E+01
-    1.4706540998033026E+03
-    1.0000000000000000E+00
-   -3.8256338985764565E+01
-   -1.7600609777521065E+01
-    1.4697189990227746E+03
-    1.0000000000000000E+00
-   -3.8228249192562444E+01
-   -1.7589364337335091E+01
-    1.4678270883929501E+03
-    1.0000000000000000E+00
-   -3.8201137877474963E+01
-   -1.7578645804602221E+01
-    1.4668673986534179E+03
-    1.0000000000000000E+00
-   -3.8174264668837807E+01
-   -1.7153680493346872E+01
-    1.4659548048441375E+03
-    1.0000000000000000E+00
-   -3.8148206538706091E+01
-   -1.7149660592855284E+01
-    1.4641307002489689E+03
-    1.0000000000000000E+00
-   -3.8123370095574749E+01
-   -1.7145849853819744E+01
-    1.4623165241469990E+03
-    1.0000000000000000E+00
-   -3.8099346589603840E+01
-   -1.7142168261447399E+01
-    1.4605073033596734E+03
-    1.0000000000000000E+00
-   -3.8076120938144804E+01
-   -1.7138610607423466E+01
-    1.4587033113216887E+03
-    1.0000000000000000E+00
-   -3.8053678105066368E+01
-   -1.7135171764821330E+01
-    1.4569035145515627E+03
-    1.0000000000000000E+00
-   -3.8032002675221484E+01
-   -1.7131847119425064E+01
-    1.4551054886782433E+03
-    1.0000000000000000E+00
-   -3.8011076632246549E+01
-   -1.7128632504307351E+01
-    1.4533119943650777E+03
-    1.0000000000000000E+00
-   -3.7990874648677874E+01
-   -1.7125523747819965E+01
-    1.4506623005779568E+03
-    1.0000000000000000E+00
-   -3.7971625392687628E+01
-   -1.7122622516468866E+01
-    1.4488366287301808E+03
-    1.0000000000000000E+00
-   -3.7952775771931485E+01
-   -1.7119771406941634E+01
-    1.4471061522097029E+03
-    1.0000000000000000E+00
-   -3.7934522074374996E+01
-   -1.7116968610499487E+01
-    1.4435744229622819E+03
-    1.0000000000000000E+00
-   -3.7917341692000868E+01
-   -1.7114359346818439E+01
-    1.4409188967630525E+03
-    1.0000000000000000E+00
-   -3.7900485726219067E+01
-   -1.7111791664067788E+01
-    1.4391673403080301E+03
-    1.0000000000000000E+00
-   -3.7883959770835155E+01
-   -1.7109266949669340E+01
-    1.4365698321361863E+03
-    1.0000000000000000E+00
-   -3.7868193835645592E+01
-   -1.7106870591230621E+01
-    1.4330913895056215E+03
-    1.0000000000000000E+00
-   -3.7853144521337789E+01
-   -1.7104595409704203E+01
-    1.4304726762511109E+03
-    1.0000000000000000E+00
-   -3.7838367724172514E+01
-   -1.7102355970132770E+01
-    1.4270742725359105E+03
-    1.0000000000000000E+00
-   -3.7824235872104246E+01
-   -1.7100225088138043E+01
-    1.4235978153129167E+03
-    1.0000000000000000E+00
-   -3.7810562125610872E+01
-   -1.7098166529683265E+01
-    1.4210584519768813E+03
-    1.0000000000000000E+00
-   -3.7797121352622582E+01
-   -1.7096136717705523E+01
-    1.4168335925985891E+03
-    1.0000000000000000E+00
-   -3.7784451424546027E+01
-   -1.7094240536930617E+01
-    1.4125915171303611E+03
-    1.0000000000000000E+00
-   -3.7772173372274160E+01
-   -1.7092404125306700E+01
-    1.4092379992329120E+03
-    1.0000000000000000E+00
-   -3.7760108370420930E+01
-   -1.7090592431410204E+01
-    1.4058941507939612E+03
-    1.0000000000000000E+00
-   -3.7748428725563954E+01
-   -1.7088839112479171E+01
-    1.4017586247705717E+03
-    1.0000000000000000E+00
-   -3.7737264158007221E+01
-   -1.7087169800153358E+01
-    1.3968025163937332E+03
-    1.0000000000000000E+00
-   -3.7726590779124344E+01
-   -1.7085580112631600E+01
-    1.3918883136723932E+03
-    1.0000000000000000E+00
-   -3.7716239854026853E+01
-   -1.7084037159375676E+01
-    1.3877958794707724E+03
-    1.0000000000000000E+00
-   -3.7706079517232084E+01
-   -1.7082515372760056E+01
-    1.3829884871581307E+03
-    1.0000000000000000E+00
-   -3.7696355993927504E+01
-   -1.7081063335284220E+01
-    1.3773471810173310E+03
-    1.0000000000000000E+00
-   -3.7687063749046402E+01
-   -1.7079680319002264E+01
-    1.3725724514236322E+03
-    1.0000000000000000E+00
-   -3.7677930454327210E+01
-   -1.7078313447767425E+01
-    1.3670622568104279E+03
-    1.0000000000000000E+00
-   -3.7669190324385596E+01
-   -1.7077009126095522E+01
-    1.3607972435580948E+03
-    1.0000000000000000E+00
-   -3.7660823837613435E+01
-   -1.7075764093389687E+01
-    1.3545946752547143E+03
-    1.0000000000000000E+00
-   -3.7652701526121945E+01
-   -1.7074553458391048E+01
-    1.3484524691991462E+03
-    1.0000000000000000E+00
-   -3.7644817851492860E+01
-   -1.7073376585001984E+01
-    1.3423621776258290E+03
-    1.0000000000000000E+00
-   -3.7637167511341552E+01
-   -1.7072232995016790E+01
-    1.3356044314083510E+03
-    1.0000000000000000E+00
-   -3.7629831528509420E+01
-   -1.7071139140259877E+01
-    1.3288669158356299E+03
-    1.0000000000000000E+00
-   -3.7622711133946623E+01
-   -1.7070076228374706E+01
-    1.3215342211638454E+03
-    1.0000000000000000E+00
-   -3.7615870233005829E+01
-   -1.7069057425064504E+01
-    1.3134948047983751E+03
-    1.0000000000000000E+00
-   -3.7609306710560212E+01
-   -1.7068082775524854E+01
-    1.3062963946718369E+03
-    1.0000000000000000E+00
-   -3.7602837435439945E+01
-   -1.7067116770542718E+01
-    1.2984870763952752E+03
-    1.0000000000000000E+00
-   -3.7596620698919111E+01
-   -1.7066191114161022E+01
-    1.2893816115172485E+03
-    1.0000000000000000E+00
-   -3.7590713184588367E+01
-   -1.7065317393201347E+01
-    1.2810289899411621E+03
-    1.0000000000000000E+00
-   -3.7584894883221608E+01
-   -1.7064451719797294E+01
-    1.2722148364601821E+03
-    1.0000000000000000E+00
-   -3.7579290880793096E+01
-   -1.7063618618120550E+01
-    1.2627535369043892E+03
-    1.0000000000000000E+00
-   -3.7573310325538152E+01
-   -1.7062820839974886E+01
-    6.4409505716955437E+02
-    1.0000000000000000E+00
-   -3.7678123208793259E+01
-   -1.7083912404483197E+01
-    6.3369885734340460E+02
-    1.0000000000000000E+00
-   -3.7661008576717407E+01
-   -1.7081010855965172E+01
-    6.2259959400967205E+02
-    1.0000000000000000E+00
-   -3.7645017404245856E+01
-   -1.7078298784659101E+01
-    6.1091765957866585E+02
-    1.0000000000000000E+00
-   -3.7630022855178893E+01
-   -1.7075753622973465E+01
-    5.9814000119594311E+02
-    1.0000000000000000E+00
-   -3.7616105092872971E+01
-   -1.7073393347132054E+01
-    5.8455944528141811E+02
-    1.0000000000000000E+00
-   -3.7603080902823933E+01
-   -1.7071183772923483E+01
-    5.7004570390782169E+02
-    1.0000000000000000E+00
-   -3.7590914499050697E+01
-   -1.7069119585779166E+01
-    5.5453878590688885E+02
-    1.0000000000000000E+00
-   -3.7579549139173643E+01
-   -1.7067191201674159E+01
-    5.3795510811170061E+02
-    1.0000000000000000E+00
-   -3.7568937127455619E+01
-   -1.7065390677089820E+01
-    5.2029151728626869E+02
-    1.0000000000000000E+00
-   -3.7559012538178528E+01
-   -1.7063706362250866E+01
-    5.0139779612034323E+02
-    1.0000000000000000E+00
-   -3.7549750660154338E+01
-   -1.7062134623564972E+01
-    4.8131505716610116E+02
-    1.0000000000000000E+00
-   -3.7541080300851462E+01
-   -1.7060662558445667E+01
-    4.5988348854241389E+02
-    1.0000000000000000E+00
-   -3.7532983719750277E+01
-   -1.7059287723371988E+01
-    4.3710971769385577E+02
-    1.0000000000000000E+00
-   -3.7525404001138853E+01
-   -1.7057999846973672E+01
-    4.1290923071695710E+02
-    1.0000000000000000E+00
-   -3.7518309839974698E+01
-   -1.7056793628632803E+01
-    3.8723728914492699E+02
-    1.0000000000000000E+00
-   -3.7511662721239595E+01
-   -1.7055662259139730E+01
-    3.6003407249393337E+02
-    1.0000000000000000E+00
-   -3.7505430700539783E+01
-   -1.7054600126841702E+01
-    3.3131306781304255E+02
-    1.0000000000000000E+00
-   -3.7499568023428509E+01
-   -1.7053598783192108E+01
-    3.0104737930432532E+02
-    1.0000000000000000E+00
-   -3.7494043408740062E+01
-   -1.7052652505756438E+01
-    2.6931019658144555E+02
-    1.0000000000000000E+00
-   -3.7488806425030248E+01
-   -1.7051751606234877E+01
-    2.3621669182575693E+02
-    1.0000000000000000E+00
-   -3.7483804754731899E+01
-   -1.7050885758352525E+01
-    2.0201292110498460E+02
-    1.0000000000000000E+00
-   -3.7479074428414485E+01
-   -1.7050040125544005E+01
-    3.0873100453920540E+02
-    1.0000000000000000E+00
-   -3.7449985425450159E+01
-   -1.7044367258336244E+01
-    1.4967340211902996E+02
-    1.0000000000000000E+00
-   -3.7471892848821867E+01
-   -1.7048768201205011E+01
-    2.0161285375128847E+02
-    1.0000000000000000E+00
-   -3.7445430138724447E+01
-   -1.7043596780445377E+01
-    9.8876653787630019E+01
-    1.0000000000000000E+00
-   -3.7465900184878123E+01
-   -1.7047709112132402E+01
-    7.7416813827699798E+01
-    1.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    9.5225868179892958E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.0689663785678469E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.0764047301829185E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.1059705317561710E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.1693904462299511E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.2199804278064408E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.2633149918216229E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.3256927119663708E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.3794947449032873E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.4615434716852980E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.5620868601465110E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.6048470344608388E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.6016048029216488E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.5306502553635359E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.4273665468798915E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.3734496776653389E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.3677616336522163E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.3987897884219360E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.4591988752742784E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.5392127768143713E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.6000880891925375E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.6389397393066087E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.6442258915551882E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.5735182613221861E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.4304327185486476E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.3209554912387484E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.2899027821436233E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.3323658404783041E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.4142833558629349E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.5029012952800751E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.5794236811335165E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.6382424848827439E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.6758366288942483E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.7127482335720299E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.7244792598391836E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.7337693290160827E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.7650681645339914E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.7544774439093118E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.7132211683550571E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.6954733468579080E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.6744509626758715E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.6339176621008686E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.5690573704437121E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.4475795065262762E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.3100707379357983E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.1654726465019245E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.0252387492660602E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    9.0485129706500900E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    7.9528113809448009E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    6.9172390308809495E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    5.9877573327805045E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    5.2130127218271960E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    4.5889007435761453E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    4.0832331075361750E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6658626860683918E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.3170218816754216E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.0224445133887462E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.7714372220193273E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.3482979350115165E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.2828031535838230E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.2529349915566682E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.1971148972479123E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.1721368039227999E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.1239033218348585E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.1034516981375413E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.0617388404037617E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.0140054528606244E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.9136609660951892E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.8240334781990072E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.7437885937674896E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.6689977502482575E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.6135801946300113E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.5393032749907037E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.5028010443577305E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.4451074005260248E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.4115636942643661E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.3634817541784791E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.3251581716999233E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.2835922208438114E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.2443916623108520E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.2054997247000533E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.1672031409553971E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.1302877209242097E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.0949120093191496E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.0603140294232710E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.0272221570280055E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    9.9555747515074150E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    9.6477335368246098E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    9.3430293439829601E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    9.0582687950943264E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    8.7805372340170537E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    8.5070888217265411E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    8.2485358207255263E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    7.9886679347634437E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    7.7330928150992823E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    7.4829172824509682E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    7.2428757804512092E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    7.0178396464803977E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    6.7915433869930319E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    6.5689253109242188E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    6.3615298236244733E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    6.1665769534626276E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    5.9813505137558412E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    5.8083272660335292E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    5.6470500735005674E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2780266141310221E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.1937105013470282E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.1139887683503591E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0372530365252664E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.9633862456426887E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8922696804713923E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8237924032493341E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7578505956531726E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.6943389889198021E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.6341391034327124E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.5751676576751636E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.5182442985888614E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.4652503912664305E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.4131960883129069E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3621093882864305E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3136620388764678E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2677063568725827E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2225658175251547E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1796599750557935E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1382749729911928E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0975567818827993E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0595436606180195E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0227897708250787E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.8660944288394628E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.5165282445343891E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.1841144652432607E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.8679350893787062E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.5615604327015621E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.2600020713130246E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.9726168946104584E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.6992075191124110E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.4295175366416472E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.1724672273485779E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.9273791134176171E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.6894153080538837E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.4584213365956267E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.2342739939278823E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.0201048125604881E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.8122685310886837E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.6132654173941948E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.4230735468972752E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.2348548196486933E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.0546698879395301E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.8847124808868124E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.7165514051495890E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.5548671931982282E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.3999070895339817E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.4287288025285609E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.8678368580840027E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.3444056371043662E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.8539346308631843E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.3996821578014451E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.9749801999666202E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.5786894381152807E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.2088739069054535E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.8639255767385002E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.5415451560501682E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.2409700603726452E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.9596856136234156E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.6971743713601214E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.4514390214278497E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.2214335605895685E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.0058312486925597E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.8035378119572667E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.6129251660600056E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.4328866107423498E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2615667426103943E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0969927694381722E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.9363605985364810E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.6073504184832998E-03
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.6948655188556049E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.1414303056395187E-03
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.4920067589932532E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253068634018E+01
-    7.1354144483899462E-11
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253082174014E+01
-    1.3056004772844135E-10
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253081986374E+01
-    1.8637363047681272E-10
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253076576962E+01
-    2.0585387053519236E-10
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253076349326E+01
-    2.2331647236015252E-10
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253077611377E+01
-    2.7497839478056806E-10
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253081612294E+01
-    3.8311114065329111E-10
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253077698241E+01
-    5.8348364889704167E-10
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253077672491E+01
-    9.0190308982215955E-10
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253072810333E+01
-    1.4706263975937897E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253069663765E+01
-    2.7171865384918807E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253066723987E+01
-    6.2513938309340624E-09
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253061835488E+01
-    1.4510191479230872E-08
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253069519610E+01
-    2.0242998832181138E-08
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253074188693E+01
-    2.7764343135379651E-08
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253072084144E+01
-    4.5399743688893064E-08
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253074294052E+01
-    7.9342257489080770E-08
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253082442635E+01
-    1.4173997251720205E-07
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253075063925E+01
-    2.5757234471945727E-07
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253070461214E+01
-    4.7946723752746804E-07
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253078149983E+01
-    9.0837920217862750E-07
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253069381616E+01
-    1.7620594981869695E-06
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253066425786E+01
-    3.4777541541575726E-06
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253067858525E+01
-    7.0990853723119023E-06
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253065633325E+01
-    1.5012565086258473E-05
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253065733412E+01
-    3.1927394418438937E-05
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253072157301E+01
-    6.6974559551727218E-05
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253076416536E+01
-    1.3675384352998169E-04
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253077411289E+01
-    2.7538390435963224E-04
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253070742341E+01
-    5.5386840500539901E-04
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253079121075E+01
-    1.1182180527647071E-03
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253079652447E+01
-    2.2517847422086367E-03
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253080469408E+01
-    4.5125306169651628E-03
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253076591081E+01
-    9.0108654082234445E-03
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253079612955E+01
-    1.7919354707987837E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253081953447E+01
-    3.5494792250331940E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253076927267E+01
-    6.9973060081139044E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253074517596E+01
-    1.3758077521617953E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253075762865E+01
-    2.6736118403185827E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253076802758E+01
-    5.0986432008014748E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253073031702E+01
-    9.5247681695347064E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253078262924E+01
-    1.7393576197584186E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253068288517E+01
-    3.0871979673417935E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253070528190E+01
-    5.2806721868673989E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253074416692E+01
-    8.6166972088904963E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253068258667E+01
-    1.3301666610524983E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253072610606E+01
-    1.9353605751532058E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253072053526E+01
-    2.6533829770524310E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253078067098E+01
-    3.4427747716956880E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253077411338E+01
-    4.2542155791824385E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253074010908E+01
-    5.0464338586159791E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253072061342E+01
-    5.7974552426848355E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253072468746E+01
-    6.5034301966503278E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253074652429E+01
-    7.1725014263053026E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253070446982E+01
-    7.8094056188022208E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253071616635E+01
-    8.4313758765039353E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253071425137E+01
-    9.0474546706030253E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253070117034E+01
-    9.6593508639267952E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253072720861E+01
-    5.0900080001840635E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253072701698E+01
-    5.1772639615708400E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253072575889E+01
-    5.3962307304618825E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253072496159E+01
-    5.4840634224375812E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253072271237E+01
-    5.7027855690269064E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253072105645E+01
-    5.7915781312820961E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253071810713E+01
-    6.0149907638203693E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253071725241E+01
-    6.1049772658878297E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253068304426E+01
-    1.2747467849224404E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253067678047E+01
-    1.3361877157196730E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253066870501E+01
-    1.3980335794387074E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253066256016E+01
-    1.4600937565682895E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253065510451E+01
-    1.5209250355473500E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253068737011E+01
-    1.5914167649912011E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253068256386E+01
-    1.6308345003536866E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253067548856E+01
-    1.7031360767724141E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253066915279E+01
-    1.7435764543662935E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253066101537E+01
-    1.8082459936236043E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253065385985E+01
-    1.8495351345149714E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253064454158E+01
-    1.9008003699293306E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253063621310E+01
-    1.9426399625671465E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253055962917E+01
-    1.9839520457840996E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253054575646E+01
-    2.0212924965581431E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253053019969E+01
-    2.0541205926326947E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253051398397E+01
-    2.0834327514799730E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253049766849E+01
-    2.1094895399055090E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253047877999E+01
-    2.1307983716655625E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253045942758E+01
-    2.1487931884598262E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253043810668E+01
-    2.1634600893322622E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253041572316E+01
-    2.1736466154391798E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253039085232E+01
-    2.1780103185288226E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253036589990E+01
-    2.1807374703041452E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253033919479E+01
-    2.1794483787041102E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253031177808E+01
-    2.1740259879794576E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253028399081E+01
-    2.1675853473633614E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253025626060E+01
-    2.1560997837813380E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253023079247E+01
-    2.1410078256802032E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253021037602E+01
-    2.1225760726953700E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253019576869E+01
-    2.1021142858169142E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253019332662E+01
-    2.0812330285634786E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253020630270E+01
-    2.0560274756907225E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253024070725E+01
-    2.0279348605764463E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253030402811E+01
-    1.9985598913972325E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253039498057E+01
-    1.9668489105100801E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253051031103E+01
-    1.9330090165317506E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253063577974E+01
-    1.8984034779311523E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253074828388E+01
-    1.8629716272061108E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253082098938E+01
-    1.8248893229074105E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253081335886E+01
-    1.7851617172957623E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253081505010E+01
-    1.7452890435382733E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253081651069E+01
-    1.7041966275763195E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253081812589E+01
-    1.6620699812058763E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253081958179E+01
-    1.6190836933115131E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253082098803E+01
-    1.5754022093641319E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253082165452E+01
-    1.5311869606739518E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253082335939E+01
-    1.4865819551217905E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253082393081E+01
-    1.4425951179689196E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253082481750E+01
-    1.3976142684614987E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253082566162E+01
-    1.3525824867920153E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253082626132E+01
-    1.3093338597927794E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253082696647E+01
-    1.2653925961733852E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253082764724E+01
-    1.2209433554201624E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253082823926E+01
-    1.1776390822665917E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253082856369E+01
-    1.1354979947162774E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253082918570E+01
-    1.0931541091011627E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253082920958E+01
-    1.0520039105030982E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253082996297E+01
-    1.0115274556676036E+02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083014607E+01
-    9.7107812211972217E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083035014E+01
-    9.3255510600481202E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083081015E+01
-    8.9477058612460539E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083087679E+01
-    8.5721296182547135E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083138625E+01
-    8.2053339463161777E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083137396E+01
-    7.8522537939932150E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083164340E+01
-    7.5125371767719869E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083178451E+01
-    7.1812252445796602E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083236446E+01
-    6.8547576600196550E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083212600E+01
-    6.5414341157162923E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083253037E+01
-    6.2412767531675748E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083238620E+01
-    5.9463221053670608E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083261663E+01
-    5.6640441566698527E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083310456E+01
-    5.3940168909683230E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083301048E+01
-    5.1326616022891507E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083297702E+01
-    4.8800137706329870E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083305503E+01
-    4.6361494008731015E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083327523E+01
-    4.4034523664932181E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083328923E+01
-    4.1792740943899268E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083362041E+01
-    3.9654518757552232E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083361437E+01
-    3.7618546571237957E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083339084E+01
-    3.5637479921922939E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083363931E+01
-    3.3752917955277802E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083382178E+01
-    3.1977359674512133E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083348164E+01
-    3.0254679514073114E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083407743E+01
-    2.8614875201435012E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083368692E+01
-    2.7058694404576791E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083401789E+01
-    4.9725462322793497E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083402848E+01
-    4.4337700123907595E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083399963E+01
-    3.9460829318325175E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083426232E+01
-    3.5046958015507919E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083417208E+01
-    3.1087168594468704E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083424335E+01
-    2.7521775277814598E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083429010E+01
-    2.4320321930758222E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083440983E+01
-    2.1449918043938915E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083437835E+01
-    1.8880410766512629E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083437728E+01
-    1.6580691734035049E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083450383E+01
-    1.4527009683550196E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083443839E+01
-    1.2691451757800968E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083441054E+01
-    1.1053922005227303E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083451463E+01
-    9.5915002837642707E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083453062E+01
-    8.2859136033446337E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083448962E+01
-    7.1195703034876292E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083454966E+01
-    6.0768657128306831E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083455471E+01
-    5.1424480702441047E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083458839E+01
-    4.3033966370022174E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083461468E+01
-    3.5466574200061589E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083458689E+01
-    2.8604190425815470E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083458895E+01
-    2.2331622032487153E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083460402E+01
-    8.9662999653111841E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083460757E+01
-    1.3798382024076412E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083460359E+01
-    4.9227602092489292E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083461759E+01
-    6.1632893007590950E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7792253083462107E+01
-    1.7018086715014016E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.3698777047735585E-11
-    1.6664814430418716E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.7500344777013366E-11
-    1.7790591427442322E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.8450691515180853E-11
-    1.7975708762113381E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3942898912857606E-10
-    1.6920089481069652E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0423416339146683E-10
-    1.5992901532407577E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.0489542851558046E-10
-    1.5560186781608147E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.6069904046106322E-10
-    1.5311634058734281E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.2176198128489214E-10
-    1.5258154214373647E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1265045325108438E-09
-    1.5188853923195843E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8055102179277689E-09
-    1.5176433118218528E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.9815970741113586E-09
-    1.5586386258177910E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.9632535290512152E-09
-    1.6434114396168336E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.0291638739365153E-09
-    1.7346395349800538E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.5849629262543467E-08
-    1.6186238615514942E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.8233436807669320E-08
-    1.4963339940122133E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.1552129696500021E-08
-    1.4300772187144615E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.4264532076184804E-08
-    1.3890895357022135E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7268022020570977E-07
-    1.3615575456808509E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.1811941851091614E-07
-    1.3393139977248515E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.9581778824347223E-07
-    1.3235634464729991E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1334311534084766E-06
-    1.3087882196314913E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2010069235968537E-06
-    1.2995086079472582E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.3371970643558065E-06
-    1.2881534821068378E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.8214309308051143E-06
-    1.2778302919056650E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8479491913432189E-05
-    1.2668229457564747E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.9048578882218815E-05
-    1.2435219305558951E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.2152832165073092E-05
-    1.2173178782596057E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.6950232581409833E-04
-    1.1924405019849621E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.4551599777353357E-04
-    1.1690471182505853E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.0433709784161521E-04
-    1.1473063753220329E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.4401743468555903E-03
-    1.1299088395979654E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.9340086863150136E-03
-    1.1144862913349860E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.9475305724988664E-03
-    1.1006527472576062E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1999960985529811E-02
-    1.0914729735904093E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.4075246887470925E-02
-    1.0867402455296945E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.8038894303283383E-02
-    1.0847472949176138E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.5414253104649058E-02
-    1.0856581021134856E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8860438200495613E-01
-    1.0908436660915616E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.6812889437223856E-01
-    1.0988707286481899E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.0528825881111623E-01
-    1.1101455221473289E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3227786236661048E+00
-    1.1254039194497265E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.4223036057185303E+00
-    1.1455427411790557E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.3069833226066363E+00
-    1.1710083153725702E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.3759224165049115E+00
-    1.2002925786145521E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2054377499889773E+01
-    1.2331766874519428E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8654373612391918E+01
-    1.2697302043222704E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.7229236521003596E+01
-    1.3093453168687995E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.7464940432006195E+01
-    1.3504987767693116E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.8775299225871699E+01
-    1.3910040626643983E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.0450073291924625E+01
-    1.4286685687670170E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.1888550073747737E+01
-    1.4620977883801455E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.2768722040230884E+01
-    1.4904723836588717E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.3025115622415299E+01
-    1.5139391816178561E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0276369697669446E+02
-    1.5333669889051563E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1204673093844752E+02
-    1.5492854270045648E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2111652238339229E+02
-    1.5623882887389769E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3010147114665315E+02
-    1.5734105580634727E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3902036526519274E+02
-    1.6604544017426360E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.3295410385771760E+01
-    1.6629295574753385E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.4579636591089951E+01
-    1.6636027116107449E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.7753049157939699E+01
-    1.6661230178659622E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.9044010524034803E+01
-    1.6667463588718544E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.2214345009339084E+01
-    1.6690029736415951E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.3517041733975759E+01
-    1.6695184081299946E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.6754698071167354E+01
-    1.6715283086379074E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.8073975282084149E+01
-    1.6102224824454357E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8395092922167149E+02
-    1.6156130872304541E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.9288448112930246E+02
-    1.6203075489800909E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0186925896875556E+02
-    1.6245661692433174E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.1088085680388855E+02
-    1.6285487887983681E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.1970725134641873E+02
-    1.6317334762925210E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2992457526397678E+02
-    1.6366846496710043E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3567275717206002E+02
-    1.6389853853765494E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.4612098104899218E+02
-    1.6429276678310281E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.5199635870956172E+02
-    1.6452490502128306E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.6133985396081624E+02
-    1.6485999036207051E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.6732185963313049E+02
-    1.6511547505565360E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.7471447477172114E+02
-    1.6539879133119236E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.8075652033151079E+02
-    1.6565029081668261E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.8669319687981221E+02
-    1.6590239273260657E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.9205905131794447E+02
-    1.6615544638421596E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.9676945435399284E+02
-    1.6640115547702734E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.0097055932137329E+02
-    1.6663927290602757E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.0469087869398402E+02
-    1.6687443580113406E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.0772150305363658E+02
-    1.6710256516322055E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.1027342777549410E+02
-    1.6732431565347071E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.1234411715805487E+02
-    1.6754309847972610E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.1376433968627697E+02
-    1.6776220011470464E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.1433896105177905E+02
-    1.6797179886933677E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.1467076616289359E+02
-    1.6817835013440384E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.1441247101001238E+02
-    1.6838248035176807E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.1354306377389037E+02
-    1.6857811607732664E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.1250751830612825E+02
-    1.6877431128324115E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.1072543142626893E+02
-    1.6896816172345346E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.0841242029821126E+02
-    1.6915932817668853E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.0562009703312111E+02
-    1.6934570550629946E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.0254309139758777E+02
-    1.6952503834931779E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.9941326361574966E+02
-    1.6970490064028333E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.9567353039438262E+02
-    1.6988331709111968E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.9153693612203517E+02
-    1.7005742480813204E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.8722901203369582E+02
-    1.7022918738056493E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.8258490060211147E+02
-    1.7039898042447923E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.7763962651195533E+02
-    1.7056515285027501E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.7259207665791331E+02
-    1.7072801128256827E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.6747445959496525E+02
-    1.7089134342538980E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.6195199159151764E+02
-    1.7105315874907735E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.5622707127099363E+02
-    1.7121029142462117E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.5049057731910818E+02
-    1.7136264571861190E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.4460061333602019E+02
-    1.7151037059173326E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3858472908584304E+02
-    1.7165360029772938E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3246814981043124E+02
-    1.7179246189093035E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2627502491769189E+02
-    1.7192707611535699E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2002823097913225E+02
-    1.7205756774589499E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.1374847876026766E+02
-    1.7218286904969087E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0757997528659678E+02
-    1.7230550757260943E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0129016607174253E+02
-    1.7242449594545189E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.9500944550864767E+02
-    1.7253755676332315E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8900563678464891E+02
-    1.7264834091748650E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8291953608233155E+02
-    1.7275683327258129E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7677562395321195E+02
-    1.7286098920772247E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7081090659803655E+02
-    1.7296099627297938E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.6502609837086572E+02
-    1.7305891832851824E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.5922145129033692E+02
-    1.7315305033177491E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.5359720682764262E+02
-    1.7324426455856241E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.4807545481734320E+02
-    1.7333361693011661E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.4255938309494854E+02
-    1.7341864513963191E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3732491239306555E+02
-    1.7350111937213331E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3219560817991575E+02
-    1.7358190412739525E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2709389810208413E+02
-    1.7366021534446858E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2211316247353710E+02
-    1.7373546204454044E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1732397466635933E+02
-    1.7380778036510328E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1272092353263626E+02
-    1.7387798139641959E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0822854321682621E+02
-    1.7394669064776735E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0379073329627120E+02
-    1.7401278276253866E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.9530080105679630E+01
-    1.7407629550629231E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.5447386697845545E+01
-    1.7413849904826339E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.1420052615205151E+01
-    1.7419833138764446E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.7561364310518172E+01
-    1.7425588772096130E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.3864600997141949E+01
-    1.7431178202644563E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.0273262710190252E+01
-    1.7436605401613569E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.6788153421657469E+01
-    1.7441873116276565E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.3409961649139106E+01
-    1.7446944902348193E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.0176477419741289E+01
-    1.7451866709397034E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.7045960842518141E+01
-    1.7456610394732081E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.4047635565727504E+01
-    1.7461178103788306E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.1180769088485341E+01
-    1.7465654669733997E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.8369306957431526E+01
-    1.7469968227089765E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.5681492695759047E+01
-    1.7474093456171389E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.3139709264967280E+01
-    1.7478134686655938E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.0652062633197808E+01
-    1.7482037159883898E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.8269182162363101E+01
-    1.7485797716952124E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.5993396458177571E+01
-    1.7440074994332527E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.5489549813561098E+01
-    1.7449454723843992E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.7433311828518541E+01
-    1.7459106034340127E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.0022927640692942E+01
-    1.7468156845472400E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.3198945248041547E+01
-    1.7476581906276508E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.6971020142648136E+01
-    1.7484470788837278E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.1258304502089381E+01
-    1.7491848927222296E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.6031315525436177E+01
-    1.7498749738737118E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.1253604291599828E+01
-    1.7505202633358749E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.6891978587519930E+01
-    1.7511244481415172E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.2909172409156696E+01
-    1.7516894252817536E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.9280145062172391E+01
-    1.7522190462482207E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.5968710996373233E+01
-    1.7527148854412676E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2953501943815610E+01
-    1.7531801678118381E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0204640149052608E+01
-    1.7536170674427396E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7699514021509192E+01
-    1.7540281017619712E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.5414957243031724E+01
-    1.7544156239540310E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3330135365303297E+01
-    1.7547827202375359E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1422928618333385E+01
-    1.7551321990123768E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.6748535882480873E+00
-    1.7554681753505950E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.0655726260854745E+00
-    1.7557958473819497E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.5760659642544068E+00
-    1.7561231774647727E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.1866496955346220E+00
-    1.7572954263883112E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0982902936831334E+00
-    1.7566661180219800E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.2491905103485057E+00
-    1.7576222702229959E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1668931452473918E+00
-    1.7573095234159972E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.4678226148238962E+00
-    1.7579522141517320E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.0757621386768222E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.5495399776504104E+01
-    1.1549646910087070E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.6902710793911957E+01
-    1.1325611152288014E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.7564564903132307E+01
-    1.1349559593366758E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.7877360778530388E+01
-    1.1281674404467239E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.8209419100209686E+01
-    1.1256516200612772E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.8480067248091551E+01
-    1.1335479117681732E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.8463473578613524E+01
-    1.1262635283741199E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.8519057506575486E+01
-    1.1302365283303436E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.8413944451017095E+01
-    1.1459934296529504E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.8261016475932486E+01
-    1.1655106220193234E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.8447145003564820E+01
-    1.2084219677953129E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.8034005503846572E+01
-    1.1489999992297696E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.6965211764382591E+01
-    9.5731674659226478E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.5967086103229327E+01
-    8.0227595093409896E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.5195974848455265E+01
-    7.6262060409521215E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.4734242677681419E+01
-    7.8386603978107985E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.4515112881191570E+01
-    8.0428424761059247E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.4436562067732044E+01
-    8.2269507920945362E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.4341746233949614E+01
-    8.3342411823522351E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.4241778506680593E+01
-    8.2943137748524762E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.4046892001614310E+01
-    8.0602110925155461E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.3864115113365930E+01
-    8.2997731883648580E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.3550267816955305E+01
-    8.4542087923312490E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.3109257361142941E+01
-    7.8277915677229473E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.2534728373864137E+01
-    6.7241411344060493E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.1879150176220840E+01
-    5.9275042070070372E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.1497291640053511E+01
-    5.7487543071069389E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.1394213155394755E+01
-    5.8192938272729569E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.1386503287463334E+01
-    5.6603116386327281E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.1379322046012444E+01
-    5.2298485199691651E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.1411962335376376E+01
-    4.7697773199795535E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.1462049785001458E+01
-    4.4657882171565113E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.1529767372033252E+01
-    4.4329489333204890E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.1662889754479053E+01
-    4.6530063253399403E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.1835886073704174E+01
-    4.9311739415564606E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.2009637951757103E+01
-    5.4265143297958112E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.2197977516256127E+01
-    5.7192276005569012E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.2421595521286427E+01
-    5.7586934747645380E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.2677301036152727E+01
-    6.1242070152066939E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.2995071471439839E+01
-    6.6220233906558441E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.3381712153213574E+01
-    7.0981002607963797E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.3848217805791062E+01
-    7.5651649457185721E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.4406205850378456E+01
-    7.8614533387481762E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.5034590252147343E+01
-    8.0647828016847036E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.5756647914688937E+01
-    8.5509312499161805E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.6588937124727451E+01
-    9.1294643696921778E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.7514720172222727E+01
-    1.0001059161566401E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.8490380040020248E+01
-    1.0886670179426646E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.9453079538530059E+01
-    1.1656891928864539E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.0348135576481916E+01
-    1.2328734125200192E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.1144291827800849E+01
-    1.2914029833845415E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.1830993009983160E+01
-    1.3408078790409700E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.2411409735407894E+01
-    1.3816677946218631E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.2901524618064101E+01
-    1.4155914528945122E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.3311105085897829E+01
-    1.4429818272469252E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.3654636563953943E+01
-    1.4646002704943415E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.3945828849702650E+01
-    1.4821117171328265E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.5870906928807031E+01
-    1.6005940559610035E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.5953677896168003E+01
-    1.6051772500332273E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.5987578046725964E+01
-    1.6069882522017302E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6055404910875332E+01
-    1.6109969301216708E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6084875368943791E+01
-    1.6125760464311355E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6144857704179472E+01
-    1.6161099629144221E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6169524618554846E+01
-    1.6174398122072699E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6222839512956121E+01
-    1.6205912883347285E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.4906279343759948E+01
-    1.5395131905718664E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.5036967604040733E+01
-    1.5474504387407201E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.5156847757080975E+01
-    1.5545903776790448E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.5266015330951582E+01
-    1.5610367631153439E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.5367317217526860E+01
-    1.5670530365993175E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.5450246427012068E+01
-    1.5720673086408496E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.5569832014814210E+01
-    1.5790309388470666E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.5634089392394628E+01
-    1.5828450680330924E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.5726174310252297E+01
-    1.5883495026430994E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.5787140912268207E+01
-    1.5915902451944024E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.5864746978469441E+01
-    1.5957470375800698E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.5928433145364288E+01
-    1.5987985385731870E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.5993137988483021E+01
-    1.6019772504050096E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6052854805411094E+01
-    1.6048322325737239E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6109112305538623E+01
-    1.6076636047083575E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6166267031537039E+01
-    1.6104859742969673E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6220655814930971E+01
-    1.6132293043593226E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6272440621881579E+01
-    1.6158736800048775E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6322892144189616E+01
-    1.6184407206082909E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6370882616414242E+01
-    1.6208501733536576E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6416482924179306E+01
-    1.6231219628436772E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6460431037904016E+01
-    1.6253148741393684E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6503704721752491E+01
-    1.6274858104349697E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6544182406324630E+01
-    1.6294937927945274E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6583138773840169E+01
-    1.6314132172712888E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6620686712087114E+01
-    1.6332376487682286E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6655456083672860E+01
-    1.6348802767353614E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6689537281945185E+01
-    1.6364870802245530E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6722430518784769E+01
-    1.6380231117862962E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6754062411307657E+01
-    1.6394909040522698E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6783863081816584E+01
-    1.6408640590735292E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6811428989782478E+01
-    1.6421270805793228E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6838332198137593E+01
-    1.6434263185796048E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6864151418403431E+01
-    1.6447464719102904E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6888335979725767E+01
-    1.6460324830766471E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6911387809947080E+01
-    1.6472848527083126E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6933422971412114E+01
-    1.6485027307941994E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6954073111804675E+01
-    1.6496642646739012E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6973345715080072E+01
-    1.6507749817816777E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.6992029342164784E+01
-    1.6518983151408364E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7009753322702565E+01
-    1.6929901278478916E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7026172681613659E+01
-    1.6933792428903324E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7041860358017949E+01
-    1.6937544789575856E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7056847532067827E+01
-    1.6941164592178442E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7071175431047173E+01
-    1.6944657857536139E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7084887223479768E+01
-    1.6948030008113747E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7098024644188342E+01
-    1.6951285942934579E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7110627482271752E+01
-    1.6954430496449458E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7122473663972769E+01
-    1.6957418762149885E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7134105953312691E+01
-    1.6960300804383401E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7145306619497177E+01
-    1.6963086295928029E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7155578655596109E+01
-    1.6965722826952103E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7165682158008657E+01
-    1.6968313338969701E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7175592557837220E+01
-    1.6970856662685200E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7184909905606737E+01
-    1.6973268937243823E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7193670286841169E+01
-    1.6975557760383289E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7202298663818361E+01
-    1.6977807634455718E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7210420288403022E+01
-    1.6979947143258517E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7218217484477606E+01
-    1.6982012262181684E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7225909165342635E+01
-    1.6984046007655500E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7232966772190480E+01
-    1.6985945657763409E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7239765160470597E+01
-    1.6987784002989759E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7246480912920191E+01
-    1.6989595538552070E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7252947097703931E+01
-    1.6991347423419008E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7259038166705650E+01
-    1.6993014780032205E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7264778056434722E+01
-    1.6994602126488932E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7270332380846604E+01
-    1.6996141785764138E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7275829738498572E+01
-    1.6997658823949088E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7281028738383696E+01
-    1.6999105926327154E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7285934432394868E+01
-    1.7000483978511223E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7290810090497956E+01
-    1.7001844639528915E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7295424226327910E+01
-    1.7003142777141115E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7299793483961011E+01
-    1.7004381710229868E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7304040397602975E+01
-    1.7005585767269384E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7308166913625961E+01
-    1.7006755634829339E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7312174640501325E+01
-    1.7007891845637054E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7315981116614985E+01
-    1.7008978499652745E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7319678139683027E+01
-    1.7010033926863048E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7323198919242685E+01
-    1.7011045421963669E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7326541848573868E+01
-    1.7012013028461769E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7329880389054232E+01
-    1.7012971213886068E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7333056587816841E+01
-    1.7013889300350776E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7336012444099552E+01
-    1.7014756160236065E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7338962121278733E+01
-    1.7015614317690996E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7341783263448747E+01
-    1.7016440078431508E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7344471105816339E+01
-    1.7017231692609187E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7241658088280410E+01
-    1.6997287678658889E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7254367170046386E+01
-    1.7000137815308349E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7265571705303095E+01
-    1.7002798044140775E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7276067640038988E+01
-    1.7005292977415309E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7285769666292005E+01
-    1.7007607150078833E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7294837539552489E+01
-    1.7009773267030670E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7303294960402269E+01
-    1.7011797230380886E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7311186396707811E+01
-    1.7013688852012695E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7318548701971928E+01
-    1.7015456417563740E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7325435924851504E+01
-    1.7017111561378517E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7331865507809013E+01
-    1.7018658654081939E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7337897762166143E+01
-    1.7020110481611731E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7343545793076309E+01
-    1.7021470484322457E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7348859260725092E+01
-    1.7022749264118278E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7353866490979328E+01
-    1.7023953185401574E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7358604662786732E+01
-    1.7025090300899997E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7363108662602023E+01
-    1.7026168168081334E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7367430361483514E+01
-    1.7027197642473709E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7371617379283158E+01
-    1.7028188671060335E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7375747096146583E+01
-    1.7029156989407145E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7379922287889578E+01
-    1.7030123240184405E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7384308007634985E+01
-    1.7031120198733504E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7406897560914373E+01
-    1.7035700596153227E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7391784505530723E+01
-    1.7032803882898818E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7410750100896522E+01
-    1.7036619509259406E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7402635606986507E+01
-    1.7035088813114530E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7415293259133037E+01
-    1.7037640412473426E+01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.3647108412953357E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.4588594777049377E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.5075572936665371E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.5961326502203781E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.6655196877092135E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.7190812158049007E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.8209638809838860E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.8882846716225363E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.9958765301642512E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.1246143308302954E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.1556134432309424E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.3173722113614983E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.5200561900548326E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.5323308496991874E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.4051103316167137E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.3140153068062603E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.2975586623607018E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.3417053203586371E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.4525848516936395E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.5922004310362170E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.7187553694460296E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.7908514153208048E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.8315750648937024E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.7438633409824780E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.5453121578038580E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.4183866665961462E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.3805529695050360E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.4508802350851799E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.5952466398048215E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.7563484511401541E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.8857166697145447E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.9819088443632999E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.0356259188206574E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.0725457392982594E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.0585597979304802E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.0408861862552605E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.0544146966347863E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.9856640223434678E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.8619901830789098E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.7691469322336948E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.6634544738199786E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.5197385759290452E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.3347821719769519E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.0748212254061049E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.8024399385755698E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.5335143035244561E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.2876667392265038E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.0856846080316713E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    9.1566849070404843E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    7.6975251149946688E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    6.4912053890762578E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    5.5468373269421534E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    4.8219154648014179E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    4.2517703586466005E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.7969614951196878E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.4238861605409715E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    3.1112136043048966E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.4227847373505526E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.3487859768462035E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.3151778401117931E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.2533292431726034E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.2254664391266873E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.1724455958629384E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.1497821685398105E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.1037390246543451E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.1696321511648925E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    2.0530058207851923E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.9488965515243892E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.8556089567414499E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.7706103874793427E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.7023581777928573E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.6141425313625946E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.5694734634293608E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.5032094950378214E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.4646474990782293E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.4119003989138329E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.3705895086796588E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.3253584332122734E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.2834260065212713E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.2415571985623891E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.2001340968787534E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.1601924239719828E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.1219517551355494E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.0846307809602725E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.0489928410858593E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    1.0149507753058525E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    9.8192773512305945E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    9.4932753593531469E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    9.1893492475363256E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    8.8953308697728606E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    8.6083735700104594E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    8.3382378122134740E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    8.0677208223994906E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    7.8021104085333193E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    7.5422486345062087E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    7.2927243012730208E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    7.0585209266671833E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    6.8259184224949726E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    6.5964789292542486E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    6.3767499649570472E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    6.1690052091140771E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    5.9735130600434477E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    5.7914412437296323E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    5.6215004994834422E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    5.4563444756662388E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2004462342724998E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.1187848415515856E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0403037635727986E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.9648691711663402E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8923469577918192E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8226121074784815E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.7555479160283399E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.6910374584358226E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.6299466718640071E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.5701999512166009E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.5125957591829550E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.4589831020617974E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.4063946379729661E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3548544913698751E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3060101410791902E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2597059097942268E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.2142799455548407E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1711278600882347E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.1295394888561745E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0886701919947112E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0505206255596899E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.0136628635207269E-01
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.7742060361290684E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.4242964327907144E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -9.0916802745258055E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.7754111000691665E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.4691559052536947E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.1680145755023359E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.8811157387335309E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.6082305658408955E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.3393204169335008E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.0830738514153849E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.8388007257285541E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.6017632477815100E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.3717961340807511E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.1487653432278709E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.9356998559334143E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.7290380547107084E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.5311942029632015E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.3421282669446082E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.1551934726708715E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.9762601949585761E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.8074357897883696E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.6405405084375032E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.4800999575976393E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.3264290169791685E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.1415193039576256E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.5900520297850049E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.0756896939262223E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.5940841949717763E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.1480086402888358E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.7310592616871409E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -5.3419751858139033E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.9787681026824127E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.6397572080127632E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.3226388901517275E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.0265052861224511E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.7488582087581331E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.4889872085426314E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.2448282362676821E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -3.0151304386716496E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.7983285190770580E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.5929569619196197E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.3969292178967819E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.2083360534867737E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -2.0241741301715532E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.8405137691662445E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.6511288623021106E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -7.8239799937489460E-03
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -1.3315094334465394E-02
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -6.0804076822583326E-03
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -8.9764767860909533E-03
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-   -4.1392790412619262E-03
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
-    0.0000000000000000E+00
diff --git a/mtx/test/make/makefile_base b/mtx/test/make/makefile_base
index 3352bedd7..98e466243 100644
--- a/mtx/test/make/makefile_base
+++ b/mtx/test/make/makefile_base
@@ -9,8 +9,8 @@ MESA_DIR = ../../..
 include $(MESA_DIR)/utils/makefile_header
 
 SRCS = \
-   test_mtx_support.f test_block_tri_dble.f test_block_tri_quad.f \
-   test_square.f test_square_quad.f test_mtx.f
+   test_mtx_support.f90 test_block_tri_dble.f90 test_block_tri_quad.f90 \
+   test_square.f90 test_square_quad.f90 test_mtx.f90
 
 #################################################################
 #
@@ -34,7 +34,7 @@ LOAD_OTHER = -L$(MESA_LIB_DIR) $(addprefix -l,$(LIBS_OTHER)) $(LOAD_LAPACK) $(LO
 
 TEST = $(TEST_DIR)/tester
 
-OBJS = $(patsubst %.f,%.o,$(patsubst %.f90,%.o,$(SRCS)))
+OBJS = $(patsubst %.f90,%.o,$(patsubst %.c,%.o,$(SRCS)))
 
 all : $(TEST)
 
@@ -47,7 +47,7 @@ else
 endif
 
 clean:
-	-@rm -f *.o *.mod .depend $(TEST) test_block_tri_dble.f test_block_tri_quad.f
+	-@rm -f *.o *.mod .depend $(TEST) test_block_tri_dble.f90 test_block_tri_quad.f90
 
 nodeps : $(.DEFAULT_GOAL)
 
@@ -57,7 +57,7 @@ nodeps : $(.DEFAULT_GOAL)
 
 PREPROCESS = $(FC) $(FCfree) $(FC_free_preprocess) -E
 
-test_block_tri_dble.f: test_block_tridiagonal.f
+test_block_tri_dble.f90: test_block_tridiagonal.f90
 ifneq ($(QUIET),)
 	@echo PREPROCESS $<
 	@$(PREPROCESS) -E -DDBLE $< > $@
@@ -65,7 +65,7 @@ else
 	$(PREPROCESS) -E -DDBLE $< > $@
 endif
 
-test_block_tri_quad.f: test_block_tridiagonal.f
+test_block_tri_quad.f90: test_block_tridiagonal.f90
 ifneq ($(QUIET),)
 	@echo PREPROCESS $<
 	@$(PREPROCESS) -E $< > $@
@@ -73,7 +73,7 @@ else
 	$(PREPROCESS) -E $< > $@
 endif
 
-%.o: %.f
+%.o: %.f90
 ifneq ($(QUIET),)
 	@echo TEST_COMPILE $<
 	@$(TEST_COMPILE) $(FCfree) $<
@@ -87,7 +87,7 @@ endif
 
 SRC_PATH = $(TEST_SRC_DIR)
 
-vpath %.f $(SRC_PATH)
+vpath %.f90 $(SRC_PATH)
 
 vpath %.mod $(LOCAL_LIB_DIR):$(MESA_DIR)/include
 
diff --git a/mtx/test/sparse_data/E05R0100 b/mtx/test/sparse_data/E05R0100
deleted file mode 100755
index 5f5295844..000000000
--- a/mtx/test/sparse_data/E05R0100
+++ /dev/null
@@ -1,2423 +0,0 @@
-Driven Cavity   5 x  5     Re = 100.                                    E05R0100
-          2418            15           293          1952           158
-RUA                      236           236          5856             1
-(16I5)          (20I4)          (3D23.15)           (3D23.15)           
-FNX                        1             0
-    1   11   21   42   63   84  105  148  191  199  207  222  237  263  289  319
-  349  401  453  465  477  489  504  519  545  571  601  631  683  735  747  759
-  771  786  801  823  845  875  905  949  993 1005 1017 1029 1040 1051 1073 1095
- 1103 1111 1119 1134 1149 1179 1209 1235 1261 1313 1365 1377 1389 1401 1422 1443
- 1479 1515 1551 1587 1649 1711 1729 1747 1765 1786 1807 1843 1879 1915 1951 2013
- 2075 2093 2111 2129 2150 2171 2201 2231 2267 2303 2355 2407 2425 2443 2461 2476
- 2491 2517 2543 2555 2567 2579 2594 2609 2639 2669 2695 2721 2773 2825 2837 2849
- 2861 2882 2903 2939 2975 3011 3047 3109 3171 3189 3207 3225 3246 3267 3303 3339
- 3375 3411 3473 3535 3553 3571 3589 3610 3631 3661 3691 3727 3763 3815 3867 3885
- 3903 3921 3936 3951 3977 4003 4015 4027 4039 4054 4069 4099 4129 4151 4173 4217
- 4261 4273 4285 4297 4318 4339 4375 4411 4441 4471 4523 4575 4593 4611 4629 4650
- 4671 4707 4743 4773 4803 4855 4907 4925 4943 4961 4982 5003 5033 5063 5093 5123
- 5167 5211 5229 5247 5265 5280 5295 5317 5339 5351 5363 5375 5386 5397 5419 5441
- 5449 5457 5465 5480 5495 5521 5547 5559 5571 5583 5598 5613 5639 5665 5677 5689
- 5701 5716 5731 5753 5775 5787 5799 5811 5822 5833 5841 5849 5857
-   7   5   3   1   8   6   4   2   9  10   1   7   5   3   8   6   4   2   9  10
-   1   7   5   2   8   3   6   4   9  10  17  15  13  11  18  16  14  12  19  20
-  21   1   2   7   5   3   8   6   4   9  10  17  15  13  11  18  16  14  12  19
-  20  21   1   7   2   3   5   8   6   4   9  10  57  55  53  51  58  56  54  52
-  59  60  61   1   2   7   5   3   8   4   6   9  10  57  55  53  51  58  56  54
-  52  59  60  61   1   2   5   7   3   8   6   4   9  10  13  17  15  18  11  72
-  16  14  12  19  20  21  57  53  55  58  51  71  56  54  52  59  60  61  68  66
-  64  62  69  67  65  63  70   1   2   7   5   3   4   6   8  72   9  10  15  17
-  18  13  11  16  71  14  12  19  20  21  55  53  51  56  57  54  52  59  60  61
-  58  70  63  62  66  64  68  69  67  65   1   2   3   7   5   4   8   6   1   2
-   3   7   5   4   8   6   3   4   7   8  15  17  18  13  16  14  11  12  19  20
-  21   3   4   7   8  15  17  18  16  13  11  14  12  19  20  21   3   4   7   8
-  15  17  16  18  11  13  27  14  12  19  20  21  26  28  25  24  22  23  30  31
-  32  29   3   4   7   8  15  17  18  16  13  26  11  12  14  19  20  21  28  24
-  22  27  29  25  23  30  31  32   3   4   7   8  72  17  71  70  15  13  11  18
-  16  14  12  19  20  21  63  53  57  54  58  62  66  64  68  67  65  69   3   4
-   7   8  72  15  17  13  18  11  63  14  16  12  19  20  21  53  71  57  58  54
-  70  62  66  64  68  65  69  67   3   4   7   8  72  15  16  71  53  63  70  17
-  13  11  14  18  54  12  19  20  21  57  83  26  24  22  82  27  25  23  30  31
-  32  28  29  58  62  68  66  81  64  74  67  78  65  69  76  73  77  80  75  79
-   3   8   4   7  72  17  71  15  13  70  63  83  53  11  16  18  14  12  19  20
-  21  57  54  26  24  22  82  62  27  25  23  30  31  58  32  28  81  66  64  29
-  68  74  76  78  65  69  73  67  80  77  75  79   3   4   7   8  15  17  18  16
-  13  11  12  14   3   4   7   8  15  17  18  16  13  11  12  14   3   4   7   8
-  15  17  18  16  13  11  12  14  17  18  13  14  26  28  27  24  25  23  22  30
-  29  31  32  17  18  13  14  26  28  27  24  22  29  25  23  30  31  32  17  18
-  13  26  14  27  28  22  25  24  23  29  30  35  31  32  33  37  36  34  41  38
-  42  43  39  40  17  18  13  14  26  28  29  27  24  22  23  25  30  31  32  37
-  39  35  33  38  40  36  34  41  42  43  17  18  83  13  82  14  64  28  26  81
-  24  27  22  74  25  23  29  30  31  32  68  78  65  73  76  69  80  77  75  79
-  17  18  13  83  14  64  26  82  28  81  29  24  27  22  25  23  30  68  31  74
-  32  76  78  65  77  73  69  80  75  79  17  83  18  14  13  82  26  24  81  27
-  64  74  22  25  28  23  30  29  31  32  68  78  65  73  76  37  35  80  33  94
-  93  36  34  41  42  43  77  69  38  75  39  40  92  79  85  84  87  89  88  86
-  91  90  17  18  13  83  14  82  26  64  24  28  22  81  27  74  31  25  23  30
-  29  68  32  65  78  73  76  35  69  33  80  77  75  36  34  41  42  43  94  39
-  37  38  93  40  92  85  79  89  84  87  88  91  86  90  17  18  13  14  26  28
-  27  24  22  29  23  25  17  18  13  14  26  27  28  29  24  22  23  25  17  18
-  13  14  26  27  28  29  24  22  23  25  28  29  24  25  37  38  39  35  36  34
-  33  41  40  42  43  28  29  24  25  37  39  38  35  33  40  36  34  41  42  43
-  29  28  24  25  37  38  39  36  33  35  34  40  41  42  43  44  46  45  47  48
-  49  50  28  29  24  25  37  39  40  38  35  33  34  36  41  42  43  46  44  47
-  45  48  49  50  28  29  76  24  75  25  80  94  38  93  37  35  33  39  92  36
-  85  34  40  41  42  43  79  84  89  87  88  86  91  90  28  76  29  24  80  25
-  75  94  93  37  39  40  85  35  38  33  36  34  41  42  92  79  43  89  84  87
-  88  86  91  90  28  29  24  76  75  25  94  37  80  38  35  93  33  92  85  36
-  39  34  40  41  42  43  79  84  89  87  88  46  44  45  47  48  49  50  91  86
-  90 101  95 100  96  99  98  97  28  29  24  76  75  25  80  94  37  93  35  33
-  39  92  38  85  42  36  34  41  40  43  79  89  87  84  44  88  45  48  49  50
-  46  86  47  91  90 100 101  95  96  99  97  98  28  29  24  25  37  39  38  35
-  33  40  34  36  28  29  24  25  37  38  39  40  33  35  34  36  28  29  24  25
-  37  38  39  33  35  40  34  36  39  40  35  36  46  47  44  45  48  49  50  35
-  39  40  36  46  47  44  45  48  49  50  39  40  35  87  36  86  91 101  47  46
-  44  96  45  48  49  50 100  99  95  90  97  98  39  40  35  87  36  86  91  46
-  95  96  44  47  45  48  49  50 100 101  99  90  98  97  39  35  36  40  46  47
-  44  45  39  35  36  40  46  47  44  45  39  35  36  40  46  47  44  45   5   7
-   6   8  53  57  54  55  58  56  51  52  59  60  61   5   7   6   8  53  57  54
-  55  58  56  51  52  59  60  61   5   7   6   8  72  15  17  18  16  71  57  70
-  55  53  51  56  54  58  52  59  60  61  63  62  66  64  65  67  68  69   5   7
-   6   8  15  17  72  16  18  57  53  71  55  51  63  58  56  54  52  59  60  61
-  70  62  66  64  68  65  67  69   5   7   8   6  53  57  54  51  55  58  56  52
-  59  60  61 112 111 110 104 103 102 105 106 108 109 107   5   7   6   8  53  57
-  55  54  58  51 110 104  56  52  59  60  61 111 112 105 103 102 106 108 109 107
-   5   8   7   6 123  72  15  17  16  18  70  71  53  51  55  57  56  54  58 122
-  63  52  59  60  61  62  66  64  68  65  67 121 114 116 112 104 102 113 111 105
- 103 110  69 106 108 115 107 109 117 118 119 120   8   5   7   6 123  72  15  17
-  16  53  57  71  18  55  51  70  54  63  56  58 122  52  59  60  61  62  66  64
-  65  67  68 121 112  69 104 114 102 113 111 110 105 103 116 106 115 108 107 109
- 117 118 119 120   5   7   6   8  53  57  54  58  55  56  51  52   5   7   6   8
-  53  57  54  58  55  56  51  52   5   7   6   8  53  57  54  58  55  56  51  52
-   7   8  16  17  15  53  54  18  57  58  70  63  71  72  64  66  62  67  68  65
-  69   7  17   8  18  57  58  66  64  15  68  67  65  16  69  53  54  62  63  70
-  71  72   7   8  15  17  16  53  18  54  57  71  58  63  72  83  70  26  82  62
-  27  81  74  28  66  64  76  67  29  73  65  68  77  69  78  75  80  79   7   8
-  17  15  16  18  83  53  26  54  82  27  81  74  62  28  57  64  58  63  70  73
-  66  76  71  67  68  65  29  77  72  69  78  80  75  79   7   8  15  17  16  53
-  72  57  18  54  70  63  58  71  62  64 123 122  66  67  65 104 105  68  69 113
- 121 116 114 115 108 117 109 119 118 120   7   8  17  15  16  53  18  54  62  57
-  64  58 123  63  70  66  71 122  72  65  68 105  67 104  69 113 121 114 116 115
- 117 109 108 119 118 120   7   8  15  16  17  72  53  18  57  54  71  58  70  83
-  63  62  66  82  26  81  64 123  27 134  74  28 122  29  76  73  65  67  78 104
- 113 105 133  77  68 121 132  69 125  75 114 124  80 116 115 108 109 117 118 127
- 119 129 126 120 128  79 131 130   7   8  15  17  16  53  18  83  54  57  58  82
-  26  27  62  81  64  74  28  63 123  70  71  76  66 122  29  73 134  65  72 104
-  67  77  68  78 105 133 132 121 125 113  69 124 114 115 116  75 109 108 117  80
- 127 119 118 129 126 120 128 131  79 130   7  17  18  57  58   8  66  64  68  67
-  65  15  16  69  53  54  62  63   7  17  57  58  18   8  66  64  68  67  65  15
-  69  16  53  54  62  63   7  17  18  57  58  66  64  67  65  68   8  69  15  16
-  53  54  62  63  17  18  26  68  78  27  69  77  64  82  65  28  81  74  29  83
-  73  80  76  75  79  28  29  68  78  17  76  18  69  77  80  75  26  27  64  79
-  65  73  74  81  82  83  17  18  26  68  27  78  74  77  69  81  64  65  28  82
-  73  29  83  76  80  37  94  93  38  85  92  39  75  84  40  89  87  88  79  86
-  91  90  28  29  68  78  17  94  18  37  69  76  77  93  38  39  80  26  40  27
-  92  75  85  64  79  73  65  84  74  87  88  86  81  89  91  82  90  83  17  18
- 134  26  27  82 133  83  68  78  74  28 132  81  69  64 116 125  77  65  73 115
-  29 124  76  80 127 119  75 129 120  79 126 131 128 130 134  28  29 133 132  68
-  17  18 125  76  78  26 124  69  77 116  27  80  75 115  64  73  65  74 127 129
-  79  81 119 120 131  82 128 126 130  83  17  18  26  27  83  81  82  74  28  64
-  65  76  73  29  68  77  78  69 134 133 132 124 116  94 115 125  93  37  85  75
-  80  38  92  39  40  87  84  86  89 127 145 119 129  88 126 120 128 144 143 135
- 136  79 131  91 138 140 139  90 130 137 142 141  28  17  29 134  68  18 133  78
- 132  76  26 125  37  94  77  27  93  69  39  40  38  80  75 116  64 115 124  92
-  65  73 145  85  74 127  84  79 144 120 143  81  89  86 119  88  87 129  82 131
- 136  91  90 126 128  83 130 135 138 140 137 142 139 141  28  29  68  78  76  69
-  17  77  80  18  75  26  27  79  73  64  65  74  28  29  68  69  78  76  77  75
-  80  17  18  79  26  27  65  64  73  74  28  29  68  69  78  76  80  77  79  75
-  17  18  26  27  73  64  65  74  80  76  28  29  79  38  37  93  92  89  85  88
-  75  94  39  87  84  91  40  86  90  80  39  40  28  79  89  76  87  29  88  86
-  91  37  38  90  75  84  85  92  93  94  80  28  29  76  37  38  79  93  85  92
-  75  89  88  39  84  94  87  40  91  46  47  96  90  99  86 100  95  97  98 101
-  80  39  79  40  28  76  89  29  88 101  46  87  47 100  37  86  38  91  99  96
-  90  75  95  84  85  92  97  98  93  94  28  80 127  76  29 145  37 144  38  93
-  92  94  75 131  85  79  89  39  84 126  40 143  88  87 135 136  86  91 140 138
- 130  90 137 139 142 141  80 127 145  39  28  40  76 144  79 131  29 126 143  87
-  89  88  37  38 136  86  91 135  75  84  90  85 130  92 140 138  93  94 139 137
- 142 141  28  76  80  29 127  37  94  38  92  93 145  75  85  39  89  79 131  84
-  40  88 126 144  87 143 135 136  46  47  91  86 130  95  99 100  96 140 101 138
-  98  97  90 137 139 142 147 146 150 141 151 152 148 149  80  39  28 127  76  29
- 145  40  79 131  37 144  89  46 143 126  87  47  38  88 101  86  75 100  92  91
-  93  85  90 135  84 136 130  94  95  96  99 138  98  97 140 137 152 139 142 151
- 146 150 147 141 148 149  80  39  40  87  79  89  28  29  88  91  86  76  37  90
-  38  75  84  85  39  40  80  79  89  86  87  88  28  91  29  90  76  37  38  75
-  84  85  39  80  40  79  87  86  89  88  91  90  28  29  37  38  76  84  75  85
-  91  39  87  40  46  90  47  86  97  96  98  95  99 100 101  91  39  90  87  40
-  46  47  97  98  86  95  96  99 100 101  91  87  39  40  46  47  90  86 138  95
-  96  99 100  98 101  97 137 142 147 146 150 151 152 141 148 149  91  39  87  40
-  90  46  47 138  86  97 137  95  99  98  96 100 101 152 142 146 151 147 150 141
- 148 149  91  90  39  87  40  46  97  98  47  86  95  96  91  90  97  39  98  40
-  87  46  47  86  95  96  91  90  97  98  39  40  46  47  87  86  95  96  57  58
-  55  56 108 106 104 107 109 105 102 110 103 111 112  57  58 106 108 107 109  55
- 104  56 102 105 103 110 111 112  57  58  55 123  56 122  66 106 108  67 105  68
- 103 104 102 107 109 110 113 111 112 117  69 114 118 121 115 116 119 120  57  58
- 123  55 108  56 106  66 107 109 122 104  67  68 102 117 110 105 103 111 113 112
-  69 118 119 120 116 114 121 115  57  58  55  56 112 111 110 108 102 103 105 104
- 106 107 109 163 162 161 155 153 154 156 157 158 160 159  57  58  55 108  56 106
- 109 102 107 104 103 105 110 111 112 163 162 155 153 161 154 156 159 157 158 160
-  57  58  55  56 123 122  66 112  67 111  68 110 103 105 102 106 104 107 109 108
-  69 113 117 114 121 115 118 116 119 164 120 174 173 172 162 163 153 165 161 155
- 154 156 167 166 168 158 160 157 159 170 169 171  57  55  58 123  56  66 122  67
- 107 106 108 104 105  68 102 109 110 103 113 111 117 112  69 114 118 121 119 116
- 120 164 115 174 173 172 155 153 165 163 162 161 154 156 166 157 158 159 167 168
- 160 169 170 171  57 107 106  58 108 109  55 104 105  56 102 103 106  57 107  58
- 109 108 105 104  55  56 102 103 106 107  57 108  58 109  55 104 105  56 102 103
- 108 109 117  57 118  58 120  66 119 104  68 105  67  69 122 115 113 116 114 121
- 123  68  69 116 115  57 109 108  58 117 104  66 105 118 119  67 113 120 114 121
- 122 123 108 109  57 117  58  77  78 118 134 104  66 119 120 105  68  67 113 129
- 133  69 121 122 132 114 116 123 115 131 124 125  80 128 127 130 126  79 134 133
-  78  68  77 132  69 125 124  80  57 115 116  58 108 109 117 104 105 127  66  67
- 113 119 118 129  79 121 126 128 122 114 131 120 123 130  57 108 109  58  66  67
- 118 117 119 105 104 120 174 113 173 172  68 165 122  69 115 114 121 164 167 155
- 116 156 123 166 159 168 160 170 169 171  68  69  57 116 115  58 117 108 105  66
- 109 104  67 113 114 164 119 121 118 174 120 122 173 156 165 155 123 172 167 166
- 168 160 169 159 170 171  57 108  58 109  77  66  78 117 104 134  67 133  68 105
- 118 113 120 174 119 173 172 114 165 121  69 164 122 123 132 116 129 115 124 185
- 125 167 184  80 131 155 166 127 128 156 168 159 126 130  79 183 160 170 169 176
- 171 178 175 177 180 179 182 181  78 134 133  77 132  68  69  57 125 124 116  80
-  58 115  66 105 104  67 108 117 109 113 114 122 127 118 119 129 121 126  79 164
- 174 123 156 128 173 131 165 120 185 172 184 155 167 168 166 160 169 183 159 176
- 175 170 130 178 171 177 180 179 181 182  68  69 116 108 115 109 117  57 118 104
- 105  58 119  66  67 113 120 114  68  69 116 108 109 117 115 120 118 119 104  57
-  58 105 113  66  67 114  68  69 116 120 108 109 117 118 115 119 105 104  57  58
-  66  67 113 114  80  79 127 129 119  78 120 131  77 128 126  68 115  69 130 116
- 124 125 132 133 134  80  79 120 127 129 119 131 126 128  78 130  77 115  68 116
-  69 124 125 132 133 134  78  80  77 119 127  68 115 129  69 124 120 145  89  88
-  79 116 131 128 126 125 144 132 133 135 143 136  91 134  90 140 138 130 139 137
- 142 141  80  79 145 120  89  88 129 127 144 119 131  91  90 143 136  78 135 128
- 126 138 140 130  77 115 124 116  68 139  69 142 137 125 132 133 141 134  77  78
-  80 127 119  68 115 129 124  69 125  79 185 132 133 126 116 120 131 128 184 167
- 166 134 176 183 175 130 170 171 178 177 180 179 181 182  80  79 185 127 120 184
- 131 119 129 167  78 166 183 128  77 126 130 115 171 176 124 170 175  68 116 125
-  69 132 133 179 177 178 134 180 182 181  78  77  80  68  69 115 124 119 127 132
- 125 116 145  89 129 133  88 126 120 144 185 134 128  79 143 184 131 136 135 167
- 166 196  91 138 183  90 140 176 175 195 170 178 139 137 194 171 177 130 180 142
- 182 187 179 181 186 191 190 189 141 188 193 192  80  79 127 120 145  89  88  90
- 129 144 119 143 185  78 131  91 136 167 166 184  77 196 128 126 115 130  68 135
- 195 124 171 140 138  69 170 116 194 187 125 183 142 132 133 139 175 137 176 178
- 141 134 177 180 179 182 181 191 189 186 193 190 188 192  80  79 129 119 120 127
- 131 128 126 130  78  77 116  68 115  69 124 125  80  79 127 129 119 120 131 128
- 126 130  77  78 116 115  68  69 124 125  79  80 127 129 131 119 120 130 128 126
-  78 115  68  69  77 116 124 125 131  91  90 130  80 127 140 138  89  88 126 137
- 139 136 142 143 135  79 144 141 145 131  91  90 130 140 138 127 137 142  80 139
-  89 141  88 135 126  79 136 143 144 145  80 131 127  89  88  91  90 126 130 138
- 140 135 136  98 143 144  79  97 139 142 137 147 145 146 150 151 141 152 148 149
- 131  91  90 130  98  97 140 152 127 138 142  80 151 150 139  89 137  88 147 126
- 141 146 135  79 136 149 148 143 144 145  80 127  89 131  88 126  79 143 196  91
- 136 144 135 138 140 145 195  90 178 137 194 130 142 139 177 187 182 186 189 181
- 191 190 141 188 193 192 131  91  90 196 130 195 138 127 194  80 140 178  89 187
- 142  88 137 139 177 126 182 181 135 141 136 143  79 189 191 144 186 145 188 190
- 193 192  80  89 127  88 126 131  79 136 143 144 135  91 138 196  98 140  90 139
- 145 182  97 177 130 137 181 146 178 195 191 194 147 150 187 142 151 152 149 148
- 190 186 189 188 197 198 201 193 141 202 192 199 203 200 131  91  90 196  80 140
- 130  97 127  98 195 138 178  89  88 194 152 137 126 139 187 177 142 182 135 151
- 136 150 181  79 147 191 143 189 146 141 186 144 148 149 203 145 202 201 198 190
- 197 188 193 192 199 200  91  90 131 140 130 138 142 137 139 127  80 141  89  88
- 126 135  79 136  90 131  91 138 130 140 137 139 142 141 127  80  89  88 126 135
-  79 136  90  91 131 138 140 130 142 139 137 141 127  80  89  88  79 126 135 136
- 142 138 141  91  98  97 149  90 137 148 146 147 150 151 152 142 148 141 138 149
-  91  98  97  90 137 146 147 150 151 152 142 138  91  98 141 189  97  90 137 146
- 149 147 148 150 152 203 151 197 202 201 188 198 193 192 199 200 142 141 138  91
- 189  98 148  97  90 146 149 137 147 150 151 203 202 197 152 201 188 198 193 192
- 199 200 142 141 148 138 149  91  98  97  90 137 146 147 142 141 149 148 138  98
-  97  91  90 137 146 147 142 141 149 148  91  98  90 138  97 137 146 147 107 109
- 108 106 155 154 156 161 157 162 153 163 158 160 159 109 157 108 158 159 107 160
- 106 155 153 156 154 161 162 163 117 109 108 107 119 106 118 164 161 156 154 168
- 153 155 162 173 174 172 165 163 120 158 157 160 167 159 170 166 169 171 117 109
- 108 157 158 107 118 106 119 168 159 155 153 160 164 174 162 156 154 161 165 173
- 170 172 163 120 169 171 167 166 109 108 107 106 163 162 156 154 161 155 153 158
- 160 159 206 204 157 207 205 208 209 210 109 108 107 157 106 159 155 153 154 158
- 156 160 162 161 163 206 207 204 205 208 209 210 117 109 108 107 164 119 106 163
- 162 161 154 118 156 120 172 155 165 153 173 174 167 168 166 158 160 169 215 206
- 157 212 211 204 159 207 205 208 209 210 216 217 170 213 214 171 117 107 109 108
- 106 119 118 168 164 157 155 153 159 154 158 156 161 162 174 173 165 172 160 163
- 120 170 167 166 212 217 215 206 169 171 204 207 205 208 209 210 211 216 213 214
- 157 158 109 108 159 160 107 155 106 153 156 154 157 159 158 109 108 160 107 155
- 156 106 153 154 157 158 159 109 160 108 107 155 156 106 153 154 159 169 160 168
- 117 171 170 119 109 118 108 155 156 165 172 173 164 167 166 174 120 120 119 166
- 167 168 117 159 160 109 170 169 156 155 108 171 118 164 165 172 173 174 159 117
- 168 169 171 129 160 170 118 109 119 155 185 108 156 164 165 180 131 173 172 167
- 174 184 128 120 166 182 179 175 183 181 176 130 178 177 119 185 120 129 131 128
- 184 117 166 109 160 168 167 159 130 183 156 176 170 108 169 155 118 164 171 178
- 165 172 175 177 173 180 174 179 182 181 117 159 160 171 170 168 169 217 216 118
- 109 119 108 215 212 155 164 156 214 211 173 165 172 174 206 207 213 167 166 120
- 119 120 117 109 167 166 168 108 118 160 155 156 164 159 170 217 212 165 211 169
- 216 172 215 173 206 207 174 171 214 213 117 159 168 160 129 171 109 108 118 119
- 170 217 169 216 155 185 164 156 215 212 128 131 174 165 172 173 211 214 167 120
- 213 207 206 166 184 180 224 179 183 175 223 176 182 222 219 181 218 220 221 177
- 178 130 119 117 129 185 128 120 131 184 109 167 166 108 118 155 168 156 183 160
- 164 176 172 165 173 169 159 217 130 175 216 211 215 207 170 174 212 206 178 213
- 214 171 177 180 179 218 219 222 223 224 181 220 221 182 119 120 167 166 168 159
- 117 160 170 169 109 171 156 155 108 164 118 165 119 120 167 166 168 159 160 117
- 170 169 171 109 156 155 108 164 118 165 119 120 167 166 168 159 170 160 117 169
- 171 156 109 155 108 164 118 165 131 129 130 119 170 166 167 128 171 178 177 120
- 180 179 183 176 175 184 185 181 182 131 130 170 129 171 178 177 119 180 179 167
- 128 166 120 182 175 181 176 183 184 185 131 129 119 196 167 166 140 195 128 170
- 194 130 120 178 187 171 139 175 142 177 183 176 180 179 184 185 189 141 186 191
- 188 181 190 182 193 192 131 196 195 130 140 129 139 170 194 171 187 119 177 178
- 167 180 142 166 128 179 120 175 189 186 141 176 182 183 181 191 188 190 184 193
- 185 192 129 131 119 167 128 166 120 170 175 176 178 213 177 183 214 130 171 184
- 180 182 185 218 181 179 219 220 221 222 223 224 131 129 170 119 130 171 178 167
- 177 214 166 128 213 120 224 179 180 223 222 175 218 219 183 176 184 185 181 221
- 220 182 129 119 131 167 128 166 184 120 196 185 140 170 175 176 183 213 195 139
- 130 214 177 194 178 182 180 187 142 191 181 171 179 186 190 220 218 221 219 189
- 188 222 223 141 224 225 229 226 193 230 231 192 227 228 131 129 196 119 140 195
- 170 130 171 194 178 187 167 166 128 177 213 120 214 139 180 142 179 175 218 222
- 183 223 224 186 141 176 184 219 189 185 193 188 191 192 221 220 181 190 226 225
- 227 182 228 229 230 231 131 130 170 171 178 129 177 180 179 119 182 167 181 128
- 166 120 175 176 131 130 171 170 178 177 179 180 129 182 181 119 166 167 120 128
- 175 176 131 130 170 171 178 180 177 179 181 182 129 119 120 166 167 128 175 176
- 131 142 140 189 141 178 188 130 177 139 187 191 181 194 193 195 186 182 192 190
- 196 142 141 182 181 189 191 193 131 190 192 188 140 139 130 177 186 178 187 194
- 195 196 131 140 142 130 139 178 149 148 189 177 141 191 197 198 187 181 190 182
- 195 188 186 194 201 196 193 202 203 192 199 200 142 141 181 182 203 191 131 202
- 189 148 149 140 201 198 190 197 188 192 193 139 178 177 130 186 199 187 200 194
- 195 196 131 140 142 139 130 182 177 187 189 194 191 195 141 196 181 178 220 221
- 188 186 190 226 225 229 193 230 231 192 227 228 142 231 182 181 220 141 131 221
- 189 230 191 140 229 190 188 226 193 130 225 139 178 192 177 186 187 194 228 195
- 196 227 131 140 182 139 130 177 194 142 181 187 178 195 191 149 196 148 197 220
- 190 189 221 186 198 188 141 225 202 226 201 193 231 203 229 199 230 200 227 228
- 192 232 233 234 235 236 131 142 231 182 191 140 181 141 148 149 189 230 229 220
- 197 190 130 139 221 226 178 177 188 225 187 198 186 201 194 202 196 193 195 203
- 227 192 199 200 228 232 233 234 235 236 142 141 182 181 189 191 193 188 190 192
- 131 140 139 130 177 186 178 187 142 141 181 182 189 191 190 193 188 192 131 140
- 177 130 139 186 178 187 142 141 182 181 189 191 192 190 188 193 131 140 130 177
- 178 139 186 187 193 192 142 149 148 200 199 189 188 141 197 198 201 202 203 193
- 192 199 200 142 149 148 189 188 141 197 198 201 202 203 142 149 192 193 148 200
- 227 188 189 199 228 197 141 198 202 203 201 232 233 234 235 236 193 192 142 199
- 149 148 227 200 189 228 188 197 141 198 201 202 203 232 233 234 235 236 193 192
- 200 199 142 149 148 189 188 141 197 198 193 192 200 199 142 149 148 189 188 141
- 197 198 193 192 200 199 142 149 148 189 188 141 197 198 160 158 206 159 157 207
- 204 205 208 209 210 160 206 159 158 207 157 204 205 208 209 210 168 160 170 169
- 158 171 215 157 159 212 204 206 207 205 208 209 210 211 216 214 217 213 168 170
- 160 169 171 158 157 206 159 211 213 214 204 207 205 208 209 210 212 215 216 217
- 160 206 159 158 207 157 204 205 160 206 159 158 207 157 204 205 160 206 159 158
- 207 157 204 205 170 168 171 160 169 214 206 159 213 207 211 212 215 216 217 170
- 171 168 160 169 214 213 206 159 207 211 212 215 216 217 168 170 160 169 171 206
- 180 159 207 214 211 212 213 215 224 216 217 179 223 219 218 222 182 181 221 220
- 170 168 171 160 169 224 180 213 206 214 159 211 223 207 179 212 222 218 219 215
- 182 216 181 220 221 217 170 171 168 160 213 214 169 206 159 207 211 212 170 171
- 214 168 213 160 169 206 159 207 211 212 170 171 214 213 168 160 169 206 159 207
- 211 212 182 170 214 181 213 221 220 180 171 179 218 219 222 223 224 182 181 170
- 220 221 214 213 179 180 171 218 219 222 223 224 170 214 182 191 213 181 180 190
- 171 179 221 231 220 218 230 229 219 222 223 226 193 224 225 192 227 228 182 170
- 191 181 214 213 190 220 231 230 221 218 180 179 193 171 229 219 222 223 226 225
- 224 192 227 228 182 181 220 170 221 214 213 179 171 180 218 219 182 181 221 220
- 170 214 213 180 171 179 218 219 182 181 220 221 170 214 213 180 171 179 218 219
- 193 192 221 191 220 228 181 227 182 190 225 226 229 230 231 192 193 227 228 191
- 220 221 181 182 190 225 226 229 230 231 193 192 191 221 220 200 199 181 228 190
- 182 225 227 229 226 230 231 232 233 234 235 236 193 192 199 200 221 227 191 220
- 181 228 182 225 190 226 229 230 231 232 233 234 235 236 193 192 228 227 191 221
- 220 181 182 190 225 226 193 192 228 227 191 221 220 181 182 190 225 226 193 192
- 228 227 191 221 181 220 182 190 225 226 192 193 199 200 227 228 232 233 234 235
- 236 192 193 199 200 227 228 232 233 234 235 236 192 193 199 200 227 228 232 233
- 192 193 199 200 227 228 232 233 192 193 199 200 227 228 232 233
- -0.537553773299707D+00 -0.242992558652598D+01 -0.825627372250049D+00
-  0.841997962308731D+01 -0.442562974401468D+00  0.617929285163604D-02
-  0.225331765653178D-01  0.583647752758973D-01  0.177777768505930D+00
- -0.132454768507484D-08 -0.702303979405557D-01 -0.447670297658605D+00
- -0.254385396314495D-01 -0.101627556783898D-01 -0.524951827490509D+00
- -0.599729883961185D+00 -0.254654147402233D+01  0.864668704382179D+01
-  0.132454758619560D-08  0.177777779102311D+00 -0.653458820052381D+00
- -0.104886789008112D+01 -0.498437167293971D+00  0.225331765653178D-01
-  0.714814998674840D-02  0.521828026874075D+01  0.446325914487400D+00
-  0.998234475715746D-01  0.444444421264772D-01  0.132454768594220D-08
-  0.206225364529241D+00 -0.566894701912277D+00 -0.683105796950441D-01
- -0.975156334471836D+00  0.109968742349889D+00 -0.442619598714648D+00
- -0.271477203621291D-01  0.225400395520833D-01 -0.198682152674490D-08
-  0.444444421264772D-01  0.132454768334012D-08 -0.101627556783898D-01
- -0.237437292182466D+01 -0.128208799610184D-01  0.441218591230159D+00
- -0.374039558342654D-01  0.224566897127728D-01 -0.485835181748343D+00
-  0.651505323169253D+01  0.331136904788837D-09 -0.888888888888817D-01
-  0.112645202113638D+00 -0.447683169442110D+00  0.478589781823816D-02
- -0.865628087698819D-02  0.130731507474635D+00 -0.554793331095159D+00
-  0.244568926268483D+00 -0.269427744492281D+01  0.133333333333333D+00
-  0.331136887007921D-09 -0.888888888888817D-01 -0.260026982202464D+01
- -0.185113266936259D+00  0.617929285163600D-02 -0.580831484948663D+00
-  0.630174450627466D+01  0.469116465515090D-02  0.155864979697050D-01
-  0.446325914487297D+00 -0.888888849152387D-01 -0.331136927340242D-09
-  0.128701228693988D+00  0.123726998843000D+00 -0.510625088347906D+00
- -0.231137068520635D+01  0.111707177984289D+00  0.141687628397717D-02
- -0.443739984435310D+00  0.272435546931499D-02  0.133333327372868D+00
- -0.888888849152387D-01 -0.331136904355156D-09 -0.254385396314495D-01
- -0.770074119459849D+00 -0.135059596117715D-01 -0.111390269922802D+00
-  0.441218591230263D+00 -0.116091437518227D+01 -0.568229499403035D+00
-  0.543158866029852D+01 -0.132454761525222D-08  0.444444447755726D-01
-  0.113546557217985D+00  0.240195865933419D-01 -0.448093927397116D+00
- -0.289441799311218D-01  0.190399704940303D+00 -0.254030964573092D+00
- -0.497836263981864D+00 -0.478877388371105D+00  0.198682138796702D-08
- -0.132454760007339D-08  0.444444447755726D-01 -0.541714839206496D+00
- -0.442562974401468D+00 -0.390857698966740D-01  0.364391119565808D+01
- -0.122245654473573D+01  0.191353533132027D-01  0.469116465515096D-02
-  0.714814998674834D-02 -0.222222207321017D-01 -0.333333315120763D-01
-  0.238787566584636D+00 -0.140478498988708D+00 -0.292111625345855D+00
- -0.327340930330401D-02 -0.610454687761135D+00 -0.333333315120763D-01
-  0.513947430258882D-02 -0.112253479872302D+00  0.446269290174220D+00
- -0.333333323399186D-01 -0.222222217255125D-01  0.333333321743501D-01
- -0.284846590086252D-01 -0.940073122793432D+00  0.112342168500929D+00
-  0.266097479746782D-02 -0.470002463077104D+00 -0.222222207321017D-01
- -0.110515044237902D+00  0.322339066200000D-02  0.445148904453454D+00
-  0.333333323399186D-01 -0.222222217255124D-01  0.333333321743501D-01
- -0.312221669154802D-01  0.140376189010092D+00  0.186838251456350D+00
- -0.540057308007180D+00 -0.285614670393971D-01  0.111678735490011D+00
-  0.110679906816145D+00 -0.443403734646274D+00  0.333333313465078D-01
- -0.447670297658605D+00 -0.529112893397298D+00 -0.538939534705943D-01
- -0.135059596117715D-01 -0.128208799610183D-01 -0.151131964941836D+00
- -0.101488687814268D+01  0.382275547110021D+01 -0.222222227189232D-01
- -0.333333336644662D-01 -0.222222227189232D-01 -0.134291364875233D-01
-  0.652936579827675D-02  0.723143632851020D-01 -0.109577020108553D+00
-  0.441205719446654D+00 -0.127060789100264D+01 -0.333333336644662D-01
-  0.163293694628868D+00 -0.598353263962109D+00  0.333333328366239D-01
-  0.333333330021924D-01 -0.222222217255125D-01 -0.108675665004206D+00
- -0.141196998283060D-01  0.440794961491752D+00  0.174040629846083D+00
-  0.105257658754024D-01  0.130702997730683D+00 -0.457213585729154D+00
- -0.333333328366240D-01  0.333333330021924D-01 -0.222222217255125D-01
- -0.291978803933746D+00  0.333333338300347D-01 -0.528362522592822D+00
- -0.447848159185902D+00  0.113843681774619D+00  0.112841990239583D+00
- -0.290502878789739D-01 -0.280241058759532D-01  0.202319854349320D+00
-  0.111661727848846D+00  0.177777768505930D+00  0.132454758619560D-08
-  0.444444421264772D-01 -0.222222207321017D-01 -0.888888849152387D-01
-  0.331136904788837D-09 -0.333333336644662D-01 -0.132454761525222D-08
- -0.132454768507484D-08  0.177777779102311D+00  0.132454768594220D-08
- -0.333333315120763D-01 -0.331136927340242D-09 -0.888888888888817D-01
- -0.222222227189232D-01  0.444444447755726D-01 -0.505722817359338D+00
-  0.225400395520833D-01 -0.468313418630534D+00  0.446269290174220D+00
- -0.229929862059099D+01 -0.594087060129451D+00 -0.441699809168904D+00
- -0.122380040574470D+01  0.167497929852710D-01  0.860508895801520D-01
-  0.819078614913406D+01  0.411740596485943D+00  0.000000000000000D+00
-  0.177777768505930D+00 -0.397364304481618D-08 -0.865628087698823D-02
- -0.222484392781032D+01  0.441205719446654D+00 -0.456211994831508D+00
- -0.245454719481202D-01 -0.447342077496385D+00 -0.570879709131232D+00
- -0.378859787563836D+00 -0.104872627122454D-01 -0.765744922994508D-01
- -0.288953074784861D+01  0.887588051824430D+01  0.173472347597681D-16
-  0.132454761221645D-08  0.177777776453216D+00 -0.244568878593943D+00
- -0.271477203621291D-01  0.170039637736761D+00 -0.112253479872315D+00
- -0.409098181593276D+00 -0.982268659907677D+00  0.447189079719964D+00
-  0.999053125239424D-02 -0.310469466669746D+00  0.510276532170466D+01
- -0.441567336975306D+00  0.352966061866908D+00  0.860508895801521D-01
-  0.397364305002035D-08  0.444444421264772D-01  0.264909537318544D-08
- -0.649221954912900D+00  0.225264103614007D+00 -0.668998378985455D-01
-  0.967435813053686D-01 -0.153000913221844D+01  0.865615786121269D-01
- -0.397364306042869D-08  0.444444484180786D-01  0.264909537361913D-08
-  0.110695537901638D+00  0.478589781823818D-02  0.683106273695848D-01
- -0.109577020108540D+00  0.945457657809928D-01  0.441546811392379D+00
- -0.142765642611164D-01  0.132229171261981D+00 -0.385890764367673D+00
- -0.405385619286744D-01 -0.449101404070782D+00 -0.104872627122454D-01
- -0.197619980877365D+01  0.663056790478282D+01 -0.133333331346512D+00
-  0.331136912595092D-09 -0.888888875643341D-01  0.112521670516784D+00
-  0.542917637812410D-02 -0.972826332120047D-02 -0.625894824571965D+00
-  0.144950828147680D+00  0.380799706371081D+00 -0.318852722917103D+01
-  0.133333331346512D+00  0.331136940784349D-09 -0.888888875643341D-01
- -0.511873311761053D+00 -0.442619598714544D+00  0.706077618236638D-01
-  0.513947430258871D-02 -0.993410737351597D-09 -0.466205055436531D+00
- -0.888888849152387D-01  0.133333327372868D+00  0.614735067481450D+01
- -0.680775942106816D+00 -0.282113999813085D+01  0.795418675248649D-02
-  0.545874307353913D-01  0.447189079719860D+00  0.167497929852711D-01
- -0.133333327372868D+00 -0.888888849152387D-01 -0.993410767709257D-09
-  0.101949797084795D-01 -0.440533264438028D+00  0.100801468190363D+00
-  0.445485154242490D+00 -0.110543486732180D+00 -0.198968296732570D+01
-  0.308925840869694D-01 -0.543135451339398D+00  0.145083177601582D+00
-  0.115636189145753D-01 -0.443760331102249D+00  0.113678240798447D+00
- -0.447683169442213D+00 -0.499771940943935D+00 -0.134291364875233D-01
- -0.907888503833116D+00  0.444444441132988D-01 -0.104469916314847D+00
- -0.126883028637246D-01  0.441546811392483D+00 -0.140554694527794D+01
- -0.245454719481203D-01 -0.783080804978980D-01 -0.657568524881213D+00
-  0.558598253959410D+01 -0.900701165103696D+00 -0.198682139924272D-08
- -0.132454759660394D-08  0.444444441132987D-01  0.441040729702965D+00
- -0.132454760354284D-08 -0.108378540447572D+00  0.162745115317061D+00
- -0.428838412796286D+00  0.198682139490591D-08 -0.276940819036338D-01
-  0.203601695782652D-01 -0.447964240256426D+00  0.113468577872146D+00
- -0.520790855349568D+00  0.203680615345326D+00 -0.376265142882611D+00
-  0.202601809989831D+00  0.109968742349876D+00 -0.272314335954338D+00
- -0.327340930330401D-02  0.333333325054870D-01  0.205546845925009D+00
-  0.795418675248649D-02 -0.222222222222178D-01  0.150905032431582D+00
-  0.445128557786515D+00  0.333333328366240D-01  0.357034287595688D+01
- -0.133222928171172D+01 -0.495786917870394D+00  0.999053125239441D-02
-  0.301739090276983D-01 -0.111542315406033D+00 -0.441699809168904D+00
- -0.333333308498025D-01 -0.222222202353963D-01 -0.333333311809394D-01
- -0.171740001070109D-01 -0.333333356512877D-01 -0.663045469758176D+00
-  0.279954223287626D+00 -0.737672122881349D+00 -0.222222232156285D-01
-  0.894703197462737D-02 -0.111526684320553D+00  0.447321551913562D+00
- -0.333333373069723D-01 -0.222222252024501D-01  0.333333369758354D-01
- -0.357425460588189D-01 -0.154877097479958D-02  0.269940885161474D-01
- -0.360580464968650D+00 -0.733555498955234D-01  0.739905079018706D-01
-  0.333333353201508D-01 -0.782529191973391D+00 -0.443306082997069D+00
- -0.108543981423744D+00  0.113597394114730D+00  0.248449027548470D-02
-  0.105990538432339D-01  0.111791512479449D+00 -0.593068786598928D+00
-  0.163793116092007D+00 -0.300130109052687D-01  0.194398700162926D+00
- -0.355101382982034D-01  0.112645202113651D+00 -0.595214736805278D-01
-  0.127107952935225D+00  0.652936579827676D-02 -0.222222213943756D-01
- -0.586124936319416D-01  0.333333325054871D-01 -0.126883028637244D-01
- -0.142765642611164D-01 -0.333333323399186D-01 -0.338235789505959D+00
- -0.222222223877863D-01 -0.109380231982621D+00 -0.447342077496385D+00
- -0.733795043916397D+00  0.389632379088372D+01 -0.217731450542066D+00
- -0.472579566872175D+00 -0.333333333333293D-01 -0.333333331677609D-01
- -0.222222223877863D-01  0.265052676765706D-01  0.757284906115475D-01
- -0.182874408938221D-01 -0.109700551705407D+00  0.439787484817982D+00
- -0.333333331677609D-01  0.440924648632441D+00 -0.160330753074068D+01
-  0.199640929608769D+00 -0.714344919690290D+00  0.333333323399185D-01
-  0.333333325054870D-01 -0.139759341004301D-01 -0.222222213943755D-01
-  0.561941285627919D-02  0.333333333333294D-01 -0.108753644350045D+00
- -0.157810214335976D-01  0.161633173604782D+00  0.102528777056790D-01
- -0.571662107835323D+00  0.115351217845783D+00  0.222184400816314D+00
-  0.326210725900983D+00 -0.349570800718223D+00 -0.449214302300781D+00
-  0.132587924121714D+00 -0.314543299533960D-01  0.114253021193045D+00
-  0.112726748078444D+00 -0.285090677001166D-01 -0.198682152674490D-08
-  0.133333333333333D+00 -0.333333323399186D-01  0.333333328366239D-01
- -0.133333327372868D+00 -0.333333308498025D-01 -0.333333333333293D-01
- -0.198682139924272D-08  0.397364305002035D-08  0.000000000000000D+00
-  0.173472347597681D-16 -0.133333331346512D+00  0.444444421264772D-01
-  0.331136887007921D-09 -0.222222217255125D-01  0.333333330021924D-01
- -0.888888849152387D-01 -0.222222202353963D-01 -0.333333331677609D-01
- -0.132454759660394D-08  0.444444421264772D-01  0.177777768505930D+00
-  0.132454761221645D-08  0.331136912595092D-09  0.132454768334012D-08
- -0.888888888888817D-01  0.333333321743501D-01 -0.222222217255125D-01
- -0.993410767709257D-09 -0.333333311809394D-01 -0.222222223877863D-01
-  0.444444441132987D-01  0.264909537318544D-08 -0.397364304481618D-08
-  0.177777776453216D+00 -0.888888875643341D-01 -0.352321794706188D+00
-  0.447321551913562D+00 -0.114721986084360D-01  0.865615786121268D-01
- -0.215555858252596D+01 -0.699256302874059D+00  0.644577035479660D-02
- -0.193305202360514D+01  0.181037836560338D+00  0.105288114815398D+01
-  0.795157384559814D+01  0.104083408558608D-16 -0.445659251128419D+00
-  0.177777793672335D+00 -0.529819076285076D-08  0.439787484817982D+00
- -0.328994591515129D+00 -0.972826332120041D-02 -0.166999029556102D+01
- -0.225689717376971D-01 -0.445429714493476D+00 -0.150941451578320D+00
- -0.119883786130126D-01 -0.868669918073316D-01 -0.667997004639088D+00
- -0.354409152183018D+01  0.911509282229670D+01 -0.277555756156289D-16
-  0.132454776834157D-08  0.177777773804120D+00  0.133692438534754D+00
- -0.111526684320566D+00 -0.380799825623968D+00 -0.268359389830572D+00
- -0.668998378985455D-01  0.443229637760449D+00 -0.914925613395175D+00
-  0.344092141876835D+00  0.733797779098706D+00  0.497428397154257D+01
-  0.181037836560338D+00 -0.724556125180231D-02  0.397364307604120D-08
-  0.344547422634052D+00  0.444444484180786D-01  0.264909538793059D-08
- -0.243710831086184D+01 -0.779525150670216D+00 -0.101080277479637D+00
-  0.196174071708160D+00 -0.397364309512316D-08 -0.440227375849168D+00
-  0.444444447755726D-01  0.264909538749691D-08  0.240522283422306D+00
-  0.123275613604021D+00 -0.109700551705394D+00  0.533791448558966D-01
-  0.542917637812407D-02 -0.967437005582564D-01  0.443459174395288D+00
- -0.173000867139403D-01  0.240755096405760D+00 -0.237100018745477D+00
- -0.150597946622887D-01 -0.119883786130126D-01 -0.126694735634821D+01
-  0.675904911235743D+01 -0.133333329359690D+00  0.331136957264222D-09
- -0.888888862397863D-01 -0.454330726903771D+00  0.110693284821342D+00
-  0.223641058401629D-01  0.204775027717743D-01 -0.734989928441796D+00
-  0.167735573309078D+00  0.607245505826643D+00 -0.401246294978847D+01
-  0.133333329359690D+00  0.331136897416262D-09 -0.888888862397863D-01
-  0.403307858567285D+00  0.894703197462726D-02 -0.132454761742062D-08
- -0.440771790483432D+00 -0.888888968361676D-01 -0.441567336975202D+00
- -0.305688791190740D+00 -0.905570449892348D+00  0.601959872249752D+01
-  0.133333345254262D+00 -0.829566699695692D+00  0.369216108082830D-01
- -0.304905914500617D+01 -0.304824227443157D-02  0.443229637760345D+00
-  0.644577035479659D-02 -0.275191628628774D-02 -0.133333345254262D+00
- -0.888888968361676D-01 -0.132454770719256D-08  0.539949082469396D-01
-  0.339798566235639D-01  0.445582805891694D+00 -0.167728334484238D+01
- -0.448304403417847D+00 -0.108624828107460D+00  0.117565756643804D+00
- -0.551299722014865D-01 -0.624259843161857D+00  0.176653975142044D+00
- -0.182874408938220D-01 -0.536954202415220D+00 -0.449101404070886D+00
-  0.444444434510249D-01 -0.417444660142497D+00  0.439674586588087D+00
- -0.899106903470068D-01 -0.132454778395408D-08 -0.419017874215327D-02
-  0.198682167940056D-08 -0.182147781502148D+01  0.443459174395391D+00
-  0.571373496894876D+01 -0.225689717376972D-01 -0.798307328610597D+00
- -0.104444201405853D+01 -0.198682167506375D-08 -0.107969201029146D+00
- -0.132454778135199D-08  0.293202704901732D+00  0.444444434510249D-01
- -0.596143272569025D+00 -0.477398544640458D+00 -0.284282026331536D+00
-  0.117006493646975D-01 -0.258502125172346D-01  0.112386169791662D+00
-  0.235372787060468D+00 -0.446137126510168D+00  0.110894356744881D+00
- -0.361633255572160D+00  0.333333369758354D-01 -0.154877097479958D-02
-  0.110695537901625D+00  0.188382515160572D+00 -0.222222252024500D-01
-  0.621478172692679D+00 -0.144075532927784D+01  0.333333373069723D-01
- -0.275191628628757D-02  0.106983870348938D+00  0.440584485470916D+00
- -0.398669614460997D+00 -0.724556125180226D-02  0.352333728871872D+01
- -0.445659251128419D+00 -0.333333353201508D-01 -0.261979776505578D-01
- -0.222222232156285D-01 -0.333333356512877D-01 -0.297888259998699D-02
- -0.104656465578387D+00 -0.110430709742729D+00 -0.215846134824608D+00
- -0.230031997008322D-01 -0.115742457483971D+01  0.316747647902720D+00
-  0.266872493457429D-01 -0.912491091563477D+00 -0.333333326710555D-01
- -0.222222212288071D-01 -0.989466086181695D-01  0.448661513039700D+00
- -0.333333343267401D-01 -0.222222232156286D-01  0.333333339956032D-01
-  0.261807209761097D-01  0.255425446502757D-01  0.459989727454979D-03
- -0.653329258775174D+00  0.390764110357870D-01  0.243087594460389D-01
-  0.333333323399186D-01 -0.104568320296790D+00 -0.451795172119574D+00
- -0.667548942107588D+00  0.116617854635311D+00  0.118211525244217D+00
-  0.189462187450376D+00  0.218558392519994D+00 -0.318971920796437D-01
- -0.439561623666220D-01  0.561941285627919D-02 -0.164257535908559D+00
-  0.112521670516797D+00 -0.222222210632386D-01  0.108069239694246D+00
-  0.333333320087816D-01 -0.419017874215338D-02 -0.109495474143760D+00
- -0.173000867139403D-01 -0.612623588830782D-01 -0.445429714493476D+00
- -0.333333318432131D-01 -0.294429192436455D+00 -0.187729478136178D+00
- -0.333333326710555D-01 -0.285074619476901D+00 -0.367410316226026D+00
- -0.333333328366239D-01  0.394332937800929D+01  0.270464878554278D-01
- -0.222222220566494D-01  0.279363665078953D-01  0.848995097149489D-01
-  0.442751762378699D+00  0.470809100684844D+00 -0.111528937400849D+00
-  0.107693153971662D-02  0.434558161984993D+00 -0.377054686147959D+00
- -0.111327865477310D+00 -0.208658227995323D-01  0.243960922888330D+00
- -0.867955803107672D+00  0.333333318432131D-01  0.333333320087816D-01
- -0.222222210632386D-01 -0.222222220566494D-01 -0.771521181136046D-02
- -0.380485269225789D-01 -0.204689080707659D+01 -0.333333326710555D-01
-  0.269203496677923D+00  0.333333328366240D-01 -0.636768145246224D+00
-  0.655320491863023D-03  0.247673171746680D+00 -0.457297660627069D+00
-  0.150702533264292D+00  0.113650666396108D+00 -0.445753624331339D-01
-  0.108542424735475D+00 -0.242175945514600D-01 -0.333333373069723D-01
-  0.333333323399185D-01 -0.397364306042869D-08  0.133333331346512D+00
- -0.133333345254262D+00 -0.333333353201508D-01 -0.198682167506375D-08
-  0.397364307604120D-08  0.104083408558608D-16 -0.333333328366239D-01
- -0.277555756156289D-16 -0.133333329359690D+00 -0.222222252024501D-01
-  0.333333325054870D-01  0.444444484180786D-01  0.331136940784349D-09
- -0.888888968361676D-01 -0.132454778135199D-08 -0.222222232156285D-01
- -0.333333326710555D-01  0.444444484180786D-01  0.177777793672335D+00
-  0.132454776834157D-08  0.331136957264222D-09  0.333333369758354D-01
- -0.222222213943755D-01  0.264909537361913D-08 -0.888888875643341D-01
- -0.132454770719256D-08  0.444444434510249D-01 -0.333333356512877D-01
- -0.222222220566494D-01  0.264909538793059D-08 -0.529819076285076D-08
-  0.177777773804120D+00 -0.888888862397863D-01 -0.198710903223025D+00
-  0.448661513039700D+00  0.812463164139447D+00  0.196174071708160D+00
- -0.195336550730817D+01 -0.140516675161804D+00 -0.764522705276404D+00
- -0.297763157768755D+01  0.208147085894103D+00  0.175113078349135D+01
-  0.771670208687337D+01 -0.346944695195361D-16 -0.497319517050914D+00
-  0.177777779102311D+00 -0.397364303093839D-08  0.434558161984993D+00
- -0.154175614767221D+00  0.204775027717743D-01 -0.762891474787183D+00
-  0.668520386567797D-02 -0.432886850865542D+00  0.179855609529506D-01
- -0.109933878448710D+00 -0.357825824101963D+00 -0.784577773586784D+00
- -0.458640250949719D+01  0.934996458321604D+01 -0.346944695195361D-17
-  0.132454764691092D-08  0.177777771155025D+00 -0.989466086181825D-01
-  0.893724264072169D-01 -0.607245553605305D+00 -0.101080277479637D+00
- -0.110153393613548D+00  0.391569371837954D+00 -0.668175548046190D+00
-  0.787938069345911D+00  0.138640277236314D+01  0.502265597052349D+01
-  0.208147085894103D+00 -0.233093312392324D+00  0.198682151893864D-08
-  0.444444447755725D-01  0.132454766035503D-08 -0.345132895449955D+01
- -0.581717353853018D+00  0.211663938787337D+00 -0.522538364431705D+00
- -0.198682145041706D-08  0.444444447755723D-01  0.132454765211509D-08
- -0.111528937400836D+00  0.165857013928272D-01  0.223641058401629D-01
- -0.344547470412714D+00  0.456002038023222D+00  0.271513558718733D-01
-  0.225004661832830D+00 -0.130208408942020D+00 -0.658752187818920D+00
- -0.109933878448710D+00 -0.222368159446508D+00  0.671067719631662D+01
- -0.133333327372868D+00  0.331136898717305D-09 -0.888888849152387D-01
- -0.476479715748017D+00 -0.564155676445218D+00 -0.637604426142967D+00
- -0.487765271799887D+01  0.133333327372868D+00  0.331136928641285D-09
- -0.888888849152387D-01  0.846890906925406D+00  0.459989727455146D-03
-  0.437093716769190D+00 -0.331676698416036D+00 -0.142357892370773D+00
- -0.440227375849064D+00 -0.104010696977974D+00 -0.993410628064018D-09
- -0.344679768662649D+00 -0.888888888888816D-01  0.620984492655961D+01
- -0.936458281909444D+00 -0.321798577716044D+01 -0.113148990771303D+01
-  0.133333333333333D+00  0.391569371837850D+00 -0.115177395069855D+00
- -0.140516675161804D+00 -0.976950036697533D-01 -0.133333333333333D+00
- -0.888888888888817D-01 -0.993410773780790D-09  0.589976835249608D-02
- -0.156794095574215D+01  0.705844419084446D-01 -0.459120684905614D+00
- -0.514450443144658D-01 -0.746474729443561D+00  0.120488351205228D+00
-  0.212726475996753D+00 -0.380485269225790D-01 -0.111577016036548D+00
- -0.425753253114811D-01 -0.454330726903875D+00  0.641107311248994D-01
- -0.287141476187616D+00  0.431591228261798D+00  0.444444427887510D-01
- -0.132454763476786D-08  0.123443324985226D+00  0.689093980098781D-01
- -0.222919864497477D+01  0.226999471255854D+00  0.456002038023326D+00
-  0.552348852586568D+01  0.668520386567809D-02 -0.956513297237916D+00
- -0.124663470889932D+01 -0.198682143133511D-08 -0.132454761655326D-08
-  0.198682142960038D-08 -0.108571555826083D+00  0.444444427887510D-01
- -0.398422682683475D+00  0.410989666928905D-01 -0.772498782439728D+00
- -0.569629239217784D-01 -0.421316476798826D+00  0.290325631260290D+00
-  0.943308199406017D-01 -0.469203524296056D+00  0.243087594460389D-01
-  0.165597761085305D+00 -0.105604367586867D+00  0.894759807957331D-01
-  0.123275613604008D+00  0.333333336644662D-01  0.102919877480823D+01
-  0.236583634759008D-01 -0.976950036697534D-01 -0.142500480947886D+01
- -0.222222227189232D-01 -0.282088877528241D+00  0.333333338300347D-01
-  0.429768203983150D+00 -0.233093312392324D+00  0.393023663390198D+01
- -0.497319517050914D+00 -0.441825149678662D+00 -0.333333328366239D-01
- -0.222222217255124D-01 -0.333333330021923D-01 -0.120240673090587D-04
- -0.209089242806086D+00 -0.101733871016963D+00 -0.700644972794345D-01
-  0.344509726554703D-01 -0.952887817807340D+00 -0.104733027393071D+01
-  0.366350524457163D+00 -0.148252047541691D+00 -0.333333338300346D-01
- -0.222222227189231D-01  0.333333336644662D-01  0.363346171013350D-01
- -0.982153227120168D+00  0.823765186907727D-02 -0.333333330021924D-01
- -0.626544602036547D+00 -0.222222217255124D-01 -0.467212295465382D+00
-  0.333333328366239D-01  0.121299511510138D+00  0.171436209638542D+00
- -0.771521181136044D-02 -0.239076438653920D+00  0.110693284821355D+00
-  0.216201033275008D-01 -0.113679797486729D+00  0.928110509720768D-01
- -0.631219166767047D-03 -0.222222207321017D-01  0.689093980098782D-01
-  0.333333315120763D-01  0.271513558718732D-01 -0.432886850865542D+00
-  0.243680253708319D+00 -0.333333313465079D-01 -0.685099624535068D-01
- -0.235113229574871D+00 -0.333333321743501D-01 -0.531824599599842D+00
- -0.302143945838621D+00 -0.333333323399185D-01  0.353643003238063D+01
- -0.222222217255124D-01  0.313379610040844D-01  0.112050109706477D+00
- -0.726080206482117D-01  0.467572412090042D+00  0.412409173140747D+00
- -0.127891402281589D+00 -0.110321730648423D+01  0.333333313465078D-01
-  0.333333315120763D-01 -0.222222207321017D-01 -0.421592744724675D-01
-  0.901878465027630D-01 -0.211572871508797D+01 -0.187193629163069D+00
- -0.745863729443084D-01 -0.333333321743501D-01 -0.222222217255124D-01
- -0.440513813814989D+00 -0.662250648698502D+00  0.333333323399185D-01
-  0.953186456450639D-01  0.254762285624098D+00 -0.333333343267401D-01
-  0.333333318432131D-01 -0.397364309512316D-08  0.133333329359690D+00
- -0.133333333333333D+00 -0.333333328366239D-01 -0.198682143133511D-08
-  0.198682151893864D-08 -0.346944695195361D-16 -0.333333323399185D-01
- -0.346944695195361D-17 -0.133333327372868D+00 -0.222222232156286D-01
-  0.333333320087816D-01  0.444444447755726D-01  0.331136897416262D-09
- -0.888888888888817D-01 -0.132454761655326D-08 -0.222222217255124D-01
- -0.333333321743501D-01  0.177777779102311D+00  0.444444447755725D-01
-  0.132454764691092D-08  0.331136898717305D-09  0.333333339956032D-01
- -0.222222210632386D-01  0.264909538749691D-08 -0.888888862397863D-01
- -0.993410773780790D-09  0.444444427887510D-01 -0.333333330021923D-01
- -0.397364303093839D-08  0.132454766035503D-08 -0.222222217255124D-01
-  0.177777771155025D+00 -0.888888849152387D-01  0.365506398368060D-01
-  0.366350524457164D+00  0.167765302172261D+01  0.211663938787337D+00
- -0.282204364723403D+01 -0.589678007058466D+00  0.101705445044362D+02
-  0.108327685446291D+01  0.000000000000000D+00  0.177777779102311D+00
- -0.132454767987067D-08 -0.564155676445218D+00  0.412409173140747D+00
- -0.193363927167113D-01  0.251329258223291D+00  0.919200954481726D+00
- -0.180766801927568D+01  0.599594169540035D+01  0.689612215571787D+01
-  0.000000000000000D+00  0.132454768680956D-08  0.177777768505930D+00
-  0.915728862909207D+00 -0.148252047541691D+00 -0.429062240504449D+00
-  0.421676593423382D+00 -0.522538364431601D+00 -0.213933233444478D+00
- -0.100922710712053D+00 -0.331136869660686D-09 -0.123884212343481D+01
-  0.746876663442120D+01 -0.139233228123057D+01 -0.242251232767485D+00
- -0.589678007058466D+00 -0.133333333333333D+00 -0.888888888888816D-01
- -0.331137062214992D-09 -0.888888888888816D-01  0.133333333333333D+00
- -0.443966060879610D+01  0.511325783632407D-01  0.739424798470171D+00
-  0.586531715391250D-01 -0.421592744724674D-01 -0.247112034371428D+00
- -0.476479715748121D+00 -0.249639227124526D+00 -0.484949312794398D+00
-  0.448375075073879D+00  0.134458639447635D+00  0.313343855628574D+01
-  0.752500414619170D+00 -0.311784778263657D+01  0.919200954481726D+00
-  0.426456686291808D+01 -0.377956653272221D+00 -0.198682152587754D-08
- -0.132454769158005D-08  0.444444421264772D-01 -0.132454769027901D-08
-  0.444444421264772D-01  0.198682153368379D-08 -0.126903576577127D+00
-  0.529015902088030D+00 -0.354672981004771D+00 -0.333333338300346D-01
- -0.198682145041706D-08  0.133333327372868D+00  0.333333313465078D-01
- -0.133333333333333D+00 -0.198682152587754D-08  0.000000000000000D+00
-  0.000000000000000D+00 -0.222222227189231D-01  0.444444447755723D-01
-  0.331136928641285D-09  0.333333315120763D-01 -0.888888888888816D-01
- -0.132454769158005D-08  0.177777779102311D+00  0.132454768680956D-08
-  0.333333336644662D-01  0.132454765211509D-08 -0.888888849152387D-01
- -0.222222207321017D-01 -0.331137062214992D-09  0.444444421264772D-01
- -0.132454767987067D-08  0.177777768505930D+00 -0.272112234934441D+01
- -0.609453065057789D+00  0.272435546931490D-02  0.445148904453454D+00
- -0.896612314531020D+00 -0.474833892564609D+00 -0.953705406779460D-02
- -0.218460653498642D+01 -0.447533177906718D+00 -0.839190828893742D-02
-  0.834754805641205D+01 -0.226698933517354D-01 -0.173472347597681D-16
-  0.177777771155025D+00 -0.132454768507484D-08 -0.289441799311217D-01
-  0.440794961491752D+00 -0.888629052509160D+00 -0.596664187709839D+00
- -0.412458069093597D-01 -0.450536751879749D+00 -0.259140867252524D+01
- -0.671342141259597D-01 -0.467749994985686D+00 -0.372734740191391D+00
- -0.396852636272289D+00  0.871911861050997D+01  0.173472347597681D-16
-  0.397364287307855D-08  0.177777779102311D+00 -0.568830426541512D+00
- -0.133070286858777D+01 -0.443739984435414D+00  0.322339066200006D-02
-  0.132454768334012D-08 -0.637828253886295D+00  0.257604838757929D+00
- -0.111542315406046D+00  0.445485154242593D+00  0.444444427887511D-01
- -0.832842825907323D+00 -0.198682151980600D-08 -0.450020277063178D+00
-  0.517315661388722D+01 -0.608591542173448D+00  0.441355710982150D+00
- -0.425755331640984D-01 -0.138673136937284D-01 -0.953705406779459D-02
-  0.198682150072405D-08  0.444444427887511D-01  0.132454766469184D-08
- -0.908197418145672D-02 -0.109952486409199D+01 -0.493131979823630D+00
- -0.289043700808290D-01  0.125390202168515D-01 -0.447755657718695D+00
-  0.160665955262316D+00  0.114677075432778D+00 -0.448093927397012D+00
- -0.141196998283061D-01 -0.556041602175469D+00 -0.259926748063656D+00
-  0.441040729702862D+00 -0.109380231982608D+00 -0.888888888888816D-01
- -0.626133402244554D+00  0.182428296937895D+00 -0.279833875151606D-01
- -0.171486378914381D+00  0.993410667962658D-09  0.438352137009015D+00
- -0.412458069093597D-01 -0.279674714148846D+01  0.217024260199128D+00
- -0.442936313256871D+00  0.656017683877055D+01 -0.230338790016767D+01
- -0.133333333333333D+00  0.993410749060980D-09 -0.888888888888816D-01
-  0.133333333333333D+00 -0.423005737691116D-01 -0.451971018317445D+00
-  0.213634148256940D-01  0.114470275367646D+00  0.273660951287210D+00
- -0.485934806287409D+00  0.897169152861334D-01  0.254030916875240D+00
-  0.159292704489156D+00 -0.110515044237889D+00  0.141687628397716D-02
- -0.623730313692471D+00 -0.145236339265444D+00  0.441355710982046D+00
- -0.282726504519942D+01  0.634218419952100D+01 -0.117271883805360D-01
- -0.318520379660395D-01 -0.839190828893747D-02 -0.133333329359690D+00
- -0.888888862397864D-01 -0.331136919100306D-09 -0.331136940784349D-09
- -0.888888862397863D-01  0.133333329359690D+00 -0.457713961837944D+00
- -0.892375690111949D-02 -0.210986440145586D+01 -0.447693468529104D+00
-  0.812517365000920D-01  0.111252200067475D+00  0.112735621133107D+00
-  0.446186257911493D-02  0.240195865933419D-01 -0.108675665004219D+00
- -0.123727046540851D+00  0.220991165834310D+00  0.438352137009119D+00
- -0.240836202939901D-01 -0.262290871845980D+00 -0.616646349886164D+00
- -0.114162241131648D+01 -0.671342141259596D-01  0.397364285226187D-08
- -0.450699314378040D+00  0.539114888355105D+01 -0.101539325040440D+01
- -0.397364288435426D-08 -0.264909526606627D-08  0.444444447755725D-01
- -0.264909524524959D-08  0.444444484180786D-01 -0.450885996413778D+00
- -0.303895048547618D+00 -0.687850895914102D-01  0.343925283587465D-01
-  0.114238544080098D+00  0.177918888580471D+00 -0.274303817359723D+00
-  0.142933644296098D+00  0.266097479746788D-02  0.919787766153961D-01
-  0.111707177984302D+00 -0.333333320087816D-01  0.333333326710555D-01
-  0.170588221996671D+00 -0.526907325705300D-01 -0.110543486732192D+00
-  0.269940885161474D-01 -0.333333328366240D-01 -0.222222220566494D-01
- -0.141702416085890D+01 -0.598916711436517D+00 -0.583778212031311D-01
-  0.368388517256399D+01 -0.117271883805360D-01 -0.138673136937285D-01
- -0.520858689805568D-01 -0.222222210632386D-01  0.441133231170172D+00
- -0.447533177906718D+00 -0.333333318432132D-01 -0.222222210632386D-01
- -0.333333320087816D-01 -0.639506729240148D+00 -0.204620493611577D+00
-  0.263875869906188D+00 -0.178453106126914D+00 -0.107545146789413D+00
- -0.122634239125409D-01  0.333333318432132D-01 -0.447808947680746D+00
-  0.114763285636264D+00  0.333333326710555D-01 -0.771802501277439D+00
- -0.435527918691286D+00 -0.474322341228660D+00 -0.222222220566494D-01
- -0.143120155143845D-01  0.441195420359660D+00  0.333333328366240D-01
-  0.134369713838705D-01  0.111252197056646D+00 -0.641406296993835D-01
-  0.149981893060658D+00 -0.109486601089084D+00  0.715599971199274D-02
-  0.111639339129242D+00  0.112793360714140D+00 -0.182999615108229D-01
- -0.296038640473769D-01 -0.171515368309724D+00  0.113546557217972D+00
-  0.105257658754024D-01  0.204632120542414D+00 -0.222222252024500D-01
- -0.222222212288071D-01 -0.108378540447559D+00  0.265052676765706D-01
-  0.232531869123368D+00 -0.279833875151606D-01 -0.109040384488471D+00
-  0.333333326710555D-01 -0.494926665639492D-01 -0.240836202939901D-01
- -0.450536751879749D+00  0.333333323399186D-01 -0.367157074752449D+00
- -0.632309476231068D+00 -0.105476389325417D+01  0.378278149411674D+01
- -0.333333369758353D-01 -0.591832813857594D+00 -0.333333343267400D-01
- -0.333333339956031D-01 -0.222222232156285D-01  0.436917870571319D+00
- -0.290081873037564D-01 -0.107751946854545D+00  0.192926808406106D+00
- -0.120181753771199D+01  0.130094419459108D-01  0.333333373069722D-01
- -0.222222232156285D-01  0.502817939376196D-01 -0.282698223462606D-01
- -0.467984854754439D+00  0.438189574510828D+00 -0.451937335773793D+00
-  0.333333356512877D-01 -0.333333353201508D-01  0.276005756979834D+00
- -0.428699880416998D+00  0.792566540555948D-01 -0.107983678142093D+00
-  0.114460210548604D+00  0.141349031620162D-01  0.177918867357112D+00
- -0.308585080426824D+00  0.114857554782873D+00  0.178306029289310D+00
- -0.294523264990268D-01 -0.182999670089569D-01  0.133333327372868D+00
-  0.333333323399186D-01  0.198682138796702D-08 -0.333333328366240D-01
-  0.198682150072405D-08 -0.333333318432132D-01 -0.133333333333333D+00
- -0.333333343267400D-01 -0.133333329359690D+00 -0.397364288435426D-08
- -0.173472347597681D-16  0.173472347597681D-16 -0.888888849152387D-01
- -0.222222217255124D-01 -0.132454760007339D-08  0.333333330021924D-01
-  0.444444427887511D-01 -0.222222210632386D-01  0.993410749060980D-09
- -0.333333339956031D-01 -0.888888862397864D-01 -0.264909526606627D-08
-  0.177777771155025D+00  0.397364287307855D-08 -0.331136904355156D-09
-  0.333333321743501D-01  0.444444447755726D-01 -0.222222217255125D-01
-  0.132454766469184D-08 -0.333333320087816D-01 -0.888888888888816D-01
- -0.222222232156285D-01 -0.331136919100306D-09  0.444444447755725D-01
- -0.132454768507484D-08  0.177777779102311D+00 -0.538304144089758D+00
- -0.443403734646274D+00  0.101949797084795D-01 -0.728430901025772D+00
- -0.312169173677530D+01 -0.403253041343986D+00 -0.908197418145676D-02
-  0.445128557786515D+00 -0.434357166604821D+00  0.441133231170172D+00
-  0.138777878078145D-16 -0.185017775126859D+00  0.177777771155025D+00
- -0.397364303093839D-08 -0.139530549212667D+01 -0.169541210397027D+01
-  0.810594621960939D+01 -0.564495030504951D-01 -0.455974863635252D+00
- -0.410740590022312D-01 -0.455397082496410D+00 -0.447848159185902D+00
-  0.440924648632441D+00 -0.526609358675399D+00 -0.706086225563081D+00
-  0.436917870571319D+00 -0.427159913595741D+00 -0.537466440931413D-01
- -0.431530378499465D-01 -0.276940819036338D-01 -0.450354521637083D+00
-  0.155177186835302D+00 -0.304167789711399D+01 -0.121031684994750D+01
- -0.446042592941664D+00 -0.423005737691115D-01 -0.210047531874045D+01
- -0.341814764555733D+00  0.896072044733227D+01  0.000000000000000D+00
-  0.397364284358825D-08  0.177777776453216D+00  0.221671596553577D+00
-  0.110679906816158D+00 -0.545875795445731D+00 -0.152621084418582D+01
- -0.443760331102353D+00 -0.273660919479328D+00  0.248449027548470D-02
-  0.125390202168515D-01  0.140406516987314D+00  0.444444427887511D-01
- -0.107545146789426D+00 -0.410740590022312D-01  0.264909532634791D-08
-  0.264909535974134D-08  0.397364300231545D-08 -0.782384668185720D+00
-  0.444444484180785D-01 -0.158322238019996D+00  0.445582805891798D+00
- -0.397364303267311D-08 -0.397805123783253D-01  0.305396996648583D+00
- -0.354159224189063D+00  0.507039190107992D+01  0.357637221364442D-01
-  0.433491806392457D+00 -0.110430709742742D+00 -0.172989466983166D+01
- -0.169584798106259D+00 -0.599276244532297D+00 -0.478457563467411D+00
- -0.448807294902793D-01 -0.455527943866777D+00  0.134603641231632D+00
-  0.119371645232961D+00  0.147556612008703D+00  0.112841990239570D+00
-  0.146495072946073D+00 -0.157810214335976D-01 -0.447964240256322D+00
- -0.523531199455901D+00 -0.417470926311446D+00 -0.888888875643340D-01
-  0.213634148256940D-01  0.439674586587983D+00  0.289044018887109D-01
-  0.993410865721134D-09 -0.760977903326517D+00  0.133333331346511D+00
- -0.336805738816608D+01 -0.431530378499464D-01 -0.109495474143747D+00
- -0.107751946854532D+00 -0.167256436170980D+00  0.694574554872324D-01
- -0.180469464300731D+01 -0.133333331346511D+00 -0.450426979459652D-01
-  0.438534367251680D+00  0.423797054373896D+00  0.993410729545341D-09
- -0.344226860777137D+00 -0.252305132309777D-01  0.666294130129723D+01
-  0.226349492807540D+00 -0.452242232876271D+00 -0.888888875643340D-01
-  0.463511551260713D+00 -0.466762733005256D+00  0.770475243019187D-01
-  0.135992189692908D-01  0.112420636813357D+00  0.131013487931464D+00
-  0.111678735489998D+00  0.376265111126318D+00  0.200745417169310D+00
-  0.115636189145753D-01 -0.580731876284904D+00 -0.993410755999874D-09
-  0.181731317417688D-02 -0.108543981423731D+00 -0.447755657718591D+00
- -0.133333329359690D+00 -0.564495030504950D-01 -0.122634239125409D-01
- -0.888888862397863D-01 -0.335517705180208D+01 -0.722439805907918D+00
- -0.993410808475259D-09 -0.888888862397864D-01  0.627355878918869D+01
- -0.209599212057184D+00  0.433491806392353D+00 -0.421855134664132D+00
-  0.441079941208017D+00 -0.288602809358547D+00 -0.414844377810811D-01
- -0.153456528407382D+01  0.133333329359690D+00 -0.455688633348251D+00
- -0.566807764921033D-01 -0.427916628813383D+00  0.111639342442846D+00
- -0.647429364089414D-01 -0.109428861508051D+00  0.948938521467521D-01
-  0.283403725108691D-01  0.116733203606237D+00  0.113843681774632D+00
-  0.192957153270692D+00 -0.108753644350058D+00  0.203601695782652D-01
- -0.308926158432628D-01 -0.451971018317548D+00  0.259342833389154D+00
- -0.573534702748684D+00 -0.537466440931414D-01 -0.290081873037563D-01
-  0.438534367251784D+00 -0.995379730926236D+00  0.444444484180785D-01
- -0.150458776099651D+01 -0.397364280976115D-08 -0.208151134705841D+00
- -0.264909520188150D-08 -0.264909522096346D-08  0.444444441132987D-01
- -0.712507442495992D+00 -0.230295566380271D-01 -0.415517562094314D+00
-  0.545977431766576D+01  0.436951553115074D+00 -0.127301210768200D+01
- -0.535856067884396D-01  0.397364285226187D-08  0.304587328860429D+00
- -0.418019904082321D+00 -0.450347944904618D+00  0.267927874873609D-01
-  0.178306011079014D+00 -0.107364667439318D+00  0.114062859344103D+00
- -0.420298490089405D+00  0.161560543803502D+00 -0.386425607950068D-01
- -0.285614670393971D-01  0.129652720978645D+00  0.113678240798460D+00
-  0.149570830806115D+00 -0.333333316776447D-01  0.243616415074340D+00
-  0.105990538432338D-01 -0.250281742018217D+00  0.114677075432765D+00
- -0.222222205665332D-01  0.134369713838705D-01 -0.333333313465078D-01
-  0.333333369758355D-01 -0.455397082496410D+00 -0.620624073743390D+00
-  0.730118980450037D-01 -0.222222252024501D-01  0.220947146667257D+00
- -0.333333373069724D-01 -0.166351168445721D+01  0.333333330021925D-01
- -0.108624828107473D+00 -0.333333356512877D-01  0.433360945022090D+00
- -0.677435994565717D-01 -0.222222225533548D-01  0.255425446502757D-01
- -0.102850576989230D+00 -0.751716810713631D+00 -0.448807294902792D-01
- -0.414844377810812D-01 -0.425019936797202D-01  0.131721035321553D+00
- -0.336051005734272D+00 -0.107458936585914D+00 -0.222222232156285D-01
- -0.381737279958363D+00  0.365804130569301D+01  0.333333333333294D-01
-  0.333333353201507D-01 -0.169610793702955D+00 -0.456139688621107D+00
-  0.298996035136849D+00  0.433200255540512D+00 -0.445902533241282D+00
-  0.301940757868238D-01 -0.458453764140310D-01 -0.507103426859375D+00
- -0.182999629400935D-01  0.259516915081675D-01  0.948938605538054D-01
- -0.105489018615954D+00  0.118895138543787D+00 -0.131155720120240D+00
-  0.116958731223941D+00  0.136042453253596D+00  0.229226803443484D-01
-  0.936074092956877D-01 -0.136884343404649D+00 -0.316697905229015D-01
- -0.122368804645224D-01 -0.290502878789739D-01 -0.354444997554798D-01
-  0.113468577872133D+00  0.102528777056790D-01  0.188250158722389D+00
-  0.114470275367659D+00 -0.126644420016584D+00 -0.222222208976701D-01
-  0.172667375098158D+00  0.130094419459108D-01 -0.215468419536829D-01
-  0.333333321743501D-01 -0.107969201029133D+00  0.279338408211980D+00
- -0.450354521637083D+00  0.333333318432132D-01 -0.252305132309776D-01
- -0.740021880910398D+00  0.270464878554278D-01 -0.610691803049802D+00
- -0.222222232156285D-01 -0.333333338300347D-01 -0.333333334988978D-01
-  0.228486922594796D+00 -0.230295566380272D-01  0.333333356512877D-01
- -0.636877853168681D-01  0.436646656012492D+00 -0.222222252024501D-01
- -0.600723888664202D+00 -0.222222228844917D-01 -0.107762011673600D+00
- -0.911397400278450D+00 -0.306665955693337D-01 -0.982229263414987D-01
- -0.136232213997050D+01  0.609957731369069D-01 -0.333333369758354D-01
-  0.333333373069723D-01 -0.333333353201507D-01 -0.435356122890299D+00
-  0.438540943984249D+00  0.380862536099521D+01 -0.452358459274007D+00
- -0.326154181662137D+00 -0.250621930646928D-01  0.553762034651317D+00
- -0.109801585408833D+00 -0.182999626433315D-01  0.261032290565177D-01
- -0.108159362878087D+00  0.918610457710764D-01  0.654560540555779D-01
-  0.125310885333978D-01  0.161560527375287D+00  0.160274089369275D+00
-  0.112097906968388D+00 -0.375600167708171D+00  0.115068116541468D+00
- -0.122368837660876D-01  0.466915674348144D-02 -0.282711746772118D-01
-  0.333333313465078D-01  0.333333328366240D-01 -0.333333323399186D-01
- -0.333333328366240D-01  0.333333323399186D-01  0.333333338300347D-01
- -0.133333329359690D+00  0.397364300231545D-08 -0.333333313465078D-01
- -0.397364280976115D-08 -0.133333331346511D+00  0.133333327372868D+00
-  0.198682139490591D-08 -0.333333338300347D-01 -0.198682151980600D-08
-  0.133333333333333D+00  0.138777878078145D-16  0.000000000000000D+00
- -0.222222207321017D-01 -0.222222222222178D-01 -0.222222220566494D-01
-  0.333333326710555D-01  0.333333325054871D-01 -0.333333336644662D-01
- -0.888888862397863D-01  0.444444427887511D-01 -0.222222205665332D-01
- -0.264909520188150D-08  0.993410729545341D-09 -0.888888849152387D-01
- -0.333333334988978D-01 -0.132454760354284D-08  0.444444427887511D-01
-  0.993410667962658D-09  0.177777771155025D+00  0.397364284358825D-08
- -0.333333315120763D-01  0.333333325054870D-01 -0.222222213943756D-01
-  0.333333326710555D-01 -0.222222212288071D-01 -0.993410755999874D-09
-  0.264909532634791D-08  0.444444441132987D-01 -0.888888875643340D-01
- -0.333333316776447D-01 -0.222222227189232D-01 -0.222222228844917D-01
- -0.993410737351597D-09  0.444444441132988D-01  0.132454768334012D-08
- -0.888888888888816D-01 -0.397364303093839D-08  0.177777776453216D+00
- -0.495004527077286D+00 -0.443306082997069D+00 -0.349320330122230D+01
- -0.326644793722718D+00 -0.132871231903545D+00 -0.304824227443166D-02
-  0.433360945022090D+00 -0.127627141949953D+01  0.168057960445212D+00
-  0.177777793672335D+00 -0.397805123783253D-01 -0.878937220367817D+00
- -0.346944695195361D-17 -0.543677579521024D+00  0.440584485470916D+00
- -0.529819077152438D-08  0.798787589823814D+01 -0.466403073562240D+00
- -0.103274312589168D+00 -0.206309638321343D+01 -0.465661174509574D+00
-  0.442751762378699D+00 -0.850820563679386D+00  0.436646656012492D+00
-  0.575650392264169D+00 -0.449214302300781D+00 -0.371504041236285D+01
- -0.473597848313682D+00 -0.314949863919485D+00 -0.209524326252766D-01
- -0.461986340679467D+00 -0.935411435291485D-02 -0.258502125172345D-01
- -0.152271725147819D+01 -0.450426979459652D-01 -0.441884750874281D+00
- -0.147010475788921D+01 -0.217587673223654D+00  0.907879076896801D+01
-  0.312250225675825D-16  0.397364333624972D-08  0.177777773804120D+00
-  0.217982130409534D+00  0.111791512479462D+00 -0.470523366330319D+00
-  0.104846435586672D+00 -0.448304403417951D+00  0.422485815326627D+00
- -0.103274312589168D+00 -0.272181932410473D+00 -0.102850576989243D+00
-  0.397364303007103D-08 -0.423797173627113D+00  0.357637221364442D-01
- -0.167080932545286D+01  0.444444484180786D-01  0.515041032352231D+00
- -0.230031997008323D-01  0.264909536407815D-08 -0.426995925417988D+00
- -0.837458215239992D-01 -0.955089666438841D+00  0.264909532504687D-08
-  0.444444441132986D-01  0.437093716769294D+00 -0.113606609881468D+00
- -0.397364297022307D-08  0.311713238890800D+00  0.512532563408512D+01
- -0.228971961549735D+01 -0.105604367586880D+00 -0.465495379262216D+00
-  0.659106208934926D-01 -0.457193515018112D+00 -0.474829481274432D+00
-  0.181789212658006D+00  0.122082027774598D+00  0.178485179910979D+00
- -0.208658227995323D-01 -0.546670965992845D+00 -0.109801585408820D+00
- -0.268506999239289D+00  0.112726748078430D+00 -0.888888862397863D-01
-  0.138934648092390D+00  0.431591228261694D+00  0.343373230446179D-01
-  0.660800747263561D+01  0.447004138014482D+00  0.993410773780790D-09
- -0.924308790104616D+00 -0.113679797486716D+00  0.557644364835959D+00
- -0.446137126510064D+00  0.243857361422568D+00 -0.442406795737488D+00
-  0.133333329359690D+00 -0.747055715857782D-02 -0.395270005183163D+01
-  0.135992189692908D-01  0.182445169902203D-01 -0.935411435291485D-02
- -0.134603760484849D+00 -0.274289058885120D-01 -0.113690299679719D+01
-  0.548637870522296D+00 -0.441749455362236D+00 -0.613033908549894D-01
- -0.133333329359690D+00 -0.454151619485369D+00  0.115484512059865D+00
-  0.993410817582557D-09  0.994390675616996D-01 -0.888888862397862D-01
-  0.111148905708497D+00  0.113597394114718D+00 -0.132454771456514D-08
-  0.477398663994836D+00  0.339798566235639D-01 -0.888888968361676D-01
- -0.888888968361676D-01 -0.132454773364710D-08  0.162322303909441D+00
- -0.487888438550348D+00 -0.132871231903545D+00  0.248433805757113D+00
-  0.133333345254262D+00 -0.133333345254262D+00 -0.425019936797201D-01
- -0.599903921759636D+00  0.432749200267656D+00 -0.127300973918825D+00
-  0.626505493148497D+01 -0.455527943866673D+00 -0.377565098861689D+01
- -0.308207845188174D+00 -0.104656465578374D+00 -0.109480293478298D+01
-  0.422485815326523D+00 -0.782742776784320D-01 -0.463885302051164D+00
-  0.936074186517502D-01 -0.798159679380590D+00  0.636504718754438D-01
- -0.105263490998249D+00 -0.452131484505413D+00 -0.444152437420102D+00
-  0.120831538005124D+00 -0.174616520370757D+00  0.886734418788497D-01
-  0.444444484180785D-01 -0.111327865477323D+00  0.307152594495952D+00
- -0.264909551586645D-08  0.397364327553440D-08 -0.306665955693337D-01
-  0.114253021193058D+00  0.169540190432804D+00  0.744282606436112D+00
- -0.794484746209406D+00  0.546827858078189D+01  0.117006493646975D-01
- -0.157887548673826D-01 -0.818262556102694D+00 -0.747065929089340D-01
- -0.297661328873379D+00  0.551300915558644D-01 -0.145319478825805D+01
-  0.447004138014586D+00  0.436530429614860D+00 -0.452242232876375D+00
- -0.209524326252765D-01 -0.588209091297481D+00 -0.192372917685319D+01
- -0.439019970627574D+00 -0.530172076229597D+00  0.119900003845507D-01
- -0.397364335359696D-08 -0.107154105680723D+00  0.160274072234384D+00
-  0.155340121590329D+00 -0.264909556357135D-08  0.789436098741487D-02
- -0.440477605096720D+00  0.109127689304838D+00  0.444444434510249D-01
- -0.352123354799319D-01 -0.300130109052687D-01  0.979605184774854D-01
-  0.117565756643817D+00 -0.333333356512877D-01 -0.333333353201508D-01
- -0.222222232156285D-01 -0.466403073562240D+00  0.177054738180666D+00
-  0.256285828912493D+00  0.119371645232948D+00 -0.837458215239992D-01
- -0.604680318072188D+00  0.266872493457429D-01 -0.291861086763906D+00
-  0.253194967104799D+00 -0.782742776784321D-01  0.301940757868238D-01
-  0.333333369758354D-01 -0.222222252024501D-01  0.333333373069724D-01
- -0.267729675969032D+00 -0.103327083678390D+00  0.333333334988978D-01
-  0.971223363677226D-01  0.425003586837599D+00 -0.222222228844917D-01
-  0.269222599192765D+00  0.423393509626651D+00 -0.175764457469597D+01
- -0.305706909551552D+00 -0.104010696977987D+00 -0.333333338300347D-01
- -0.660354474757791D-01  0.236583634759008D-01 -0.100140194447593D+00
- -0.821573713516510D+00  0.264542977275719D+00 -0.799604783486563D-01
- -0.767005176082768D-01 -0.333333321743501D-01 -0.122368824358615D-01
- -0.101390684217067D+00 -0.498792100900383D+00 -0.434654979101712D+00
-  0.238857650326429D-01  0.886734484419054D-01 -0.222222208976701D-01
-  0.333333318432132D-01 -0.440150766953903D+00 -0.465086288880698D+00
-  0.369650651891734D+01  0.383502508485038D-01  0.381606003830538D-01
-  0.119903523386759D+00  0.121432031280849D+00  0.846823646586800D-01
- -0.137810690433359D+00 -0.148221679124305D+00  0.183692197223028D+00
- -0.321739828678436D-01 -0.239521933000216D-01  0.655320491863023D-03
- -0.285090677001166D-01 -0.954316276705039D-01 -0.222222232156284D-01
-  0.466915674348145D-02 -0.311565271351244D-01  0.333333356512876D-01
- -0.747868336647840D+00 -0.333333353201506D-01 -0.725170728585574D+00
-  0.110894356744868D+00 -0.262597103212693D+00 -0.108571555826070D+00
- -0.222222205665332D-01  0.119900003845508D-01  0.156679330395909D+00
-  0.333333316776447D-01 -0.631156975881803D-01  0.313379610040844D-01
- -0.666546425752371D-01  0.327433561965168D+00  0.377016014762479D+01
-  0.182445169902204D-01  0.265359106787517D-01  0.112420636813370D+00
- -0.110124315253815D+00  0.448411283792146D+00  0.333333313465078D-01
-  0.185776741205708D+00 -0.441884750874281D+00 -0.222222252024500D-01
- -0.818531725265427D+00 -0.601005484242082D+00  0.607723438871779D+00
-  0.447139433526528D+00  0.665679006837545D-01 -0.333333369758353D-01
- -0.122368791146885D-01  0.333333373069722D-01 -0.333333333333294D-01
- -0.149613323683498D+01 -0.122783154660491D+00  0.272843808783327D-01
-  0.551529332852180D-02  0.201542287900703D+00  0.155340101662431D+00
- -0.333333330021925D-01 -0.392666127900640D+00 -0.432242514800315D+00
-  0.117739161216557D+00 -0.449792161987066D-01  0.199281687625251D-01
- -0.113094532917352D+00 -0.222222225533548D-01 -0.996409320543280D-02
- -0.442438275514589D+00  0.120350370928534D+00  0.151349055898325D+00
-  0.991556340723558D-01 -0.239521987785717D-01  0.110108024350722D+00
- -0.218000381052097D-01  0.333333373069723D-01 -0.333333318432131D-01
- -0.333333373069724D-01 -0.397364335359696D-08 -0.133333329359690D+00
-  0.333333318432132D-01  0.333333353201508D-01 -0.133333345254262D+00
- -0.333333333333294D-01  0.333333333333294D-01  0.397364303007103D-08
-  0.133333345254262D+00  0.198682167940056D-08 -0.333333353201508D-01
- -0.346944695195361D-17 -0.397364303267311D-08  0.133333331346511D+00
-  0.312250225675825D-16 -0.222222252024500D-01  0.333333320087816D-01
- -0.222222252024501D-01  0.333333321743501D-01 -0.264909556357135D-08
-  0.993410817582557D-09 -0.888888968361676D-01  0.444444484180786D-01
- -0.333333330021925D-01 -0.222222232156285D-01 -0.333333331677609D-01
- -0.222222232156285D-01 -0.888888968361676D-01 -0.132454778395408D-08
-  0.993410865721134D-09  0.444444484180785D-01  0.177777793672335D+00
-  0.397364333624972D-08  0.333333369758354D-01 -0.222222210632386D-01
-  0.333333369758355D-01 -0.222222208976701D-01  0.444444434510249D-01
- -0.888888862397862D-01 -0.222222225533548D-01 -0.132454773364710D-08
- -0.333333356512877D-01  0.264909536407815D-08 -0.333333356512877D-01
- -0.222222223877863D-01 -0.132454761742062D-08  0.444444434510249D-01
- -0.529819077152438D-08  0.264909535974134D-08 -0.888888875643340D-01
-  0.177777773804120D+00  0.423393509626651D+00 -0.113606609881468D+00
- -0.429898497492736D+00 -0.451795172119574D+00 -0.248134941345317D+00
- -0.115177395069855D+00 -0.342699965452590D+01  0.177777776453216D+00
- -0.381639164714898D-16 -0.167160420247641D+00 -0.112935094355191D+01
- -0.157710630000494D+01  0.752700188017916D+00 -0.397364308471482D-08
- -0.831553436954702D+00 -0.150035826008786D+00  0.861304419790176D+01
- -0.467277170320170D+00  0.429768203983150D+00 -0.209618139187877D+01
- -0.622413139208980D+00 -0.245092953094234D+00  0.467572412090042D+00
- -0.857577423723487D+00 -0.457297660627069D+00  0.447139433526528D+00
-  0.149197223384725D+00 -0.910280248316367D+00 -0.403392885675670D+01
- -0.399117700631372D+00  0.186752681310506D+00  0.272642516992186D+00
- -0.640119067091257D+00  0.410989666928906D-01 -0.163205922752790D+01
- -0.400451253368506D+00 -0.274289058885121D-01  0.980854130492364D+00
-  0.845362246722141D+01 -0.312250225675825D-16  0.397364297022307D-08
-  0.177777771155025D+00 -0.100140194447606D+00  0.182630803986955D+00
-  0.116617854635324D+00  0.659106208934926D-01 -0.294167884089840D+00
- -0.459120684905718D+00  0.131791048372097D+00  0.444444441132988D-01
- -0.150035826008786D+00  0.198682145909068D-08 -0.548637902827148D+00
-  0.421611718568697D+00 -0.446696638972281D+00 -0.112739210874975D+01
-  0.833929040524658D+00  0.132454764994669D-08 -0.581353808653050D+00
- -0.700644972794345D-01 -0.752739949677641D-01 -0.817027415200967D+00
-  0.421676593423486D+00 -0.163014389349106D+00 -0.123977081826127D+01
- -0.198682157531715D-08  0.578258059477879D+01  0.444444441132986D-01
- -0.141638829305438D+01 -0.543919417557021D+00 -0.462430200980093D+00
-  0.132454770415680D-08  0.687903589970816D-01  0.901878465027630D-01
- -0.122783154660478D+00 -0.217846902277790D+00  0.108542424735462D+00
- -0.181789244962858D+00 -0.464402487381695D+00  0.114774944731253D+00
-  0.488437635520258D+00 -0.888888849152386D-01  0.448375075073775D+00
-  0.595075261803897D+01 -0.852733408881014D+00  0.993410759903002D-09
- -0.421316476798722D+00  0.127563440260364D+01 -0.320191937086007D+00
- -0.300924194201698D+00  0.133333327372868D+00 -0.354898172367081D+01
-  0.208157621432612D+00 -0.613033908549894D-01  0.300899495303118D+00
-  0.272642516992186D+00 -0.110381842435327D+01 -0.133333327372868D+00
- -0.385205219170139D+00 -0.574851028038848D+00  0.993410704391851D-09
- -0.888888849152386D-01  0.856601536039305D-01 -0.799604783486562D-01
-  0.423802600008065D+00 -0.465495379262112D+00  0.118211525244204D+00
- -0.993410811944706D-09  0.398422714698948D+00 -0.888888875643339D-01
-  0.705844419084446D-01 -0.888888875643339D-01 -0.133333331346511D+00
- -0.993410851843346D-09 -0.612515047125367D+00 -0.100790190941342D+00
- -0.167160420247641D+00  0.296133104195183D+00 -0.632214871336174D+00
-  0.221283214625101D+00 -0.334919735891146D+01 -0.241634250813623D+00
- -0.101733871016950D+00  0.133333331346511D+00  0.647676699170626D+01
-  0.421611718568593D+00 -0.165721969019173D+01 -0.155445007225272D+00
- -0.602264163283235D+00 -0.726818993416990D-01  0.777224869005712D-01
- -0.458972243150280D+00  0.846823657035061D-01 -0.401122452728106D+00
- -0.656592020125530D+00 -0.270824706598883D-01  0.118375008321395D+00
-  0.144459757785193D+00 -0.701208031739412D+00 -0.233725899318962D+00
-  0.444444484180786D-01 -0.127891402281602D+00  0.113650666396121D+00
-  0.298882351676107D+00 -0.609473151592624D+00 -0.264909532851632D-08
-  0.551529332852191D-02  0.151349032107882D+00  0.143871137900234D+00
-  0.446450613374278D+00  0.397364302573422D-08 -0.619970011692649D+00
-  0.525656620966724D+01  0.719667396112234D+00 -0.569629239217784D-01
-  0.514450763299384D-01  0.753946830505801D-01  0.488437635520362D+00
- -0.149264743376976D+01  0.191287616485946D+00 -0.441749455362340D+00
-  0.186752681310506D+00  0.174401595308164D+00 -0.162289383552180D+01
- -0.112114197871469D+00 -0.397364299537656D-08 -0.382638025014161D+00
- -0.677799707942471D+00 -0.264909532981736D-08  0.444444427887510D-01
- -0.956438268137174D-01 -0.398628699258829D+00  0.211126448284031D+00
-  0.882032362009860D-01 -0.220913042094119D-01  0.122082027774585D+00
-  0.381606003830537D-01 -0.318971920796437D-01 -0.102318698835419D+00
-  0.430076980383393D-01 -0.333333325054870D-01  0.120488351205241D+00
- -0.333333323399185D-01 -0.222222213943755D-01  0.333333331677609D-01
-  0.217848829179987D+00 -0.467277170320170D+00 -0.128063434457080D-01
- -0.726818993416990D-01 -0.317739131389992D+00  0.233815726877009D-01
- -0.426547623310094D+00  0.363346171013350D-01  0.292647315973531D+00
-  0.139730144875338D+00 -0.222222223877863D-01 -0.752739949677642D-01
-  0.333333333333294D-01 -0.488645719464723D+00  0.429916645738484D+00
-  0.198874677843921D+00 -0.100922710712066D+00 -0.252537682191967D+00
- -0.899075905174079D+00 -0.239521929634973D-01 -0.560418821538379D+00
- -0.333333333333293D-01 -0.222222223877863D-01  0.426458687908775D+00
- -0.103847213900796D+00  0.333333331677609D-01 -0.516460902835993D-01
- -0.614917633654227D-01 -0.215140398167026D+00  0.387736432882471D+01
- -0.140324529740877D+01  0.144459753375677D+00  0.258230365546844D-01
- -0.456606822034675D+00 -0.607991426764652D+00  0.333333323399185D-01
-  0.998690143437297D-01 -0.222222213943755D-01 -0.333333325054870D-01
-  0.142800062230824D+00  0.117192297723913D+00 -0.621892797400755D-01
- -0.745863729443084D-01 -0.242175945514600D-01  0.763882954012601D-01
-  0.154848161328872D+00 -0.227105042759238D-01 -0.222222232156285D-01
- -0.208237624477854D+00 -0.449792161987066D-01 -0.239521926471514D-01
-  0.943308199405887D-01  0.333333356512877D-01 -0.798877665068126D+00
- -0.126903576577114D+00 -0.333333353201508D-01 -0.123066588149848D+00
-  0.397707188854952D-01  0.282200738928315D+00  0.120606853301876D+00
-  0.174401595308164D+00 -0.222222202353963D-01  0.208157621432612D+00
-  0.994390675617126D-01  0.333333311809394D-01 -0.333333328366239D-01
-  0.358930233728015D+01 -0.333333325054870D-01 -0.444253551192372D+00
-  0.791541737320681D+00  0.490260189630038D+00 -0.400451253368505D+00
- -0.509853321186065D+00  0.337555174503348D-01 -0.222222222222178D-01
-  0.503683669718625D+00 -0.591350365792820D+00  0.333333308498025D-01
- -0.457013453612747D+00 -0.133489599174785D+01  0.212059873538052D+00
-  0.211126422350615D+00  0.202359411966639D+00 -0.222222252024500D-01
- -0.134018986021205D+00 -0.144575434396283D+00 -0.333333369758353D-01
- -0.390740172969558D+00  0.333333373069722D-01 -0.630975878528990D+00
- -0.101179714936515D+00  0.842589729979064D-01  0.209466751546809D+00
-  0.333333313465078D-01  0.333333338300347D-01 -0.333333313465079D-01
- -0.133333327372868D+00 -0.333333338300347D-01 -0.397364299537656D-08
-  0.333333323399186D-01  0.333333328366240D-01 -0.133333331346511D+00
- -0.333333328366239D-01  0.198682145909068D-08  0.133333329359690D+00
-  0.133333333333333D+00 -0.333333323399185D-01  0.198682142960038D-08
- -0.397364297022307D-08 -0.381639164714898D-16 -0.312250225675825D-16
- -0.222222227189232D-01  0.333333315120763D-01  0.333333316776447D-01
- -0.222222228844917D-01 -0.264909532981736D-08  0.444444441132988D-01
-  0.993410704391851D-09 -0.888888875643339D-01 -0.222222212288071D-01
- -0.333333325054870D-01 -0.333333326710555D-01 -0.222222213943755D-01
-  0.993410773780790D-09 -0.888888888888816D-01 -0.132454763476786D-08
-  0.444444441132986D-01  0.177777776453216D+00  0.397364297022307D-08
-  0.333333336644662D-01 -0.222222205665332D-01 -0.222222207321017D-01
-  0.333333334988978D-01 -0.888888849152386D-01  0.132454764994669D-08
-  0.444444427887510D-01 -0.993410851843346D-09 -0.222222222222178D-01
- -0.333333325054870D-01 -0.333333326710555D-01 -0.222222220566494D-01
- -0.993410628064018D-09  0.444444427887510D-01 -0.888888862397863D-01
- -0.397364308471482D-08  0.264909532504687D-08  0.177777771155025D+00
-  0.426458687908775D+00 -0.404416033363421D+00 -0.163014389349106D+00
- -0.467212295465382D+00 -0.821524795644469D-01 -0.475316261047886D+00
- -0.242251232767486D+00  0.348981939625429D+00 -0.541597954724018D+01
- -0.938450612905864D+00  0.763849892726789D-02  0.971790844856475D+01
-  0.208166817117217D-16  0.177777776453216D+00 -0.132454767987067D-08
- -0.506247805302328D+00 -0.440513813814989D+00  0.503683669718625D+00
- -0.178361149099100D+01 -0.440122080025375D+00  0.752500414619171D+00
-  0.123966034659508D+01  0.666191461716195D+00 -0.376282335917037D+01
-  0.300899495303118D+00  0.566428956958634D+01  0.734875821322926D+01
- -0.138777878078145D-16  0.397364291644664D-08  0.177777768505930D+00
- -0.614917633654225D-01 -0.462430200979989D+00  0.785710465686175D-01
-  0.121299511510125D+00 -0.529015854639077D+00  0.586531715391250D-01
-  0.134895881892543D+00 -0.491815678274707D+00  0.432282066854089D+00
-  0.562823145473236D+00  0.763849892726796D-02 -0.133333331346511D+00
- -0.888888875643340D-01 -0.119608369223426D+00 -0.331137011474331D-09
-  0.664590081769408D+01 -0.523439466296746D+00 -0.105029924498278D+00
- -0.362065809857206D-01 -0.577019921754793D+01  0.133333331346511D+00
- -0.888888875643340D-01 -0.331136815884259D-09  0.142800055798401D+00
-  0.100463096793359D+01  0.181032732787689D-01 -0.984859711688282D+00
-  0.953186456450769D-01 -0.522747288756534D+00  0.161897122554173D+00
-  0.212059873538052D+00 -0.354672981004771D+00 -0.739424751021218D+00
- -0.546423845210963D+00 -0.385205219170243D+00  0.266992591587527D+01
-  0.498148715919310D+00  0.666191461716195D+00 -0.397364290950775D-08
-  0.508743240681986D+01  0.221597933354305D+01 -0.264909527343885D-08
-  0.444444421264772D-01  0.444444484180785D-01  0.209466726901855D+00
-  0.657982765756909D+00 -0.264909524524959D-08 -0.409890339397732D+01
-  0.397364288001745D-08 -0.137963249224285D+00 -0.328991394978985D+00
-  0.649075419958437D+00  0.333333308498025D-01 -0.333333333333293D-01
-  0.333333328366239D-01  0.133333327372868D+00  0.333333323399185D-01
-  0.133333333333333D+00 -0.133333331346511D+00 -0.397364290950775D-08
-  0.198682153368379D-08 -0.198682157531715D-08  0.208166817117217D-16
- -0.138777878078145D-16  0.333333311809394D-01 -0.222222223877863D-01
- -0.888888875643340D-01 -0.222222217255124D-01 -0.264909527343885D-08
- -0.333333321743501D-01  0.993410759903002D-09 -0.888888888888816D-01
- -0.132454769027901D-08  0.444444441132986D-01  0.177777776453216D+00
-  0.397364291644664D-08 -0.222222202353963D-01  0.333333331677609D-01
- -0.331137011474331D-09  0.444444421264772D-01 -0.333333330021924D-01
- -0.222222217255124D-01 -0.331136869660686D-09  0.444444421264772D-01
- -0.888888849152386D-01  0.132454770415680D-08 -0.132454767987067D-08
-  0.177777768505930D+00 -0.637966738560192D+00  0.441195420359660D+00
- -0.289610433148020D+01 -0.892375690111950D-02 -0.428699886978152D+00
- -0.208167272973104D+01 -0.711111344608933D+00 -0.892375699362085D-02
- -0.447693468395018D+00 -0.259921391595300D-01  0.853333302919791D+01
-  0.173472347597681D-16 -0.713896317237594D-01  0.177777773804120D+00
- -0.132454777528046D-08  0.438189574510828D+00 -0.631138700285903D+00
- -0.687850874218566D-01 -0.450699314334100D+00 -0.332086772285242D+00
- -0.435528006015029D+00 -0.687850895914103D-01 -0.539432044230225D-01
- -0.109013497857196D+01 -0.579328311226444D+00 -0.248888924697560D+01
-  0.853333363750731D+01  0.277555756156289D-16  0.529819057897007D-08
-  0.177777793672335D+00 -0.147600539928508D+01 -0.143120155143847D-01
- -0.615780721904492D+00  0.132454776660684D-08 -0.447693468529208D+00
-  0.444444434510249D-01 -0.651149076745644D+00 -0.450885904836017D+00
- -0.746216431635669D+00  0.441079941208121D+00 -0.114495910620847D+00
-  0.272337532373308D+00 -0.259921391595300D-01  0.533333330258438D+01
- -0.711111349185440D+00  0.441195420493850D+00 -0.143120151227283D-01
-  0.198682168113529D-08 -0.711111348126615D+00  0.444444434510249D-01
-  0.132454778135199D-08 -0.415517549249370D+00 -0.107458936585927D+00
- -0.269159724558478D-01 -0.447808947567558D+00 -0.198682164470609D-08
- -0.177777716888932D+00  0.292173697172965D-01  0.127662432233574D+00
-  0.114763285637988D+00 -0.282698223462604D-01 -0.428197141027811D+00
- -0.888888968361676D-01 -0.450699314377936D+00 -0.282698220909464D-01
- -0.608952756480326D+00  0.438189574554664D+00  0.436951553114970D+00
- -0.457713951022770D+00  0.250419660474056D+00  0.132454773191237D-08
- -0.232096851518445D+00 -0.644811504175826D+00 -0.107762011673587D+00
- -0.539432044230224D-01 -0.451937335749393D+00 -0.133333345254262D+00
-  0.640000038830426D+01 -0.248888925155211D+01  0.132454770762624D-08
- -0.581856977602049D-01 -0.888888968361676D-01  0.201612270188661D+00
- -0.421855202547323D+00  0.114460210532247D+00  0.650543863887958D-01
-  0.177777840429054D+00 -0.248888924955237D+01  0.133333345254262D+00
-  0.276953754772473D-01  0.155414475907458D+00 -0.109486601089071D+00
-  0.274303698108495D+00  0.446186257911491D-02 -0.331136953361094D-09
- -0.888888875643341D-01 -0.133333331346512D+00 -0.325415845932901D-01
- -0.286791265542639D+01 -0.892375699362084D-02  0.441195420493746D+00
- -0.608952663980797D+00  0.645781541364066D+01 -0.318520361636853D-01
- -0.117271877695633D-01 -0.331136895681539D-09 -0.888888875643341D-01
-  0.133333331346512D+00 -0.442936352050491D+00 -0.215051273425111D+01
- -0.839190733348003D-02 -0.447533177709992D+00  0.101524638797493D+00
-  0.141687577606258D-02  0.111707177869535D+00  0.107373962006074D+00
- -0.107983678142106D+00  0.222081146207924D+00  0.343925283587465D-01
- -0.240836196870231D-01 -0.812518557513202D-01 -0.262290856118701D+00
- -0.108060000570748D+01 -0.687850874218566D-01  0.527551781248253D+01
-  0.438189574554768D+00 -0.111832669798059D+01 -0.615780710167550D+00
- -0.397364289823204D-08 -0.264909527083676D-08  0.444444484180786D-01
-  0.444444421264770D-01 -0.264909525565793D-08 -0.450536751602452D+00
- -0.671342075114616D-01  0.397364290777302D-08 -0.406828977713746D+00
- -0.450020316641064D+00  0.113546557092873D+00  0.240195840421465D-01
- -0.231828507902011D+00  0.179008834256042D+00  0.108584998437120D+00
-  0.715599971199278D-02  0.155414479519370D+00  0.112735621133120D+00
-  0.333333331677610D-01 -0.222222223877864D-01  0.155027337149885D+00
- -0.333333325054871D-01 -0.109428861508064D+00 -0.222222213943755D-01
- -0.483667027777688D-01 -0.333333323399186D-01 -0.447693468395018D+00
- -0.143120151227283D-01 -0.631138708329621D+00 -0.119400104622623D+00
- -0.145041933258170D+01 -0.117271877695633D-01 -0.520858667964817D-01
-  0.378278136265177D+01  0.259516915081675D-01 -0.592344285350184D+00
-  0.268425671083872D-01  0.441079941321309D+00 -0.333333333333294D-01
-  0.250018073215504D+00 -0.122634231776880D-01 -0.107458936584202D+00
- -0.265991292360551D+00 -0.427159937103125D+00  0.134369713598235D-01
- -0.333333325054871D-01 -0.222222213943756D-01  0.333333323399187D-01
- -0.222222223877863D-01  0.333333331677609D-01 -0.467749954203763D+00
- -0.447755657436466D+00  0.333333333333293D-01 -0.805198055333940D+00
-  0.441355711178772D+00 -0.138673129235950D-01  0.114677075433092D+00
-  0.136124128440099D+00  0.960784445768171D-01 -0.110515044352656D+00
-  0.266097435608176D-02  0.123733021915844D+00 -0.475343339418443D-01
- -0.139759335719866D-01  0.111678735348287D+00 -0.285614670122910D-01
-  0.141349031620162D-01  0.114238544080085D+00 -0.135859452290320D+00
- -0.222222232156286D-01  0.222081168032366D+00 -0.107364667439305D+00
-  0.333333356512877D-01  0.221694005786053D+00 -0.116745852573681D+01
- -0.240836196870231D-01 -0.109040381214798D+00 -0.282698220909463D-01
- -0.453783240471980D+00  0.261032290565177D-01 -0.450699314334100D+00
-  0.368388530402895D+01 -0.333333373069724D-01 -0.637966827366498D+00
-  0.436951553139371D+00 -0.333333369758355D-01 -0.290081865315318D-01
- -0.222222252024501D-01 -0.483667024810068D-01 -0.598681852552537D+00
- -0.102040488219646D+01  0.333333353201508D-01  0.130094417204141D-01
-  0.187410004191142D+00 -0.583730938210469D-02 -0.451971017914857D+00
- -0.107762011689944D+00 -0.222222222222177D-01 -0.333333325054870D-01
-  0.333333328366239D-01 -0.279833859743168D-01  0.438352137286415D+00
- -0.434357191088650D+00 -0.222222202353963D-01  0.333333311809393D-01
- -0.333333308498023D-01 -0.474833852566956D+00  0.189379299793012D+00
-  0.114470275257702D+00 -0.108675665129318D+00  0.195367879264652D+00
-  0.105257652959712D-01  0.737398569291508D-01  0.113843681642879D+00
- -0.272929076836722D+00  0.167468131065917D+00 -0.290502878429284D-01
- -0.171739997626208D-01  0.333333328366240D-01 -0.397364289823204D-08
- -0.133333331346512D+00 -0.333333353201508D-01 -0.333333323399186D-01
- -0.333333373069724D-01  0.133333329359690D+00  0.198682168113529D-08
- -0.133333345254262D+00  0.397364285226187D-08  0.173472347597681D-16
-  0.277555756156289D-16 -0.888888875643341D-01 -0.222222220566494D-01
- -0.264909527083676D-08  0.333333356512877D-01 -0.333333369758355D-01
- -0.222222213943755D-01  0.132454770762624D-08  0.444444434510249D-01
- -0.888888862397863D-01 -0.264909524524959D-08  0.177777773804120D+00
-  0.529819057897007D-08 -0.331136953361094D-09  0.444444484180786D-01
-  0.333333326710555D-01 -0.333333325054871D-01 -0.222222232156285D-01
- -0.222222252024501D-01 -0.331136940784349D-09  0.132454778135199D-08
- -0.888888968361676D-01  0.444444484180786D-01 -0.132454777528046D-08
-  0.177777793672335D+00 -0.467984782313789D+00  0.441079941321309D+00
- -0.147319033687509D+01 -0.598681843690165D+00 -0.566807771296533D-01
- -0.447808947680746D+00 -0.455688633468390D+00 -0.350458670883130D+01
- -0.326154149570847D+00 -0.711111346535647D+00 -0.740512477037951D+00
- -0.269159724558478D-01 -0.566807764921034D-01  0.433200255540512D+00
-  0.177777773804120D+00 -0.711111362575158D+00  0.853333302942416D+01
- -0.899534587296170D-01 -0.453445790631844D+00 -0.451028103753970D-16
- -0.397364334665806D-08  0.438540943984249D+00 -0.730615652965816D+00
- -0.248888926217327D+01 -0.525957564650633D-01 -0.451937335773793D+00
- -0.474322349516142D+00  0.436951553139371D+00 -0.592344357215944D+00
- -0.535856067392843D-01 -0.581856977602049D-01 -0.535856067884396D-01
- -0.248888924796140D+01  0.243212359827306D+00 -0.450347944863539D+00
- -0.166543409589706D+01 -0.443126134792563D+00 -0.336051053735107D+00
-  0.853333363699940D+01 -0.381639164714898D-16  0.529819046794777D-08
-  0.177777793672335D+00  0.145923302312499D+00 -0.107458936584215D+00
-  0.254076661388727D+00 -0.418019846014604D+00  0.114763285636277D+00
- -0.769005337793157D+00  0.432749200267759D+00  0.433200255420477D+00
-  0.264909554362203D-08 -0.177777721194953D+00 -0.648646774485980D+00
- -0.468460161518226D+00 -0.458453767525036D-01  0.292173697172965D-01
- -0.175376185579176D+01 -0.455688633348355D+00 -0.711111333930888D+00
- -0.456139688666404D+00  0.444444484180786D-01 -0.458453764140310D-01
-  0.397364333278027D-08  0.444444434510250D-01 -0.397364332410666D-08
- -0.899534587296169D-01 -0.366762800738546D+00  0.264909554882620D-08
-  0.533333331727857D+01  0.118895138632564D+00 -0.711111145207244D+00
- -0.935619006126759D-01 -0.103327083678403D+00 -0.297661334150754D+00
-  0.622721933256907D-01  0.932025787296507D-01 -0.177777766140793D+00
-  0.306797422654518D+00 -0.888888968361676D-01  0.132454777874991D-08
- -0.758458821478362D+00 -0.250621930646928D-01  0.436530429614756D+00
-  0.133333345254262D+00 -0.692896394281064D+00 -0.248888892448562D+01
- -0.592464668437917D-01  0.236210996965547D+00  0.114460210548591D+00
- -0.202024534132972D+00  0.640000019478693D+01  0.183351422383664D+00
- -0.107762011689931D+00  0.833152332881366D-01  0.438540944025224D+00
-  0.276953754772473D-01  0.177777836123033D+00  0.177777789193161D+00
- -0.450347944904514D+00 -0.638750049754919D+00 -0.525957564650633D-01
- -0.250621928580397D-01 -0.427916650837792D+00 -0.308207851111334D+00
- -0.110124315253802D+00 -0.133333345254262D+00  0.656562501030761D-02
- -0.452358459283557D+00  0.132454748601532D-08 -0.248888923352900D+01
-  0.304556710460777D-01  0.515118774384683D+00 -0.888888968361676D-01
-  0.112097906825203D+00  0.155027333840751D+00 -0.179595236046380D+00
- -0.122634231776879D-01  0.112793360714127D+00  0.420298370809731D+00
-  0.283403725108691D-01 -0.209599210763117D+00  0.652644082671012D+01
-  0.110824871025666D+00 -0.447808947567454D+00 -0.644811491923655D+00
- -0.414844384197472D-01 -0.993410680105722D-09 -0.344321178748211D+01
- -0.888888875643341D-01  0.133333331346512D+00  0.171772825816631D+00
- -0.564495020766242D-01 -0.888888875643341D-01 -0.105489018615941D+00
- -0.638750003888705D+00 -0.566807771296534D-01 -0.133333331346512D+00
- -0.162260069006750D+01 -0.455397082779848D+00 -0.485934788015362D+00
-  0.433200255420374D+00  0.441133231452298D+00 -0.993410849241261D-09
- -0.344226856692984D+00  0.135653178057660D+00 -0.207095654031096D-01
- -0.110543486873904D+00  0.659212479223212D-01  0.115636181249949D-01
-  0.113678240831747D+00 -0.108159362878100D+00  0.238439492638113D+00
-  0.114857554782886D+00 -0.648646808711894D+00  0.438540944025328D+00
-  0.221694024000819D+00 -0.208151131111956D+00 -0.290081865315318D-01
- -0.651149145221608D+00  0.267927874873609D-01 -0.122684268535123D+01
- -0.451937335749496D+00  0.647428171292682D-01 -0.535856067392842D-01
- -0.172680909077972D+01 -0.537466421465318D-01 -0.230295565082662D-01
- -0.397364290170149D-08  0.520689237551171D+01  0.444444427887511D-01
- -0.949210321959856D+00 -0.264909525175480D-08 -0.264909522790235D-08
- -0.493131962528029D+00  0.823655689295524D-01  0.436917870974010D+00
-  0.444444484180788D-01  0.397364284532298D-08 -0.354159220417656D+00
- -0.450354521599948D+00  0.203601689780326D-01  0.207042846334230D+00
- -0.324662946685328D+00 -0.108378540579312D+00  0.113468577859705D+00
-  0.140657165489550D+00 -0.483667008956701D-01 -0.194162660553522D+00
- -0.296038640473769D-01  0.134369713598235D-01  0.173059261098896D+00
-  0.171772814355469D+00 -0.105263490998262D+00 -0.250789811184558D+00
-  0.268278930048951D+00  0.333333369758355D-01  0.116733203606250D+00
- -0.222222252024501D-01  0.175600126707307D+00  0.114763285637975D+00
- -0.414844384197474D-01 -0.730615620859593D+00 -0.169610795556240D+00
-  0.333333334988978D-01  0.380862536488420D+01 -0.222222228844916D-01
-  0.333333338300347D-01 -0.455688633468389D+00  0.433491806108916D+00
- -0.333333318432131D-01  0.229226803443484D-01 -0.446042581002875D+00
- -0.222222208976701D-01 -0.333333321743501D-01 -0.333333373069724D-01
- -0.458453767525034D-01 -0.425019938722304D-01 -0.171511861042642D+01
- -0.620764143059773D+00 -0.333333356512878D-01  0.432749200222463D+00
- -0.448807302800180D-01 -0.222222232156286D-01  0.238857650326429D-01
-  0.301940764173950D-01  0.156383581910391D+00 -0.558710704942034D+00
- -0.103327083589627D+00  0.203959623918923D+00 -0.107545146789085D+00
-  0.137013942918046D+00 -0.280241051168817D-01  0.263957550761460D+00
- -0.307560135975784D+00 -0.544297875519552D-01  0.333333353201509D-01
-  0.269940885432534D-01 -0.105126356189814D+00 -0.108543981390444D+00
- -0.455527943951882D+00  0.105990540041993D-01  0.119371645469393D+00
- -0.314949897771732D+00  0.101003998808698D+00  0.113597394111639D+00
-  0.457195094915752D-01 -0.300130110480275D-01  0.107693089151963D-02
-  0.239725914681530D+00 -0.222222232156285D-01  0.333333356512877D-01
- -0.107154105680710D+00  0.333333353201507D-01  0.125310885333979D-01
- -0.688443208806250D-01 -0.294523264990268D-01 -0.631310554056540D+00
-  0.436530429605206D+00 -0.731539674523508D+00 -0.544297842307822D-01
- -0.483667063938040D-01 -0.250621928580396D-01  0.114062859344090D+00
-  0.205670884204173D+00  0.114460210532260D+00  0.238439506012219D+00
-  0.130094417204142D-01 -0.230295565082662D-01  0.659913224249238D-01
- -0.450347944863539D+00 -0.740512525023853D+00 -0.333333369758353D-01
-  0.201210616586934D+00 -0.131082500417008D+01 -0.982229252235725D-01
- -0.859899917973277D+00 -0.333333373069722D-01 -0.110124315396987D+00
-  0.272843808783327D-01  0.438534367288919D+00 -0.222222205665332D-01
- -0.222222252024500D-01  0.939992888755432D-01 -0.306665954884165D-01
-  0.333333316776448D-01 -0.474166291266696D-01 -0.455974852009212D+00
-  0.365804130180402D+01 -0.222222225533548D-01 -0.333333313465078D-01
- -0.333333330021924D-01 -0.107751946964501D+00  0.422945987208073D+00
- -0.108753644362486D+00 -0.252305127527709D-01 -0.312221663404622D-01
-  0.211749838961376D+00  0.333333333333293D-01  0.265052677126161D-01
- -0.326644748469188D+00 -0.452242232799192D+00  0.102528776150400D-01
-  0.466915616707318D-02  0.381797530445564D-01 -0.317799985488041D+00
-  0.112420636616600D+00  0.120661556766449D+00  0.114253021213421D+00
- -0.285090676336227D-01 -0.297887825143310D-02  0.333333333333294D-01
- -0.333333353201507D-01 -0.133333345254262D+00 -0.333333333333294D-01
-  0.397364333278027D-08  0.333333353201508D-01 -0.133333331346512D+00
-  0.333333318432132D-01 -0.397364290170149D-08 -0.198682164470609D-08
-  0.133333345254262D+00  0.333333373069722D-01 -0.333333318432131D-01
-  0.133333329359690D+00  0.397364285226187D-08 -0.451028103753970D-16
- -0.333333373069722D-01 -0.381639164714898D-16 -0.222222225533548D-01
-  0.333333356512877D-01  0.132454748601532D-08 -0.222222223877864D-01
-  0.333333356512877D-01 -0.888888875643341D-01  0.444444434510250D-01
- -0.333333369758353D-01 -0.264909525175480D-08 -0.222222208976701D-01
-  0.444444434510249D-01 -0.222222210632386D-01 -0.333333369758353D-01
-  0.132454773191237D-08  0.177777773804120D+00 -0.888888862397864D-01
- -0.264909522096346D-08  0.529819046794777D-08  0.333333330021925D-01
- -0.222222232156285D-01 -0.888888968361676D-01 -0.222222252024500D-01
-  0.333333331677610D-01 -0.222222232156286D-01 -0.993410849241261D-09
-  0.444444484180788D-01  0.264909554882620D-08 -0.333333321743501D-01
- -0.888888968361676D-01  0.132454776660684D-08 -0.333333320087816D-01
- -0.222222252024500D-01 -0.993410808475259D-09  0.444444484180785D-01
- -0.397364334665806D-08  0.177777793672335D+00  0.425003586837599D+00
- -0.804069563453821D+00 -0.155526809111799D+00 -0.127300977161237D+00
- -0.435356112610019D+00 -0.127300973918825D+00  0.432749200222463D+00
- -0.463885302361024D+00 -0.394428260643576D+01 -0.103349514861483D+01
- -0.711111169349765D+00 -0.631310543776236D+00 -0.711111075514184D+00
- -0.456139688621107D+00 -0.262597113895688D+00 -0.935619006126759D-01
-  0.853333333038852D+01 -0.101840738046504D+01  0.346944695195361D-17
-  0.177777793672335D+00 -0.529819111326491D-08 -0.798936990697482D+00
-  0.448411283792146D+00 -0.445902523606785D+00 -0.248888894474054D+01
-  0.682974866934775D+00  0.436530429605206D+00 -0.267729685849380D+00
-  0.329840303808488D-01 -0.157887526605646D-01 -0.210519706521667D+01
- -0.440477604514378D+00 -0.157887548673827D-01 -0.592464668437917D-01
- -0.452358459274007D+00 -0.248888885479256D+01 -0.620764133425253D+00
- -0.105050169707024D+00  0.853333333627688D+01  0.589805981832114D-16
-  0.529819112540797D-08  0.177777793672335D+00 -0.463885302051267D+00
- -0.767005176082769D-01 -0.627646696038941D+00  0.132122716746357D+00
- -0.613603928805040D+00  0.267877279277692D+00 -0.177777789193265D+00
-  0.425003586527843D+00  0.118895138543800D+00 -0.711111055259259D+00
- -0.103327083589640D+00  0.264909565117488D-08  0.423802600008169D+00
- -0.832940755344740D+00 -0.180772327502350D+01  0.622721933256906D-01
- -0.767005175748794D-01 -0.439019954580887D+00  0.533333330935365D+01
- -0.155526809111799D+00  0.444444434510248D-01  0.397364330762678D-08
-  0.444444484180786D-01 -0.711111422352108D+00 -0.397364344900675D-08
- -0.165134701523197D+00 -0.102318698835432D+00  0.264909553624945D-08
-  0.256945011052937D+00 -0.465086288634442D+00  0.703392708447647D-01
- -0.414498746748228D+00 -0.233725887946266D+00 -0.177777703669409D+00
-  0.119903523169360D+00  0.143054958627586D+00 -0.765344857050011D+00
-  0.199281687625254D-01 -0.888888968361675D-01  0.693757825718313D-01
- -0.825032403850079D+00  0.446450613374174D+00 -0.444152420570767D+00
-  0.640000020241474D+01  0.132454762262479D-08 -0.110124315396974D+00
-  0.587567237445498D+00  0.193603161578860D+00 -0.123066588149835D+00
-  0.133333345254262D+00 -0.248888931556130D+01 -0.622514229246413D+00
-  0.223651770653385D-01  0.448411284374385D+00  0.179276607680509D+00
-  0.177777853510618D+00 -0.241634317864633D+00  0.199281722700645D-01
- -0.440477605096617D+00  0.656562501030762D-02  0.329840303808488D-01
-  0.177777766140688D+00  0.112097906968375D+00 -0.442438274279992D+00
-  0.197290880079674D+00  0.730634999939031D-01 -0.102818620203706D+00
- -0.248888883065003D+01 -0.133333345254262D+00  0.132454766122239D-08
-  0.991556334332273D-01 -0.888888968361675D-01  0.530172076229494D+00
-  0.636504718754438D-01 -0.101390684217054D+00  0.425003586527739D+00
- -0.340099903186560D+00  0.173059243964005D+00 -0.758458815555223D+00
- -0.487888450586691D+00 -0.388297486693474D+01  0.116958731223929D+00
- -0.127300977161238D+00  0.177993231670849D+00 -0.132454758099143D-08
- -0.133333345254262D+00 -0.888888968361676D-01 -0.622514246095814D+00
- -0.456139688666300D+00 -0.425019938722304D-01 -0.782742800082084D-01
-  0.653494546239614D+01 -0.888888968361676D-01  0.433360944936882D+00
- -0.466762770869467D+00 -0.132454782341904D-08 -0.132871235255639D+00
-  0.133333345254262D+00 -0.120212744429989D+01  0.274353806732660D+00
-  0.155517748587701D+00 -0.108624828110552D+00 -0.466403074422813D+00
- -0.268507031756110D+00  0.339798587681473D-01 -0.121843004851579D+00
-  0.182328504051277D-01  0.117565757217930D+00  0.244659884891375D+00
- -0.113094532917365D+00  0.444444434510248D-01 -0.627646712085694D+00
- -0.140395944507876D+01 -0.264909559913318D-08 -0.769027285833470D+00
- -0.306665954884163D-01  0.519838804987068D+01 -0.478457522225852D+00
-  0.174616520370654D+00  0.436646656089675D+00  0.397364337961781D-08
- -0.747065832020383D-01  0.789436098741486D-02  0.448411284374488D+00
-  0.119900026092650D-01 -0.452358459283661D+00  0.230459772682992D+00
-  0.501506540802568D+00 -0.157887526605645D-01 -0.107969201008770D+00
- -0.209524290845090D-01  0.115068116541481D+00 -0.769005332515803D+00
- -0.216650485138514D+01  0.239725924037592D+00 -0.397364326252397D-08
- -0.264909549374873D-08  0.117006482791808D-01 -0.441884750164381D+00
- -0.272181884536958D+00  0.444444484180787D-01 -0.410685543964189D+00
-  0.928473697240249D-01  0.110894356458530D+00  0.120831538005136D+00
-  0.177993211742951D+00  0.383502508485038D-01 -0.544297829005559D-01
- -0.316697905229015D-01  0.302877662287213D+00 -0.798936980817197D+00
- -0.152583411866151D+00 -0.767005175748796D-01 -0.333333353201507D-01
- -0.463885302361023D+00  0.118895138632551D+00  0.333333330021924D-01
- -0.100790190941355D+00 -0.782742800082083D-01 -0.222222232156285D-01
-  0.181984321052660D+00 -0.178756705869620D+01  0.301940764173950D-01
- -0.222222225533548D-01  0.333333369758353D-01 -0.333333356512877D-01
- -0.430972550221036D+00  0.192666086954839D+00 -0.333333333333293D-01
- -0.222222252024500D-01 -0.305706914761418D+00  0.423802600254425D+00
- -0.626515880057799D+00 -0.102850576752785D+00  0.143714199784926D+00
- -0.333333316776447D-01  0.233815726877008D-01 -0.102318699052831D+00
-  0.333333373069722D-01 -0.427144727492337D-01 -0.799604793986740D-01
-  0.422485814465949D+00 -0.461986367705865D+00 -0.222222205665333D-01
- -0.314543324279253D-01 -0.837458236556508D-01  0.321014107825317D+00
-  0.216307771022146D+00  0.333333313465079D-01  0.255425445075170D-01
- -0.464577820716195D+00  0.377016014084583D+01 -0.104656465004261D+00
-  0.381605998926605D-01  0.266872514082266D-01 -0.465495379799697D+00
-  0.168706134525557D+00 -0.132610262070168D+00 -0.245092965555043D+00
-  0.118211525857397D+00 -0.255593117848935D-02  0.122082027572558D+00
- -0.306633695431777D+00  0.135457027927236D+00 -0.318971922184084D-01
- -0.631220516106075D-03 -0.517783618214963D-01 -0.996409320543282D-02
- -0.785501074502473D+00  0.107560094982963D+00 -0.222222232156286D-01
-  0.248650987457036D+00 -0.112114197871456D+00  0.337555174503348D-01
- -0.147435364278717D+01  0.333333356512877D-01  0.466915616707321D-02
-  0.333333353201508D-01 -0.222222208976700D-01  0.244659891454430D+00
-  0.369650652569629D+01 -0.427144724328878D-01 -0.634424210635092D+00
-  0.808899291855161D-01 -0.109801585605604D+00  0.333333321743500D-01
-  0.109127689304825D+00 -0.222222228844916D-01  0.119900026092649D-01
-  0.199281722700648D-01  0.112097906825216D+00  0.665679135219834D-01
- -0.282711746772118D-01  0.446450614608771D+00 -0.333333334988978D-01
- -0.440477604514378D+00 -0.355101357759821D-01 -0.726089239476159D+00
-  0.146316289208879D+00 -0.544297862021211D-01  0.270464879219218D-01
-  0.240130754603640D+00  0.333333338300347D-01 -0.248134951681984D+00
- -0.804069552770889D+00 -0.333333318432131D-01 -0.732946648868801D-01
- -0.333333373069724D-01 -0.333333369758355D-01  0.551529696021696D-02
-  0.447004138724485D+00 -0.123066588788963D+00 -0.465661121145641D+00
-  0.547392826628048D+00 -0.449792196759104D-01 -0.222222252024502D-01
-  0.182445210601358D-01  0.243320630664869D+00 -0.111327865763661D+00
- -0.349012779901289D+00  0.655319019815345D-03  0.725664387554519D-01
-  0.651243843618763D-01 -0.441749454349066D+00 -0.120248032219085D-04
-  0.113650666136063D+00  0.994390662733311D-01 -0.242175939655010D-01
- -0.333333353201506D-01  0.333333373069724D-01 -0.397364326252397D-08
- -0.333333373069724D-01  0.333333353201507D-01 -0.133333345254262D+00
- -0.333333373069724D-01 -0.133333345254262D+00  0.397364330762678D-08
- -0.333333353201507D-01  0.397364327553440D-08  0.133333345254262D+00
-  0.133333345254262D+00  0.333333353201507D-01 -0.397364332410666D-08
-  0.333333373069723D-01  0.346944695195361D-17  0.589805981832114D-16
-  0.333333356512876D-01 -0.222222252024501D-01  0.132454766122239D-08
- -0.264909549374873D-08 -0.222222252024501D-01  0.333333356512877D-01
- -0.333333369758355D-01 -0.888888968361676D-01  0.444444484180786D-01
- -0.222222232156285D-01 -0.888888968361676D-01 -0.264909551586645D-08
-  0.132454777874991D-08  0.444444484180786D-01 -0.222222232156285D-01
- -0.333333369758354D-01  0.177777793672335D+00  0.529819112540797D-08
-  0.333333369758354D-01 -0.222222232156284D-01 -0.888888968361675D-01
-  0.444444484180787D-01 -0.222222252024502D-01  0.333333369758355D-01
- -0.222222232156285D-01 -0.333333356512877D-01 -0.132454782341904D-08
-  0.264909553624945D-08  0.444444484180785D-01  0.264909554362203D-08
- -0.333333356512877D-01 -0.222222252024501D-01 -0.132454771456514D-08
- -0.888888968361676D-01 -0.529819111326491D-08  0.177777793672335D+00
-  0.423802600254425D+00  0.429916645738483D+00 -0.556813313545281D+00
- -0.432242448002281D+00 -0.465086288880698D+00 -0.165134701523197D+00
- -0.155445003955293D+00 -0.116222334172140D+00 -0.155445007225272D+00
- -0.327539411094902D+01 -0.711111279633639D+00 -0.711111402113397D+00
- -0.170238295783139D+01 -0.124355962086711D+01 -0.458972242526992D+00
- -0.104083408558608D-15  0.853333302464586D+01 -0.634424159731604D+00
-  0.177777773804120D+00 -0.509853332106426D+00 -0.397364328247329D-08
- -0.440150778579574D+00 -0.578020915266622D+00  0.490260189630038D+00
-  0.446450614608772D+00  0.120557981258167D+00 -0.248888930937624D+01
- -0.248888917284283D+01  0.388909351433209D+00 -0.488645812468298D+00
- -0.626515907578016D+00  0.191287627190643D+00 -0.154277973770670D+01
- -0.398628697936860D+00  0.191287616485946D+00  0.164509779610278D+01
-  0.223651770653384D-01 -0.442438275514589D+00  0.853333364019593D+01
- -0.100613961606655D-15  0.529819046794777D-08  0.177777793672335D+00
-  0.119903523386772D+00 -0.102318699052844D+00  0.703392708447647D-01
- -0.458972243150384D+00 -0.388866986393524D+00 -0.516460902835993D-01
- -0.742986218499402D+00 -0.177777734695021D+00  0.187017016251917D+00
- -0.413168500103929D+00  0.429916646361875D+00 -0.711111285946989D+00
- -0.116222334172140D+00  0.432282066854193D+00  0.198682173317699D-08
-  0.444444434510249D-01  0.212982945459771D+00 -0.520242769616927D+00
- -0.677799628374643D+00 -0.516460877242796D-01  0.533333331805070D+01
- -0.972989646122233D-01  0.132454780563812D-08 -0.711111360000221D+00
- -0.198682167940056D-08  0.444444434510248D-01 -0.147923562932469D+01
-  0.132454779436242D-08 -0.546423868374059D+00 -0.456606821252724D+00
-  0.117025534438650D+00  0.203245625296623D+00  0.202359411966639D+00
- -0.123066588788950D+00 -0.543227148531144D+00  0.498148715919206D+00
- -0.656592022640917D+00 -0.888888968361676D-01  0.177777822485006D+00
-  0.640000037164977D+01 -0.381023130703426D+00  0.149641119165277D+00
-  0.132454771283042D-08  0.133333345254262D+00  0.490260190951903D+00
- -0.410074674210465D+00  0.164314555701750D+01 -0.398628699258725D+00
- -0.248888927507652D+01 -0.102818620203706D+00  0.202359415990279D+00
-  0.422504659207567D+00  0.388909351433209D+00  0.991556340723428D-01
- -0.248888919320983D+01 -0.523439573434387D+00 -0.390740171413762D+00
- -0.133333345254262D+00  0.132454767119705D-08 -0.888888968361676D-01
-  0.121432031280836D+00 -0.465086288634338D+00  0.777224869005713D-01
- -0.799604793986740D-01  0.382637905856410D+00 -0.825032360640951D+00
-  0.181984302229272D+00 -0.133333329359690D+00 -0.993410631533465D-09
- -0.103847213900783D+00 -0.155445003955293D+00 -0.888888862397862D-01
- -0.332055736147309D+01  0.429916646361771D+00 -0.632214866071894D+00
- -0.993410909522902D-09 -0.888888862397862D-01  0.122206925810800D+00
-  0.423393509089066D+00 -0.410074616064087D+00  0.133333329359690D+00
- -0.473910969656187D+00 -0.726818963301096D-01  0.632323260928749D+01
- -0.454151597897135D+00 -0.167160417078412D+00 -0.104010696364794D+00
- -0.162858043361822D+01 -0.467277168974478D+00  0.181006508984088D+00
-  0.705844463029699D-01 -0.428671543987544D-01  0.223344474076122D+00
- -0.464402528280946D+00  0.120488351147106D+00  0.453834593388738D-01
- -0.152101431695766D+01  0.188873594785738D+00 -0.134018986021218D+00
-  0.444444441132987D-01  0.551529696021702D-02 -0.264909521749401D-08
- -0.388867010330361D+00 -0.832940790559319D+00  0.397364286613966D-08
-  0.248650993468916D+00  0.541010049671861D+01 -0.457193491305743D+00
-  0.270823515021380D-01  0.200671599058861D+00 -0.729575042967723D+00
- -0.956438268137174D-01  0.490260190952008D+00  0.719667450725111D+00
-  0.447139434539802D+00 -0.442438274280096D+00  0.256128857394130D+00
- -0.108571556086127D+00  0.191287627190643D+00  0.174401605585283D+00
- -0.149761642238353D+01 -0.397364291297719D-08  0.110108024350735D+00
- -0.446696683567488D+00 -0.407000637608325D+00 -0.264909528471455D-08
-  0.186752701094924D+00  0.444444484180785D-01 -0.400451249228254D+00
- -0.569629328009883D-01  0.101117653794475D+00  0.943308178568103D-01
- -0.321739828678436D-01  0.118375008321408D+00  0.119903523169347D+00
-  0.122206914778545D+00  0.260269815400999D+00  0.381605998926606D-01
- -0.427144691013402D-01 -0.458972242526992D+00 -0.333333318432131D-01
- -0.222222210632385D-01 -0.578020885841347D+00  0.258230365546843D-01
- -0.516460877242795D-01  0.333333326710554D-01 -0.105029924498291D+00
- -0.726818963301096D-01 -0.554246475911661D-01 -0.470425181123530D+00
- -0.333333320087816D-01  0.236583633371361D-01  0.123866616274878D+00
-  0.182151168531531D+00 -0.126705283431522D+00 -0.818976511606337D+00
- -0.445753620009178D-01 -0.458675196724520D+00 -0.100140194649620D+00
- -0.222222220566492D-01 -0.101733871075085D+00  0.333333328366238D-01
-  0.432282067636144D+00 -0.333333328366239D-01  0.421611719914286D+00
- -0.252537672193339D+00 -0.222222220566494D-01  0.333333326710554D-01
- -0.614917605333938D-01  0.373624564546296D-01  0.223658967537568D+00
- -0.640119039356185D+00 -0.752739914611354D-01 -0.132314636326313D+01
- -0.506247868484496D+00 -0.462430200208400D+00  0.333333318432131D-01
-  0.363346162016265D-01  0.358930222095976D+01 -0.222222210632385D-01
-  0.572508014648484D-01  0.677919977704542D-01 -0.333333320087816D-01
-  0.121299511008576D+00  0.106633747113375D+00 -0.299869096331179D+00
- -0.101179714936515D+00 -0.222222212288071D-01 -0.427144745798903D-01
- -0.142334469816737D+01 -0.449792196759104D-01 -0.137963249224272D+00
-  0.190278356767316D+00  0.190533287378333D+00  0.333333326710555D-01
-  0.279235987014923D+00  0.111818503442273D+00  0.188873605277382D+00
-  0.882032362009730D-01 -0.333333323399186D-01 -0.222222232156285D-01
-  0.202359415990279D+00  0.991556334332403D-01  0.174401605585283D+00
- -0.622413115169871D+00 -0.122783155948873D+00  0.387736444514510D+01
- -0.439561613209801D-01 -0.398628697936860D+00  0.333333356512877D-01
- -0.556813366203218D+00  0.333333353201507D-01  0.313379615900435D-01
- -0.218000381052097D-01 -0.435690828934722D+00  0.279393143780639D+00
- -0.333333373069721D-01 -0.217548558024595D+00  0.498148717475002D+00
-  0.791541773607939D+00  0.488437639660613D+00 -0.333333369758352D-01
-  0.212059884048755D+00 -0.887326456031909D+00 -0.222222232156285D-01
- -0.222222252024500D-01 -0.333333339956032D-01  0.333333343267400D-01
- -0.475316329323345D+00 -0.127891404365381D+00 -0.385205216538220D+00
-  0.208157634282271D+00 -0.236206808836205D+00 -0.745863839216205D-01
-  0.953186414159333D-01  0.117799270295876D+00 -0.333333353201508D-01
-  0.333333333333294D-01  0.333333353201508D-01 -0.397364291297719D-08
- -0.333333333333293D-01 -0.133333345254262D+00 -0.333333373069721D-01
-  0.198682173317699D-08 -0.133333329359690D+00  0.133333345254262D+00
-  0.333333373069722D-01 -0.333333318432131D-01  0.397364302573422D-08
-  0.133333331346511D+00 -0.397364344900675D-08 -0.104083408558608D-15
-  0.333333318432132D-01 -0.100613961606655D-15 -0.222222223877863D-01
-  0.333333356512877D-01  0.333333356512877D-01  0.132454767119705D-08
- -0.222222225533548D-01 -0.264909528471455D-08  0.444444434510249D-01
- -0.888888862397862D-01 -0.333333369758352D-01 -0.222222210632385D-01
-  0.132454762262479D-08 -0.333333369758353D-01 -0.264909532851632D-08
- -0.888888875643339D-01  0.444444434510248D-01  0.177777773804120D+00
- -0.222222208976701D-01  0.529819046794777D-08  0.333333331677609D-01
- -0.222222232156285D-01 -0.222222232156286D-01 -0.888888968361676D-01
-  0.444444484180785D-01  0.333333330021924D-01 -0.222222252024500D-01
- -0.993410909522902D-09  0.132454780563812D-08 -0.333333320087816D-01
- -0.888888968361675D-01 -0.222222252024500D-01  0.444444484180786D-01
- -0.993410811944706D-09 -0.333333321743501D-01  0.264909565117488D-08
- -0.397364328247329D-08  0.177777793672335D+00  0.432282067636144D+00
- -0.972989646122233D-01 -0.630975789866793D+00 -0.456606822034675D+00
- -0.362065809857206D-01  0.898903966169104D+00 -0.362065757076357D-01
- -0.435690835639979D+00 -0.711111320076214D+00 -0.587668104723848D+01
-  0.853333307284147D+01 -0.289652202918234D+00  0.693889390390723D-17
-  0.177777773804120D+00 -0.132454780130131D-08 -0.607991422076996D+00
-  0.657982750580749D+00  0.498148717475002D+00 -0.248888923515252D+01
- -0.399242158399370D+01 -0.458675287404317D+00  0.257019978973971D+01
-  0.657982765756909D+00 -0.390740172969558D+00  0.422504659207567D+00
-  0.517129638668077D+01  0.853333359133688D+01 -0.138777878078145D-16
-  0.529819054080616D-08  0.177777793672335D+00 -0.614917605333938D-01
- -0.456606821252620D+00  0.117192297723900D+00  0.181032732787689D-01
- -0.312673776012863D+00  0.426458688680364D+00 -0.649075539161545D+00
-  0.123866616465194D+00 -0.543227144708209D+00  0.792422203869994D+00
- -0.119608355946705D+00 -0.362065757076357D-01  0.615409883907027D+01
- -0.133333329359690D+00 -0.331137001065990D-09 -0.331136753434214D-09
- -0.888888862397861D-01 -0.554060101558194D+01 -0.888888862397862D-01
-  0.133333329359690D+00 -0.574851001610695D+00  0.763849841666925D-02
- -0.100922711213615D+00  0.188095621628302D+00  0.884571439710093D+00
-  0.586531654136248D-01 -0.123736268849940D+01  0.212059884048755D+00
- -0.520242849768536D+00  0.190533305781179D+00 -0.543919396222164D+00
- -0.100463108713670D+01  0.266992593450113D+01 -0.328991394978985D+00
-  0.842589729979194D-01  0.657982750580749D+00  0.557923424239258D+01
- -0.390740171413865D+00  0.267668166711477D+01 -0.397364289216051D-08
- -0.264909526389787D-08  0.444444447755724D-01 -0.264909520708567D-08
-  0.666191481446713D+00  0.444444484180787D-01  0.397364281756740D-08
-  0.503683672350647D+00 -0.363820167217111D+01  0.238102879252563D+00
- -0.126903580806258D+00 -0.354672992799101D+00  0.383869239545548D+00
-  0.333333353201507D-01 -0.333333328366239D-01 -0.133333329359690D+00
-  0.133333345254262D+00 -0.397364289216051D-08  0.333333373069722D-01
-  0.397364288001745D-08  0.133333331346511D+00  0.333333323399185D-01
- -0.198682167940056D-08  0.693889390390723D-17 -0.138777878078145D-16
-  0.333333356512877D-01 -0.222222220566494D-01 -0.264909526389787D-08
- -0.888888862397861D-01  0.132454771283042D-08 -0.264909524524959D-08
- -0.888888875643340D-01 -0.333333369758353D-01 -0.222222213943755D-01
-  0.444444434510248D-01  0.177777773804120D+00  0.529819054080616D-08
- -0.222222232156285D-01  0.333333326710554D-01  0.444444484180787D-01
- -0.331137001065990D-09 -0.222222252024500D-01  0.444444484180785D-01
- -0.333333325054870D-01 -0.888888968361676D-01 -0.331136815884259D-09
-  0.132454779436242D-08 -0.132454780130131D-08  0.177777793672335D+00
- -0.839190733348003D-02  0.441355711178772D+00 -0.591832774382373D+00
- -0.279317123683047D+01 -0.525609909388123D+00 -0.226698852957554D-01
- -0.953705224939672D-02  0.104083408558608D-16 -0.225665543003955D+01
-  0.177777776453216D+00  0.871911861760401D+01 -0.132454757925671D-08
-  0.272435654551257D-02 -0.443739984173020D+00 -0.457213600979758D+00
- -0.598916672745566D+00 -0.289441763408416D-01  0.438352137286415D+00
- -0.533593171078113D+00 -0.448093927173964D+00 -0.104948748029310D+01
- -0.470002478590613D+00 -0.671342075114617D-01 -0.412458049977707D-01
- -0.396852593098610D+00 -0.238636911077804D+01  0.834754804931801D+01
-  0.208166817117217D-16  0.397364284011881D-08  0.177777768505930D+00
- -0.573534688255120D+00 -0.138673129235951D-01 -0.138937939913487D+01
- -0.447533177710095D+00  0.239334047445385D+00 -0.616646389781120D+00
-  0.441133231452402D+00 -0.322697363481113D+00  0.198682136888506D-08
- -0.425755261361222D-01 -0.953705224939674D-02 -0.428838411636122D+00
- -0.813630674767233D+00  0.549351006047848D+01  0.444444441132988D-01
-  0.444444441132987D-01  0.132454757925671D-08 -0.198682136715034D-08
- -0.908197188690829D-02  0.132454757969039D-08 -0.107545146789098D+00
-  0.445148904715848D+00 -0.497836238465570D+00  0.322339165741048D-02
-  0.125390198268767D-01 -0.891519347073615D+00  0.142395158340666D+00
- -0.326651184313329D+00 -0.443403734361606D+00  0.110679906707406D+00
-  0.436917870973906D+00 -0.394802044007915D+00 -0.279833859743167D-01
-  0.440794961714800D+00 -0.510625063094524D+00 -0.623730354371694D+00
- -0.580731862767787D+00 -0.450536751602349D+00 -0.107751946964488D+00
- -0.447848159061530D+00 -0.141196990514255D-01 -0.171486369430625D+00
- -0.412458049977706D-01  0.821489757818929D-01 -0.423005714530245D-01
- -0.888888849152387D-01  0.993410499260799D-09  0.623982315376076D+01
- -0.267438987615715D+01 -0.133333327372868D+00 -0.218103064542051D+01
-  0.993410726943256D-09  0.112841990205345D+00  0.133333327372868D+00
- -0.888888849152387D-01  0.176949754410537D+00 -0.440533263431293D+00
-  0.842383672412862D-01  0.818946081987355D-01  0.213634143603343D-01
- -0.110515044352643D+00  0.137965438182606D+00  0.141687577606259D-02
-  0.231828555571586D+00 -0.331136893946815D-09 -0.888888888888817D-01
-  0.445148904715744D+00  0.272435654551253D-02 -0.133333333333333D+00
- -0.556041579745157D+00 -0.266640709115832D+01  0.155865014859150D-01
-  0.469116579857731D-02  0.733548836824532D-02 -0.485835181012328D+00
- -0.237750795523795D+01  0.649825549440189D+01 -0.442562974127378D+00
-  0.617929344433443D-02  0.133333333333333D+00 -0.888888888888817D-01
- -0.331136880069027D-09  0.209600295531414D+00 -0.108675665129331D+00
- -0.101524591127919D+00 -0.111390256834994D+00  0.240195840421465D-01
- -0.135059588109032D-01  0.440794961714904D+00 -0.289441763408416D-01
- -0.943344832196886D+00  0.523507800595729D+01 -0.568830404374110D+00
- -0.106130784900325D+01 -0.132454753632230D-08 -0.198682135067046D-08
-  0.444444421264775D-01 -0.447670297459601D+00 -0.498437166842450D+00
- -0.254385366423233D-01 -0.652148102493521D+00  0.198682135327255D-08
- -0.132454758272615D-08  0.444444421264770D-01  0.126290478065154D+00
-  0.266097435608180D-02  0.729291041559547D-01  0.111707177869548D+00
- -0.526609359976580D+00 -0.354445003304978D-01  0.154324498092375D+00
- -0.333333330021924D-01 -0.222222217255125D-01 -0.333333328366240D-01
- -0.443739984173020D+00 -0.110543486873917D+00  0.322339165741053D-02
-  0.269940885432534D-01 -0.333333338300347D-01 -0.128214910492581D+01
-  0.445485154527261D+00 -0.596664203985485D+00 -0.222222227189232D-01
-  0.333333336644663D-01 -0.111542315514785D+00  0.114333848709054D+00
-  0.213161750611677D+00  0.469116579857731D-02  0.191353578160734D-01
-  0.513947556857219D-02  0.333333328366240D-01 -0.999765672352305D+00
- -0.138692005999766D+00 -0.442619598398164D+00 -0.456211977270992D+00
- -0.524951826234972D+00  0.382275547379827D+01  0.714815102087507D-02
-  0.446325914761386D+00  0.333333338300347D-01 -0.222222227189232D-01
-  0.333333336644662D-01 -0.222222217255125D-01 -0.333333330021925D-01
- -0.303965947487774D+00  0.161212431044461D+00  0.109968742260974D+00
- -0.327340992508068D-02 -0.108378540579299D+00  0.225959370342343D+00
- -0.152465638738923D+00  0.105257652959712D-01  0.113546557092860D+00
-  0.265052677126161D-01  0.197680146341723D+00 -0.134291359298861D-01
-  0.441040729827234D+00 -0.135059588109031D-01 -0.141196990514253D-01
- -0.448093927173964D+00 -0.538939504742134D-01 -0.609453081596340D+00
- -0.120733534337126D+01 -0.308480782070306D+00 -0.333333323399186D-01
- -0.333333321743501D-01 -0.222222207321016D-01  0.333333315120761D-01
- -0.538304145544366D+00  0.333333313465076D-01  0.364391119296002D+01
- -0.222222217255124D-01 -0.386425615540782D-01  0.652936564933775D-02
-  0.155004941299766D+00 -0.109380232016846D+00 -0.468313401420254D+00
- -0.222222217255125D-01  0.333333323399188D-01 -0.128208792393058D-01
- -0.951614331220735D+00 -0.278699191351080D-01  0.441218591429268D+00
- -0.266458092075852D-01 -0.537553772328668D+00 -0.333333313465078D-01
-  0.333333315120762D-01 -0.222222207321017D-01 -0.447683169308277D+00
- -0.333333321743502D-01  0.112645202076650D+00  0.103372970178638D+00
- -0.133333333333333D+00 -0.198682135067046D-08 -0.333333308498023D-01
-  0.333333333333293D-01 -0.333333328366240D-01 -0.333333323399186D-01
-  0.397364290777302D-08  0.198682136888506D-08  0.133333331346512D+00
-  0.104083408558608D-16 -0.133333327372868D+00  0.208166817117217D-16
- -0.888888888888817D-01 -0.222222217255125D-01 -0.132454753632230D-08
-  0.333333311809393D-01 -0.222222223877863D-01 -0.333333321743501D-01
- -0.264909525565793D-08  0.444444441132988D-01  0.993410499260799D-09
- -0.888888875643341D-01  0.177777776453216D+00  0.397364284011881D-08
- -0.331136893946815D-09  0.444444421264775D-01 -0.333333330021924D-01
- -0.222222202353963D-01 -0.222222217255124D-01  0.333333331677609D-01
-  0.444444421264770D-01  0.132454757969039D-08 -0.888888849152387D-01
- -0.331136895681539D-09 -0.132454757925671D-08  0.177777768505930D+00
- -0.528362521138210D+00  0.101949818929269D-01  0.445485154527261D+00
- -0.185608600045131D+01 -0.328236570410386D+01 -0.443760330952013D+00
- -0.338235754667383D+00 -0.610691814675820D+00 -0.447755657436466D+00
- -0.564495020766243D-01 -0.632309499430927D+00 -0.101896917183668D+01
- -0.908197188690837D-02 -0.185017763193124D+00  0.000000000000000D+00
-  0.177777776453216D+00  0.896072046879986D+01 -0.410740597368850D-01
- -0.269167391870933D-01 -0.397364274297429D-08  0.433491806108916D+00
- -0.620624085682157D+00  0.438534367288919D+00 -0.431530383045995D-01
- -0.193609989705100D+01 -0.276940814493164D-01 -0.537466421465317D-01
-  0.441040729827234D+00 -0.540057306705996D+00 -0.639506753416452D+00
- -0.447964240243795D+00 -0.211905337407854D+00 -0.287730245377608D+01
- -0.423005714530244D-01 -0.451971017914857D+00 -0.360580431632303D+00
- -0.157739944510681D+01 -0.341814756733895D+00  0.810594619814180D+01
-  0.346944695195361D-16  0.397364299450920D-08  0.177777771155025D+00
-  0.178328400984061D+00 -0.712507446267380D+00 -0.520790863322292D+00
-  0.445128557936854D+00  0.248449042136156D-02  0.433360944936985D+00
- -0.111542315514798D+00 -0.696011541078200D+00 -0.455397082779951D+00
-  0.114677075433105D+00 -0.162294619689708D+01 -0.818946399691242D-01
-  0.264909520361623D-08  0.259593484358831D+00  0.125390198268767D-01
- -0.126389996787540D+01 -0.410740597368852D-01 -0.443306082899599D+00
- -0.102850576752798D+00  0.444444441132988D-01  0.397364276118889D-08
- -0.169584800296108D+00  0.264909517065648D-08  0.444444484180786D-01
- -0.588209156380851D+00 -0.448807302800179D-01  0.559627481463460D+01
-  0.111791512814051D+00 -0.284282027667143D+00  0.307672907131627D+00
- -0.397364281756740D-08  0.946030325441512D-01 -0.397805118991864D-01
-  0.252443428995933D+00  0.357637243330130D-01 -0.490159308846521D+00
- -0.252305127527711D-01 -0.888888862397861D-01 -0.641289504746973D+00
- -0.599903907737236D+00  0.189619158396522D+00  0.436646656089571D+00
-  0.993410765107172D-09 -0.450354521599844D+00 -0.167256435812214D+00
-  0.197209212847882D+00  0.120171591672151D+00  0.440924648644968D+00
-  0.613705829237520D+01 -0.109380232016833D+00 -0.109801585605591D+00
-  0.133333329359690D+00  0.326651152542940D+00 -0.160971969531389D+01
- -0.157810215492483D-01  0.114470275257689D+00 -0.543135460814352D+00
-  0.213634143603343D-01 -0.722439809992053D+00 -0.431530383045993D-01
-  0.239693026130336D+00 -0.682416117806190D-01 -0.317308312573930D+01
- -0.133333329359690D+00 -0.450426985368523D-01  0.135992175075921D-01
-  0.993410762938768D-09 -0.305688713972547D+00 -0.888888862397862D-01
- -0.449214302459362D+00  0.403171782354059D-01  0.112726748009225D+00
-  0.324662978507306D+00 -0.248385539671400D+00  0.513947556857214D-02
-  0.795418797360703D-02  0.288427288044077D+00  0.665264933889497D+01
-  0.545874417758382D-01 -0.993410654084870D-09 -0.888888888888817D-01
-  0.115636181249949D-01  0.111678735348274D+00  0.121583491402136D+00
-  0.165865198300522D+00  0.133333333333333D+00  0.167497946370066D-01
- -0.626133403251292D+00 -0.298809484544066D+01 -0.443403734361502D+00
- -0.441699809129678D+00 -0.215663775112732D+01 -0.888888888888817D-01
-  0.101949818929269D-01 -0.133333333333333D+00 -0.993410693116148D-09
- -0.554793354415775D+00  0.446269290490600D+00 -0.385890715080935D+00
-  0.445128557936750D+00 -0.523531221770132D+00 -0.108543981390431D+00
- -0.108753644362499D+00  0.196319387445466D+00  0.203601689780326D-01
-  0.237254884789622D+00 -0.545875819262193D+00  0.440924648645072D+00
- -0.104469914003565D+00  0.113843681642892D+00  0.207095972250882D-01
- -0.131433371960119D+01 -0.447848159061634D+00 -0.637828255046463D+00
- -0.276940814493164D-01 -0.134291359298860D-01 -0.126883028256086D-01
-  0.444444427887508D-01 -0.521521037176130D+00 -0.134391418239721D+01
- -0.245454713305746D-01  0.508068411393213D+01 -0.132454772150403D-08
- -0.198682171236031D-08  0.198682158919494D-08 -0.132454780433708D-08
-  0.441205719580591D+00 -0.566894725583126D+00  0.444444427887510D-01
- -0.816675272366878D+00 -0.409098134003255D+00 -0.447342077482318D+00
-  0.192676159906908D+00 -0.172130108171705D+00 -0.383324628303984D+00
- -0.327340992508067D-02 -0.108624828110565D+00  0.301739119131575D-01
- -0.285614670122910D-01 -0.494926669083393D-01  0.113678240831760D+00
-  0.117800037430956D+00  0.389632393818373D+01  0.333333339956031D-01
-  0.795418797360692D-02 -0.222222232156285D-01  0.249094970075490D+00
-  0.333333369758353D-01 -0.706086211215758D+00  0.110679906707393D+00
-  0.333333343267400D-01  0.447189079759086D+00  0.102873542782501D+00
-  0.255425445075170D-01 -0.333333326710556D-01 -0.443760330952013D+00
- -0.333333323399187D-01 -0.222222212288072D-01 -0.570879745565031D+00
-  0.999053106263093D-02  0.248449042136162D-02  0.105990540041992D-01
- -0.889993113612541D+00 -0.112253479961204D+00  0.197398188672448D+00
- -0.143969325071020D+01 -0.222222252024500D-01  0.894703303701067D-02
- -0.333333356512878D-01  0.485268009997927D+00 -0.333333373069722D-01
- -0.473597921099791D+00 -0.222222232156286D-01  0.445582805989268D+00
- -0.154876981321704D-02  0.333333353201509D-01 -0.441567336806299D+00
- -0.408701994090165D+00 -0.328994572572039D+00  0.120045805898904D+00
-  0.110695538492487D+00  0.205601337586591D+00 -0.110430709408139D+00
- -0.311565321408727D-01  0.102528776150400D-01  0.113468577859692D+00
-  0.177815566877792D+00 -0.222222210632386D-01 -0.107969201008757D+00
- -0.948735918672710D-01 -0.352123354889295D-01  0.333333320087817D-01
- -0.526907330989735D-01 -0.503988683501664D+00 -0.157810215492483D-01
- -0.290502878429284D-01  0.267412077474137D+00  0.112841990205358D+00
- -0.126883028256084D-01  0.190938178976110D+00  0.333333318432133D-01
-  0.103965920180961D+00 -0.447964240243795D+00 -0.495004521309600D+00
- -0.333333328366238D-01 -0.728430888180678D+00 -0.333333326710553D-01
- -0.148842718871494D+01  0.652936564933772D-02 -0.222222210632387D-01
-  0.270464879219218D-01  0.439674586429401D+00  0.333333320087818D-01
-  0.441546811406550D+00 -0.333333318432133D-01  0.139558712905464D+00
- -0.586124936995116D-01 -0.222222220566493D-01 -0.594087098259974D+00
- -0.109577020145554D+00  0.151315461753946D+00 -0.142765642429987D-01
-  0.399535394178192D-01  0.357034272865687D+01 -0.109495474212965D+00
- -0.618914287528079D+00 -0.182874412046206D-01 -0.449101404108931D+00
- -0.352321697281419D+00  0.333333328366238D-01 -0.333333326710554D-01
- -0.222222220566493D-01  0.561941266377407D-02  0.112521670499716D+00
-  0.670257418131212D-01 -0.117188809175994D+00  0.333333338300347D-01
- -0.333333313465078D-01 -0.133333329359690D+00  0.397364276118889D-08
- -0.133333333333333D+00 -0.333333338300347D-01  0.133333331346512D+00
-  0.333333313465076D-01 -0.333333323399187D-01 -0.198682171236031D-08
-  0.333333328366239D-01 -0.333333328366238D-01  0.133333327372868D+00
- -0.198682136715034D-08  0.333333323399187D-01  0.000000000000000D+00
-  0.397364284532298D-08  0.346944695195361D-16 -0.222222228844916D-01
-  0.333333316776448D-01  0.993410762938768D-09  0.444444441132988D-01
- -0.888888888888817D-01 -0.222222227189232D-01  0.333333315120761D-01
- -0.888888875643341D-01 -0.222222212288072D-01 -0.132454780433708D-08
- -0.333333326710553D-01 -0.333333325054870D-01  0.993410726943256D-09
-  0.444444441132987D-01 -0.222222213943756D-01  0.177777776453216D+00
- -0.264909522790235D-08  0.397364299450920D-08  0.333333334988978D-01
- -0.222222205665332D-01 -0.888888862397862D-01  0.264909517065648D-08
- -0.993410693116148D-09  0.333333336644663D-01 -0.333333326710556D-01
- -0.222222207321016D-01 -0.993410680105722D-09  0.444444427887510D-01
- -0.222222220566493D-01 -0.888888849152387D-01 -0.222222222222177D-01
-  0.132454757925671D-08 -0.333333325054871D-01 -0.397364274297429D-08
-  0.444444427887511D-01  0.177777771155025D+00  0.422485814465950D+00
- -0.132871235255639D+00 -0.601005553500566D+00 -0.740021910269305D+00
- -0.571662177181292D+00 -0.159027968472305D+01 -0.397805118991864D-01
- -0.370150713715499D+01  0.445582805989268D+00 -0.103274321854587D+00
-  0.640874601758110D+00 -0.455527943951881D+00 -0.304824750067116D-02
- -0.148457511941618D+01 -0.104083408558608D-16 -0.543677612433218D+00
-  0.907879139780480D+01  0.177777793672335D+00 -0.529819029447542D-08
- -0.187729468953850D+00 -0.448304404853781D+00 -0.604680306940342D+00
-  0.447004138724485D+00  0.439674586429401D+00 -0.199787315205254D+01
- -0.593068777391102D+00 -0.126273667897476D+01 -0.935410791523777D-02
- -0.452242232799192D+00  0.100494623683734D+00 -0.258502117159351D-01
- -0.350767228716857D+01 -0.209524290845090D-01 -0.450426985368523D-01
- -0.751716760966762D+00 -0.215846045325601D+00 -0.217587649490657D+00
- -0.446137126074662D+00  0.798787526940135D+01  0.138777878078145D-16
-  0.397364334145389D-08  0.177777773804120D+00 -0.837458236556506D-01
- -0.466403074422917D+00  0.295153600169841D+00  0.264909519320788D-08
-  0.357637243330130D-01  0.682414925274277D-01  0.423393509089170D+00
-  0.444444427887510D-01 -0.794484770241047D+00  0.182017901402548D+00
- -0.397364276205625D-08 -0.174739295999527D+01  0.119371645469406D+00
- -0.426995959488972D+00 -0.113606620399953D+00 -0.110430709408152D+00
- -0.609473175304926D+00 -0.193726274871989D+01 -0.100140194649633D+00
-  0.554134104916203D+01  0.397364286787438D-08 -0.103274321854587D+00
-  0.440584484035087D+00 -0.596143335713188D+00  0.444444484180787D-01
-  0.264909523831069D-08  0.659106230920631D-01  0.221514821902995D+00
-  0.867497327839485D+00 -0.451795174034815D+00 -0.537344746414379D+00
- -0.551413060414139D+00 -0.111576986290084D+00 -0.230032058191152D-01
-  0.116617855392410D+00  0.882867625041896D-01 -0.735422312651024D+00
- -0.888888875643340D-01  0.993410662758487D-09  0.182445210601356D-01
- -0.612515068713534D+00 -0.798159623021895D+00  0.447139434539698D+00
- -0.109495474212953D+00  0.133333331346511D+00  0.127732025569903D+00
- -0.102507777530324D+01  0.112420636616587D+00 -0.747052732487824D-02
-  0.619199215292620D+01  0.490159189593330D+00 -0.624259825989338D+00
-  0.151182156813737D+00  0.135992175075921D-01 -0.441884750164278D+00
-  0.442751762814102D+00  0.232329354405699D+00 -0.935410791523768D-02
- -0.193082303347516D+00 -0.274289012090355D-01 -0.122783155948860D+00
- -0.384087402945276D+01  0.368893073942688D+00 -0.133333331346511D+00
- -0.208658209812566D-01 -0.142357862240514D+00 -0.613034025512484D-01
- -0.457297660600060D+00  0.993410930339583D-09  0.228093037924339D-01
- -0.888888875643340D-01  0.108542423680007D+00  0.339798587681474D-01
- -0.104656465004248D+00  0.212671748764936D+00 -0.443306082899495D+00
-  0.410685663318541D+00 -0.760977924913696D+00  0.113597394111626D+00
- -0.581085354842887D+00 -0.330049522000450D+01 -0.304824750067119D-02
-  0.440584484034983D+00 -0.625894919013121D+00 -0.442406868541082D+00
- -0.133333345254262D+00  0.447321552082465D+00  0.900126858006158D-01
-  0.894703303701078D-02 -0.888888968361677D-01  0.369215968608113D-01
- -0.275192199500324D-02 -0.132454767770226D-08 -0.192871929576077D+01
-  0.727792998802155D+00  0.678040208061888D+01  0.644576358799070D-02
- -0.237099986251077D+00 -0.445659253660774D+00  0.133333345254262D+00
- -0.888888968361676D-01 -0.132454748731636D-08  0.164627181939929D+00
-  0.121843124205931D+00 -0.182874412046206D-01  0.114253021213433D+00
- -0.111327865763674D+00 -0.168526765236889D+01 -0.470523358817232D+00
- -0.782384611219100D+00  0.442751762814205D+00 -0.649221970872385D+00
- -0.449214302459466D+00  0.117006482791807D-01  0.439787484779936D+00
-  0.287613796039810D+00  0.444444434510249D-01 -0.899106875159322D-01
-  0.495293161082729D+01 -0.132454779089297D-08  0.198682168633946D-08
- -0.258502117159351D-01 -0.225689713567743D-01 -0.377780640437993D+00
- -0.198682164904290D-08 -0.171542547690459D+01 -0.132454776270371D-08
-  0.444444434510248D-01 -0.419017766133645D-02 -0.268359278487962D+00
- -0.445429714387109D+00 -0.400743990785756D+00  0.117565757217943D+00
- -0.636877871818951D-01  0.266872514082267D-01  0.111791512814038D+00
-  0.240485936807356D+00  0.293016170019928D+00 -0.222222232156286D-01
- -0.300130110480275D-01  0.333333325054870D-01 -0.333333356512878D-01
- -0.104010696364807D+00 -0.828112727913594D-01 -0.850820589600184D+00
- -0.448304404853781D+00 -0.333333353201509D-01  0.211617518647313D+00
- -0.222222222222177D-01  0.772044838510284D-01  0.149012810078943D+00
- -0.111526683729691D+00 -0.156889319241585D+01 -0.333333328366239D-01
- -0.230032058191153D-01 -0.261980023915856D-01 -0.275192199500324D-02
-  0.437093714854052D+00  0.236583633371361D-01  0.459983605981262D-03
-  0.394332951259718D+01 -0.154876981321705D-02 -0.799255681345571D+00
- -0.399117726364872D+00  0.979646830461823D+00 -0.781467058067266D+00
- -0.667997094077307D+00 -0.724557120783564D-02  0.443229635227990D+00
- -0.105604366829781D+00  0.181441608455010D+00  0.333333373069723D-01
- -0.222222252024500D-01 -0.227105053215660D-01  0.333333369758354D-01
- -0.154175553512321D+00  0.333333308498025D-01 -0.440227377727670D+00
-  0.243087652802024D-01 -0.222222202353963D-01 -0.333333311809394D-01
- -0.483520856626707D+00  0.832523483521056D-01  0.123275616352739D+00
- -0.673897077521781D-01  0.315100456126253D+00 -0.222222213943756D-01
- -0.285090676336226D-01  0.152326832261071D+00  0.333333325054870D-01
-  0.561941266377408D-02  0.655319019815345D-03  0.208701912122811D+00
-  0.333333323399186D-01 -0.648587058059023D+00 -0.429898522842444D+00
-  0.238730315711182D+00  0.112726748009238D+00  0.110894356458517D+00
- -0.208658209812566D-01 -0.109700551722488D+00 -0.677435963248478D-01
-  0.158597436349001D+00 -0.108571556086114D+00 -0.192779267093348D+01
- -0.220913046416283D-01 -0.419017766133639D-02 -0.446137126074662D+00
-  0.443459174501759D+00 -0.333333323399184D-01 -0.333333333333295D-01
-  0.333333325054869D-01 -0.222222213943754D-01  0.431591228288704D+00
-  0.313379615900435D-01 -0.878937165971934D+00 -0.333333331677610D-01
- -0.699256313464070D+00  0.115964131530725D+00 -0.222222223877864D-01
- -0.224759061020245D+00 -0.113679798542184D+00 -0.175331380647551D+00
- -0.771521520634547D-02  0.107296721658811D+00 -0.173000857255594D-01
- -0.612623531436383D-01 -0.380485265687643D-01 -0.198710841909207D+00
- -0.454330726844565D+00  0.110693284098573D+00  0.352333715413083D+01
-  0.227057384011680D-01  0.333333333333294D-01 -0.333333331677609D-01
- -0.222222223877863D-01 -0.333333318432131D-01  0.333333373069722D-01
- -0.333333373069722D-01  0.333333318432133D-01 -0.133333331346511D+00
-  0.397364337961781D-08  0.397364286787438D-08 -0.198682164904290D-08
- -0.133333345254262D+00  0.333333353201509D-01 -0.333333333333295D-01
-  0.133333329359690D+00 -0.333333353201509D-01  0.133333345254262D+00
- -0.397364281756740D-08  0.333333333333293D-01 -0.104083408558608D-16
-  0.138777878078145D-16  0.333333321743500D-01 -0.222222252024500D-01
-  0.333333320087817D-01 -0.222222252024500D-01  0.993410930339583D-09
-  0.444444484180787D-01 -0.888888968361677D-01 -0.132454776270371D-08
- -0.264909559913318D-08 -0.333333331677610D-01 -0.222222232156286D-01
- -0.222222232156286D-01  0.444444484180786D-01  0.993410765107172D-09
- -0.333333330021924D-01 -0.888888968361676D-01  0.177777793672335D+00
-  0.397364334145389D-08 -0.222222208976700D-01  0.333333369758353D-01
-  0.333333369758353D-01 -0.222222210632386D-01 -0.888888875643340D-01
-  0.444444434510248D-01  0.264909523831069D-08 -0.132454767770226D-08
- -0.333333356512878D-01 -0.222222223877864D-01  0.444444434510248D-01
- -0.333333356512878D-01 -0.222222225533548D-01  0.264909520361623D-08
- -0.888888862397861D-01 -0.132454758099143D-08 -0.529819029447542D-08
-  0.177777773804120D+00 -0.465495379799697D+00  0.421611719914286D+00
- -0.167160417078411D+00 -0.150035824284585D+00 -0.444253527547785D+00
- -0.113606620399953D+00  0.673959077841869D+00 -0.818531714928694D+00
- -0.217492235871785D+01 -0.340067146437765D+01 -0.112935101351766D+01
- -0.115177415817183D+00 -0.636768167580202D+00  0.104083408558608D-16
- -0.459120686018819D+00  0.177777771155025D+00  0.845362238056053D+01
-  0.437093714854052D+00 -0.235113246115256D+00 -0.155077813172281D+01
- -0.397364278460766D-08 -0.426547603361471D+00  0.488437639660613D+00
- -0.667548964057775D+00  0.431591228288704D+00 -0.943848988194486D+00
-  0.209837038193443D+00 -0.209089248343629D+00 -0.821573701055634D+00
-  0.410989824253137D-01 -0.421316472603911D+00  0.272642559097744D+00
- -0.157141943170058D+01  0.186752701094924D+00 -0.441749454349066D+00
- -0.274289012090355D-01  0.980854309694366D+00 -0.406749746186058D+01
-  0.861304428456263D+01 -0.693889390390723D-17  0.397364285920077D-08
-  0.177777776453216D+00  0.122082027572571D+00 -0.467277168974581D+00
- -0.752739914611353D-01  0.268208945950447D+00 -0.619969998886609D+00
-  0.659106230920631D-01  0.426458688680468D+00 -0.522747230618522D+00
- -0.581353797037808D+00  0.193082334620951D+00 -0.982451342669088D+00
-  0.429768202870049D+00 -0.583398362992277D-02 -0.163014383605920D+00
- -0.150035824284585D+00  0.217369197773248D+00 -0.772498794325739D+00
- -0.105604366829794D+00  0.444444427887510D-01  0.488408605551785D+01
- -0.225615119361306D+01  0.198682135413991D-08 -0.198682136715034D-08
-  0.132454758879769D-08 -0.700644971872278D-01  0.444444427887509D-01
-  0.132454757925671D-08 -0.109483018009204D+01 -0.249639288467914D+00
- -0.467212294230830D+00  0.123146462569448D+00  0.208157634282271D+00
- -0.113679798542171D+00  0.151891720848962D+00 -0.888888888888817D-01
- -0.746474730326730D+00  0.197876302385088D+00  0.993410801536365D-09
-  0.684924739571833D+01  0.503683672350544D+00 -0.491815625229990D+00
- -0.602264154173151D+00  0.133333333333333D+00 -0.142879611438248D+01
-  0.467572416284853D+00  0.300899550608779D+00  0.127563457241375D+01
-  0.901878775623544D-01  0.400690828037192D-01 -0.400451249228150D+00
-  0.537344777687814D+00 -0.613034025512484D-01  0.994390662733181D-01
-  0.272642559097744D+00 -0.440513799530385D+00 -0.387395925964941D+01
- -0.213933290800523D+00 -0.133333333333333D+00  0.993410618956719D-09
- -0.888888888888817D-01  0.118211525857384D+00  0.705844463029699D-01
- -0.101733871075072D+00  0.407000606045510D+00  0.260766897522654D+00
-  0.459983605981151D-03 -0.924308788445705D+00 -0.115177415817183D+00
-  0.429768202869945D+00 -0.133333327372868D+00 -0.344679869246664D+00
- -0.888888849152386D-01  0.539401934653019D-01 -0.993410792862748D-09
- -0.102466871818559D+01 -0.451795174034711D+00 -0.734989975475747D+00
-  0.448661511161094D+00 -0.320191936202916D+00 -0.340983685588854D+01
-  0.659015501126883D+01 -0.140516714601046D+00 -0.175979197391937D+01
-  0.133333327372868D+00 -0.976950208849329D-01 -0.888888849152386D-01
- -0.993410671432104D-09  0.953712127513820D+00 -0.130208378238858D+00
- -0.497319526167231D+00  0.109674369708374D+00  0.444444441132987D-01
- -0.217964692929497D+01 -0.380485265687643D-01  0.434558162044302D+00
- -0.127891404365394D+00  0.335889267456595D+00 -0.779525197645250D+00
- -0.294167872203906D+00 -0.132454756190947D-08  0.514317820273781D+01
-  0.428671228359393D-01  0.198682137408923D-08  0.123443380141500D+00
-  0.467572416284957D+00 -0.175587455299397D+00  0.697644979440042D-02
-  0.113650666136076D+00  0.668521718157762D-02 -0.569629328009883D-01
- -0.955089664396135D+00  0.689094112360043D-01 -0.457297660600164D+00
-  0.410989824253137D-01 -0.164922168597229D+01 -0.198682133245587D-08
- -0.110153356441309D+00 -0.132454753285285D-08  0.444444441132987D-01
- -0.432886848033724D+00 -0.318971922184084D-01  0.120488351147119D+00
-  0.243087652802025D-01  0.232215688418520D+00 -0.666546418393240D-01
-  0.310524020544484D+00 -0.333333313465078D-01  0.363346162016265D-01
-  0.247590880397135D-01 -0.459120686018819D+00  0.116617855392397D+00
- -0.222222207321017D-01 -0.976950208849333D-01 -0.100922711213628D+00
- -0.333333315120762D-01  0.952304549269665D-01 -0.440122050148948D+00
-  0.234402240573638D+00 -0.120697657824798D+01 -0.700644971872276D-01
- -0.989466058694387D-01 -0.857577418186016D+00  0.421676594658038D+00
- -0.124006895391490D+01  0.362067815898589D-01 -0.784577801677580D+00
- -0.222222217255124D-01  0.391569362721533D+00 -0.333333323399185D-01
- -0.441825196478525D+00  0.333333321743500D-01  0.333333321743501D-01
-  0.333333323399185D-01  0.775110016201851D+00 -0.222222217255124D-01
- -0.148252057065068D+00 -0.797217454530976D+00 -0.233093339233504D+00
-  0.353642999552571D+01 -0.193364189678205D-01 -0.522538370777019D+00
-  0.333333313465079D-01 -0.222222207321017D-01 -0.333333315120763D-01
- -0.660354461264399D-01 -0.257250828711194D+00 -0.222222217255124D-01
-  0.283520883646175D+00 -0.215371225596739D+01  0.287949882874121D+00
- -0.771521520634554D-02 -0.745863839216205D-01 -0.126903580806245D+00
-  0.145237712551227D+00 -0.105169691019144D+00  0.333333330021924D-01
- -0.333333328366239D-01 -0.111528938123631D+00  0.448375089358379D+00
-  0.689094112360044D-01 -0.242175939655010D-01  0.943308178567973D-01
-  0.173855615721540D+00 -0.764522726898127D+00  0.245046561832728D+00
-  0.108542423680020D+00  0.901878775623541D-01  0.456002040855144D+00
- -0.831553420414389D+00 -0.404415999499651D+00 -0.421316472603911D+00
-  0.333333328366240D-01 -0.333333338300347D-01  0.333333330021924D-01
- -0.222222227189232D-01  0.393023667075697D+01 -0.333333336644662D-01
- -0.222222217255125D-01  0.271513862649779D-01  0.243680364608658D+00
- -0.421592232252939D-01 -0.106493517013090D+00  0.354046797144643D+00
- -0.476479701171324D+00  0.365506166772837D-01  0.333333338300347D-01
- -0.333333336644663D-01 -0.222222227189231D-01 -0.333333323399186D-01
-  0.333333328366238D-01  0.333333323399186D-01 -0.333333328366239D-01
- -0.133333333333333D+00 -0.198682133245587D-08 -0.333333338300347D-01
-  0.198682135413991D-08 -0.133333327372868D+00 -0.333333313465078D-01
-  0.333333338300347D-01  0.397364286613966D-08  0.133333329359690D+00
-  0.333333313465079D-01 -0.397364276205625D-08  0.104083408558608D-16
-  0.133333331346511D+00 -0.693889390390723D-17  0.333333326710555D-01
- -0.222222220566492D-01 -0.222222222222177D-01  0.333333325054870D-01
-  0.993410618956719D-09 -0.132454753285285D-08 -0.888888849152386D-01
- -0.333333336644662D-01  0.444444427887510D-01 -0.222222207321017D-01
- -0.333333334988978D-01 -0.264909521749401D-08  0.444444427887510D-01
- -0.222222205665333D-01 -0.888888862397862D-01  0.177777771155025D+00
-  0.993410662758487D-09  0.397364285920077D-08 -0.222222212288071D-01
-  0.333333326710554D-01 -0.222222213943756D-01  0.333333325054870D-01
- -0.888888888888817D-01  0.444444441132987D-01 -0.333333315120762D-01
- -0.993410792862748D-09  0.132454758879769D-08 -0.222222227189232D-01
- -0.222222228844916D-01  0.444444441132987D-01 -0.333333316776447D-01
-  0.264909519320788D-08 -0.888888875643340D-01 -0.993410631533465D-09
- -0.397364278460766D-08  0.177777776453216D+00  0.421676594658038D+00
- -0.662250650773103D+00 -0.462430200208400D+00  0.763849841666923D-02
-  0.438201887626722D+00 -0.242251207754881D+00 -0.489562546752241D+01
- -0.163014383605920D+00 -0.177120409881612D+01 -0.591350376990207D+00
-  0.734875833281562D+01 -0.938450524025054D+00  0.346944695195361D-17
-  0.177777771155025D+00 -0.132454756537892D-08 -0.626544600123806D+00
-  0.448375089358379D+00  0.752500442065980D+00 -0.266188277230915D+01
- -0.560418837829057D+00  0.234060123103755D+01  0.666191481446713D+00
- -0.319416622956867D+01  0.300899550608779D+00 -0.385205216538220D+00
-  0.566428971422358D+01  0.971790832897837D+01 -0.208166817117217D-16
-  0.397364275164791D-08  0.177777779102311D+00  0.121299511008563D+00
-  0.586531654136248D-01 -0.109350662524136D+01 -0.148252057065068D+00
- -0.383869287463967D+00 -0.123884207624154D+01 -0.637604448659032D+00
- -0.852733399208662D+00 -0.467212294230726D+00  0.533123338373505D+01
-  0.366350518111745D+00 -0.538116965370507D+00  0.215534078784816D+00
- -0.242251207754881D+00 -0.888888849152385D-01 -0.331136979815627D-09
- -0.133333327372868D+00 -0.358544571119687D+01 -0.589677993996361D+00
-  0.133333327372868D+00 -0.888888849152385D-01 -0.331136769046725D-09
- -0.197511015845630D+01 -0.421592232252941D-01  0.265541351310237D+00
-  0.313343868038362D+01 -0.884571487628512D+00 -0.354672992799101D+00
-  0.412409187717544D+00  0.640209977981859D+01 -0.817027401541271D+00
- -0.581717373277501D+00 -0.440513799530489D+00  0.752500442065980D+00
-  0.953186414159463D-01  0.169562572984276D+01 -0.198682138623230D-08
- -0.132454760657860D-08  0.444444447755726D-01  0.919200993113690D+00
- -0.104426578163011D+01  0.198682131857808D-08 -0.132454755150113D-08
-  0.444444447755724D-01  0.333333328366240D-01 -0.333333323399185D-01
- -0.198682138623230D-08 -0.133333327372868D+00  0.333333343267400D-01
-  0.397364281756740D-08  0.133333329359690D+00  0.133333333333333D+00
- -0.198682136715034D-08  0.333333318432131D-01  0.346944695195361D-17
- -0.208166817117217D-16  0.333333330021924D-01 -0.222222217255124D-01
- -0.132454760657860D-08 -0.888888849152385D-01 -0.333333339956032D-01
- -0.264909520708567D-08 -0.888888862397862D-01  0.993410801536365D-09
-  0.444444427887509D-01 -0.222222210632385D-01  0.177777771155025D+00
-  0.397364275164791D-08 -0.222222217255125D-01  0.333333321743501D-01
-  0.444444447755726D-01 -0.331136979815627D-09 -0.222222232156285D-01
-  0.444444447755724D-01 -0.331136753434214D-09 -0.888888888888817D-01
-  0.132454757925671D-08 -0.333333320087816D-01 -0.132454756537892D-08
-  0.177777779102311D+00  0.446325914761386D+00  0.617929344433452D-02
- -0.596594848343733D+00 -0.529112894368343D+00 -0.254785219159148D+01
-  0.225331801734071D-01  0.864668704510606D+01  0.583647834446769D-01
- -0.138777878078145D-16  0.177777779102311D+00 -0.132454758619560D-08
- -0.541714840462038D+00 -0.101627552876491D-01  0.441218591429268D+00
- -0.822492338847048D+00 -0.243123630378323D+01 -0.254385366423234D-01
- -0.702303904519146D-01  0.841997962180304D+01  0.208166817117217D-16
-  0.132454763476786D-08  0.177777768505929D+00 -0.499771964956776D+00
-  0.714815102087513D-02  0.193774636348145D+00  0.446269290490704D+00
- -0.442562974127482D+00 -0.112253479961217D+00 -0.198682138102813D-08
- -0.568229499854550D+00 -0.117335433589129D+01  0.225400432160435D-01
- -0.768763402192321D+00  0.544838640276752D+01  0.998234640693892D-01
-  0.225331801734071D-01  0.198682138016076D-08  0.444444447755726D-01
-  0.132454758966505D-08 -0.447065877856629D+00  0.444444447755725D-01
- -0.271477251616823D-01  0.132454760701228D-08 -0.287244982753939D+00
-  0.441205719580487D+00 -0.109577020145541D+00 -0.200234472746568D+00
- -0.511873336124127D+00  0.135935160581162D+00 -0.580831485684672D+00
- -0.447670297459497D+00 -0.374039535843715D-01 -0.128208792393059D-01
- -0.865628005510519D-02  0.478589784924377D-02  0.110986625621414D+00
- -0.101627552876492D-01  0.628494676387977D+01 -0.260340485763182D+01
- -0.133333327372868D+00  0.331136705295637D-09 -0.888888849152385D-01
- -0.228350032512477D+01  0.133333327372868D+00  0.331137121195590D-09
- -0.888888849152386D-01 -0.333333313465078D-01  0.198682138016076D-08
-  0.333333338300347D-01  0.198682135327255D-08 -0.133333327372868D+00
-  0.133333333333333D+00 -0.138777878078145D-16  0.208166817117217D-16
-  0.333333315120762D-01  0.444444447755726D-01 -0.222222227189232D-01
- -0.132454758272615D-08  0.331136705295637D-09 -0.888888888888817D-01
-  0.177777779102311D+00  0.132454763476786D-08 -0.222222207321017D-01
-  0.132454758966505D-08  0.333333336644662D-01  0.444444421264770D-01
- -0.888888849152385D-01 -0.331136880069027D-09 -0.132454758619560D-08
-  0.177777768505929D+00 -0.472579608214528D+00 -0.267847917767194D+01
-  0.447189079759086D+00 -0.442619598398164D+00  0.167497946370065D-01
-  0.860509051143985D-01 -0.916499412636439D+00 -0.598353249383237D+00
- -0.198421780750003D+00  0.225400432160435D-01  0.887588054371892D+01
-  0.411740668887582D+00 -0.242861286636753D-16  0.177777779102311D+00
- -0.397364275685208D-08  0.441546811406550D+00 -0.495786960909471D+00
- -0.245454713305745D-01 -0.610454673532500D+00 -0.104336246372075D+01
- -0.208824700494918D+01 -0.104872636581573D-01 -0.865628005510512D-02
- -0.447683169308277D+00 -0.275293385990458D+01 -0.765744926934174D-01
-  0.819078612365945D+01  0.346944695195361D-17  0.132454779783187D-08
-  0.177777771155025D+00 -0.657568492998381D+00 -0.123995377205703D+01
-  0.109968742260987D+00 -0.441699809129782D+00  0.999053106263087D-02
- -0.110986673314291D+00  0.447321552082569D+00  0.229960364173811D+00
- -0.271477251616823D-01  0.352966113425460D+00 -0.111175278041583D+01
-  0.860509051143985D-01  0.556390140020443D+01  0.397364276465834D-08
-  0.264909516545231D-08  0.444444447755726D-01  0.264909517282488D-08
- -0.417444747497689D+00  0.444444484180785D-01  0.865615899948125D-01
-  0.107787450611571D+00 -0.397364273430068D-08 -0.111526683729704D+00
-  0.174735931794518D+00 -0.668998442821260D-01 -0.452299279308866D+00
- -0.142765642429986D-01 -0.447342077482214D+00 -0.310007119026672D+00
-  0.172120903307989D+00 -0.680775911920702D+00 -0.888888862397864D-01
- -0.440771799356953D+00 -0.405385627764547D-01  0.478589784924377D-02
-  0.616943168323198D+01  0.112645202076637D+00 -0.104872636581572D-01
-  0.331136900885709D-09  0.287244935061061D+00  0.439787484779832D+00
- -0.300157800461501D+01  0.133333329359690D+00 -0.972826267835064D-02
- -0.178924977406816D+01 -0.133333329359690D+00  0.121715849496206D+00
-  0.331136708331403D-09 -0.109700551722475D+00  0.542917674032530D-02
- -0.252442892293384D-01 -0.888888862397863D-01  0.333333343267400D-01
- -0.333333318432133D-01  0.133333333333333D+00  0.333333323399188D-01
-  0.397364276465834D-08 -0.133333329359690D+00  0.198682158919494D-08
- -0.198682138102813D-08  0.333333328366240D-01  0.133333327372868D+00
- -0.242861286636753D-16  0.346944695195361D-17 -0.222222232156285D-01
-  0.333333320087818D-01  0.331136708331403D-09 -0.888888888888817D-01
-  0.444444447755726D-01 -0.333333321743502D-01 -0.132454772150403D-08
-  0.444444447755725D-01 -0.222222217255125D-01  0.331137121195590D-09
-  0.177777779102311D+00  0.132454779783187D-08  0.333333339956031D-01
- -0.222222210632387D-01 -0.888888862397863D-01  0.264909517282488D-08
- -0.993410654084870D-09 -0.222222217255125D-01  0.444444427887508D-01
-  0.132454760701228D-08 -0.333333330021925D-01 -0.888888849152386D-01
- -0.397364275685208D-08  0.177777771155025D+00  0.443229635227990D+00
- -0.714344921747580D+00  0.865615899948125D-01 -0.367410401003476D+00
- -0.141074960602741D+01  0.181037850711970D+00  0.510830388291555D+00
-  0.644576358799080D-02 -0.441567336806299D+00 -0.282221995614638D+01
-  0.911509349084898D+01  0.105288125472325D+01 -0.312250225675825D-16
-  0.177777793672335D+00 -0.529819034304768D-08 -0.398669620390239D+00
-  0.443459174501759D+00 -0.449101404108932D+00 -0.119883807046724D-01
- -0.143368544226160D+01 -0.330778683070715D+01 -0.972826267835064D-02
- -0.225689713567743D-01 -0.127128130082360D+01 -0.737672046456960D+00
- -0.868669971720295D-01  0.795157317704586D+01  0.693889390390723D-17
-  0.132454778742352D-08  0.177777773804120D+00  0.266307601495131D+00
- -0.668998442821260D-01 -0.724557120783548D-02  0.448661511161198D+00
-  0.252441699764811D-01 -0.130729683234127D+01 -0.445659253660878D+00
- -0.287141508685356D+00  0.110695538492500D+00 -0.798307336638528D+00
-  0.733797810764755D+00  0.264909518626899D-08  0.569238274555254D+01
- -0.176631398537575D+01  0.444444421264772D-01 -0.397364277593404D-08
-  0.181037850711970D+00  0.397364263802352D-08  0.444444484180787D-01
-  0.196174077322278D+00 -0.989466058694517D-01  0.264909508825711D-08
-  0.101488624026015D+01  0.159477716686015D+00 -0.700103019230944D+00
- -0.101080273113470D+00 -0.418533052615189D+00  0.112521670499703D+00
- -0.331676730854859D+00 -0.173000857255596D-01  0.452299160056009D+00
-  0.542917674032529D-02  0.434558162044199D+00 -0.150598013314416D-01
- -0.888888875643342D-01  0.331136999764947D-09  0.604095048139873D+01
- -0.119883807046724D-01 -0.829566628875414D+00 -0.445429714387005D+00
-  0.989310918339163D-01  0.213287537409349D+00  0.133333331346512D+00
- -0.371082981592891D+01 -0.133333331346512D+00  0.331136981550351D-09
- -0.965314676382341D+00  0.204775001882812D-01 -0.888888875643342D-01
- -0.111528938123618D+00  0.223641051343949D-01 -0.251689993257859D+00
- -0.333333323399184D-01  0.333333373069723D-01  0.397364263802352D-08
-  0.333333353201509D-01 -0.133333331346512D+00  0.133333329359690D+00
- -0.397364273430068D-08  0.133333345254262D+00  0.333333328366238D-01
-  0.198682168633946D-08 -0.312250225675825D-16  0.693889390390723D-17
-  0.333333325054869D-01 -0.222222252024500D-01  0.331136981550351D-09
-  0.444444484180787D-01 -0.222222232156286D-01  0.331136900885709D-09
-  0.444444484180785D-01 -0.132454779089297D-08 -0.333333326710554D-01
- -0.888888968361676D-01  0.177777793672335D+00  0.132454778742352D-08
- -0.222222213943754D-01  0.333333369758354D-01  0.264909508825711D-08
- -0.888888875643342D-01 -0.333333356512878D-01 -0.888888862397864D-01
-  0.264909516545231D-08  0.444444434510249D-01 -0.222222220566493D-01
- -0.132454748731636D-08 -0.529819034304768D-08  0.177777773804120D+00
-  0.391569362721533D+00 -0.302143956006100D+00  0.196174077322278D+00
- -0.140516714601046D+00 -0.223468553841980D+01  0.208147062815317D+00
- -0.867955784948547D+00  0.155540953755372D+01 -0.440227377727670D+00
- -0.302441233175445D+01  0.934996457026522D+01  0.175113073086701D+01
- -0.104083408558608D-16  0.177777768505930D+00 -0.397364275685208D-08
-  0.456002040855144D+00 -0.282088881226647D+00 -0.109933873042145D+00
- -0.391375078396917D+00 -0.144020781313448D+01  0.204775001882812D-01
- -0.421488645506229D+01 -0.454330726844565D+00 -0.912491073345432D+00
-  0.668521718157752D-02 -0.357825805804141D+00  0.771670209982417D+01
-  0.104083408558608D-16  0.132454761568590D-08  0.177777776453216D+00
- -0.233093339233504D+00 -0.155404665471467D+01 -0.497319526167335D+00
- -0.101080273113470D+00  0.251690040846677D+00  0.366350518111849D+00
- -0.484949293369797D+00  0.310627579105227D+00  0.787937978168768D+00
- -0.956513286726496D+00  0.123275616352752D+00 -0.280862518325856D+01
-  0.564401062149508D+01  0.198682140271217D-08  0.208147062815317D+00
-  0.444444421264773D-01  0.132454761525222D-08  0.202910680578917D+01
-  0.211663910041919D+00 -0.198682140878370D-08  0.444444421264771D-01
-  0.132454760701228D-08 -0.402782403039049D+00  0.271513862649781D-01
-  0.412409187717440D+00 -0.429062217988266D+00  0.700103066819763D+00
- -0.658752058086655D+00 -0.936458264928946D+00  0.223641051343949D-01
-  0.110693284098561D+00  0.608932287913121D+01  0.250080969154289D+00
- -0.109933873042145D+00 -0.432886848033620D+00 -0.475540979920920D+01
- -0.133333333333333D+00  0.331136805909599D-09 -0.888888888888817D-01
- -0.564155613551159D+00 -0.100124906059655D+00  0.133333333333333D+00
-  0.331137001499671D-09 -0.888888888888817D-01 -0.333333328366239D-01
-  0.333333323399185D-01 -0.133333333333333D+00  0.198682140271217D-08
-  0.198682137408923D-08  0.133333331346512D+00 -0.397364277593404D-08
-  0.333333308498025D-01  0.333333333333294D-01  0.133333327372868D+00
- -0.104083408558608D-16  0.104083408558608D-16  0.333333330021924D-01
- -0.222222217255124D-01  0.331136805909599D-09  0.444444421264773D-01
- -0.132454756190947D-08  0.331136999764947D-09  0.444444421264772D-01
- -0.222222202353963D-01 -0.333333331677609D-01 -0.888888849152386D-01
-  0.177777768505930D+00  0.132454761568590D-08 -0.222222217255124D-01
-  0.333333321743500D-01 -0.888888888888817D-01  0.132454761525222D-08
-  0.444444441132987D-01 -0.888888875643342D-01 -0.333333311809394D-01
-  0.264909518626899D-08 -0.222222223877863D-01 -0.993410671432104D-09
- -0.397364275685208D-08  0.177777776453216D+00 -0.110321728332459D+01
- -0.522538370777019D+00 -0.215573393077722D+01 -0.589677993996361D+00
- -0.309987537831519D+01  0.211663910041919D+00  0.689612190535187D+01
-  0.108327663373558D+01  0.138777878078145D-16  0.177777768505929D+00
- -0.132454757231781D-08 -0.476479701171324D+00 -0.104733024767949D+01
-  0.919200993113690D+00  0.385445998789541D+00 -0.564155613551159D+00
- -0.522910709016401D+01  0.599594204746372D+01  0.101705447548023D+02
-  0.589805981832114D-16  0.132454761568590D-08  0.177777779102311D+00
-  0.333333313465079D-01  0.333333338300347D-01  0.133333327372868D+00
-  0.198682131857808D-08 -0.198682140878370D-08  0.133333333333333D+00
-  0.138777878078145D-16  0.589805981832114D-16 -0.222222207321017D-01
- -0.333333336644663D-01 -0.888888849152385D-01 -0.132454755150113D-08
-  0.444444421264771D-01  0.331137001499671D-09  0.177777768505929D+00
-  0.132454761568590D-08 -0.333333315120763D-01 -0.222222227189231D-01
- -0.331136769046725D-09  0.444444447755724D-01  0.132454760701228D-08
- -0.888888888888817D-01 -0.132454757231781D-08  0.177777779102311D+00
- -0.760510245892757D-03 -0.876950243359387D-03 -0.121011089821054D-02
- -0.160821634524655D-02 -0.186599867371521D-02 -0.148122181775722D-02
- -0.267369715804173D-02 -0.230930931813896D-02  0.144419117506858D-18
- -0.249874719440019D-19 -0.588650611991160D-02 -0.182961135922495D-01
- -0.448769416575526D-02 -0.197075628143890D-01 -0.125782871906501D-01
- -0.249521516592609D-01 -0.829831152674484D-02 -0.258502178057032D-01
- -0.711507675693612D-18  0.457397791517322D-18 -0.816539761153146D-18
- -0.162593206391327D-01 -0.875794297087532D-01 -0.284836734534801D-01
- -0.888537242128359D-01 -0.356192625259522D-01 -0.109429683009165D+00
- -0.418486337742150D-02 -0.109188847406098D+00 -0.162630325872826D-18
-  0.123327997120226D-17  0.275116301268197D-17  0.687207566494343D-01
- -0.242084041976695D+00  0.576228528246354D+00 -0.135657787672495D+00
- -0.103523953799324D+00 -0.140389222003336D+00 -0.393970388666873D-01
- -0.643126159720595D-01  0.154498809579184D-17  0.111130722679764D-17
- -0.840256683676266D-18 -0.280160921270483D+01  0.888365750810044D+00
- -0.119653450256344D+01  0.607833472804820D+00  0.867361737988404D-17
-  0.173472347597681D-16  0.346944695195361D-17 -0.593290470338602D-02
- -0.599910745736396D-02 -0.780015164216189D-02 -0.105402888206979D-01
- -0.339647144721496D-02 -0.438331291159977D-02 -0.448564662269361D-02
- -0.772287136353065D-02 -0.620028117390148D-18  0.110114283143059D-18
- -0.133831205666179D-18 -0.303416275895586D-01 -0.793980174457007D-01
- -0.219798537348018D-01 -0.802139320703931D-01 -0.154232122131267D-01
- -0.548450797877222D-01 -0.109033751586779D-01 -0.538009686019237D-01
- -0.196511643762998D-17  0.813151629364128D-18 -0.124683249835833D-17
- -0.760815624181480D-01 -0.275032778201097D+00 -0.309536590379712D-01
- -0.208053170009149D+00 -0.345220729728883D-01 -0.169243507400686D+00
- -0.196722327975818D-01 -0.111106505341927D+00  0.788757080483204D-17
-  0.271050543121376D-19  0.100288700954909D-17 -0.302890450679555D+00
- -0.188838890155193D+00 -0.348085526978479D+00  0.157445432740469D+00
- -0.125931806875823D+00 -0.988328912125826D-01 -0.131448523376801D+00
-  0.574950097947861D-01  0.110046520507279D-16 -0.298155597433514D-17
- -0.501443504774546D-17 -0.118846389383658D+01  0.563353953840040D+00
- -0.229643075270305D+00  0.386712064992751D-01 -0.693889390390723D-17
- -0.867361737988404D-17  0.346944695195361D-17  0.706820215204407D-09
- -0.864939400472116D-02  0.755740581226405D-09 -0.150214959717461D-01
-  0.339647186829745D-02 -0.438331290707482D-02  0.448564713990088D-02
- -0.772287131038411D-02 -0.134170018845081D-17 -0.636968776335234D-18
-  0.108420217248550D-18  0.150782643315583D-08 -0.106438769840082D+00
-  0.775533304242515D-09 -0.105616348228146D+00  0.154232134330579D-01
- -0.548450813133708D-01  0.109033755566926D-01 -0.538009704460607D-01
- -0.420128341838133D-17 -0.792822838630025D-18 -0.569206140554890D-18
- -0.995336323778018D-09 -0.325845765793568D+00 -0.835857716374733D-09
- -0.213126321505617D+00  0.345220728906886D-01 -0.169243511779223D+00
-  0.196722333080062D-01 -0.111106503985780D+00  0.223616698075135D-17
-  0.557262975998604D-17 -0.106472041469866D-17 -0.168431178396850D-07
- -0.206483370280678D+00 -0.227832954169394D-07  0.817168483328142D-01
-  0.125931798247572D+00 -0.988328865374341D-01  0.131448504260196D+00
-  0.574950069196280D-01  0.357786716920216D-17 -0.233103467084383D-17
- -0.203287907341032D-18 -0.665691693157999D-07  0.174220750116136D+00
-  0.229643011619343D+00  0.386711953346676D-01  0.935124373768748D-17
-  0.199222149194211D-17  0.623416249179165D-18  0.593290468905121D-02
- -0.599910733266697D-02  0.780015168968597D-02 -0.105402886581727D-01
-  0.186599856309168D-02 -0.148122187862787D-02  0.267369699487478D-02
- -0.230930935144952D-02 -0.223616698075135D-18 -0.950370966819325D-18
- -0.377776694475418D-18  0.303416288959906D-01 -0.793980215886529D-01
-  0.219798542743512D-01 -0.802139377372324D-01  0.125782878917919D-01
- -0.249521550091510D-01  0.829831203158827D-02 -0.258502217844336D-01
- -0.104693272280632D-17  0.193292918563431D-17  0.151280084379618D-17
-  0.760815672967460D-01 -0.275032791619932D+00  0.309536620511393D-01
- -0.208053174709579D+00  0.356192655347311D-01 -0.109429695693905D+00
-  0.418486408037548D-02 -0.109188858900744D+00 -0.309675245516172D-17
- -0.340507244796229D-17 -0.316112695915305D-17  0.302890473092218D+00
- -0.188838865592827D+00  0.348085560550068D+00  0.157445449038149D+00
-  0.103523971296809D+00 -0.140389211616067D+00  0.393971115829685D-01
- -0.643125830822222D-01 -0.406575814682064D-17 -0.349655200626575D-17
-  0.650521303491303D-18  0.118846381476751D+01  0.563353929209374D+00
-  0.119653456616559D+01  0.607833514206575D+00  0.346944695195361D-17
- -0.932413868337534D-17  0.108420217248550D-17  0.760510201889681D-03
- -0.876950318528334D-03  0.121011088556486D-02 -0.160821641065051D-02
- -0.330342849429177D-18 -0.103338019565025D-18  0.252415818281782D-18
-  0.588650645095845D-02 -0.182961166486514D-01  0.448769454058515D-02
- -0.197075660040321D-01  0.555653613398821D-18  0.135525271560688D-18
-  0.108420217248550D-17  0.162593214972443D-01 -0.875794432199093D-01
-  0.284836738862795D-01 -0.888537344786142D-01 -0.230392961653170D-17
-  0.382181265801140D-17 -0.227682456221956D-17 -0.687207534252281D-01
- -0.242084056962026D+00 -0.576228457017050D+00 -0.135657748535210D+00
-  0.157209315010398D-17  0.379470760369927D-18 -0.200577401909818D-17
-  0.280160930718902D+01  0.888365800377834D+00 -0.867361737988404D-17
-  0.693889390390723D-17 -0.520417042793042D-17
- -0.147466971438369D-02  0.102590789862041D-02 -0.246649153850126D-02
-  0.451734436371024D-02 -0.345753039746096D-02  0.108210648964131D-02
- -0.691730670872468D-02  0.267805821400885D-02 -0.758766795372480D-02
-  0.185720970447082D-02 -0.156381683258027D-02  0.753621694272505D-02
-  0.324140883382044D-02  0.684505843180974D-02 -0.237382319606627D-02
-  0.659720466751732D-02  0.104014305373363D-01 -0.621628460048902D-03
- -0.223601797328152D+00 -0.477519362807882D-02 -0.248040668835583D+00
-  0.105275239251406D-01 -0.705292439631997D-02  0.337506895611311D-01
- -0.380641284434362D-01  0.350200409461704D-01 -0.100666168799133D-01
-  0.720198227192046D-01 -0.434863173951477D-01 -0.997361899948727D+00
-  0.911990069162212D-01 -0.376219791868186D+00  0.407778860533720D-02
- -0.860002188424153D-01  0.168883478854062D+00 -0.147806603566558D+00
-  0.750929651475913D-01 -0.747685033358831D-01  0.687366915696384D-01
- -0.456448046314779D-01 -0.611467873039406D+00  0.931039798153062D+00
-  0.109789366882989D+01 -0.113271367732595D+00 -0.835451755753489D-01
- -0.176401972281101D+00 -0.358074401859263D-01  0.399872996483280D+01
- -0.433710439231191D+01  0.358548788795604D+01 -0.550123748889882D-02
-  0.839042420231902D-03 -0.859577135488776D-02  0.379824430295291D-02
- -0.706274970030056D-02  0.818853230259501D-03 -0.147305420944157D-01
-  0.436307585538652D-02 -0.326323098211597D-01 -0.220196814136794D-01
- -0.178840875816698D-01 -0.558461397319068D-02  0.765841028759577D-02
-  0.135371537868006D-01  0.142200881110999D-01 -0.119335191901476D-01
-  0.104721100603791D-01 -0.326693397182590D-02  0.256957716399951D-01
- -0.439848310961730D+00 -0.187308840867763D+00 -0.448313455828793D+00
-  0.476453745612913D-01  0.127774170257611D-01  0.894566479907894D-01
-  0.103101353997850D-01  0.404615042803026D-01  0.500426089612566D-01
-  0.837343497676114D-01  0.643882577647237D-01 -0.186954041904905D+01
- -0.885448684451678D+00 -0.722772199587266D+00  0.837690806810058D-01
-  0.465669012889117D-02  0.222667487664441D-02  0.215111782247342D-01
-  0.757824144662883D-01  0.826473918962459D-01 -0.972236617572533D-02
-  0.857292821249991D-01 -0.211481978029618D+01 -0.190288985731119D+01
-  0.726637880367873D+00 -0.168640963504358D+00  0.303521504214731D-01
- -0.125254915987895D+00  0.363077207265703D-01 -0.644805989722828D+00
- -0.259002894564817D+01  0.459001748242698D+00 -0.836308431980370D-02
-  0.211817344932131D-03 -0.166800564080595D-01  0.332743208443568D-03
- -0.713139781667627D-02 -0.185217002896296D-02 -0.160239163652377D-01
- -0.412608235699133D-02 -0.664687907371524D-01  0.220453193434289D-01
- -0.790036156793726D-01 -0.253361790121419D-01  0.791720909466687D-02
- -0.212285418280879D-01  0.256961538209666D-01 -0.339222303532330D-01
- -0.723431363496205D-02 -0.522888150128064D-01  0.113576659864649D-01
- -0.793990717824233D+00  0.576409126913352D-02 -0.826436355520311D+00
-  0.473890102529151D-02  0.656938128146319D-01  0.572268241336173D-01
-  0.108001360143161D+00 -0.434384749769334D-01  0.346581647974811D-01
- -0.202302699530669D-02  0.113823543637280D+00 -0.382301935980158D+01
- -0.664865175805164D+00 -0.221103563505728D+01  0.719703239972025D-01
-  0.132514405083827D+00  0.441279159997725D-02  0.109832969394053D+00
-  0.654838198278860D-01  0.147158405723872D+00  0.776867730104211D-01
-  0.124698681003463D+00 -0.710870002826119D+01 -0.266219902806685D+01
- -0.937723008441275D+00 -0.548754807797013D-01  0.484049349522562D-01
-  0.153327764501321D-01  0.293956091701386D-01 -0.714975955509105D+01
- -0.338815567135857D+01  0.875376462995315D+00 -0.291483528860223D-02
- -0.242392765758886D-02 -0.119873679161565D-01 -0.865999666304155D-02
-  0.784529300327962D-03 -0.933588107344677D-03 -0.262237166812033D-02
- -0.629918670244739D-02 -0.194385454543210D-01 -0.179672991480721D-01
- -0.601409676339536D-01 -0.307833248360182D-01 -0.169425764409280D-01
- -0.604846655446213D-01 -0.270043059972974D-01 -0.176166621805150D-01
- -0.156686788380727D-01 -0.372687026365026D-01 -0.420496344320948D-01
- -0.534427018712638D+00  0.164652779028493D+00 -0.605447990119737D+00
- -0.811859666794663D-01 -0.230570217139451D-01 -0.684604424317836D-01
-  0.116554776817469D-01 -0.672340841662875D-01 -0.763374987922605D-01
- -0.980802631483042D-01 -0.122935052211197D+00 -0.335813572839573D+01
-  0.122083246381021D+01 -0.236230065890387D+01  0.225077477429142D-01
-  0.105490824192822D+00  0.126152748092910D+00  0.129944890273500D+00
- -0.971495569847617D-01 -0.809304980183920D-01  0.990567301205272D-01
-  0.118252969243053D+00 -0.888084127937756D+01  0.144316509470916D+01
- -0.282807189250093D+01  0.997662574060657D-01  0.613548608814446D-01
-  0.200673096527262D+00  0.905230849762832D-01 -0.935379823760943D+01
-  0.142079038783613D+01  0.208219359935335D+01  0.116026872949599D-02
-  0.789559942858107D-03  0.341187484413993D-03  0.170373302139647D-02
- -0.100371505263173D+00 -0.320216467170656D-01 -0.337181285044045D-01
- -0.352387278562552D-02 -0.325242281874518D-02 -0.146117239957545D-01
- -0.169480877490594D-01 -0.442212621693854D+00 -0.137491720008266D+00
- -0.316340624329466D+00 -0.256386103507448D-01 -0.475096220467115D-01
- -0.243124309424179D-01 -0.977980715444573D-01 -0.168347446569950D+01
-  0.166387187843182D+00 -0.970576892450766D+00 -0.514310286893166D-01
- -0.193715113834476D+00 -0.144665351124504D+00 -0.255000512457179D+00
- -0.409653019714340D+01 -0.158865905110741D+01  0.150836362161378D+00
-  0.171057412489886D+00 -0.116776266676537D+00  0.941529292144625D+01
-  0.178109777818017D+02  0.121282393123582D+02
diff --git a/mtx/test/sparse_data/E05R0400 b/mtx/test/sparse_data/E05R0400
deleted file mode 100755
index dcae98db7..000000000
--- a/mtx/test/sparse_data/E05R0400
+++ /dev/null
@@ -1,2423 +0,0 @@
-Driven Cavity   5 x  5     Re = 400.                                    E05R0400
-          2418            15           293          1952           158
-RUA                      236           236          5856             1
-(16I5)          (20I4)          (3D23.15)           (3D23.15)           
-FNX                        1             0
-    1   11   21   42   63   84  105  148  191  199  207  222  237  263  289  319
-  349  401  453  465  477  489  504  519  545  571  601  631  683  735  747  759
-  771  786  801  823  845  875  905  949  993 1005 1017 1029 1040 1051 1073 1095
- 1103 1111 1119 1134 1149 1179 1209 1235 1261 1313 1365 1377 1389 1401 1422 1443
- 1479 1515 1551 1587 1649 1711 1729 1747 1765 1786 1807 1843 1879 1915 1951 2013
- 2075 2093 2111 2129 2150 2171 2201 2231 2267 2303 2355 2407 2425 2443 2461 2476
- 2491 2517 2543 2555 2567 2579 2594 2609 2639 2669 2695 2721 2773 2825 2837 2849
- 2861 2882 2903 2939 2975 3011 3047 3109 3171 3189 3207 3225 3246 3267 3303 3339
- 3375 3411 3473 3535 3553 3571 3589 3610 3631 3661 3691 3727 3763 3815 3867 3885
- 3903 3921 3936 3951 3977 4003 4015 4027 4039 4054 4069 4099 4129 4151 4173 4217
- 4261 4273 4285 4297 4318 4339 4375 4411 4441 4471 4523 4575 4593 4611 4629 4650
- 4671 4707 4743 4773 4803 4855 4907 4925 4943 4961 4982 5003 5033 5063 5093 5123
- 5167 5211 5229 5247 5265 5280 5295 5317 5339 5351 5363 5375 5386 5397 5419 5441
- 5449 5457 5465 5480 5495 5521 5547 5559 5571 5583 5598 5613 5639 5665 5677 5689
- 5701 5716 5731 5753 5775 5787 5799 5811 5822 5833 5841 5849 5857
-   7   5   3   1   8   6   4   2   9  10   1   7   5   3   8   6   4   2   9  10
-   1   2   7   5   8   3   6   4   9  10  17  15  13  11  18  16  14  12  19  20
-  21   1   2   3   7   5   8   6   4   9  10  17  15  13  11  18  16  14  12  19
-  20  21   1   2   3   4   7   8   6   5   9  10  57  55  53  51  58  56  54  52
-  59  60  61   1   2   3   4   5   7   8   6   9  10  57  55  53  51  58  56  54
-  52  59  60  61   1   2   3   4   5   6   8   7  58   9  10  53  18  13  17  15
-  72  11  57  16  14  12  19  20  21  55  51  71  56  54  52  59  60  61  68  66
-  64  62  69  67  65  63  70   1   2   3   4   5   6   7  72  16  18  71   9   8
-  10  17  15  13  11  55  14  12  19  20  21  53  51  56  57  54  52  59  60  61
-  58  70  63  62  66  64  68  69  67  65   1   2   3   4   5   6   7   8   1   2
-   3   4   5   6   7   8   3   4   7   8  15  17  18  16  13  14  11  12  19  20
-  21   3   4   7   8  15  17  11  18  16  13  14  12  19  20  21   3   4   7   8
-  17  15  16  11  18  12  14  13  27  19  20  21  26  28  25  24  22  23  30  31
-  32  29   3   4   7   8  11  17  15  18  16  12  13  26  14  19  20  21  28  24
-  22  27  29  25  23  30  31  32   3   4   7   8  72  17  71  70  13  18  11  63
-  16  14  15  12  57  19  54  20  21  58  53  62  66  64  68  67  65  69   3   4
-   7   8  72  11  71  13  15  17  18  14  63  12  54  19  20  21  16  58  57  53
-  70  62  66  64  68  65  69  67   3   4   7  72   8  15  16  71  53  63  70  13
-  54  11  18  57  83  17  14  58  12  82  19  20  21  28  27  29  26  24  22  25
-  23  81  30  31  32  68  74  66  64  62  67  78  65  77  69  76  73  80  75  79
-   3   4   7   8  72  17  71  11  70  15  13  63  54  83  16  12  57  14  53  82
-  19  18  20  21  27  25  23  26  30  24  22  31  32  62  28  58  81  64  66  29
-  74  68  65  76  78  69  73  67  80  77  75  79   3   4   7   8  11  17  15  12
-  18  13  16  14   3   4   7   8  11  17  15  12  18  13  16  14   3   4   7   8
-  11  17  15  12  18  13  16  14  13  17  18  14  26  27  28  24  29  25  30  23
-  22  31  32  18  13  17  14  26  28  29  27  22  24  25  23  30  31  32  13  17
-  18  14  26  27  28  25  29  22  23  30  24  31  35  32  33  37  36  34  41  38
-  42  43  39  40  17  13  18  14  26  28  29  24  22  27  23  25  30  31  32  37
-  39  35  33  38  40  36  34  41  42  43  13  17  83  18  14  64  82  81  28  74
-  24  29  27  22  26  68  25  23  78  30  65  31  32  76  69  80  73  75  77  79
-  18  13  17  83  14  64  82  81  26  28  74  29  24  22  25  23  30  68  27  31
-  32  65  76  78  69  77  73  80  75  79  17  18  83  13  14  26  81  82  27  64
-  24  74  22  29  31  25  23  65  68  30  28  32  33  94  78  76  37  73  80  35
-  36  34  42  38  93  41  77  69  39  43  40  75  92  79  85  84  87  89  88  86
-  91  90  18  13  17  83  14  82  26  64  24  28  74  22  81  31  32  27  68  25
-  65  30  23  78  35  73  29  33  69  76  41  43  80  34  36  42  77  39  75  38
-  94  37  93  85  92  40  79  89  84  87  88  91  86  90  18  13  17  14  28  26
-  29  22  27  23  24  25  18  13  17  14  27  28  26  29  22  23  24  25  18  13
-  17  14  26  27  29  22  28  23  24  25  29  24  28  25  37  39  38  35  36  41
-  40  34  33  42  43  29  24  28  25  37  39  33  38  35  40  36  34  41  42  43
-  29  24  28  25  37  38  39  36  33  40  34  41  35  42  43  44  46  45  47  48
-  49  50  28  24  29  25  37  39  40  35  33  34  38  36  41  42  43  46  44  47
-  45  48  49  50  24  28  29  76  75  25  80  93  94  38  35  85  92  33  40  39
-  37  79  43  36  34  42  41  89  84  87  88  86  91  90  28  24  29  76  80  25
-  75  94  93  37  85  39  33  35  40  34  36  41  92  42  38  43  89  84  79  87
-  88  86  91  90  24  28  29  76  75  25  37  38  94  80  93  35  33  85  92  42
-  79  40  36  34  89  41  39  43  84  46  87  47  88  48  44  45  91  49  50  86
-  90 101  95 100  96  99  98  97  24  29  28  76  25  75  80  94  93  35  37  33
-  85  92  42  39  38  43  36  34  79  89  44  41  87  84  40  88  46  86 100  47
-  45  91  48  49  50  90 101  95  96  99  97  98  29  24  28  25  33  37  39  34
-  35  38  40  36  28  24  29  25  38  37  39  33  34  35  40  36  29  24  28  25
-  38  37  39  33  34  35  36  40  40  35  36  39  46  47  44  45  48  49  50  35
-  36  39  40  44  46  47  45  48  49  50  39  35  40  36  87  86 101 100  91  44
-  45  47  96  99  46  95  48  49  50  90  97  98  35  36  40  39  87  86  46 101
-  44  91  95 100  45  96  90  48  47  49  50  99  98  97  35  36  39  40  44  45
-  46  47  35  36  39  40  44  45  46  47  35  36  39  40  44  45  46  47   5   6
-   7   8  53  57  54  58  55  56  51  52  59  60  61   5   6   7   8  57  53  54
-  58  55  56  51  52  59  60  61   5   6   7   8  72  17  18  15  71  16  63  70
-  57  55  54  58  51  66  62  53  56  64  52  59  60  61  68  67  65  69   5   6
-   7   8  72  17  15  18  71  16  57  63  55  70  53  52  62  66  51  58  64  59
-  56  54  60  61  68  65  69  67   5   6   7   8  57  53  54  58 112 111 103  51
-  56 104  55 110  52 105  59  60  61 108 106 102 109 107   5   6   7   8  53  57
-  54  58 110  55 111 104 112 105 103  51 108 106  56  52  59  60  61 102 109 107
-   5   6   8   7 123  72  17  16  70  15  18  71  53  54  58  55  63  62  51 122
-  56  57  66  52  64  59  60  61  68 121 116  65  67 114  69 104 112 113 103 108
- 106 105 102 110 111 115 107 109 117 118 119 120   5   6   8   7 123  72  17  16
-  53  15  18  71  57  70  55  63  54 122  64  62  51  66  67  65  56  58 116  52
-  59  60  61 121  68  69 104 114 112 113 111 105 103 106 102 115 110 107 108 109
- 117 118 119 120   5   6   7   8  54  57  53  58  55  56  51  52   5   6   7   8
-  54  57  53  58  55  56  51  52   5   6   7   8  54  57  53  58  55  56  51  52
-   7   8  16  15  17  53  54  72  18  57  71  70  63  58  64  66  68  67  69  65
-  62   7  17   8  18  57  58  15  64  16  66  68  65  67  69  53  54  62  63  70
-  71  72   7   8  15  16  18  53  17  54  71  72  57  70  63  83  58  26  82  81
-  62  27  29  74  28  76  67  73  65  66  68  64  77  69  78  75  80  79   7   8
-  17  15  16  18  83  53  54  26  82  81  27  28  74  64  62  58  57  29  73  63
-  67  76  70  66  68  77  71  72  69  80  78  65  75  79   7   8  15  16  53  17
-  72  18  54  57  71  70  63  62 123  58  64 122  68  65  67 113  69 105  66 121
- 104 116 114 115 108 109 117 119 118 120   7   8  17  15  16  53  54  62  18  57
-  64  58  63 122 123  72  65  68  66  70  71 105  69 104 113 121 116 114  67 115
- 109 117 108 119 120 118   7   8  15  16  18  17  53  54  72  71  58  57  70  83
-  63  62  66  82  26  81 123  64  74 134  27  28  29 122  76  73  78  65  67 104
- 105 132 113  77 133 121 125  75  69 114  68 124  80 116 108 109 115 117 118 127
- 119 129 126 128 120  79 131 130   7   8  15  17  16  53  18  83  54  57  82  26
-  27  58  62  28  81  64  63  70  71  74  29 123  76  73  66 122  65 134  77 104
-  68  67 133 132  72  78 105 125 121  75 124 113  80 116 115 114  69 108 109 117
- 127 119 118 129 126 128 120 131  79 130   7  17  18   8  57  58  66  64  15  16
-  68  65  67  69  53  54  62  63   7  17  57  58   8  18  67  66  65  64  68  15
-  16  69  53  54  62  63   7  57  58  66  64  67  65  17  18   8  69  68  15  16
-  53  54  62  63  17  18  68  78  28  26  82  69  27  83  77  64  74  65  81  29
-  80  76  75  79  73  28  29  78  17  68  18  76  77  80  69  26  27  75  64  79
-  65  73  74  81  82  83  17  18  26  68  27  78  69  74  29  77  64  81  28  65
-  83  82  73  76  94  37  80  93  38  85  39  84  40  92  87  86  88  89  75  79
-  91  90  28  29  17  68  78  18  77  94  93  37  38  39  69  27  26  76  80  92
-  40  75  64  85  73  87  65  79  81  88  84  91  89  86  74  90  82  83  17  18
- 134  26  27  82  83 133  68  78  28  74 132  81  69 125 116  64  73  29  65 115
- 124  80  77  76 127  75 119 129 120  79 126 131 128 130 134  28  29 133  17  68
- 132  18  76  26 125 124  69  80  77  27  78  75 116  73 115  65 129 127  81  79
-  64 119  74 120 131  82 128 126 130  83  17  18  26  83  27  74  28  81  64  65
-  76  82  73  29  77  68  69  78 134 133 132  94  93 116 124 125 115  85  80  37
-  75  92  39  38  87  40  84  86  89 129 127  88 145 126 119 120 128 144 143 136
- 131 135  79  91 138 140 139  90 130 137 142 141  28  17  29 133  18  68  76 132
-  26 134  78 125  37  40  77  27  69  39  94  75  38 116  93  64 115  65 124  80
-  73  92  74  85 127 145 143  89 144  84  86  79  88 119  81 120  87 129 136  90
-  91 131  83  82 128 126 130 135 137 140 138 142 139 141  28  29  68  78  17  76
-  69  77  18  75  80  27  26  79  73  64  65  74  28  29  68  69  78  76  77  75
-  17  80  18  26  79  27  65  73  64  74  68  28  29  69  78  76  77  80  79  75
-  17  18  26  27  73  64  65  74  28  29  80  76  79  38  37  93  85  94  92  39
-  89  75  88  40  91  90  86  87  84  80  40  39  28  29  76  79  87  89  88  86
-  37  91  38  90  75  84  85  92  93  94  28  80  29  37  38  79  76  93  85  92
-  94  75  89  88  39  84  87  40  47  46  91  90  96  99  97 100  95  86  98 101
-  80  79  28  39  29  40  76  89  46  47 101  37  88 100  86  91  38  87  99  96
-  84  90  95  75  98  85  97  92  93  94  28  80 127  29 145  76  37 144  94  38
-  93  92  85  75  89 131  39  79  84 126  40 143  87 136  86  91 135 138  88 130
-  90 140 137 139 142 141  28  80 127  39  40 145  29 144 131  76 126  79 143  87
-  88  37  38  86  91 136  89  84 135  90  75  85  92 130  93  94 138 140 139 142
- 137 141  28  29  76  80 127  37  92  93  94  38  75  85  39 145  89  79  84  40
-  88 143 131 144 126 135  46 136  87  47  86  91 130  99 100 101 140  95  96  97
- 138 137  98 142 147 139  90 146 150 141 151 152 148 149  28  39  76  80  29  79
-  40 127 145 131  37  89  46  47  38  87 144 143 101  86 126  88  92  93  75 100
-  84  85  90 135 136  91 130  95  99  94  96  97  98 140 138 137 152 139 142 146
- 150 151 141 148 147 149  80  39  40  28  79  89  87  29  91  88  86  37  38  76
-  90  75  84  85  39  40  80  86  87  79  28  89  88  29  91  90  76  37  38  75
-  84  85  39  40  80  87  79  86  28  89  88  91  29  90  37  38  76  75  84  85
-  39  91  40  87  46  47  86  90  97  98  96  95  99 100 101  39  91  40  90  46
-  87  47  98  97  86  95  96  99 100 101  39  91  40  87  46  47  90  86 100 101
- 138  95 137  99 142  96  98 147 151 146 152  97 150 141 148 149  39  91  87  40
-  90  46  47  86  97 138 137  95 101 152 142  99  96 100 150  98 146 151 147 141
- 149 148  91  39  40  90  87  46  47  97  98  86  95  96  91  90  97  39  40  98
-  46  47  87  86  95  96  91  90  97  39  98  40  46  47  87  86  95  96  57  58
- 108 104 106  55 107  56 109 105 103 102 110 111 112  58  57 106 109 108 107  55
-  56 104 105 102 103 110 111 112  58 122  57 123  68  66  55  56 105  69  67 108
- 106 109 103 110 102 107 115 104 113 117 118 111 112 121 114 119 116 120  58  57
- 123 122 108  66 106 107 109  55 104  56  67 117  68  69 110 113 102 111 119 120
- 118 105 103 116 121 112 115 114  57  58 112  56  55 110 111 108 104 105 103 107
- 102 109 163 162 155 154 106 161 156 157 153 159 160 158  57  58  55 108 106 109
- 102  56 105 104 103 110 163 111 107 112 162 155 154 161 159 153 156 160 158 157
-  57  55  58  56 123 122  68  66  67 112 104  69 105 110 106 111 103 107 102 109
- 117 113 114 115 121 108 116 119 118 164 120 174 173 155 172 163 162 165 156 167
- 153 168 154 161 158 160 166 157 159 170 169 171  55  57  66  58  67 122 123  68
-  56 107 108 104 106 105 113 110 117 103 119 102  69 109 111 114 112 118 116 120
- 121 115 164 174 173 155 172 165 162 163 156 158 161 153 154 157 168 166 159 167
- 160 169 170 171 107  57 106 109  58 108  55 105 104  56 102 103 106  57 107 109
-  58 108 105  56 104  55 102 103 106 107  57 109  58 108  55 104 105  56 102 103
- 108 109 117  57  58 118 120 119  66  68 104 105  69  67 122 115 116 114 113 121
- 123  68  69 116  57 115 108 109  58 117 104  66 105 119  67 118 120 113 114 121
- 122 123 108  57 109 117  77  58  78 104 134 119 118 129 105 120  68  67  66 133
- 121  80 113  69 132 122 123 114 116 131 125 124 128 127 115 126 130  79 134 133
-  78  77 132  68 125  69  80 124 127  57 115 108  58 109 105 117 116  67 104  66
- 119 118 129 113 121  79 122 126 123 131 128 114 120 130 109  57 108  58  66 119
-  67 105 173 118 120 174 104 117 172 113 165 122  68  69 167 115 121 114 116 155
- 123 166 164 159 156 170 168 160 169 171  68  69  57 116  58 115 117  67 105 108
-  66 109 104 113 119 121 114 164 174 123 122 120 165 173 118 172 156 155 167 166
- 168 160 170 169 159 171  57 108  58  77  66 134 109  78 117  67 104 105  68 118
-  80 133 113  69 120 173 172 114 174 164 119 132 121 116 165 131 123 129 122 167
- 115 124 125 185 127 184 155 166 128 126  79 130 156 168 159 176 183 160 170 169
- 171 178 177 180 175 179 182 181  78  77  68  69 134 133  57 125 132  80 124 116
- 127  58 115  66 105 108 104  67 109 117 113 114 122 129 126 118 119  79 123 174
- 164 121 128 156 131 173 185 165 184 172 155 167 166 120 168 160 169 183 176 130
- 170 159 175 178 177 171 179 180 181 182  68  69 116 115 108 109 117  57 118 104
- 105  58 119  66  67 120 113 114  68  69 116 120 108 109 117 118 119 115 104  57
-  58 105 113  66  67 114  68  69 116 120 108 109 118 117 115 119 105 104  57  58
-  66  67 113 114  80  79 127 129 131  77  78 119 120 128 126  68  69 116 115 130
- 124 125 132 133 134  80  79 127 129 120 119 131 126  78 128 130  77 115  68  69
- 116 124 125 132 133 134  80  78 127  77 119  68 115  88 145  69  89 129 124 120
-  79 131 144 125 128 116 135 132 143 136 126 133 134  91 140  90 130 137 138 139
- 142 141  80  79 145  88 144  89 120 129  90 131  91 119 143 127 136 138  78 135
- 140  77 128 126 130 124 115 139  69 116 137  68 125 142 132 133 141 134  78  77
-  80 127 115 119 129  68 124  69 125 133 185  79 120 116 126 132 184 131 167 134
- 166 183 176 128 130 175 171 170 178 177 180 179 181 182  80  79 185 127 184 120
- 119 131  78 167 183 166  77 126 129 115 130 128 124 176 170 171 175 132  68 116
- 125 133  69 179 177 134 182 178 180 181  78  77  80 124  69  68 115 119  89 132
- 145 127 133 116  88 126 125 129 144 120 143 134 128 185  79 184 136 131 135 167
- 196 166  91 138  90 140 183 176 195 178 175 137 170 139 194 171 177 180 182 142
- 179 130 187 181 191 186 190 189 141 188 193 192  80  79 127  89 120  90  88 119
-  78  91 145 144 129 136 185 167 143 166 184 128 131 130 196 135 195 126  77 138
- 115 124 194  68 140 187 116 171  69 170 142 183 125 175 133 132 137 134 139 178
- 176 180 141 179 177 182 181 189 191 190 186 193 188 192  80  79 129 127 119 131
- 120 128 126 130  78 116  77  68  69 115 124 125  80  79 127 129 119 131 120 128
- 126 130  77  78 116  68 115  69 124 125  79  80 127 129 131 119 120 130 128 126
-  78  68  69  77 115 116 124 125  91 131 130  90  80 127 138  89 140  88  79 126
- 139 136 137 142 143 144 141 135 145 131  91  90 130 140 138 127 137 142  80 139
-  89 141  79  88 135 126 136 143 144 145  80 131  89  88 127  91 126 136  79  90
- 138 130 135 140  98 143 139 144  97 142 145 147 146 150 151 141 137 152 149 148
- 131  91  90  98 130  97 140 127 152 142 139  89 151  80 150 138 141 147  79 137
-  88 135 146 126 136 143 148 144 149 145  80  89  88 127 126 131  79 196 143 135
- 138 140 136  91 145 195 144 178 142 137  90 194 130 177 187 182 186 189 181 139
- 190 141 191 188 193 192 131  90  91 196 138 130 195 127 194 178  89 142  80 187
- 139  79 140 177  88 137 141 135 136 143 126 182 181 145 189 144 191 186 188 193
- 190 192  80  89 127 126  88  79 131 135 136  91 138 196 143 144 140  98 145  90
- 139 182 177 137 130  97 178 181 146 195 191 151 150 147 194 152 142 187 149 186
- 148 189 190 188 197 198 201 202 193 141 192 199 203 200  91  90 131 196  98  97
- 140 127  80 130 195 178  89 138 152  88 137  79 194 126 139 187 135 147 136 177
- 182 151 142 146 181 150 145 143 144 191 141 189 148 149 203 186 202 198 190 201
- 188 193 197 192 199 200  91  90 131 140 130 138 142 139 137 127  80  89  79 141
-  88 135 126 136  91  90 138 131 130 140 137 142 139 141 127  79  80  89  88 126
- 135 136  90  91 131 138 140 130 142 139 137 141 127  79  80  88  89 126 135 136
- 142 138 141  91  90  98 149 137  97 148 146 147 150 151 152 142 148 138 141 149
-  90  97  91  98 137 146 147 150 151 152 138 142  90  91 141 137  98 189  97 146
- 147 149 150 152 203 202 197 188 148 151 201 193 199 192 198 200 142 141 138  98
- 148  91  90  97 189 137 151 147 146 150 203 202 149 197 188 201 152 193 192 198
- 199 200 142 141 148 138  91  90 149  98  97 137 146 147 142 141 138 149  98 148
-  90  91  97 137 146 147 142 141 149 148  91  90  98  97 138 137 146 147 109 107
- 108 155 161 106 154 156 162 160 163 157 159 158 153 157 109 159 158 107 108 106
- 155 160 153 156 154 161 162 163 109 117 108 119 118 107 164 174 106 168 173 161
- 165 156 120 172 154 162 153 155 163 158 157 160 159 167 166 170 169 171 109 108
- 118 117 119 168 157 158 159 165 107 155 106 153 174 160 164 170 162 173 172 120
- 166 156 154 161 171 163 167 169 109 108 163 106 162 107 156 154 155 158 161 160
- 159 153 206 204 207 157 205 208 209 210 109 108 107 106 157 159 155 153 160 156
- 162 154 161 206 207 158 163 204 205 208 209 210 117 109 108 107 119 164 106 163
- 118 156 162 172 120 155 173 161 154 174 153 167 165 166 168 160 169 215 212 206
- 170 158 211 216 157 204 217 207 213 205 159 208 209 210 171 214 117 107 109 108
- 119 168 118 106 164 157 159 173 155 153 161 154 172 156 158 120 174 163 162 165
- 166 170 217 167 160 212 215 169 171 216 206 207 214 211 204 213 205 208 209 210
- 157 109 159 158 108 160 155 106 107 156 153 154 157 159 109 158 160 108 107 155
- 106 153 156 154 157 158 160 159 108 109 107 155 106 156 153 154 159 169 160 168
- 170 117 171 119 109 118 108 155 156 165 173 172 166 174 120 167 164 120 119 166
- 167 168 117 170 160 159 169 109 156 155 108 164 171 118 165 172 173 174 159 117
- 168 169 171 129 118 170 160 119 109 155 180 108 185 156 164 184 128 131 165 173
- 167 172 174 120 181 182 175 179 183 130 166 176 178 177 119 185 120 131 129 128
- 117 184 166 109 130 176 168 183 159 160 156 170 167 108 178 169 171 118 155 164
- 165 177 172 175 173 180 174 179 182 181 117 159 160 171 170 217 216 119 169 215
- 118 168 109 212 108 155 164 156 214 172 173 211 165 174 167 166 206 120 207 213
- 119 120 167 117 109 166 108 168 155 118 160 164 159 170 156 217 211 216 165 212
- 173 172 215 206 174 169 171 214 207 213 117 159 129 168 160 171 118 131 109 128
- 108 185 217 119 216 169 170 164 156 155 215 212 174 173 172 165 214 184 167 211
- 166 120 180 224 213 206 207 179 183 223 176 175 182 222 219 181 178 177 218 220
- 221 130 117 119 128 185 129 131 120 184 167 109 108 183 166 176 118 155 168 156
- 160 130 164 172 165 173 175 169 170 217 159 215 216 178 174 211 213 206 212 207
- 180 214 177 179 218 219 222 171 223 224 181 220 221 182 120 119 167 166 159 117
- 168 160 170 169 171 109 155 156 108 164 118 165 119 120 167 166 168 159 117 170
- 160 169 171 155 156 109 108 118 164 165 120 119 167 168 166 159 170 117 160 171
- 169 156 109 155 164 108 118 165 131 129 170 130 166 178 128 119 171 177 167 120
- 180 179 176 183 184 185 181 182 175 131 130 129 170 177 171 178 119 180 167 179
- 128 166 120 175 182 181 176 183 184 185 131 129 119 167 166 140 195 196 128 130
- 170 194 139 187 120 142 175 178 176 183 171 180 179 184 185 177 189 141 191 188
- 186 182 181 190 193 192 131 196 195 130 140 139 170 142 171 129 194 187 119 177
- 167 166 179 180 189 178 128 186 120 175 176 141 183 182 188 191 181 190 193 184
- 192 185 129 131 119 167 120 128 175 170 166 184 178 183 176 185 177 214 130 213
- 180 182 171 218 181 220 221 219 179 222 223 224 131 129 170 130 119 178 171 214
- 177 166 128 120 167 224 213 222 179 223 175 218 183 219 180 184 176 185 181 221
- 220 182 129 131 119 140 128 167 166 120 196 170 195 175 184 194 176 185 183 139
- 213 178 130 177 182 214 187 191 171 180 142 179 186 221 190 218 181 189 188 220
- 219 141 223 193 222 225 224 229 226 230 231 192 227 228 131 129 196 140 119 195
- 130 171 194 170 178 167 166 128 139 142 187 177 213 120 180 214 179 175 222 218
- 183 223 186 184 141 185 224 189 219 193 176 188 191 192 221 181 190 220 226 225
- 228 227 182 229 230 231 131 130 170 178 171 177 129 180 179 182 119 181 167 128
- 166 120 175 176 131 130 171 170 178 177 179 180 129 182 181 119 120 128 167 166
- 175 176 131 130 170 171 178 180 177 179 181 182 129 119 120 128 166 167 175 176
- 189 142 131 141 178 130 140 188 194 139 195 187 177 191 181 193 182 192 190 186
- 196 142 141 182 181 189 191 193 192 131 190 188 140 130 139 177 186 178 187 194
- 195 196 131 142 140 130 139 178 148 191 149 177 141 189 187 198 182 196 186 194
- 197 181 195 190 193 201 202 188 203 192 200 199 142 141 181 203 182 202 140 191
- 148 131 149 201 190 198 189 197 130 188 192 193 178 139 177 186 199 200 187 194
- 196 195 140 131 142 177 139 130 187 182 191 189 194 196 195 141 178 221 220 181
- 186 188 226 225 229 230 231 190 193 227 192 228 142 231 182 141 181 220 131 189
- 221 230 229 190 140 188 130 193 191 226 225 192 178 139 177 186 196 187 194 195
- 228 227 131 140 139 182 177 130 181 178 194 187 191 142 195 149 148 220 186 190
- 196 189 197 141 198 188 221 225 202 226 201 193 203 200 199 231 229 227 230 228
- 192 232 233 234 235 236 142 231 131 191 140 182 149 148 141 181 230 220 189 130
- 229 139 221 190 197 178 177 186 188 195 196 226 225 187 201 198 202 203 199 194
- 200 192 227 193 228 232 233 234 235 236 142 141 182 181 189 191 188 193 190 192
- 131 140 130 139 177 186 178 187 142 141 182 181 190 191 189 193 188 192 131 130
- 140 139 177 186 178 187 141 142 182 181 189 191 192 190 188 193 131 130 140 139
- 177 178 186 187 193 142 149 192 148 200 199 189 188 141 197 198 201 202 203 192
- 193 142 199 200 149 189 148 141 188 197 198 201 202 203 142 193 149 192 200 148
- 227 141 228 188 197 189 198 203 202 199 201 232 233 234 235 236 193 192 142 199
- 149 227 148 197 141 201 198 228 188 200 189 203 202 232 233 234 235 236 193 192
- 200 199 142 149 148 189 141 188 197 198 193 192 200 199 142 149 148 189 141 188
- 197 198 193 192 200 199 142 149 148 189 188 141 197 198 159 160 206 157 158 207
- 204 205 208 209 210 160 206 157 159 158 204 207 205 208 209 210 170 168 160 171
- 157 159 169 215 212 207 158 205 214 208 204 211 217 206 209 210 216 213 170 168
- 171 157 169 160 211 206 213 159 158 214 204 205 208 209 207 210 212 215 216 217
- 160 206 157 159 158 204 205 207 160 206 157 159 158 204 205 207 160 206 157 159
- 158 204 205 207 170 168 171 169 214 160 213 159 206 207 211 212 215 216 217 170
- 171 168 160 214 169 213 206 159 207 211 212 215 216 217 168 170 160 171 169 180
- 206 224 207 159 214 215 179 219 212 211 182 223 213 222 218 216 217 181 220 221
- 170 168 171 224 169 160 180 223 213 179 219 222 206 212 159 214 211 215 207 218
- 182 181 220 221 216 217 170 171 168 214 160 213 169 206 159 207 211 212 170 171
- 168 214 213 169 160 206 159 207 211 212 170 171 214 213 168 160 169 206 159 207
- 211 212 170 182 181 214 221 220 180 213 171 179 218 219 222 223 224 182 181 170
- 220 221 213 214 180 171 179 218 219 222 223 224 170 191 214 182 181 180 190 213
- 171 231 179 230 221 193 229 222 226 218 220 219 223 224 225 192 228 227 191 182
- 170 181 214 190 180 231 230 193 213 220 218 171 229 225 221 179 222 223 226 219
- 224 192 227 228 182 181 170 220 221 214 213 180 171 179 218 219 182 181 221 170
- 220 214 213 171 179 180 218 219 182 181 220 221 170 213 214 171 179 180 218 219
- 192 193 221 191 220 181 228 190 182 227 225 226 229 230 231 192 193 227 191 220
- 228 221 181 182 190 225 226 229 230 231 193 192 191 221 199 200 181 220 190 182
- 228 229 226 230 231 225 227 232 233 234 235 236 192 193 199 200 227 221 181 182
- 191 190 220 225 226 229 230 228 231 232 233 234 235 236 193 192 228 227 191 220
- 181 221 182 190 225 226 193 192 228 227 191 181 221 182 220 190 225 226 193 192
- 228 227 191 221 181 182 190 220 225 226 192 193 199 200 227 228 232 233 234 235
- 236 192 193 199 200 227 228 232 233 234 235 236 192 193 199 200 227 228 232 233
- 192 193 199 200 227 228 232 233 192 193 199 200 227 228 232 233
- -0.585900846235845D+00 -0.205638424470206D+01 -0.147371836550539D+01
-  0.778583366991047D+01 -0.427758902773070D+00  0.701463452682254D-01
-  0.159012252127643D+00  0.414828449491813D+00  0.177777768505930D+00
- -0.132454768507484D-08 -0.200341703827073D+00 -0.470055684729066D+00
- -0.180040417313419D+00  0.656877989024457D-01 -0.476394956010639D+00
-  0.432876466575354D-01 -0.282662427823343D+01  0.928083299894004D+01
-  0.132454758619560D-08  0.177777779102311D+00 -0.373376016375563D+00
-  0.159012252127643D+00 -0.599062470368665D+00 -0.315921676832105D+00
-  0.745813185575810D-01  0.419017586857169D+01  0.461129986115798D+00
-  0.805920738132758D+00  0.444444421264772D-01  0.132454768594220D-08
-  0.278116619800896D+00 -0.790385272693371D+00  0.824537353697307D+00
- -0.317642180444000D+01  0.108766602987143D+00 -0.415793552879321D+00
- -0.228630370773193D+00  0.201979599925131D+00 -0.198682152674490D-08
-  0.444444421264772D-01  0.132454768334012D-08  0.656877989024457D-01
- -0.172628192910361D+01 -0.118442349318972D+01 -0.292872428720262D+00
-  0.418833204159699D+00  0.948397542478352D+00 -0.206415746870469D+00
-  0.754315763569657D+01  0.331136904788837D-09 -0.888888888888817D-01
-  0.107179072709577D+00 -0.609201156204045D+00 -0.387065922619323D-01
- -0.872760215844070D+00  0.131683079907539D+00 -0.619829413235568D+00
-  0.790831791720373D+00 -0.418015213779247D+01  0.133333333333333D+00
-  0.331136887007921D-09 -0.888888888888817D-01 -0.324328735259443D+01
-  0.701463452682253D-01 -0.860250920069217D+00  0.461129986115694D+00
- -0.826987863316644D+00  0.856654025089888D-01  0.141761985431522D+00
-  0.564479386295390D+01 -0.888888849152387D-01 -0.331136927340242D-09
-  0.939787074848302D-01 -0.219699473959549D+00 -0.349897180249146D+00
- -0.121526792071449D+01  0.112613916994466D+00  0.714352818762720D-02
- -0.409643366312735D+00  0.118394094975933D-01  0.133333327372868D+00
- -0.888888849152387D-01 -0.331136904355156D-09 -0.180040417313419D+00
- -0.114361546123483D+01  0.418833204159803D+00 -0.750744990107580D+00
- -0.817898376529033D+00 -0.111906836956633D+00 -0.145761628767293D+01
-  0.608853930424061D+01 -0.132454761525222D-08  0.444444447755726D-01
-  0.150066044362338D+00  0.234388081691361D+00 -0.465200856220765D+00
- -0.185148113698645D+00  0.100061684900394D+00 -0.778425267507071D+00
- -0.255283038401479D+00  0.105162156085559D+01  0.198682138796702D-08
- -0.132454760007339D-08  0.444444447755726D-01 -0.590271710929046D+00
- -0.427758902773070D+00 -0.214839739776829D+01  0.745813185575810D-01
-  0.257616142485667D+00  0.856654025089888D-01  0.329566414243720D+00
-  0.285482963120030D+01  0.946292811314781D-02 -0.222222207321017D-01
- -0.333333315120763D-01  0.439142308286249D+00 -0.505266752284478D-01
-  0.513672520525521D+00  0.505906001425709D+00 -0.204585270323456D+01
- -0.333333315120763D-01 -0.134509743985800D+01 -0.465097001607812D+00
-  0.884752204285449D-01 -0.113455619235048D+00  0.473095336009546D+00
- -0.333333323399186D-01 -0.222222217255125D-01  0.333333321743501D-01
- -0.500569901167552D-01 -0.380705306986211D-01 -0.222222207321017D-01
- -0.109608305227725D+00  0.117858177762113D+00  0.479245522576029D+00
-  0.333333323399186D-01 -0.222222217255124D-01  0.333333321743501D-01
- -0.265222000654688D-01  0.200561652127640D+00  0.944577258411640D-01
- -0.532714085566028D+00 -0.297317999456992D-01  0.114350290538403D+00
-  0.879947574187891D-01 -0.420368228053360D+00  0.333333313465078D-01
- -0.470055684729066D+00 -0.480765820703839D+00 -0.292872428720262D+00
- -0.600937384921277D+00 -0.111906836956633D+00 -0.373012281870619D+00
- -0.110121902898277D+01 -0.222222227189232D-01 -0.254419009382527D+01
-  0.462546220302671D+00 -0.333333336644662D-01 -0.333333336644662D-01
-  0.461183703771786D+01 -0.222222227189232D-01  0.126561702935583D-02
- -0.587316304228794D+00 -0.115043149512614D+00  0.279687732684719D+00
- -0.721561778598531D-01  0.367238965731002D+00 -0.117454152741828D+01
-  0.333333328366239D-01  0.333333330021924D-01 -0.222222217255125D-01
- -0.276030450187728D+00  0.423688032668103D+00 -0.439740276023529D-01
-  0.174415695835630D+00  0.185888167819796D+01  0.565436641309535D-01
- -0.333333328366240D-01  0.333333330021924D-01 -0.222222217255125D-01
- -0.947983492484511D+00  0.333333338300347D-01 -0.428818975350567D+00
- -0.598074389636670D+00  0.175841598650716D+00  0.113990255924385D+00
- -0.320160808339552D-01  0.903043944120456D-02  0.201922023022696D+00
- -0.467185507267370D-01  0.177777768505930D+00  0.132454758619560D-08
-  0.444444421264772D-01  0.331136904788837D-09 -0.888888849152387D-01
- -0.132454761525222D-08 -0.222222207321017D-01 -0.333333336644662D-01
- -0.132454768507484D-08  0.177777779102311D+00  0.132454768594220D-08
- -0.888888888888817D-01 -0.331136927340242D-09  0.444444447755726D-01
- -0.333333315120763D-01 -0.222222227189232D-01  0.980151871401175D+00
-  0.201979599925131D+00  0.107874844088470D+00  0.473095336009546D+00
-  0.206909676030485D+00 -0.123793696931093D+01 -0.463717297553246D+00
-  0.159597177468720D+00 -0.546299875405254D+01  0.712541930851359D+00
-  0.480295836447455D+01  0.392974457760998D+01  0.000000000000000D+00
-  0.177777768505930D+00 -0.397364304481618D-08 -0.872760215844070D+00
- -0.235784619512938D-01  0.279687732684719D+00  0.278430756528181D+00
-  0.629126035895282D-01 -0.263959573118206D+00  0.619305369273979D+00
- -0.108942537559839D+01  0.322953601637154D+01  0.102758663257552D+01
- -0.645777960149311D+01  0.122637083153633D+02  0.173472347597681D-16
-  0.132454761221645D-08  0.177777776453216D+00 -0.790831742294567D+00
- -0.228630370773193D+00 -0.339056328452531D-01 -0.113455619235061D+00
- -0.597098248041594D+00  0.410270096891727D+00  0.425171591335622D+00
-  0.325777938407885D+01 -0.849207944958665D-01  0.712541930851359D+00
-  0.285419514226870D+01  0.373662852172008D+01 -0.478006838516071D+00
-  0.397364305002035D-08  0.444444421264772D-01  0.264909537318544D-08
- -0.156123173486656D+01  0.535947082097271D+00 -0.478666349758376D+00
-  0.173396316363155D+01 -0.784628932248629D+01  0.718723816095032D+00
- -0.397364306042869D-08  0.444444484180786D-01  0.264909537361913D-08
-  0.119123518124996D+00 -0.387065922619323D-01 -0.824537304271502D+00
- -0.115043149512601D+00 -0.180339187639772D+00  0.102758663257552D+01
- -0.243261986873229D-01  0.624929315770558D+00  0.110919156426631D+01
-  0.558781756831649D+00  0.226299853663827D+01 -0.182549752024414D+00
- -0.664074415893117D+00  0.799670471083497D+01 -0.133333331346512D+00
-  0.331136912595092D-09 -0.888888875643341D-01  0.806516731808247D-01
- -0.110656538858549D+00 -0.124886175555072D+01 -0.134867043210270D+01
-  0.406589131037251D+00  0.188059062834424D+01 -0.867691699560651D+01
-  0.133333331346512D+00  0.331136940784349D-09 -0.888888875643341D-01
- -0.446837230357815D+00 -0.415793552879218D+00  0.134418996259934D+01
-  0.884752204285450D-01 -0.993410737351597D-09 -0.344959496144324D+01
- -0.888888849152387D-01  0.133333327372868D+00 -0.162544846464945D+01
-  0.113631504327106D+00 -0.642953580271321D+01  0.171638103456580D+00
-  0.693025173843337D+00  0.425171591335518D+00  0.419984088536671D+01
-  0.159597177468720D+00 -0.217827632337289D+00 -0.133333327372868D+00
-  0.468520660835404D+00 -0.888888849152387D-01 -0.993410767709257D-09
- -0.107871931683788D+00  0.393709214352595D+00  0.303954744790505D+01
- -0.140324036385740D+01 -0.755177734050936D+00  0.331931134885178D+00
-  0.494368876238454D-01 -0.376055240105739D+00  0.115688017375263D+00
- -0.609201156204149D+00 -0.276281370900012D+00 -0.587316304228794D+00
-  0.845852572008626D+00  0.444444441132988D-01  0.629126035895282D-01
- -0.132454760354284D-08  0.624929315770662D+00 -0.202499150105952D-01
-  0.582253859953230D+00 -0.384448515276332D+01 -0.147693680470953D+01
-  0.587675308257842D+01 -0.340690946237216D+01  0.497604390795440D+00
- -0.198682139924272D-08 -0.132454759660394D-08  0.444444441132987D-01
-  0.753349233513832D+01 -0.216467279654764D+00 -0.463806235714752D-01
-  0.290814499252197D+00  0.198682139490591D-08 -0.460663263376404D-01
-  0.678128545178527D-01 -0.302331072544864D+00  0.633338328159747D-01
- -0.561034451020620D+00  0.321693553204508D+00 -0.229227430746341D+01
-  0.201650238077049D+00  0.108766602987130D+00 -0.662546191991905D+00
-  0.333333325054870D-01 -0.505266752284478D-01  0.264448505153735D+01
-  0.113631504327105D+00 -0.222222222222178D-01 -0.218354642620946D+00
-  0.512833648783024D+00  0.333333328366240D-01 -0.230919167679263D+01
- -0.134227464803389D+00  0.227587472534516D-01  0.468834918186738D+00
-  0.120113880693772D+00 -0.333333356512877D-01  0.242671867443053D+01
- -0.849207944958663D-01  0.258237556098453D-01 -0.463717297553246D+00
- -0.222222232156285D-01 -0.333333308498025D-01 -0.222222202353963D-01
- -0.333333311809394D-01  0.111330000457650D+01  0.127407688544362D+00
- -0.567495529922132D-01 -0.488899153467337D+01  0.592922793992127D+00
- -0.212009496684498D+01 -0.103098704097195D+00  0.410882050372797D+00
-  0.333333353201508D-01 -0.333333373069723D-01 -0.222222252024501D-01
-  0.333333369758354D-01 -0.655228140885567D+00 -0.352565655821033D+00
- -0.422365202574800D+00  0.108481343073878D+01  0.856436919181967D+00
- -0.106534204846928D+00  0.116098265976837D+00  0.294011406553181D+00
-  0.474902947932842D+00  0.231882484871139D-01  0.806180228578928D-01
- -0.108767794557486D+01 -0.346658999844642D-01  0.383204100935194D+00
- -0.131923478277314D+00  0.107179072709590D+00  0.552166981836915D-01
-  0.126561702935579D-02 -0.705905973114943D+00 -0.222222213943756D-01
-  0.470936043477270D-02  0.333333325054871D-01 -0.263959573118206D+00
- -0.333333323399186D-01  0.582253859953230D+00 -0.243261986873228D-01
-  0.105058028168514D+01 -0.359530937401378D+00 -0.222222223877863D-01
-  0.224959486021727D+01  0.171270340965989D+00  0.235394747215893D-01
- -0.602901864484731D+00 -0.108231966297819D+00 -0.333333331677609D-01
- -0.333333333333293D-01  0.503994799480388D+01 -0.333333331677609D-01
- -0.222222223877863D-01 -0.514660019612540D+01  0.463564824719576D+00
- -0.190753359123099D+01 -0.658645276134003D+00  0.333333323399185D-01
- -0.141570549041366D+00  0.224814472995647D+00  0.333333325054870D-01
- -0.222222213943755D-01  0.586557816344003D+00 -0.120562201076345D+00
-  0.155666525167499D+00  0.333333333333294D-01  0.123314669952793D-02
- -0.158888389406216D+00  0.112023760926788D+01 -0.875203891645083D+00
- -0.469526674856192D-01  0.286456921473146D+01  0.243439598770058D+00
-  0.468264018458427D+00 -0.118207321419780D+01 -0.603556669418792D+00
- -0.432602805779370D+00 -0.110390276344790D+00  0.140122366407556D+00
-  0.815005151508437D-01 -0.473582931632256D-02 -0.198682152674490D-08
-  0.133333333333333D+00 -0.333333323399186D-01  0.333333328366239D-01
-  0.000000000000000D+00 -0.333333308498025D-01 -0.133333327372868D+00
-  0.173472347597681D-16 -0.333333333333293D-01  0.397364305002035D-08
- -0.198682139924272D-08 -0.133333331346512D+00  0.444444421264772D-01
-  0.331136887007921D-09 -0.222222217255125D-01  0.333333330021924D-01
-  0.177777768505930D+00 -0.222222202353963D-01 -0.888888849152387D-01
-  0.132454761221645D-08 -0.333333331677609D-01  0.444444421264772D-01
- -0.132454759660394D-08  0.331136912595092D-09  0.132454768334012D-08
- -0.888888888888817D-01  0.333333321743501D-01 -0.222222217255125D-01
- -0.397364304481618D-08 -0.333333311809394D-01 -0.993410767709257D-09
-  0.177777776453216D+00 -0.222222223877863D-01  0.264909537318544D-08
-  0.444444441132987D-01 -0.888888875643341D-01  0.547691757016208D+01
-  0.840866876543180D+00  0.410882050372797D+00  0.718723816095032D+00
- -0.247647980677407D+00 -0.149008822635153D+00 -0.222951437543311D+01
- -0.873123333822443D+01 -0.442931670481088D+00  0.119594164651676D+01
-  0.104083408558608D-16  0.799213804592704D+01  0.583913611534666D+01
-  0.177777793672335D+00 -0.529819076285076D-08  0.105342825215717D+01
- -0.124886175555072D+01  0.224814472995647D+00  0.464628989704186D+01
-  0.487350993205397D+00 -0.102976713327304D+00 -0.219131054724629D+01
-  0.254032683111307D+01  0.177050448225041D+01  0.169148797456319D+01
- -0.106204486188697D+02  0.112275305590865D+02 -0.277555756156289D-16
-  0.132454776834157D-08  0.177777773804120D+00 -0.188059074878440D+01
- -0.130231456420771D+00 -0.103098704097208D+00 -0.478666349758377D+00
-  0.793683457321819D+00  0.445957218407780D+00 -0.159085864588725D+01
-  0.454367626381174D+01 -0.299986242745720D-01  0.742044924133045D+01
-  0.119594164651676D+01  0.397364307604120D-08  0.540809526881313D+01
-  0.444444484180786D-01  0.158772329870325D+01  0.264909538793059D-08
- -0.909695205981924D+01 -0.208252495741068D+01 -0.542723017629922D+00
-  0.115224975022063D+01 -0.397364309512316D-08 -0.465199752390382D+00
-  0.444444447755726D-01  0.264909538749691D-08  0.766380355906734D+00
-  0.104233502562613D+00 -0.141570549041353D+00 -0.110656538858549D+00
- -0.259589425693322D+00 -0.173396328407171D+01  0.785912175561460D+00
-  0.119444787793400D+00 -0.540536800120135D+00 -0.551131707023387D+00
-  0.169148797456319D+01  0.831887358358762D+00  0.553123396068515D+01
-  0.632523781181207D+01 -0.133333329359690D+00  0.331136957264222D-09
- -0.888888862397863D-01 -0.753646823066231D+00  0.705237651555212D-01
- -0.283107835040109D+00 -0.232141856272322D+01 -0.213951578277962D+01
-  0.706124908952773D+00  0.222322131694155D+01 -0.108156317984078D+02
-  0.133333329359690D+00  0.331136897416262D-09 -0.888888862397863D-01
-  0.282003816755967D+00  0.394660052523187D+01 -0.132454761742062D-08
-  0.127407688544362D+00 -0.478006838515967D+00  0.124759092935279D+01
- -0.888888968361676D-01  0.133333345254262D+00 -0.567187351142331D+01
-  0.524561588553198D+00 -0.189855407712972D+01  0.995905552136324D-01
-  0.930352901512941D+00 -0.574032743272033D+01  0.484715443801335D+01
- -0.587777022711510D+00  0.445957218407676D+00 -0.149008822635153D+00
-  0.132484978915420D+00 -0.133333345254262D+00  0.536323233067731D+00
- -0.888888968361676D-01 -0.132454770719256D-08 -0.414350872107661D+00
- -0.106123956245354D+00  0.133676441098479D+00  0.163142482730646D+01
- -0.204681625812361D+01 -0.949211163578710D+00  0.773611160098877D+00
-  0.368899186377984D+01 -0.664074415893221D+00 -0.658645276134003D+00
-  0.444444434510249D-01  0.494565119519829D+00  0.285332219470075D+00
- -0.132454778395408D-08  0.198682167940056D-08  0.192899517135313D+01
-  0.114089411222852D+01  0.406888423903396D+01 -0.650868181619403D+01
-  0.785912175561564D+00  0.487350993205396D+00 -0.186035017609278D+01
- -0.295235262092985D+01 -0.198682167506375D-08 -0.820998558146352D-01
-  0.688617925572267D+01 -0.132454778135199D-08  0.444444434510249D-01
-  0.146006506937816D+01 -0.196689898330498D+01 -0.158115483514764D+01
- -0.594415975365509D+00 -0.368671167712900D+00  0.473769529389503D+00
-  0.827450611865158D+00 -0.166889827681757D+00 -0.100679420048062D-01
- -0.132023769186375D+01 -0.567495529922133D-01  0.333333369758354D-01
- -0.732557875737165D-01  0.119123518124983D+00  0.530868217509935D+01
-  0.333333373069723D-01 -0.222222252024500D-01  0.995905552136326D-01
- -0.259398079822192D+00 -0.659463436101402D+00  0.474538016781102D+00
-  0.112464392781642D+01  0.372582724131352D+00 -0.222222232156285D-01
- -0.299986242745720D-01 -0.442931670481088D+00 -0.141604199364285D+00
-  0.154937012777016D+00 -0.333333353201508D-01  0.351916709543752D+01
- -0.333333356512877D-01 -0.202110844010772D+01 -0.333333326710555D-01
- -0.885457811237114D-01  0.141530771907980D+00 -0.564995681416887D+01
-  0.858345916164994D+00  0.786953162678205D-01  0.366574932479126D+00
- -0.117988719659578D+00  0.423689136498486D+00 -0.222222232156286D-01
-  0.917882173653942D-01 -0.222222212288071D-01 -0.333333343267401D-01
- -0.486124586454681D+00  0.208896555710803D-01  0.107222618616538D+01
-  0.333333339956032D-01 -0.287651116117095D-01 -0.129935476494820D+01
-  0.333333323399186D-01  0.499016572800232D-01 -0.397266762831855D+00
- -0.200365882951212D+01  0.115980283544894D+00  0.130972077082554D+00
-  0.772330300584241D+00  0.759798951149927D+00 -0.359455154830123D-01
- -0.242524378776151D+00 -0.131330008717238D+01  0.806516731808377D-01
- -0.120562201076345D+00 -0.222222210632386D-01 -0.202613738633737D+00
-  0.333333320087816D-01  0.114089411222852D+01 -0.140721707071360D+00
-  0.119444787793401D+00  0.669022083112497D+00  0.938263277079227D+00
- -0.102976713327304D+00 -0.333333318432131D-01 -0.333333326710555D-01
- -0.222222220566494D-01  0.447187387032863D+01  0.508197262392219D-01
-  0.390858409665715D+00 -0.399162603511228D+00 -0.333333328366239D-01
-  0.116284775600323D+01 -0.432285157867984D+00 -0.151698457066670D+00
-  0.721999061207110D+00  0.394749957038455D+01  0.135242065822533D+00
-  0.176470220504436D+00 -0.267900428552383D-01  0.333333318432131D-01
- -0.222222210632386D-01 -0.222670664908773D+00 -0.207809919924928D+01
-  0.306319470624003D+00  0.333333320087816D-01 -0.232290164226997D+00
- -0.153408224757545D+00  0.198112497582081D+00 -0.669095129756334D+01
- -0.222222220566494D-01 -0.877526274482035D+00 -0.333333326710555D-01
- -0.195443419445902D+01  0.333333328366240D-01  0.137580721492453D+01
- -0.181198314300497D+00  0.840761232048545D+00 -0.634336225674956D+00
-  0.709600562735565D+00  0.143327546655868D+00 -0.252524135568966D+00
-  0.741034379522268D-01 -0.306532587776528D-02  0.333333323399185D-01
- -0.397364306042869D-08 -0.333333373069723D-01  0.133333331346512D+00
- -0.333333353201508D-01 -0.133333345254262D+00 -0.333333328366239D-01
-  0.104083408558608D-16 -0.198682167506375D-08 -0.277555756156289D-16
-  0.397364307604120D-08 -0.133333329359690D+00  0.333333325054870D-01
-  0.444444484180786D-01 -0.222222252024501D-01  0.331136940784349D-09
- -0.132454778135199D-08 -0.222222232156285D-01 -0.888888968361676D-01
- -0.333333326710555D-01  0.177777793672335D+00  0.132454776834157D-08
-  0.444444484180786D-01  0.331136957264222D-09 -0.222222213943755D-01
-  0.264909537361913D-08  0.333333369758354D-01 -0.888888875643341D-01
- -0.132454770719256D-08  0.444444434510249D-01 -0.222222220566494D-01
- -0.529819076285076D-08 -0.333333356512877D-01  0.177777773804120D+00
-  0.264909538793059D-08 -0.888888862397863D-01  0.423689136498486D+00
-  0.761563202927111D+01  0.101143249375923D+01  0.115224975022063D+01
- -0.167200043314926D+01 -0.273852201506201D+01 -0.133449382110425D+00
- -0.737245278432540D+01  0.101864236798277D+01 -0.346944695195361D-16
- -0.396178696344065D+00  0.858012684994634D+01  0.959025789393452D+01
-  0.177777779102311D+00 -0.397364303093839D-08  0.954441734617675D+00
- -0.232141856272322D+01  0.135242065822533D+00  0.589695229068252D+01
-  0.649397537914988D+00  0.271073239602026D-01  0.452972530756716D+01
- -0.648381135562156D+00  0.345384995056737D+01 -0.270717608841210D+01
- -0.103290983566559D+02  0.747640875899693D+01 -0.346944695195361D-17
-  0.132454764691092D-08  0.177777771155025D+00 -0.117988719659591D+00
- -0.222322137219179D+01  0.270138778586796D-01 -0.542723017629922D+00
-  0.102704230186709D+00  0.492710192544803D+00 -0.292420037995801D+01
-  0.400322449088584D+01  0.712909863289586D+01  0.121249630740043D+00
-  0.101864236798277D+01  0.198682151893864D-08  0.637350760080841D+01
-  0.444444447755725D-01  0.132454766035503D-08 -0.746481680014119D+01
- -0.163712903262653D+01  0.109489232334286D+01 -0.414380880316877D+00
- -0.198682145041706D-08  0.444444447755723D-01  0.132454765211509D-08
- -0.151698457066657D+00 -0.283107835040109D+00 -0.332415839964426D-01
- -0.158772335395349D+01  0.915996212848967D+00 -0.542256555508969D+00
- -0.206836678810312D+01 -0.514159614376148D+01  0.345384995056737D+01
-  0.417245306056536D+01  0.134050209818525D+00  0.535982553597509D+01
- -0.133333327372868D+00  0.331136898717305D-09 -0.888888849152387D-01
- -0.140429681701127D+01 -0.769109348477209D+01 -0.173529083443687D+01
- -0.869603080639011D+01  0.133333327372868D+00  0.331136928641285D-09
- -0.888888849152387D-01  0.107284915676244D+01  0.549095140315283D+01
-  0.917882173653943D-01  0.491622126056909D+00  0.910160325069588D+00
- -0.465199752390278D+00 -0.912501451396370D-01 -0.888888888888816D-01
- -0.993410628064018D-09  0.404578562768682D+00 -0.120071689825918D+01
-  0.129606538983539D+00  0.133333333333333D+00 -0.255161909026096D+01
-  0.232722529233012D-01 -0.504128503276891D+01  0.772721248787944D+01
- -0.505981379589209D+00 -0.993410773780790D-09  0.492710192544699D+00
- -0.133449382110425D+00 -0.888888888888817D-01 -0.133333333333333D+00
-  0.125915205351494D+00 -0.369013838723050D+01 -0.511098809831665D+00
-  0.633544968209935D+00 -0.268881112448621D+01  0.123921092980365D+00
-  0.945111221358717D+00 -0.877526274482035D+00 -0.753646823066335D+00
-  0.444995691975835D+01  0.959385039595545D+00 -0.437550469648806D+00
-  0.101585833139350D+01  0.254552663213912D+00  0.444444427887510D-01
- -0.132454763476786D-08  0.245453159373691D+01 -0.269456846237088D+01
-  0.149115919735407D+01  0.649397537914989D+00  0.915996212849071D+00
- -0.628128129134113D+01 -0.152799979267386D+01 -0.116937091862737D+01
- -0.198682143133511D-08  0.198682142960038D-08 -0.132454761655326D-08
-  0.400612095794701D+01  0.444444427887510D-01  0.538609941714954D+00
-  0.592122771188090D+00 -0.788946755663227D-01 -0.280390889903947D+01
- -0.395399226425481D+00 -0.106521964617947D+00  0.105001265635947D+01
- -0.199551350139374D-01 -0.372791575371254D+00 -0.157580724509554D+01
- -0.287651116117095D-01 -0.106241938677284D+00  0.699289297721216D-01
-  0.104233502562600D+00  0.508128142564544D+01  0.232722529233012D-01
-  0.333333336644662D-01  0.196100400725321D-01 -0.222222227189232D-01
-  0.868366638186574D+00  0.164050943970788D+01  0.377790079057099D+00
-  0.333333338300347D-01 -0.222222217255124D-01  0.615719468337003D-01
- -0.120111561649531D+00  0.121249630740044D+00 -0.396178696344065D+00
- -0.983011292418258D-01 -0.333333328366239D-01  0.444150162780189D+01
- -0.333333330021923D-01 -0.699352082245538D-01 -0.392098060524354D+01
- -0.327236592586861D+00 -0.882876793077779D-01 -0.220983755864577D+00
- -0.333333338300346D-01 -0.174425350532793D+01  0.474508008571991D+00
-  0.613327019366521D-01 -0.222222227189231D-01  0.333333336644662D-01
- -0.367506120613991D+01  0.735282009587603D+00 -0.333333330021924D-01
- -0.177878455033449D+01 -0.222222217255124D-01 -0.566563085488164D+00
-  0.333333328366239D-01  0.129746958693083D+00  0.627683169579596D+00
-  0.705237651555342D-01 -0.127222621633639D+01 -0.153408224757545D+00
-  0.197305231452298D-01 -0.433047022325214D+00 -0.148118784269977D+00
-  0.515721950079393D-01 -0.222222207321017D-01  0.333333315120763D-01
- -0.542256555508969D+00  0.149115919735407D+01  0.271073239602027D-01
- -0.185032916550433D+00 -0.333333313465079D-01 -0.333333321743501D-01
- -0.154894584139558D+01  0.384128516707323D+01 -0.222222217255124D-01
-  0.172420023004146D+01  0.167185536635779D+01  0.524902296777792D-01
- -0.116082339076358D+00 -0.515407928122501D+00 -0.333333323399185D-01
- -0.317255869381206D+01  0.782366924270920D+00  0.302516502625603D+01
- -0.242177357236128D+00 -0.297018959392734D+01 -0.348397715067372D+00
- -0.333333321743501D-01 -0.540717126929495D+01 -0.184241526740184D+01
-  0.739705924895235D+00  0.333333313465078D-01  0.333333315120763D-01
- -0.222222207321017D-01  0.243187436306396D-01 -0.222222217255124D-01
- -0.112304410145275D+01 -0.193285318290017D+01  0.333333323399185D-01
-  0.314879509945917D+00  0.785889980819701D+00  0.333333318432131D-01
- -0.397364309512316D-08 -0.333333343267401D-01  0.133333329359690D+00
- -0.346944695195361D-16 -0.133333333333333D+00 -0.333333328366239D-01
- -0.346944695195361D-17  0.198682151893864D-08 -0.198682143133511D-08
- -0.333333323399185D-01 -0.133333327372868D+00 -0.222222232156286D-01
-  0.444444447755726D-01  0.333333320087816D-01  0.331136897416262D-09
- -0.132454761655326D-08 -0.888888888888817D-01 -0.222222217255124D-01
-  0.177777779102311D+00  0.132454764691092D-08  0.444444447755725D-01
- -0.333333321743501D-01  0.331136898717305D-09 -0.222222210632386D-01
-  0.264909538749691D-08  0.333333339956032D-01 -0.888888862397863D-01
-  0.444444427887510D-01 -0.993410773780790D-09 -0.333333330021923D-01
- -0.397364303093839D-08  0.177777771155025D+00  0.132454766035503D-08
- -0.888888849152387D-01 -0.222222217255124D-01  0.474508008571991D+00
-  0.549603115043779D+01  0.109489232334286D+01  0.775748606093146D+00
-  0.102317861605054D+01 -0.475463856131364D+00  0.116032808527779D+02
-  0.530225116863581D+01  0.000000000000000D+00  0.177777779102311D+00
- -0.132454767987067D-08 -0.769109348477209D+01  0.426481714418887D+01
- -0.515407928122501D+00  0.677586844019236D+00  0.148985830612404D+02
-  0.239371234512323D+01 -0.445225335511961D+00  0.546338574559203D+01
-  0.000000000000000D+00  0.132454768680956D-08  0.177777768505930D+00
-  0.420717143394476D+01  0.668624173128187D+00 -0.882876793077780D-01
- -0.414380880316773D+00  0.322325803400600D+00  0.234419056717250D+00
- -0.331136869660686D-09 -0.888888888888816D-01 -0.924752635291079D-01
- -0.275477498510445D+01 -0.475463856131364D+00 -0.199291814083953D+01
- -0.974455795118647D+00  0.133333333333333D+00  0.111740122860278D+02
- -0.586750186697477D+01 -0.133333333333333D+00 -0.888888888888816D-01
- -0.331137062214992D-09 -0.199032237350768D+00  0.147894697878826D+01
-  0.149429467419976D+00 -0.140429681701137D+01  0.570462371317845D+00
-  0.272098076989334D+01 -0.297018959392733D+01  0.803504771334800D-01
- -0.234155212563880D+00  0.825906546613885D+01  0.444444421264772D-01
-  0.239371234512323D+01 -0.408254410118253D-01  0.200976628467192D+01
- -0.132454769027901D-08 -0.422317893666696D+01 -0.631206866608596D+01
-  0.926572877237265D-01 -0.198682152587754D-08  0.559321180652151D+00
- -0.132454769158005D-08  0.444444421264772D-01  0.198682153368379D-08
-  0.211288683307619D+01 -0.960352655669676D+00 -0.198682145041706D-08
-  0.133333327372868D+00 -0.333333338300346D-01  0.333333313465078D-01
-  0.000000000000000D+00  0.000000000000000D+00 -0.133333333333333D+00
- -0.198682152587754D-08  0.444444447755723D-01  0.331136928641285D-09
- -0.222222227189231D-01  0.333333315120763D-01  0.177777779102311D+00
-  0.132454768680956D-08 -0.888888888888816D-01 -0.132454769158005D-08
-  0.132454765211509D-08 -0.888888849152387D-01  0.333333336644662D-01
- -0.222222207321017D-01 -0.132454767987067D-08  0.177777768505930D+00
- -0.331137062214992D-09  0.444444421264772D-01 -0.425162129811461D+01
-  0.118394094975933D-01 -0.112321031533223D+01  0.479245522576028D+00
- -0.263264846556398D+01 -0.198600181132681D-01 -0.240448788744703D-01
- -0.485256752070000D+00 -0.104955419622130D+00 -0.404135699318160D-01
-  0.672100158502359D+01 -0.114296326385516D+00 -0.173472347597681D-16
-  0.177777771155025D+00 -0.132454768507484D-08 -0.185148113698645D+00
- -0.198473181654453D+01  0.423688032668103D+00 -0.102859612050266D+01
- -0.579507771633511D+00 -0.454635806276867D+00 -0.330498728900993D+01
-  0.127860557307037D+00 -0.752404260750512D+00  0.199639151096379D+01
- -0.342998609548090D+01  0.103456650839143D+02  0.173472347597681D-16
-  0.397364287307855D-08  0.177777779102311D+00 -0.811383652536232D+00
- -0.409643366312839D+00 -0.305888154980114D+01  0.117858177762113D+00
-  0.132454768334012D-08  0.692864267160352D+00 -0.134227464803402D+00
- -0.156427105838682D+01  0.444444427887511D-01  0.468520660835508D+00
- -0.518268518372255D-01 -0.198682151980600D-08  0.160314152323305D+01
-  0.244456122742549D+00 -0.151406782767388D+00 -0.155709914056561D+00
-  0.104987073675907D+00 -0.150615619801660D+00 -0.486530860217642D+01
-  0.338645695805710D+01  0.403632136818868D+00  0.142660115676866D+01
- -0.240448788744703D-01  0.198682150072405D-08  0.444444427887511D-01
-  0.132454766469184D-08 -0.116059722986961D+00 -0.481477384505177D+00
-  0.312643468211198D-01  0.142043556455342D+00 -0.465200856220661D+00
- -0.716769510688564D+00 -0.276030450187728D+00 -0.163914217988942D+01
- -0.888888888888816D-01 -0.108231966297806D+00  0.290814499252094D+00
-  0.551687972379921D+00  0.993410667962658D-09 -0.146037588194398D+01
- -0.421632356996647D+00 -0.571307552878033D+01  0.309381117255253D+00
-  0.133333333333333D+00 -0.263146967977897D+01 -0.567351749770050D+00
- -0.107708682272276D+01 -0.549736455371064D+00 -0.454635806276867D+00
-  0.318161474375821D+01  0.119511501512867D+00 -0.133333333333333D+00
-  0.392176764390238D+00  0.834687649961031D+01  0.993410749060980D-09
- -0.888888888888816D-01  0.125185181502770D+00  0.118982020954892D+01
- -0.250427323871331D+00  0.671440671014442D-02  0.778425219676583D+00
-  0.714352818762720D-02  0.377307362097035D+00 -0.109608305227712D+00
- -0.675485231699222D+00 -0.145884339156301D+01  0.403632136818764D+00
- -0.145854867569566D+00 -0.331136940784349D-09 -0.888888862397863D-01
- -0.124506025562216D-01 -0.519639129628056D+01 -0.130854535810636D+00
-  0.262608890153612D+00  0.581806359543980D+01  0.133333329359690D+00
- -0.404135699318160D-01 -0.490619730184249D+00 -0.133333329359690D+00
- -0.888888862397864D-01 -0.331136919100306D-09 -0.875829725192517D-01
- -0.608079667474568D+00  0.588016859123586D+00  0.124981807584337D+00
-  0.444149475730982D-01  0.234388081691361D+00  0.219699426129060D+00
- -0.721561778598661D-01  0.383390324611437D+00  0.309381117255357D+00
- -0.510089733803958D+00 -0.131112274991533D+01 -0.138580910251387D+01
-  0.397364285226187D-08 -0.289486525189497D+01 -0.264909524524959D-08
- -0.582736791328572D+00  0.444444484180786D-01  0.283199728527914D+00
-  0.267661026851792D+01 -0.752404260750511D+00  0.172212425389327D+00
-  0.369746654864430D+00  0.591526948627296D+01 -0.309504436569464D+01
- -0.397364288435426D-08 -0.264909526606627D-08  0.444444447755725D-01
- -0.774749548597248D+00 -0.197636602246534D-01 -0.972759809590711D+00
-  0.233271664495450D+00  0.112613916994479D+00  0.946292811314786D-02
-  0.747983465581818D+00 -0.333333320087816D-01  0.333333326710555D-01
- -0.222333192014622D+00 -0.107871931683801D+00 -0.333333328366240D-01
-  0.549800617385719D+00  0.258237556098453D-01 -0.222222220566494D-01
- -0.438161464533453D+01 -0.155709914056561D+00 -0.595899727998587D+00
-  0.185808870594234D+00  0.407411504383690D+00 -0.182051494122913D+01
- -0.119452726395267D+01 -0.222222210632386D-01 -0.145854867569566D+00
-  0.304360279923106D+01 -0.159240768780667D+01 -0.485256752070000D+00
-  0.857492615744549D+00 -0.333333318432132D-01 -0.222222210632386D-01
- -0.333333320087816D-01  0.372027822483952D+00  0.333333318432132D-01
-  0.150636635899271D+00 -0.801786657668491D-01 -0.146705202569846D+00
- -0.488224693090442D+00  0.128677370601477D+00  0.255380952720254D+01
-  0.333333326710555D-01  0.108127124836912D+00  0.398269158704515D+00
- -0.920806433461676D+00 -0.942032513038794D-01 -0.182926759628323D+00
-  0.472051521978489D+00  0.333333328366240D-01 -0.222222220566494D-01
- -0.276020349785081D+00 -0.972404146378543D-01  0.784818886992528D-01
- -0.131766723926720D+00  0.133357376028802D+00  0.113593358706991D+00
- -0.488141834303370D-01  0.150066044362325D+00  0.239354641911013D+00
-  0.265096974705119D+00  0.174415695835630D+00 -0.222222252024500D-01
- -0.222222212288071D-01  0.235394747215893D-01  0.551160970068244D+00
- -0.421632356996647D+00 -0.463806235714623D-01 -0.186780547540895D+00
-  0.333333326710555D-01 -0.171279125105012D+01  0.333333323399186D-01
- -0.510089733803957D+00 -0.166318483524446D+01 -0.280314142480936D+01
- -0.333333369758353D-01 -0.970370407194208D-01  0.339152433517699D+00
- -0.579507771633511D+00 -0.471911389978100D+00 -0.221594991158774D+01
-  0.723124993336279D+00 -0.524515000220412D+00  0.442306386861981D+01
- -0.402577036882690D+00 -0.104680668853237D+01 -0.333333343267400D-01
- -0.333333339956031D-01 -0.222222232156285D-01  0.333333373069722D-01
-  0.588604355502860D-01  0.378533938335545D+00 -0.441596124277721D+00
-  0.183989123612121D+00 -0.222222232156285D-01 -0.559469317658593D+00
-  0.333333356512877D-01  0.379080085746023D+01  0.492642433202913D+00
- -0.500097968328641D-01  0.306152097560296D+00  0.124309545814731D+00
- -0.333333353201508D-01 -0.263839572218119D-01  0.243532932644189D+00
- -0.114973947644501D+01  0.187816712173534D+00 -0.486855117270080D-01
- -0.414911650465495D-01  0.124592545453576D+00  0.133333327372868D+00
-  0.198682138796702D-08  0.333333323399186D-01 -0.333333328366240D-01
- -0.133333333333333D+00 -0.333333318432132D-01  0.198682150072405D-08
- -0.333333343267400D-01 -0.133333329359690D+00 -0.397364288435426D-08
- -0.173472347597681D-16  0.173472347597681D-16 -0.888888849152387D-01
- -0.132454760007339D-08 -0.222222217255124D-01  0.333333330021924D-01
-  0.993410749060980D-09 -0.222222210632386D-01  0.444444427887511D-01
- -0.333333339956031D-01 -0.888888862397864D-01 -0.264909526606627D-08
-  0.177777771155025D+00  0.397364287307855D-08 -0.331136904355156D-09
-  0.444444447755726D-01  0.333333321743501D-01 -0.222222217255125D-01
- -0.888888888888816D-01 -0.333333320087816D-01  0.132454766469184D-08
- -0.222222232156285D-01 -0.331136919100306D-09  0.444444447755725D-01
- -0.132454768507484D-08  0.177777779102311D+00 -0.637847692240813D+00
- -0.420368228053360D+00  0.171638103456580D+00 -0.907675289991756D+01
- -0.211724697286606D+01  0.251307534219453D+01 -0.518268518372256D-01
- -0.397364303093839D-08  0.512833648783024D+00  0.596518191648480D+00
-  0.177777771155025D+00  0.138777878078145D-16 -0.790990076130162D+00
-  0.407411504383690D+00 -0.804216939709877D+01  0.567954602662848D+01
- -0.180700499133748D+00 -0.369385701635676D+00 -0.531141279800184D+00
- -0.732304877635355D-01  0.407755238724770D+01 -0.598074389636670D+00
-  0.586557816344003D+00 -0.533952582025351D+00 -0.192310361036289D+01
-  0.339152433517699D+00  0.753848297633144D+00 -0.460663263376404D-01
-  0.599040864355010D+00 -0.623954726524419D+01 -0.225185139417485D+00
- -0.395448709123959D+00 -0.838061207852757D+01  0.853180943613421D+01
- -0.672268377829923D-01 -0.107708682272276D+01  0.166530841559062D+01
- -0.191218411410870D+01  0.129891142909683D+02  0.000000000000000D+00
-  0.397364284358825D-08  0.177777776453216D+00  0.380051875518657D+00
-  0.879947574188021D-01 -0.505632200423869D+00 -0.376055240105843D+00
-  0.294011406553181D+00 -0.118982017573491D+01 -0.406456933389332D+01
-  0.312643468211198D-01  0.444444427887511D-01  0.264909532634791D-08
- -0.389791667627707D+00  0.397364300231545D-08 -0.732304877635356D-01
-  0.264909535974134D-08 -0.801786657668622D-01 -0.252673176409294D+01
-  0.444444484180785D-01 -0.397364303267311D-08  0.518061193912238D+01
-  0.536323233067835D+00 -0.141604199364298D+00 -0.797944635841938D-01
-  0.732495966733377D+00  0.110209946962988D+00  0.357747609088683D+00
- -0.108188620874921D+02 -0.371011919487815D+00  0.122487014449135D+01
-  0.282611522170342D+01  0.287144317871267D+01 -0.413564865918470D+00
- -0.386764424343496D+00 -0.556271858491239D+00  0.250406117582306D+01
-  0.169156691171298D+00  0.167487347920284D+00  0.113990255924372D+00
-  0.238875598950756D+00  0.123314669952801D-02 -0.302331072544760D+00
- -0.311488917393553D+00 -0.228481354990065D+01 -0.888888875643340D-01
-  0.119511501512867D+00 -0.142660112295464D+01  0.285332219469971D+00
-  0.993410865721134D-09  0.133333331346511D+00 -0.231425762406756D+01
- -0.140721707071347D+00 -0.113691568521518D+02  0.945947002134675D+00
-  0.599040864355010D+00 -0.524159290035977D+00 -0.970370407194078D-01
-  0.592731443044341D+00 -0.123532520063599D+00  0.484216925769359D+01
-  0.133834389856045D+01  0.252839992502306D+01 -0.133333331346511D+00
-  0.493440179764805D+00  0.186577499401089D+00 -0.401377246616303D+00
-  0.993410729545341D-09 -0.888888875643340D-01  0.422040644133628D+01
-  0.877857057106284D-01 -0.332816553827597D+00  0.886189002730940D+01
- -0.352196185892674D+00  0.485539162057811D-01  0.131411319675311D+00
-  0.114350290538390D+00  0.229227427581490D+01  0.494368876238454D-01
- -0.107338109004255D+01  0.765936147357820D+00 -0.993410755999874D-09
- -0.106534204846915D+00 -0.481477384505073D+00  0.101594968555525D+01
- -0.888888862397863D-01 -0.133333329359690D+00 -0.369385701635676D+00
- -0.117318093014662D+02 -0.993410808475259D-09 -0.146705202569846D+00
- -0.240501056574601D+01 -0.888888862397864D-01 -0.285246580843944D+01
-  0.357747609088579D+00 -0.174408071232016D+01  0.804747424053626D+01
- -0.368004255994201D+00  0.400664195798322D+00  0.446123069011110D+01
-  0.133333329359690D+00  0.822521013436584D+00 -0.558766288990586D+00
- -0.485421922465340D+00  0.203296888026312D+00 -0.129443203144652D+00
- -0.888648461933887D-01 -0.257004178113618D+01 -0.174567140063980D+00
-  0.412432587227112D+00  0.173010465823415D+00  0.175841598650729D+00
-  0.132771690570367D+00 -0.158888389406229D+00  0.678128545178527D-01
-  0.140324033220889D+01 -0.549736455371168D+00 -0.916051063530747D+00
- -0.225185139417485D+00  0.755698544153250D+00 -0.471911389978100D+00
-  0.493440179764908D+00  0.392407461774173D+00 -0.887954589196047D+01
- -0.264909522096346D-08  0.444444484180785D-01  0.444444441132987D-01
- -0.229153681167692D+01  0.236469671618816D+00 -0.941767029484520D+00
- -0.397364280976115D-08 -0.264909520188150D-08  0.898383098307391D+00
- -0.332161479023047D+01  0.329419571230274D+00 -0.211174973319339D+00
-  0.397364285226187D-08  0.366994892826570D+00  0.108561949120212D+02
-  0.727210242002255D+01 -0.382213304084324D+00 -0.463620124688396D-01
-  0.219414204543658D+00 -0.344055100486565D-01  0.892590561435330D-01
- -0.168311739425748D+00 -0.311151405373872D+01 -0.756971062883266D-01
- -0.297317999456992D-01  0.116397834068877D-01  0.115688017375276D+00
-  0.231882484871139D-01  0.982073244716091D+00  0.583760654546956D+00
-  0.142043556455329D+00 -0.333333316776447D-01 -0.222222205665332D-01
-  0.128677370601477D+00 -0.578533885589489D+00 -0.333333313465078D-01
-  0.333333369758355D-01 -0.531141279800184D+00 -0.999439829402572D+00
-  0.212161457878155D+01 -0.222222252024501D-01  0.927749291977006D+00
- -0.333333373069724D-01  0.333333330021925D-01 -0.542040657537733D+01
-  0.332617030397629D+00 -0.333333356512877D-01 -0.106123956245367D+00
- -0.243136888481025D+00  0.208896555710803D-01 -0.222222225533548D-01
- -0.530655310508923D-01 -0.264930116198176D+01 -0.397574830293913D+00
- -0.386764424343496D+00 -0.368004255994201D+00 -0.525275209846799D+00
- -0.715855863229065D-01  0.333333353201507D-01  0.153790381531611D+01
- -0.371869050227689D+01 -0.222222232156285D-01  0.333333333333294D-01
- -0.557394493655895D+00  0.750387444382460D+00 -0.148293102245951D+01
-  0.330122599898177D+00  0.282975459445180D+01 -0.263665187512039D-01
-  0.205884923084950D+00 -0.434370107122116D+00  0.133038752476655D+00
-  0.674137212520742D-02  0.401767877946480D+01 -0.284084681130252D+00
- -0.492117563987754D-01  0.165047827973225D+00 -0.132026261315594D+01
-  0.166532616487198D+00  0.845501533555739D-01 -0.916003940632672D-01
-  0.228041076115228D+00  0.747299155659797D+00 -0.588011456901906D-01
-  0.201580443841372D-01 -0.320160808339552D-01 -0.401444667816533D-01
-  0.633338328159618D-01 -0.469526674856192D-01  0.140220172621773D-02
-  0.125185181502783D+00  0.455228171403854D+00 -0.222222208976701D-01
-  0.449393053662585D+00  0.588604355502860D-01  0.333333321743501D-01
- -0.820998558146221D-01  0.921110339323007D+00 -0.572027769737896D+00
- -0.395448709123959D+00  0.508197262392219D-01  0.333333318432132D-01
-  0.186577499401090D+00 -0.885966168051816D+00 -0.333333338300347D-01
- -0.333333334988978D-01 -0.256855275054981D+01 -0.221603680753605D+00
- -0.222222232156285D-01  0.670685777337535D+00  0.487511642272460D+00
-  0.236469671618816D+00  0.333333356512877D-01 -0.402611535574447D+01
- -0.222222252024501D-01  0.144106315614838D+00 -0.979126764074731D-01
-  0.764353298477882D+00  0.165246559699052D+01 -0.333333369758354D-01
-  0.333333373069723D-01 -0.222222228844917D-01 -0.432295882670646D+01
- -0.651831920123991D+00  0.103039434664539D+00 -0.333333353201507D-01
- -0.173668306016410D+00 -0.404975923506884D+00  0.506675584804543D+00
-  0.879065183697678D+00  0.558085098534979D+01  0.205019878773646D+00
-  0.170160191945744D+01  0.463691207327708D+01  0.140643905089949D-01
-  0.144037945018135D+00 -0.132963166078658D+00 -0.235203074233210D-01
- -0.130004464389170D+00 -0.277829305327289D+00 -0.543504983333440D-01
-  0.454422647450244D-01  0.617971431833996D-01 -0.171993540945636D+01
-  0.296450845070885D-01 -0.252349852518846D+00  0.919105195493865D-02
-  0.333333313465078D-01  0.333333328366240D-01 -0.333333323399186D-01
-  0.333333338300347D-01 -0.333333328366240D-01  0.333333323399186D-01
- -0.133333329359690D+00  0.397364300231545D-08  0.133333327372868D+00
-  0.198682139490591D-08 -0.333333313465078D-01 -0.133333331346511D+00
- -0.397364280976115D-08 -0.333333338300347D-01 -0.198682151980600D-08
-  0.133333333333333D+00  0.138777878078145D-16  0.000000000000000D+00
- -0.222222207321017D-01 -0.222222222222178D-01 -0.222222220566494D-01
-  0.333333326710555D-01 -0.333333336644662D-01  0.333333325054871D-01
- -0.264909520188150D-08 -0.888888862397863D-01  0.993410729545341D-09
-  0.444444427887511D-01 -0.222222205665332D-01 -0.888888849152387D-01
- -0.132454760354284D-08 -0.333333334988978D-01  0.444444427887511D-01
-  0.993410667962658D-09  0.177777771155025D+00  0.397364284358825D-08
- -0.333333315120763D-01  0.333333326710555D-01 -0.222222212288071D-01
- -0.993410755999874D-09  0.264909532634791D-08  0.444444441132987D-01
- -0.888888875643340D-01  0.333333325054870D-01 -0.222222213943756D-01
- -0.222222227189232D-01 -0.222222228844917D-01 -0.333333316776447D-01
- -0.993410737351597D-09  0.444444441132988D-01  0.132454768334012D-08
- -0.888888888888816D-01 -0.397364303093839D-08  0.177777776453216D+00
- -0.191462743465042D+00 -0.352565655821033D+00  0.150188607550390D+01
- -0.105450155189860D+01 -0.200492997564839D+01 -0.726888483905449D+01
-  0.177777793672335D+00  0.332617030397629D+00  0.524561588553197D+00
- -0.529819077152438D-08  0.292576478054932D+01  0.816915742661383D+01
- -0.211975952914140D+01 -0.797944635841938D-01 -0.346944695195361D-17
-  0.474538016781102D+00 -0.564799342691129D+00 -0.361045260689474D+00
- -0.116971146661822D+02 -0.153798747238113D+01  0.642874417479947D+01
-  0.721999061207110D+00 -0.192501261473416D+01  0.514941362684946D+01
- -0.603556669418792D+00  0.487511642272460D+00  0.210113104647326D-01
- -0.133775079932372D+02  0.100091509377838D+01 -0.156659590216826D+01
-  0.158263448693585D+01  0.473769529389504D+00 -0.483142542732699D+01
-  0.153231732721258D+01 -0.123532520063599D+00 -0.237282854703943D+00
-  0.761886266195414D+01  0.563513885155806D+01  0.106379224962296D+02
-  0.312250225675825D-16  0.397364333624972D-08  0.177777773804120D+00
-  0.898937495509293D-01  0.806180228579058D-01  0.900232344340464D+00
- -0.337352418982803D+00 -0.414350872107765D+00  0.324089546197738D+00
- -0.530655310509053D-01 -0.361045260689474D+00  0.141530771907980D+00
-  0.595793273317104D+00 -0.252840004530215D+01  0.397364303007103D-08
- -0.117321018417260D+01  0.110209946962988D+00  0.264909536407815D-08
-  0.444444484180786D-01  0.101775086151473D+02 -0.125912499697404D+01
-  0.264909532504687D-08 -0.202605172162352D+01 -0.456312060821122D+00
-  0.444444441132986D-01  0.491622126057013D+00 -0.317775443735883D+00
-  0.313602818606356D+00 -0.116066607583479D+02 -0.106241938677297D+00
- -0.397364297022307D-08  0.130683794691020D+00  0.220034280939860D+01
- -0.155731595279106D+01 -0.571065995903285D+00  0.517530775939312D+01
- -0.874449487876097D+00  0.138912892478490D+00  0.718479544147233D+00
-  0.198112497582081D+00  0.993545379203553D-01  0.815005151508307D-01
- -0.173668306016397D+00  0.567184942871054D+00 -0.498707526142071D-01
-  0.651606034184820D+00 -0.888888862397863D-01  0.993410773780790D-09
-  0.254552663213808D+00 -0.197682700709756D+01 -0.148118784269964D+00
- -0.417054086027728D+00  0.980149619159098D+00 -0.166889827681653D+00
-  0.655802534750844D+01  0.994182095186336D-02  0.133333329359690D+00
-  0.263404411979464D+00  0.295091394781560D+01 -0.352196185892674D+00
- -0.133426245194189D+02  0.153231732721258D+01  0.277986144767686D+01
- -0.250406129610216D+01  0.526680735778048D+00 -0.133333329359690D+00
- -0.383418411353389D+00 -0.970777182754570D-01  0.675343632359990D+00
- -0.161359768412204D+01 -0.445858547199701D+00  0.849711528809217D+01
-  0.492689796501686D-01  0.993410817582557D-09 -0.888888862397862D-01
- -0.134930711781039D+00  0.116098265976824D+00 -0.132454771456514D-08
-  0.158115495624468D+01  0.132484978915420D+00 -0.888888968361676D-01
- -0.132454773364710D-08 -0.888888968361676D-01  0.312295899094372D+01
- -0.327510689807464D+01  0.765618473426404D+00 -0.105450155189860D+01
-  0.133333345254262D+00 -0.133333345254262D+00 -0.397574830293913D+00
- -0.702282898331189D+00  0.331494395232868D+00 -0.733850101350089D+00
- -0.834941422647287D+01 -0.885457811236984D-01 -0.556271858491135D+00
-  0.172296842151375D+01  0.385595734157980D+01 -0.425964830256745D+00
-  0.564643787918613D+01  0.324089546197634D+00 -0.547241254734126D+00
- -0.163385162177120D+01 -0.373390895427162D+00  0.507445442497070D+00
- -0.556896057349923D-01 -0.403685541832169D+01 -0.153128110803553D+01
-  0.179783073411023D+00 -0.145630099586026D+01  0.304922280248741D+00
-  0.444444484180785D-01 -0.232290164227010D+00  0.819457902013101D+00
- -0.264909551586645D-08  0.140122366407569D+00  0.144106315614838D+00
-  0.397364327553440D-08 -0.141569641255454D+00 -0.166245995221725D+01
- -0.368671167712900D+00  0.593557458218600D+01  0.105070153141187D+01
-  0.251869066651415D+01 -0.502631781310552D+01  0.403759757057724D+01
-  0.949211284675752D+00  0.608689563453121D+01  0.651606034184924D+00
-  0.185237448089330D+01  0.100091509377838D+01  0.483912965381983D+00
- -0.653101789259215D+00 -0.192102745775209D+01 -0.149507193798426D+01
- -0.397364335359696D-08  0.865293126249687D+00 -0.401377246616407D+00
- -0.160425079038791D+00 -0.612576538017273D+01 -0.336141026188192D+00
-  0.363057570605818D+00 -0.264909556357135D-08 -0.591501266397243D+00
- -0.221237571970387D+00  0.125497561343046D-01  0.444444434510249D-01
-  0.437236108517286D-01 -0.346658999844642D-01 -0.494117306240847D+00
- -0.333333356512877D-01  0.133676441098492D+00 -0.564799342691129D+00
-  0.226707179410758D-01 -0.333333353201508D-01  0.245547647677047D+00
-  0.169156691171285D+00 -0.456312060821122D+00 -0.222222232156285D-01
-  0.499929243136343D+00  0.786953162678205D-01  0.382631799218523D+01
- -0.107906522482333D+01  0.205884923084950D+00 -0.425964830256745D+00
-  0.333333369758354D-01 -0.222222252024501D-01  0.333333373069724D-01
-  0.333333334988978D-01 -0.222222228844917D-01 -0.571743942489530D-01
-  0.499666693576806D+00  0.341647634154637D+00 -0.384130358764858D+00
-  0.317822892985582D+00 -0.166257432624698D+01  0.770883799949525D+00
- -0.120994203255043D+01 -0.333333338300347D-01 -0.118238861520499D+00
- -0.912501451396499D-01 -0.833093297437013D-01  0.196100400725321D-01
- -0.165249658871685D+01  0.184504996510970D+00 -0.409447090806753D+00
- -0.424391488111677D-01 -0.420824333590487D+00 -0.414349528583838D+01
- -0.333333321743501D-01 -0.104655971711330D+01  0.993814656073231D-01
- -0.324559013464620D-02 -0.514223640574961D-01 -0.222222208976701D-01
-  0.333333318432132D-01 -0.528968154646298D+00  0.268174517703008D+00
- -0.159180307460326D+01  0.371742858246158D+01  0.203571422225887D+00
-  0.197017922266721D+00  0.183979368290641D+00  0.332801421189609D+00
-  0.703426452089189D+00 -0.111291974947365D-01  0.740868371721165D+00
- -0.526185859315474D-01 -0.170728413245503D+00 -0.181198314300497D+00
- -0.473582931632256D-02 -0.249901604247721D+00  0.333333356512876D-01
-  0.652568127842521D-01 -0.252349852518846D+00 -0.325550723722474D+00
- -0.333333353201506D-01 -0.100679420048192D-01 -0.222222232156284D-01
-  0.283685559740141D+01  0.535875969591892D+00 -0.788946755663097D-01
- -0.128238613346260D+00  0.865293126249688D+00 -0.440277854474566D+00
- -0.947299196785447D+00  0.524902296777792D-01 -0.222222205665332D-01
-  0.526680735778048D+00  0.839314709889928D+00 -0.492200846034705D+00
-  0.333333316776447D-01  0.485539162057940D-01 -0.176779957477179D+00
-  0.165846005467391D+00  0.667651316918479D+00  0.374923808434962D+01
- -0.237282854703943D+00  0.333333313465078D-01  0.471320813349215D+00
- -0.170877822732950D+01  0.874604613997190D-01 -0.222222252024500D-01
-  0.333333373069722D-01 -0.520171288675197D+01 -0.333333369758353D-01
-  0.505470477535374D+00 -0.172953242572022D+00  0.209189695796673D+01
-  0.202339906674344D+00  0.647466075104831D-01 -0.333333333333294D-01
-  0.108868512353013D+00  0.141369063199826D+00  0.671289980862755D-02
- -0.156574226298707D+01 -0.238097655403143D+00  0.102388645768110D+01
- -0.298304728228366D+00 -0.222222225533548D-01 -0.333333330021925D-01
- -0.209672466087886D+00  0.561829606985232D+00 -0.277933030180474D+00
- -0.375543964685361D+00  0.531113540062928D-01  0.388368029138561D+00
-  0.697212740550026D+00 -0.166931589158914D+00  0.714445630022238D-01
-  0.584458045916157D-02  0.333333373069723D-01 -0.333333318432131D-01
- -0.333333373069724D-01 -0.397364335359696D-08  0.333333353201508D-01
- -0.133333329359690D+00  0.333333318432132D-01 -0.133333345254262D+00
-  0.333333333333294D-01  0.397364303007103D-08 -0.333333333333294D-01
-  0.198682167940056D-08  0.133333345254262D+00 -0.333333353201508D-01
- -0.346944695195361D-17 -0.397364303267311D-08  0.133333331346511D+00
-  0.312250225675825D-16 -0.222222252024500D-01  0.333333320087816D-01
- -0.222222252024501D-01  0.333333321743501D-01 -0.264909556357135D-08
-  0.993410817582557D-09 -0.888888968361676D-01  0.444444484180786D-01
- -0.222222232156285D-01 -0.333333330021925D-01 -0.333333331677609D-01
- -0.888888968361676D-01 -0.222222232156285D-01 -0.132454778395408D-08
-  0.993410865721134D-09  0.177777793672335D+00  0.444444484180785D-01
-  0.397364333624972D-08  0.333333369758355D-01  0.333333369758354D-01
- -0.222222210632386D-01 -0.222222208976701D-01  0.444444434510249D-01
- -0.888888862397862D-01 -0.132454773364710D-08 -0.222222225533548D-01
- -0.333333356512877D-01  0.264909536407815D-08 -0.333333356512877D-01
- -0.222222223877863D-01 -0.132454761742062D-08  0.444444434510249D-01
- -0.529819077152438D-08  0.264909535974134D-08 -0.888888875643340D-01
-  0.177777773804120D+00  0.887767552167478D+00 -0.397266762831855D+00
-  0.317822892985582D+00 -0.317775443735883D+00  0.642111560339127D+00
-  0.129606538983539D+00 -0.505431723628251D+00  0.177777776453216D+00
- -0.201464314813875D+01 -0.397364308471482D-08 -0.381639164714898D-16
- -0.881633748559692D+00 -0.633267408073233D+00  0.101426246615973D+02
- -0.565957700476335D+01  0.377790079057098D+00 -0.429030012494667D+00
- -0.265270408188446D+01 -0.957951683865152D+01 -0.204959687344480D+00
-  0.111300336710794D+02  0.585829921726477D+00 -0.996731456885571D+00
-  0.782366924270920D+00 -0.634336225674955D+00  0.936992187220575D+00
-  0.840666090052637D+01  0.505470477535374D+00 -0.122949609004486D+02
- -0.414207342673142D+01  0.989474086830116D+00  0.188051195475798D+01
-  0.592122771188090D+00 -0.269054540715850D+01  0.490138201231370D+00
- -0.258101945731228D+00 -0.970777182754571D-01  0.713373669160116D+01
-  0.593663298572462D+01 -0.312250225675825D-16  0.397364297022307D-08
-  0.177777771155025D+00 -0.376267225951034D+00 -0.833093297437143D-01
-  0.115980283544907D+00  0.173724223392935D+01 -0.511098809831769D+00
-  0.191964273019743D+00  0.130683794691020D+00  0.444444441132988D-01
- -0.204959687344480D+00  0.198682145909068D-08  0.132454764994669D-08
- -0.277986148249236D+01  0.459858876394200D+00 -0.607200115743898D+00
-  0.197255856307638D+01  0.909496108826704D+01 -0.981323148909881D+00
- -0.327236592586860D+00  0.322325803400703D+00 -0.114701711511145D+01
-  0.819057609983935D-01 -0.481807138361242D+01 -0.298173540932166D+00
- -0.198682157531715D-08 -0.178352184400784D+01  0.444444441132986D-01
- -0.568639043857065D+01  0.771997626903274D+01 -0.396869199689092D+00
-  0.132454770415680D-08  0.148828339708600D+00 -0.172953242572009D+00
-  0.741034379522138D-01 -0.348397715067372D+00 -0.426465614365396D+00
-  0.247506107540423D+01 -0.220034284421411D+01 -0.645041361545067D+00
- -0.234155212563984D+00 -0.130108569469522D+01 -0.888888849152386D-01
- -0.106521964617843D+00  0.630786943157536D+00  0.993410759903002D-09
- -0.573775662830857D+00 -0.427160285076784D+01  0.162214445937609D+01
-  0.401335692880306D+01  0.133333327372868D+00 -0.910812775623105D+01
-  0.188051195475798D+01  0.251122716702955D+00 -0.319897006201980D+01
- -0.445858547199701D+00 -0.199561380960414D+01  0.637951702646992D+01
- -0.580918388735794D+00 -0.133333327372868D+00  0.993410704391851D-09
- -0.888888849152386D-01 -0.507427906714880D+00 -0.409447090806753D+00
-  0.359920734242465D+00  0.130972077082541D+00 -0.993410811944706D-09
- -0.571065995903181D+00 -0.538609908748682D+00 -0.888888875643339D-01
- -0.993410851843346D-09  0.125915205351494D+00 -0.888888875643339D-01
- -0.133333331346511D+00 -0.633267408073233D+00  0.546931017131677D+00
- -0.307291390141829D+01 -0.382428539315496D-01  0.449415662904935D+00
-  0.400171275532739D+01  0.942073290130570D+00  0.511707753838197D+00
- -0.983011292418128D-01  0.133333331346511D+00  0.459858876394096D+00
- -0.103107351788481D+01 -0.421625288527308D+00 -0.404838574254934D+00
- -0.680897255691148D+01 -0.703547972904529D+00  0.730995268385671D+01
- -0.796872751231913D-01 -0.367852573784922D+01  0.450487505812227D+00
- -0.263754229125230D+01  0.132057389878164D+01  0.137606083566418D+00
-  0.708122781717315D+00  0.143327546655881D+00  0.294349515441380D+01
-  0.537768664795458D+00 -0.242177357236141D+00  0.554317079693153D+00
-  0.444444484180786D-01 -0.438996975250577D+00 -0.264909532851632D-08
- -0.241206920095080D-01  0.490649285800687D+00  0.513344924203506D+00
-  0.202339906674344D+00  0.397364302573422D-08 -0.459466534328477D+00
-  0.380956244605654D+01 -0.395399226425481D+00 -0.633544935243664D+00
-  0.630786943157640D+00 -0.496881486967986D+01 -0.585631513687843D+01
-  0.442338051469724D+01  0.989474086830117D+00  0.927996111400404D+00
-  0.750050738780087D+00 -0.383418411353493D+00  0.245957686816251D+01
- -0.397364299537656D-08 -0.150777659219967D+00 -0.264909532981736D-08
-  0.444444427887510D-01 -0.275564731902526D+01  0.896211771823520D+00
- -0.537957723603548D+00  0.770702237246291D+00 -0.281345889823805D+00
-  0.162882232919993D-01  0.185857469056406D+00 -0.359455154830123D-01
-  0.138912892478477D+00  0.203571422225887D+00 -0.252042999554568D-01
- -0.716679327563838D+00 -0.333333323399185D-01 -0.222222213943755D-01
- -0.333333325054870D-01  0.123921092980378D+00 -0.342010291173370D+00
- -0.429030012494668D+00 -0.939705897262669D+00  0.333333331677609D-01
- -0.404838574254934D+00 -0.122388642833543D+01  0.162387871734970D+01
-  0.613327019366521D-01  0.376881475259201D+01  0.333333333333294D-01
-  0.293696962399704D-02 -0.222222223877863D-01  0.262044535048878D+00
- -0.827347404027124D+00  0.374158756777454D+00  0.185340915984235D+00
-  0.819057609983935D-01 -0.924752635291209D-01  0.307160275176442D+01
- -0.146805541761317D+01 -0.555205466211386D-01 -0.333333333333293D-01
- -0.222222223877863D-01  0.333333331677609D-01 -0.846161386557730D-01
- -0.364710902377470D+00  0.492019689199775D+00 -0.220899488509821D+01
- -0.947980302919667D+00 -0.563370200133906D+01 -0.381520724364081D+00
-  0.107611002135864D+00 -0.717834421201446D+00  0.210425608151814D+00
-  0.458558921741137D+01 -0.204008450367955D+01  0.333333323399185D-01
-  0.121305493631562D+01 -0.222222213943755D-01 -0.333333325054870D-01
-  0.560878256971740D+00  0.135273914726011D+00 -0.306532587776528D-02
-  0.243187436306397D-01 -0.385146202960613D+00 -0.903426422743523D+00
-  0.175857712263591D+00 -0.238097655403143D+00 -0.935281981955038D+00
-  0.218388880698154D+00 -0.222222232156285D-01 -0.517237167396539D-01
- -0.199551350139504D-01  0.247852562076138D+01  0.926572877237394D-01
-  0.532365553116397D+00 -0.611777892563089D+00  0.361807128460899D+01
-  0.333333356512877D-01 -0.333333353201508D-01 -0.222222202353963D-01
-  0.251122716702955D+00 -0.169110868215911D+00  0.750050738780088D+00
- -0.333333328366239D-01 -0.333333325054870D-01  0.492689796501816D-01
-  0.333333311809394D-01 -0.258101945731227D+00  0.158603739207567D+01
-  0.900602775660278D+00  0.607542999065063D+00 -0.945452345704481D+00
-  0.288107744457582D+01  0.614001360147060D-01  0.307970500152970D+00
-  0.333333308498025D-01 -0.222222222222178D-01 -0.576802801746383D+00
- -0.615349391484079D+00 -0.387140984185564D+01  0.273005042156890D+00
- -0.503742826747620D+01  0.235800405512253D+00 -0.222222252024500D-01
- -0.205933998930192D+00  0.107170077080473D+01 -0.566162197216463D+00
-  0.333333373069722D-01 -0.333333369758353D-01 -0.194536736627140D+00
-  0.135404583000423D+00 -0.215281429126436D+01  0.688965037807427D+00
-  0.333333313465078D-01  0.333333338300347D-01 -0.333333313465079D-01
-  0.333333323399186D-01 -0.333333338300347D-01 -0.397364299537656D-08
- -0.133333327372868D+00  0.333333328366240D-01 -0.333333328366239D-01
- -0.133333331346511D+00  0.198682145909068D-08  0.133333333333333D+00
-  0.198682142960038D-08  0.133333329359690D+00 -0.333333323399185D-01
- -0.397364297022307D-08 -0.381639164714898D-16 -0.312250225675825D-16
- -0.222222227189232D-01  0.333333315120763D-01  0.333333316776447D-01
-  0.444444441132988D-01  0.993410704391851D-09 -0.222222228844917D-01
- -0.222222212288071D-01 -0.264909532981736D-08 -0.888888875643339D-01
- -0.333333326710555D-01 -0.333333325054870D-01 -0.222222213943755D-01
-  0.993410773780790D-09 -0.888888888888816D-01 -0.132454763476786D-08
-  0.444444441132986D-01  0.177777776453216D+00  0.397364297022307D-08
-  0.333333336644662D-01 -0.222222207321017D-01 -0.222222205665332D-01
- -0.888888849152386D-01  0.333333334988978D-01  0.132454764994669D-08
- -0.333333326710555D-01  0.444444427887510D-01 -0.993410851843346D-09
- -0.222222222222178D-01 -0.222222220566494D-01 -0.333333325054870D-01
- -0.993410628064018D-09  0.444444427887510D-01 -0.888888862397863D-01
-  0.264909532504687D-08 -0.397364308471482D-08  0.177777771155025D+00
-  0.866186505185766D+00  0.492019689199775D+00 -0.566563085488164D+00
- -0.298173540932166D+00  0.311206839862308D+01 -0.974455795118647D+00
-  0.590812799191558D+01 -0.489863823338132D+00 -0.116356794781666D+02
-  0.376737877755024D+00 -0.239087133362325D+01  0.162059686957046D+02
-  0.208166817117217D-16  0.177777776453216D+00 -0.132454767987067D-08
- -0.112304410145275D+01 -0.701955722707045D+00  0.712117872620088D+00
-  0.307970500152970D+00  0.200976628467192D+01  0.248639067425519D+01
-  0.266750159951189D+01 -0.115935386675063D+02  0.183164429032306D+01
- -0.319897006201980D+01  0.153288491197956D+02  0.860697919761124D+00
- -0.138777878078145D-16  0.397364291644664D-08  0.177777768505930D+00
- -0.452556650152913D+00 -0.381520724364081D+00  0.129746958693070D+00
- -0.396869199688989D+00 -0.211288678429231D+01  0.149429467419976D+00
-  0.267140973792850D+01  0.928947105046778D+00 -0.888888875643340D-01
- -0.331137011474331D-09  0.171054467687317D+00  0.839353845373135D+01
- -0.881730534983195D+00 -0.133333331346511D+00 -0.869483074961796D-01
-  0.376737877755024D+00 -0.941712503034498D+00 -0.812760530300384D+00
- -0.888888875643340D-01 -0.157912528095253D+02 -0.331136815884259D-09
-  0.935335966188548D+01  0.133333331346511D+00  0.185206991810283D+00
-  0.366411569875885D+01  0.138249255478715D+00  0.314879509945930D+00
-  0.100899478117107D+01  0.716855139450480D+00 -0.294349838912808D+00
- -0.615349391484079D+00 -0.960352655669676D+00 -0.147894693000438D+01
- -0.580918388735898D+00  0.736725048870401D+01 -0.994460249717884D+00
-  0.322726691672405D+00  0.183164429032306D+01  0.444444421264772D-01
-  0.444444484180785D-01  0.313293754433440D+00 -0.397364290950775D-08
-  0.843567926439161D+01 -0.264909527343885D-08  0.397364288001745D-08
-  0.237997354866087D+01  0.185167134741193D+01 -0.264909524524959D-08
- -0.152771116322984D+02 -0.868176392217679D-01  0.372687406683465D+01
- -0.881924177750486D+00  0.333333308498025D-01  0.333333328366239D-01
-  0.333333323399185D-01 -0.333333333333293D-01  0.133333327372868D+00
-  0.133333333333333D+00  0.198682153368379D-08 -0.133333331346511D+00
- -0.397364290950775D-08 -0.198682157531715D-08  0.208166817117217D-16
- -0.138777878078145D-16  0.333333311809394D-01 -0.222222223877863D-01
- -0.888888875643340D-01 -0.222222217255124D-01 -0.333333321743501D-01
- -0.264909527343885D-08 -0.888888888888816D-01 -0.132454769027901D-08
-  0.993410759903002D-09  0.444444441132986D-01  0.177777776453216D+00
-  0.397364291644664D-08 -0.222222202353963D-01  0.333333331677609D-01
- -0.331137011474331D-09 -0.333333330021924D-01  0.444444421264772D-01
- -0.222222217255124D-01 -0.331136869660686D-09  0.444444421264772D-01
- -0.888888849152386D-01  0.132454770415680D-08 -0.132454767987067D-08
-  0.177777768505930D+00 -0.155930905199886D+01  0.398269158704515D+00
-  0.449319573676269D+00 -0.628826420826515D+00  0.914590840825478D+00
- -0.587660964821613D+01 -0.165209251314452D+00 -0.124506025562216D-01
- -0.453751952544792D+00 -0.221931121215898D+00 -0.710638986974270D+00
-  0.857696185177915D+01  0.173472347597681D-16  0.177777773804120D+00
- -0.132454777528046D-08 -0.153871814077444D+01  0.306152097560296D+00
- -0.704237134438753D+00  0.424118086562850D+00 -0.550557362620481D+00
-  0.241805109481050D+01 -0.774749548597248D+00 -0.378801623882180D+01
- -0.841267983276597D+00 -0.256142761107829D+01 -0.581917538895638D+01
-  0.848970481230117D+01  0.277555756156289D-16  0.529819057897007D-08
-  0.177777793672335D+00 -0.182926759628323D+00  0.444444434510249D-01
- -0.499080049967457D+01  0.132454776660684D-08  0.985165225759032D+00
- -0.196504973758500D+01 -0.134986644666494D+01 -0.490619730184353D+00
- -0.125571013991114D+01 -0.715855863229195D-01  0.400664195798426D+00
-  0.274870447961082D+01  0.266358070235383D+00 -0.131000826957831D+00
- -0.221931121215898D+00  0.198682168113529D-08 -0.638572984461861D+00
-  0.435136936344076D+00  0.807065746807322D-01  0.533422003600630D+01
- -0.893310350018714D+00  0.901718603542535D+00 -0.489649263416512D+00
-  0.444444434510249D-01  0.132454778135199D-08 -0.198682164470609D-08
- -0.355940222940767D+00 -0.578347499959343D+00  0.336582479199090D+00
-  0.155731212906821D+00 -0.375380916941688D+01 -0.441596124277720D+00
- -0.888888968361676D-01  0.132454773191237D-08 -0.532535638088177D+00
-  0.329419571230170D+00  0.338331526268283D+00  0.241156655972088D+00
-  0.349411186874368D+01 -0.582736791328468D+00 -0.393698281174129D+01
- -0.132927560829064D+01 -0.188918765271419D+01 -0.636241983427237D+00
- -0.979126764074601D-01  0.858608515481840D+00 -0.133333345254262D+00
- -0.136601719398695D+01 -0.841267983276597D+00  0.132454770762624D-08
-  0.152766229456212D+00 -0.629120866690450D+00  0.760198349785017D+00
-  0.639911365647658D+01 -0.257117417471364D+01  0.255892765859692D+00
-  0.133333345254262D+00 -0.888888968361676D-01  0.262356481070135D+00
- -0.262626932358214D+01  0.359717300421930D+00 -0.972404146378413D-01
- -0.331136953361094D-09  0.444149475730982D-01  0.972759690122614D+00
- -0.133333331346512D+00 -0.888888875643341D-01  0.366925007673492D+00
- -0.130782327089908D+01  0.435136936343972D+00 -0.165209251314452D+00
- -0.428051544850870D+00 -0.561805052198427D+01 -0.141189101279634D+00
- -0.331136895681539D-09 -0.888888875643341D-01  0.389258142368709D+00
- -0.899302578774045D-01  0.700153599316332D+01  0.133333331346512D+00
- -0.513249569331723D+00 -0.383826056950327D+00  0.968822738934779D-01
- -0.131853956740309D+00  0.121260591271135D+00  0.927532172181555D-03
- -0.500097968328770D-01  0.427536594503997D+00  0.369746654864430D+00
- -0.497590864720544D+00 -0.286280716333364D+01 -0.778630199476213D+00
- -0.704237134438753D+00  0.608079548006471D+00 -0.133302468516238D+01
-  0.338331526268387D+00 -0.411459026799924D+01 -0.397364289823204D-08
-  0.444444421264770D-01 -0.264909527083676D-08  0.473179723157951D+01
-  0.444444484180786D-01 -0.264909525565793D-08 -0.594012833983938D+00
-  0.150241144168008D+01  0.397364290777302D-08  0.164078724815416D+00
- -0.789134184411498D+00  0.375800628413404D+00 -0.995298398333833D-03
- -0.497033893285022D+00  0.253003728876290D+00  0.949739394385881D+00
-  0.353097028260041D+00  0.784818886992528D-01  0.124981807584350D+00
-  0.333333331677610D-01 -0.222222223877864D-01 -0.210704610512784D+00
-  0.379695360938801D+00 -0.888648461934017D-01 -0.333333325054871D-01
- -0.469411154066455D+01  0.674137212520742D-02 -0.131000826957831D+00
- -0.333333323399186D-01 -0.421369910305491D+00 -0.222222213943755D-01
- -0.453751952544791D+00 -0.141189101279634D+00 -0.149078480083093D+01
- -0.662358873974844D+00  0.160714584180591D+01 -0.110317708630012D+01
-  0.399239625472355D+00  0.790980904937238D+00 -0.333333333333294D-01
-  0.429354902051415D+01 -0.664910093153696D-01 -0.622908501671153D+00
- -0.152126353172578D+00  0.904319686253547D+00  0.189529523213164D+00
- -0.333333325054871D-01 -0.222222213943756D-01  0.245135090649768D+01
-  0.333333323399187D-01  0.333333331677609D-01 -0.222222223877863D-01
- -0.484772813883130D+00 -0.237782993625900D+00  0.171301322126376D+00
-  0.156456245499035D+00 -0.328060145274074D+00  0.375639319557041D+00
-  0.333333333333293D-01 -0.100961630951056D+00  0.307013537411463D-01
- -0.550816162829704D+00  0.394161064438561D-01 -0.764596959147206D+00
-  0.198731923726232D+00  0.112691441585103D+00 -0.390554385395172D-01
-  0.172212425389314D+00  0.243532932644189D+00 -0.344055100486436D-01
-  0.720806351402551D+00  0.462776551614613D+00  0.333333356512877D-01
- -0.222222232156286D-01  0.140643905089949D-01  0.420916340554640D+00
- -0.156692511745520D+01 -0.209196258257497D+01 -0.532535638088177D+00
- -0.497590864720544D+00 -0.394870415153169D+01  0.252646905461526D+00
- -0.333333373069724D-01 -0.681643219797931D+00 -0.151598628794435D+01
-  0.144185955505273D+00 -0.550557362620481D+00 -0.199705417971303D+00
-  0.317311764602366D+01 -0.333333369758355D-01 -0.124469725396204D+01
- -0.222222252024501D-01  0.501632701383776D-01  0.740207515026547D+00
- -0.294555182478777D+00  0.333333353201508D-01 -0.694559927659790D-01
- -0.608862828542824D+00 -0.222222222222177D-01 -0.333333325054870D-01
- -0.553227270025053D+00  0.333333328366239D-01  0.755614521334193D+00
-  0.333333311809393D-01 -0.222222202353963D-01  0.319413425348434D+01
-  0.170274749884671D+00 -0.333333308498023D-01  0.294876054904929D+00
-  0.142998797771111D+00 -0.581434974067751D-01  0.181724870059973D+00
-  0.144037320832893D+00  0.219785387102243D+00 -0.592822657059356D+00
- -0.738501860594138D+00 -0.178385625551970D+00 -0.463783663315461D-01
-  0.164654013669396D+00 -0.397364289823204D-08  0.333333328366240D-01
- -0.133333331346512D+00 -0.333333373069724D-01 -0.333333353201508D-01
- -0.333333323399186D-01  0.133333329359690D+00 -0.133333345254262D+00
-  0.198682168113529D-08  0.397364285226187D-08  0.173472347597681D-16
-  0.277555756156289D-16 -0.888888875643341D-01 -0.222222220566494D-01
- -0.264909527083676D-08 -0.333333369758355D-01  0.333333356512877D-01
- -0.222222213943755D-01  0.132454770762624D-08 -0.264909524524959D-08
-  0.444444434510249D-01 -0.888888862397863D-01  0.177777773804120D+00
-  0.529819057897007D-08 -0.331136953361094D-09  0.444444484180786D-01
-  0.333333326710555D-01 -0.222222252024501D-01 -0.222222232156285D-01
- -0.333333325054871D-01 -0.331136940784349D-09  0.132454778135199D-08
- -0.888888968361676D-01  0.444444484180786D-01 -0.132454777528046D-08
-  0.177777793672335D+00  0.178030618569116D+00  0.399239625472355D+00
-  0.967102292890579D+01 -0.125065582249438D+01 -0.488224693090442D+00
- -0.116430849002139D+01 -0.577720026694767D+00  0.161217051246835D+01
- -0.140561942898108D+02 -0.276826857821918D+01 -0.573731276164120D+00
- -0.355940222940767D+00  0.330122599898177D+00 -0.485421922465340D+00
-  0.177777773804120D+00 -0.214778162218010D+01 -0.990389646171873D+00
- -0.659892121576268D+01  0.701094095861284D+01 -0.451028103753970D-16
- -0.397364334665806D-08  0.506675584804543D+00 -0.260457047407785D+01
- -0.324890098508443D+01 -0.559469317658593D+00  0.316591317390124D+00
-  0.252646905461526D+00  0.365104509071988D-01 -0.117479382371917D+01
- -0.666481908433575D+00 -0.136601719398695D+01 -0.211174973319339D+00
- -0.230669024972755D+01 -0.419267372881552D+00 -0.112474736183258D+02
-  0.111615244427458D+02  0.169011749230897D+01 -0.419770382901374D+01
-  0.100557257125178D+02 -0.381639164714898D-16  0.529819046794777D-08
-  0.177777793672335D+00 -0.406874208353540D+00  0.735910352451838D+00
- -0.664910093153826D-01  0.715633709707212D+00 -0.291904114755979D+01
-  0.150636635899284D+00  0.331494395232972D+00 -0.255892644608573D+00
-  0.264909554362203D-08  0.503228845793092D+01  0.311168862194100D+00
- -0.553180424684644D+00  0.336582479199090D+00 -0.477794229127935D+00
- -0.678085080572582D+01 -0.558766288990690D+00 -0.143366157145653D+01
-  0.444444484180786D-01  0.397364333278027D-08 -0.571743942489660D-01
-  0.489003845704542D-01 -0.434370107122116D+00 -0.397364332410666D-08
-  0.444444434510250D-01  0.264909554882620D-08 -0.990389646171873D+00
- -0.364865713073690D+01  0.181267869872283D+00 -0.886744071366482D+00
- -0.347250931546249D+01  0.142783470640716D+01  0.496373876548523D+00
-  0.413296705180017D+01  0.581619612308665D+00 -0.305706602758494D+00
-  0.825534179367939D+00 -0.888888968361676D-01  0.132454777874991D-08
- -0.278963508818023D+01  0.483912965381879D+00  0.133333345254262D+00
-  0.205019878773646D+00 -0.456011670187582D+01 -0.521767859984083D+01
-  0.717463692098092D+00  0.109368429829337D+01  0.767055396423926D+00
-  0.124309545814718D+00  0.245919948366195D+01 -0.694559927659661D-01
-  0.609353665354230D+00 -0.457647598264230D+00 -0.807064534296134D-01
-  0.469621516007211D+00  0.760036646100419D+01 -0.126996356665627D+01
-  0.262356481070135D+00 -0.382213304084220D+00  0.314997946993895D+00
-  0.793580788888902D+00  0.141609578375648D+01  0.316591317390124D+00
- -0.133333345254262D+00 -0.176779957477166D+00  0.132454748601532D-08
- -0.606142739889301D+00 -0.888888968361676D-01 -0.368917622559257D+00
- -0.286657101618408D+00 -0.105221897833388D+01  0.613447404430948D+01
-  0.289046425199658D-01 -0.152126353172578D+00  0.382018875098131D+00
- -0.125016338925954D+01  0.133357376028789D+00  0.311151393332462D+01
-  0.167661175732409D+01  0.412432587227112D+00 -0.489649263416408D+00
- -0.888888875643341D-01 -0.304419873687740D+01 -0.605991715838218D+00
- -0.993410680105722D-09 -0.182686504478259D+01  0.718930312317715D+01
-  0.133333331346512D+00 -0.143615238680442D+02 -0.545925678774431D+00
- -0.888888875643341D-01  0.611162658572340D+00 -0.492117563987624D-01
- -0.644876913106318D+00 -0.186024744376627D+01 -0.133333331346512D+00
- -0.116430849002139D+01  0.311168862193996D+00  0.514250566257601D-01
- -0.993410849241261D-09  0.159077080117406D+01  0.868962263350174D+01
-  0.162051702712479D+00  0.404116075005633D+00 -0.668543337472072D+00
- -0.242047142473745D+01 -0.109530780637088D+00  0.664150951390609D-01
-  0.154641420703835D+00 -0.132963166078671D+00  0.617418034375303D+00
-  0.187816712173547D+00 -0.178230036458458D+01  0.465100087297842D+00
-  0.469621516007314D+00 -0.230697535036963D+01  0.257004166072207D+01
- -0.196838529854011D+01 -0.681643219797931D+00  0.219414204543658D+00
- -0.280714596092707D+01 -0.636241983427341D+00 -0.666481908433575D+00
-  0.104899421618697D+00 -0.397364290170149D-08 -0.128710223542042D+02
- -0.526819371245106D+00  0.444444427887511D-01  0.444444484180788D-01
- -0.264909525175480D-08  0.853514341845535D+00  0.996298597259368D+01
- -0.264909522790235D-08  0.454403008009069D+01  0.397364284532298D-08
- -0.972800288207371D-01  0.280026060346043D+00  0.164083523925803D+01
- -0.411730893272745D+00  0.297609424990344D+00  0.311726204222053D+00
-  0.114899703397082D+00 -0.219903964936065D+01 -0.404973521622182D-01
- -0.548572877673038D+00 -0.191259213431752D+00  0.945552129381388D-01
- -0.488141834303370D-01  0.669474359521496D+00  0.501645097637851D+00
-  0.333333369758355D-01  0.189529523213164D+00 -0.556896057350053D-01
- -0.205351447569158D+01  0.173010465823428D+00  0.962454183297564D+00
-  0.155731212906808D+00  0.151993536806249D+01 -0.605991715838218D+00
- -0.324559013464620D-02 -0.222222252024501D-01 -0.275678416705454D+01
-  0.228041076115228D+00 -0.235148762850638D+01 -0.222222228844916D-01
-  0.333333338300347D-01 -0.577720026694767D+00  0.333333334988978D-01
-  0.480058651789447D+00  0.366099692392588D+01 -0.333333373069724D-01
- -0.333333318432131D-01 -0.477794229127935D+00  0.244011975782446D+00
-  0.284397485654763D+00 -0.333333321743501D-01 -0.645715297693551D+00
- -0.222222208976701D-01 -0.799457136030991D+00 -0.733447387954361D+01
- -0.186058956859571D+01  0.335708464204223D+00 -0.333333356512878D-01
- -0.409543523499082D-01 -0.222222232156286D-01 -0.339160716484095D+00
-  0.471827487679650D+01  0.139201679688937D+01  0.550464141910376D+00
- -0.175535179019657D+00 -0.528915044255120D+00 -0.509209000958017D-01
-  0.160227160714665D+00  0.365158957833608D-01 -0.688243212125927D+00
-  0.333333353201509D-01  0.165001170160273D-01 -0.141402605939001D+01
- -0.675808015183556D-01  0.207569603994115D+00  0.184031156776399D+00
- -0.321840046465207D+00  0.172602806381346D+00  0.143542050585351D+01
- -0.810820185330775D+00 -0.665367012980461D-01  0.219115865780617D+00
-  0.706724228760466D+00 -0.160425079038778D+00 -0.130004464389170D+00
-  0.112026257176207D+01 -0.222222232156285D-01  0.333333356512877D-01
- -0.414911650465495D-01 -0.187232838528259D+01  0.333333353201507D-01
- -0.166048132273968D+00  0.602231787270355D+00 -0.623228829316504D+01
-  0.487253095618660D+00 -0.180260026685167D+00  0.314997946993894D+00
-  0.892590561435201D-01  0.911680816566458D+00  0.144185955505273D+00
-  0.152766229456225D+00  0.507900498276082D+00  0.422908532130514D+00
-  0.104899421618697D+00 -0.419267372881552D+00 -0.267883718721392D+01
- -0.333333369758353D-01  0.296748338775974D+00 -0.193317579702225D+00
- -0.287661189117014D+01  0.101369156079213D+01  0.647466075104831D-01
- -0.222222252024500D-01 -0.222222205665332D-01  0.477157995616122D+00
- -0.333333373069722D-01  0.460186141095102D+00 -0.381167232237646D+00
- -0.323934464354108D+00  0.333333316776448D-01 -0.222222225533548D-01
-  0.530123182591753D+00 -0.333333330021924D-01 -0.333333313465078D-01
- -0.781849013893104D-01  0.580173961557952D+01  0.247923026298402D+00
-  0.380566974350849D+01 -0.107322518825109D+00  0.243799069357830D-02
-  0.280197598989799D+00  0.333333333333293D-01  0.142751278073625D+01
- -0.310249271567898D+00 -0.393055371235639D-01  0.917718922399835D-02
- -0.345872917594597D+00 -0.411174225060307D+00  0.271894672879026D-01
- -0.143610617697573D+01  0.847772672925281D-01 -0.671160357655906D+00
- -0.368951698166821D-02  0.220274872739034D+00  0.333333333333294D-01
- -0.333333353201507D-01 -0.133333345254262D+00  0.397364333278027D-08
- -0.333333333333294D-01  0.333333353201508D-01 -0.133333331346512D+00
-  0.333333318432132D-01 -0.397364290170149D-08 -0.198682164470609D-08
-  0.133333345254262D+00  0.333333373069722D-01 -0.333333318432131D-01
-  0.133333329359690D+00  0.397364285226187D-08 -0.333333373069722D-01
- -0.451028103753970D-16 -0.381639164714898D-16 -0.222222225533548D-01
-  0.333333356512877D-01  0.132454748601532D-08 -0.333333369758353D-01
- -0.222222223877864D-01  0.333333356512877D-01 -0.888888875643341D-01
- -0.264909525175480D-08 -0.222222208976701D-01  0.444444434510250D-01
-  0.444444434510249D-01 -0.222222210632386D-01 -0.333333369758353D-01
-  0.132454773191237D-08  0.177777773804120D+00 -0.888888862397864D-01
- -0.264909522096346D-08  0.529819046794777D-08  0.333333330021925D-01
- -0.222222232156285D-01 -0.888888968361676D-01 -0.222222252024500D-01
-  0.333333331677610D-01 -0.222222232156286D-01  0.444444484180788D-01
- -0.993410849241261D-09  0.264909554882620D-08 -0.333333321743501D-01
- -0.888888968361676D-01  0.132454776660684D-08 -0.333333320087816D-01
- -0.222222252024500D-01 -0.993410808475259D-09  0.444444484180785D-01
- -0.397364334665806D-08  0.177777793672335D+00  0.341647634154637D+00
- -0.160254263625831D+01 -0.109875137124932D+01 -0.132749893523538D+01
- -0.616335491301660D+00 -0.913557458218506D+01 -0.702282898331189D+00
-  0.805661718615881D+00  0.335708464204223D+00  0.443473086145840D+01
- -0.390228236670096D+01 -0.116970610133102D+01 -0.557394493655895D+00
- -0.886744071366482D+00  0.136011670187576D+01 -0.161377510405885D+00
-  0.751334947071310D+01 -0.811912691915036D+01  0.346944695195361D-17
-  0.177777793672335D+00 -0.529819111326491D-08 -0.156633336024323D+01
-  0.667651316918479D+00 -0.568975145008201D+01  0.634735280175290D+01
-  0.793922901929010D+00  0.602231787270355D+00 -0.163461228200715D+00
-  0.133088672484212D+01 -0.705595734157886D+01  0.131530347059881D+01
- -0.273405904958576D+00  0.105070153141187D+01  0.109368429829337D+01
- -0.404975923506884D+00 -0.104030014791528D+01  0.272509315462438D+00
-  0.969828368901074D+01  0.955331719595231D+01  0.589805981832114D-16
-  0.529819112540797D-08  0.177777793672335D+00 -0.420824333590488D+00
- -0.547241254734229D+00 -0.429079219829659D+01  0.428405271317834D+00
- -0.153919762285330D+00  0.356853640756555D+00 -0.767055396424060D+00
- -0.160443531931814D+01  0.264909565117488D-08  0.165047827973238D+00
-  0.359920734242569D+00  0.272553397587207D+00  0.248975145008258D+01
- -0.409543523499211D-01 -0.128746029753990D+01 -0.651873769010686D+00
-  0.444444434510248D-01 -0.109875137124932D+01 -0.766946787775179D+00
-  0.496373876548523D+00 -0.435947522918125D+01  0.397364330762678D-08
- -0.397364344900675D-08 -0.116589209959390D+01  0.502216418205104D+01
-  0.444444484180786D-01  0.264909553624945D-08 -0.252042999554698D-01
- -0.651393770908011D+00  0.114944425674644D+00 -0.793752005866031D+00
-  0.526302274270823D+00  0.397452916801559D+00 -0.226231190228520D+00
-  0.124567536544213D+00  0.527700870333148D+00 -0.153440119026880D+00
-  0.561829606985233D+00 -0.888888968361675D-01  0.513344924203402D+00
-  0.132454762262479D-08 -0.157837440836087D+01 -0.217130808577045D+00
- -0.769030399606197D+00 -0.169110868215898D+00  0.287596545617338D+00
-  0.712887713239205D-01 -0.193317579702212D+00  0.133333345254262D+00
-  0.671116933006218D+01 -0.577747353503003D+01  0.954771766774618D+00
-  0.464614441369108D+00  0.113179449992289D+01 -0.207891846446715D+00
- -0.221237571970284D+00  0.615482983930187D+00  0.485015761752790D+01
-  0.549902481947520D+00  0.133088672484212D+01 -0.606142739889300D+00
- -0.354678739715226D+00  0.248783179977660D+00 -0.581619612308799D+00
- -0.549993239173778D+00  0.454422647450114D-01  0.702282366701529D+00
-  0.422835898315556D+00 -0.133333345254262D+00  0.132454766122239D-08
-  0.346214392418053D-01 -0.888888968361675D-01  0.507445442497070D+00
-  0.192102745775201D+01 -0.424391488111547D-01  0.272553397587103D+00
- -0.248276245042318D+01 -0.149674815942373D+01 -0.495932148278562D+01
-  0.387683831666648D+00 -0.954735280175353D+01  0.166532616487185D+00
- -0.132749893523538D+01 -0.888888968361676D-01 -0.132454758099143D-08
-  0.326620433524633D+00 -0.645715297693551D+00 -0.553180424684540D+00
- -0.297636267060394D+00 -0.133333345254262D+00 -0.888888968361676D-01
- -0.491874613136361D+00  0.200645676762836D+00 -0.132454782341904D-08
-  0.680692818290875D+00  0.133333345254262D+00 -0.118326581614626D+01
-  0.575085934329299D+01  0.103047218999083D+01  0.520853154296630D+01
- -0.496194158408452D-01  0.294384457997788D+00 -0.492325851476793D+00
- -0.905830947921065D-01  0.685729111898796D+00 -0.181186307529257D+01
- -0.514764235462710D+00  0.204655105948298D+00  0.384755697390756D+00
- -0.209672466087899D+00  0.444444434510248D-01 -0.299719878891412D+00
- -0.264909559913318D-08 -0.259201661753713D+01  0.460186141095102D+00
-  0.239151721438300D+00  0.145630099586017D+01  0.672785192514686D+00
-  0.397364337961781D-08  0.543015971294270D+00 -0.591501266397243D+00
-  0.615482983930290D+00  0.598247416789717D+01 -0.286657101618512D+00
-  0.780810976965630D+00  0.496398823728799D+01  0.131530347059881D+01
-  0.764890067431296D+01 -0.137444954929663D+00  0.434044262493074D+00
-  0.134274627002229D+01 -0.397364326252397D-08  0.617971431834126D-01
- -0.249450137307387D+01 -0.763473086145903D+01 -0.264909549374873D-08
-  0.424933727396571D+00 -0.385412161277504D+00 -0.207329388054189D+00
-  0.444444484180787D-01 -0.525726760949286D+00  0.799465817068200D-02
- -0.216037633901838D+01  0.410919077716041D-01  0.179783073411036D+00
- -0.297242372725583D-01  0.268174517703008D+00 -0.903205438465873D+00
- -0.588011456901906D-01 -0.963117511737329D-01  0.702250955892586D+00
-  0.123934423252244D+00 -0.382428539315626D-01 -0.333333353201507D-01
-  0.333333330021924D-01 -0.651873769010686D+00 -0.222222232156285D-01
-  0.181267869872270D+00  0.357454045081488D+00 -0.148759636689241D+01
- -0.616335491301660D+00 -0.491874613136361D+00 -0.222222225533548D-01
-  0.284397485654763D+00 -0.333333333333293D-01 -0.333333356512877D-01
- -0.143915155756871D+01  0.333333369758353D-01  0.983046872857731D-01
- -0.222222252024500D-01  0.237495117980857D+00 -0.185798373403028D+01
- -0.405218828391819D+00 -0.381910654457785D-01 -0.333333316776447D-01
- -0.166541004145540D+00  0.293696962399704D-02 -0.976546856779777D-01
- -0.149429486070021D-01 -0.407828641992052D+00  0.333333373069722D-01
-  0.396563037411970D+00 -0.222222205665333D-01 -0.186802053296386D+00
- -0.605339300637966D+00 -0.107494946590262D+00 -0.523282484312876D-01
-  0.647126127176640D+00  0.333333313465079D-01 -0.109811457425017D-01
- -0.384273565157674D+00 -0.175671162738924D-01  0.331795582207913D+00
-  0.224031266342013D+00  0.630716130262717D+00  0.342273581664184D+01
- -0.403384447981627D+00 -0.250667686088957D+00  0.197237525757761D+00
- -0.198987534784422D+00 -0.345189661728304D+00  0.214760978052415D+00
- -0.203046925779647D+00  0.451580332516158D+00 -0.513088098220130D-01
- -0.302530096089707D-01 -0.188870843447857D+00 -0.277933030180474D+00
- -0.406247815409040D+00  0.413020628195171D+00  0.328915003153257D+00
-  0.614001360147060D-01 -0.150777659219954D+00 -0.310249271567898D+00
-  0.284110530845182D-01 -0.111461187255174D-01 -0.222222232156286D-01
-  0.333333356512877D-01 -0.223047202612124D+01 -0.386879385268940D+00
- -0.222222208976700D-01 -0.255875207575908D+00  0.333333353201508D-01
- -0.195032754934301D+00  0.333333321743500D-01  0.780810976965630D+00
-  0.404393084777046D+01  0.233599933780112D+01 -0.222222228844916D-01
-  0.534210149173537D+00 -0.333333334988978D-01  0.549902481947521D+00
-  0.125497561342917D-01 -0.212359941787438D+00  0.289046425199788D-01
- -0.273405904958576D+00  0.333333338300347D-01  0.919105195493865D-02
- -0.314507984239967D+00 -0.245704287715603D+00  0.639039936091824D+00
- -0.511692356779749D-01 -0.868247110507816D-01  0.518660385738763D-01
- -0.103098824717178D+00 -0.333333318432131D-01 -0.905289156260703D+00
-  0.681559500834678D+00 -0.333333369758355D-01 -0.333333373069724D-01
- -0.187600782980385D+00 -0.222222252024502D-01  0.379874302073091D+00
-  0.767730908772044D+00 -0.506761448334104D+00  0.619753581596557D+00
- -0.284722247016461D+00 -0.181130314450587D+00  0.654451873429662D+00
- -0.790213177428315D+00 -0.251534675214057D+00  0.355590553605367D+00
- -0.370576934044636D+00  0.574447137382187D-01 -0.343182594669450D+00
-  0.916431292720299D-02  0.481462159171432D-01  0.141402479892885D-01
- -0.333333353201506D-01  0.333333373069724D-01 -0.397364326252397D-08
- -0.133333345254262D+00 -0.333333373069724D-01 -0.333333373069724D-01
-  0.333333353201507D-01 -0.133333345254262D+00  0.397364330762678D-08
- -0.333333353201507D-01  0.397364327553440D-08  0.133333345254262D+00
-  0.133333345254262D+00  0.333333353201507D-01  0.333333373069723D-01
- -0.397364332410666D-08  0.346944695195361D-17  0.589805981832114D-16
-  0.333333356512876D-01 -0.222222252024501D-01  0.132454766122239D-08
- -0.264909549374873D-08 -0.222222252024501D-01 -0.333333369758355D-01
-  0.333333356512877D-01 -0.888888968361676D-01  0.444444484180786D-01
- -0.222222232156285D-01 -0.888888968361676D-01 -0.264909551586645D-08
-  0.132454777874991D-08 -0.222222232156285D-01  0.444444484180786D-01
- -0.333333369758354D-01  0.177777793672335D+00  0.529819112540797D-08
-  0.333333369758354D-01 -0.222222232156284D-01 -0.888888968361675D-01
-  0.444444484180787D-01 -0.222222252024502D-01  0.333333369758355D-01
- -0.222222232156285D-01 -0.333333356512877D-01 -0.132454782341904D-08
-  0.264909553624945D-08  0.444444484180785D-01 -0.333333356512877D-01
- -0.222222252024501D-01 -0.132454771456514D-08  0.264909554362203D-08
- -0.888888968361676D-01 -0.529819111326491D-08  0.177777793672335D+00
-  0.185340915984235D+00  0.237495117980856D+00 -0.679787273155209D+00
- -0.121214288842293D+00 -0.528968154646298D+00 -0.116589209959390D+01
- -0.423919519928613D+00 -0.103107351788481D+01 -0.770876568942379D+00
-  0.265631571130689D+01  0.499075588596178D+00  0.257747293881615D+01
- -0.776530785242434D+01 -0.720779987445416D+01 -0.319890342794095D+01
- -0.291320813752836D+00 -0.104083408558608D-15  0.177777773804120D+00
- -0.205074259858734D+01  0.905218610915177D+01 -0.397364328247329D-08
- -0.661447830032330D+00 -0.239319230519650D+00  0.607542999065063D+00
-  0.534210149173537D+00 -0.488718366971014D+01 -0.562811666385926D+01
-  0.115947463296737D+01  0.106817850445594D+01 -0.191628879911375D+01
-  0.525136400212366D+00  0.122383471943551D+01  0.360897313133994D+01
- -0.228251455735937D+00 -0.375543964685361D+00  0.927996111400404D+00
-  0.879989169578218D+01  0.113179449992289D+01  0.801448055250746D+01
- -0.100613961606655D-15  0.529819046794777D-08  0.177777793672335D+00
-  0.197017922266734D+00 -0.976546856779907D-01 -0.703547972904632D+00
-  0.168898062487383D+01  0.397452916801559D+00 -0.947980302919667D+00
- -0.954771647427989D+00 -0.423919519928613D+00 -0.363879424243119D+00
-  0.383742859462891D+01 -0.172177591932745D+01  0.545693247130716D+00
-  0.242811606743085D+01  0.597568075136031D+00  0.171054467687421D+00
-  0.198682173317699D-08 -0.187014880479599D+01  0.444444434510249D-01
- -0.722063637197754D-01  0.517536262587069D+00  0.132454780563812D-08
- -0.386604836778912D+00 -0.198766580198461D+01 -0.198682167940056D-08
-  0.444444434510248D-01 -0.637101808850178D+01  0.631644883321480D+01
-  0.132454779436242D-08 -0.267705690094344D+00 -0.181685001550488D+01
-  0.440828251933540D+00  0.443370232849177D+01  0.235800405512253D+00
- -0.184936078454464D+00 -0.187600782980372D+00  0.322726691672301D+00
- -0.173569491922680D+01 -0.526302154924195D+00 -0.888888968361676D-01
- -0.533520861286384D+01  0.660637433152826D+00  0.157087559710088D+01
-  0.132454771283042D-08 -0.407535055414259D+00  0.133333345254262D+00
-  0.541688485298245D+01  0.542346509207164D+00 -0.423710431263022D+01
-  0.531113540062798D-01  0.277468860233112D+01 -0.281345889823701D+00
-  0.106817850445594D+01 -0.179809092402473D+00 -0.549993239173778D+00
- -0.109716848746300D-02 -0.133333345254262D+00 -0.419900587176923D+00
-  0.132454767119705D-08 -0.194980075082354D+01 -0.888888968361676D-01
-  0.183979368290628D+00  0.450487505812227D+00 -0.896211892109000D+00
- -0.651393770907907D+00 -0.858774831845644D+00 -0.407828641992052D+00
- -0.550346710995263D-01 -0.993410631533465D-09 -0.133333329359690D+00
-  0.168718429167925D+01  0.597568075135927D+00 -0.315300276935629D+01
- -0.770876568942379D+00 -0.846161386557600D-01 -0.993410909522902D-09
- -0.888888862397862D-01 -0.888888862397862D-01  0.485504440907136D+00
- -0.488296399534141D+00  0.669028280778641D+00  0.603283058941706D-01
-  0.133333329359690D+00 -0.885492225132502D+00 -0.500550221033889D+00
- -0.785528971892739D+00 -0.249846964644297D-01 -0.643164919482650D+01
- -0.900103902711974D+00  0.467239385452540D+00  0.544566437129026D+01
-  0.109014119513278D+01 -0.543316111548594D+00  0.367907150973850D+00
- -0.177339742109696D+01  0.119108821661161D+00  0.318217884797961D+00
- -0.184712633654911D+01 -0.205933998930205D+00  0.122907739899247D+00
-  0.444444441132987D-01  0.803482166347832D+00  0.379874302073091D+00
- -0.264909521749401D-08 -0.840435488063839D+00  0.397364286613966D-08
- -0.547266881246737D+00 -0.132057401906712D+01 -0.104814114654760D+01
-  0.531936849425430D-03 -0.497187423869094D+01  0.455555589704864D+01
-  0.714445630022368D-01  0.628766872995649D+01  0.545706294219417D+00
- -0.537957723603548D+00  0.660637433152930D+00  0.759014709834612D+00
-  0.122383471943551D+01  0.456530847439345D+01 -0.397364291297719D-08
- -0.354678739715330D+00  0.441852091612310D+00 -0.164777508483972D+00
-  0.444444484180785D-01 -0.160938826819753D+01 -0.264909528471455D-08
-  0.682370639164835D-01  0.100743832737465D+01 -0.293846707483118D+00
-  0.319269214210677D+00 -0.670688404548199D+00 -0.289459756450278D-02
- -0.526185859315474D-01  0.137606083566431D+00  0.124567536544200D+00
- -0.895025830381713D-01 -0.437368874294069D+00  0.100264921328732D+00
-  0.224031266342013D+00  0.849622101060949D+00 -0.291320813752836D+00
-  0.107611002135864D+00  0.517536262587069D+00  0.333333326710554D-01
- -0.333333318432131D-01 -0.222222210632385D-01 -0.488296399534141D+00
- -0.869483074961926D-01 -0.333333320087816D-01 -0.127170085250986D+01
- -0.151859075769516D+00  0.424674573353148D-02  0.489935319148134D+00
-  0.413520897015998D+01 -0.969011239847276D-01  0.200395882361055D-01
- -0.746124416976335D-02 -0.167085659374903D+00  0.538802954615471D+00
- -0.222222220566492D-01 -0.103113400561030D+00 -0.222222220566494D-01
- -0.333333328366239D-01  0.621183198794523D+00  0.333333328366238D-01
-  0.333333326710554D-01 -0.178913464643412D+01 -0.112150138232110D-01
- -0.482760133340701D+00 -0.182646077499614D+01 -0.526740195890445D+00
- -0.159884542601279D+01  0.615753742027243D+00 -0.603558856009790D+01
- -0.166934028928254D+01 -0.918165916683273D+00  0.333333318432131D-01
- -0.222222210632385D-01  0.595599985009774D-01  0.332943525756381D+01
-  0.123658086976039D+01  0.339984931627932D+00 -0.333333320087816D-01
-  0.124234388839102D+00 -0.141305501802075D+01 -0.194536736627140D+00
-  0.304697707774176D-02 -0.222222212288071D-01  0.148126350859262D+00
- -0.868176392217549D-01 -0.656684110768520D+00 -0.194367555055763D+00
-  0.104061745415320D+00 -0.284722247016461D+00  0.333333326710555D-01
-  0.393945518713444D+00 -0.374789418765094D+00  0.517101844579791D+01
- -0.222222232156285D-01  0.162882232919863D-01  0.542346509207164D+00
-  0.584458045916157D-02 -0.333333323399186D-01  0.346214392418183D-01
-  0.759014709834612D+00 -0.166245154262386D+01 -0.228251455735937D+00
-  0.405852292146932D+00  0.984075900534542D+00 -0.174076006305061D+00
- -0.127668331871676D+00  0.333333356512877D-01  0.413723141081181D+01
-  0.468988301711841D+00  0.696958035448329D-01  0.333333353201507D-01
- -0.222222252024500D-01 -0.333333373069721D-01 -0.333333369758352D-01
-  0.616805053227429D+00  0.206007081419150D+01 -0.450518639273620D+01
-  0.131716995570750D+00 -0.161170945922805D+01 -0.222222232156285D-01
-  0.595042181405749D+00 -0.333333339956032D-01 -0.153023723733023D+01
- -0.225116819786694D+00  0.333333343267400D-01  0.528355263029101D+00
-  0.863901055877239D+00 -0.360207478922858D+00 -0.259481319869127D+00
-  0.118271902669725D+00  0.417207187283964D+00 -0.333333353201508D-01
-  0.333333333333294D-01  0.333333353201508D-01 -0.397364291297719D-08
- -0.333333333333293D-01 -0.133333345254262D+00 -0.333333373069721D-01
- -0.133333329359690D+00  0.198682173317699D-08  0.133333345254262D+00
-  0.333333373069722D-01  0.397364302573422D-08  0.333333318432132D-01
- -0.333333318432131D-01  0.133333331346511D+00 -0.104083408558608D-15
- -0.397364344900675D-08 -0.100613961606655D-15  0.333333356512877D-01
- -0.222222223877863D-01  0.132454767119705D-08  0.333333356512877D-01
- -0.222222225533548D-01 -0.264909528471455D-08  0.444444434510249D-01
- -0.333333369758352D-01 -0.888888862397862D-01 -0.222222210632385D-01
-  0.132454762262479D-08 -0.222222208976701D-01 -0.333333369758353D-01
- -0.264909532851632D-08 -0.888888875643339D-01  0.444444434510248D-01
-  0.177777773804120D+00  0.529819046794777D-08  0.333333331677609D-01
- -0.222222232156285D-01 -0.222222232156286D-01 -0.888888968361676D-01
-  0.444444484180785D-01  0.333333330021924D-01 -0.222222252024500D-01
- -0.993410909522902D-09  0.132454780563812D-08 -0.333333320087816D-01
- -0.888888968361675D-01 -0.333333321743501D-01 -0.222222252024500D-01
- -0.993410811944706D-09  0.444444484180786D-01  0.264909565117488D-08
- -0.397364328247329D-08  0.177777793672335D+00  0.621183198794523D+00
- -0.386604836778912D+00 -0.147251891030993D+01 -0.717834421201446D+00
-  0.108614757848562D+01 -0.812760530300384D+00  0.259763444807242D+00
-  0.103710372537815D+01  0.120771122024949D+02 -0.181713324050965D+02
-  0.108755881098298D+02 -0.221198791864988D+01  0.693889390390723D-17
-  0.177777773804120D+00 -0.132454780130131D-08 -0.160546957277846D+01
-  0.167602530001173D+01 -0.121233478526746D+01  0.468988301711841D+00
- -0.168031739597118D+02 -0.566162197216463D+00  0.185167134741194D+01
-  0.973417790900812D+00  0.125912533797218D+02 -0.179809092402473D+00
-  0.142742616143795D+02  0.619107853697343D+01 -0.138777878078145D-16
-  0.529819054080616D-08  0.177777793672335D+00 -0.267705690094241D+00
- -0.482760133340701D+00 -0.355631670302612D+00  0.135273914725998D+00
-  0.411709231546322D+00  0.883134033319467D+00  0.138249255478715D+00
- -0.292770277945085D-01 -0.372687418541680D+01  0.136031745790995D+02
-  0.259763444807242D+00 -0.124943627925117D+01 -0.133333329359690D+00
- -0.331137001065990D-09 -0.331136753434214D-09 -0.888888862397862D-01
- -0.185199139255235D+02 -0.158098736058380D+01  0.683658833256769D+01
- -0.888888862397861D-01  0.133333329359690D+00 -0.979878333830887D-01
-  0.400183782387612D+01  0.426232787079358D+00 -0.925737627026783D+00
-  0.112225949125417D+00 -0.673260031791279D+00  0.131716995570750D+00
-  0.750183298000804D+00 -0.366411581734099D+01  0.702801697810775D+01
- -0.227544889466925D+00  0.135404583000436D+00 -0.881924177750486D+00
- -0.144188424240411D+01 -0.419900587177027D+00 -0.264909526389787D-08
-  0.149713330244842D+02  0.167602530001173D+01 -0.397364289216051D-08
-  0.444444447755724D-01 -0.264909520708567D-08  0.489674474363468D+01
-  0.181021323868884D+01  0.528681409966010D+00  0.397364281756740D-08
-  0.444444484180787D-01  0.503455027834228D+00 -0.103950319552466D+00
- -0.167698389852961D+02 -0.916734793625032D+00  0.344516256835084D+01
-  0.333333353201507D-01 -0.333333328366239D-01 -0.133333329359690D+00
-  0.133333345254262D+00  0.333333373069722D-01  0.333333323399185D-01
- -0.397364289216051D-08  0.397364288001745D-08  0.133333331346511D+00
- -0.198682167940056D-08  0.693889390390723D-17 -0.138777878078145D-16
-  0.333333356512877D-01 -0.222222220566494D-01  0.132454771283042D-08
- -0.264909526389787D-08 -0.264909524524959D-08 -0.888888862397861D-01
- -0.222222213943755D-01 -0.333333369758353D-01 -0.888888875643340D-01
-  0.444444434510248D-01  0.177777773804120D+00  0.529819054080616D-08
- -0.222222232156285D-01  0.333333326710554D-01  0.444444484180787D-01
- -0.331137001065990D-09 -0.222222252024500D-01 -0.333333325054870D-01
-  0.444444484180785D-01 -0.331136815884259D-09 -0.888888968361676D-01
-  0.132454779436242D-08 -0.132454780130131D-08  0.177777793672335D+00
-  0.375639319557041D+00 -0.899302578774045D-01 -0.120966542437026D+01
-  0.154549901367056D+01  0.104083408558608D-16 -0.470241165704905D+01
- -0.148403864298275D-01 -0.162391666374043D+00  0.177777776453216D+00
- -0.416237246157689D+00 -0.132454757925671D-08 -0.105794275863566D+01
-  0.268256791318553D+00  0.862200815049611D-01  0.106964111275763D+02
- -0.222880778777380D+00 -0.122312287209819D+01 -0.506746515682649D+00
-  0.122692847617297D+00 -0.329688248926245D+01  0.294876054904929D+00
- -0.789134184411498D+00 -0.114568365779104D+01  0.249463187044029D-01
- -0.480026019981468D+01 -0.139110271279093D+01  0.637025553776848D+01
-  0.208166817117217D-16  0.397364284011881D-08  0.177777768505930D+00
- -0.237782993625900D+00 -0.969386621553965D+00 -0.439413435255116D+01
-  0.714500568536811D+00  0.404116075005737D+00 -0.513249569331826D+00
-  0.428507317525899D+01  0.132454757925671D-08 -0.144246733448541D+01
-  0.663310137758434D+00  0.444444441132987D-01  0.198682136888506D-08
- -0.252852750423050D-01 -0.491221600645508D+00 -0.509209000958147D-01
- -0.198682136715034D-08 -0.162391666374043D+00  0.444444441132988D-01
- -0.180889707184111D+01  0.754488937233624D+01  0.132454757969039D-08
-  0.472651642731179D+00 -0.184021564548436D+00  0.114977554819458D+00
-  0.136021252392603D+01  0.180442564088011D+00 -0.195535472337796D+01
- -0.535638684439534D+00 -0.410437402862207D+00  0.960315461230268D-01
- -0.365135100556450D+01 -0.553227270025053D+00 -0.111809170700046D+01
-  0.280026060345939D+00 -0.781849013892975D-01 -0.562481102101939D+00
-  0.382142373206115D+00 -0.427331984180685D+00 -0.325914302225774D+00
-  0.129202847587016D+01 -0.145592484844072D+01 -0.376393914842163D+01
- -0.594012833983835D+00 -0.114568365779104D+01 -0.888888849152387D-01
-  0.157971548913004D+01 -0.994756415128246D+00  0.152587258584625D+00
-  0.993410499260799D-09  0.993410726943256D-09  0.133333327372868D+00
-  0.672494052783260D+00  0.253262672331858D+00  0.418844384148545D+01
- -0.474549879830260D+01 -0.133333327372868D+00 -0.490653877355402D+00
- -0.888888849152387D-01 -0.101645057150227D+01  0.479983863965077D+00
- -0.100961630951043D+00  0.163058567470352D+00 -0.331136893946815D-09
-  0.497033941201426D+00 -0.888888888888817D-01  0.927532172181562D-03
-  0.472651642731075D+00  0.862200815049611D-01 -0.639334658640234D+00
-  0.375088119776178D+00 -0.133333333333333D+00  0.181045902107979D+00
-  0.918749749010390D+00 -0.332269311001629D+01 -0.230057887051220D+00
- -0.214355502028056D+01 -0.355577876749733D+00  0.733870119373511D+01
-  0.146750809222469D+00  0.133333333333333D+00 -0.888888888888817D-01
- -0.331136880069027D-09  0.293917210911167D+00 -0.581434974067881D-01
-  0.383826104866731D+00  0.253003728876290D+00 -0.806380234358866D+00
- -0.205357103075883D+00  0.382142373206219D+00 -0.222880778777380D+00
- -0.728738826235884D+00 -0.882645078272483D+00 -0.132454753632230D-08
- -0.214205750376333D+01 -0.198682135067046D-08 -0.477972878479004D+00
- -0.346061616633773D+00  0.439463230743157D+01  0.444444421264775D-01
- -0.127985310441144D+00 -0.812099597495897D+00  0.198682135327255D-08
- -0.132454758272615D-08  0.444444421264770D-01  0.216071201558512D-01
-  0.307013537411463D-01  0.538501887643221D+00  0.121260591271148D+00
- -0.691046574450461D-01 -0.439097808388187D+00  0.334328630654516D+00
- -0.333333330021924D-01 -0.109530780637101D+00  0.114977554819458D+00
- -0.222222217255125D-01 -0.333333338300347D-01  0.165001170160273D-01
- -0.277971561746841D+01 -0.222222227189232D-01 -0.333333328366240D-01
- -0.416237246157689D+00  0.333333336644663D-01 -0.109161300126174D+01
- -0.126190676099164D+00  0.478451486026661D+00  0.386778562835571D+00
-  0.205718212787174D+01  0.736296185184717D+00  0.216474013854034D+00
-  0.333333328366240D-01 -0.342709969658854D+00 -0.366093935719014D+00
- -0.117136921300478D+01  0.181045902107979D+00  0.693660258130407D-01
- -0.222222217255125D-01 -0.471261029154339D+00 -0.549078357700086D+00
- -0.333333330021925D-01  0.350836698341929D+00 -0.283205285340108D+00
-  0.533311012139031D+00  0.487917682014099D+01  0.333333338300347D-01
- -0.222222227189232D-01  0.333333336644662D-01 -0.100988736448223D+00
-  0.646655428573588D-01 -0.404973521622052D-01  0.465187288996491D+00
-  0.564596986196289D+00  0.219785387102243D+00  0.917718922399835D-02
- -0.426068113322767D+00  0.171281621665425D+00  0.164078724815403D+00
-  0.326407786786824D+00 -0.205357103075883D+00 -0.116371468840056D+01
-  0.333333315120761D-01 -0.325914302225774D+00 -0.506746515682649D+00
- -0.333333323399186D-01 -0.133492347387589D+01  0.333333313465076D-01
- -0.256021265226439D+01 -0.211874960440061D+01 -0.103182562534829D+00
- -0.222222207321016D-01 -0.222222217255124D-01 -0.333333321743501D-01
- -0.622424015954160D+00 -0.696349636375655D-01  0.166178047630251D+00
- -0.222222217255125D-01  0.431763351707172D+00  0.258748984710850D+01
- -0.432903622534649D-01  0.333333323399188D-01  0.486430494042710D+00
- -0.532937573200214D+00 -0.333333321743502D-01 -0.265176075508180D+00
-  0.180160657848898D+00 -0.243474893581546D+00 -0.550087014199020D+00
-  0.410916010409865D+00  0.159531586072955D+00 -0.665082047546213D+00
- -0.333333313465078D-01  0.333333315120762D-01 -0.222222207321017D-01
- -0.133333333333333D+00 -0.333333308498023D-01 -0.333333328366240D-01
- -0.198682135067046D-08  0.333333333333293D-01 -0.333333323399186D-01
-  0.198682136888506D-08  0.133333331346512D+00  0.397364290777302D-08
- -0.133333327372868D+00  0.104083408558608D-16  0.208166817117217D-16
- -0.888888888888817D-01 -0.222222217255125D-01  0.333333311809393D-01
- -0.132454753632230D-08 -0.333333321743501D-01 -0.222222223877863D-01
- -0.264909525565793D-08  0.444444441132988D-01 -0.888888875643341D-01
-  0.177777776453216D+00  0.993410499260799D-09  0.397364284011881D-08
- -0.331136893946815D-09  0.444444421264775D-01 -0.222222217255124D-01
- -0.333333330021924D-01  0.333333331677609D-01 -0.222222202353963D-01
-  0.444444421264770D-01  0.132454757969039D-08 -0.331136895681539D-09
- -0.888888849152387D-01 -0.132454757925671D-08  0.177777768505930D+00
- -0.444242651050943D+00  0.280265250534470D+00  0.478451486026661D+00
-  0.627857887120872D+01  0.199412193512399D+01 -0.131629861084666D+02
- -0.418133220113896D+00 -0.159678984959818D+01 -0.484772813883130D+00
- -0.545925678774431D+00 -0.182228121144532D+01 -0.449202829582001D+01
- -0.252852750423052D-01 -0.106264139262637D+01  0.177777776453216D+00
-  0.000000000000000D+00  0.732679322026407D+01 -0.397364274297429D-08
-  0.244011975782446D+00 -0.696484933626026D+00  0.134540485846835D+02
- -0.154672531879587D+01  0.477157995616122D+00 -0.182942265154718D-01
-  0.443088804239506D+01 -0.663618376399990D+00 -0.526819371245106D+00
- -0.492312370720506D+00 -0.627568858616915D+00  0.326407786786824D+00
-  0.625282182752120D+01 -0.197098637636468D+01 -0.748507299520884D+01
- -0.994756415128245D+00 -0.608862828542824D+00 -0.405220288738908D+01
-  0.173084228742321D+01 -0.118896227693746D+02  0.361261808741067D+01
-  0.346944695195361D-16  0.397364299450920D-08  0.177777771155025D+00
- -0.984300090795503D-01 -0.270750190626446D+01 -0.210247961220244D+00
-  0.470755668774971D+00 -0.308213037873266D-01  0.200645676762940D+00
- -0.644876913106421D+00  0.419330636550709D+01 -0.126190676099177D+00
- -0.700173982691294D+01  0.171301322126389D+00  0.101645054071361D+01
- -0.446612463804380D+00  0.926155998325574D+00  0.264909520361623D-08
-  0.180442564088011D+00 -0.763088790855573D+01  0.444444484180786D-01
- -0.173945187158146D+01 -0.381910654457915D-01 -0.696484933626026D+00
-  0.444444441132988D-01 -0.332111361485275D+01  0.397364276118889D-08
-  0.264909517065648D-08 -0.799457136030990D+00 -0.761506666991939D+00
-  0.193226762507120D+00  0.902793165765579D+01  0.273518531885809D+01
- -0.397364281756740D-08  0.589208565693569D+00  0.698425651804220D+01
- -0.983867119594791D+00  0.620142772251748D+00 -0.225206415966505D+01
-  0.247923026298402D+00 -0.888888862397861D-01 -0.591827508812993D+01
-  0.499874362263201D+00 -0.174735949735765D+01  0.543015971294166D+00
- -0.411730893272641D+00  0.993410765107172D-09  0.337267701676524D+00
-  0.884149504095923D+00 -0.195032754934288D+00  0.645691289664614D+01
-  0.396576518168258D+00  0.133333329359690D+00 -0.696349636375525D-01
- -0.534452202079490D-01  0.195535469258931D+01 -0.907009016460059D-01
-  0.474907659199478D+01  0.144037320832880D+00 -0.204506368602827D+01
- -0.473527529448164D+00  0.426482883923269D+01 -0.265743746818049D+01
-  0.253262672331858D+00 -0.182942265154716D-01 -0.105267930864247D+02
- -0.417205477193712D+00 -0.133333329359690D+00  0.133844290180020D+00
-  0.993410762938768D-09  0.245112038537251D+01 -0.888888862397862D-01
- -0.437680601980388D+00 -0.810141852875205D+00  0.986797147301047D-01
-  0.219903968116699D+01 -0.168643036667519D+01  0.216474013854034D+00
-  0.187480955780714D+00  0.430135350358543D+01 -0.993410654084870D-09
- -0.888888888888817D-01  0.531357317172237D-01  0.172074690570777D+01
-  0.133333333333333D+00  0.664150951390609D-01  0.985222125647144D+01
-  0.112691441585090D+00  0.722725679919065D+00  0.511718954896929D+00
- -0.154665053097019D+01 -0.945282200960859D+01 -0.410437402862103D+00
- -0.360396640254525D+00 -0.133333333333333D+00 -0.888888888888817D-01
-  0.210628423522646D+01  0.280265250534469D+00 -0.993410693116148D-09
-  0.470755668774868D+00 -0.593139154188972D+00 -0.853472474712373D+00
- -0.675808015183426D-01  0.546178919229910D+00  0.150363621806088D+01
- -0.107322518825122D+00  0.173106169992358D+00 -0.856418722416892D+00
-  0.297609424990344D+00  0.661393474619033D+00  0.396576518168361D+00
-  0.181724870059986D+00 -0.265884882021113D+01 -0.562481102102043D+00
-  0.242047145654379D+01 -0.325718200050423D+01 -0.663618376399989D+00
- -0.426068113322767D+00 -0.238644053356379D+00 -0.172997680476355D+01
-  0.444444427887508D-01 -0.774727611268746D+00 -0.132454772150403D-08
- -0.947857905329610D+01  0.183279008908591D+01 -0.132454780433708D-08
- -0.198682171236031D-08  0.198682158919494D-08  0.338801874689848D+00
-  0.444444427887510D-01  0.188111220041612D+01  0.225171195126613D+01
-  0.119070435255827D+01 -0.966128809796967D+00 -0.532483768576797D+00
-  0.881906203413008D+00  0.332937546638642D+00 -0.496194158408582D-01
- -0.345171185317761D+01 -0.100988736448223D+00  0.592646045248178D+00
-  0.154641420703848D+00 -0.109811457425017D-01 -0.390554385395172D-01
- -0.100710946948087D+00 -0.231320680420864D+00  0.333333369758353D-01
-  0.333333339956031D-01  0.123610622972505D+01 -0.222222232156285D-01
-  0.187480955780714D+00  0.559513874803388D+01 -0.279750893132393D+01
-  0.960315461230138D-01  0.823987215015973D+00  0.333333343267400D-01
-  0.528492248634239D+00 -0.333333326710556D-01 -0.222222212288072D-01
- -0.333333323399187D-01 -0.418133220113896D+00  0.377357232197684D+00
- -0.222222252024500D-01 -0.308213037873267D-01 -0.559563225616349D+00
- -0.546482906539374D+01  0.207569603994114D+00  0.226750496461241D+00
- -0.333333356512878D-01  0.263178156400141D+01  0.109880321087533D+00
- -0.157556679364819D+00  0.701837988701924D+01 -0.333333373069722D-01
- -0.222222232156286D-01  0.442276425084488D+00  0.148303782162107D+00
-  0.129689770221825D+00  0.333333353201509D-01 -0.301435058884976D+00
- -0.210807954560883D+01 -0.289954597150711D-01  0.212997806105953D+00
-  0.237165048028506D+01 -0.716286955783252D+00  0.120785206955716D+00
- -0.154974321317207D-01  0.114899703397069D+00 -0.393055371235638D-01
- -0.137444954929650D+00 -0.222222210632386D-01  0.389488575471987D-01
- -0.143384193784080D-01  0.121402611213933D+01  0.333333320087817D-01
- -0.539330659166814D+01 -0.265398590477700D+00 -0.463783663315461D-01
-  0.333333318432133D-01 -0.907009016460060D-01 -0.135761065227879D+00
-  0.100187666321204D+01  0.152587258584638D+00 -0.238644053356379D+00
-  0.868972022100105D+00  0.971369186443204D+00  0.518660385738763D-01
- -0.492312370720506D+00 -0.333333328366238D-01 -0.306078857902471D+01
- -0.333333326710553D-01  0.451208286908375D+00 -0.550135340549690D+01
- -0.319937294921785D+00 -0.222222210632387D-01  0.166178047630251D+00
- -0.333333318432133D-01  0.333333320087818D-01  0.164362598698788D+00
- -0.222222220566493D-01  0.356405120312070D+00 -0.119288115771966D+00
- -0.626906361492486D-01 -0.872495024891584D+00  0.149610697944934D+00
-  0.497836772610684D+01  0.253955752738804D+01 -0.123542507492086D+00
-  0.824218103026180D-01 -0.417034154777924D+00  0.209835189018120D+01
-  0.333333328366238D-01  0.187152791971041D+01 -0.333333326710554D-01
- -0.222222220566493D-01 -0.805742166301368D-01  0.910351753871824D-01
- -0.654250050811726D+00 -0.160182563629164D+01 -0.333333313465078D-01
-  0.333333338300347D-01 -0.133333329359690D+00  0.397364276118889D-08
- -0.333333338300347D-01  0.133333331346512D+00 -0.133333333333333D+00
-  0.333333313465076D-01 -0.333333323399187D-01 -0.198682171236031D-08
- -0.333333328366238D-01  0.333333328366239D-01 -0.198682136715034D-08
-  0.133333327372868D+00  0.333333323399187D-01  0.000000000000000D+00
-  0.397364284532298D-08  0.346944695195361D-16 -0.222222228844916D-01
-  0.333333316776448D-01  0.993410762938768D-09  0.444444441132988D-01
- -0.888888888888817D-01 -0.222222227189232D-01 -0.888888875643341D-01
- -0.222222212288072D-01  0.333333315120761D-01 -0.132454780433708D-08
- -0.333333326710553D-01  0.444444441132987D-01  0.993410726943256D-09
- -0.333333325054870D-01 -0.222222213943756D-01 -0.264909522790235D-08
-  0.177777776453216D+00  0.397364299450920D-08 -0.222222205665332D-01
-  0.333333334988978D-01 -0.888888862397862D-01 -0.993410693116148D-09
-  0.264909517065648D-08  0.333333336644663D-01 -0.333333326710556D-01
- -0.993410680105722D-09 -0.222222207321016D-01 -0.222222220566493D-01
-  0.444444427887510D-01 -0.888888849152387D-01 -0.222222222222177D-01
-  0.132454757925671D-08 -0.397364274297429D-08 -0.333333325054871D-01
-  0.444444427887511D-01  0.177777771155025D+00  0.396563037411970D+00
- -0.118326581614626D+01 -0.930905633120914D+00 -0.559905225596881D+00
- -0.965691227335886D+01 -0.149670390583392D+01 -0.108489012696381D+02
- -0.249417943993481D+01  0.442276425084488D+00  0.695967652026670D+01
- -0.983867119594790D+00 -0.688243212125927D+00 -0.155965067913264D+01
-  0.613699015620236D+01 -0.109716657252186D+02 -0.104083408558608D-16
-  0.177777793672335D+00 -0.529819029447542D-08  0.204984798770685D+01
- -0.770739022721274D+00  0.754958427101231D+01 -0.461327373293019D+00
-  0.681559500834678D+00 -0.840853213829148D+01  0.451208286908375D+00
-  0.153497768217311D+01 -0.121497048051090D+01  0.656936029181445D+01
- -0.345872917594597D+00  0.722400765151088D+01 -0.122279310343685D+02
-  0.198902327404009D+00  0.134274627002229D+01  0.133844290180020D+00
- -0.250208716505207D+01  0.667528745173686D+01  0.226178698481336D+01
- -0.401482693437153D+00  0.951708238933556D+01  0.138777878078145D-16
-  0.397364334145389D-08  0.177777773804120D+00 -0.186802053296386D+00
- -0.492325851476897D+00  0.744507578210917D+00  0.620142772251748D+00
-  0.204506356570117D+01  0.485504440907240D+00  0.444444427887510D-01
-  0.264909519320788D-08 -0.107466131223346D+01 -0.196773103888301D+01
-  0.168970764092857D+00 -0.397364276205625D-08 -0.519399783604895D+00
- -0.137802262830042D+01  0.184031156776412D+00 -0.746124416977634D-02
- -0.976935971853768D+01 -0.530872926982394D+01 -0.149670390583392D+01
-  0.397364286787438D-08 -0.289954597150840D-01  0.118149866167593D+00
- -0.201731733557637D+01  0.444444484180787D-01  0.264909523831069D-08
-  0.280968291409586D+01  0.376496497689165D+00 -0.606121932297013D-01
- -0.830010105454341D+00 -0.140328357702050D+01  0.402200161337153D+01
- -0.114038029937712D+01  0.678369156327195D+00  0.137564814714780D+01
-  0.101585375326972D+00  0.129054881559442D+00 -0.815726564953291D+00
- -0.888888875643340D-01  0.993410662758487D-09  0.654451873429661D+00
- -0.566116443817742D+00  0.545706294219313D+00 -0.123542507492073D+00
- -0.156601993664392D+00  0.120335556685692D+00 -0.976083559270675D+00
-  0.133333331346511D+00  0.391980038139838D+01  0.271894672878896D-01
-  0.547327834989846D+01  0.225206403933794D+01 -0.417205477193712D+00
-  0.487406195451610D+00 -0.180537825237427D+01 -0.135191679062684D+01
-  0.892365028313694D+01 -0.207329388054085D+00  0.147075355175609D+01
-  0.655173399615816D+00  0.153497768217311D+01 -0.101596759469899D+02
- -0.174076006305048D+00 -0.133333331346511D+00  0.275121335813150D+01
- -0.547476220493728D+00  0.179058060700270D+01  0.351686803584705D+00
- -0.331040710688296D+00 -0.659579491000396D-01  0.993410930339583D-09
-  0.640390621703705D-02 -0.888888875643340D-01  0.685729111898796D+00
- -0.175671162738794D-01  0.100449366326678D+01 -0.446612463804276D+00
-  0.172602806381333D+00  0.216037645816068D+01 -0.104240082480107D+02
- -0.617836736618358D+01 -0.351778702411665D+01 -0.888888968361677D-01
-  0.118149866167489D+00 -0.133333345254262D+00 -0.155965067913264D+01
- -0.132454767770226D-08  0.738711559161146D+00  0.587453830003788D+00
- -0.286420265639202D+00 -0.137029449578800D+01 -0.157741400560919D+01
- -0.745509545559403D+00  0.226750496461241D+00  0.402708217610149D+01
-  0.781443644194322D+01  0.241822248335162D+01 -0.626150205435009D+00
-  0.414426769633882D+00  0.856881973669990D+01  0.133333345254262D+00
- -0.888888968361676D-01 -0.132454748731636D-08 -0.297382814305362D+00
-  0.181186319443487D+01  0.824218103026179D-01 -0.181130314450600D+00
-  0.847772672925411D-01  0.950650642363251D+00 -0.821837952709598D+01
- -0.164359301304174D+01  0.487406195451714D+00 -0.437680601980492D+00
- -0.385412161277504D+00  0.114415349094165D+01 -0.380185195760223D+01
-  0.444444434510249D-01  0.471854734110944D+00  0.198682168633946D-08
-  0.128918738288430D+01 -0.132454779089297D-08  0.198902327404009D+00
-  0.321214946210180D+00 -0.198682164904290D-08  0.406012244531796D+01
-  0.316451395260633D+01 -0.132454776270371D-08 -0.933699075270215D+01
-  0.444444434510248D-01  0.239875088007068D+00  0.217670678027998D+01
- -0.391550983267981D+00  0.676276641812964D+01  0.204655105948311D+00
-  0.331795582207913D+00 -0.286941538065203D+00 -0.249846964644427D-01
-  0.859060066972537D+00  0.193226762507107D+00  0.114347520076569D+01
- -0.665367012980461D-01  0.333333325054870D-01  0.140182555311498D+01
- -0.222222222222177D-01 -0.332845361842185D+01 -0.222222232156286D-01
- -0.333333328366239D-01 -0.770739022721274D+00 -0.333333356512878D-01
- -0.333333353201509D-01 -0.108518751299747D+00  0.321969902468709D+00
- -0.114038029937712D+01  0.590213206079748D+00 -0.395121347375603D+01
- -0.326780740788082D+01 -0.101437015266462D+00  0.588787834345265D-01
- -0.965530865097178D+00  0.129689770221825D+00 -0.745509545559403D+00
-  0.424674573353149D-02 -0.796276608771794D+01  0.909061805289498D-01
- -0.108008469757773D+01  0.658530411310364D+01 -0.237564352831919D+01
-  0.351370977333091D+01 -0.120636846895219D+00 -0.109684325717046D+00
-  0.106069451214580D+01  0.262738683453755D+00  0.610016651864429D-01
- -0.222222252024500D-01  0.571556922333424D+00  0.333333373069723D-01
-  0.235678615240354D+01  0.333333369758354D-01  0.333333308498025D-01
- -0.716375117317528D+00 -0.222222202353963D-01 -0.333333311809394D-01
- -0.125648425423158D+01 -0.250619006926994D+00  0.501067037213365D+00
-  0.506677147403893D-01  0.848097541485961D+00 -0.222222213943756D-01
- -0.133906045139977D+00 -0.368951698166820D-02  0.333333325054870D-01
- -0.251534675214057D+00  0.190807946243216D+01  0.333333323399186D-01
- -0.805742166301368D-01 -0.187836927195173D+01  0.109484001488242D+01
-  0.986797147301177D-01  0.410919077715912D-01 -0.164777508483959D+00
-  0.100418992689670D+00  0.505838719856708D+00  0.351686803584705D+00
- -0.131187046835022D+00 -0.285782531106786D+00 -0.901443611153152D+01
-  0.384006789227706D+00  0.239875088007068D+00 -0.401482693437153D+00
- -0.333333323399184D-01  0.497337905620886D+00 -0.333333333333295D-01
-  0.333333325054869D-01  0.557848178200467D+00 -0.333333331677610D-01
-  0.696958035448329D-01 -0.222222223877864D-01 -0.222222213943754D-01
- -0.304697174589057D+00 -0.261715915854071D+01 -0.150587988747139D+01
- -0.311651462131534D+01 -0.215818316005154D+00  0.573067411857183D+01
- -0.325105162287872D+00  0.128698994422082D+01  0.114485552075701D+01
-  0.252909072779715D+00  0.208747104313133D+00  0.204300854285592D+01
- -0.423351586167425D+00 -0.483002336262312D+00  0.334193968667994D-01
-  0.395295689283556D+01  0.333333333333294D-01 -0.333333331677609D-01
- -0.222222223877863D-01 -0.333333318432131D-01  0.333333373069722D-01
- -0.333333373069722D-01 -0.133333331346511D+00  0.333333318432133D-01
-  0.397364286787438D-08  0.397364337961781D-08 -0.198682164904290D-08
- -0.133333345254262D+00 -0.333333333333295D-01  0.333333353201509D-01
- -0.333333353201509D-01  0.133333329359690D+00  0.133333345254262D+00
- -0.397364281756740D-08  0.333333333333293D-01 -0.104083408558608D-16
-  0.138777878078145D-16  0.333333321743500D-01 -0.222222252024500D-01
-  0.333333320087817D-01 -0.222222252024500D-01  0.993410930339583D-09
-  0.444444484180787D-01 -0.888888968361677D-01 -0.132454776270371D-08
- -0.264909559913318D-08 -0.333333331677610D-01 -0.222222232156286D-01
- -0.222222232156286D-01 -0.333333330021924D-01 -0.888888968361676D-01
-  0.993410765107172D-09  0.444444484180786D-01  0.177777793672335D+00
-  0.397364334145389D-08 -0.222222208976700D-01  0.333333369758353D-01
-  0.333333369758353D-01 -0.222222210632386D-01 -0.888888875643340D-01
-  0.444444434510248D-01  0.264909523831069D-08 -0.132454767770226D-08
- -0.333333356512878D-01 -0.222222223877864D-01  0.444444434510248D-01
- -0.333333356512878D-01 -0.222222225533548D-01 -0.132454758099143D-08
-  0.264909520361623D-08 -0.888888862397861D-01 -0.529819029447542D-08
-  0.177777773804120D+00 -0.127963314772529D+00 -0.112150138232109D-01
- -0.403384447981627D+00  0.595784897593268D+00 -0.137802262830042D+01
- -0.820962377136037D+00 -0.785528971892739D+00  0.423493955552303D+01
-  0.104083408558608D-16  0.177187437772326D+01  0.177777771155025D+00
- -0.588651417528260D+01 -0.711980052465481D+01 -0.686099679686377D+00
- -0.157250540830801D+01 -0.207758343375400D-01  0.588787834345265D-01
- -0.113386876623570D+01 -0.553800895976827D+01  0.581445217786839D+01
- -0.397364278460766D-08  0.759794129965551D+00  0.595042181405749D+00
- -0.115757286898025D+01  0.557848178200467D+00  0.199834024500990D+01
- -0.776834121283613D+00 -0.103541661647850D+01 -0.139019352663795D+00
- -0.867679130067218D+00  0.167531524313443D+01  0.719151377902537D+00
-  0.323164933385882D+01 -0.343182594669450D+00  0.100743832737465D+01
-  0.147075355175609D+01  0.875961940430324D+01 -0.722200175662796D+01
-  0.112522144899870D+02 -0.693889390390723D-17  0.397364285920077D-08
-  0.177777776453216D+00  0.214760978052427D+00 -0.159884542601278D+01
- -0.900103902712078D+00 -0.222572231545689D-01  0.542721583430499D+00
-  0.376496497689165D+00  0.375217613571390D+00  0.868113054551328D+00
- -0.292770277944047D-01  0.135191682448227D+01  0.330518648346291D+01
- -0.952959854745389D+00 -0.127963314772529D+00 -0.209972431513723D+00
- -0.120636846895232D+00  0.132454758879769D-08 -0.519834042791009D+01
-  0.198682135413991D-08  0.218478491065643D+01  0.638030503925303D+00
-  0.444444427887510D-01 -0.227094886774459D+01  0.136060540816702D+01
- -0.198682136715034D-08  0.444444427887509D-01  0.449377578157019D+01
-  0.132454757925671D-08 -0.529623558117661D+01 -0.232160890780609D-01
- -0.111774139254442D+01  0.483558865082461D+01  0.528355263029101D+00
- -0.215818316005141D+00 -0.888888888888817D-01  0.443017655053292D+00
-  0.993410801536365D-09  0.706730736329926D+00 -0.217249665176001D+01
-  0.528681409965907D+00 -0.118247002065360D+00  0.514320731751083D+00
-  0.133333333333333D+00  0.749869536224969D+00  0.154093237164599D+01
-  0.723955768768769D+01  0.691244930333002D+00  0.481462159171302D-01
-  0.367389009381619D+01  0.509569992605549D+00 -0.426925186607564D+01
-  0.140328361087593D+01 -0.293846707483014D+00 -0.547476220493728D+00
-  0.719151377902537D+00 -0.557324582160914D+00 -0.129906684019063D+01
- -0.743493973842322D+01 -0.133333333333333D+00 -0.888888888888817D-01
-  0.993410618956719D-09  0.367907150973850D+00  0.197237525757748D+00
- -0.103113400561017D+00 -0.285724725571758D+01 -0.682370975489213D-01
-  0.703910269390147D+00 -0.686099679686376D+00 -0.965530865097178D+00
- -0.108475026028160D+02  0.868113054551224D+00 -0.133333327372868D+00
- -0.993410792862748D-09 -0.888888849152386D-01 -0.283471714878145D+00
- -0.830010105454237D+00  0.172513771571236D+00 -0.217560591278660D+01
- -0.693067421520062D+01 -0.242316569248411D+01  0.110582998312993D+01
- -0.657233194718581D+01 -0.140046379072815D+01  0.133333327372868D+00
- -0.888888849152386D-01 -0.993410671432104D-09  0.227269951143399D+01
- -0.132069680039466D+01  0.289003688119459D+00  0.276297786242662D+01
- -0.173233747001988D+01 -0.282420403677958D+00  0.444444441132987D-01
- -0.778530420973243D+01 -0.225116819786707D+00  0.252909072779715D+00
-  0.465537302721443D+00  0.678522997073815D+00  0.120428219911451D+01
- -0.248938345610684D+01 -0.132454756190947D-08  0.198682137408923D-08
-  0.520168251199937D+01 -0.109014122876521D+01  0.749869536225073D+00
-  0.574447137382317D-01  0.354852368351473D+01  0.946063371281428D+01
-  0.237120198366490D+01  0.124306741639309D+01  0.104751160021363D+01
- -0.244231479586268D+01 -0.670688404548199D+00 -0.331040710688400D+00
-  0.167531524313443D+01  0.444444441132987D-01  0.233800914600055D+01
- -0.198682133245587D-08 -0.132454753285285D-08  0.126564790860526D+01
- -0.154770439783768D+00 -0.513088098220130D-01  0.119108821661174D+00
-  0.140641291056613D-01  0.571556922333424D+00  0.399291273469231D+00
- -0.758309796124360D-01  0.130587991206219D+01  0.101585375326958D+00
- -0.333333313465078D-01 -0.207758343375399D-01 -0.132069680039466D+01
-  0.595599985009773D-01 -0.222222207321017D-01 -0.979878333831017D-01
- -0.170121692878461D+00  0.636963535182648D+00 -0.312500521515757D-01
- -0.474852380445798D+01 -0.333333315120762D-01  0.136060540816702D+01
-  0.665744486327485D+00 -0.106390107869767D+01  0.865672799810807D+00
-  0.306925198584039D+01  0.278844814991187D+00 -0.254889539396055D+01
- -0.222222217255124D-01 -0.843448581131112D+00 -0.333333323399185D-01
- -0.480505883471605D+01  0.333333321743501D-01 -0.127003303059250D+01
-  0.168473260574980D+01  0.333333321743500D-01  0.333333323399185D-01
- -0.308494137098738D+01 -0.222222217255124D-01 -0.450980609817871D+01
-  0.147352286329352D+01  0.191882675933598D+00 -0.169527341794742D+01
-  0.333333313465079D-01 -0.222222207321017D-01 -0.333333315120763D-01
- -0.143658089258082D+01 -0.222222217255124D-01 -0.364136570762623D-01
- -0.396297798336987D+01  0.151154585183773D-01  0.105648427882238D+01
- -0.928994521235912D-01 -0.103950319552453D+00 -0.259481319869127D+00
- -0.325105162287872D+00  0.333333330021924D-01 -0.188802825355405D+00
-  0.409623570094136D+01  0.141402479892885D-01 -0.333333328366239D-01
- -0.289459756451577D-02  0.404580190946170D+00  0.104751160021363D+01
-  0.331564306727850D+00  0.204278442809750D+00  0.640390621705003D-02
- -0.139019352663795D+00  0.509569992605549D+00 -0.333333336644662D-01
- -0.222222227189232D-01 -0.157225112049284D+01  0.734118449105099D+00
-  0.672020976056229D-01  0.333333328366240D-01  0.484419091663182D+00
-  0.333333330021924D-01 -0.222222217255125D-01 -0.297627202907091D+00
- -0.333333338300347D-01  0.135633758510509D+01  0.199860694792699D+01
-  0.557054176666594D+00  0.599314381580548D+01  0.618273078362657D+00
- -0.529200292186015D+00  0.808115984827921D+00  0.333333338300347D-01
- -0.333333336644663D-01 -0.222222227189231D-01 -0.333333323399186D-01
-  0.333333328366238D-01  0.333333323399186D-01 -0.333333328366239D-01
- -0.133333333333333D+00 -0.198682133245587D-08  0.198682135413991D-08
- -0.333333338300347D-01 -0.133333327372868D+00 -0.333333313465078D-01
-  0.333333338300347D-01  0.397364286613966D-08  0.333333313465079D-01
-  0.133333329359690D+00 -0.397364276205625D-08  0.104083408558608D-16
-  0.133333331346511D+00 -0.693889390390723D-17  0.333333326710555D-01
- -0.222222220566492D-01  0.333333325054870D-01 -0.222222222222177D-01
- -0.888888849152386D-01 -0.132454753285285D-08  0.993410618956719D-09
- -0.333333336644662D-01  0.444444427887510D-01 -0.222222207321017D-01
- -0.333333334988978D-01 -0.222222205665333D-01 -0.264909521749401D-08
- -0.888888862397862D-01  0.444444427887510D-01  0.177777771155025D+00
-  0.993410662758487D-09  0.397364285920077D-08  0.333333326710554D-01
- -0.222222212288071D-01 -0.222222213943756D-01  0.333333325054870D-01
- -0.888888888888817D-01  0.444444441132987D-01 -0.333333315120762D-01
- -0.993410792862748D-09  0.132454758879769D-08 -0.222222227189232D-01
- -0.222222228844916D-01 -0.333333316776447D-01  0.444444441132987D-01
- -0.993410631533465D-09  0.264909519320788D-08 -0.888888875643340D-01
- -0.397364278460766D-08  0.177777776453216D+00  0.865672799810807D+00
- -0.918165916683273D+00 -0.925737627026783D+00 -0.155108574304885D+01
-  0.135698391970154D+02  0.476833782841403D+00 -0.170071936988196D+02
- -0.209972431513723D+00 -0.474093257686994D+01  0.463570529024638D+00
-  0.482344328087812D+01 -0.179561507389130D+01  0.346944695195361D-17
-  0.177777771155025D+00 -0.132454756537892D-08  0.331564306727850D+00
- -0.173241113771315D+01  0.602673580976950D+00  0.185672588812758D+01
- -0.143972343789800D+02  0.153199141372429D+02 -0.538478511588038D+01
-  0.181021323868884D+01 -0.360207478922858D+00  0.691244930333002D+00
-  0.161731121562930D+02  0.122432233804044D+02 -0.208166817117217D-16
-  0.397364275164791D-08  0.177777779102311D+00  0.124234388839089D+00
- -0.127003303059250D+01  0.112225949125417D+00 -0.255633771633640D+01
- -0.675446803219534D+01 -0.344516261396241D+01 -0.154536646482237D+01
- -0.838738374270343D-01 -0.806384529058659D+00  0.232400149068526D+00
-  0.111972346358092D+02 -0.232160890779570D-01  0.476833782841403D+00
- -0.331136979815627D-09 -0.888888849152385D-01  0.378853575480436D+01
- -0.133333327372868D+00 -0.129451197753647D+02 -0.495067120912180D+01
-  0.133333327372868D+00 -0.888888849152385D-01 -0.331136769046725D-09
- -0.288473273698110D+01 -0.297627202907091D+00 -0.665158177100300D-02
-  0.877880380400880D+01 -0.400183786948769D+01  0.359688596702853D+00
- -0.916734793625032D+00  0.185672588812758D+01  0.118271902669738D+00
- -0.198682138623230D-08  0.138071939556488D+02 -0.929133116191615D+00
- -0.557324582161018D+00  0.794479740682164D+01  0.510747014223169D-01
-  0.444444447755726D-01 -0.132454760657860D-08  0.275176382999117D+01
- -0.933882491916802D+01  0.198682131857808D-08 -0.132454755150113D-08
-  0.444444447755724D-01  0.333333328366240D-01 -0.333333323399185D-01
- -0.198682138623230D-08 -0.133333327372868D+00  0.333333343267400D-01
-  0.397364281756740D-08  0.133333329359690D+00  0.133333333333333D+00
-  0.333333318432131D-01 -0.198682136715034D-08  0.346944695195361D-17
- -0.208166817117217D-16  0.333333330021924D-01 -0.222222217255124D-01
- -0.132454760657860D-08 -0.888888849152385D-01 -0.333333339956032D-01
- -0.264909520708567D-08 -0.888888862397862D-01  0.993410801536365D-09
- -0.222222210632385D-01  0.444444427887509D-01  0.177777771155025D+00
-  0.397364275164791D-08 -0.222222217255125D-01  0.333333321743501D-01
-  0.444444447755726D-01 -0.331136979815627D-09 -0.222222232156285D-01
-  0.444444447755724D-01 -0.331136753434214D-09 -0.888888888888817D-01
-  0.132454757925671D-08 -0.333333320087816D-01 -0.132454756537892D-08
-  0.177777779102311D+00 -0.401584619094378D+00  0.533311012139031D+00
- -0.481929336179175D+00 -0.238790069664415D+01  0.146750809222469D+00
-  0.249355525653077D+00  0.882221626316751D+01  0.424947398864339D+00
- -0.138777878078145D-16  0.177777779102311D+00 -0.132454758619560D-08
- -0.517588308940504D+00 -0.148765391111794D+00 -0.127985310441144D+00
-  0.410916010409864D+00 -0.105644527385949D+01 -0.236485679321947D+00
- -0.244789404060508D+01  0.824445040329013D+01  0.208166817117217D-16
-  0.132454763476786D-08  0.177777768505929D+00  0.183722651518868D+00
- -0.100537881027813D+00  0.350836698341929D+00 -0.157556679364832D+00
- -0.720605050006807D+00 -0.138016080234229D+01  0.546178919230014D+00
- -0.198682138102813D-08  0.231072912789883D+00  0.109241772577763D+01
- -0.355577876749837D+00  0.249355525653077D+00 -0.319659055893031D+00
-  0.198682138016076D-08 -0.752105665202549D+00  0.701757378976264D+00
-  0.132454760701228D-08  0.609687359467582D+01  0.444444447755726D-01
-  0.132454758966505D-08  0.444444447755725D-01 -0.121116066323014D+01
- -0.626906361492356D-01  0.338801874689744D+00  0.223453028376268D+00
- -0.477972878478900D+00 -0.213194216112407D+00 -0.833906208774380D+00
- -0.599638275775393D-01 -0.556691340395702D+00  0.228817053906563D+00
- -0.265176075508180D+00 -0.836608779589360D+00 -0.270347138676375D+00
- -0.148765391111794D+00 -0.271807036962846D+01 -0.133333327372868D+00
-  0.331136705295637D-09  0.563645957095984D+01 -0.888888849152385D-01
- -0.148696670863247D+01  0.133333327372868D+00  0.331137121195590D-09
- -0.888888849152386D-01 -0.333333313465078D-01  0.198682138016076D-08
-  0.133333333333333D+00  0.333333338300347D-01  0.198682135327255D-08
- -0.138777878078145D-16  0.208166817117217D-16 -0.133333327372868D+00
-  0.333333315120762D-01  0.444444447755726D-01 -0.888888888888817D-01
- -0.222222227189232D-01 -0.132454758272615D-08  0.177777779102311D+00
-  0.132454763476786D-08  0.331136705295637D-09 -0.222222207321017D-01
-  0.132454758966505D-08 -0.331136880069027D-09  0.333333336644662D-01
-  0.444444421264770D-01 -0.132454758619560D-08  0.177777768505929D+00
- -0.888888849152385D-01 -0.194171682138809D+00 -0.503279030464055D+01
-  0.528492248634239D+00  0.722725679919065D+00  0.104756335846596D+01
- -0.342709969658854D+00  0.458028457091816D+01 -0.102337628883491D+01
- -0.171303302923771D+01  0.231072912789883D+00  0.133742827722750D+02
-  0.452280805605441D+01 -0.242861286636753D-16  0.177777779102311D+00
- -0.397364275685208D-08  0.356405120312070D+00 -0.507103481414044D+00
- -0.774727611268746D+00 -0.113603267690141D+01  0.872421322345932D+00
- -0.530628445078110D+01 -0.855304340364998D+00 -0.599638275775392D-01
- -0.550087014199020D+00 -0.390175711684644D+01 -0.366107297359967D+01
-  0.369238389787531D+01  0.346944695195361D-17  0.132454779783187D-08
-  0.177777771155025D+00 -0.225737098011580D+01 -0.373955776082886D+01
-  0.646655428573718D-01  0.377357232197684D+00 -0.360396640254629D+00
-  0.587453830003892D+00  0.270347090902668D+00  0.264909516545231D-08
- -0.319659055893031D+00  0.576808228144188D+00  0.448658729140590D+01
-  0.397364276465834D-08  0.576926295182734D+00  0.123168207162479D+01
-  0.104756335846596D+01 -0.407242110727866D+01 -0.101437015266475D+00
-  0.444444484180785D-01  0.880252328486414D+01 -0.397364273430068D-08
-  0.886376498669155D+01  0.444444447755726D-01  0.264909517282488D-08
- -0.506734209205898D-01 -0.341719606253157D+01 -0.748060289059368D+00
- -0.119288115771966D+00 -0.532483768576694D+00 -0.383178179744224D+01
- -0.888888862397864D-01 -0.257030284561841D+01  0.616538619902750D+00
-  0.303627777928990D+00  0.331136900885709D-09 -0.128564288473713D+01
-  0.471854734110840D+00  0.536816920828867D+01  0.133333329359690D+00
-  0.228817053906563D+00 -0.778028435585089D+01  0.159531586072942D+00
-  0.293080980023003D+01 -0.855304340364998D+00 -0.133333329359690D+00
-  0.121116061545643D+01 -0.380467519097083D-02  0.113634658384067D-01
- -0.131187046835009D+00 -0.231837891185326D+00 -0.218037408811236D+01
-  0.331136708331403D-09 -0.888888862397863D-01  0.333333343267400D-01
- -0.333333318432133D-01  0.133333333333333D+00 -0.133333329359690D+00
-  0.333333323399188D-01  0.397364276465834D-08  0.198682158919494D-08
- -0.198682138102813D-08  0.333333328366240D-01  0.133333327372868D+00
- -0.242861286636753D-16  0.346944695195361D-17 -0.222222232156285D-01
-  0.333333320087818D-01 -0.888888888888817D-01  0.331136708331403D-09
-  0.444444447755726D-01 -0.132454772150403D-08 -0.333333321743502D-01
-  0.444444447755725D-01 -0.222222217255125D-01  0.331137121195590D-09
-  0.177777779102311D+00  0.132454779783187D-08  0.333333339956031D-01
- -0.222222210632387D-01 -0.888888862397863D-01  0.264909517282488D-08
- -0.993410654084870D-09 -0.222222217255125D-01  0.444444427887508D-01
-  0.132454760701228D-08 -0.333333330021925D-01 -0.888888849152386D-01
- -0.397364275685208D-08  0.177777771155025D+00 -0.316501850869913D+01
-  0.262738683453755D+00  0.155049244290771D+01  0.123168207162479D+01
-  0.176055914819096D+01  0.137480949283462D+02  0.414426769633882D+00
- -0.856816858883214D+01 -0.301435058884976D+00 -0.726012304792430D+01
-  0.155154272876998D+02  0.132184139687447D+02 -0.312250225675825D-16
-  0.177777793672335D+00 -0.529819034304768D-08  0.130897681268619D+01
-  0.497337905620886D+00 -0.417034154777924D+00  0.931156303510554D+00
-  0.101630697141575D+02 -0.380467519097080D-02 -0.120637643672350D+02
- -0.722708277870782D+01 -0.343831709880299D+01  0.321214946210180D+00
-  0.370940607270414D+01  0.155123939109464D+01  0.693889390390723D-17
-  0.132454778742352D-08  0.177777773804120D+00  0.987583394283576D+00
-  0.172513771571340D+00 -0.748060289059368D+00 -0.108008469757773D+01
- -0.248699006245144D+01 -0.626150205435113D+00  0.142271674980233D+01
-  0.218037396824604D+01  0.120785206955729D+00  0.264909518626899D-08
- -0.324337339657193D+01  0.444444421264772D-01  0.631497002712696D+01
-  0.278844814991174D+00 -0.397364277593404D-08  0.397364263802352D-08
-  0.170944064816700D+01 -0.133630691388930D+02  0.902565168734026D+01
-  0.176055914819096D+01  0.444444484180787D-01  0.264909508825711D-08
-  0.193503905202432D+02 -0.712468569161017D-01 -0.361910242213517D+00
- -0.508506741590634D+01  0.110893920648210D+01 -0.226069463037642D+01
-  0.910351753871694D-01  0.208747104313132D+00  0.341719594266524D+01
-  0.465537302721339D+00 -0.348488909964357D+01 -0.888888875643342D-01
-  0.331136999764947D-09 -0.303630201152581D+00 -0.231837891185326D+00
-  0.862045132837442D+00  0.931156303510554D+00  0.104962029925510D+01
-  0.133333331346512D+00 -0.351053286813559D+00  0.270768155093020D+01
- -0.391550983267877D+00 -0.133333331346512D+00  0.331136981550351D-09
-  0.151586288251754D+02 -0.169480943530818D+02 -0.888888875643342D-01
- -0.188802825355392D+00  0.239947084711119D+00 -0.455798874510710D+01
- -0.333333323399184D-01  0.333333373069723D-01  0.333333353201509D-01
-  0.397364263802352D-08 -0.133333331346512D+00  0.133333329359690D+00
- -0.397364273430068D-08  0.198682168633946D-08  0.333333328366238D-01
-  0.133333345254262D+00 -0.312250225675825D-16  0.693889390390723D-17
-  0.333333325054869D-01 -0.222222252024500D-01  0.331136981550351D-09
- -0.222222232156286D-01  0.444444484180787D-01  0.331136900885709D-09
-  0.444444484180785D-01 -0.333333326710554D-01 -0.888888968361676D-01
- -0.132454779089297D-08  0.177777793672335D+00  0.132454778742352D-08
- -0.222222213943754D-01  0.333333369758354D-01  0.264909508825711D-08
- -0.888888875643342D-01 -0.333333356512878D-01  0.264909516545231D-08
- -0.888888862397864D-01 -0.222222220566493D-01 -0.132454748731636D-08
-  0.444444434510249D-01 -0.529819034304768D-08  0.177777773804120D+00
-  0.505584431072454D+00 -0.843448581131112D+00  0.170944064816700D+01
- -0.657233194718581D+01 -0.183586290330435D+02 -0.310967516968757D+01
- -0.261799631629220D+00 -0.557120180793625D+01 -0.716375117317528D+00
-  0.192773683919244D+02  0.106329670791463D+02  0.652883052273339D+01
- -0.104083408558608D-16  0.177777768505930D+00 -0.397364275685208D-08
-  0.734118449105099D+00  0.148222870454016D+01 -0.608735004347202D+00
- -0.179953603354320D+01 -0.351053286813559D+00  0.192274819750945D+02
- -0.225503907281113D+02 -0.423351586167425D+00 -0.342345277923519D+01
-  0.124306741639309D+01 -0.383915346501954D+01  0.643369965141092D+01
-  0.104083408558608D-16  0.132454761568590D-08  0.177777776453216D+00
- -0.450980609817871D+01 -0.181827296334494D+01 -0.173233747001998D+01
- -0.361910242213517D+00 -0.137533555984143D+00 -0.806384529058555D+00
-  0.816335655391221D+00  0.455798878595903D+01 -0.233231455828922D+01
-  0.501067037213378D+00 -0.347165526207213D+00  0.198682140271217D-08
- -0.261799631629220D+00  0.444444421264773D-01  0.132454761525222D-08
- -0.224274822167364D+02  0.176804009608954D+01  0.148161379698481D+02
- -0.200141397152586D+00 -0.198682140878370D-08  0.444444421264771D-01
-  0.132454760701228D-08  0.557054176666594D+00  0.188494148600510D+01
-  0.359688596702749D+00  0.478699792646607D+00  0.222406023331061D+01
-  0.508506745675827D+01  0.334193968667865D-01  0.583952326055903D+00
- -0.135567033780342D+01 -0.154770439783665D+00  0.239947084711119D+00
- -0.608735004347202D+00 -0.224773686335664D+02 -0.133333333333333D+00
-  0.331136805909599D-09  0.996529345142632D+01 -0.888888888888817D-01
-  0.118286145082374D+01  0.149515776477792D+02  0.133333333333333D+00
-  0.331137001499671D-09 -0.888888888888817D-01 -0.333333328366239D-01
-  0.333333323399185D-01 -0.133333333333333D+00  0.198682140271217D-08
-  0.198682137408923D-08 -0.397364277593404D-08  0.333333308498025D-01
-  0.133333331346512D+00  0.333333333333294D-01  0.133333327372868D+00
- -0.104083408558608D-16  0.104083408558608D-16  0.333333330021924D-01
- -0.222222217255124D-01  0.331136805909599D-09  0.444444421264773D-01
- -0.132454756190947D-08 -0.222222202353963D-01  0.331136999764947D-09
- -0.333333331677609D-01  0.444444421264772D-01 -0.888888849152386D-01
-  0.177777768505930D+00  0.132454761568590D-08 -0.222222217255124D-01
-  0.333333321743500D-01 -0.888888888888817D-01  0.132454761525222D-08
-  0.444444441132987D-01 -0.888888875643342D-01 -0.333333311809394D-01
- -0.222222223877863D-01 -0.993410671432104D-09  0.264909518626899D-08
- -0.397364275685208D-08  0.177777776453216D+00 -0.187478265700369D+01
- -0.169527341794742D+01  0.613882518529910D+01 -0.495067120912180D+01
- -0.181515779122120D+02 -0.200141397152586D+00 -0.456329382948738D+01
-  0.109622332869185D+01  0.138777878078145D-16  0.177777768505929D+00
- -0.132454757231781D-08 -0.529200292186015D+00 -0.125854934810937D+01
-  0.275176382999117D+01  0.974512004149580D+01  0.118286145082374D+01
- -0.180161382342808D+02  0.256450839885985D+02  0.216299605147958D+02
-  0.589805981832114D-16  0.132454761568590D-08  0.177777779102311D+00
-  0.333333313465079D-01  0.333333338300347D-01  0.133333327372868D+00
-  0.198682131857808D-08 -0.198682140878370D-08  0.133333333333333D+00
-  0.138777878078145D-16  0.589805981832114D-16 -0.222222207321017D-01
- -0.333333336644663D-01 -0.888888849152385D-01 -0.132454755150113D-08
-  0.444444421264771D-01  0.331137001499671D-09  0.177777768505929D+00
-  0.132454761568590D-08 -0.333333315120763D-01 -0.222222227189231D-01
- -0.331136769046725D-09  0.444444447755724D-01  0.132454760701228D-08
- -0.888888888888817D-01 -0.132454757231781D-08  0.177777779102311D+00
- -0.388675281098142D-02 -0.222149183695039D-02  0.317052810620763D-01
- -0.877464779306210D-02 -0.646561221063723D-02 -0.328790102685523D-02
-  0.406012657475323D-01 -0.144172235964772D-01 -0.948676900924816D-18
- -0.406575814682064D-18 -0.177648408724276D+00 -0.844015134101707D-01
-  0.706586663360524D-01 -0.147542271570905D+00 -0.176043645979800D+00
- -0.921090402227006D-01 -0.120488540690000D-01 -0.962891529070343D-01
- -0.135525271560688D-18  0.120617491689012D-17  0.218195687212708D-17
- -0.330717170967192D+00 -0.137108257941506D+00  0.115862768515291D+00
- -0.574379309777691D-01 -0.395181191593174D+00 -0.189883005537150D+00
- -0.712554107067502D-01 -0.121039066056527D-02 -0.899887803162969D-17
-  0.140946282423116D-17 -0.108420217248550D-17 -0.461891861426713D+00
-  0.203101666803876D+00  0.568389594693100D+00 -0.120097834556458D+00
- -0.350215352393749D+00  0.120596678233509D+00  0.225951015427137D+00
-  0.104839361582801D+00  0.411996825544492D-17 -0.758941520739853D-18
-  0.964939933512099D-17 -0.908973931592588D+00  0.534493597672861D+00
- -0.193732015707653D+00  0.378576252726513D+00  0.216840434497101D-17
-  0.130104260698261D-17  0.303576608295941D-17 -0.345530941645085D-01
- -0.294516117358239D-01 -0.170211286238840D-01 -0.673503529734413D-01
- -0.128791517234606D-01 -0.217493736241187D-01 -0.183836830474046D-01
- -0.743395654682506D-01  0.596311194867027D-18  0.813151629364128D-19
-  0.406575814682064D-18 -0.360013345080544D+00 -0.417265463105078D+00
- -0.300090654891896D+00 -0.354416629437196D+00 -0.259537571345355D+00
- -0.345915028662393D+00 -0.236753747883616D+00 -0.302739849065346D+00
- -0.455364912443912D-17  0.281892564846231D-17 -0.216840434497101D-18
- -0.969894508170217D+00 -0.470508654971690D+00 -0.422448063559772D+00
- -0.443559369702129D-02 -0.541651528690228D+00 -0.359441631508323D+00
- -0.260663461702145D+00 -0.238324606892704D-01 -0.238524477946811D-17
-  0.384891771232354D-17 -0.126309553094561D-16 -0.103137104172018D+01
-  0.393617280023819D+00 -0.117003297643582D+00  0.416065425981952D+00
- -0.526657317133728D+00  0.265549447090218D+00 -0.181273639112782D+00
-  0.372903066444671D+00  0.433680868994202D-18  0.433680868994202D-18
- -0.216840434497101D-17 -0.111392932068895D+01  0.505827835319273D+00
- -0.719650085660493D+00  0.315911999470096D+00  0.694567016748526D-17
-  0.511607900141597D-18  0.268001224511261D-17  0.834719995315461D-02
- -0.451496947683143D-01  0.215389272864098D-01 -0.120313428749396D+00
-  0.539176048479889D-02 -0.309351886174988D-01 -0.589616049885850D-01
- -0.930923053577019D-01 -0.786046575051991D-18  0.268340037690162D-17
- -0.243945488809238D-18 -0.249946864911529D+00 -0.107002769781877D+01
- -0.281375624986743D+00 -0.694702897656472D+00  0.392128948396264D-01
- -0.576632219649111D+00  0.129487739024665D+00 -0.434457218509933D+00
- -0.867361737988404D-18 -0.112757025938492D-16  0.000000000000000D+00
- -0.466776379905841D+00 -0.786479827430992D+00 -0.214566771541489D+00
- -0.265638102456336D-01  0.125647743495588D+00 -0.475026505440227D+00
-  0.814845191790399D-01 -0.242126196801973D-03  0.216840434497101D-17
-  0.216840434497101D-18  0.216840434497101D-17 -0.414731550826574D+00
-  0.490578992048134D+00 -0.213653741866946D+00  0.286923115304157D+00
-  0.792547979875522D-01  0.189226259130844D+00  0.820428311754937D-01
-  0.314228745918240D+00 -0.306287113727155D-17 -0.731836466427715D-17
- -0.512285526499401D-17 -0.744340698677324D+00  0.435256515061946D+00
- -0.525134858568457D-01  0.284639149632003D+00  0.433680868994202D-17
-  0.130104260698261D-17  0.173472347597681D-17  0.309079656253880D-02
- -0.487343931906383D-01  0.272241538131157D-02 -0.105346414437327D+00
-  0.374678201131567D-02 -0.822390034810477D-02  0.126450110572933D-01
-  0.128920621302534D-01  0.116551733542192D-17 -0.833480420098232D-18
-  0.138913403349705D-17  0.293317421457723D+00 -0.626980569057690D+00
-  0.292634728904852D+00 -0.838575439527727D+00  0.891211450205118D-01
- -0.144110673549034D+00  0.117844096078550D+00 -0.346459265469827D+00
-  0.693889390390723D-17 -0.303576608295941D-17 -0.780625564189563D-17
-  0.723992336064869D+00 -0.110731679219212D+01  0.387883211706846D+00
-  0.884198250059978D-01  0.540837582353045D+00 -0.670272978896403D+00
-  0.282086699333433D+00 -0.816992346357983D-01  0.112757025938492D-16
-  0.168593437821496D-16 -0.128477957439532D-16  0.683174284392803D+00
-  0.380002104137325D+00  0.283135299555626D+00  0.187699763978891D+00
-  0.822081833832173D+00  0.463712899635516D+00  0.381720911157976D+00
-  0.222034248504188D+00  0.910729824887824D-17 -0.314418630020796D-17
- -0.813151629364128D-17  0.886699540466746D+00  0.490831850251408D+00
-  0.912705380815765D+00  0.103877153771687D+01 -0.260208521396521D-17
- -0.780625564189563D-17 -0.260208521396521D-17 -0.461662970291134D-03
- -0.122744109735941D-02 -0.319144735360564D-03  0.799007179334993D-02
- -0.108420217248550D-17  0.379470760369927D-18 -0.487890977618477D-18
- -0.437505046418397D-02 -0.765977130119323D-01  0.783879787617758D-01
- -0.529939747654947D-01 -0.123599047663348D-16  0.585469173142172D-17
- -0.477048955893622D-17  0.886691664950928D+00 -0.616705135203117D+00
-  0.314224552644792D+00 -0.110388842553885D+01  0.112757025938492D-16
- -0.693889390390723D-17 -0.260208521396521D-17 -0.811853879684679D+00
- -0.487003911045772D+00  0.380477263198341D+00  0.150380221155863D+01
-  0.208166817117217D-16  0.693889390390723D-17 -0.208166817117217D-16
-  0.456629198999737D+01  0.269792102160772D+01 -0.242861286636753D-16
-  0.208166817117217D-16  0.173472347597681D-16
- -0.174774581175561D-01  0.130171872074507D-01  0.648268042673536D-01
-  0.622065199231532D-02 -0.232162474237923D-01  0.400101247053274D-02
-  0.385491618726226D-01  0.294331803813626D-01  0.678414200799743D+00
- -0.441601728599381D+00 -0.541285046854977D-01  0.290017045842835D-01
-  0.528188860470041D-01  0.589593259271318D-01 -0.826842511979838D-01
-  0.691902640377683D-01  0.547970463568553D-01  0.558692734141835D-01
- -0.624823233580588D+00 -0.245136357033832D+01 -0.587328341491076D+00
- -0.215008552014566D-01  0.646984634816448D-01  0.446025753770765D-01
-  0.549267464341764D-01 -0.344833625177405D-01  0.548469374083984D-01
-  0.858552017165761D-01  0.692807992066728D-01 -0.672825837853840D+01
- -0.262134793921447D+01 -0.212003257232741D+01 -0.298583674683721D-02
-  0.380434158312149D-01  0.541285472351048D-01  0.102003550797624D-01
- -0.103191082919574D-03  0.557322675007061D-01  0.104123116467484D+00
-  0.586207967424302D-01 -0.710998296888761D+01 -0.302710854635300D+01
-  0.295456437083994D+01 -0.120957587476101D-01 -0.295894566625810D-01
- -0.117522772131892D-02  0.899765926356126D-01 -0.102608928715566D+01
-  0.832186570515040D+00  0.690609245202082D+01 -0.345915599033159D-01
- -0.195250335506729D-02 -0.289549517446071D-01  0.406272636601193D-01
- -0.417643668446690D-01  0.642715425531726D-02 -0.993631760806126D-01
-  0.201625717431204D-01 -0.564543408030355D-01 -0.815184201218392D+00
- -0.134037754212705D+00 -0.677804387816577D-01  0.611309690799401D-01
- -0.175812132378368D-01  0.659745216035584D-01 -0.766598139187639D-01
-  0.517570648626897D-01  0.268964809145231D-01  0.340526063818693D-01
- -0.790769639912916D+01 -0.469369795059675D+01 -0.706340920232527D+01
- -0.141122607128593D-02  0.585357078986971D-01  0.618696579360335D-01
-  0.357562818232249D-01  0.153480437190808D-01 -0.820048834970455D-02
-  0.528809033785641D-01  0.306328256795228D-02 -0.214360516441807D+02
- -0.112051429440085D+02 -0.449283747815404D+01  0.371264262767438D-01
-  0.321156839732588D-01  0.915907111363150D-01 -0.249315360311798D-02
-  0.315662832607731D-01  0.396501981824728D-02  0.837706797761218D-01
-  0.933698694438044D-01 -0.190182076734493D+02 -0.954110982778941D+01
-  0.555132980327911D+01  0.131946789631037D-01 -0.204821237762051D-02
-  0.394173924232563D-01  0.448960765842327D-02 -0.473737989380098D+01
- -0.594832053032996D+01  0.699045049957937D+01 -0.552688491185460D-01
-  0.256407598145187D-02 -0.761545275495013D-01  0.247206635650878D-02
- -0.451314059171199D-01 -0.134331222402571D-01 -0.113298142652419D+00
- -0.264771748829976D-02 -0.795823729921367D+00  0.493054228068344D+00
- -0.125422186639790D+01 -0.673433360015801D-01  0.111612449208787D-01
- -0.242905828665573D-01 -0.661819563044347D-02 -0.749706250615362D-01
- -0.560157752689080D-01  0.226677211499599D-01  0.312302910507493D-01
- -0.171731917667123D+02 -0.204655413762296D+01 -0.172462896706165D+02
-  0.303911487133733D-01  0.261558109268523D-02  0.491146050948546D-01
-  0.556352007604150D-03  0.370354875872653D-01 -0.242961606356157D-02
-  0.493250547667126D-01 -0.454437324657036D-01 -0.361804019023121D+02
- -0.322239606412964D+01 -0.248003340634421D+01  0.433002398843006D-01
- -0.105882705933226D-01  0.529825408500488D-01 -0.485387693616454D-01
-  0.308150977546578D-01  0.526445961656955D-02  0.881077009972280D-01
-  0.628537446300152D-01 -0.318936526037589D+02 -0.192573312794333D+01
-  0.599595860648592D+01  0.480947719415867D-01 -0.397823736937770D-02
-  0.288502765761886D-01 -0.107951369726947D-01 -0.189884804750587D+02
- -0.409187061549857D+01  0.459416342374393D+01 -0.235957717810021D-01
- -0.921634421891177D-02 -0.106937859337015D+00 -0.509314836775801D-01
- -0.518173285676632D-02 -0.528732711119902D-02 -0.160440470957818D-01
- -0.506791518135529D-01 -0.921119494737443D+00 -0.505480543131431D+00
- -0.155015928755454D+01 -0.895241019061947D-01 -0.656678959323119D-01
-  0.136508305497411D-01 -0.469456518245850D-01 -0.787646167131726D-01
- -0.747685902027450D-01 -0.670263022561566D-01 -0.928845742054732D-01
- -0.117988489316064D+02  0.799692440987532D+01 -0.836511267404974D+01
-  0.522737873198467D-01 -0.811440486445897D-02  0.479219101645301D-01
- -0.111462347618294D-01  0.237121295942205D-01 -0.829588895981971D-01
-  0.206310186596368D-01  0.122733065662952D-01 -0.309105730233451D+02
-  0.557107619365605D+01 -0.482121990396921D+01  0.378675607941549D-01
- -0.477541955853992D-01  0.303042656339480D-01 -0.610006026175228D-01
-  0.621010009311670D-01  0.752939218563218D-01  0.641126151193520D-01
-  0.309388107461146D-01 -0.262052972118918D+02  0.696887245031300D+01
-  0.463112686296469D+01  0.305089527982921D-01 -0.878372151977434D-02
- -0.270341746917158D-02 -0.111785996783229D-01 -0.140094693058531D+02
-  0.888307539282719D+01  0.484546531342018D+01  0.648102591853090D-02
- -0.266281748614882D-03 -0.630023165758138D-02  0.347704246733618D-02
- -0.152499210822813D+01 -0.347014220156878D+00 -0.109389859854508D+00
- -0.242479754780346D-01 -0.307075300712028D-01 -0.641182101696273D-01
- -0.855038128261278D-01 -0.313622161909979D+01 -0.254853318747961D+00
- -0.171194234127588D+01 -0.103433491793735D-01 -0.983643265253459D-01
-  0.508498258992449D-01 -0.996799690023377D-01 -0.893651582305342D+01
-  0.160125115650372D+02 -0.584963982156574D+01  0.227835203562282D-01
- -0.819444682393347D-01  0.105907898336557D-01 -0.210594379535589D-01
- -0.223496440284743D+02 -0.116567336494826D+02  0.656430143309503D+01
-  0.981569783769186D-02  0.815339765687753D-02  0.170814025012210D+02
-  0.240177425848816D+02  0.157145744715894D+02
diff --git a/mtx/test/sparse_data/README b/mtx/test/sparse_data/README
deleted file mode 100644
index fcbbc42ce..000000000
--- a/mtx/test/sparse_data/README
+++ /dev/null
@@ -1,11 +0,0 @@
-These are from the Harwell-Boeing collection.
-http://math.nist.gov/MatrixMarket/data/Harwell-Boeing/
-
-all are real unsymmetric
-
-lns__131.rua     131^2,    536 entries    Fluid flow modeling
-nnc261.rua       261^2,   1500 entries    Nuclear reactor models
-lns__511.rua     511^2,   2796 entries    Fluid flow modeling
-nnc666.rua       666^2,   4044 entries    Nuclear reactor models
-fs_760_3.rua     760^2,   5976 entries    Chemical kinetics
-nnc1374.rua     1374^2,   8606 entries    Nuclear reactor models
diff --git a/mtx/test/sparse_data/e05r0100_rhs1.mtx b/mtx/test/sparse_data/e05r0100_rhs1.mtx
deleted file mode 100755
index 56a059d9a..000000000
--- a/mtx/test/sparse_data/e05r0100_rhs1.mtx
+++ /dev/null
@@ -1,238 +0,0 @@
-%%MatrixMarket matrix array real general
-236 1
--7.6051024589276e-01
--8.7695024335939e-01
--1.2101108982105e-01
--1.6082163452466e-01
--1.8659986737152e-01
--1.4812218177572e-01
--2.6736971580417e-01
--2.3093093181390e-01
- 1.4441911750686e-01
--2.4987471944002e-01
--5.8865061199116e-01
--1.8296113592249e-01
--4.4876941657553e-01
--1.9707562814389e-01
--1.2578287190650e-01
--2.4952151659261e-01
--8.2983115267448e-01
--2.5850217805703e-01
--7.1150767569361e-01
- 4.5739779151732e-01
--8.1653976115315e-01
--1.6259320639133e-01
--8.7579429708753e-01
--2.8483673453480e-01
--8.8853724212836e-01
--3.5619262525952e-01
--1.0942968300917e-01
--4.1848633774215e-01
--1.0918884740610e-01
--1.6263032587283e-01
- 1.2332799712023e-01
- 2.7511630126820e-01
- 6.8720756649434e-01
--2.4208404197670e-01
- 5.7622852824635e-01
--1.3565778767250e-01
--1.0352395379932e-01
--1.4038922200334e-01
--3.9397038866687e-01
--6.4312615972059e-01
- 1.5449880957918e-01
- 1.1113072267976e-01
--8.4025668367627e-01
--2.8016092127048e-01
- 8.8836575081004e-01
--1.1965345025634e-01
- 6.0783347280482e-01
- 8.6736173798840e-01
- 1.7347234759768e-01
- 3.4694469519536e-01
--5.9329047033860e-01
--5.9991074573640e-01
--7.8001516421619e-01
--1.0540288820698e-01
--3.3964714472150e-01
--4.3833129115998e-01
--4.4856466226936e-01
--7.7228713635307e-01
--6.2002811739015e-01
- 1.1011428314306e-01
--1.3383120566618e-01
--3.0341627589559e-01
--7.9398017445701e-01
--2.1979853734802e-01
--8.0213932070393e-01
--1.5423212213127e-01
--5.4845079787722e-01
--1.0903375158678e-01
--5.3800968601924e-01
--1.9651164376300e-01
- 8.1315162936413e-01
--1.2468324983583e-01
--7.6081562418148e-01
--2.7503277820110e-01
--3.0953659037971e-01
--2.0805317000915e-01
--3.4522072972888e-01
--1.6924350740069e-01
--1.9672232797582e-01
--1.1110650534193e-01
- 7.8875708048320e-01
- 2.7105054312138e-01
- 1.0028870095491e-01
--3.0289045067956e-01
--1.8883889015519e-01
--3.4808552697848e-01
- 1.5744543274047e-01
--1.2593180687582e-01
--9.8832891212583e-01
--1.3144852337680e-01
- 5.7495009794786e-01
- 1.1004652050728e-01
--2.9815559743351e-01
--5.0144350477455e-01
--1.1884638938366e-01
- 5.6335395384004e-01
--2.2964307527031e-01
- 3.8671206499275e-01
--6.9388939039072e-01
--8.6736173798840e-01
- 3.4694469519536e-01
- 7.0682021520441e-01
--8.6493940047212e-01
- 7.5574058122640e-01
--1.5021495971746e-01
- 3.3964718682974e-01
--4.3833129070748e-01
- 4.4856471399009e-01
--7.7228713103841e-01
--1.3417001884508e-01
--6.3696877633523e-01
- 1.0842021724855e-01
- 1.5078264331558e-01
--1.0643876984008e-01
- 7.7553330424251e-01
--1.0561634822815e-01
- 1.5423213433058e-01
--5.4845081313371e-01
- 1.0903375556693e-01
--5.3800970446061e-01
--4.2012834183813e-01
--7.9282283863003e-01
--5.6920614055489e-01
--9.9533632377802e-01
--3.2584576579357e-01
--8.3585771637473e-01
--2.1312632150562e-01
- 3.4522072890689e-01
--1.6924351177922e-01
- 1.9672233308006e-01
--1.1110650398578e-01
- 2.2361669807514e-01
- 5.5726297599860e-01
--1.0647204146987e-01
--1.6843117839685e-01
--2.0648337028068e-01
--2.2783295416939e-01
- 8.1716848332814e-01
- 1.2593179824757e-01
--9.8832886537434e-01
- 1.3144850426020e-01
- 5.7495006919628e-01
- 3.5778671692022e-01
--2.3310346708438e-01
--2.0328790734103e-01
--6.6569169315800e-01
- 1.7422075011614e-01
- 2.2964301161934e-01
- 3.8671195334668e-01
- 9.3512437376875e-01
- 1.9922214919421e-01
- 6.2341624917917e-01
- 5.9329046890512e-01
--5.9991073326670e-01
- 7.8001516896860e-01
--1.0540288658173e-01
- 1.8659985630917e-01
--1.4812218786279e-01
- 2.6736969948748e-01
--2.3093093514495e-01
--2.2361669807514e-01
--9.5037096681932e-01
--3.7777669447542e-01
- 3.0341628895991e-01
--7.9398021588653e-01
- 2.1979854274351e-01
--8.0213937737232e-01
- 1.2578287891792e-01
--2.4952155009151e-01
- 8.2983120315883e-01
--2.5850221784434e-01
--1.0469327228063e-01
- 1.9329291856343e-01
- 1.5128008437962e-01
- 7.6081567296746e-01
--2.7503279161993e-01
- 3.0953662051139e-01
--2.0805317470958e-01
- 3.5619265534731e-01
--1.0942969569390e-01
- 4.1848640803755e-01
--1.0918885890074e-01
--3.0967524551617e-01
--3.4050724479623e-01
--3.1611269591530e-01
- 3.0289047309222e-01
--1.8883886559283e-01
- 3.4808556055007e-01
- 1.5744544903815e-01
- 1.0352397129681e-01
--1.4038921161607e-01
- 3.9397111582969e-01
--6.4312583082222e-01
--4.0657581468206e-01
--3.4965520062658e-01
- 6.5052130349130e-01
- 1.1884638147675e-01
- 5.6335392920937e-01
- 1.1965345661656e-01
- 6.0783351420658e-01
- 3.4694469519536e-01
--9.3241386833753e-01
- 1.0842021724855e-01
- 7.6051020188968e-01
--8.7695031852833e-01
- 1.2101108855649e-01
--1.6082164106505e-01
--3.3034284942918e-01
--1.0333801956503e-01
- 2.5241581828178e-01
- 5.8865064509584e-01
--1.8296116648651e-01
- 4.4876945405851e-01
--1.9707566004032e-01
- 5.5565361339882e-01
- 1.3552527156069e-01
- 1.0842021724855e-01
- 1.6259321497244e-01
--8.7579443219909e-01
- 2.8483673886279e-01
--8.8853734478614e-01
--2.3039296165317e-01
- 3.8218126580114e-01
--2.2768245622196e-01
--6.8720753425228e-01
--2.4208405696203e-01
--5.7622845701705e-01
--1.3565774853521e-01
- 1.5720931501040e-01
- 3.7947076036993e-01
--2.0057740190982e-01
- 2.8016093071890e-01
- 8.8836580037783e-01
--8.6736173798840e-01
- 6.9388939039072e-01
--5.2041704279304e-01
diff --git a/mtx/test/sparse_data/e05r0400_rhs1.mtx b/mtx/test/sparse_data/e05r0400_rhs1.mtx
deleted file mode 100755
index 3363f0152..000000000
--- a/mtx/test/sparse_data/e05r0400_rhs1.mtx
+++ /dev/null
@@ -1,238 +0,0 @@
-%%MatrixMarket matrix array real general
-236 1
--3.8867528109814e-01
--2.2214918369504e-01
- 3.1705281062076e-01
--8.7746477930621e-01
--6.4656122106372e-01
--3.2879010268552e-01
- 4.0601265747532e-01
--1.4417223596477e-01
--9.4867690092482e-01
--4.0657581468206e-01
--1.7764840872428e-01
--8.4401513410171e-01
- 7.0658666336052e-01
--1.4754227157090e-01
--1.7604364597980e-01
--9.2109040222701e-01
--1.2048854069000e-01
--9.6289152907034e-01
--1.3552527156069e-01
- 1.2061749168901e-01
- 2.1819568721271e-01
--3.3071717096719e-01
--1.3710825794151e-01
- 1.1586276851529e-01
--5.7437930977769e-01
--3.9518119159317e-01
--1.8988300553715e-01
--7.1255410706750e-01
--1.2103906605653e-01
--8.9988780316297e-01
- 1.4094628242312e-01
--1.0842021724855e-01
--4.6189186142671e-01
- 2.0310166680388e-01
- 5.6838959469310e-01
--1.2009783455646e-01
--3.5021535239375e-01
- 1.2059667823351e-01
- 2.2595101542714e-01
- 1.0483936158280e-01
- 4.1199682554449e-01
--7.5894152073985e-01
- 9.6493993351210e-01
--9.0897393159259e-01
- 5.3449359767286e-01
--1.9373201570765e-01
- 3.7857625272651e-01
- 2.1684043449710e-01
- 1.3010426069826e-01
- 3.0357660829594e-01
--3.4553094164509e-01
--2.9451611735824e-01
--1.7021128623884e-01
--6.7350352973441e-01
--1.2879151723461e-01
--2.1749373624119e-01
--1.8383683047405e-01
--7.4339565468251e-01
- 5.9631119486703e-01
- 8.1315162936413e-01
- 4.0657581468206e-01
--3.6001334508054e-01
--4.1726546310508e-01
--3.0009065489190e-01
--3.5441662943720e-01
--2.5953757134535e-01
--3.4591502866239e-01
--2.3675374788362e-01
--3.0273984906535e-01
--4.5536491244391e-01
- 2.8189256484623e-01
--2.1684043449710e-01
--9.6989450817022e-01
--4.7050865497169e-01
--4.2244806355977e-01
--4.4355936970213e-01
--5.4165152869023e-01
--3.5944163150832e-01
--2.6066346170214e-01
--2.3832460689270e-01
--2.3852447794681e-01
- 3.8489177123235e-01
--1.2630955309456e-01
--1.0313710417202e-01
- 3.9361728002382e-01
--1.1700329764358e-01
- 4.1606542598195e-01
--5.2665731713373e-01
- 2.6554944709022e-01
--1.8127363911278e-01
- 3.7290306644467e-01
- 4.3368086899420e-01
- 4.3368086899420e-01
--2.1684043449710e-01
--1.1139293206890e-01
- 5.0582783531927e-01
--7.1965008566049e-01
- 3.1591199947010e-01
- 6.9456701674853e-01
- 5.1160790014160e-01
- 2.6800122451126e-01
- 8.3471999531546e-01
--4.5149694768314e-01
- 2.1538927286410e-01
--1.2031342874940e-01
- 5.3917604847989e-01
--3.0935188617499e-01
--5.8961604988585e-01
--9.3092305357702e-01
--7.8604657505199e-01
- 2.6834003769016e-01
--2.4394548880924e-01
--2.4994686491153e-01
--1.0700276978188e-01
--2.8137562498674e-01
--6.9470289765647e-01
- 3.9212894839626e-01
--5.7663221964911e-01
- 1.2948773902467e-01
--4.3445721850993e-01
--8.6736173798840e-01
--1.1275702593849e-01
- 0.0000000000000e+00
--4.6677637990584e-01
--7.8647982743099e-01
--2.1456677154149e-01
--2.6563810245634e-01
- 1.2564774349559e-01
--4.7502650544023e-01
- 8.1484519179040e-01
--2.4212619680197e-01
- 2.1684043449710e-01
- 2.1684043449710e-01
- 2.1684043449710e-01
--4.1473155082657e-01
- 4.9057899204813e-01
--2.1365374186695e-01
- 2.8692311530416e-01
- 7.9254797987552e-01
- 1.8922625913084e-01
- 8.2042831175494e-01
- 3.1422874591824e-01
--3.0628711372716e-01
--7.3183646642772e-01
--5.1228552649940e-01
--7.4434069867732e-01
- 4.3525651506195e-01
--5.2513485856846e-01
- 2.8463914963200e-01
- 4.3368086899420e-01
- 1.3010426069826e-01
- 1.7347234759768e-01
- 3.0907965625388e-01
--4.8734393190638e-01
- 2.7224153813116e-01
--1.0534641443733e-01
- 3.7467820113157e-01
--8.2239003481048e-01
- 1.2645011057293e-01
- 1.2892062130253e-01
- 1.1655173354219e-01
--8.3348042009823e-01
- 1.3891340334971e-01
- 2.9331742145772e-01
--6.2698056905769e-01
- 2.9263472890485e-01
--8.3857543952773e-01
- 8.9121145020512e-01
--1.4411067354903e-01
- 1.1784409607855e-01
--3.4645926546983e-01
- 6.9388939039072e-01
--3.0357660829594e-01
--7.8062556418956e-01
- 7.2399233606487e-01
--1.1073167921921e-01
- 3.8788321170685e-01
- 8.8419825005998e-01
- 5.4083758235305e-01
--6.7027297889640e-01
- 2.8208669933343e-01
--8.1699234635798e-01
- 1.1275702593849e-01
- 1.6859343782150e-01
--1.2847795743953e-01
- 6.8317428439280e-01
- 3.8000210413732e-01
- 2.8313529955563e-01
- 1.8769976397889e-01
- 8.2208183383217e-01
- 4.6371289963552e-01
- 3.8172091115798e-01
- 2.2203424850419e-01
- 9.1072982488782e-01
--3.1441863002080e-01
--8.1315162936413e-01
- 8.8669954046675e-01
- 4.9083185025141e-01
- 9.1270538081577e-01
- 1.0387715377169e-01
--2.6020852139652e-01
--7.8062556418956e-01
--2.6020852139652e-01
--4.6166297029113e-01
--1.2274410973594e-01
--3.1914473536056e-01
- 7.9900717933499e-01
--1.0842021724855e-01
- 3.7947076036993e-01
--4.8789097761848e-01
--4.3750504641840e-01
--7.6597713011932e-01
- 7.8387978761776e-01
--5.2993974765495e-01
--1.2359904766335e-01
- 5.8546917314217e-01
--4.7704895589362e-01
- 8.8669166495093e-01
--6.1670513520312e-01
- 3.1422455264479e-01
--1.1038884255388e-01
- 1.1275702593849e-01
--6.9388939039072e-01
--2.6020852139652e-01
--8.1185387968468e-01
--4.8700391104577e-01
- 3.8047726319834e-01
- 1.5038022115586e-01
- 2.0816681711722e-01
- 6.9388939039072e-01
--2.0816681711722e-01
- 4.5662919899974e-01
- 2.6979210216077e-01
--2.4286128663675e-01
- 2.0816681711722e-01
- 1.7347234759768e-01
diff --git a/mtx/test/sparse_data/g10 b/mtx/test/sparse_data/g10
deleted file mode 100644
index 09e14419a..000000000
--- a/mtx/test/sparse_data/g10
+++ /dev/null
@@ -1,146 +0,0 @@
-10x10 grid, with COLMMD order                                                   
-           145            11            39            92             0
-RUA                      100           100           460             0
-(10I8)          (12I6)          (5E16.8)                                  
-       1       6      10      13      17      22      26      30      35      40
-      45      50      55      60      65      70      75      79      83      88
-      92      95      99     103     108     112     117     122     127     131
-     136     140     145     150     155     160     165     169     173     176
-     180     184     188     193     197     202     207     211     215     220
-     225     230     235     239     242     246     251     255     259     264
-     269     274     279     284     289     294     299     303     307     312
-     317     322     327     332     337     342     347     352     356     360
-     365     370     374     379     384     389     394     399     404     409
-     413     417     422     427     432     437     442     447     452     457
-     461
-    46    55    56    57    66    60    69    70    80    90    99   100
-    89    98    99   100    79    88    89    90    99    80    89    90
-   100    70    79    80    90    69    78    79    80    89    78    87
-    88    89    98    59    68    69    70    79    68    77    78    79
-    88    58    67    68    69    78    67    76    77    78    87    57
-    66    67    68    77    47    56    57    58    67    34    43    44
-    45    54    85    94    95    96    86    95    96    97    75    84
-    85    86    95    51    61    62    71    81    91    92    82    91
-    92    93    71    81    82    91    62    71    72    73    82    61
-    71    72    81    72    81    82    83    92    52    61    62    63
-    72    63    72    73    74    83    84    93    94    95    74    83
-    84    85    94    83    92    93    94    73    82    83    84    93
-    64    73    74    75    84    53    62    63    64    73    43    52
-    53    54    63    54    63    64    65    74     4     5     6    15
-     5     6     7    16     1     2    11     1     2     3    12    21
-    31    32    41     1    11    12    21    12    21    22    23    32
-    11    21    22    31     2    11    12    13    22     3    12    13
-    14    23     2     3     4    13     3     4     5    14     4    13
-    14    15    24     5    14    15    16    25    13    22    23    24
-    33    22    31    32    33    42    30    39    40    50     9    10
-    20     8     9    10    19     9    18    19    20    29    20    29
-    30    40    10    19    20    30    19    28    29    30    39     8
-    17    18    19    28    18    27    28    29    38    29    38    39
-    40    49    17    26    27    28    37    28    37    38    39    48
-     7    16    17    18    27     6    15    16    17    26     7     8
-     9    18     6     7     8    17    15    24    25    26    35    16
-    25    26    27    36    42    51    52    53    62    24    33    34
-    35    44    14    23    24    25    34    23    32    33    34    43
-    25    34    35    36    45    32    41    42    43    52    33    42
-    43    44    53    31    41    42    51    41    51    52    61    35
-    44    45    46    55    36    45    46    47    56    50    59    60
-    70    26    35    36    37    46    27    36    37    38    47    37
-    46    47    48    57    38    47    48    49    58    48    57    58
-    59    68    39    48    49    50    59    49    58    59    60    69
-    40    49    50    60    88    97    98    99    44    53    54    55
-    64    45    54    55    56    65    55    64    65    66    75    56
-    65    66    67    76    65    74    75    76    85    66    75    76
-    77    86    76    85    86    87    96    77    86    87    88    97
-    87    96    97    98
-  1.26819336e+00 -3.12426583e-02  7.78211737e-01  2.18048355e+00  4.37813682e-01
- -3.96516210e-01  1.38880676e+00  1.36442229e+00  6.58152637e-01 -6.92971494e-01
- -8.59806235e-01  5.29038063e-01 -1.74530599e-01  9.78788421e-01  1.28955368e+00
- -5.30575045e-01  1.83403368e+00 -1.71591032e+00  8.69317059e-02  1.95567435e+00
-  1.61453770e-01 -6.28688359e-01 -1.43882447e+00 -6.65959686e-02  3.73380863e-01
-  1.39860373e-01 -7.48088838e-01 -6.28974933e-01  1.39483065e+00  4.20988804e-01
- -4.33373058e-01  7.06251990e-01  2.27856907e-01 -1.01699185e+00  8.25892307e-01
-  1.47039036e+00 -1.37890689e+00 -2.60172069e-01  9.94768173e-01 -1.58105341e+00
-  1.04902235e+00  3.02689036e-01 -1.22650234e+00  6.96000951e-02  1.33881437e+00
-  1.22229851e+00 -1.59597816e+00 -1.06773032e+00 -7.59919212e-01 -1.98499916e-01
- -1.41404614e-01  4.11267927e-01 -1.17905966e+00 -2.77775506e-01  1.93931843e+00
- -8.95840361e-01 -3.04157583e-01  5.55253123e-01 -3.24246851e-01 -9.11425420e-01
- -9.96089984e-01  1.19514263e+00 -1.59447782e-01  2.70402605e+00  1.33332898e+00
-  2.51078139e-01 -3.10470908e-01 -9.23003724e-01 -3.84775736e-01 -1.46163875e+00
-  1.55446592e+00 -5.97535384e-01 -1.21056787e+00 -7.02668798e-01  9.53355517e-01
- -1.93005494e+00  5.12844987e-01  3.93682449e-01 -9.05426500e-01 -1.27447328e+00
-  3.46546103e-01 -1.19523544e+00  8.66840733e-01  1.29184358e+00  4.34312653e-01
- -3.86206929e-01 -1.12563760e-01  9.59664371e-01  2.08759311e+00  1.52468053e+00
- -1.95260790e-01  2.17314078e-01 -1.79456822e-01  2.56729070e-02  6.42066362e-01
-  9.23086649e-01 -1.55510777e+00  6.63594033e-01 -1.64769114e+00 -2.01498584e+00
-  4.91716881e-01 -1.55497528e+00 -3.97913855e-01  8.64279576e-01 -1.77618078e-01
-  1.87438052e+00  1.72400235e-01  4.91313669e-01  8.00733701e-01 -7.67268997e-01
-  3.64419504e-01 -1.40609081e-01  2.44943669e-01 -2.67458500e-01 -5.70245480e-01
- -1.87266787e-01  1.72603158e-02  2.46340439e-01 -8.54484721e-01  1.15778270e+00
-  1.61907723e-01  1.27174349e+00 -3.53443680e-02 -1.50132884e+00  3.65373411e-01
- -1.98659856e-01  9.94299745e-01 -8.03474714e-01 -5.91204478e-01  1.69154641e+00
- -7.24410496e-01  1.19219551e+00  1.86746737e-01  1.59493888e+00  3.21307056e-01
- -6.09499611e-01  5.65239403e-01 -6.10781446e-01  1.23111147e+00  1.20855665e+00
- -6.38854660e-01  6.05540299e-01 -6.24480544e-01  5.72228122e-01 -1.38972170e+00
-  2.29327812e-01  2.71190237e-01 -3.66360220e-01  1.37696039e+00  1.55706376e+00
- -1.93543855e-01  1.65130117e+00 -1.89877818e+00  1.82252476e+00  7.65458387e-01
- -5.94524008e-01  1.30245975e-01  3.50135051e-02 -6.24674139e-01 -1.51841513e+00
- -1.05107061e+00  4.99305134e-02 -1.45474887e+00  4.66545850e-01 -3.60029626e-01
- -1.35576294e-01 -1.34933848e+00 -1.27044990e+00  9.84570273e-01 -4.48806138e-02
- -7.98944517e-01 -7.65172429e-01  1.16495351e+00  6.26839083e-01  7.50801547e-02
-  3.51606903e-01 -6.96512535e-01  1.69614248e+00  5.90597780e-02  9.68481048e-01
-  6.70291997e-01  4.20146042e-01 -2.87275127e+00 -2.04134535e-03  1.60651096e+00
-  8.47648635e-01  2.68100812e-01  3.98848528e-02 -2.48284251e+00  1.15865471e+00
- -1.02627947e+00  1.15348699e+00  6.15769628e-01  9.77894070e-01 -1.11534771e+00
- -5.50021449e-01 -9.23489086e-01 -7.04993878e-02  1.47891351e-01 -5.57093642e-01
- -3.36705699e-01  4.15227463e-01  1.55781354e+00 -2.44429890e+00 -1.09819539e+00
-  1.12264786e+00  1.79707178e+00  2.64068529e-01  8.71673289e-01 -1.44617154e+00
- -7.01165346e-01  1.24598212e+00 -6.38976995e-01  5.77350219e-01  5.81667258e-01
- -2.71354296e-01  4.14191307e-01 -9.77814227e-01 -1.02146617e+00  3.17687980e-01
-  1.51610780e+00  7.49432453e-01 -5.07700387e-01  8.85299448e-01 -7.86456613e-01
-  6.34808588e-01  8.20409762e-01 -1.76026510e-01  5.62473875e-01  1.68587408e+00
-  2.79245535e-02 -9.02030581e-01 -2.05325749e+00  8.90862977e-02 -1.04842345e+00
-  4.22723685e-01 -8.44414378e-01 -3.11629756e-01 -3.22939921e-01  3.17987916e-01
- -5.11172208e-01  1.12516182e+00  7.28641592e-01 -2.37745429e+00 -2.73782416e-01
-  3.49733203e-02 -1.80786206e+00  1.02819255e+00  3.94600309e-01  6.39405642e-01
- -7.59696649e-01 -6.74720856e-01 -1.17168719e+00  2.03293002e+00  8.74212895e-01
-  1.75240173e+00 -3.20050826e-01 -1.37413808e-01  2.92314877e-01  2.56591024e+00
- -4.57815644e-01 -1.61082701e+00 -2.66952378e+00  7.03144053e-01 -5.24115850e-02
-  2.01849612e+00  9.24159405e-01 -1.81411470e+00  4.38705098e-01 -1.24734432e+00
-  3.24666917e-01  3.90070410e-01 -4.05138317e-01 -3.68411285e-01  1.14789528e+00
-  4.14302603e-02 -1.09804965e+00  1.56672375e+00  4.99520851e-01 -1.05537507e+00
- -4.50743203e-01  1.27037824e+00  8.98693601e-01  8.74127225e-01  7.61126995e-01
- -1.65923455e-01  3.00907437e-01 -3.22467327e-01  5.62147834e-01 -1.06392289e+00
-  3.51588948e-01  1.13299993e+00  1.49994248e-01 -2.48093553e-01 -7.26249000e-01
- -4.45040301e-01 -6.12911120e-01 -2.09144085e-01  7.56218970e-01  4.00486023e-01
- -1.34138072e+00  3.75041024e-01  8.61734897e-01 -5.62251244e-02  5.13478174e-01
-  3.96680866e-01 -6.20214209e-01  2.37148765e-01 -1.58684699e+00 -4.01484810e-01
- -7.70692269e-01 -2.62680506e-01  9.76489544e-01  9.77815041e-01  1.17002111e+00
-  1.59310862e-01  1.83613203e+00 -3.82918259e-01  1.55082745e-01 -9.64648249e-01
-  3.87564313e-02 -1.52762265e+00  9.64938959e-01  5.26162503e-01 -1.84454117e-01
-  1.98782828e-01 -1.27442875e-01  5.54171561e-01 -1.09734432e+00 -7.31301400e-01
-  1.40473192e+00  2.08709913e+00  3.65118460e-01  8.46105526e-01 -1.84537657e-01
-  1.03071442e+00  1.59042684e+00  3.21916399e-02  8.89163671e-01 -1.29915249e+00
-  1.18257310e+00 -2.21360782e-01  1.66494939e-02 -1.19236124e+00 -1.31646297e-01
-  1.48752430e+00 -8.36821231e-01 -1.30098190e+00  1.57413186e+00  1.16603996e+00
-  7.86429695e-01  3.97810484e-01  1.04978596e+00 -3.40795563e-01  3.36296999e-01
-  8.99883574e-01 -2.00898856e-01 -2.33734975e-01  1.44990660e+00  3.56429388e-01
-  6.52635669e-01  2.15671161e-01 -2.63896186e-01  1.80244024e+00 -6.42984172e-01
-  1.09555050e-01 -7.19037696e-01  4.20627573e-01 -1.93113369e+00  3.20690754e+00
-  5.36007045e-01  2.98450536e-01  2.84043161e-01  1.81747171e+00 -5.84302130e-01
- -1.01067382e+00 -9.60498312e-01  6.91159584e-01 -7.58618207e-01 -9.69717328e-02
- -1.40694905e+00  1.03081246e+00 -7.59874404e-01  6.60299785e-01 -1.10250960e+00
- -1.02970645e-01 -1.05980154e+00 -1.23856594e+00 -1.88923606e+00 -9.73584554e-01
-  2.12115839e-01  4.93441991e-01  1.54717659e+00  1.15818057e+00  8.62500188e-01
- -1.03470562e+00 -1.92672883e-01 -1.29972278e+00  6.44932748e-01 -2.14835899e+00
- -1.02884453e+00 -1.41582116e-01 -2.52670612e+00  3.06595916e-01  9.68992176e-01
- -7.47317127e-01 -2.79602442e+00  6.96731554e-01 -3.12981493e-01 -5.93617619e-01
-  3.32322162e-01  5.58850703e-01 -9.14800738e-01 -5.14012560e-01  1.89626061e+00
- -2.53229992e-01 -5.39775241e-01  1.87995711e+00 -1.00384945e+00 -4.97445878e-01
- -1.50439715e+00 -9.54492989e-02  3.96727054e-01 -5.27114908e-01  3.44571056e-01
- -7.23290526e-01  5.45436841e-01  1.32031907e+00 -4.04494328e-01  4.18468509e-01
-  2.47348750e-01  7.04110315e-01  6.31938853e-01 -9.92362113e-01  1.76670837e+00
- -3.82103635e-01 -7.97532757e-01 -9.36740612e-01 -2.43346549e-03  3.96086166e-01
- -5.08693172e-01 -2.68285779e-01 -1.08214045e+00  2.01413372e+00  1.94403113e+00
- -1.52152942e+00 -9.64333079e-01 -2.05725119e+00  1.49996068e-01  5.42037571e-01
-  2.54408816e-01 -3.07240694e-01 -4.17111830e-01  1.13680483e+00  3.91313809e-01
-  1.60514782e+00  6.67201442e-01 -6.77937746e-02 -1.73566011e+00  8.06348573e-01
diff --git a/mtx/test/sparse_data/g10.rhs b/mtx/test/sparse_data/g10.rhs
deleted file mode 100644
index 82da24dcb..000000000
--- a/mtx/test/sparse_data/g10.rhs
+++ /dev/null
@@ -1,101 +0,0 @@
-this rhs with g10 matrix should produce solution of all 1's
-1.51451906765
-0.803909242
-1.674273126
-2.339293041
-0.5277049639999999
--0.7805777497999997
-0.4631971626
-2.74227007
--0.9007057287000001
--1.185253479
-2.2268613549
-2.6522981568
--5.505374991
-1.282011061
--2.845294883
--3.044516513
-0.58246796
-2.157380112
-3.723286146
--1.196319374
--0.2683665799999998
-2.027283969
-3.558048843
--3.585310885
-1.134067442
-1.129282786
--1.136690372
-3.220967922
--0.4714717329999999
--3.968351458
-0.5460055854999999
-0.815360129
--0.516560361
-0.3169096558999998
--0.2938554569999999
--2.890471352800001
--0.0473269810000001
--0.2815900920000001
--1.2595296497
--0.2225155010000003
--0.9064322421000002
--0.9089203753000002
-4.79312429
-0.8801478320000001
-0.2017821421
--0.1260905380000001
--0.08247304999999983
--2.160331448
-0.7442995080000001
-3.08601783
-0.712144255
-0.8316083777999999
-3.389048291
--2.7931928189
-1.2920736367
-0.1468375569999999
-0.5825214699999999
-0.359959506
--4.511742495
--2.335239391
-4.275153818
-0.1174945302999999
-2.405082611
--3.422647446599999
--2.748127628
--1.400455685
-4.37498908
-1.339934085
-1.630156494
-0.5618234840000003
--0.1779386530000001
--0.958932801
-3.633460902
--0.5580416100000001
--0.3367446524900001
-0.1679428109999999
-5.258957413
--0.9259812940000001
-0.7940666071000002
--0.3716537479999999
--1.188308589
-0.3998703179999998
-0.4193308619999998
-3.225369908
-0.4166626879999997
--3.080278611
-3.492187352
--4.378223351000001
--2.8035872821
-2.5909375374
--0.811345453
--1.151462247
--0.1784340050000001
--0.9688408920000002
-0.8173543569999999
-0.9268435934
--1.83976029
-4.676165777
-0.3379712230000001
-0.371843881
diff --git a/mtx/test/sparse_data/g20.rua b/mtx/test/sparse_data/g20.rua
deleted file mode 100644
index 382c9c437..000000000
--- a/mtx/test/sparse_data/g20.rua
+++ /dev/null
@@ -1,534 +0,0 @@
-g20, symm permuted by SYMMMD                                            SYM     
-           530            26           120           384             0
-RUA                      400           400          1920             0
-(16I5)          (16I5)          (5E15.8)            (5E15.8)            
-    1    6   11   16   21   26   31   36   41   46   51   56   61   66   71   76
-   81   86   91   96  101  106  111  116  121  126  131  136  141  146  151  156
-  161  166  171  176  181  186  191  196  201  206  210  214  218  223  228  231
-  235  239  243  248  253  257  262  266  271  276  281  286  291  295  300  304
-  309  313  318  323  328  332  337  342  347  352  357  362  367  372  377  382
-  387  392  397  402  407  412  417  422  427  432  437  442  447  452  457  462
-  467  472  477  482  487  492  497  501  505  510  514  519  524  529  534  539
-  544  549  554  559  564  568  572  576  580  583  588  593  597  601  606  610
-  614  619  624  629  634  639  644  649  654  659  664  669  674  678  682  686
-  691  696  701  706  710  714  718  723  728  732  737  742  747  752  757  762
-  767  772  777  781  786  791  796  800  805  810  815  820  825  830  835  839
-  844  849  854  859  864  869  874  879  884  889  894  899  904  909  914  919
-  923  928  932  937  941  946  951  956  961  966  971  976  981  986  991  996
- 1001 1006 1011 1015 1020 1024 1029 1033 1038 1043 1048 1053 1058 1063 1068 1073
- 1078 1083 1088 1093 1098 1103 1108 1113 1117 1122 1126 1130 1133 1138 1142 1147
- 1152 1156 1161 1165 1170 1174 1179 1183 1188 1193 1198 1203 1208 1212 1217 1221
- 1226 1230 1235 1240 1245 1249 1254 1259 1264 1269 1274 1279 1284 1288 1293 1298
- 1303 1308 1313 1317 1322 1327 1332 1337 1342 1347 1352 1357 1362 1367 1372 1377
- 1382 1387 1392 1397 1402 1407 1412 1417 1422 1427 1432 1437 1442 1446 1451 1455
- 1459 1464 1468 1472 1477 1482 1487 1492 1497 1501 1506 1510 1515 1519 1522 1526
- 1530 1535 1539 1544 1549 1554 1559 1563 1568 1573 1578 1583 1587 1592 1596 1601
- 1605 1610 1615 1620 1625 1630 1635 1640 1645 1650 1655 1660 1665 1670 1674 1679
- 1684 1689 1694 1699 1704 1709 1714 1719 1724 1729 1734 1738 1743 1748 1753 1758
- 1763 1768 1773 1778 1783 1788 1792 1797 1802 1807 1811 1816 1821 1826 1831 1836
- 1841 1846 1851 1856 1861 1866 1871 1876 1881 1886 1891 1896 1901 1906 1911 1916
- 1921
-    1    9   32  391  395    2    9  392  395  400    3    8  389  393  394    4
-    8    9  392  394    5    7    8  381  389    6    7    8    9   32    5    6
-    7   33  382    3    4    5    6    8    1    2    4    6    9   10   31  396
-  398  399   11   18   29   30   31   12   18   31  397  399   13   17  386  387
-  388   14   17   18   30  387   15   17  383  388  390   16   17   18  390  397
-   13   14   15   16   17   11   12   14   16   18   19   28   33  380  382   20
-   22   28   29   33   21   22   29   31  398   20   21   22   32  391   23   27
-  379  384  385   24   27   28  379  380   25   27   30  385  387   26   27   28
-   29   30   23   24   25   26   27   19   20   24   26   28   11   20   21   26
-   29   11   14   25   26   30   10   11   12   21   31    1    6   22   32   33
-    7   19   20   32   33   34   74   92  370  372   35   40   70  174  176   36
-   40   91  174  177   37   39   40   70   71   38   39   40   90   91   37   38
-   39   74   92   35   36   37   38   40   41   56   70   71   73   42   44   55
-   56   43   44  175  176   42   43   44   45   44   45   56   70  176   46   54
-   55   56   73   47   49   53   48   49   54   55   47   48   49   52   50   51
-   53   69   50   51   52   68   72   49   51   52   53   54   47   50   52   53
-   46   48   52   54   72   42   46   48   55   41   42   45   46   56   57   59
-   67   68   72   58   59   67   74  372   57   58   59   71   73   60   66   67
-  372  373   61   62   65   69   61   62   66   67   68   63   64   65  374   63
-   64   66  371  373   61   63   65   66   60   62   64   65   66   57   58   60
-   62   67   51   57   62   68   69   50   61   68   69   35   37   41   45   70
-   37   41   59   71   74   51   54   57   72   73   41   46   59   72   73   34
-   39   58   71   74   75   89  369  381  389   76   78   92  370  375   77   78
-   89  369  375   76   77   78   88   90   79   87   91  177  178   80   87   88
-   90   91   81   86   87  173  178   82   86  173  379  380   83   85   86   87
-   88   84   85   86  380  382   83   84   85   89  381   81   82   83   84   86
-   79   80   81   83   87   78   80   83   88   89   75   77   85   88   89   38
-   78   80   90   92   36   38   79   80   91   34   39   76   90   92   93  172
-  385  386  387   94   98  168  169  170   95   98  169  172  386   96   98  109
-  170  171   97   98  109  386  388   94   95   96   97   98   99  108  377  383
-  390  100  108  376  377  378  101  107  109  167  171  102  107  109  383  388
-  103  106  107  167  104  106  108  378  105  106  107  108  383  103  104  105
-  106  101  102  103  105  107   99  100  104  105  108   96   97  101  102  109
-  110  166  173  379  384  111  132  138  162  164  112  132  138  168  169  113
-  131  132  163  164  114  130  131  132  168  115  129  130  168  170  116  123
-  128  129  130  117  121  123  128  118  120  131  163  119  120  121  123  118
-  119  120  122  117  119  121  120  122  123  130  131  116  117  119  122  123
-  124  127  128  129  125  127  167  171  126  127  129  170  171  124  125  126
-  127  116  117  124  128  115  116  124  126  129  114  115  116  122  130  113
-  114  118  122  131  111  112  113  114  132  133  137  138  162  165  134  137
-  165  166  384  135  137  138  169  172  136  137  172  384  385  133  134  135
-  136  137  111  112  133  135  138  139  145  174  175  176  140  145  161  174
-  177  141  143  145  175  142  143  153  160  141  142  143  144  143  144  145
-  160  161  139  140  141  144  145  146  152  153  159  160  147  152  159  162
-  165  148  150  152  153  149  150  163  164  148  149  150  151  150  151  152
-  162  164  146  147  148  151  152  142  146  148  153  154  158  159  160  161
-  155  158  161  177  178  156  158  159  165  166  157  158  166  173  178  154
-  155  156  157  158  146  147  154  156  159  142  144  146  154  160  140  144
-  154  155  161  111  133  147  151  162  113  118  149  163  111  113  149  151
-  164  133  134  147  156  165  110  134  156  157  166  101  103  125  167   94
-  112  114  115  168   94   95  112  135  169   94   96  115  126  170   96  101
-  125  126  171   93   95  135  136  172   81   82  110  157  173   35   36  139
-  140  174   43  139  141  175   35   43   45  139  176   36   79  140  155  177
-   79   81  155  157  178  179  183  201  369  375  180  183  200  201  274  181
-  183  369  389  393  182  183  272  274  393  179  180  181  182  183  184  188
-  370  372  373  185  188  199  371  373  186  188  201  370  375  187  188  199
-  200  201  184  185  186  187  188  189  198  200  274  277  190  198  273  276
-  277  191  197  198  199  200  192  193  196  374  192  193  197  199  371  194
-  195  196  275  194  195  197  198  276  192  194  196  197  191  193  195  196
-  197  189  190  191  195  198  185  187  191  193  199  180  187  189  191  200
-  179  180  186  187  201  202  271  272  393  394  203  207  272  274  277  204
-  207  218  273  277  205  207  267  271  272  206  207  218  266  267  203  204
-  205  206  207  208  217  218  266  268  209  217  265  268  270  210  216  217
-  218  273  211  212  215  275  211  212  216  273  276  213  214  215  269  213
-  214  216  217  270  211  213  215  216  210  212  214  215  216  208  209  210
-  214  217  204  206  208  210  218  219  223  271  392  394  220  223  229  267
-  271  221  223  365  392  400  222  223  229  365  366  219  220  221  222  223
-  224  228  229  266  267  225  228  263  266  268  226  228  229  264  366  227
-  228  262  263  264  224  225  226  227  228  220  222  224  226  229  230  249
-  263  265  268  231  239  248  249  265  232  233  238  269  232  233  239  265
-  270  234  236  237  238  235  236  237  247  234  235  236  234  235  237  239
-  248  232  234  238  239  231  233  237  238  239  240  246  249  262  263  241
-  242  245  247  241  242  246  248  249  243  244  245  261  243  244  246  260
-  262  241  243  245  246  240  242  244  245  246  235  241  247  248  231  237
-  242  247  248  230  231  240  242  249  250  259  264  364  366  251  259  260
-  262  264  252  258  259  364  367  253  254  257  261  253  254  258  259  260
-  255  256  257  363  255  256  258  367  368  253  255  257  258  252  254  256
-  257  258  250  251  252  254  259  244  251  254  260  261  243  253  260  261
-  227  240  244  251  262  225  227  230  240  263  226  227  250  251  264  209
-  230  231  233  265  206  208  224  225  266  205  206  220  224  267  208  209
-  225  230  268  213  232  269  270  209  214  233  269  270  202  205  219  220
-  271  182  202  203  205  272  190  204  210  212  273  180  182  189  203  274
-  194  211  275  276  190  195  212  275  276  189  190  203  204  277  278  283
-  289  395  400  279  283  289  361  362  280  282  283  391  395  281  282  283
-  359  361  280  281  282  396  398  278  279  280  281  283  284  288  289  365
-  400  285  288  364  365  366  286  288  289  360  362  287  288  360  364  367
-  284  285  286  287  288  278  279  284  286  289  290  292  298  396  399  291
-  292  298  355  357  290  291  292  358  359  293  297  377  390  397  294  297
-  298  397  399  295  297  356  376  377  296  297  298  355  356  293  294  295
-  296  297  290  291  294  296  298  299  328  351  355  357  300  308  328  355
-  356  301  307  326  327  302  307  308  326  328  303  306  376  378  304  306
-  307  308  305  306  308  356  376  303  304  305  306  301  302  304  307  300
-  302  304  305  308  309  311  326  328  351  310  311  324  326  327  309  310
-  311  325  353  312  323  325  352  353  313  314  322  350  313  314  323  352
-  354  315  316  320  322  315  316  321  323  325  317  319  324  327  318  319
-  320  317  318  319  321  315  318  320  321  316  319  320  321  324  313  315
-  322  323  312  314  316  322  323  310  317  321  324  325  311  312  316  324
-  325  301  302  309  310  326  301  310  317  327  299  300  302  309  328  329
-  338  349  360  362  330  338  360  367  368  331  337  338  348  349  332  333
-  336  363  332  333  337  338  368  334  335  336  350  334  335  337  348  354
-  332  334  336  337  331  333  335  336  337  329  330  331  333  338  339  347
-  358  359  361  340  347  349  361  362  341  346  347  348  349  342  346  348
-  352  354  343  345  346  347  358  344  345  346  352  353  343  344  345  351
-  357  341  342  343  344  346  339  340  341  343  347  331  335  341  342  348
-  329  331  340  341  349  313  334  350  354  299  309  345  351  353  312  314
-  342  344  352  311  312  344  351  353  314  335  342  350  354  291  296  299
-  300  355  295  296  300  305  356  291  299  345  357  358  292  339  343  357
-  358  281  292  339  359  396  286  287  329  330  360  279  281  339  340  361
-  279  286  329  340  362  255  332  363  368  250  252  285  287  364  221  222
-  284  285  365  222  226  250  285  366  252  256  287  330  367  256  330  333
-  363  368   75   77  179  181  369   34   76  184  186  370   64  185  193  371
-  374   34   58   60  184  372   60   64  184  185  373   63  192  371  374   76
-   77  179  186  375  100  295  303  305  376   99  100  293  295  377  100  104
-  303  378   23   24   82  110  379   19   24   82   84  380    5   75   85  381
-  382    7   19   84  381  382   15   99  102  105  383   23  110  134  136  384
-   23   25   93  136  385   13   93   95   97  386   13   14   25   93  387   13
-   15   97  102  388    3    5   75  181  389   15   16   99  293  390    1   22
-  280  391  398    2    4  219  221  392    3  181  182  202  393    3    4  202
-  219  394    1    2  278  280  395   10  282  290  359  396   12   16  293  294
-  397   10   21  282  391  398   10   12  290  294  399    2  221  278  284  400
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
--1.00000000E+00 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00
- 4.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00-1.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
--1.00000000E+00-1.00000000E+00-1.00000000E+00-1.00000000E+00 4.00000000E+00
diff --git a/mtx/test/sparse_data/g20.test b/mtx/test/sparse_data/g20.test
deleted file mode 100644
index 2256427e8..000000000
--- a/mtx/test/sparse_data/g20.test
+++ /dev/null
@@ -1,804 +0,0 @@
-400   argument B for g20.rua  --  solution follows
-0 -0.080000
-1 -1.960000
-2 -1.005000
-3 -1.945000
-4 -0.020000
-5 -0.040000
-6 -0.970000
-7 0.055000
-8 -0.030000
-9 -1.885000
-10 -0.120000
-11 0.075000
-12 -1.935000
-13 0.020000
-14 -1.945000
-15 -0.860000
-16 -0.075000
-17 0.075000
-18 -1.975000
-19 0.075000
-20 -1.050000
-21 0.090000
-22 -0.960000
-23 -0.780000
-24 -0.075000
-25 0.115000
-26 -0.125000
-27 0.105000
-28 -0.115000
-29 0.200000
-30 -0.055000
-31 0.250000
-32 -0.130000
-33 -1.930000
-34 -1.150000
-35 -0.175000
-36 -0.275000
-37 0.055000
-38 -0.510000
-39 0.215000
-40 -0.315000
-41 1.170000
-42 0.450000
-43 1.335000
-44 -0.865000
-45 0.185000
-46 2.000000
-47 1.345000
-48 0.750000
-49 1.500000
-50 -0.605000
-51 0.385000
-52 0.745000
-53 -0.005000
-54 0.660000
-55 0.340000
-56 -0.350000
-57 -0.535000
-58 -0.145000
-59 -0.495000
-60 0.845000
-61 0.285000
-62 -0.095000
-63 0.475000
-64 0.835000
-65 0.195000
-66 -0.450000
-67 0.525000
-68 0.705000
-69 0.700000
-70 -0.185000
-71 0.585000
-72 -0.295000
-73 0.510000
-74 0.000000
-75 -0.590000
-76 -0.195000
-77 0.145000
-78 -0.445000
-79 0.355000
-80 -0.660000
-81 -0.345000
-82 -0.435000
-83 -1.280000
-84 -0.210000
-85 0.445000
-86 -0.200000
-87 0.485000
-88 -0.220000
-89 0.180000
-90 -0.385000
-91 0.420000
-92 -1.395000
-93 -0.150000
-94 -1.640000
-95 0.290000
-96 -2.180000
-97 0.505000
-98 -1.245000
-99 -1.155000
-100 0.000000
-101 0.050000
-102 0.735000
-103 0.560000
-104 -0.535000
-105 1.800000
-106 -0.255000
-107 0.570000
-108 -0.495000
-109 -0.275000
-110 -1.490000
-111 0.025000
-112 -0.740000
-113 0.065000
-114 -1.170000
-115 0.515000
-116 0.680000
-117 1.880000
-118 0.700000
-119 1.600000
-120 2.000000
-121 0.595000
-122 -0.595000
-123 1.920000
-124 1.000000
-125 0.835000
-126 0.375000
-127 1.680000
-128 -0.915000
-129 0.420000
-130 -0.885000
-131 0.755000
-132 -0.750000
-133 -0.035000
-134 -0.775000
-135 -0.030000
-136 -0.675000
-137 1.100000
-138 -0.875000
-139 0.965000
-140 1.000000
-141 2.020000
-142 0.285000
-143 1.040000
-144 -0.710000
-145 0.680000
-146 -0.785000
-147 1.725000
-148 0.215000
-149 2.130000
-150 -1.570000
-151 0.785000
-152 -0.090000
-153 0.745000
-154 -0.840000
-155 0.750000
-156 -1.255000
-157 0.805000
-158 -1.140000
-159 0.135000
-160 -1.095000
-161 1.620000
-162 0.705000
-163 1.640000
-164 -0.725000
-165 0.660000
-166 1.000000
-167 0.880000
-168 -0.515000
-169 0.910000
-170 -0.555000
-171 1.380000
-172 -0.480000
-173 1.300000
-174 1.000000
-175 1.760000
-176 -0.440000
-177 1.780000
-178 0.000000
-179 0.615000
-180 0.000000
-181 0.455000
-182 -0.905000
-183 -0.485000
-184 -0.470000
-185 0.465000
-186 -0.970000
-187 0.955000
-188 -1.680000
-189 0.715000
-190 -0.995000
-191 1.495000
-192 -0.480000
-193 2.450000
-194 -1.670000
-195 1.995000
-196 -0.490000
-197 1.505000
-198 0.000000
-199 1.550000
-200 -0.915000
-201 0.355000
-202 -1.365000
-203 1.495000
-204 -0.680000
-205 0.850000
-206 -1.025000
-207 0.200000
-208 -1.345000
-209 1.015000
-210 0.470000
-211 0.890000
-212 0.465000
-213 0.925000
-214 0.460000
-215 0.570000
-216 -1.580000
-217 0.110000
-218 -1.965000
-219 2.200000
-220 -1.980000
-221 1.305000
-222 -1.105000
-223 1.005000
-224 -1.905000
-225 0.115000
-226 -1.885000
-227 1.155000
-228 -2.230000
-229 1.630000
-230 -0.620000
-231 2.725000
-232 -1.255000
-233 2.155000
-234 0.410000
-235 3.775000
-236 -1.205000
-237 2.215000
-238 -0.595000
-239 1.130000
-240 0.395000
-241 1.185000
-242 0.390000
-243 0.520000
-244 0.385000
-245 0.645000
-246 0.380000
-247 1.875000
-248 -1.780000
-249 0.015000
-250 -1.965000
-251 0.965000
-252 0.365000
-253 1.245000
-254 0.360000
-255 0.995000
-256 0.355000
-257 0.675000
-258 -1.890000
-259 1.355000
-260 0.350000
-261 1.410000
-262 -1.175000
-263 1.450000
-264 -0.575000
-265 1.065000
-266 -1.625000
-267 1.585000
-268 -0.255000
-269 2.165000
-270 -1.055000
-271 1.760000
-272 -2.040000
-273 1.835000
-274 -0.175000
-275 1.755000
-276 -0.985000
-277 1.780000
-278 -0.905000
-279 2.095000
-280 -0.705000
-281 0.135000
-282 -1.395000
-283 1.120000
-284 -2.545000
-285 0.335000
-286 -2.530000
-287 1.455000
-288 -2.120000
-289 0.435000
-290 -1.475000
-291 1.300000
-292 -0.975000
-293 2.195000
-294 -1.830000
-295 1.325000
-296 -1.475000
-297 0.780000
-298 -0.820000
-299 0.520000
-300 0.185000
-301 0.615000
-302 -1.650000
-303 2.505000
-304 -3.365000
-305 3.300000
-306 -0.515000
-307 0.815000
-308 -1.635000
-309 1.475000
-310 -0.775000
-311 2.240000
-312 -1.465000
-313 1.375000
-314 -1.395000
-315 3.160000
-316 0.190000
-317 4.380000
-318 0.205000
-319 3.405000
-320 -2.400000
-321 4.220000
-322 -3.160000
-323 2.465000
-324 -2.380000
-325 1.730000
-326 0.225000
-327 1.775000
-328 -2.650000
-329 0.635000
-330 -1.715000
-331 3.480000
-332 -2.595000
-333 2.625000
-334 -2.590000
-335 2.695000
-336 -0.840000
-337 2.555000
-338 -0.895000
-339 2.495000
-340 -1.735000
-341 -0.080000
-342 -1.760000
-343 1.695000
-344 -0.860000
-345 1.745000
-346 -0.850000
-347 2.625000
-348 -0.850000
-349 2.780000
-350 0.000000
-351 0.240000
-352 -1.640000
-353 1.025000
-354 -1.490000
-355 2.070000
-356 -0.895000
-357 2.850000
-358 -1.720000
-359 2.060000
-360 -0.850000
-361 2.055000
-362 -0.750000
-363 2.385000
-364 -1.265000
-365 1.915000
-366 -2.095000
-367 2.215000
-368 0.000000
-369 2.500000
-370 -1.095000
-371 2.880000
-372 -0.770000
-373 4.260000
-374 -0.655000
-375 3.510000
-376 -0.250000
-377 4.270000
-378 -0.540000
-379 3.325000
-380 -0.955000
-381 3.610000
-382 -0.255000
-383 2.890000
-384 -0.340000
-385 3.860000
-386 -0.035000
-387 3.625000
-388 0.000000
-389 3.860000
-390 -1.750000
-391 3.905000
-392 -0.960000
-393 3.425000
-394 -1.400000
-395 2.505000
-396 -0.805000
-397 3.250000
-398 -1.515000
-399 2.590000
-400   solution B
-0 1.000000
-1 1.005000
-2 1.000000
-3 1.010000
-4 1.000000
-5 1.015000
-6 1.000000
-7 1.020000
-8 1.000000
-9 1.025000
-10 1.000000
-11 1.030000
-12 1.000000
-13 1.035000
-14 1.000000
-15 1.040000
-16 1.000000
-17 1.045000
-18 1.000000
-19 1.050000
-20 1.000000
-21 1.055000
-22 1.000000
-23 1.060000
-24 1.000000
-25 1.065000
-26 1.000000
-27 1.070000
-28 1.000000
-29 1.075000
-30 1.000000
-31 1.080000
-32 1.000000
-33 1.085000
-34 1.000000
-35 1.090000
-36 1.000000
-37 1.095000
-38 1.000000
-39 1.100000
-40 1.000000
-41 1.105000
-42 1.000000
-43 1.110000
-44 1.000000
-45 1.115000
-46 1.000000
-47 1.120000
-48 1.000000
-49 1.125000
-50 1.000000
-51 1.130000
-52 1.000000
-53 1.135000
-54 1.000000
-55 1.140000
-56 1.000000
-57 1.145000
-58 1.000000
-59 1.150000
-60 1.000000
-61 1.155000
-62 1.000000
-63 1.160000
-64 1.000000
-65 1.165000
-66 1.000000
-67 1.170000
-68 1.000000
-69 1.175000
-70 1.000000
-71 1.180000
-72 1.000000
-73 1.185000
-74 1.000000
-75 1.190000
-76 1.000000
-77 1.195000
-78 1.000000
-79 1.200000
-80 1.000000
-81 1.205000
-82 1.000000
-83 1.210000
-84 1.000000
-85 1.215000
-86 1.000000
-87 1.220000
-88 1.000000
-89 1.225000
-90 1.000000
-91 1.230000
-92 1.000000
-93 1.235000
-94 1.000000
-95 1.240000
-96 1.000000
-97 1.245000
-98 1.000000
-99 1.250000
-100 1.000000
-101 1.255000
-102 1.000000
-103 1.260000
-104 1.000000
-105 1.265000
-106 1.000000
-107 1.270000
-108 1.000000
-109 1.275000
-110 1.000000
-111 1.280000
-112 1.000000
-113 1.285000
-114 1.000000
-115 1.290000
-116 1.000000
-117 1.295000
-118 1.000000
-119 1.300000
-120 1.000000
-121 1.305000
-122 1.000000
-123 1.310000
-124 1.000000
-125 1.315000
-126 1.000000
-127 1.320000
-128 1.000000
-129 1.325000
-130 1.000000
-131 1.330000
-132 1.000000
-133 1.335000
-134 1.000000
-135 1.340000
-136 1.000000
-137 1.345000
-138 1.000000
-139 1.350000
-140 1.000000
-141 1.355000
-142 1.000000
-143 1.360000
-144 1.000000
-145 1.365000
-146 1.000000
-147 1.370000
-148 1.000000
-149 1.375000
-150 1.000000
-151 1.380000
-152 1.000000
-153 1.385000
-154 1.000000
-155 1.390000
-156 1.000000
-157 1.395000
-158 1.000000
-159 1.400000
-160 1.000000
-161 1.405000
-162 1.000000
-163 1.410000
-164 1.000000
-165 1.415000
-166 1.000000
-167 1.420000
-168 1.000000
-169 1.425000
-170 1.000000
-171 1.430000
-172 1.000000
-173 1.435000
-174 1.000000
-175 1.440000
-176 1.000000
-177 1.445000
-178 1.000000
-179 1.450000
-180 1.000000
-181 1.455000
-182 1.000000
-183 1.460000
-184 1.000000
-185 1.465000
-186 1.000000
-187 1.470000
-188 1.000000
-189 1.475000
-190 1.000000
-191 1.480000
-192 1.000000
-193 1.485000
-194 1.000000
-195 1.490000
-196 1.000000
-197 1.495000
-198 1.000000
-199 1.500000
-200 1.000000
-201 1.505000
-202 1.000000
-203 1.510000
-204 1.000000
-205 1.515000
-206 1.000000
-207 1.520000
-208 1.000000
-209 1.525000
-210 1.000000
-211 1.530000
-212 1.000000
-213 1.535000
-214 1.000000
-215 1.540000
-216 1.000000
-217 1.545000
-218 1.000000
-219 1.550000
-220 1.000000
-221 1.555000
-222 1.000000
-223 1.560000
-224 1.000000
-225 1.565000
-226 1.000000
-227 1.570000
-228 1.000000
-229 1.575000
-230 1.000000
-231 1.580000
-232 1.000000
-233 1.585000
-234 1.000000
-235 1.590000
-236 1.000000
-237 1.595000
-238 1.000000
-239 1.600000
-240 1.000000
-241 1.605000
-242 1.000000
-243 1.610000
-244 1.000000
-245 1.615000
-246 1.000000
-247 1.620000
-248 1.000000
-249 1.625000
-250 1.000000
-251 1.630000
-252 1.000000
-253 1.635000
-254 1.000000
-255 1.640000
-256 1.000000
-257 1.645000
-258 1.000000
-259 1.650000
-260 1.000000
-261 1.655000
-262 1.000000
-263 1.660000
-264 1.000000
-265 1.665000
-266 1.000000
-267 1.670000
-268 1.000000
-269 1.675000
-270 1.000000
-271 1.680000
-272 1.000000
-273 1.685000
-274 1.000000
-275 1.690000
-276 1.000000
-277 1.695000
-278 1.000000
-279 1.700000
-280 1.000000
-281 1.705000
-282 1.000000
-283 1.710000
-284 1.000000
-285 1.715000
-286 1.000000
-287 1.720000
-288 1.000000
-289 1.725000
-290 1.000000
-291 1.730000
-292 1.000000
-293 1.735000
-294 1.000000
-295 1.740000
-296 1.000000
-297 1.745000
-298 1.000000
-299 1.750000
-300 1.000000
-301 1.755000
-302 1.000000
-303 1.760000
-304 1.000000
-305 1.765000
-306 1.000000
-307 1.770000
-308 1.000000
-309 1.775000
-310 1.000000
-311 1.780000
-312 1.000000
-313 1.785000
-314 1.000000
-315 1.790000
-316 1.000000
-317 1.795000
-318 1.000000
-319 1.800000
-320 1.000000
-321 1.805000
-322 1.000000
-323 1.810000
-324 1.000000
-325 1.815000
-326 1.000000
-327 1.820000
-328 1.000000
-329 1.825000
-330 1.000000
-331 1.830000
-332 1.000000
-333 1.835000
-334 1.000000
-335 1.840000
-336 1.000000
-337 1.845000
-338 1.000000
-339 1.850000
-340 1.000000
-341 1.855000
-342 1.000000
-343 1.860000
-344 1.000000
-345 1.865000
-346 1.000000
-347 1.870000
-348 1.000000
-349 1.875000
-350 1.000000
-351 1.880000
-352 1.000000
-353 1.885000
-354 1.000000
-355 1.890000
-356 1.000000
-357 1.895000
-358 1.000000
-359 1.900000
-360 1.000000
-361 1.905000
-362 1.000000
-363 1.910000
-364 1.000000
-365 1.915000
-366 1.000000
-367 1.920000
-368 1.000000
-369 1.925000
-370 1.000000
-371 1.930000
-372 1.000000
-373 1.935000
-374 1.000000
-375 1.940000
-376 1.000000
-377 1.945000
-378 1.000000
-379 1.950000
-380 1.000000
-381 1.955000
-382 1.000000
-383 1.960000
-384 1.000000
-385 1.965000
-386 1.000000
-387 1.970000
-388 1.000000
-389 1.975000
-390 1.000000
-391 1.980000
-392 1.000000
-393 1.985000
-394 1.000000
-395 1.990000
-396 1.000000
-397 1.995000
-398 1.000000
-399 2.000000
-end solution B
-||X-Xtrue||/||X|| = 7.771561e-16
diff --git a/mtx/test/sparse_data/star_matrix.dat b/mtx/test/sparse_data/star_matrix.dat
deleted file mode 100644
index dddc73eee..000000000
--- a/mtx/test/sparse_data/star_matrix.dat
+++ /dev/null
@@ -1,4248 +0,0 @@
- 206 3832
-    i    j           mtx(i,j)
-    1    1         2.3719135771164666D+01
-    2    1         4.4120318337048175D+03
-    3    1         1.0572251789250504D+16
-    4    1         6.2839872547792037D+00
-    6    1        -9.5866245993189932D+03
-    7    1        -2.2305187799293855D+06
-    8    1         9.0243989981252191D-04
-    9    1         2.0855142728347466D-10
-   10    1        -3.4900626233890525D+05
-   11    1        -3.6327952413670981D-10
-   12    1        -4.7199850638580267D-13
-   13    1         5.5444316107129311D-08
-   14    1         9.9544277805059798D-08
-   15    1        -1.8617396043586098D-15
-   16    1         3.7552098418208900D-16
-   17    1         8.9409542598303318D-09
-   18    1        -9.8712249035058251D-08
-   19    1        -1.7009257628147301D+02
-   20    1         3.8735171564601406D-02
-   21    1         1.8154993243166595D+02
-   22    1        -2.0949680947084143D-03
-   23    1         4.4879301649655215D-02
-   24    1         1.2559042862727331D-09
-   25    1         4.4388537852754768D-05
-   26    1        -4.0987061929042750D+02
-   27    1         2.6744858575099224D+00
-   28    1        -5.0586226871421573D-08
-   29    1         1.9214712792494722D-14
-   30    1         2.8117437015931951D+03
-   31    1         1.3284087789030977D-04
-   32    1         5.3148273312892324D-04
-   33    1         2.3049968083975309D-10
-   34    1         1.4914410622438717D-05
-   35    1         3.4844884130912227D+01
-   36    1         2.0105475442948415D-03
-   37    1        -3.7375523814874858D-04
-   38    1         6.7425195014998111D-10
-   39    1         1.0860856855787828D+00
-   40    1         3.0236906111313433D-03
-   41    1        -2.8331839561516720D-01
-   42    1        -1.4306462011283905D-04
-   43    1         8.1791055492242935D-03
-   44    1        -2.0619965452444426D+03
-   45    1         3.5691442792423551D+01
-   46    1        -2.1124583862513056D+01
-   47    1        -4.1350606555308716D-04
-   48    1         2.9124985410412388D+04
-   49    1         1.7914240298641413D+01
-   50    1        -6.3738283506422295D+02
-   51    1        -1.3673711598480748D+01
-   52    1         2.4656818912745093D+00
-   53    1        -3.6614504647652993D+01
-   54    1        -3.6571849061972953D+03
-   55    1        -2.0952074271174144D+04
-   56    1        -6.8730791501339951D+01
-   57    1        -1.5103401098461131D-01
-   58    1         5.8679421248197539D-08
-   59    1         3.6987711439244269D+05
-   60    1         2.5281527581508428D+04
-   61    1        -1.0636821582619905D+04
-   62    1        -5.6993876651294511D+02
-   63    1         1.4919242262029127D-03
-   64    1         1.7622488115073158D+03
-   65    1         6.6144137610998015D+01
-   66    1         1.6212811882444355D+03
-   67    1        -4.1450073716010185D+04
-   68    1        -8.2454765157078498D+02
-   69    1        -5.4141570363273308D+00
-   70    1         6.0236617342521786D-06
-   71    1         1.2812176180834671D+05
-   72    1        -9.9605582968906710D+03
-   73    1        -1.3817422302849131D+03
-   74    1         7.7273529674010766D-03
-   75    1         1.5076688346403317D+00
-   76    1         4.2145896938506331D+02
-   77    1         2.2379790701947572D+03
-   78    1        -2.9418865300247890D+04
-   79    1         9.0593811446766637D+01
-   80    1        -4.6890116339109050D-01
-   81    1         9.8407819388183052D-06
-   82    1         8.6541801999224946D+04
-   83    1        -2.3189990637915653D+02
-   84    1        -2.2766985355319925D+01
-   85    1         5.6936159983083940D-04
-   86    1        -1.5400639856205772D-05
-   87    1         4.0395460785883642D-10
-   88    1         1.2293809303655931D-01
-   89    1         1.0064134926989480D+02
-   90    1         3.1228592597527213D+03
-   91    1        -2.8986487211999254D+04
-   92    1        -3.8299149871926389D+01
-   93    1        -2.6457215784488266D+01
-   94    1        -3.8054857314396323D-03
-   95    1        -1.9794075461867323D-04
-   96    1        -8.8858270179068046D-09
-   97    1        -1.3823994736488039D-10
-   98    1         7.7590661563791487D-16
-   99    1         3.6350228407230810D+04
-  100    1         1.4274152292714577D+01
-  101    1        -1.2168242205860167D+02
-  102    1        -5.0643493004228268D-01
-  103    1        -1.1764435258948733D-01
-  104    1        -5.7608935307477912D-05
-  105    1        -3.2389769030196914D-06
-  106    1         6.1331135133367376D-11
-  107    1         2.0353246157451315D-17
-  108    1         3.0289694239863840D-05
-  109    1         5.0291883426172632D+02
-  110    1         5.6291324119271529D+01
-  111    1        -2.1856042996825170D+04
-  112    1        -5.6469020780147530D+03
-  113    1        -1.4527539499540457D+04
-  114    1        -2.4905058208547729D+01
-  115    1        -5.7146359582122761D+00
-  116    1         3.2314059213507803D-04
-  117    1         3.9489812047949541D-10
-  118    1         6.4871168196980771D-15
-  119    1         3.7411489521761156D-22
-  120    1         1.9679321538644581D+05
-  121    1         2.8366445640753695D+03
-  122    1        -2.0583195033423934D+04
-  123    1        -1.3477258447246559D+03
-  124    1        -1.6133607882771175D+03
-  125    1         5.1007042764566168D-01
-  126    1        -6.2224605877906261D-06
-  127    1         6.1991164329685742D-10
-  128    1         2.3489382496217847D-16
-  129    1         6.1722780828811358D-22
-  130    1         6.7407489987507098D-05
-  131    1         6.7676358060222685D+02
-  132    1         2.6189549017585896D+03
-  133    1        -1.0744704206870187D+04
-  134    1        -2.2639965147012099D+04
-  135    1        -2.1943754045399492D+04
-  136    1        -1.2470270710453744D+03
-  137    1        -5.5807914715441377D+01
-  138    1         5.9720686235669078D-03
-  139    1         1.5341835491291259D-09
-  140    1         1.8488259226466168D-13
-  141    1         1.5209063608880086D-20
-  142    1         5.9573233445134421D+05
-  143    1         4.9335389112359619D+04
-  144    1        -3.2708901916537238D+03
-  145    1        -3.8866380301340803D+04
-  146    1        -1.1626190174483381D+04
-  147    1         4.2017367228370874D+00
-  148    1         1.4005511213796603D-03
-  149    1         2.7069094627201293D+03
-  150    1         7.6096371136144426D+03
-  151    1        -4.4261234758674664D+03
-  152    1        -9.6626508063663987D+03
-  153    1        -1.2944879592673342D+04
-  154    1         1.7679210895306003D+03
-  155    1        -1.0099558042345458D+02
-  156    1         3.3660253699908348D-02
-  157    1        -1.3272044235927840D-07
-  158    1         1.7668110763617805D-11
-  159    1         2.6598189361952720D-18
-  160    1         4.4887216271121731D-23
-  161    1         8.3374513431906806D-31
-  162    1         5.4609636158721362D-37
-  163    1         1.6010648955910737D-45
-  164    1         4.6436485491329693D+05
-  165    1         1.6724932312047653D+05
-  166    1         4.9766907711227977D+04
-  167    1         5.1633881053920470D+02
-  168    1        -1.5440835848956269D+03
-  169    1         5.8847552657981184D-01
-  170    1        -2.0483850384263124D-04
-  171    1         1.4254792768497028D-07
-  172    1         3.6342863688955168D-13
-  173    1         3.8675302221141777D-17
-  174    1         1.6078844235410447D-23
-  175    1         7.6707108728576261D-29
-  176    1         1.9780471456929379D-36
-  177    1         2.5613945780932649D-03
-  178    1         1.4896007274440256D+03
-  179    1         9.4271481099271059D+03
-  180    1        -3.1652467648885340D+02
-  181    1        -3.0058848179877573D+03
-  182    1        -8.0187046174516336D+03
-  183    1         5.4089168685794641D+02
-  184    1        -1.3466790557270347D+01
-  185    1         8.8262084016152761D-03
-  186    1        -1.3127680297962338D-06
-  187    1         3.4793957206708794D-10
-  188    1        -7.6720164968143553D-17
-  189    1         6.9667563496060511D-20
-  190    1         1.8026994123663781D-26
-  191    1         1.9256188965435410D+06
-  192    1         9.3754438049869088D+04
-  193    1         1.6417298793223751D+05
-  194    1         2.0548524747431358D+02
-  195    1         1.1684097674687699D+01
-  196    1         1.2257951366370619D-02
-  197    1        -1.7358662801428459D-05
-  198    1         2.6374059445678370D-08
-  199    1         8.0580872172664713D-08
-  200    1         4.3917523316951366D+00
-  201    1         2.8902734529069100D+01
-  202    1         3.9326033600966025D+02
-  203    1         5.8833040567658976D+00
-  204    1         2.9460941040015474D+00
-  205    1         2.4299694030173385D-02
-  206    1         7.4808292215749298D-05
-    1    2         6.3204659583459328D+00
-    2    2         9.4531902525901081D+04
-    3    2        -2.1660771066473120D+17
-    6    2         8.7926169005577418D+05
-    7    2         5.1236302325540088D+07
-    8    2        -9.3540908496559157D-03
-    9    2        -3.1462743803453134D-07
-   10    2        -3.8633212772999309D+07
-   11    2         4.8355744734095064D-08
-   12    2        -1.5819496970377054D-11
-   13    2        -4.0423197691592371D-07
-   14    2         1.8415552941693120D-06
-   15    2         5.4278112666090413D-13
-   16    2        -8.8492633384430589D-16
-   17    2         1.5357733920020198D-06
-   18    2         4.3927959693385656D-06
-   19    2         1.4942691457510800D+03
-   20    2        -4.1076483813081915D-01
-   21    2        -1.5840168660816155D+03
-   22    2        -2.2086210668567588D-01
-   23    2         1.6922402150757705D+01
-   24    2        -1.1492648178086197D-08
-   25    2        -6.6186394874207530D-04
-   26    2         1.6902501014884074D+03
-   27    2        -4.6870975027683954D+01
-   28    2         2.1192160090624974D-05
-   29    2         1.8570087043214430D-13
-   30    2        -1.1263166591927946D+04
-   31    2        -1.6024242298580415D-03
-   32    2         1.8448653060561395D-02
-   33    2         9.9486472888465683D-09
-   34    2        -3.7650061473249614D-05
-   35    2        -4.8504420126470728D+02
-   36    2         3.4043929973952175D-01
-   37    2         1.7272004226592400D-03
-   38    2        -1.4960891899262937D-08
-   39    2        -7.9472718211354545D+00
-   40    2        -6.4507356331036006D-02
-   41    2         3.6593148721116684D+01
-   42    2         2.0847299591802669D-02
-   43    2         7.5417747160347959D-01
-   44    2         8.9892213607864433D+03
-   45    2        -1.2365974163652018D+03
-   46    2         5.6182257525156047D+02
-   47    2         2.4496203998230406D-02
-   48    2        -2.6197872554144013D+05
-   49    2        -3.6397211499883633D+02
-   50    2         2.6302615814294096D+05
-   51    2         1.3413397806449673D+03
-   52    2        -2.9527213143681632D+01
-   53    2        -3.8889663014744192D+03
-   54    2         2.8342432790699851D+04
-   55    2         5.0767923274113639D+05
-   56    2         9.2109295492109538D+02
-   57    2        -5.3259041524270421D+00
-   58    2        -1.0552961311274021D-06
-   59    2        -6.9152551918870322D+06
-   60    2         3.5048028857228728D+06
-   61    2         6.6755769346654217D+05
-   62    2         1.7268588810033580D+02
-   63    2         2.3656483313472935D-03
-   64    2        -3.5752470570514313D+04
-   65    2        -2.4763329390104373D+03
-   66    2        -5.3025307393418749D+04
-   67    2         8.9084581029940897D+05
-   68    2        -6.8851519308226380D+03
-   69    2         2.0391333134367610D+01
-   70    2        -1.0467217573320065D-04
-   71    2        -2.3977213312632637D+06
-   72    2         1.2222064009963482D+05
-   73    2         2.0769040218732385D+04
-   74    2        -1.3000039616066050D-01
-   75    2         1.4156174722235900D+02
-   76    2        -1.0961527929991780D+04
-   77    2        -5.1427464475862507D+04
-   78    2         6.2182923181768623D+05
-   79    2        -4.6977991628914706D+03
-   80    2         9.2682066498745552D+00
-   81    2        -1.9436256877948508D-04
-   82    2        -1.8120241931522118D+06
-   83    2         8.4316340386767879D+03
-   84    2         1.1473102604800911D+03
-   85    2         9.9586739289190720D-02
-   86    2         2.6347046245493938D-04
-   87    2         1.5809186453905035D-09
-   88    2         1.1297581158776211D+01
-   89    2        -2.6333362379455830D+03
-   90    2        -9.7530610957106765D+04
-   91    2         3.9966527510009118D+05
-   92    2        -8.7740723280681095D+01
-   93    2         4.7571147984003341D+02
-   94    2        -1.4056090488703835D-01
-   95    2         6.1404518172900133D-04
-   96    2         4.4990130800409140D-08
-   97    2        -1.2195912693271475D-09
-   98    2        -1.6675602072280123D-14
-   99    2        -5.0018534043131332D+05
-  100    2         5.4940796016704189D+02
-  101    2         3.1016330774349644D+03
-  102    2         2.5777871893138858D+01
-  103    2        -1.1392850182169203D+00
-  104    2         3.5499386589325495D-03
-  105    2         5.2962627548971053D-05
-  106    2        -1.2782215651212574D-09
-  107    2        -5.6630884343255235D-16
-  108    2         1.9235961605842068D-03
-  109    2        -9.2498254674007876D+03
-  110    2        -3.7359922947209299D+01
-  111    2         2.1657960587277243D+05
-  112    2         9.9406288584465510D+04
-  113    2         2.5957790537710971D+05
-  114    2        -6.8624672536687990D+02
-  115    2         1.0849515353929289D+02
-  116    2        -8.6504147914979630D-03
-  117    2        -2.3208010425862793D-08
-  118    2        -1.4758642678936914D-13
-  119    2        -1.0940408114761259D-20
-  120    2        -1.9293414123884477D+06
-  121    2        -4.4947330279569360D+04
-  122    2         6.7257497002453113D+05
-  123    2         2.5773874722480032D+04
-  124    2        -1.4149250621349543D+03
-  125    2        -7.9750913052153987D+00
-  126    2         2.2262972769642334D-04
-  127    2        -1.4757248895527181D-08
-  128    2        -7.1455098620317338D-15
-  129    2        -1.0092472508111473D-20
-  130    2         4.2265070196581388D-03
-  131    2        -5.9647984197357264D+03
-  132    2        -8.1786672961464581D+02
-  133    2         1.6900414629703754D+05
-  134    2         3.7288405478929152D+05
-  135    2         4.2390235717168363D+05
-  136    2        -1.1562857151806509D+05
-  137    2        -7.7351133511596686D+02
-  138    2        -1.4107297124184628D-01
-  139    2        -3.1301467054177219D-07
-  140    2        -3.6317544295230703D-12
-  141    2        -5.1815550636731422D-19
-  142    2        -9.2943184915086664D+06
-  143    2        -8.1864238565354224D+05
-  144    2         1.8382124437021255D+05
-  145    2         1.0457344259510709D+06
-  146    2         7.4865085102970857D+04
-  147    2        -8.8627798393793569D+01
-  148    2         1.0921143361517292D-01
-  149    2        -1.1175446001966675D+04
-  150    2        -6.6438989930746058D+04
-  151    2         6.9706284088905799D+04
-  152    2         1.2493970558749638D+05
-  153    2         2.5731935822973619D+05
-  154    2         1.1194610793929958D+03
-  155    2        -1.8749608699568378D+02
-  156    2        -8.2767859086106854D-01
-  157    2        -8.9641571715249955D-06
-  158    2        -3.9793076907193081D-10
-  159    2        -1.3258974566572778D-16
-  160    2        -8.0356001682674338D-22
-  161    2        -2.8719674565981237D-29
-  162    2        -6.5008570935600785D-36
-  163    2        -5.4319104416342409D-44
-  164    2        -7.6252747678650999D+06
-  165    2        -2.6178382769931140D+06
-  166    2        -9.7011933125105628D+05
-  167    2         2.0090704648617309D+05
-  168    2        -4.7899925406459879D+03
-  169    2        -1.1803102838708057D+01
-  170    2        -7.3840388775358945D-03
-  171    2        -2.2297350071025956D-06
-  172    2        -2.5135987601430021D-11
-  173    2        -5.4588282018138022D-16
-  174    2        -6.1991232032906428D-22
-  175    2        -8.8734782060698727D-28
-  176    2        -7.4979923457858892D-35
-  177    2         2.2623209679409817D-01
-  178    2        -1.8383257605709412D+04
-  179    2        -1.6929893744863800D+05
-  180    2        -2.4747626067705929D+04
-  181    2        -2.4493501180960233D+04
-  182    2         1.1569991019782945D+05
-  183    2        -1.7142831209702828D+04
-  184    2         2.1506606975054027D+02
-  185    2        -1.3491350812493708D-01
-  186    2        -2.4616522977394652D-05
-  187    2        -7.5406862044452905D-09
-  188    2        -4.4731136257171716D-14
-  189    2        -1.5259888554483410D-18
-  190    2        -6.2259827248389832D-25
-  191    2        -2.0884713675347898D+07
-  192    2        -1.0163889503471813D+06
-  193    2        -2.4065013533006371D+06
-  194    2        -2.5872717940630255D+03
-  195    2        -2.1290312154289566D+02
-  196    2        -2.3822936758758681D-01
-  197    2        -3.3530753282876388D-04
-  198    2        -4.6967248307980417D-07
-  199    2         7.4863217083051336D-06
-  200    2        -7.0793596671122160D+01
-  201    2        -4.9756158070836199D+02
-  202    2        -7.7650229785539823D+03
-  203    2        -1.4296335011119561D+02
-  204    2        -6.3030005517587007D+01
-  205    2        -6.4914209865952177D-01
-  206    2        -2.6353934169994989D-03
-    2    3        -2.0924989505639528D+03
-    3    3        -9.4012092819156474D+05
-    1    4         8.8480002990390886D-03
-    2    4         1.1991029412985133D+05
-    4    4         1.4326207200430629D+01
-    5    4         4.0750573460469202D+00
-    1    5        -2.2888862610284327D-04
-    5    5        -1.5833715128681231D-03
-    3    6         4.2754390486398704D+20
-    6    6        -9.8158616504257355D+10
-    7    6         4.7968903006323067D+10
-    8    6         1.9124700835105159D+03
-    9    6        -2.0563105162917534D-08
-   10    6         3.4936788705349083D+10
-   11    6         3.7197514704991576D-10
-   12    6         1.1778761905260916D-05
-   13    6        -4.7828946080186029D-08
-   14    6         2.1130802444898575D-01
-   15    6         6.1370399571527743D-08
-   16    6        -1.1284756117812165D-18
-   17    6         3.4576393035120088D-04
-   18    6         2.4883497980987461D+00
-   19    6        -1.4071897749658630D+04
-   20    6         8.7884237791570180D+04
-   21    6        -8.4607011096420717D+00
-   22    6         2.5719320052686157D+01
-   23    6         1.3047936704338701D+02
-   24    6         2.6658228088414235D-03
-   25    6        -1.6797330636563456D+02
-   26    6        -8.2939714474783407D+05
-   27    6         5.6667949956900552D+06
-   28    6         2.5467928826177286D+00
-   29    6         6.6652598062177372D-08
-   30    6        -6.5819423066505138D+01
-   31    6         4.5855062747572611D-01
-   32    6         9.3222004895278388D+01
-   33    6         1.0484301165028364D-03
-   34    6        -3.6063893997882591D-03
-   35    6         1.0588153590171152D+04
-   36    6         6.6678375835835584D+04
-   37    6         2.5618348286504124D+03
-   38    6         8.5433250643780229D-03
-   39    6        -7.6750471713156694D+00
-   40    6        -4.4244927212011618D+02
-   41    6         1.2422848442071502D+05
-   42    6         2.3100771178287414D+03
-   43    6        -5.5671839865700313D+04
-   44    6        -7.7596627431887137D+06
-   45    6         1.3130219999237995D+08
-   46    6         8.4429912916766871D+06
-   47    6         1.0773245100648503D+04
-   48    6        -1.1976026692409632D+05
-   49    6        -2.4500250651094489D+05
-   50    6         1.2297593880085085D+08
-   51    6         1.4324772536590838D+08
-   52    6        -2.1619035005490975D+06
-   53    6        -3.7467654918010337D+06
-   54    6         6.3013283006412191D+09
-   55    6         1.1037690569854138D+09
-   56    6         8.0144977400433564D+08
-   57    6         1.3581489705920084D+06
-   58    6         1.3108989925281456D-01
-   59    6        -6.2573410961225634D+09
-   60    6        -1.6122159104408566D+07
-   61    6         9.4810884405211365D+10
-   62    6         4.8896559846489439D+09
-   63    6         8.8680201442380639D+03
-   64    6        -1.6556503950565568D+08
-   65    6        -3.7518598474111877D+07
-   66    6         2.9025673747301335D+09
-   67    6         5.6571599376123689D+07
-   68    6         7.2870283859360256D+09
-   69    6         1.8559393978058111D+07
-   70    6         1.3373037338306091D+01
-   71    6        -1.9703876296106765D+08
-   72    6         6.4983080787665543D+10
-   73    6         7.1752205593785172D+09
-   74    6         2.5011950855886989D+04
-   75    6        -1.1200317831921687D+07
-   76    6        -1.0265564653015520D+08
-   77    6         6.9407986297909510D+08
-   78    6         5.1108088441115925D+06
-   79    6         9.7273133504952645D+08
-   80    6         4.1481375881504011D+05
-   81    6         3.7866886735241849D+01
-   82    6        -5.0324357641875833D+07
-   83    6         2.0176463389077783D+09
-   84    6         1.0660930268760641D+08
-   85    6         2.1027924207988253D+04
-   86    6         1.0402792497648605D+02
-   87    6         3.2243090290088772D-03
-   88    6        -8.4732444175690517D+05
-   89    6        -2.8787274968833484D+07
-   90    6         5.3035724373001928D+09
-   91    6         5.1205640880649760D+06
-   92    6         8.0496041063366801D+07
-   93    6         1.4067711511049706D+06
-   94    6         4.6610576903756766D+04
-   95    6         3.6233082840370827D+02
-   96    6         1.0315407350563445D-01
-   97    6         6.7748378424563761D-04
-   98    6         1.6817214782376909D-09
-   99    6        -4.0360738867199473D+07
-  100    6         9.7724277905935645D+07
-  101    6         1.4840274440440086D+08
-  102    6         3.5083463547078976D+06
-  103    6         7.0425992563488241D+05
-  104    6         5.4462196823076874D+02
-  105    6         1.9575888605568625D+01
-  106    6         1.4032169720421949D-04
-  107    6         5.3679300509190690D-11
-  108    6        -1.5417955668413134D+02
-  109    6        -1.2498171784507740D+08
-  110    6        -1.3640674311753243D+08
-  111    6        -5.8875036696013249D+07
-  112    6         1.5382270549413960D+09
-  113    6         4.2098700099920380D+08
-  114    6         1.5092282449162623D+08
-  115    6         2.3306289560692143D+06
-  116    6         7.9159138235188277D+02
-  117    6         2.7084269750078066D-03
-  118    6         1.3923758486312836D-08
-  119    6         8.9276350401735452D-16
-  120    6        -1.0084217140425054D+09
-  121    6         1.4985310066883945D+09
-  122    6         1.0038446703894463D+10
-  123    6         5.6580839350854263D+09
-  124    6         7.1848506674791269D+09
-  125    6         1.4150353107931640D+06
-  126    6         7.6208584153391939D+01
-  127    6         1.3441116461967223D-03
-  128    6         8.1715548559017480D-10
-  129    6         1.3101290008904471D-15
-  130    6        -3.7745475001100647D+02
-  131    6        -1.9780843086079624D+09
-  132    6        -7.2238843355399046D+09
-  133    6        -8.8314363814182073D+07
-  134    6         4.5390448396745644D+09
-  135    6         1.5474454714265525D+08
-  136    6         2.4120669068760448D+10
-  137    6         1.8462724655617282D+08
-  138    6         1.3430442597622907D+04
-  139    6         3.9504401882171726D-02
-  140    6         3.9180724698340332D-07
-  141    6         3.2231543478031828D-14
-  142    6        -8.2031516622681580D+09
-  143    6        -1.4911463954249642D+09
-  144    6         4.1418167667900431D+08
-  145    6         2.0533657367610757D+11
-  146    6         5.2495852968165894D+10
-  147    6         1.1031124915575096D+07
-  148    6        -7.1562409991042832D+03
-  149    6        -5.7529726291638145D+09
-  150    6        -1.0099846338693119D+10
-  151    6        -9.9555958299981207D+07
-  152    6         3.4097726895313239D+09
-  153    6         3.4479495736463898D+08
-  154    6         6.1097618512056526D+10
-  155    6         1.6780562065163085D+08
-  156    6         7.6627592147630770D+04
-  157    6         1.6256627342890084D+00
-  158    6         3.7710396912049509D-05
-  159    6         1.3742903025705597D-11
-  160    6         9.5248510881145112D-17
-  161    6         1.8925276945811224D-24
-  162    6         1.1574580722691861D-30
-  163    6         3.4654106532292893D-39
-  164    6        -6.2458676728766270D+09
-  165    6        -2.9573258613767095D+09
-  166    6         6.5137358232193089D+08
-  167    6         5.9099243402487091D+10
-  168    6         4.9470839372148714D+09
-  169    6         2.0091342004867948D+06
-  170    6         1.7695943335157926D+03
-  171    6         3.0835327446242733D-01
-  172    6         2.0789869881986645D-06
-  173    6         8.2260593684556020D-11
-  174    6         3.9066795461917642D-17
-  175    6         1.6263801812835098D-22
-  176    6         4.3126053143196484D-30
-  177    6        -1.3583228450528984D+04
-  178    6        -2.1799115586968155D+09
-  179    6        -5.7738018387514038D+09
-  180    6        -1.4854056509120819D+08
-  181    6         4.9216735205347481D+09
-  182    6         3.0525422719833914D+07
-  183    6         1.9274413908988070D+09
-  184    6         2.5304879221878797D+06
-  185    6         2.2023745765059255D+04
-  186    6         3.8665845879882030D+00
-  187    6         7.5357875474321679D-04
-  188    6         4.8167926951647160D-09
-  189    6         1.4764099401626250D-13
-  190    6         3.8203192753721889D-20
-  191    6        -2.6369130288669446D+08
-  192    6        -6.6586325120443434D+07
-  193    6        -2.5243069036338153D+08
-  194    6         1.3648137145955507D+07
-  195    6         4.3920622559397930D+05
-  196    6         3.3069854229738776D+04
-  197    6         7.1356458902496328D+01
-  198    6         5.7563925316283654D-02
-  199    6        -4.2291836988993925D-01
-  200    6        -1.1494897007328240D+05
-  201    6        -1.9102217009643072D+05
-  202    6        -8.1527719626421090D+06
-  203    6        -8.5905135022966875D+04
-  204    6        -4.7633749182093081D+04
-  205    6         5.0687010131103329D+04
-  206    6         8.3042354755698355D+01
-    3    7         2.2044170447316605D+17
-    6    7         5.2149201820773177D+05
-    7    7        -7.0868066762800872D+07
-    8    7         2.0825592816249214D-02
-    9    7         4.9255740133360230D-09
-   10    7         1.2867531903341073D+08
-   11    7        -8.1138251357903014D-09
-   12    7        -1.3188823253950168D-10
-   13    7         1.1804361219124186D-06
-   14    7        -3.5198793715546896D-09
-   15    7        -7.1708209768082781D-13
-   16    7         8.1239981406947204D-15
-   17    7         3.2097618979407221D-07
-   18    7        -2.7011211996234667D-05
-   19    7        -3.4969074050556305D+03
-   20    7        -2.9872001274543689D-03
-   21    7         3.8084470430424403D+03
-   22    7         7.5855276928288851D-01
-   23    7        -1.8332620363742468D+01
-   24    7        -6.6897222476897019D-11
-   25    7         2.6156301567721897D-03
-   26    7        -8.2477099345125698D+03
-   27    7        -9.2135444336283201D-01
-   28    7        -5.5261907791785921D-05
-   29    7        -2.4418971437258891D-13
-   30    7         5.7249219097160414D+04
-   31    7         2.1178723432306872D-03
-   32    7        -7.1218375704958327D-03
-   33    7        -1.6377662675045287D-08
-   34    7         1.9426832372284190D-04
-   35    7         2.2484379769039062D+01
-   36    7        -9.9276282806914182D-02
-   37    7        -1.7518492507386445D-02
-   38    7        -6.6089560686741607D-08
-   39    7         2.1481514817135604D+01
-   40    7         1.2871698450314348D-01
-   41    7        -4.3009369706027108D+01
-   42    7        -2.5623477509897540D-02
-   43    7         6.7642500439308598D-02
-   44    7        -2.9874284605058409D+02
-   45    7        -3.0684193163420133D+02
-   46    7        -3.7579800563966745D+02
-   47    7        -1.0554501225208369D-01
-   48    7         5.6004843367652909D+05
-   49    7         3.5752141972972953D+02
-   50    7        -6.3805383069184166D+05
-   51    7        -1.6121468945080653D+03
-   52    7         6.4138332933955397D+01
-   53    7         1.3086232295384229D+04
-   54    7        -8.7944840221821200D+04
-   55    7        -3.8880619673660694D+05
-   56    7        -8.3573041276519216D+03
-   57    7        -1.4809912223401161D+01
-   58    7        -5.9430901765432516D-08
-   59    7         6.9829952283593006D+06
-   60    7        -1.1153971111083398D+07
-   61    7        -1.2431706274203793D+06
-   62    7        -5.9217753596324728D+04
-   63    7        -5.2982387290336684D-02
-   64    7         3.3285804335214903D+04
-   65    7         3.4174130168941401D+03
-   66    7         2.8535674593718904D+03
-   67    7        -7.6359532747074566D+05
-   68    7        -7.7748119245358379D+04
-   69    7        -2.6281106584786926D+02
-   70    7        -5.2450316803854503D-06
-   71    7         1.3634718273074059D+06
-   72    7        -8.3452564510883298D+05
-   73    7        -1.3431172121645609D+05
-   74    7        -7.8658518970337724D-02
-   75    7         9.5286280991850546D+01
-   76    7         7.6347886885236794D+03
-   77    7         1.8821382154958999D+04
-   78    7        -5.2599405921631516D+05
-   79    7        -6.5666489053129408D+03
-   80    7        -1.6850199203271426D+01
-   81    7        -1.4256074970071903D-04
-   82    7         1.4773825930833104D+06
-   83    7        -2.3652994647488846D+04
-   84    7        -2.8873640164296212D+03
-   85    7        -1.6696527101868411D-01
-   86    7        -1.1380723642641494D-03
-   87    7        -1.9608206914753683D-08
-   88    7         7.3614610195286962D+00
-   89    7         2.0382707165498753D+03
-   90    7         4.6581534051998196D+03
-   91    7        -5.4363184866565454D+05
-   92    7        -1.3222197470685287D+03
-   93    7        -4.6929063382284659D+02
-   94    7        -4.4645071144413578D-01
-   95    7        -6.3833662265123390D-03
-   96    7        -9.9606380745551821D-07
-   97    7        -7.9240436180979899D-09
-   98    7        -3.0539919475928742D-16
-   99    7         6.1819386798333051D+05
-  100    7        -7.0380577231366556D+02
-  101    7        -3.5013463026003515D+03
-  102    7        -3.6980397126004370D+01
-  103    7        -7.6922459756638979D+00
-  104    7        -5.3769384184745965D-03
-  105    7        -2.1323301534410368D-04
-  106    7        -8.3462875795447134D-11
-  107    7        -8.5094589668686055D-17
-  108    7         1.4642336917821386D-03
-  109    7         1.4055004539098757D+03
-  110    7         1.9488553944254024D+03
-  111    7        -3.6842665827059891D+05
-  112    7        -1.0757404613374370D+05
-  113    7        -2.4859351030329295D+05
-  114    7        -1.6227892440785240D+03
-  115    7        -1.1503933235139941D+02
-  116    7        -8.5067987825180940D-04
-  117    7        -1.4910666856780301D-08
-  118    7        -1.4031436085814880D-15
-  119    7        -7.9610582639672184D-22
-  120    7         3.3305842221591505D+06
-  121    7         3.6770325992949423D+04
-  122    7        -4.2071331522832019D+05
-  123    7        -6.7013192415708269D+04
-  124    7        -8.3461118838793438D+04
-  125    7        -2.6296295182025826D+00
-  126    7        -7.0424186194658202D-04
-  127    7        -2.3935862025523815D-10
-  128    7        -2.5145126010994124D-15
-  129    7        -1.6430943523459479D-23
-  130    7         3.9969110203688313D-03
-  131    7         2.6865431975479794D+04
-  132    7         1.0046631080819492D+05
-  133    7        -1.7634116686933377D+05
-  134    7        -4.0835727470697672D+05
-  135    7        -3.6283495694162656D+05
-  136    7        -2.0813437291131978D+05
-  137    7        -2.3556649089610778D+03
-  138    7        -6.0217985890230552D-03
-  139    7        -2.8194194943596153D-07
-  140    7        -1.0944902794694965D-18
-  141    7        -8.7019075650334680D-25
-  142    7         9.8821924859485980D+06
-  143    7         8.2736010893940297D+05
-  144    7        -5.4023756494684349D+04
-  145    7        -2.2111389454688262D+06
-  146    7        -5.9297391571197938D+05
-  147    7        -1.6353254512438284D+01
-  148    7         7.7305799785903490D-02
-  149    7         8.8302888270977492D+04
-  150    7         2.0145992169826032D+05
-  151    7        -7.2431754380235390D+04
-  152    7        -1.8623011417509639D+05
-  153    7        -2.1653339915357801D+05
-  154    7        -4.4707479434579541D+05
-  155    7        -2.9770476841226773D+03
-  156    7        -4.1269782822229803D-02
-  157    7        -1.4864866913723081D-05
-  158    7        -2.0872191941104353D-12
-  159    7        -6.3188909443088381D-17
-  160    7        -9.5537687485229363D-25
-  161    7        -9.7936347753211531D-31
-  162    7        -1.2391044085993008D-39
-  163    7        -5.6437043054875871D-46
-  164    7         7.7199085506011639D+06
-  165    7         2.7862971485425369D+06
-  166    7         8.1728911151011125D+05
-  167    7        -4.5122020078272501D+05
-  168    7        -6.4096944384253518D+04
-  169    7        -5.9360472284986114D+00
-  170    7        -1.7138742078022060D-02
-  171    7        -4.8713461992847478D-08
-  172    7        -1.0171622617968362D-11
-  173    7        -2.3240555627743519D-18
-  174    7        -3.8792343253658055D-23
-  175    7        -6.1130889891633317D-31
-  176    7        -9.3778306506322613D-37
-  177    7         1.4701372990784611D-01
-  178    7         4.1469759215286627D+04
-  179    7         1.9960518857493525D+05
-  180    7        -3.9653261771682282D+03
-  181    7        -8.7662956313330578D+04
-  182    7        -1.3198187187073275D+05
-  183    7        -6.0555859056066438D+03
-  184    7        -2.4088498019416517D+02
-  185    7        -2.5720392721946140D-02
-  186    7        -5.1521865828133070D-05
-  187    7        -1.2567446262810920D-10
-  188    7        -3.8586059093823171D-14
-  189    7        -4.3084594399416399D-27
-  190    7        -8.4194654159450992D-33
-  191    7         3.1624890582362428D+07
-  192    7         1.5401310425026210D+06
-  193    7         2.6973547006321549D+06
-  194    7         3.2576392806563381D+03
-  195    7         1.8193408553026902D+02
-  196    7        -5.5495184217135722D-02
-  197    7        -8.5630278321296765D-04
-  198    7        -1.2961655315198888D-08
-  199    7         4.5483711913145276D-06
-  200    7         7.2271705694164723D+01
-  201    7         4.7213118247105075D+02
-  202    7         6.2932962757117739D+03
-  203    7         9.1493215077822796D+01
-  204    7         3.6697045057526871D+01
-  205    7         1.3551044821133037D-03
-  206    7        -2.9781991543754897D-05
-    3    8        -4.5682902699908035D+18
-    6    8         2.5598723869316878D+09
-    7    8         2.5598723600699368D+09
-    8    8        -5.1197448284690943D+09
-    9    8         8.0313361824843113D+01
-   10    8        -1.2664178681761740D-01
-   11    8         1.9011937104847343D-01
-   12    8         1.0032446229963801D-07
-   13    8         9.0009754838125460D-08
-   14    8         1.0901883133055401D-13
-   20    8        -1.1781974297638920D+00
-   22    8         1.2688280012841913D+00
-    3    9        -2.6945407177735148D+13
-    6    9        -2.6807624482134808D-03
-    7    9         6.1154427883849976D+03
-    8    9         1.2229423047977980D+04
-    9    9        -1.8356863136006836D+04
-   10    9        -1.5618628839682957D+01
-   11    9         4.3895759292848933D+00
-   12    9        -2.3029576813865779D-10
-   13    9         2.2229033316935681D+01
-    3   10        -1.4659999483660098D+16
-    6   10         2.9622838848207051D+04
-    7   10         9.9345607219426483D+06
-    8   10        -7.9625757839655619D-14
-    9   10        -1.0080613844590415D-10
-   10   10        -4.0296404442538381D+07
-   11   10         3.4365002929192549D-11
-   12   10        -1.9030034260347794D-13
-   13   10         1.8342064173526906D-10
-   14   10        -2.0188212726922686D-11
-   15   10         1.5096024632267743D-14
-   16   10         8.6566135729619159D-39
-   17   10        -4.7293217697599459D-08
-   18   10        -2.9431161464768364D-08
-   19   10        -4.4794370679850735D+00
-   20   10        -1.5398102713687526D-02
-   21   10        -3.8037659276460114D-03
-   22   10        -2.2745954457541565D-01
-   23   10         5.5353843544645107D+00
-   24   10         7.2465515327030441D-12
-   25   10        -1.6322284367895385D-05
-   26   10        -2.3466182284811509D+01
-   27   10         2.6462856433736553D-01
-   28   10         8.4502818465679286D-06
-   29   10        -1.3476019947458790D-15
-   30   10        -6.8121373686648532D-03
-   31   10         1.5465602916198845D-04
-   32   10         4.7393423901999120D-03
-   33   10         3.1064494064585451D-09
-   34   10         2.7878043778909852D-05
-   35   10         1.8513622994036200D+02
-   36   10        -1.3553510871113625D-01
-   37   10        -3.8654476314073142D-03
-   38   10        -8.6841529466623522D-11
-   39   10        -9.7109068507910900D-05
-   40   10        -1.8304668804573453D-02
-   41   10         6.2913072458261512D+00
-   42   10         4.4883613777996038D-04
-   43   10        -2.0543523423243618D-01
-   44   10        -1.1363834249801608D+04
-   45   10        -5.6868119401487498D+01
-   46   10        -3.0566849464450378D+01
-   47   10        -4.5415314284037046D-05
-   48   10        -2.0371867973127350D-01
-   49   10        -3.0250959052694815D+00
-   50   10         1.8091753284743070D+05
-   51   10         2.0518564164358608D+01
-   52   10        -5.8776386898874200D-01
-   53   10        -4.0803500479315803D+03
-   54   10        -1.0598363073295734D+04
-   55   10        -3.7933954135308891D+03
-   56   10        -1.1840750412349297D+00
-   57   10        -1.7494716219062225D-03
-   58   10        -8.6922047798134512D-12
-   59   10        -2.2057990100057414D+03
-   60   10         3.4540850311782644D+06
-   61   10         6.5669317494582094D+04
-   62   10         1.8144555006629448D+03
-   63   10         9.7400884112156915D-04
-   64   10         2.0389500897731128D+02
-   65   10        -5.8359740700406985D+02
-   66   10         5.0623436711725219D+02
-   67   10         2.4205852572679992D+03
-   68   10         2.6913337586871066D+01
-   69   10         1.4035934219743196D+00
-   70   10         6.7848587234565191D-09
-   71   10         2.9932515035895596D+05
-   72   10         3.2002128291808258D+04
-   73   10         1.4936160641985171D+04
-   74   10         1.6564437838238258D-03
-   75   10         8.2521745538021882D+00
-   76   10         2.3502514662539554D+02
-   77   10         4.7630059372088062D+03
-   78   10         1.1834798997719738D+03
-   79   10         8.6570980695332302D+00
-   80   10         1.5842074035111837D+00
-   81   10         2.4354842422068962D-08
-   82   10         1.9041600529072552D+04
-   83   10         9.3162340716221411D+02
-   84   10         5.1484510497744679D+02
-   85   10         9.7917995134032048D-04
-   86   10         2.5445060738852264D-06
-   87   10         7.8258862340914271D-12
-   88   10         5.7665692012294734D-01
-   89   10        -1.2535439533575111D+01
-   90   10         1.9867271676894518D+03
-   91   10         1.3715879850055277D+04
-   92   10         6.9162143897687334D-01
-   93   10        -1.6746109484717660D-02
-   94   10        -7.5932499752513063D-06
-   95   10        -2.7898549790259069D-07
-   96   10        -1.8797065556073796D-11
-   97   10        -1.7588531325345604D-13
-   98   10        -1.1668949628389450D-20
-   99   10         3.7685680995020612D+03
-  100   10         5.7682887945826025D+01
-  101   10         7.7601619745763543D+01
-  102   10         9.9574131567938349D-03
-  103   10         5.5053149560278336D-04
-  104   10        -3.7248301654620027D-08
-  105   10        -2.4820884588552679D-09
-  106   10         3.3709270408374739D-15
-  107   10         1.2862270619746279D-20
-  108   10         9.9980645973230908D-05
-  109   10         2.7600915082965821D+03
-  110   10         3.8106271827261516D+01
-  111   10        -3.5777445633156702D+01
-  112   10        -6.3067497338541978D+00
-  113   10        -1.0878628573082020D+01
-  114   10        -1.3588166444035528D-02
-  115   10        -3.1732945869949914D-03
-  116   10        -1.4194135406731076D-08
-  117   10         2.2023624224191490D-13
-  118   10         1.4136956691099960D-20
-  119   10        -4.7366426664836011D-27
-  120   10         2.8001373205453097D+00
-  121   10        -1.3696071588154293D+00
-  122   10         1.8302769217636947D+02
-  123   10         9.1320818914083712D-01
-  124   10         8.8513088611248136D-01
-  125   10         6.3219404359535770D-05
-  126   10         2.2923877523930564D-07
-  127   10         8.4125633522722637D-14
-  128   10         3.2667177588879524D-19
-  129   10         2.8730269631768631D-27
-  130   10         3.5060719846141679D-05
-  131   10        -3.2931527816497561D+00
-  132   10         2.5316344905037248D+01
-  133   10        -1.4674301626109632D+01
-  134   10        -1.1545723581451675D+01
-  135   10        -8.7658763492501617D+00
-  136   10        -8.4388290462732085D-01
-  137   10         2.3556188626053232D-02
-  138   10         2.9253808106121664D-08
-  139   10         1.6445068542154271D-12
-  140   10         1.2861869183857321D-19
-  141   10        -1.7536681882992687D-25
-  142   10        -4.8600196006037875D+00
-  143   10        -1.1437780002347646D+00
-  144   10         1.5227242579783578D+01
-  145   10         4.4655573902815135D+01
-  146   10         6.5554411723505822D+01
-  147   10         3.2968018159935226D-03
-  148   10         1.9227957712137110D-04
-  149   10        -6.5168012304161327D-01
-  150   10         3.7979772910237692D+01
-  151   10        -1.9290248655723092D+00
-  152   10         1.1042064341027642D+00
-  153   10        -6.2868238805164300D-01
-  154   10         4.4107130297980985D+00
-  155   10         2.0910498338063516D-01
-  156   10         5.5583022839663832D-07
-  157   10        -1.3829649738897949D-11
-  158   10        -4.2854129352637177D-18
-  159   10        -1.2851184873758145D-22
-  160   10        -1.9626496451254108D-30
-  161   10        -1.9296827723051993D-36
-  162   10        -2.3336814414354887D-45
-  164   10        -9.6625804723364195D-01
-  165   10         2.3437506969765490D+01
-  166   10         1.5425541665754034D+02
-  167   10         2.4261493075530623D+02
-  168   10         9.3024215105536740D+01
-  169   10         5.8936622137059280D-03
-  170   10         6.0012401155213540D-06
-  171   10         1.9867017796261844D-11
-  172   10         6.5255544049315297D-16
-  173   10         7.5391247477641002D-23
-  174   10         3.7308688130169965D-28
-  175   10         5.2816974009575034D-36
-  176   10         8.0952518545989030D-43
-  177   10         2.8473939497779271D-04
-  178   10        -4.8511835778929918D-01
-  179   10         1.9942244598179937D+02
-  180   10         5.2133064795333839D+00
-  181   10         7.3336615960996639D+01
-  182   10         2.5182640553036894D+01
-  183   10         8.8901140144686663D-01
-  184   10         5.0187273041872232D-02
-  185   10         1.9715236303797726D-07
-  186   10         2.1530478579735141D-10
-  187   10         1.5546561488293937D-16
-  188   10         7.4734305811805925D-21
-  189   10         1.1096949049330698D-27
-  190   10         2.1391796924763432D-33
-  191   10         2.1591431202173897D+01
-  192   10         1.7045773792251239D+01
-  193   10         2.9918722915959813D+02
-  194   10         4.9479556660785615D+00
-  195   10         2.8518452218027788D+00
-  196   10         2.8407184848485746D-04
-  197   10         8.6942306739014907D-06
-  198   10         1.6838484228797021D-11
-  199   10         1.7844273107330065D-08
-  200   10         2.4572947026505926D-01
-  201   10         1.2425416793973045D+00
-  202   10         9.1427943377089619D+01
-  203   10         2.3886344177378960D+00
-  204   10         5.1267467628578496D+00
-  205   10         2.1130873149807902D-03
-  206   10         2.6505162847515422D-04
-    3   11        -2.3266333809006510D+15
-    6   11         4.1329416043146608D+04
-    7   11        -2.1768335518405176D+05
-    8   11         5.1419299165160405D+06
-    9   11         7.7799678122466744D+05
-   10   11         1.1485183083189048D+07
-   11   11        -1.7231798613456212D+07
-   12   11         3.6389259077162627D-03
-   13   11         6.1381098189396333D+01
-   14   11         2.9543165054128763D+03
-   17   11         2.6070424833266507D+01
-    3   12         1.5975665295756897D+14
-    6   12         2.4164536572082270D+04
-    7   12        -3.7758767447966304D+04
-    8   12         1.0807391682365741D+00
-    9   12        -5.4878227113907042D-06
-   10   12         1.0957748125224820D+05
-   11   12         1.6864105382647477D+02
-   12   12        -2.6580810938594892D+05
-   13   12         1.6788454683294246D+05
-   15   12         1.0346601156274954D+02
-   17   12         1.5346340711234488D+03
-   18   12         1.3149030644922397D+02
-    3   13        -2.1634331553305347D+17
-    6   13        -7.4979670681154374D+01
-    7   13         4.8815754624579313D+03
-    8   13         2.5020893786287511D-03
-    9   13         5.1006891609139645D+08
-   10   13         6.8007754807713687D+08
-   11   13         7.2526839035487419D+03
-   12   13         4.2804022394737626D+02
-   13   13        -1.1901950873859866D+09
-   16   13         8.1868687179969104D+00
-   17   13         3.6126708163258969D+04
-    3   14        -8.5183298538257114D+17
-    6   14         6.7582160062534153D+08
-    7   14        -1.0338126897171225D+06
-    8   14         1.1121083516976759D+06
-   10   14         5.4126400139251547D+09
-   11   14         2.8660236055636234D+06
-   14   14        -6.0916987208364353D+09
-   15   14         5.0385599713938863D-04
-   17   14         8.7912941014133696D+02
-   19   14         2.9190688848098589D+05
-    3   15         8.8183031075281325D+14
-    6   15         1.8243933116077740D+03
-    7   15        -4.2653697546228475D+05
-   10   15         1.6991419721569924D+06
-   12   15         2.9857289701859737D+06
-   14   15         6.9458691859322926D+02
-   15   15        -4.2836146877389243D+06
-   17   15         1.4782381420622016D-16
-   18   15         4.6919792887304801D+01
-   20   15         2.2713820835155282D+04
-    3   16        -1.3189691878300314D+18
-    6   16        -1.8085452605359951D+01
-    7   16         1.1956505638240646D+10
-   10   16         1.4469202979249187D+02
-   13   16         8.3695539341086349D+10
-   16   16        -9.5652045106933594D+10
-    3   17         1.4215379099336844D+14
-    6   17         1.4757307207323134D+02
-    7   17        -1.5291684956858624D+05
-   10   17         6.7965408053142449D+05
-   11   17         1.0053571668604083D+05
-   12   17         1.2769881580313677D+02
-   13   17         1.1790617892972939D+06
-   14   17         3.4946391398674009D+03
-   17   17        -2.0089806336737506D+06
-   18   17         2.6206694459438164D-02
-   20   17         1.9671932364100509D+05
-   21   17         2.1556358521344018D+03
-    3   18         5.3872396158812410D+15
-    6   18         2.7281833654787843D+03
-    7   18        -7.7339509116987896D+05
-   10   18         9.2693111755002253D+06
-   12   18         1.3661730727392460D+00
-   15   18         1.6893362907903163D-05
-   17   18         3.2722231352031186D-03
-   18   18        -8.5373591667694990D+06
-   19   18         5.1796707589388939D+02
-   22   18         3.8194562535590580D+04
-    3   19         2.0780448740270405D+10
-    6   19         1.3036203212902971D-02
-    7   19        -1.2917991696949288D+01
-   10   19         3.5707201570678809D-01
-   14   19         1.0279929906410739D-07
-   18   19         4.4411161041886143D-10
-   19   19        -1.6288741075886188D+02
-   20   19         7.4321076937534135D-03
-   21   19         1.6995520484918654D+02
-   23   19         8.0062956462746060D-01
-   25   19         9.2984078739273796D-07
-   26   19        -1.9807126424955773D-01
-   35   19         1.4187613369319776D+00
-   41   19         1.3076479597910371D+00
-   43   19         1.2327162899942794D-01
-   44   19         4.5589727868107034D-02
-   50   19         1.2219119210493765D+00
-   52   19         2.2270168184008596D-01
-   53   19         5.9085185942966777D-12
-   60   19         1.3952539418937969D-08
-   64   19         2.0942092102987719D-07
-    3   20        -2.2185952093309791D+14
-    6   20         6.0635586802485923D+04
-    7   20        -1.8526933764447358D+02
-    8   20        -5.9448940599567938D-07
-   10   20        -1.2366701516179803D+04
-   15   20         5.3882055482333175D-07
-   17   20         1.6183469050079740D+00
-   19   20         6.9014494454791315D+05
-   20   20        -7.9026040845068276D+05
-   21   20         4.1172140689197084D+02
-   22   20         2.1481127797374106D+03
-   24   20         2.1217789053392175D-05
-   26   20         7.5715977822619088D+03
-    3   21        -3.9372620491825523D+17
-    6   21        -6.1092736888262458D+00
-    7   21         2.5253897051735768D+08
-   10   21        -3.2663492223037474D+03
-   17   21         3.4031348137772257D-03
-   19   21         3.0304577742241421D+09
-   20   21         7.9010109618782906D+01
-   21   21        -3.2830066181361198D+09
-   22   21         4.3726855664951025D-01
-   26   21         1.9997408607786904D+03
-    3   22        -1.0953231851281433D+12
-    6   22         5.5103911033711227D-02
-    7   22         9.8723663265058269D+02
-    8   22         1.2554980339628840D-07
-   10   22        -3.8317799240262852D+03
-   18   22         4.9350370570025293D-01
-   20   22         4.2132605840918609D+02
-   21   22         4.4685234026425108D-01
-   22   22        -1.3903524320796645D+04
-   23   22         8.0858589679977453D-04
-   25   22         3.8379278535541374D+01
-   27   22         1.6275554426188681D+04
-   30   22         1.1160261292313776D+00
-   31   22         9.6955542412643680D+00
-    3   23         5.6734846729507812D+14
-    6   23         3.7481527949204194D+00
-    7   23        -1.4234685402392194D+05
-   10   23         5.6912508697361790D+05
-   19   23         1.7073904895434389D+06
-   22   23         7.4661117438612522D-04
-   23   23        -2.1352255366916885D+06
-   24   23         3.1757554470588918D-03
-   25   23         5.6222924219593260D+01
-   26   23         1.4875630776780045D+02
-   28   23         3.2241328995237599D+00
-   31   23         1.8540412807865148D-03
-   32   23         2.0706777322874771D+01
-    3   24        -1.1574657671375613D+17
-    6   24         5.8505771769652665D+07
-    7   24        -1.3499233183147220D+05
-   10   24         2.4697080347964368D+05
-   20   24         8.7748131733047415D+05
-   23   24         8.7648783208036649D+08
-   24   24        -9.3717240302388263D+08
-   26   24         1.6529717907329826D+05
-   29   24         9.1084321875679123D+01
-   32   24         1.0927029370974062D+05
-    3   25         4.0392023237930284D+09
-    6   25        -5.2783049211030031D+00
-    7   25         6.8734782072213196D+00
-   10   25         3.8663122490857917D+00
-   19   25         1.4149540111532771D+01
-   22   25         3.8741892270754057D+01
-   23   25         6.1486575902520663D+01
-   25   25        -1.2487205138507203D+02
-   26   25         1.8380583763314841D-04
-   31   25         1.2777598655359909D-01
-   34   25         3.9035806742961374D+00
-    3   26         3.9816325013092332D+09
-    6   26        -7.9578164803692942D-03
-    7   26        -7.7385748412913413D+00
-   10   26        -2.3181235901586503D-01
-   19   26         8.0395374582366688D-02
-   20   26         1.8171749062654838D-03
-   21   26         9.7669215764781270D-03
-   23   26         9.2669176000279246D-04
-   24   26         3.7305497432543215D-12
-   25   26         1.0468851252799113D-09
-   26   26        -2.0194912733841466D+01
-   27   26         1.4173818601986046D-01
-   30   26         1.3159328248813591D+02
-   32   26         3.4910690472039370D-05
-   34   26         7.8282960973159043D-10
-   35   26         1.4269967012389972D+00
-   44   26         2.3456323797779533D-03
-   50   26         6.2868464043961986D-02
-   52   26         1.1458201230469494D-02
-   53   26         7.3721338032206599D-08
-   60   26         2.0450423581103166D-04
-   64   26         2.9489873665068875D-03
-    3   27        -2.1033415961695728D+15
-    6   27         6.3601150391934125D+05
-    7   27        -9.5002355049382531D+03
-   10   27         3.6433525328685420D+04
-   22   27         1.3284427875559797D+05
-   26   27         1.5565882134573879D+06
-   27   27        -1.0973644510316333D+07
-   28   27         1.7205492841424638D-04
-   30   27         6.2279053982597112D+01
-   31   27         1.3851118913478336D+02
-   33   27         1.7771951285798480D-03
-   35   27         7.6025999395785020D+03
-   36   27         7.6783551861925172D+00
-    3   28         2.4643952099699103D+14
-    6   28         9.3127407297302568D+02
-    7   28        -7.7990277355629456D+04
-   10   28         3.0816611938329478D+05
-   23   28         1.1624899592271028D+06
-   27   28         7.0942062949313005D+00
-   28   28        -1.4120739225672556D+06
-   29   28         5.0726630329396769D-03
-   31   28         8.5299639095127568D+03
-   32   28         3.2413727592169624D+02
-   36   28         9.5963731466577046D+03
-   37   28         1.8273628464515621D+01
-    3   29        -2.9271051474405112D+14
-    6   29         2.3988978061665429D+05
-    7   29        -9.0523945297792787D+04
-   10   29         1.1024333354065668D+05
-   24   29         4.8360083368139376D+05
-   28   29         3.1847268326797849D+06
-   29   29        -5.1322322176386304D+06
-   32   29         1.1456301378809293D+06
-   33   29         5.1403074225365870D+01
-   37   29         5.8612160099892004D+04
-   38   29         6.8136288585612859D-01
-    3   30        -3.1328136461025024D+17
-    6   30        -8.1449740051396269D+00
-    7   30         6.5058260860718620D+08
-   10   30        -9.8794959763218515D+02
-   22   30         6.0678255113841125D+01
-   26   30         1.5932106273210731D+09
-   27   30         6.4789858432863511D+01
-   30   30        -1.1059904421221632D+10
-   31   30         4.4195841170124287D-04
-   35   30         5.0261819690593647D+03
-   39   30         2.6170272739959094D-01
-    3   31        -5.3325457525476211D+13
-    6   31         1.0271901335025737D+01
-    7   31         3.0512933353913090D+03
-   10   31         4.5397618445808730D+04
-   22   31         1.5915774853955046D+05
-   23   31         3.2865644403776969D+01
-   25   31         2.5345243584845375D+03
-   27   31         5.1741913420771009D+04
-   28   31         6.4785289061612630D+01
-   30   31         1.3304956919565214D-01
-   31   31        -2.6600623268186959D+05
-   32   31         3.4658832983161060D-02
-   34   31         2.0565743317170096D+01
-   36   31         3.6561627829659114D+03
-   39   31         3.3717641803313728D+02
-   40   31         1.3909434470679075D-01
-    3   32         7.3822430503807469D+13
-    6   32         7.9296482366739284D+01
-    7   32        -2.7878487930120824D+04
-   10   32         2.4476450431587439D+05
-   23   32         5.0098190182733670D+05
-   24   32         9.5788372632007318D-03
-   26   32         6.8255265922703926D+04
-   28   32         1.0951930719372475D+01
-   29   32         1.8915486776795990D-05
-   31   32         4.7304343390227273D-02
-   32   32        -1.1658189892826278D+06
-   33   32         3.3256941475855872D-01
-   34   32         1.8020420236296783D+01
-   35   32         1.4347542962678594D+02
-   37   32         1.8494142043591260D+01
-   40   32         1.7239780650606031D+03
-   41   32         6.4283298873893173D+00
-    3   33         1.4924802232388547D+14
-    6   33         3.2077737938692633D+04
-    7   33        -4.8813190482912709D+04
-   10   33         1.2796363244595281D+05
-   27   33         5.4797017492710811D+05
-   29   33         7.3987842394941574D-04
-   32   33         2.8992566052560537D+05
-   33   33        -1.2864890962390103D+06
-   35   33         3.3170462299012434D+05
-   36   33         7.8897860600914157D+01
-   38   33         2.1475903154733859D+02
-   41   33         5.3650149460965404D+03
-   42   33         7.8531631632541810D-01
-    3   34        -2.7360891354656447D+14
-    6   34        -1.3334277049202489D+01
-    7   34         1.0617898794660276D+02
-   10   34         3.8652120953320980D+05
-   25   34         1.4507050515933302D+06
-   26   34         1.8512926187619218D+01
-   31   34         1.7089698125675392D+02
-   32   34         1.0972516602183954D+02
-   34   34        -1.8397221051496926D+06
-   35   34         1.7276575904270693D-03
-   40   34         2.0000246960605384D+03
-   43   34         3.9565464219564217D-01
-    3   35        -3.6978074525518610D+11
-    6   35        -9.0888879950884790D-03
-    7   35        -2.7976899497171881D-01
-   10   35         3.8276889572901922D+02
-   19   35        -4.0690721781602922D-05
-   26   35         2.4105125187857328D+02
-   27   35         1.1462858419614955D-01
-   30   35         7.0726210918323790D-02
-   32   35         1.8998188720018841D-06
-   33   35         1.6220632031380280D-08
-   34   35         1.2096676298093411D-11
-   35   35        -2.0772613808080700D+03
-   36   35         5.0520525053842323D-02
-   39   35         5.4937983600106158D+01
-   41   35         5.3831120868774207D+01
-   43   35         1.3644302871390957D-03
-   44   35         6.6874761964609586D-01
-   53   35         3.3842742192641894D-10
-   60   35         7.9917188539202494D-07
-   64   35         1.1995186487186475D-05
-    3   36        -4.3085260285164917D+11
-    6   36         4.5184326966045080D+02
-    7   36        -5.3233895185073877D+01
-   10   36        -9.2918627163332542D+02
-   27   36         9.9911745004213870D+00
-   28   36         3.0284350263348886D-01
-   31   36         1.5192181941739916D+01
-   33   36         3.3296009041415363D-07
-   35   36         4.3599890815962408D+03
-   36   36        -1.0633227884916500D+04
-   37   36         8.7439853338929036D-02
-   39   36         1.7734181199457421D+01
-   40   36         1.1496096215519722D+03
-   42   36         1.7029980551789524D+01
-   44   36         3.7949569235808008D+02
-   45   36         3.8515849732794188D-01
-    3   37         7.4556070318358325D+11
-    6   37         1.4712011415864546D+02
-    7   37        -1.6294500832410480D+02
-   10   37        -4.4021811455592569D+02
-   28   37         2.4718956764918322D-03
-   29   37         5.1313668020958400D-08
-   32   37         1.2060704522955609D+02
-   36   37         1.5229280312528255D+00
-   37   37        -6.1482545402797541D+03
-   38   37         1.3562943486012733D-02
-   40   37         6.7626915152624349D+02
-   41   37         2.8947285309206263D+03
-   45   37         2.9077169146136071D+03
-   46   37         2.4369437893748733D+00
-    3   38         2.9281401718893074D+13
-    6   38         3.3912158911880819D+04
-    7   38        -2.4090313676427773D+04
-   10   38        -3.7394843342364356D+02
-   29   38         9.4158592202895546D-06
-   33   38         2.0618733910358915D+02
-   37   38         2.1408725185575118D+05
-   38   38        -7.8028402421005070D+05
-   41   38         5.5377410761212674D+05
-   42   38         6.8860827690006502D+01
-   46   38         2.6984121539962575D+03
-   47   38         3.0760993760422195D-01
-    3   39        -6.2657805177116350D+15
-    6   39        -1.2500098833322562D+01
-    7   39         3.2128799096364328D+06
-   10   39        -1.8567372180488610D+02
-   30   39         4.4367113472646578D+00
-   31   39         1.8987952357353947D+01
-   35   39         6.4256414710195668D+07
-   36   39         2.4035264832810944D+02
-   39   39        -6.7470506855025858D+07
-   40   39         3.2723060382103494D-03
-   44   39         7.7731369119002792D+01
-   48   39         1.3092286995719479D-01
-    3   40        -7.2285913713894666D+11
-    6   40        -2.3744953383801142D+00
-    7   40         1.9901678385490945D+02
-   10   40        -1.6585396732783303D+02
-   31   40         1.7615287631567733D-03
-   32   40         1.5996532324798519D+01
-   34   40         3.0539318059423644D+00
-   36   40         3.5037771282196431D+03
-   37   40         1.1834126263409263D+02
-   39   40         7.3589036354739976D-04
-   40   40        -5.0029501508664198D+03
-   41   40         2.6287458851764856D-01
-   43   40         2.6807025167475399D+02
-   45   40         9.6517696575292564D+02
-   48   40         9.6448964982364160D+01
-   49   40         3.1420275557659721D-02
-    3   41         5.4465076022110771D+12
-    6   41         5.0122210673441110D+00
-    7   41        -2.6952610980312015D+03
-   10   41         1.0645917608469843D+04
-   19   41         9.7231787903965532D-05
-   32   41         3.1055451263769661D-04
-   33   41         2.9730846727228367D-07
-   35   41         5.3959703725451007D+04
-   37   41         2.6697839819035258D+00
-   38   41         3.1964165507439982D-05
-   40   41         1.3686609190628734D-03
-   41   41        -6.3560952371290165D+04
-   42   41         1.0622184853887429D-01
-   43   41         3.2460014117855112D+00
-   44   41         4.6770365387324041D+01
-   46   41         8.1801399195653551D+02
-   49   41         1.2676184753104783D+02
-   50   41         4.5432421275254811D+00
-    3   42         5.4204893497510680D+13
-    6   42         1.5145753440349479D+04
-    7   42        -1.5914960888644677D+04
-   10   42         5.5252961175526561D+03
-   33   42         5.8103998318332452D-06
-   36   42         2.9914595155507999D+04
-   38   42         5.3066991171182019D-04
-   41   42         1.4182079390631006D+04
-   42   42        -3.9784036227249203D+05
-   44   42         2.3594873215385622D+04
-   45   42         1.1207482913630082D+02
-   47   42         5.0935726729830137D+01
-   50   42         1.1145977242967874D+03
-   51   42         3.5270265643940157D-01
-    3   43         7.0872690565003952D+10
-    6   43        -1.5951583380769188D+01
-    7   43         3.2438817743288674D+01
-   10   43        -4.7447638200779366D+01
-   19   43         1.3377437339381246D-03
-   34   43         2.2953473521035707D-04
-   35   43         1.1305089090098068D+02
-   40   43         1.0184928918535505D+02
-   41   43         2.3687819660812389D+02
-   43   43        -8.7720598645403561D+02
-   44   43         4.3767240181339159D-04
-   49   43         4.5527534634997824D+02
-   52   43         1.0465015831605537D-01
-    3   44         3.5867177395006920D+10
-    6   44        -1.1925012151209637D-01
-    7   44        -4.4047783557935138D-01
-   10   44        -2.0765422952189567D+02
-   19   44         4.6284627645142230D-12
-   26   44         9.4455324334378455D-13
-   35   44         2.5427851728948886D-01
-   36   44         1.6235167042221109D-03
-   39   44         2.4832997771819650D-05
-   41   44         1.5208174518294959D-02
-   42   44         5.7464468945245737D-05
-   43   44         1.9502587033716099D-09
-   44   44        -1.6964533239651399D+02
-   45   44         2.9937304124934521D+00
-   48   44         1.2873255726760510D+03
-   50   44         1.3784008311357970D+03
-   52   44         1.5627588397689966D-02
-   53   44         3.6922072324318606D-04
-    3   45        -4.5638566454734668D+11
-    6   45         1.1594628272388350D+02
-    7   45        -2.4879231394118246D+01
-   10   45        -5.9467016050278893D+01
-   36   45         9.4908672495279549D-05
-   37   45         4.1138546245352119D-02
-   40   45         7.8976309540424228D-02
-   42   45         1.5721914179404266D-05
-   44   45         1.7243695107820403D+02
-   45   45        -3.7645591573016550D+03
-   46   45         3.0750256058421144D-01
-   48   45         2.6414818015953387D+00
-   49   45         7.7132814891055068D+02
-   51   45         1.3710156098542569D+02
-   53   45         4.2138751334013756D-03
-   54   45         8.3979293914509493D-04
-    3   46         3.1868073974666589D+11
-    6   46         1.3405025871070020D+01
-    7   46        -4.9626434029864797D+01
-   10   46        -4.8489029236014972D+01
-   37   46         6.2209272888059385D-05
-   38   46         4.4655635397229533D-09
-   41   46         2.3736255248225557D+01
-   45   46         5.6774910434850567D-01
-   46   46        -1.6339258909949456D+03
-   47   46         3.8445428949304403D-02
-   49   46         6.0115114346206813D+00
-   50   46         1.3058066957542528D+03
-   54   46         5.1540231181901648D+00
-   55   46         2.0155165843186666D-03
-    3   47         8.3326068546581934D+12
-    6   47         1.0269967241606568D+04
-    7   47        -9.2394266937190041D+03
-   10   47        -5.1407856593102956D+01
-   38   47         3.5133037000530748D-07
-   42   47         7.6400176004178313D+00
-   46   47         2.6533317328365458D+04
-   47   47        -2.7737494831826788D+05
-   50   47         2.4937976757507928D+05
-   51   47         7.8978809214427002D+01
-   55   47         1.5222550277931743D+01
-   56   47         9.1433119345317310D-02
-    3   48        -1.1777339737024178D+16
-    6   48        -1.5049656788667475D+01
-    7   48         6.4630375962459370D+06
-   10   48        -3.0523382971301004D+01
-   39   48         3.4198516199040817D-04
-   40   48         1.1202894332274911D+00
-   44   48         1.0525641372090911D+07
-   45   48         3.7497406520742459D+02
-   48   48        -1.6157594219270614D+08
-   49   48         3.8442084982944088D-03
-   53   48         3.2455792518719848D-03
-    3   49        -1.1093809572339902D+12
-    6   49        -1.7555939578869701D+00
-    7   49         2.3825907851930640D+02
-   10   49        -2.5020638669313971D+01
-   40   49         2.1228232667637124D-05
-   41   49         1.6449213810818456D+01
-   43   49         8.2202904881588812D-01
-   45   49         6.3687304389668079D+03
-   46   49         2.6884196476970885D+01
-   48   49         2.2360324978254627D-04
-   49   49        -7.4900583313705156D+03
-   50   49         1.7365719225298637D-01
-   52   49         6.6133882195799242D+02
-   54   49         2.7452707819811426D+00
-   59   49         1.3211486436074005D-02
-    3   50         6.4163498849144995D+11
-    6   50         7.7367776392040444D-01
-    7   50        -3.2532930531116244D+02
-   10   50         1.1958673801001598D+03
-   19   50         4.5413291733963879D-11
-   26   50         9.2677146129607244D-12
-   41   50         5.3263142822261686D-04
-   42   50         9.7870907837132691D-07
-   44   50         4.9848777455658745D+02
-   46   50         5.2758139758728531D+00
-   47   50         1.4599466821652546D-03
-   49   50         1.5689059543247633D-04
-   50   50        -9.1579679763536969D+03
-   51   50         2.1178963702230091D-01
-   52   50         2.3954837913280130D-01
-   53   50         1.0869185664176759D-02
-   55   50         7.2678464612040887D+00
-   59   50         2.3172527833663985D+01
-   60   50         2.1141372009912160D-02
-    3   51         2.6714216040202555D+13
-    6   51         8.7461878352088515D+03
-    7   51        -9.0474131427455559D+03
-   10   51         1.5232791314804331D+03
-   42   51         3.4580548844938141D-06
-   45   51         9.7293892253280628D+03
-   47   51         5.1625196950729367D-03
-   50   51         2.3647873799562362D+03
-   51   51        -2.5604155158401650D+05
-   53   51         3.6551644815667745D+00
-   54   51         3.1270732136930568D+00
-   56   51         2.9492896339784306D+01
-   60   51         2.6729324905353211D+00
-   61   51         3.3504236992761705D-01
-    3   52        -5.5222522421052345D+10
-    6   52        -1.0264907699981105D+01
-    7   52         3.0192360028884345D+01
-   10   52        -3.5313259901210614D+00
-   19   52         6.8598755167894304D-09
-   26   52         1.3999286583864591D-09
-   43   52         1.4148384764087776D-04
-   44   52         4.7414884868312326D+00
-   49   52         4.9519754763967632D+02
-   50   52         1.9854905900975487D+02
-   52   52        -8.9485199765441712D+02
-   53   52         1.1206731372908074D-07
-   59   52         1.1379162330964733D+02
-   64   52         3.6567541893835771D-02
-    3   53        -1.0409134188808325D+14
-    6   53        -2.2196437340540430D+02
-    7   53         7.1183143682684022D+04
-   10   53        -2.8747506500772457D+05
-   19   53         2.8699187590270753D-18
-   26   53         5.4695843392084144D-16
-   35   53         4.7831979317117915D-18
-   44   53         1.4092988492135741D+00
-   45   53         2.9021348655200735D-01
-   48   53         1.6039161644141396D-03
-   50   53         1.1778127341510805D+02
-   51   53         3.5473638250196990D+00
-   52   53         1.4652358236884802D-06
-   53   53        -3.1461171955564900D+01
-   54   53         8.6945187372120216D+01
-   60   53         2.5731333095080117D+04
-   64   53         1.5173789342306032D+00
-   65   53         1.7192828606086292D+00
-    3   54         6.5146434934748743D+11
-    6   54         4.0306725399805231D+02
-    7   54        -5.1583335841581879D+02
-   10   54        -8.0507475985864028D+02
-   45   54         6.2392015263037275D-05
-   46   54         2.0739391126339191D-01
-   49   54         2.5160897181527631D-02
-   51   54         3.2737961672427577D-03
-   53   54         9.3792431941747315D-02
-   54   54        -3.7515014308912242D+02
-   55   54         4.3845769120223016D-01
-   59   54         1.5934016351996341D+04
-   61   54         4.8964386526663696D+02
-   65   54         4.5153739080063565D-01
-   66   54         2.9381660329924681D+00
-    3   55         4.4361212142093496D+12
-    6   55         2.5975791419191410D+01
-    7   55        -7.7302246329688035D+02
-   10   55        -9.7815885843817355D+01
-   46   55         3.0088348828736039D-05
-   47   55         3.2927073993470601D-07
-   50   55         2.7352979276977852D+01
-   54   55         1.6266347009283619D-01
-   55   55        -9.2510671888382274D+02
-   56   55         8.6316202470544268D-01
-   59   55         1.6727993173575825D+02
-   60   55         2.7721668637249383D+02
-   62   55         1.3540340055766316D+01
-   66   55         1.3026294937702986D+01
-   67   55         1.3753744154991281D+00
-    3   56         1.8660089799973301D+12
-    6   56         5.7442296275584431D+03
-    7   56        -5.5004980812670592D+03
-   10   56        -1.0114865054620184D+01
-   47   56         6.5648988914587024D-07
-   51   56         3.2998093835084252D+00
-   55   56         2.8651823507425905D+02
-   56   56        -1.7828149725322225D+05
-   57   56         6.1405360482471034D-02
-   60   56         1.9860123847706091D+03
-   61   56         2.1200593617541458D+02
-   63   56         6.4643880216455632D-02
-   67   56         7.1964024048178132D-01
-   68   56         1.8829322170072416D-01
-    3   57        -2.7064465212144517D+12
-    6   57         6.2309578976906796D+03
-    7   57        -6.2393633964906439D+03
-   10   57        -9.5447191308809742D+00
-   56   57         4.0300890075958847D+01
-   57   57        -1.9977860522968473D+05
-   58   57         1.8428587480769140D-02
-   61   57         1.9927276891947695D+05
-   62   57         3.9894913598430594D+02
-   68   57         8.3453954046834227D+01
-   69   57         6.4119444042129950D-02
-    3   58        -4.8313365175725475D+14
-    6   58         1.4741276539610350D+05
-    7   58        -6.1372031852875607D+03
-   10   58        -1.1624026347840003D+01
-   57   58         4.5207628184993891D+06
-   58   58        -4.8646612604999226D+06
-   62   58         2.0248872162919107D+05
-   63   58         4.0165411498827588D+01
-   69   58         1.0459686032389702D+02
-   70   58         1.9915051292553915D-02
-    3   59        -3.3912555799852158D+12
-    6   59        -7.5251709746892637D+00
-    7   59         7.7123941784358954D+02
-   10   59        -3.2417189382193370D+00
-   49   59         2.2820210398444869D-06
-   50   59         4.4303409174424369D+00
-   52   59         2.6821000662923387D-02
-   54   59         3.0029853235689819D+02
-   55   59         8.4978836111223757D+00
-   59   59        -2.3348447051887215D+04
-   60   59         3.8095568012357895D-03
-   64   59         1.0589863845924667D+02
-   66   59         6.3496593552681235D-01
-    3   60         1.0903566411626892D+14
-    6   60        -1.1074556492066570D+00
-    7   60        -7.0919637358959706D+04
-   10   60         2.8446284840856818D+05
-   19   60         7.7131603347350239D-18
-   26   60         1.7268331846324688D-15
-   35   60         1.2855267224558372D-17
-   50   60         2.5518160283665065D-01
-   51   60         2.8894650966929535D-03
-   53   60         3.0078213254144242D+01
-   55   60         8.8907297329980372D+02
-   56   60         1.9188632485293009D+01
-   59   60         2.4050634944410315D-01
-   60   60        -2.6249180721129702D+04
-   61   60         1.9023455152745210D+01
-   64   60         3.0409784349856337D+00
-   65   60         1.4251777214144419D+00
-   67   60         2.0184997443558096D+01
-   71   60         6.6699727940642750D-01
-    3   61         3.0707053764585142D+12
-    6   61         2.6950347103721037D+03
-    7   61        -3.2434472772722811D+03
-   10   61         2.2138866049365784D+03
-   51   61         1.5235739698513394D-04
-   54   61         2.1730982100236679D+02
-   56   61         8.6166842318735859D-01
-   57   61         1.2340476226389712D+00
-   60   61         8.0024589571481890D+00
-   61   61        -1.0454652453612145D+05
-   62   61         2.8900287627061516D-01
-   65   61         6.6490833543814825D+00
-   66   61         1.1125786027468299D+01
-   68   61         8.4698608695146120D+00
-   71   61         7.4304498161666754D-01
-   72   61         1.3716102569846522D-01
-    3   62        -6.5148942496853247D+11
-    6   62         3.8025975673846197D+03
-    7   62        -4.1958049033720645D+03
-   10   62         1.5464411532774404D+03
-   55   62         4.4829661527953641D+02
-   57   62         6.8375563589219854D-02
-   58   62         1.4150666063116568D-07
-   61   62         7.9983661495574081D+00
-   62   62        -1.3851943980585484D+05
-   63   62         1.0643572231874639D-01
-   66   62         2.4744261469904795D+03
-   67   62         1.8631400612389017D+00
-   69   62         1.0964474386814791D+01
-   72   62         3.0389807957049449D+01
-   73   62         4.7818463790413207D-01
-    3   63        -3.6977560184234038D+12
-    6   63         8.1370642056504785D+03
-    7   63        -4.4571977509949529D+03
-   10   63         1.0098558193407227D+03
-   56   63         7.8654548745025104D+03
-   58   63         3.4232322635881235D-05
-   62   63         1.2983979727435973D+05
-   63   63        -2.8536297575779923D+05
-   67   63         1.1455375479031504D+03
-   68   63         7.7294023049394738D+01
-   70   63         6.7298210505063960D-02
-   73   63         4.6548769536967725D+01
-   74   63         1.9084828091942663D-02
-    3   64        -7.6183861602518982D+11
-    6   64        -9.2615017166472047D+00
-    7   64         1.7135479987124546D+02
-   10   64         1.2113723957147460D+01
-   19   64         8.5779177707170945D-17
-   26   64         1.8450312047853174D-14
-   35   64         1.4296529617861824D-16
-   52   64         4.0317671396229498D-04
-   53   64         1.2795707902318362D-03
-   59   64         4.9536598167506618D+03
-   60   64         2.2533317995397946D+00
-   64   64        -5.4069057762195262D+03
-   65   64         3.7204733125375694D-07
-   75   64         4.5557106454690421D-03
-    3   65        -1.0128174194393254D+13
-    6   65        -3.7740393827815984D+02
-    7   65         3.1711747862590319D+03
-   10   65        -7.0308310576609510D+03
-   53   65         2.8688851647533159D-01
-   54   65         7.0931079577649285D+01
-   60   65         2.1220049187385487D+02
-   61   65         2.3534599973372956D+03
-   64   65         7.4763843003875191D-05
-   65   65        -1.1603150939437741D+01
-   66   65         7.9964905679304763D+01
-   71   65         2.2355456472787228D+03
-   75   65         6.1346660385458336D-02
-   76   65         4.0188220424787691D+00
-    3   66        -8.5586490579050085D+11
-    6   66         1.1313350634669354D+02
-    7   66         1.0107110231356728D+01
-   10   66         1.7136456044098900D+01
-   54   66         1.7845364079578336D+00
-   55   66         2.1325870193015572D+01
-   59   66         2.0972761208331118D+01
-   61   66         1.5225787094857260D+01
-   62   66         1.2235643041004614D+02
-   65   66         3.0917592142370676D-01
-   66   66        -1.1300605517730943D+02
-   67   66         1.4384263091263119D-01
-   72   66         2.3841523244697478D+02
-   76   66         4.3395958773798321D-01
-   77   66         7.5404066212640677D+00
-    3   67         3.2466229360692758D+13
-    6   67         5.4530036838707518D+00
-    7   67        -6.4371323067100993D+03
-   10   67         2.6283182620815114D+02
-   55   67         5.6882054905976558D+00
-   56   67         8.9662258605910858D-03
-   60   67         2.6677746316431332D+01
-   62   67         2.3273567033431733D-01
-   63   67         1.1731314695701533D-04
-   66   67         3.6337504177924984D-01
-   67   67        -1.7620832770911049D+03
-   68   67         5.0869770286529379D+00
-   71   67         5.6687894262763848D+03
-   73   67         1.1119427596217115D+02
-   77   67         3.0948738802871649D+01
-   78   67         3.3474331116066409D+00
-    3   68        -1.5986800449767156D+12
-    6   68         2.6930472504446143D+03
-    7   68        -2.6384852036244802D+03
-   10   68         1.1448243949691193D+01
-   56   68         9.4448858592181776D-03
-   57   68         6.3782411315676498D-03
-   61   68         1.0713501772954650D+02
-   63   68         3.1864803294615747D-05
-   67   68         2.0479929884695590D+01
-   68   68        -9.4994040922881599D+04
-   69   68         1.5516170579788865D-01
-   71   68         2.3306645569889270D+03
-   72   68         6.3643737593517881D+02
-   74   68         6.3879312387804159D-03
-   78   68         3.2565918006794936D-01
-   79   68         1.3085727462990601D-01
-    3   69         1.2291297200717422D+11
-    6   69         4.5215167925179145D+02
-    7   69        -5.8329156518118862D+02
-   10   69         3.8877661877899520D+01
-   57   69         3.2405583301348866D-04
-   58   69         2.1549120892285080D-09
-   62   69         3.3137499721255847D+02
-   68   69         1.0260316879843957D+01
-   69   69        -2.1021662488921676D+04
-   70   69         1.1207320346167442D-02
-   72   69         1.6256814662027200D+04
-   73   69         4.5018534010791245D+03
-   79   69         1.0945162224474805D+01
-   80   69         1.6646421716398900D+00
-    3   70        -2.2922010828352350D+14
-    6   70         7.1391856875047451D+04
-    7   70        -2.5713308810347835D+03
-   10   70         4.0305294443985581D+01
-   58   70         9.0715363850307063D-05
-   63   70         3.6864048325412654D+02
-   69   70         2.4779343931498872D+06
-   70   70        -2.6419344904856607D+06
-   73   70         9.4704468567750679D+04
-   74   70         3.4514730319035998D+01
-   80   70         3.0628908553342608D+01
-   81   70         1.3266724797304119D-02
-    3   71        -2.6378220859447203D+13
-    6   71        -5.5388395254770586D+00
-    7   71         3.5202371246417415D+03
-   10   71         1.0005968075943183D+04
-   60   71         2.6995466845802601D-01
-   61   71         7.1490548740442295D-01
-   65   71         6.2470428901854742D+00
-   67   71         1.7359506263337769D+03
-   68   71         1.7728014070397484D+02
-   71   71        -8.2318586659928496D+03
-   72   71         1.6474773070836815D+01
-   75   71         2.1902553119519300D-01
-   76   71         1.3149096479220484D+01
-   78   71         6.4251250961714277D+00
-   82   71         5.8542640616153474D-01
-    3   72         4.2570006294017719D+11
-    6   72         1.0840790504232114D+03
-    7   72        -1.2759414570864260D+03
-   10   72         6.2843432533256635D+02
-   61   72         7.8406442098154769D-02
-   62   72         6.2769697451137518D-01
-   66   72         1.0237819602564723D+02
-   68   72         2.8762245942592948D+01
-   69   72         1.1110297251716492D+01
-   71   72         9.7883210519852675D+00
-   72   72        -4.6421919920164160D+04
-   73   72         5.3517331253301892D-01
-   76   72         4.0273323666240067D+01
-   77   72         2.8585461689371152D+02
-   79   72         1.5837222395403567D+00
-   82   72         3.1535680641864478D-01
-   83   72         5.9383190606206102D-02
-    3   73         6.5468652934375586D+11
-    6   73         6.6197827200492429D+02
-    7   73        -1.1199266717871647D+03
-   10   73         1.5642433103694070D+03
-   62   73         5.5741526765276571D-02
-   63   73         4.4480703063107513D-06
-   67   73         1.0667172600550310D+02
-   69   73         1.7363750193610446D+01
-   70   73         1.6522691087919515D-06
-   72   73         3.0203386320013341D+00
-   73   73        -4.1484591033956269D+04
-   74   73         6.1804900390574811D-02
-   77   73         4.0635951194163526D+03
-   78   73         4.5470078422948667D+01
-   80   73         1.5779081640593930D+00
-   83   73         3.6031415256773887D+00
-   84   73         1.2555607710590184D+00
-    3   74        -1.6262739601400590D+13
-    6   74         6.1956047731611570D+03
-    7   74        -1.7880042584502642D+03
-   10   74         4.7002655824328701D+02
-   63   74         4.9420978568708524D-03
-   68   74         4.1249540504938996D+03
-   70   74         1.6316578338564148D-03
-   73   74         1.6748785880760924D+05
-   74   74        -2.3997308555755354D+05
-   78   74         1.1252723927580128D+03
-   79   74         6.2075999086653127D+01
-   81   74         8.8909919430203058D-02
-   84   74         1.4224445029889592D+01
-   85   74         9.6428149820398986D-03
-    3   75         3.9243053531081474D+10
-    6   75        -6.8365222390487190D+00
-    7   75         5.3405900309437770D+00
-   10   75         5.9901003591414073D+00
-   64   75         5.5543808125237605D-02
-   65   75         3.7220007162764674D-03
-   71   75         4.7558919321302895D+00
-   75   75        -2.4036121057733632D+02
-   76   75         5.5253284705105080D-06
-   88   75         2.0126227756441040D-03
-    3   76        -2.9336871302464741D+12
-    6   76        -6.8476618236061171D+01
-    7   76         4.6747868477250000D+02
-   10   76         1.8825304796497059D+02
-   65   76         2.6792066625023275D-01
-   66   76         7.4512383299335623D+00
-   71   76         3.1238521006401982D+02
-   72   76         1.6103629027588916D+03
-   75   76         6.0458525753206524D-06
-   76   76        -2.3477852759550220D+01
-   77   76         7.5505570805886848D+01
-   82   76         1.4510176215492496D+02
-   88   76         4.2891756329568658D-03
-   89   76         1.9343884741208548D-02
-    3   77        -8.4649937071901932D+10
-    6   77         3.0849672690511527D+00
-    7   77         7.0057312835135530D+00
-   10   77         2.2224033819385483D+01
-   66   77         8.0744313359367959D-01
-   67   77         1.3118744250461889D+00
-   72   77         7.1283493444685405D+01
-   73   77         1.7955337565319934D+02
-   76   77         4.7088813372375249D-01
-   77   77        -1.6079971325703727D+02
-   78   77         6.4621469728813205D-02
-   83   77         6.9139277967584487D+00
-   89   77         4.2805827785837094D-02
-   90   77         1.1105645068187058D+00
-    3   78         9.0994584962368652D+12
-    6   78         1.8992249898890076D-01
-    7   78        -1.7928008368114074D+03
-   10   78         5.0226531148633008D+01
-   67   78         1.2803110638019741D+00
-   68   78         3.0938419162030197D-02
-   71   78         8.2744983316222580D+00
-   73   78         1.8128521913882562D+01
-   74   78         1.6555825943299381D-04
-   77   78         5.8308241540010652D-01
-   78   78        -1.2151531758063140D+03
-   79   78         9.9015755617124626D+00
-   82   78         3.5994100958081108D+03
-   84   78         3.8223484321437784D+00
-   90   78         1.4339147114285241D+01
-   91   78         3.4733007123468596D+01
-    3   79        -2.7453159703145771D+12
-    6   79         1.3022921822646192D+03
-    7   79        -8.0724088254079436D+02
-   10   79         1.3382336844906574D+01
-   68   79         4.4835965901245900D-01
-   69   79         5.6711864321598182D-01
-   72   79         1.2380672957903626D+02
-   74   79         3.2937637231210171D-04
-   78   79         3.5710677426749294D+02
-   79   79        -5.2140849207165178D+04
-   80   79         3.1206450778050066D-01
-   82   79         1.5588765195267342D+03
-   83   79         1.2450439299561351D+03
-   85   79         1.5301468255518518D-02
-   91   79         4.2166045575084050D+00
-   92   79         6.7124015265016754D-02
-    3   80         7.2436223737460706D+11
-    6   80         7.6095748991585040D+01
-    7   80        -2.7880373811703839D+02
-   10   80         3.2526988088952305D+02
-   69   80         1.1840849921455847D+01
-   70   80         9.8538324327733914D-07
-   73   80         3.0005112884555438D+03
-   79   80         4.2840520866754304D+01
-   80   80        -1.1214679232330000D+04
-   81   80         1.7979113060628463D-01
-   83   80         2.9958741628755961D+03
-   84   80         5.0352966121030677D+03
-   86   80         5.5097256314838245D-03
-   92   80         4.5066236790544183D+00
-   93   80         6.1980822833274808D-02
-    3   81        -7.7349377275378965D+12
-    6   81         2.8358527459940901D+03
-    7   81        -9.8040897818408905D+02
-   10   81         2.0503715160228158D+00
-   70   81         1.7631139573989134D-04
-   74   81         2.5771879144944847D+01
-   80   81         7.4269578510183390D+04
-   81   81        -1.1633088416682843D+05
-   84   81         4.0136868226838604D+04
-   85   81         3.2883830322515543D+01
-   87   81         8.0527939362006022D-03
-   93   81         7.2722198693865634D+00
-   94   81         7.1320382329768759D-03
-    3   82        -8.8506209433070703D+12
-    6   82        -6.2435361271988121D-01
-    7   82         1.6827452157035398D+03
-   10   82         2.8300988210335873D+02
-   71   82         2.5195131711370145D-01
-   72   82         2.2843288442205806D-01
-   76   82         2.7184153498109174D+00
-   78   82         1.2028633488164767D+03
-   79   82         1.4444524392498757D+01
-   82   82        -3.8134292160006266D+03
-   83   82         9.9228003820484325D+00
-   88   82         1.6921091823416577D-02
-   89   82         4.4462900058887929D+00
-   91   82         6.8088790231945254D+01
-   99   82         1.8041359829061410D+00
-    3   83         9.7706587806282166D+10
-    6   83         2.8454381906611280D+02
-    7   83        -3.0592215334446712D+02
-   10   83         1.5432088535921423D+02
-   72   83         4.8937007830943463D-01
-   73   83         5.2613026597778942D+00
-   77   83         2.3629083345465648D+02
-   79   83         1.3124818829644931D+02
-   80   83         2.3004994517939008D+00
-   82   83         1.1288902356420554D+02
-   83   83        -1.4760758211855615D+04
-   84   83         1.0239993401285146D+00
-   89   83         3.3102248064284503D+01
-   90   83         1.7263619872321822D+03
-   92   83         1.3807603775480470D+00
-   99   83         1.1094893802636381D+00
-  100   83         2.1775545835630170D-02
-    3   84         1.9272007509135032D+12
-    6   84         4.6954058996975152D+02
-    7   84        -1.1665840041730592D+03
-   10   84         2.6878067916314449D+03
-   73   84         5.7259410934481615D+01
-   74   84         2.3937780144875828D-04
-   78   84         4.5216339712716990D+02
-   80   84         1.2075934157888094D+02
-   81   84         2.3304310169157687D-03
-   83   84         3.1981293643987925D+01
-   84   84        -4.8179767400806224D+04
-   85   84         1.1089894601620729D+00
-   90   84         1.9218052470219791D+04
-   91   84         1.0681288624487108D+03
-   93   84         1.3435684970174349D+00
-  100   84         1.5196805827136202D+00
-  101   84         3.1437425616266466D-02
-    3   85        -1.0367194884025732D+11
-    6   85         9.2984999501579580D+02
-    7   85        -6.7780967075007231D+02
-   10   85         5.0182635224889886D+01
-   74   85         1.5930145032653862D-03
-   79   85         4.9268788363911602D+02
-   81   85         1.8741423319938499D-02
-   84   85         1.0886658670359828D+04
-   85   85        -3.9625774776502949D+04
-   86   85         7.4525750233180954D-01
-   91   85         2.3315616308205354D+04
-   92   85         3.9790921202587874D+01
-   94   85         1.5273009633660700D-01
-  101   85         3.7771825850144172D+00
-  102   85         3.4214664826198752D-03
-    3   86         5.1058303403911719D+11
-    6   86         6.1926181176841499D+02
-    7   86        -6.2163586629575650D+02
-   10   86         1.6043213020982332D+01
-   80   86         1.6233376402902346D+02
-   85   86         9.3617265145906615D+01
-   86   86        -2.6829707512407815D+04
-   87   86         3.9531174790852647D-01
-   92   86         2.6530845456958905D+04
-   93   86         2.5659600460423245D+01
-   95   86         9.4598011079901581D-02
-  102   86         2.0887536044071040D+00
-  103   86         3.6039565190856878D-03
-    3   87        -4.2331644886938770D+11
-    6   87         1.0508784236062193D+03
-    7   87        -5.8671016142883013D+02
-   10   87         2.4501255515491951D+00
-   81   87         2.9068444521604700D+01
-   86   87         2.0006853952068526D+04
-   87   87        -4.6292647579083896D+04
-   93   87         2.5762305805948683D+04
-   94   87         2.2267555646027375D+01
-   96   87         2.8649536166369449D-02
-  103   87         4.5026155348674610D+00
-  104   87         2.1680990773443633D-03
-    3   88         3.5656768901584686D+10
-    6   88        -5.8663160225741446D+00
-    7   88         4.6729514479683507D+00
-   10   88         4.7748897632497140D+00
-   75   88         2.2986995584594491D-02
-   76   88         4.4770720179995629D-02
-   82   88         9.4289225140347828D+00
-   88   88        -2.2983803671305461D+02
-   89   88         3.4471920229343846D-05
-  108   88         2.6079779329021896D-03
-    3   89        -1.8147636681864651D+11
-    6   89        -4.9801589701040587D+00
-    7   89         3.2388672549871210D+01
-   10   89        -2.5972005426420908D+00
-   76   89         4.9781251834313924D-03
-   77   89         1.7949543976861895D+00
-   82   89         6.2064595913573712D+01
-   83   89         4.0614973103783491D+01
-   88   89         8.6364345896783749D-07
-   89   89        -6.3461501805741189D+00
-   90   89         1.5057064108564234D+02
-   99   89         2.6239784962906437D+01
-  108   89         5.0226504235772687D-07
-  109   89         2.0419004555078097D+01
-    3   90        -2.9862211656965111D+10
-    6   90         3.9666993531931807D+00
-    7   90         3.2046847696765990D-01
-   10   90         1.7602386856674090D+00
-   77   90         2.0131110732581886D-01
-   78   90         2.8806714697895031D-01
-   83   90         9.1565895134237145D+00
-   84   90         3.2637446027711374D+00
-   89   90         6.5090031207966259D-01
-   90   90        -2.1898660923678267D+02
-   91   90         1.0421521801803639D+00
-  100   90         5.2581978928787565D-01
-  109   90         1.9402209890457575D-01
-  110   90         1.5810779686975432D-01
-    3   91         1.2846132864260194D+11
-    6   91         3.2665396796231617D-03
-    7   91        -3.5599088245125820D+01
-   10   91         1.1507247483869165D+01
-   78   91         6.4425352205443875D-01
-   79   91         2.1686207123714054D-03
-   82   91         3.9198901100067292D+00
-   84   91         1.6748353887997627D-01
-   85   91         3.7242923529973740D-04
-   90   91         9.6222172763666691D-01
-   91   91        -1.2872267180856866D+03
-   92   91         1.0224624304354115D+00
-   99   91         1.4479432436174818D+03
-  101   91         5.7859908083284273D-01
-  110   91         1.6381736226801630D-01
-  111   91         2.6000474756964796D-02
-    3   92         6.6531053207471268D+10
-    6   92         4.3598498752998260D+01
-    7   92        -6.9793727752152677D+01
-   10   92         4.3930111006351891D-01
-   79   92         2.6209019622607337D-02
-   80   92         1.2817812028513729D-02
-   83   92         5.3045820115970521D+00
-   85   92         4.8252166475319289D-04
-   86   92         2.5615581393469097D-03
-   91   92         7.7624638250107500D+02
-   92   92        -3.9558391842459964D+03
-   93   92         1.6538765794899115D+00
-   99   92         9.2447680989029254D+02
-  100   92         2.1191923252738607D+03
-  102   92         7.9965529775512995D-02
-  111   92         1.1451653081503461D-01
-  112   92         3.3330582874171351D-03
-    3   93         3.8362973215813721D+11
-    6   93         2.1737929681084682D+00
-    7   93        -7.2984397972791641D+01
-   10   93        -4.3159496598711496D-02
-   80   93         4.4867857942479307D-04
-   81   93         1.2743884987054639D-07
-   84   93         4.2064032356675535D-01
-   86   93         6.3044557696091136D-06
-   87   93         1.2511243853509948D-07
-   92   93         4.2093742411668167D+00
-   93   93        -3.2179807508705685D+03
-   94   93         4.2885727710871718D-01
-  100   93         9.0853505279847042D+01
-  101   93         3.1909316580379636D+03
-  103   93         1.4390996038998164D-02
-  112   93         9.6718098527918983D-01
-  113   93         8.4529952932630090D-03
-    3   94        -5.2076048053526282D+11
-    6   94         4.8052587418638740D+02
-    7   94        -4.2270888673476486D+02
-   10   94        -9.3678995888147779D-02
-   81   94         7.5884777983673868D-07
-   85   94         2.9574376620635338D-02
-   87   94         6.5635465362974286D-07
-   93   94         2.6038761452515687D+03
-   94   94        -2.1687613218923532D+04
-   95   94         5.7150225244522546D-01
-  101   94         1.8960096973750104D+04
-  102   94         6.3157748150288739D+01
-  104   94         1.4411169321632519D-02
-  113   94         1.1427140006088077D+00
-  114   94         8.4010163219957090D-04
-    3   95         3.3044829241079309D+11
-    6   95         1.3037655775944626D+02
-    7   95        -2.1206025810683639D+02
-   10   95        -1.2009932769702913D-01
-   86   95         4.9183942318640145D-03
-   94   95         1.9276044076174951D+01
-   95   95        -9.7770580499965909D+03
-   96   95         1.9678081861738206D-01
-  102   95         5.9764268373244449D+03
-  103   95         3.8604804343046599D+03
-  105   95         2.9598893689538235D-03
-  114   95         1.4732094910665106D+00
-  115   95         6.6537311453407670D-04
-    3   96         9.8540813501572968D+10
-    6   96         4.9204139298748959D+02
-    7   96        -4.3631242998453644D+02
-   10   96        -1.0663054259190775D-01
-   87   96         3.8515892369926652D-04
-   95   96         2.5751501677620540D+03
-   96   96        -2.3140216622089447D+04
-   97   96         1.5018273167517610D-01
-  103   96         2.0493708196226991D+04
-  104   96         1.3252031054843794D+01
-  106   96         3.6749035680178256D-04
-  115   96         1.3325903922748927D+00
-  116   96         3.6881196951020359D-04
-    3   97         6.2504152954432816D+10
-    6   97         3.6307276872082639D+02
-    7   97        -3.9000160074595982D+02
-   10   97        -1.1210308475799327D-01
-   96   97         1.6724527815109795D+01
-   97   97        -1.8739544115824054D+04
-   98   97         4.2542270191261111D-02
-  104   97         1.7409109211981995D+04
-  105   97         1.3382794494304969D+03
-  107   97         1.1437823542634127D-07
-  116   97         1.4290538363748742D+00
-  117   97         2.6548539976155257D-04
-    3   98        -1.0599543091923950D+14
-    6   98         2.6500547122225682D+04
-    7   98        -4.4194046459324261D+02
-   10   98        -2.1867347172957738D-01
-   97   98         1.2508139894208906D+06
-   98   98        -1.2985313757185577D+06
-  105   98         2.1651516314909382D+04
-  106   98         3.6392378848022742D+00
-  117   98         2.8424649888957663D+00
-  118   98         2.9572327313911215D-04
-    3   99        -1.2498944960953035D+13
-    6   99        -2.2369826402393249D+00
-    7   99         3.1439621147430557D+03
-   10   99         2.5769471833694979D+02
-   82   99         8.0659767308082841D+00
-   83   99         4.3600690334642184D-01
-   89   99         8.7424944640657252D+00
-   91   99         1.1244522034850987D+05
-   92   99         9.4566058054935425D+01
-   99   99        -1.4067782810386235D+05
-  100   99         1.1831211083206516D+00
-  108   99         3.2046427455848978D-04
-  109   99         5.9570969642507976D+01
-  111   99         4.8862016965140240D-02
-  120   99         2.0662053374733442D-03
-    3  100        -2.6707538046024698D+11
-    6  100         1.0208426323384546D+02
-    7  100        -6.9657126197098520D+01
-   10  100         6.3866586439762813D+01
-   83  100         1.3821306774883060D-01
-   84  100         3.0884101383670853D-01
-   90  100         6.5455751778521130D+02
-   92  100         3.5012042123619030D+03
-   93  100         5.8975921694875737D+01
-   99  100         1.9109047531247445D+01
-  100  100        -1.0371646898148745D+04
-  101  100         1.9808757290670214D+00
-  109  100         4.5331462883047379D+03
-  110  100         1.5045017573455218D+03
-  112  100         1.5995581945769041D-01
-  120  100         2.6910094771265264D-01
-  121  100         1.4430709123286845D-03
-    3  101         2.7599693304706140D+11
-    6  101         3.5303696519696985D+01
-    7  101        -7.8601253146679881D+01
-   10  101         1.9658164719736185D+01
-   84  101         1.4159164421892070D-03
-   85  101         1.7329702425071897D-05
-   91  101         1.7288304561184682D+02
-   93  101         4.5904689250230308D+02
-   94  101         4.4923847526080124D-01
-  100  101         4.3899923683138053D-01
-  101  101        -4.4810310380062392D+03
-  102  101         2.1020408895055662D+00
-  110  101         1.5903547994501739D+03
-  111  101         2.5423373578113629D+02
-  113  101         1.2806577640768388D-01
-  121  101         3.9270863288082847D-01
-  122  101         1.1055227094554506D-03
-    3  102         2.6646530742641638D+11
-    6  102         2.6555362234993430D+02
-    7  102        -2.5709259150665105D+02
-   10  102         7.9346340085265621D-01
-   85  102         4.7008412693161132D-06
-   86  102         2.2845468627586934D-05
-   92  102         9.4246494370530574D+00
-   94  102         4.4812427680309591D-01
-   95  102         1.2572290575654994D+00
-  101  102         6.2947862083037899D+02
-  102  102        -1.2476217299801763D+04
-  103  102         1.0670866458828228D+00
-  111  102         1.3112726883589075D+03
-  112  102         2.4986385400024258D+02
-  114  102         6.2466118681230462D-02
-  122  102         6.7433436275743575D-01
-  123  102         9.6739805948258624D-04
-    3  103        -3.5867904182510056D+10
-    6  103         3.0119146040414279D+02
-    7  103        -3.0210409375978389D+02
-   10  103         2.8718386095879528D-01
-   86  103         2.1963640810604161D-07
-   87  103         5.4219046265823885D-09
-   93  103         3.7132269611196844D+00
-   95  103         4.5250811654349024D+00
-   96  103         1.8356510440772932D-03
-  102  103         5.9458282754677700D+00
-  103  103        -1.4216858019354348D+04
-  104  103         1.0446952392412971D+00
-  112  103         1.4150382557179772D+04
-  113  103         5.0240440526989730D+01
-  115  103         2.6626116004968451D-02
-  123  103         6.0187531811335171D-01
-  124  103         1.3021907832387013D-03
-    3  104         5.4672754128909314D+11
-    6  104         3.1837332629233350D+02
-    7  104        -2.8864182833639978D+02
-   10  104        -2.4698240338236359D-02
-   87  104         3.5404781264149106D-09
-   94  104         8.3051531771320175D-01
-   96  104         1.6096902890500133D-03
-   97  104         1.8989100650400517D-02
-  103  104         1.4167223432158669D+03
-  104  104        -1.5304269395921998D+04
-  105  104         3.7799806638649980D-01
-  113  104         1.3834264196543349D+04
-  114  104         2.0090781775615810D+01
-  116  104         2.6049669252389768D-03
-  124  104         1.2530775055007679D+00
-  125  104         4.8002056321526967D-04
-    3  105         2.8928898143155457D+11
-    6  105         2.9380569563882443D+02
-    7  105        -2.9386390846151193D+02
-   10  105        -4.3695292162692759D-02
-   95  105         1.2971190825476811D-01
-   97  105         3.7439492078968378D-02
-   98  105         2.0607632355752872D-08
-  104  105         9.6949505884277336D+00
-  105  105        -1.4411074019760566D+04
-  106  105         9.7576284884893505D-02
-  114  105         1.4386004802203912D+04
-  115  105         1.3496769877163493D+01
-  117  105         7.8258860610694859D-05
-  125  105         7.1418323551872753D-01
-  126  105         4.1600570974031638D-04
-    3  106        -2.5841769519830426D+13
-    6  106         5.9747377628400936D+03
-    7  106        -3.2634212794861753D+02
-   10  106         1.8859490073131679D-01
-   96  106         3.4907442083388633D+00
-   98  106         9.8222110829506436D-06
-  105  106         2.7677827629265864D+05
-  106  106        -2.9874637099892233D+05
-  107  106         9.7720170301929726D-02
-  115  106         1.6308815565166236D+04
-  116  106         4.6689449786251966D+00
-  118  106         2.3193321099572251D-05
-  126  106         1.4372836123592481D+00
-  127  106         1.8532003453118525D-04
-    3  107        -9.3699684890158359D+12
-    6  107         2.3659519061258247D+03
-    7  107        -3.4434011733037607D+02
-   10  107         7.3143183563636638D-01
-   97  107         1.0092894045812116D+01
-  106  107         1.0109220398829493D+05
-  107  107        -1.2067779230989264D+05
-  116  107         1.7548101658239262D+04
-  117  107         2.5703698387732339D+00
-  119  107         5.3738777837298518D-06
-  127  107         1.4800182405537825D+00
-  128  107         1.5522834975148018D-04
-    3  108         4.6228749201615372D+10
-    6  108        -7.3568734111342806D+00
-    7  108         6.3682454640572352D+00
-   10  108         5.8611104399254419D+00
-   88  108         1.8601862181589414D+01
-   89  108         1.4299386706668296D-01
-   99  108         2.7387381999474570D+02
-  108  108        -3.3789468190773215D+02
-  109  108         1.4013765645248377D-02
-  130  108         1.2537677183762242D-04
-    3  109        -1.2864477586973978D+10
-    6  109        -4.9022740146655763D-01
-    7  109         4.7666055614939074D-01
-   10  109         1.2984475795724117D+01
-   89  109         4.6731768899114290D-01
-   90  109         9.0671688892593416D-01
-   99  109         3.6120486318578151D+00
-  100  109         1.7018089800912684D+01
-  108  109         9.9441122964874849D-10
-  109  109        -1.6864026907673392D+02
-  110  109         3.6602406572211352D+00
-  120  109         2.7662849938634415D-01
-  130  109         1.7989867479716833D-06
-  131  109         2.6014083657697057D-05
-    3  110         1.4183825972268507D+07
-    6  110        -1.8431967039594330D+00
-    7  110         2.4316070352938843D+00
-   10  110         5.3620492567756795D-01
-   90  110         2.4670638525765689D+00
-   91  110         2.7684928510344013D+00
-  100  110         1.8858551644912676D+01
-  101  110         8.9950763406130534D+01
-  109  110         1.2221271459208729D+01
-  110  110        -1.3120128676503330D+02
-  111  110         2.2961212272004330D-01
-  121  110         1.9715392690515704D-01
-  131  110         4.1899076668401737D-02
-  132  110         3.4605885188138672D-04
-    3  111         6.7538048271858862D+11
-    6  111        -2.8463693542616786D-01
-    7  111        -1.6249996817524965D+02
-   10  111        -2.0756241529608704D-01
-   91  111         1.4732921532094637D-01
-   92  111         8.5471904951294397D-04
-   99  111         3.7194233426406991D-03
-  101  111         4.8213101114808916D+00
-  102  111         8.3041053928366845D-02
-  110  111         7.6987029604159540D-02
-  111  111        -8.5114999553412008D+02
-  112  111         1.3925583483576535D+01
-  120  111         7.6446452134171122D+03
-  122  111         1.4924476821640669D+00
-  132  111         2.8388950329621609D-01
-  133  111         1.1669707083880822D-04
-    3  112         1.4458946868800037D+11
-    6  112         5.2253027423205491D+00
-    7  112        -3.3971149887418768D+01
-   10  112        -2.5788920517809257D-02
-   92  112         1.7599785209805463D-05
-   93  112         2.0065817586235406D-03
-  100  112         5.3333906672881472D-04
-  102  112         1.1194491910727421D-02
-  103  112         1.1378265013986026D-01
-  111  112         9.8519569326997605D+00
-  112  112        -1.6893165215665431D+03
-  113  112         2.2502911851939356D+00
-  120  112         1.5882520348437754D+02
-  121  112         1.4686056420455836D+03
-  123  112         7.0430065439108430D-02
-  133  112         4.8241344576524601D-04
-  134  112         3.1246318071070688D-05
-    3  113         1.9908781282737354D+11
-    6  113         6.9355662835648590D-01
-    7  113        -3.7911621704016589D+01
-   10  113        -2.1479801333161505D-02
-   93  113         8.3954420014364417D-06
-   94  113         1.8692292855473883D-07
-  101  113         9.2238571938765910D-04
-  103  113         1.9338632133607771D-04
-  104  113         3.9269031499339134D-05
-  112  113         1.0772622014825273D+00
-  113  113        -1.8231547305387121D+03
-  114  113         1.0281039807731145D+00
-  121  113         3.2972371000802291D+01
-  122  113         1.2860764131569385D+03
-  124  113         3.2246935174930776D-02
-  134  113         9.8030594638381947D-03
-  135  113         1.5853484735603801D-05
-    3  114        -2.2507849566058817D+11
-    6  114         2.0310269181453566D+02
-    7  114        -2.0055748131032209D+02
-   10  114        -2.1738016832816336D-02
-   94  114         1.1134568542313272D-07
-   95  114         5.7890460318940041D-06
-  102  114         1.2173121717139509D-03
-  104  114         4.6205147611233094D-05
-  105  114         1.2901038369090548D-03
-  113  114         8.3301833394537584D+02
-  114  114        -1.0679968071522873D+04
-  115  114         1.0271449069399619D+00
-  122  114         6.4178313126779940D+03
-  123  114         7.3971135692228472D+02
-  125  114         1.8341658552834905D-03
-  135  114         1.3420295044654384D-03
-  136  114         1.8827474579083259D-04
-    3  115         2.6527382319796591D+11
-    6  115         1.2891139071828693D+01
-    7  115        -5.8670449769722595D+01
-   10  115        -2.0954972889145482D-02
-   95  115         1.0739746706374020D-08
-   96  115         1.6436410523027621D-09
-  103  115         3.8250712663320834D-04
-  105  115         4.9711411012973751D-06
-  106  115         2.1187417677446130D-09
-  114  115         4.2190997071967198D+00
-  115  115        -2.9392843336197916D+03
-  116  115         1.9815434717524319D-01
-  123  115         6.4018405874040513D+02
-  124  115         2.3392048069415146D+03
-  126  115         1.9210494879648827D-05
-  136  115         2.7767764227864783D-01
-  137  115         3.9520873917915406D-04
-    3  116        -9.7668371176848555D+12
-    6  116         2.1831662760011659D+03
-    7  116        -2.1542649170944202D+02
-   10  116        -4.6431149777275985D-02
-   96  116         2.2587950638044952D-07
-   97  116         7.8593495799626765D-06
-  104  116         1.3702514678062390D-02
-  106  116         3.0103490645095293D-07
-  107  116         1.0956637637300512D-09
-  115  116         9.8393200137336695D+04
-  116  116        -1.1134960719510134D+05
-  117  116         1.8903100179233198D-01
-  124  116         1.0979994952597839D+04
-  125  116         6.8737618549885582D+00
-  127  116         3.5175457997856396D-06
-  137  116         6.4206249348107347D-01
-  138  116         1.8225499578112528D-04
-    3  117        -1.1968582824051870D+12
-    6  117         4.5661078382033458D+02
-    7  117        -2.3032218014517804D+02
-   10  117         5.2470618600110104D-02
-   97  117         8.9174219630075639D-05
-   98  117         3.2472946344974932D-08
-  105  117         9.8024766527635887D-01
-  107  117         9.7841363956549184D-09
-  116  117         1.1544996317494564D+04
-  117  117        -2.3749598899767720D+04
-  118  117         1.2066600315978421D-01
-  125  117         1.1972152209638751D+04
-  126  117         3.6293845842668984D+00
-  128  117         8.4949745777800301D-07
-  138  117         3.7881648294935588D-01
-  139  117         9.3539020607304681D-05
-    3  118        -1.1370307807514975D+14
-    6  118         2.6513629651373041D+04
-    7  118        -2.4535883682462580D+02
-   10  118         4.1784029877113729D-02
-   98  118         3.8243955952813260D-05
-  106  118         1.1593858206373275D+00
-  117  118         1.3659526139854747D+06
-  118  118        -1.4052267085873301D+06
-  119  118         8.2757945327513238D-02
-  126  118         1.3000844139549101D+04
-  127  118         1.9821004832435971D+00
-  129  118         8.6203245383145278D-08
-  139  118         7.1347705302380071D-01
-  140  118         1.0409521728232891D-04
-    3  119        -1.5653946185767082D+13
-    6  119         3.2579310434732092D+03
-    7  119        -2.6669283241471175D+02
-   10  119        -1.6426108550816273D-02
-  107  119         4.9743995005939307D-01
-  118  119         1.5853714335505062D+05
-  119  119        -1.7593157177647846D+05
-  127  119         1.4399117888159702D+04
-  128  119         1.8012732221543302D+00
-  140  119         7.8998862479587140D-01
-  141  119         4.6521269314971044D-05
-    3  120        -3.5034163464351992D+12
-    6  120        -2.8051741576295726D+00
-    7  120         8.5079797182940524D+02
-   10  120         1.0557054027125232D-02
-   99  120         9.1094680467145066D-05
-  100  120         7.3455597199685964D-04
-  109  120         2.1043880288579178D-01
-  111  120         4.4276385782208727D+03
-  112  120         1.3002514365678459D+02
-  120  120        -4.0132064450582402D+04
-  121  120         1.8565732218667288D+00
-  130  120         4.7988506335613847D-05
-  131  120         7.2148319800584090D+01
-  133  120         2.0470230188369631D-04
-  142  120         3.0828823282609238D-05
-    3  121        -1.0361630854092651D+11
-    6  121         6.3707444503735955D+00
-    7  121         1.4343969290695696D+01
-   10  121        -6.4297473452155675D-03
-  100  121         5.9602432353857942D-06
-  101  121         7.3188143914909073D-03
-  110  121         6.7966646956598126D-02
-  112  121         1.8191956102689524D+03
-  113  121         8.5318304650130685D+01
-  120  121         2.8091788916533904D+00
-  121  121        -3.2060238102374010D+03
-  122  121         2.8498390891158558D+00
-  131  121         3.9215544695120843D+02
-  132  121         4.3357780725430621D+02
-  134  121         4.3753369579252700D-03
-  142  121         6.1685138303159120D-03
-  143  121         3.7499345221995489D-05
-    3  122         1.6566553735575623D+11
-    6  122         7.2613506336732927D+00
-    7  122        -2.7993372203477033D+01
-   10  122         1.8343499242220870D-01
-  101  122         3.4732502853353825D-06
-  102  122         7.0746253704417280D-06
-  111  122         2.5868047374946956D-01
-  113  122         5.6099012398657931D+02
-  114  122         3.4551020246101891D+00
-  121  122         4.8041600062450723D-01
-  122  122        -1.7828850875144146D+03
-  123  122         2.6028998999988726D+00
-  132  122         1.7786025030877113D+02
-  133  122         3.0692069049081971D+00
-  135  122         3.9718392561654398D-04
-  143  122         1.2076002811961195D-02
-  144  122         2.1519508987121915D-06
-    3  123         1.1298231134523933D+11
-    6  123         1.2832625252733800D+02
-    7  123        -1.3963856438582309D+02
-   10  123         3.1052261373517638D-02
-  102  123         3.1764938765774167D-07
-  103  123         3.5468076758953340D-05
-  112  123         5.4004496027226490D-01
-  114  123         1.2463760126848237D+01
-  115  123         2.6260634975062631D+00
-  122  123         8.1465541869135578D+01
-  123  123        -7.1335785590349069D+03
-  124  123         1.9036276027976757D+00
-  133  123         1.1966310291512800D+01
-  134  123         2.8984627539624785D+01
-  136  123         9.2876242550103440D-03
-  144  123         5.0937814096830647D-04
-  145  123         1.6546049052415819D-04
-    3  124        -1.0067798015788829D+11
-    6  124         1.5164916699879720D+02
-    7  124        -1.6183343321144213D+02
-   10  124         2.7907121707853193D-02
-  103  124         7.1043030502039299D-08
-  104  124         5.0411440039977992D-08
-  113  124         4.7818089331244618D-01
-  115  124         8.8834757515360430D+00
-  116  124         8.4074409003546738D-05
-  123  124         1.7623686058083827D+00
-  124  124        -8.2758284402085301D+03
-  125  124         1.2652255074491026D+00
-  134  124         3.1665908953619771D+02
-  135  124         2.5655850959326854D+00
-  137  124         1.0721601138548139D-02
-  145  124         7.0686606752845701D-02
-  146  124         5.0572413877811914D-04
-    3  125        -3.8176863230499419D+12
-    6  125         8.6231791446382340D+02
-    7  125        -1.4714651020076286D+02
-   10  125         5.7032098971042312D-02
-  104  125         5.5682704286515401D-07
-  105  125         3.2300806074219524D-05
-  114  125         9.6790653584881448D-01
-  116  125         1.5158507748715049D-03
-  117  125         4.3424665291483060D-05
-  124  125         3.6481838555761446D+04
-  125  125        -4.4850444680208799D+04
-  126  125         3.7483910019829886D-01
-  135  125         3.6380333745280794D+01
-  136  125         7.2854006764266472D+00
-  138  125         6.7951740026948664D-04
-  146  125         3.0146079643389151D-01
-  147  125         1.3330327113929779D-04
-    3  126         1.4316678382313742D+11
-    6  126         1.8942437721425949D+02
-    7  126        -1.6041463746981091D+02
-   10  126         7.9201222207667399D-01
-  105  126         7.6445807402052542D-05
-  106  126         9.3112738050538020D-08
-  115  126         1.0027583384990939D+01
-  117  126         5.3245791767420253D-05
-  118  126         1.6892876175702219D-08
-  125  126         1.5229830349781626D+03
-  126  126        -1.0055553050304350D+04
-  127  126         1.7382482507354535D-01
-  136  126         8.4872564065239330D+03
-  137  126         4.1675090710198255D+00
-  139  126         1.0350924409351442D-04
-  147  126         1.4270624379561847D-01
-    3  127        -7.3587731805832859D+13
-    6  127         1.5517974877791838D+04
-    7  127        -2.5376448315721618D+02
-   10  127         1.3498236231277101D+00
-  106  127         5.5877871137008890D-05
-  107  127         4.3137066348521261D-07
-  116  127         1.7210239477578913D+01
-  118  127         1.1955784897491069D-05
-  119  127         4.5546514031907706D-08
-  126  127         8.0902628379808925D+05
-  127  127        -8.3799557300166460D+05
-  128  127         3.6606408013486680D-01
-  137  127         1.3680072805973165D+04
-  138  127         5.0797563892705311D+00
-  140  127         5.1087088045130418D-05
-    3  128        -3.1147155431219741D+12
-    6  128         1.0210719120904522D+03
-    7  128        -2.8824858758355680D+02
-   10  128         5.6605048657664492D-01
-  107  128         4.8922057559031524D-06
-  117  128         7.3586553479463896D+00
-  119  128         6.1328223022033639D-07
-  127  128         3.9582815888501354D+04
-  128  128        -5.6170592330333369D+04
-  129  128         8.9845152462738664D-02
-  138  128         1.5843213168108157D+04
-  139  128         2.7253882511468812D+00
-  141  128         4.4733407512492811D-06
-    3  129        -1.1414484518619620D+15
-    6  129         2.8546041795621626D+05
-    7  129        -3.2876614301496778D+02
-   10  129         8.6897544429079421D-01
-  118  129         1.1513924636853023D+01
-  128  129         1.5682256245053563D+07
-  129  129        -1.5985800092273820D+07
-  139  129         1.8395240249473471D+04
-  140  129         3.5722575018396472D+00
-    3  130         6.2054682990459435D+10
-    6  130        -9.3889478210505359D+00
-    7  130         9.1108196329525715D+00
-   10  130         1.1101584198463443D+00
-  108  130         6.0391414021673951D-05
-  109  130         1.2211686015157007D+01
-  120  130         4.2825293962676847D+02
-  130  130        -4.4232503602335407D+02
-  131  130         2.8313739440141684D-02
-  148  130         6.0188261172512864D-06
-    3  131         7.0350300000517344D+08
-    6  131        -1.9838293854753097D+00
-    7  131         2.4737577893380913D+00
-   10  131        -3.9024993490318518D-03
-  109  131         8.8505753941899835D-06
-  110  131         3.4039540787356068D-03
-  120  131         2.5726594417220280D+01
-  121  131         9.2416898716626307D+01
-  130  131         1.1314462836956019D-09
-  131  131        -1.2254922072255664D+02
-  132  131         1.4095554678923301D+00
-  142  131         5.5020109363629922D-03
-  148  131         2.7519462121514353D-06
-  149  131         8.3531691559277941D-07
-    3  132         7.0614726537516346D+09
-    6  132        -7.4946930445448068D+00
-    7  132         9.5697873202590156D+00
-   10  132         3.8325112483741507D-02
-  110  132         2.8840511369015815D-05
-  111  132         7.0563416976969440D-02
-  121  132         1.0481661929862372D+02
-  122  132         2.5506243894981753D+02
-  131  132         1.4459640223391763D+00
-  132  132        -2.3607583737182662D+02
-  133  132         1.2256827359249404D-02
-  143  132         1.9002354072012378D-02
-  149  132         7.7487192172548775D-03
-  150  132         3.6554003605376125D-05
-    3  133         1.8111418527404496D+13
-    6  133        -2.3319221554791660D+01
-    7  133        -4.2701797986531346D+03
-   10  133        -4.5998023026825869D+00
-  111  133         7.3596235055917985D-03
-  112  133         4.3003707951502740D-02
-  120  133         2.3386431659167806D-02
-  122  133         1.1167509332586924D+03
-  123  133         1.3912408848202571D+02
-  132  133         3.1098696958561844D+00
-  133  133        -4.1522363897675075D+02
-  134  133         4.3396550804247745D+01
-  142  133         2.2536006011013076D+04
-  144  133         1.4701209184915290D-01
-  150  133         3.0242222148192127D-01
-  151  133         4.6581056754612362D-05
-    3  134         1.9189227084635986D+12
-    6  134         5.4089960238714902D+01
-    7  134        -4.4948769468266067D+02
-   10  134        -1.6336904493088478D-01
-  112  134         1.2596104813875940D-04
-  113  134         8.2549921868166690D-02
-  121  134         1.4939536137615830D-02
-  123  134         1.5238207754595468D+01
-  124  134         1.7982316007208476D+02
-  133  134         1.9624877762273825D+00
-  134  134        -1.0025610522368501D+03
-  135  134         4.2721977378490805D-01
-  142  134         2.0222864788544172D+02
-  143  134         2.3236717208211239D+03
-  145  134         3.8075371623316634D-01
-  151  134         9.6854970050583891D-05
-  152  134         2.6087094685272328D-05
-    3  135         1.7574563846925574D+13
-    6  135         1.5482927244013920D+01
-    7  135        -3.3697149120114645D+03
-   10  135        -1.0528509560337718D+00
-  113  135         1.1198023558565975D-03
-  114  135         1.1699355147929372D-04
-  122  135         6.7481069632854038D-02
-  124  135         1.2220799459575334D+01
-  125  135         6.0135299503591803D-03
-  134  135         3.5835469056999001D+00
-  135  135        -8.3635699566034316D+02
-  136  135         1.5641805124857700D+02
-  143  135         9.2301210947527153D+01
-  144  135         4.8168694130606872D+02
-  146  135         4.9885129469384681D-01
-  152  135         2.2773596350707238D-02
-  153  135         8.2810932822569819D-04
-    3  136        -2.9284196246072125D+11
-    6  136         1.3574404181759692D+02
-    7  136        -1.0756592609847065D+02
-   10  136        -5.6039369474936481D-03
-  114  136         9.1331759924845012D-07
-  115  136         3.2793116627579267D-04
-  123  136         2.8054880391073776D-03
-  125  136         6.6970999958753825D-05
-  126  136         1.9253260966775828D-05
-  135  136         8.7039569278292124D+00
-  136  136        -7.5674288474245368D+03
-  137  136         1.5312858265462388D+00
-  144  136         1.4450496313242372D+01
-  145  136         1.7717515950812765D+02
-  147  136         2.9596055494507541D-04
-  153  136         1.1845192297402470D-04
-  154  136         8.1794010444250794D-05
-    3  137        -6.6335544428257637D+10
-    6  137         1.0918093625343170D+02
-    7  137        -1.2797622621741371D+02
-   10  137         2.1838262272971663D-02
-  115  137         4.9035148304781108D-05
-  116  137         1.6043412243824620D-07
-  124  137         3.6752532126234616D-01
-  126  137         9.9060018750222916D-07
-  127  137         7.0028899252535627D-10
-  136  137         1.6087760175998329D+02
-  137  137        -7.0761276244339042D+03
-  138  137         4.1142474182345484D-01
-  145  137         2.7014411392054149D+03
-  146  137         1.1999775647531428D+03
-  154  137         9.9425412009883404D-02
-  155  137         2.0251598501085376D-04
-    3  138        -2.1613915382976770D+13
-    6  138         4.5557074754335745D+03
-    7  138        -1.8757524932323156D+02
-   10  138         1.8331421995142143D-02
-  116  138         2.6110323197519223D-05
-  117  138         8.8858932472593972D-07
-  125  138         4.6316173346702355D-01
-  127  138         1.4873982661285520D-07
-  128  138         4.3058190686823564D-09
-  137  138         2.3588685769331740D+05
-  138  138        -2.5057326027582976D+05
-  139  138         2.5539452754492575D-01
-  146  138         1.0308791425080695D+04
-  147  138         7.4911857206233758D+00
-  155  138         2.5069933889074941D-01
-  156  138         1.3142691033915250D-04
-    3  139        -5.9029823001842920D+11
-    6  139         3.2023601969107722D+02
-    7  139        -2.0949755902115152D+02
-   10  139         2.1596344789002891D-02
-  117  139         5.2329731905805878D-06
-  118  139         3.5260214346248931D-09
-  126  139         4.1413675764435998D-01
-  128  139         1.7601354181492056D-08
-  129  139         6.8685433029524962D-13
-  138  139         6.0910836520478524D+03
-  139  139        -1.7935003596123122D+04
-  140  139         1.7753438546968328D-01
-  147  139         1.1731425729445202D+04
-  156  139         1.4240932201283119D-01
-  157  139         7.1896125351627953D-05
-    3  140        -1.6608206469281147D+14
-    6  140         3.8957761941067249D+04
-    7  140        -9.9938014732774225D-03
-   10  140         2.2591691080320921D-02
-  118  140         6.3217202497165755D-06
-  119  140         2.5043991353172878D-08
-  127  140         5.3966528112319656D-01
-  129  140         1.6242237995678393D-09
-  139  140         2.1816346017512558D+06
-  140  140        -2.2205943593961876D+06
-  141  140         1.8267349117903209D-01
-  157  140         2.6070315197609117D-01
-  158  140         5.7702387855285863D-05
-    3  141        -8.4627860973994775D+12
-    6  141         1.4290834813619499D+03
-    7  141        -3.5431408785073885D-03
-   10  141        -6.6297248525836825D-03
-  119  141         6.5764302744724131D-07
-  128  141         1.9487274831790635D-01
-  140  141         8.1457462042211715D+04
-  141  141        -8.2888047460419009D+04
-  158  141         3.1719509797522744D-01
-  159  141         4.1207139963654267D-05
-    3  142        -1.8053782022119867D+13
-    6  142        -3.9235222873847675D+01
-    7  142         4.3405408616019658D+03
-   10  142        -2.6897956997813895D-02
-  120  142         6.3885924717477018D-05
-  121  142         8.4481609088733617D-03
-  131  142         3.3643247860289327D-02
-  133  142         4.0877564137673414D+02
-  134  142         8.1114625474983768D+01
-  142  142        -2.2764264592214917D+04
-  143  142         2.1995886024755054D+00
-  148  142         1.7769550544242862D-04
-  149  142         6.1629434896613077D+01
-  151  142         2.6600328858202445D-05
-  164  142         4.6385012196736809D-06
-    3  143        -1.6326114759932473D+12
-    6  143        -6.6812183373428446D+00
-    7  143         3.3917000530787601D+02
-   10  143        -2.7953401201907471D-04
-  121  143         4.7683063679934106D-05
-  122  143         9.1089228110883186D-02
-  132  143         1.0516440801432840D-01
-  134  143         8.6534786197505377D+02
-  135  143         4.0979005590216238D+00
-  142  143         2.0422125286146167D+00
-  143  143        -2.9355773934834760D+03
-  144  143         8.6613547550844064D-02
-  149  143         1.4132602807371288D+02
-  150  143         2.1295949234055104D+02
-  152  143         5.4584426288858869D-04
-  164  143         3.7221792708812636D-04
-  165  143         1.1766127385860188D-04
-    3  144         1.1454112633699258D+13
-    6  144         7.1920587553320445D+01
-    7  144        -8.6474691724318075D+02
-   10  144         4.3055210327229227D+00
-  122  144         6.2995857730606354D-04
-  123  144         4.7643659814142715D-03
-  133  144         1.2444759881696357D-01
-  135  144         8.2995653121951420D+02
-  136  144         4.4745177197332595D+02
-  143  144         3.3614143388624527D+00
-  144  144        -1.0934333494931491D+03
-  145  144         4.1403653377209940D+02
-  150  144         2.5009034469945433D+02
-  151  144         1.4473820610922926D+01
-  153  144         9.6380650284100290D-03
-  165  144         1.7442867689639419D-01
-  166  144         1.5824425692672174D-03
-    3  145        -2.4641507631953991D+10
-    6  145         2.0193007746825992D+02
-    7  145        -1.9971499064108929D+02
-   10  145         6.9483955522474480D-02
-  123  145         8.7333152309968022D-06
-  124  145         4.0300115599849699D-03
-  134  145         4.0220305898881044D-02
-  136  145         3.0958751311176247D+01
-  137  145         4.4930223952572694D+00
-  144  145         2.3364616441419899D+00
-  145  145        -5.5334932489005314D+03
-  146  145         4.2199164073407669D+00
-  151  145         6.5132104200614327D-01
-  152  145         1.3465209419621691D+00
-  154  145         3.7931440708819424D-02
-  166  145         4.9705680334858216D-04
-  167  145         3.6705735512145075D-04
-    3  146        -6.2387030897029411D+10
-    6  146         1.2383782879476389D+02
-    7  146        -1.2852350802001698D+02
-   10  146         2.3893089931550776D-01
-  124  146         6.9032052476338459D-05
-  125  146         1.4271140081076025D-06
-  135  146         1.5041029966961729D-02
-  137  146         4.7784018837417497D+00
-  138  146         7.1653294657807892D-05
-  145  146         1.0103481683113273D+01
-  146  146        -7.1026445699457809D+03
-  147  146         1.2390754557798285D+00
-  152  146         1.1432550250102667D+01
-  153  146         4.1376656140372925D-01
-  155  146         8.4209202631688584D-03
-  167  146         5.0908209051718466D-02
-  168  146         9.9059617957711712D-04
-    3  147        -4.8146348994980508D+12
-    6  147         1.0198539567098177D+03
-    7  147        -1.3883489342041096D+02
-   10  147         4.6898724896804767D-01
-  125  147         2.4686251185877013D-05
-  126  147         6.5044111259536934D-06
-  136  147         6.2733315381374917D+00
-  138  147         2.0353273588517048D-03
-  139  147         1.3402369948113172D-04
-  146  147         4.8471365073375237D+04
-  147  147        -5.7128484700136018D+04
-  153  147         1.1264716671497926D+01
-  154  147         9.1925352697647682D+00
-  156  147         9.9377902108007841D-04
-  168  147         6.4904036871659632D-02
-  169  147         9.7145228697843289D-05
-    3  148         6.2931839220028336D+10
-    6  148        -8.9185003165826124D+00
-    7  148         8.8270721613144172D+00
-   10  148         3.6454188911831376D-01
-  130  148         3.8232957233682984D-07
-  131  148         4.3745050353548214D+00
-  142  148         4.6196480024209855D+01
-  148  148        -4.5586474864961406D+02
-  149  148         4.0987799440616989D-03
-  177  148         3.1583741978851367D-06
-    3  149         1.1339605366417398D+09
-    6  149        -1.0280853105777917D+01
-    7  149         1.4490283685780867D+01
-   10  149        -7.4865062594685295D-04
-  131  149         1.6958234307961093D-06
-  132  149         1.7185725515667313D-02
-  142  149         2.2931072299424702D+01
-  143  149         5.6637065178209809D+01
-  148  149         5.8664735403088196D-09
-  149  149        -2.0638608912779247D+02
-  150  149         4.4990312180754322D-01
-  164  149         3.0544599556248781D-04
-  177  149         2.1189477087512390D-06
-  178  149         1.7287120969158978D-07
-    3  150        -1.3462245669267218D+11
-    6  150        -9.6961812816222448D+01
-    7  150         1.7757568654970109D+02
-   10  150         5.6524224258353739D-01
-  132  150         4.3348135876359960D-04
-  133  150         1.4134646632550220D-02
-  143  150         4.5632212824253031D+02
-  144  150         1.3808173329229744D+01
-  149  150         2.4055639291552535D+00
-  150  150        -4.6704991512067591D+02
-  151  150         2.9908626065835867D-03
-  165  150         1.1240445624347015D-02
-  178  150         6.6661831298282879D-04
-  179  150         3.7873829082433974D-05
-    3  151         1.8511692171755578D+14
-    6  151        -7.1124735263480545D+02
-    7  151        -4.7501726829403167D+04
-   10  151        -1.6324908866839596D+01
-  133  151         1.6158252565395849D-03
-  134  151         7.4294343415320763D-02
-  142  151         5.3639548395558595D-02
-  144  151         5.9310992214098269D+02
-  145  151         4.7296666347107803D+03
-  150  151         2.2197808815504101D+00
-  151  151        -1.9962131771863869D+02
-  152  151         4.8791651837779149D+01
-  164  151         1.7599362864181185D+04
-  166  151         1.1561049370669492D+00
-  179  151         1.4875060055930376D+00
-  180  151         3.1261274812777060D-02
-    3  152         1.4511267996855199D+13
-    6  152         9.1977615659636433D+02
-    7  152        -4.6228227355314020D+03
-   10  152         6.5150358386667440D-01
-  134  152         7.5599777180698129D-04
-  135  152         7.8679864108574971D-02
-  143  152         4.4788609663972204D-02
-  145  152         3.6940745203143229D+02
-  146  152         1.3100004838360680D+03
-  151  152         1.8433443140948196D+00
-  152  152        -4.8811196799278707D+02
-  153  152         2.8044929709806818D+00
-  164  152         1.5363769498812545D+02
-  165  152         6.5545240421741628D+03
-  167  152         1.8041349638113162D+00
-  180  152         9.1123729907439978D-03
-  181  152         2.0565322631725325D-02
-    3  153         2.8617148545734762D+13
-    6  153         1.0492129584276886D+02
-    7  153        -6.1219983278875370D+03
-   10  153        -5.3213650578891311D-02
-  135  153         3.2248845827005505D-03
-  136  153         8.2897021326686221D-03
-  144  153         2.2969220446860131D-02
-  146  153         5.3440985825530284D+01
-  147  153         3.7213226270783738D-02
-  152  153         3.1611788385457533D+00
-  153  153        -5.0250258214556311D+02
-  154  153         5.7901103408472682D+02
-  165  153         1.2584376381595574D+02
-  166  153         2.3167275516026443D+03
-  168  153         6.9275516616440680D-01
-  181  153         5.0269656369450721D-01
-  182  153         1.1865625493911072D-01
-    3  154        -3.7280717705745404D+11
-    6  154         1.3097018852057218D+02
-    7  154        -8.8013862423845950D+01
-   10  154         1.5786860127153982D-02
-  136  154         3.9851327672804168D-05
-  137  154         4.6108376164408915D-04
-  145  154         1.1152201082580761D-01
-  147  154         2.1129675950554142D-04
-  153  154         4.0309881050508301D+00
-  154  154        -7.8455485199091381D+03
-  155  154         1.6488403046519156D+00
-  166  154         3.1218336142333065D+01
-  167  154         3.8234775744100631D+02
-  169  154         2.1427942490814564D-04
-  182  154         1.3105219379851046D-03
-  183  154         1.8870270054468472D-04
-    3  155         4.0249441148058342D+10
-    6  155         3.0783334405152562D+01
-    7  155        -5.0397455165558036D+01
-   10  155         6.2306593475818656D-02
-  137  155         8.0294847596431966D-05
-  138  155         1.7336752896329537D-07
-  146  155         8.8409462892818302D-01
-  154  155         1.4096898501248663D+02
-  155  155        -3.0682894778495120D+03
-  156  155         7.7909474661461575D-01
-  167  155         1.6427287983032058D+03
-  168  155         1.3014497722204469D+03
-  170  155         1.9118191070376432D-05
-  183  155         2.9829030508824642D-02
-  184  155         6.1848784390635075D-04
-    3  156        -1.2887865803147477D+13
-    6  156         2.5842138049444343D+03
-    7  156        -1.2781208633090596D+02
-   10  156         3.1238732594523502D-02
-  138  156         1.6621677343085441D-05
-  139  156         7.5517136308428589D-07
-  147  156         4.8777217680254858D-01
-  155  156         1.4248389932980627D+05
-  156  156        -1.5248300515773948D+05
-  157  156         5.2942398568543758D-01
-  168  156         7.5285637315237063D+03
-  169  156         1.2036071786401088D+01
-  171  156         1.1790115167993962D-05
-  184  156         5.5776542367837904D-02
-  185  156         6.5405185523376258D-05
-    3  157        -2.8224399196381500D+11
-    6  157         1.8804810874775421D+02
-    7  157        -1.5790514722594241D+02
-   10  157        -1.9024383631728867D-03
-  139  157         1.2915941424763861D-06
-  140  157         3.8112428145112632D-10
-  156  157         1.7935626838086396D+03
-  157  157        -1.1299555584506918D+04
-  158  157         2.6042827147334502D-01
-  169  157         9.4591521370473147D+03
-  170  157         1.5409309459771771D+01
-  172  157         1.3628997480658812D-06
-  185  157         2.9920238374226003D-02
-  186  157         4.3943020344703423D-05
-    3  158        -1.2371055649672003D+14
-    6  158         2.7854782730954954D+04
-    7  158        -1.4157905498705071D+02
-   10  158        -3.7643602528059047D-03
-  140  158         5.3859734026097424D-07
-  141  158         6.6396123420943320D-09
-  157  158         1.6627973345191905D+06
-  158  158        -1.6991483595683624D+06
-  159  158         3.6217847682207316D-01
-  170  158         8.6314221664423130D+03
-  171  158         4.9805611592243153D+00
-  173  158         1.0099416508546395D-06
-  186  158         6.0193216423673028D-02
-  187  158         3.6714586708170736D-05
-    3  159        -1.1347760705550813D+12
-    6  159         3.6080959055806528D+02
-    7  159        -1.5207190422033312D+02
-   10  159        -4.0051584787463351D-03
-  141  159         3.0338319056351609D-08
-  158  159         1.2738691073031110D+04
-  159  159        -2.2377194418692972D+04
-  160  159         1.5463142842124650D-01
-  171  159         9.4227626816132797D+03
-  172  159         5.7872672537452798D+00
-  174  159         1.8022732446068759D-07
-  187  159         6.5064338689230075D-02
-  188  159         1.9637906958568491D-05
-    3  160        -6.0819980688230588D+14
-    6  160         1.6106979158150879D+05
-    7  160        -1.4836334717299201D+02
-   10  160        -3.9469637031435550D-03
-  159  160         9.9771310527049024D+06
-  160  160        -1.0147400665499229D+07
-  161  160         1.9292869354077224D-01
-  172  160         9.3444773535776276D+03
-  173  160         2.4530995512401734D+00
-  175  160         1.6729171238147741D-07
-  188  160         6.5109664162066969D-02
-  189  160         1.5297976090657631D-05
-    3  161        -1.5868386024263021D+13
-    6  161         2.9304922173995096D+03
-    7  161        -1.3874545005462915D+02
-   10  161        -3.5402115933167457D-03
-  160  161         1.7588247329842829D+05
-  161  161        -1.8755513896222069D+05
-  162  161         1.1426799760368923D-01
-  173  161         8.8773016186523837D+03
-  174  161         2.4472512948813239D+00
-  176  161         2.3762583054817026D-08
-  189  161         5.9287120714345262D-02
-  190  161         1.1569856069365497D-05
-    3  162        -4.3122871007950335D+15
-    6  162         1.2867867604757824D+06
-    7  162        -1.2650464499969938D+02
-   10  162        -3.0853795536589959D-03
-  161  162         8.2346257966199398D+07
-  162  162        -8.3641142350296825D+07
-  163  162         2.4706281967379573D-01
-  174  162         8.2213851803046855D+03
-  175  162         1.4466574195406467D+00
-  190  162         5.2451452412202920D-02
-    3  163        -4.5923446858323312D+13
-    6  163         8.7005158789459056D+03
-    7  163        -1.3012235871779387D+02
-  162  163         5.5707693520438205D+05
-  163  163        -5.7423643998318340D+05
-  175  163         8.5867131339551688D+03
-  176  163         1.3981246180843034D+00
-    3  164        -2.0878007918812259D+14
-    6  164        -4.6031869458351292D+02
-    7  164         5.2248621000776213D+04
-   10  164        -8.1552769203237008D-02
-  142  164         9.6530241423524739D-05
-  143  164         8.3430370941941275D-03
-  149  164         1.8006119881072369D-02
-  151  164         1.8162900086669339D+02
-  152  164         4.1968747198230595D+01
-  164  164        -1.7764395302944402D+04
-  165  164         1.1041649273624230D+01
-  177  164         3.3792650894629695D-04
-  178  164         4.2613970510912942D+01
-  180  164         1.6509272451343119D-03
-  191  164         1.2870995322736360D-02
-    3  165        -1.8627355478543711D+13
-    6  165        -4.7574296887442209D+01
-    7  165         4.1118394785609407D+03
-   10  165         6.2301309133421590D-01
-  143  165         5.7385814008346274D-04
-  144  165         2.1920558837602803D-02
-  150  165         2.6965886912401343D-02
-  152  165         3.8959459504467009D+02
-  153  165         6.6360449092431777D+00
-  164  165         2.4025810286572851D+00
-  165  165        -6.9704125028612980D+03
-  166  165         7.5562063494609244D-01
-  178  165         5.2701949397017074D+01
-  179  165         3.1711601361120768D+02
-  181  165         2.6210983481130642D-02
-  191  165         1.0373772454979141D-02
-  192  165         5.2483735920893400D-03
-    3  166        -2.2212997132327555D+13
-    6  166         4.2124126107384228D+01
-    7  166         4.8982177199680718D+03
-   10  166         1.7066384219974307D+01
-  144  166         7.9946653414885067D-04
-  145  166         4.4499941468540645D-02
-  151  166         1.5022880810036176D-02
-  153  166         4.9112432479824014D+02
-  154  166         9.5061065679010062D+02
-  165  166         3.0376831181038333D+00
-  166  166        -2.7724812142269311D+03
-  167  166         5.3756208233258315D+02
-  179  166         1.4169244883833022D+02
-  180  166         7.8284945111851783D+01
-  182  166         7.1300562690714997D-02
-  192  166         3.2584755630273354D-02
-  193  166         1.4520750475947677D-01
-    3  167        -1.2216333178400087D+11
-    6  167         5.5863537058833430D+01
-    7  167        -3.9200470281826128D+01
-   10  167         3.8880383045655154D-01
-  145  167         4.7574444592990108D-04
-  146  167         2.7558766601774483D-02
-  152  167         8.9836137729443731D-03
-  154  167         1.6855330167627642D+02
-  155  167         8.4703025548777990D+00
-  166  167         7.7824258512395996D+00
-  167  167        -3.8142133019666990D+03
-  168  167         2.4032515672281454D+00
-  180  167         2.5705552964219454D+00
-  181  167         2.4028595709253072D+01
-  183  167         1.4423019020030837D-02
-  193  167         5.3176280314647800D-03
-  194  167         6.6789550435637454D-04
-    3  168         2.7537233984147034D+09
-    6  168         5.0080603481697096D+01
-    7  168        -6.0133576164074668D+01
-   10  168         1.6066257908632431D+00
-  146  168         5.7245690943822126D-03
-  147  168         9.5880772297038133D-06
-  153  168         3.2669482591732087D-02
-  155  168         7.1636574146603010D+01
-  156  168         2.2660974886802507D-03
-  167  168         2.5655076673014765D+01
-  168  168        -3.7216355024968002D+03
-  169  168         8.9279923288192564D-01
-  181  168         1.8490086899314338D+02
-  182  168         3.3845012199725488D+01
-  184  168         9.0184228700890649D-03
-  194  168         5.9823576708120376D-03
-  195  168         2.4228265930117988D-03
-    3  169        -1.1584832604944221D+12
-    6  169         2.9402570191457937D+02
-    7  169        -7.9802714353095965D+01
-   10  169         1.4467120334733878D+00
-  147  169         2.0393850306830354D-04
-  154  169         2.0627081261708696D+01
-  156  169         5.1479807618096833D-02
-  157  169         1.1942823851101047D-02
-  168  169         1.2687420301584032D+04
-  169  169        -1.7693543306573476D+04
-  170  169         1.8071642483684633D+00
-  182  169         2.3636677157667918D+02
-  183  169         2.6083673230253790D+01
-  185  169         5.4196844147591961D-04
-  195  169         1.1958753839843659D-02
-  196  169         3.7298265018582716D-04
-    3  170        -4.6557478715552414D+10
-    6  170         1.0392427406047044D+02
-    7  170        -9.2414663339982809D+01
-   10  170         5.8256935967822332D-01
-  155  170         8.4605131387957027D+00
-  157  170         7.6464465258712158D-03
-  158  170         6.7238120548191232D-07
-  169  170         7.1028984187414721D+02
-  170  170        -6.3615258686072675D+03
-  171  170         1.0912892862291899D+00
-  183  170         5.6183132919534064D+03
-  184  170         1.0256466176872399D+01
-  186  170         2.2925084247464386D-04
-  196  170         1.3753378504342433D-02
-  197  170         6.5634939714171998D-04
-    3  171        -3.5403241085172266D+13
-    6  171         6.8495909541812571D+03
-    7  171        -9.9369642605073821D+01
-   10  171         7.2817574480727920D-01
-  156  171         1.0765321064490848D+01
-  158  171         1.4606242100179728D-04
-  159  171         7.8914725961750096D-06
-  170  171         4.1178813862283761D+05
-  171  171        -4.2470239829668618D+05
-  172  171         1.7172674030451955D+00
-  184  171         6.1375396673032756D+03
-  185  171         1.2260532815678708D+01
-  187  171         6.3654806234991336D-05
-  197  171         2.7156404500331171D-02
-  198  171         2.3927948729582671D-05
-    3  172        -6.0813060995786536D+11
-    6  172         2.2415416658569333D+02
-    7  172        -1.0052070324783108D+02
-   10  172         1.0839521796355567D-01
-  157  172         1.6411678011714683D+00
-  159  172         2.1558779848741806D-05
-  160  172         5.4139328264686821D-10
-  171  172         7.6724018587380042D+03
-  172  172        -1.4130518571754566D+04
-  173  172         5.5648243310504020D-01
-  185  172         6.3260941635808822D+03
-  186  172         5.0662556013631894D+00
-  188  172         1.5063709579773255D-05
-  198  172         1.6748421180366738D-02
-    3  173        -1.9709394084751012D+14
-    6  173         4.1009022318096919D+04
-    7  173        -1.0639524447883005D+02
-   10  173         5.7836448475103233D-02
-  158  173         8.8201542271077815D-01
-  160  173         6.5584410672665998D-07
-  161  173         2.8292334104455768D-09
-  172  173         2.5768720813948843D+06
-  173  173        -2.6245862463923413D+06
-  174  173         1.1495541955573791D+00
-  186  173         6.8037533912600747D+03
-  187  173         4.6951153267273158D+00
-  189  173         1.0526101400343199D-05
-    3  174        -5.6693220379208643D+12
-    6  174         1.1220032559214026D+03
-    7  174        -1.0221597862591287D+02
-   10  174         1.6392415468909734D-02
-  159  174         2.5408352126321260D-01
-  161  174         4.0748968818556698D-08
-  162  174         1.8996016944828082D-13
-  173  174         6.5269101720946805D+04
-  174  174        -7.2934273035836988D+04
-  175  174         3.0324300488349559D-01
-  187  174         6.6415831870202237D+03
-  188  174         2.2271304059717996D+00
-  190  174         1.1861559289669711D-06
-    3  175        -1.2573625296793610D+15
-    6  175         3.1298261349448009D+05
-    7  175        -1.0803292148221198D+02
-   10  175         1.5564492246283656D-02
-  160  175         2.4514075287896761D-01
-  162  175         2.2416995537859698D-09
-  163  175         5.9010533898298864D-12
-  174  175         2.0336850406967435D+07
-  175  175        -2.0656856764707863D+07
-  176  175         5.3894630843473346D-01
-  188  175         7.1280252995515020D+03
-  189  175         1.9522163300139510D+00
-    3  176        -2.8321672378081266D+13
-    6  176         5.2512264834095067D+03
-    7  176        -1.0486270894475422D+02
-   10  176         1.5044919107234729D-03
-  161  176         2.4071870571575567D-02
-  163  176         6.0555114190020029D-10
-  175  176         3.3966154522621422D+05
-  176  176        -3.5183474900943128D+05
-  189  176         7.0242573483759243D+03
-  190  176         1.5570840132656434D+00
-    3  177         6.0276236273227943D+10
-    6  177        -7.9362290757054517D+00
-    7  177         7.8655054161686966D+00
-   10  177         2.8199481490070682D-01
-  148  177         2.1065798451765466D-06
-  149  177         9.8744114412093920D-01
-  164  177         2.6718163323679365D+00
-  177  177        -4.3757099064900490D+02
-  178  177         4.0749703038376613D-04
-  199  177         7.2333710710477909D-07
-    3  178        -5.8651653363167099D+10
-    6  178        -3.0125539025401476D+01
-    7  178         5.2622760371677792D+01
-   10  178        -7.3334437688430615D-03
-  149  178         1.4527573077173049D-06
-  150  178         1.3763065350900037D-03
-  164  178         7.9799990197760939D+00
-  165  178         4.5356433008813433D+01
-  177  178         9.6531557379654151D-09
-  178  178        -9.8126081155847345D+01
-  179  178         2.1450787427681650D+00
-  191  178         1.3761064124061118D-01
-  199  178         1.3222850998931427D-10
-  200  178         1.7372507470635862D-03
-    3  179        -6.4485696698926831D+11
-    6  179        -6.7445535239436254D+01
-    7  179         2.1380554170806815D+02
-   10  179         3.9629820991247420D+00
-  150  179         6.5729261653864164D-05
-  151  179         3.4782705389901328D-03
-  165  179         2.2940650132012877D+02
-  166  179         2.5497420358697809D+01
-  178  179         1.8031208307822908D+00
-  179  179        -4.6547356638056527D+02
-  180  179         6.8423148387830188D-02
-  192  179         8.9060844514666879D-02
-  200  179         9.1397075303461972D-05
-  201  179         8.9789529382725223D-03
-    3  180        -3.5037105927875547D+12
-    6  180        -5.1720176587145573D+01
-    7  180        -1.2712961710790411D+02
-   10  180         3.1513151947486544D+00
-  151  180         2.1657960906946543D-03
-  152  180         1.6710226247276097D-02
-  164  180         1.1675191139603542D-02
-  166  180         4.1738233649363156D+02
-  167  180         9.4667089724367031D+02
-  179  180         2.0272590025193566D+00
-  180  180        -1.7173843366691654D+02
-  181  180         1.3466917138886129D+02
-  191  180         7.2686964885139139D+04
-  193  180         2.0790841067100416D+00
-  201  180         2.6768375442562809D-04
-  202  180         6.7084089036445849D-01
-    3  181        -5.6864785031566269D+10
-    6  181         3.2968337114193645D+01
-    7  181        -5.4100328445968344D+01
-   10  181         8.4388278414040185D-01
-  152  181         7.2583150169009780D-04
-  153  181         1.5740255085161910D-02
-  165  181         1.6395493525338374D-02
-  167  181         1.7031223103626220D+02
-  168  181         1.2276765258012615D+02
-  180  181         2.5918963127328056D+00
-  181  181        -3.7825706597350683D+02
-  182  181         2.7503801433647781D+00
-  191  181         6.5477923281967163D+00
-  192  181         3.5397973592911417D+03
-  194  181         3.6269571118214820D-02
-  202  181         9.3522176550683463D-03
-  203  181         1.6626784789678040D-02
-    3  182         3.8447633778328772D+11
-    6  182         2.1866859022649168D-01
-    7  182        -1.0142829660083621D+02
-   10  182         3.5391259535754377D-01
-  153  182         4.4454442229492604D-03
-  154  182         7.0525330856842511D-03
-  166  182         1.3274382904404951D-02
-  168  182         2.6887951625698747D+01
-  169  182         1.3216633560299449D-02
-  181  182         3.2908753132674802D+00
-  182  182        -3.1202261129562186D+02
-  183  182         4.2137630803031996D+01
-  192  182         1.5628488806681067D+00
-  193  182         6.2112586981829882D+03
-  195  182         2.1122244010848269D-02
-  203  182         1.1022882036332139D-03
-  204  182         3.7825863823535373D-02
-    3  183        -3.3078608408156720D+11
-    6  183         6.5859559247603315D+01
-    7  183        -1.9019302252878607D+01
-   10  183         5.2658143332827784D-02
-  154  183         4.1468261299289931D-03
-  155  183         7.6671159309610326D-03
-  167  183         7.5740699555293356D-01
-  169  183         5.9545704708326135D-03
-  170  183         3.2664044120388732D-03
-  182  183         1.7207122570015218D+02
-  183  183        -4.6727760440052161D+03
-  184  183         2.8161447306996266D+00
-  193  183         5.1141978974071446D+02
-  194  183         6.5859301738624890D+02
-  196  183         1.7610296419271507D-04
-  204  183         5.0837916640888870D-03
-  205  183         1.1025693547577762D-03
-    3  184         5.9199054751644714D+10
-    6  184         1.3647909131008558D+00
-    7  184        -1.4461586610390780D+01
-   10  184         4.7312060535757101D-02
-  155  184         2.5055200593512420D-03
-  156  184         1.2355017404065130D-06
-  168  184         6.9920285048220387D-01
-  170  184         9.3889194808476921D-05
-  171  184         1.4930115015588798D-07
-  183  184         4.4384247300932003D+01
-  184  184        -9.4352456952784394D+02
-  185  184         7.9997081294968297D-01
-  194  184         4.0290983665441949D+01
-  195  184         8.6939271043842632D+02
-  197  184         1.0476270687973913D-04
-  205  184         1.5404424900386066D-03
-  206  184         2.6920971120510738D-03
-    3  185        -3.4482760425721323D+12
-    6  185         6.9558971621988019D+02
-    7  185        -7.4602816886242124D+01
-   10  185         9.1129688675050582D-03
-  156  185         6.9839164956124057D-05
-  157  185         9.4305856157966878D-06
-  169  185         1.4253512539939506D-01
-  171  185         1.4337977515090233D-05
-  172  185         1.6640772284633608D-06
-  184  185         3.8562818685314058D+04
-  185  185        -4.3886686773012545D+04
-  186  185         9.1767241660409116D-01
-  195  185         4.6382496277561140D+03
-  196  185         6.2555631675618905D+01
-  198  185         9.9615728555038355D-06
-  206  185         6.5031888644010378D-03
-    3  186        -1.7075300289486977D+10
-    6  186         4.3492890224390223D+01
-    7  186        -5.4810958342370398D+01
-   10  186         3.4827554404291668D-03
-  157  186         4.7950676182812566D-06
-  158  186         1.0287321070078895D-09
-  170  186         5.3107144452400765D-02
-  172  186         4.5909530630924982D-07
-  173  186         1.3444769113938973D-10
-  185  186         3.1770184168838574D+02
-  186  186        -3.8321884355653460D+03
-  187  186         5.5084203307416679D-01
-  196  186         2.4613426138381928D+03
-  197  186         1.0628546109684553D+03
-    3  187        -2.2657289979900562D+13
-    6  187         4.7199037168187906D+03
-    7  187        -7.2283433177911746D+01
-   10  187         1.3614839781238793D-03
-  158  187         3.3883762152486162D-07
-  159  187         1.7072346068402407D-08
-  171  187         2.1102640196237428D-02
-  173  187         4.9615530528403407D-08
-  174  187         1.2512959341003445D-09
-  186  187         2.9745728821883915D+05
-  187  187        -3.0680502452238963D+05
-  188  187         5.5137095410894144D-01
-  197  187         4.6892262640666268D+03
-  198  187         9.3159203579627974D+00
-    3  188        -2.5946903285000854D+11
-    6  188         1.1733254157126481D+02
-    7  188        -8.6315397524907254D+01
-   10  188         2.5952973656270876D-04
-  159  188         1.8843688801114176D-08
-  160  188         9.6829846620256356D-13
-  172  188         4.0875742022750986D-03
-  174  188         1.5158653100710542D-09
-  175  188         7.2341927799881732D-14
-  187  188         2.0163488571350379D+03
-  188  188        -7.7454196649877649D+03
-  189  188         2.3736222437991014D-01
-  198  188         5.6968119544576903D+03
-    3  189        -8.4096087163363484D+13
-    6  189         1.8050150651495966D+04
-    7  189        -4.8371898929114165D-05
-   10  189         1.9348767457894452D-04
-  160  189         1.1418517745602167D-09
-  161  189         4.8541387564785959D-12
-  173  189         3.0958016284325673D-03
-  175  189         9.9440302199371312D-11
-  176  189         5.6772084503560014D-13
-  188  189         1.1913102467257027D+06
-  189  189        -1.2093617135489341D+06
-  190  189         3.1293081664719768D-01
-    3  190        -1.4662062920837800D+12
-    6  190         2.3454777251916741D+02
-    7  190        -4.7469369109633480D-06
-   10  190         1.8987750994319313D-05
-  161  190         4.7570331561473476D-11
-  162  190         2.9925869816326118D-16
-  174  190         3.0855090534377157D-04
-  176  190         6.3198047669477289D-12
-  189  190         1.5714700758784220D+04
-  190  190        -1.5950248854095158D+04
-    3  191        -1.4784934541971831D+14
-    6  191        -4.8963012529582928D+00
-    7  191         5.3925981184583834D+04
-   10  191         7.4852165135442317D-01
-  164  191         4.8545920183215669D-03
-  165  191         1.7981801786614487D-02
-  178  191         2.9237103461740743D-01
-  180  191         3.8766899519867502D+03
-  181  191         1.8144814539697641D+01
-  191  191        -3.1816692472247565D+06
-  192  191         7.3155558954545652D-01
-  199  191         4.5759101660639638D-07
-  200  191         7.1511313050050465D+00
-  202  191         8.1963881005022304D-03
-    3  192        -2.7301903655985148D+13
-    6  192        -3.5830855567002167D+00
-    7  192         7.6103759624116237D+03
-   10  192         1.7043321840780412D+00
-  165  192         2.6280588536306937D-02
-  166  192         4.0586865992173288D-02
-  179  192         6.5028182968769832D-01
-  181  192         2.8336574782575262D+04
-  182  192         1.0456074859030231D+01
-  191  192         2.1133001674298617D+00
-  192  192        -4.5694591726511135D+05
-  193  192         1.4411662438286834D+00
-  200  192         3.5304937921025070D-01
-  201  192         1.3943986744668794D+02
-  203  192         5.9921008317389470D-03
-    3  193        -6.9959217003812041D+12
-    6  193        -1.8560627555428184D+00
-    7  193         1.8207082334946879D+03
-   10  193         3.9944902341365829D+00
-  166  193         2.3748102565604504D-02
-  167  193         6.0071906127269793D-02
-  180  193         6.7274227270746251D-02
-  182  193         5.4562979725202504D+03
-  183  193         1.1001695131243120D+02
-  192  193         1.8922650024368418D-01
-  193  193        -1.1168949012383012D+05
-  194  193         3.4636790439610374D+00
-  201  193         7.5290708561752975D-02
-  202  193         2.5589578732961007D+02
-  204  193         4.7465296612451725D-03
-    3  194        -1.2682822419476973D+12
-    6  194         1.1665573874657328D+01
-    7  194         2.5291405421215276D+02
-   10  194         7.6320148509969661D+00
-  167  194         8.6660994087065946D-01
-  168  194         7.2713191250318709D-01
-  181  194         7.0037790003704119D+00
-  183  194         1.6272711317224099D+04
-  184  194         6.3165234828259365D+01
-  193  194         3.9783237046975330D+02
-  194  194        -1.7935896626384983D+04
-  195  194         4.3010392527264747D+00
-  202  194         3.8707317858643199D+02
-  203  194         4.2503836563848932D+02
-  205  194         3.2499716496881682D-03
-    3  195        -2.5507135652716669D+11
-    6  195         1.1548855045218507D+00
-    7  195         5.1323294844180339D+01
-   10  195         1.3805140518968775D+01
-  168  195         8.8801460083216999D-01
-  169  195         3.0843535110555280D-04
-  182  195         1.0279392392653522D+01
-  184  195         4.1099948947742459D+03
-  185  195         4.5488357922279832D-01
-  194  195         1.2969680557025404D+01
-  195  195        -5.1408298984048333D+03
-  196  195         5.6739974760772878D+00
-  203  195         6.5619450305118434D+01
-  204  195         6.7176691457898460D+02
-  206  195         2.4616831303711090D-03
-    3  196        -2.0994711459094485D+12
-    6  196         3.8841325049038534D+02
-    7  196        -5.9926194449773071D+01
-   10  196         5.0613599612481837D+00
-  169  196         3.5361188744737294D-02
-  170  196         3.3174860708963688D-03
-  183  196         7.7146471381073425D+01
-  185  196         2.2550546060306537D+01
-  186  196         2.5629689832787270D+00
-  195  196         2.0856869543030691D+04
-  196  196        -2.5079433271371629D+04
-  197  196         4.3081027571535202D+00
-  204  196         3.6773252592172007D+03
-  205  196         1.0408328526525409D+02
-    3  197        -3.7787761849768745D+10
-    6  197         4.9801641615629720D+01
-    7  197        -5.7148929250357966D+01
-   10  197         1.0403759587194719D+01
-  170  197         8.7670172747116495D-03
-  171  197         9.6128994933686572D-07
-  184  197         1.6124936190135881D+02
-  186  197         6.1284211749133966D+01
-  187  197         5.0161074655059748D-04
-  196  197         2.3856250733241453D+02
-  197  197        -4.0850912328279715D+03
-  198  197         2.6672983175409390D+00
-  205  197         2.9974440449218405D+03
-  206  197         6.1981806706390500D+02
-    3  198        -1.6325785314109982D+13
-    6  198         2.9571431562802832D+03
-    7  198        -6.1149784135686005D+01
-   10  198         1.4254039763716801D+00
-  171  198         5.9783439610014366D-05
-  172  198         9.3660241326170843D-06
-  185  198         2.2450042514141188D+01
-  187  198         7.0209450007176266D-02
-  188  198         1.1740301845867766D-02
-  197  198         1.8826266173188869D+05
-  198  198        -1.9519606228121079D+05
-  206  198         4.0124497117857072D+03
-    3  199         4.4483192671296776D+10
-    6  199        -5.5860602779490947D+00
-    7  199         5.4764448821322915D+00
-   10  199         4.3996609438836115D-01
-  177  199         2.5706399524464421D-02
-  178  199         1.9837228221748721D-01
-  191  199         3.2314578896638955D+02
-  199  199        -3.3064067327543449D+02
-  200  199         5.4756781185994943D-03
-    3  200        -1.0850343567007396D+12
-    6  200        -4.7231382702337683D+00
-    7  200         2.7098764035517070D+02
-   10  200         1.8871632960533649D+01
-  178  200         8.1158473344220159D+00
-  179  200         5.0795180578865884D-01
-  191  200         1.5724022852627606D+04
-  192  200         2.6872882604288532D+02
-  199  200         1.7051113311671230D-08
-  200  200        -1.6543774555974265D+04
-  201  200         4.4684631897759097D-01
-    3  201        -4.2657219579937710D+12
-    6  201        -4.4635513292224660D+00
-    7  201         1.0081257199530354D+03
-   10  201         5.4456416327292075D+01
-  179  201         2.8324766557089610D+01
-  180  201         2.8500748911847520D-02
-  192  201         6.0243863070613115D+04
-  193  201         2.4774351380384380D+02
-  200  201         2.5363493484004807D-01
-  201  201        -6.2328000551375510D+04
-  202  201         6.2139375326727153D-01
-    3  202        -5.3535854369142181D+11
-    6  202        -1.4625319298109425D+00
-    7  202         1.0125232127669462D+02
-   10  202         2.9187933467781534D+01
-  180  202         5.1723235252820721D-01
-  181  202         3.7465480370003695D-01
-  191  202         1.2515627408202479D-01
-  193  202         6.0975152843555588D+03
-  194  202         8.0301523790866312D+01
-  201  202         4.4998499547843863D-03
-  202  202        -6.7353364980351207D+03
-  203  202         4.2097012176948851D+00
-    3  203        -2.2340434930225781D+11
-    6  203        -4.8111295700699125D-01
-    7  203         4.0143649547176324D+01
-   10  203         2.0616532499764187D+01
-  181  203         1.7905403064851892D+01
-  182  203         9.9209153995612165D-01
-  192  203         8.5144057520184202D-01
-  194  203         2.3703562835777921D+03
-  195  203         1.2135645550163257D+02
-  202  203         1.1316454909333753D+02
-  203  203        -2.9736947433854712D+03
-  204  203         3.0986978719441884D+00
-    3  204        -3.2631791206049759D+10
-    6  204        -6.6087607308937674D-02
-    7  204         4.1016698603891903D+00
-   10  204         9.5806370318021372D+00
-  182  204         7.1009778224836344D+00
-  183  204         2.3371085327459071D-01
-  193  204         1.0714092506066797D+00
-  195  204         2.5913186877589129D+02
-  196  204         3.8593132565204707D-01
-  203  204         6.4632533223288158D-01
-  204  204        -4.2283286831218334D+02
-  205  204         4.3215727049536081D+00
-    3  205        -3.5031987188158002D+11
-    6  205         5.4237682406853096D+01
-    7  205         1.2502869296794406D-01
-   10  205         3.2464660630650761D+00
-  183  205         4.0875881426941355D+01
-  184  205         3.6235371118589481D+00
-  194  205         5.1507090218732801D+00
-  196  205         8.8083162350369708D+00
-  197  205         4.5808995146079070D+00
-  204  205         3.4850785349819807D+03
-  205  205        -3.6125186116550904D+03
-  206  205         5.7915561999040124D+00
-    3  206        -5.4149886405264769D+09
-    6  206         3.8766322337103271D-01
-    7  206        -2.5941760399862249D-02
-   10  206         2.1351820529715226D+00
-  184  206         2.7553857422469104D+01
-  185  206         1.3807765148677142D-03
-  195  206         5.6294620801163981D+00
-  197  206         4.1215884416880746D+00
-  198  206         3.7802195105328862D-04
-  205  206         2.5199906424152800D+01
-  206  206        -6.6003476682834986D+01
-    j               rhs(j)
-    1         3.8640182769230134D-07
-    2         2.0924989090333356D+03
-    3        -7.2395520292457521D+07
-    4         1.7763568349509375D-15
-    5        -7.6905060171377500D-06
-    6        -4.2349394567545245D-09
-    7        -1.8235175402377597D-06
-    8        -3.0995961788979745D-17
-    9        -1.4416838054704297D-16
-   10        -5.8614716338702133D-06
-   11        -2.9698161108779147D-20
-   12        -2.2525338280102334D-21
-   13        -8.9711316694911849D-21
-   14        -5.3554043940934340D-21
-   15        -7.8351685494273528D-25
-   16        -2.8952332766055975D-29
-   17        -4.4579574181539697D-18
-   18        -9.4386783885839075D-18
-   19        -3.0488820019937509D-05
-   20        -3.8205726888066732D-12
-   21        -9.1904190761768339D-12
-   22        -1.3110294649399076D-10
-   23        -2.2853676598100486D-11
-   24        -1.5549712260450583D-22
-   25        -5.9238520127493857D-11
-   26        -5.7826111013458326D-04
-   27        -1.5338846784469369D-11
-   28        -1.2524494007428840D-16
-   29        -7.4460511205440313D-25
-   30        -1.2567880359694059D-10
-   31        -3.6684647365710341D-14
-   32        -6.1539171700112577D-14
-   33        -7.0949058797935653D-20
-   34        -6.4369112403552733D-16
-   35        -8.1492167195619916D-07
-   36        -2.0013580030134011D-10
-   37        -8.3307575673584382D-12
-   38        -3.0122391824721362D-19
-   39        -1.2426374112230728D-12
-   40        -1.2571297058239356D-10
-   41        -1.6948016767540488D-09
-   42        -1.5405953609704585D-13
-   43        -2.8792038061432563D-09
-   44        -2.6494440092825607D-04
-   45        -5.7635130602547999D-07
-   46        -2.6377547383754691D-07
-   47        -7.5591021122704384D-13
-   48        -8.9887569166865049D-09
-   49        -9.7667114847829992D-08
-   50        -6.7060680322370377D-05
-   51        -1.0241059500515593D-08
-   52        -1.5574468697208598D-07
-   53         1.8169470596105302D-05
-   54        -9.2626638987313884D-05
-   55        -7.2388348804161592D-05
-   56        -4.5339789421082878D-08
-   57        -7.1975768994699104D-11
-   58        -6.6491336076692805D-19
-   59        -2.6653519427548376D-04
-   60        -1.5619819695961035D-04
-   61        -1.4502843360988163D-05
-   62        -2.6714260263595568D-07
-   63        -6.1231971323075863D-13
-   64        -8.2400066524132960D-06
-   65        -5.3246236617431349D-05
-   66        -1.6055640685994129D-04
-   67        -4.6584090726096903D-05
-   68        -6.1699658293617360D-07
-   69        -8.1282530120925299D-09
-   70        -1.1050160214223176D-16
-   71        -2.2503666951508394D-04
-   72        -1.4458669285188519D-05
-   73        -2.1928243190694108D-06
-   74        -2.0126265867852737D-12
-   75        -9.6188015014227766D-07
-   76        -1.6348297495169851D-04
-   77        -2.7704500898251733D-04
-   78        -9.3462693336771412D-05
-   79        -1.9622166192962081D-07
-   80        -1.4835683168879383D-09
-   81        -7.3150864642029816D-15
-   82        -2.6752960629300199D-04
-   83        -2.6436246447483668D-06
-   84        -6.5905529155723666D-08
-   85        -1.3575855860342841D-11
-   86        -7.7171024840811605D-14
-   87        -2.3188388064366979D-18
-   88        -8.5734355566148348D-08
-   89        -2.2679761403964475D-04
-   90        -2.9000525266234821D-04
-   91        -2.5071644479330939D-04
-   92        -5.0595444711769368D-07
-   93        -2.3118444138377422D-07
-   94        -5.2833857236708121D-11
-   95        -1.3638870268903131D-12
-   96        -1.2348999613672402D-16
-   97        -9.7590275985741804D-19
-   98        -4.7949609775900153D-26
-   99        -7.1898370961320178D-06
-  100        -5.5006107268075018D-07
-  101        -2.1584135830520300D-06
-  102        -9.5153342249382714D-09
-  103        -1.0333814536288753D-09
-  104        -9.5476543822492260D-13
-  105        -2.7501743445038374D-14
-  106        -1.4961590669285829D-20
-  107        -1.6660984740423242D-26
-  108        -1.5753472966717876D-11
-  109        -7.5663634566258898D-05
-  110        -4.2240450223250082D-05
-  111        -7.0945459109055767D-04
-  112        -1.2456510137091314D-04
-  113        -1.2878904534503733D-04
-  114        -1.9474269601362425D-07
-  115        -2.7428631071822837D-08
-  116        -1.1465498881614020D-13
-  117        -2.3966043520248071D-18
-  118        -3.1769028027911354D-25
-  119        -1.9551011013479610D-31
-  120        -2.4782290134116308D-04
-  121        -1.1779297165285216D-04
-  122        -6.6283977354346033D-04
-  123        -1.4822805908205318D-05
-  124        -7.7239200483556528D-06
-  125        -6.7865397518172440D-10
-  126        -1.3428603596290832D-13
-  127        -4.4579924966045463D-20
-  128        -4.5392464237493106D-25
-  129        -3.8577813667623951D-33
-  130        -3.9253597540410577D-11
-  131        -5.0999188554144215D-04
-  132        -8.3589705808401074D-04
-  133        -3.8598788294702172D-04
-  134        -3.0936065838082946D-04
-  135         5.0459269955465201D-05
-  136        -1.1721778669505314D-05
-  137        -1.0439536551431120D-07
-  138        -7.4559296034208324D-13
-  139        -3.2362758341177476D-17
-  140        -4.9529728927968398D-24
-  141        -1.2051674605103818D-29
-  142        -7.2604843213005881D-04
-  143        -5.2309005027059751D-04
-  144        -1.4083612214234721D-04
-  145        -4.2740177599651704D-04
-  146        -4.0221095768987853D-05
-  147        -3.0866954786657310D-09
-  148        -6.0713335468999753D-10
-  149        -6.9526862456990651D-04
-  150        -4.7262088203230877D-04
-  151         3.0385194617582181D-06
-  152        -4.7163701399555694D-05
-  153         1.4831376873180685D-04
-  154        -8.3100294001060219D-05
-  155         3.4585103776726140D-08
-  156        -4.7573761154068228D-12
-  157        -1.2450711951566026D-15
-  158        -4.4224088861114397D-22
-  159        -1.3933199846644211D-26
-  160        -3.5068432037213584D-34
-  161        -4.0803808393415202D-40
-  162        -8.4464100694335662D-49
-  163        -3.7637827273752317D-55
-  164        -3.0676436964570218D-04
-  165        -3.6671646372017815D-04
-  166        -1.0438613853202243D-05
-  167        -2.5495697383900442D-04
-  168         6.9584674523808225D-07
-  169        -1.1602997745004389D-09
-  170        -1.2306335864236733D-12
-  171        -1.4897543128439804D-17
-  172        -2.3543461615561007D-21
-  173        -1.0450635060728163D-27
-  174        -1.7702863866091193D-32
-  175        -4.1433545596425442D-40
-  176        -6.4070550807229154D-46
-  177        -9.4047851373938765D-10
-  178        -3.8878391159141110D-04
-  179        -3.2171887790276548D-04
-  180         1.9212112757735171D-05
-  181        -1.4154245209961730D-04
-  182         2.2535214518155223D-04
-  183        -2.0588414110608344D-06
-  184         5.3071985405570968D-08
-  185        -7.0489499784230969D-12
-  186        -6.0858912419284736D-15
-  187        -4.0381705756810298D-20
-  188        -9.4564510040866533D-24
-  189        -3.2924299097577301D-30
-  190        -7.0778681438892899D-35
-  191        -1.2086543732386289D-05
-  192        -5.2841549582520410D-06
-  193        -8.8171285913871930D-06
-  194        -2.9736908424383626D-07
-  195        -1.6393394438686317D-08
-  196        -2.1582058238609942D-11
-  197        -1.4111772367881609D-13
-  198        -6.2663142029304608D-18
-  199        -4.7545362191535862D-14
-  200        -8.4685719502424496D-09
-  201        -1.6710024090329211D-08
-  202        -7.4299247864963060D-07
-  203        -4.4686573494712175D-08
-  204        -5.3278075791351956D-08
-  205        -1.8202089379954063D-10
-  206        -1.5164783391396777D-11
-    j              soln(j)
-    1         8.3649347940157286D-09
-    2         2.0529911938318026D-07
-    3        -9.9999089806793162D-01
-    4        -3.6691596820348279D-09
-    5         4.8476014116978381D-03
-    6         2.7650400126009214D-12
-    7         3.6977373901851711D-07
-    8         2.1635061756010013D-18
-    9         4.7028027013605882D-17
-   10         1.3642425434741509D-06
-   11         9.3400895861466170D-21
-   12         6.7940875560224050D-22
-   13         1.8009523113448637D-21
-   14         4.4947494610184348D-22
-   15         2.3263787267770022D-25
-   16         1.8368313951151870D-31
-   17         1.5165488922486186D-18
-   18         3.7875498037455681D-18
-   19         1.7226675439746134D-05
-   20         1.6510603702208580D-12
-   21         1.2238091463232653D-12
-   22         7.0059864639410795D-11
-   23         8.6965538822720646D-12
-   24         3.7311489836210390D-23
-   25         3.1427666451416408D-11
-   26         5.5593537886492231D-04
-   27         7.8447935511795387D-12
-   28         2.6625592110653527D-17
-   29         1.4675004594284562D-25
-   30         8.3217580001599144D-12
-   31         1.0357143921255787D-14
-   32         2.4302710671147033D-14
-   33         2.6134661895923103D-20
-   34         2.0651566255571386D-16
-   35         5.0690576017948215D-07
-   36         2.0249815458258968D-11
-   37         4.7799136388516578D-13
-   38         3.5650429889341188D-20
-   39         5.0643034228852553D-13
-   40         5.0235378476136373D-11
-   41         7.9420293907475513D-10
-   42         3.8896512250473831D-15
-   43         2.1599277679815811D-09
-   44        -1.2012061326812336D-05
-   45        -1.9931157485352048D-08
-   46        -1.3365701009236412D-08
-   47         9.4761787412270979D-15
-   48         8.5462426708164206D-10
-   49         7.0642138655466379D-09
-   50         5.0824125537177502D-06
-   51         1.5878557221596797D-10
-   52         3.0856768943289522D-08
-   53        -1.7163117209672233D-05
-   54        -3.6640008661630903D-05
-   55        -1.1640317448735332D-05
-   56        -3.1346314321164055D-10
-   57        -5.9874996901092216D-12
-   58         2.6400049543903187D-21
-   59         2.4306468143305030D-05
-   60         3.3348248835868746D-05
-   61         1.3141838395149916D-06
-   62        -8.0547969094273094D-09
-   63         4.0509737512538309D-14
-   64         1.3802101674218532D-06
-   65         5.3104477974522847D-05
-   66         4.0034481124497782D-05
-   67         4.8377869019775656D-05
-   68         9.2807589818429635D-08
-   69         5.5312236812919876D-10
-   70         7.8869449785925772D-18
-   71         1.0397837655111696D-04
-   72         3.6614683617454457D-06
-   73         6.2094035181227940D-07
-   74         3.0960327844103756D-13
-   75         2.9788284272148742D-07
-   76         1.3010966532344483D-04
-   77         1.3042116448352229D-04
-   78         1.1832932412793320D-04
-   79         5.9368926362371438D-08
-   80         4.2940247738826854D-10
-   81         1.2542221256596146D-15
-   82         1.7298499036594013D-04
-   83         8.3171453760808900D-07
-   84         2.4200873580746870D-08
-   85         3.0398715347461866D-12
-   86         1.6956493658549255D-14
-   87         4.0901293427908197D-19
-   88         3.0708883038309493D-08
-   89         2.0454356369252211D-04
-   90         1.5669964222214471D-04
-   91         1.9975381309206571D-04
-   92         2.0511221336989894D-07
-   93         8.1570864130786208D-08
-   94         1.3276712187249848D-11
-   95         2.7579057634234446D-13
-   96         1.6147500909032923D-17
-   97         4.7522994093224646D-20
-   98         2.4458090057743365D-27
-   99         3.0318363992437222D-06
-  100         1.7190756852022029D-07
-  101         7.0551755463295712D-07
-  102         2.3487236593806385D-09
-  103         2.1411513203023561D-10
-  104         1.1237287588922711D-13
-  105         1.6539246031330305D-15
-  106         8.4678808024434502D-22
-  107         6.7478930017467595D-28
-  108         5.3771286410558998D-12
-  109         4.4450162495986776D-05
-  110         1.5689406609749555D-05
-  111         3.1372237603149436D-04
-  112         3.6587985985300364D-05
-  113         3.1772145750159405D-05
-  114         2.9182608721094303D-08
-  115        -1.7279187405701532D-09
-  116        -2.0276901288501804D-15
-  117        -8.3226859927988800D-20
-  118        -1.7560166301344216D-27
-  119        -1.5587492229947289D-33
-  120         8.0825540461736304D-05
-  121         3.4043914756834319D-05
-  122         1.6467987735384020D-04
-  123         2.7043847351569219D-06
-  124         1.8418723203288555D-07
-  125         2.7413409781530973D-11
-  126        -9.5348843229030405D-15
-  127        -1.3239608202102401D-21
-  128        -1.9469331821453775D-26
-  129        -1.2755536640652548D-35
-  130         1.2091787878299198D-11
-  131         1.9034205040319646D-04
-  132         2.6604595763194994D-04
-  133         1.5482154576266152D-04
-  134         7.4762423069900226D-05
-  135        -5.1752342407945695D-05
-  136        -5.3211778287301395D-06
-  137        -7.9621463929557588D-08
-  138        -1.1016051072254753D-13
-  139        -6.3480017724511778D-18
-  140        -3.5471178414149091D-25
-  141        -9.8824506120482039D-31
-  142         2.3013448922186281D-04
-  143         1.2874260538667980D-04
-  144         3.8106164116765213D-06
-  145         4.5891033045304992D-06
-  146        -1.1753167151133620D-05
-  147        -1.9755052216792098D-10
-  148         1.6127497201073386D-10
-  149         2.3193733871698606D-04
-  150         1.3289818360601985D-04
-  151         1.3912494825840464D-05
-  152        -1.5509306087317893D-05
-  153        -8.1186114390837248D-05
-  154        -9.0136373831633437D-06
-  155        -3.2118479962958949D-07
-  156        -1.5308724360324947D-12
-  157        -6.0021693273283080D-16
-  158        -7.9537695394686955D-23
-  159        -2.6041024843174116D-27
-  160        -3.0017519725025063D-35
-  161        -3.7670434281343032D-41
-  162        -2.9112527098604818D-50
-  163        -1.5773633430346267D-56
-  164         8.5548665780815056D-05
-  165         5.7402006559926014D-05
-  166        -2.9618762604304280D-05
-  167         3.1919966663366080D-06
-  168        -4.4865998907688262D-06
-  169        -2.6131186885488730D-10
-  170        -1.1673202720046773D-12
-  171        -2.1416936718176827D-18
-  172        -6.3166142263250833D-22
-  173        -9.0477610863561970D-29
-  174        -2.0437896495026814D-33
-  175        -1.7041683936548733D-41
-  176        -3.7682057093627639D-47
-  177         2.1482487877225871D-10
-  178         1.2995893070562499D-04
-  179         8.1764422369043046D-05
-  180        -3.3617229906191143D-06
-  181        -1.7618650969486428D-05
-  182        -1.1796840232081628D-04
-  183        -1.2201015281005174D-06
-  184        -9.1931181484331255D-08
-  185        -1.2482606581216322D-12
-  186        -6.0022892547916911D-15
-  187        -9.2786599357330648D-21
-  188        -2.8692978774923921D-24
-  189        -4.8416280025624258D-31
-  190        -1.0875906192178566D-35
-  191         2.2558725751633931D-06
-  192         6.5452521934964085D-07
-  193        -2.0470639079326018D-06
-  194        -4.8991610527354546D-09
-  195        -1.0920812763245593D-08
-  196        -1.7447667261151275D-12
-  197        -6.4667136536160209D-14
-  198        -5.9482469922754170D-19
-  199         9.5923377740682823D-15
-  200         1.7438557557958683D-09
-  201         2.6585998543781990D-09
-  202         4.6204916119030511D-08
-  203         1.5356474531183557D-09
-  204        -1.0122175816500992D-08
-  205        -9.7134612331219685D-12
-  206        -4.7842256193650744D-12
diff --git a/mtx/test/sparse_data/tiny.rua b/mtx/test/sparse_data/tiny.rua
deleted file mode 100644
index 27f6be541..000000000
--- a/mtx/test/sparse_data/tiny.rua
+++ /dev/null
@@ -1,8 +0,0 @@
-test matrix in standard format                                                  
-             7             1             1             2             0
-RUA                        3             3             6             0
-(10I8)          (12I6)          (5E16.8)                                
-       1       3       5       7
-     1     2     1     2     1     3
-  1.57579152E+00 -9.95037190E+02  1.57579152E+00  9.95037190E+00  4.00000000E+01
-  4.00000000E+00
diff --git a/mtx/test/sparse_data/tiny.test b/mtx/test/sparse_data/tiny.test
deleted file mode 100644
index a503d7fec..000000000
--- a/mtx/test/sparse_data/tiny.test
+++ /dev/null
@@ -1,8 +0,0 @@
-3   argument B for tiny.rua  --  solution follows
-1   88.4137241284723     
-2  -994.987562112089     
-3   4.00000000000000     
-3   solution b
-1   1.29424202820776     
-2   29.4291903828884     
-3   1.00000000000000     
diff --git a/mtx/test/sparse_data/umfd.test b/mtx/test/sparse_data/umfd.test
deleted file mode 100644
index 108e497bc..000000000
--- a/mtx/test/sparse_data/umfd.test
+++ /dev/null
@@ -1,20 +0,0 @@
-5 12
-1 1    1 2    2 1    2 3    2 5    3 2     3 3 
-3 4    4 3    5 2    5 3    5 5
-  2.0
-  3.0
-  3.0
-  4.0
-  6.0
- -1.0
- -3.0 
-  2.0
-  1.0
-  4.0
-  2.0
-  1.0
-  8.0
- 45.0
- -3.0
-  3.0
- 19.0
diff --git a/mtx/test/src/test_banded.f b/mtx/test/src/test_banded.f
deleted file mode 100644
index 3c49b99f5..000000000
--- a/mtx/test/src/test_banded.f
+++ /dev/null
@@ -1,234 +0,0 @@
-! ***********************************************************************
-!
-!   Copyright (C) 2011  Bill Paxton
-!
-!   This file is part of MESA.
-!
-!   MESA is free software; you can redistribute it and/or modify
-!   it under the terms of the GNU General Library Public License as published
-!   by the Free Software Foundation; either version 2 of the License,or
-!   (at your option) any later version.
-!
-!   MESA is distributed in the hope that it will be useful,
-!   but WITHOUT ANY WARRANTY; without even the implied warranty of
-!   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-!   GNU Library General Public License for more details.
-!
-!   You should have received a copy of the GNU Library General Public License
-!   along with this software; if not,write to the Free Software
-!   Foundation,Inc.,59 Temple Place,Suite 330,Boston,MA 02111-1307 USA
-!
-! ***********************************************************************
-
-
-      module test_banded
-      
-      use mtx_lib
-      use mtx_def
-      use utils_lib, only: mesa_error      
-
-      implicit none
-      
-      contains
-      
-      
-      subroutine do_test_banded
-         call test_diffusion      
-      end subroutine do_test_banded
-      
-      
-      subroutine test_med
-         integer,parameter :: n = 400,iounit = 33,KU = 2,KL = 2,nzmax = 500
-         integer,parameter :: ldAB = 2*KL+KU+1
-         real(dp) :: AB(ldAB,n),work(3*n),rcond, values(nzmax), b(n), rhs(n), ref(n)
-         integer :: nz,ldb,nrhs,ierr,nn,i,j,ipiv(n),iwork(n),ios,info,colptr(n+1),rowind(nzmax),norm
-         
-         include 'formats'
-         
-         open(unit=iounit,file='med',action='read',status='old',iostat=ios)
-         if (ios /= 0) then
-            write(*,*) 'failed to open file for test_banded'
-            call mesa_error(__FILE__,__LINE__)
-         end if
-         ! read compressed column format
-         read(iounit,*) nn, nz
-         if (nn /= n) stop 'test_med'
-         do i=1,n+1
-            read(iounit,*) colptr(i)
-         end do
-         do i=1,nz
-            read(iounit,*) rowind(i)
-         end do
-         do i=1,nz
-            read(iounit,'(1pe26.16)') values(i)
-         end do
-         do i=1,n
-            read(iounit,'(1pe26.16)') rhs(i)
-         end do
-         do i=1,n
-            read(iounit,'(1pe26.16)') ref(i)
-         end do
-         close(iounit)
-         call column_sparse_to_band(n,KL,KU,ab,ldab,nz,colptr,rowind,values,ierr)
-         if (ierr /=0) stop 'test_med column_sparse_to_band'
-         
-         call mtx_rcond_banded('N', n, n, KU, KL, AB, ldAB, ipiv, rcond, work, iwork, info)
-         if (ierr /=0) stop 'test_med mtx_rcond_banded'
-         write(*,*) 'mtx_rcond_banded rcond', rcond
-         
-         b = rhs
-         ldb = n
-         nrhs = 1
-         CALL DGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO )
-         write(*,*) 'info', info
-         if (info /= 0) stop 'test_med'
-         
-         do i=1,n
-            write(*,2) 'b ref', i, b(i), ref(i)
-         end do
-         
-
-      end subroutine test_med
-
-
-      subroutine test_diffusion
-         integer, parameter :: n = 10
-         real(dp), dimension(n) :: x, sig, dq, bb
-         real(dp) :: mstar, dt, init_xtotal, banded_xtotal
-         integer :: lrd, lid
-         
-         include 'formats'
-         
-         write(*,*) 'test_diffusion'
-         
-         mstar =    9.5216384650402128D+33
-         dt =    8.2230155734773409D+08
-
-         x( 1  )=    3.3853553765573918D-01
-         x( 2  )=    3.3853553765572147D-01
-         x( 3  )=    4.5462481641995478D-01
-         x( 4  )=    4.9630359938855395D-01
-         x( 5  )=    4.9630359938855390D-01
-         x( 6  )=    4.9630359938855384D-01
-         x( 7  )=    4.9630359938855390D-01
-         x( 8  )=    5.8265967459668622D-01
-         x( 9  )=    6.1370782322384976D-01
-         x(10  )=    6.1370782322384976D-01
-
-         sig( 1  )=    0.0000000000000000D+00
-         sig( 2  )=    7.7006096541650005D+38
-         sig( 3  )=    1.4638096218318065D+39
-         sig( 4  )=    1.2767160238768072D+39
-         sig( 5  )=    1.1314657565143642D+39
-         sig( 6  )=    1.0969967768680467D+39
-         sig( 7  )=    1.0969967748843832D+39
-         sig( 8  )=    9.8367595476496157D+38
-         sig( 9  )=    7.5703431242949176D+38
-         sig(10  )=    3.2185674473372967D+38
-
-         dq( 1  )=    3.2180704472120336D-08
-         dq( 2  )=    1.7819062402685692D-08
-         dq( 3  )=    1.5396355905853213D-08
-         dq( 4  )=    1.3290183455525239D-08
-         dq( 5  )=    1.5048420108580579D-08
-         dq( 6  )=    1.6727579700091661D-08
-         dq( 7  )=    1.8662871023197620D-08
-         dq( 8  )=    2.1239878600194412D-08
-         dq( 9  )=    2.2654435507986098D-08
-         dq(10  )=    2.3822242205812923D-08
-         
-         init_xtotal = mstar*dot_product(x(:), dq(:))
-         
-         call lapack_work_sizes(2*n,lrd,lid)
-         call do_banded(lrd,lid)
-         banded_xtotal = mstar*dot_product(bb(:), dq(:))
-         
-         write(*,1) 'init_xtotal', init_xtotal
-         write(*,1) 'banded_xtotal', banded_xtotal
-         write(*,*)
-         
-         contains
-         
-         
-         subroutine do_banded(lrd,lid)
-            integer, intent(in) :: lrd, lid
-            integer, parameter :: &
-               nvar=2, nz=n, neq=nvar*nz, i_x=1, i_dx=2, equx=1, equdx=2, &
-               mu = 2*nvar-1, ml = 2*nvar-1, lda = 2*ml+mu+1, idiag = ml+mu+1
-            real(dp), dimension(nvar,nvar,nz) :: em1, e00, ep1
-            real(dp), target :: a1_ary(lda*neq), dx_ary(n), b1_ary(nvar*nz)
-            integer :: ierr, i, k
-            integer, target :: ip_ary(neq)
-            real(dp), target :: rpar_decsol_ary(lrd)
-            integer, target :: ipar_decsol_ary(lid)
-            real(dp), pointer :: rpar_decsol(:), a1(:), dx(:), b1(:)
-            integer, pointer :: ipar_decsol(:)
-            
-            real(dp), pointer :: a(:,:), b(:,:)
-            integer, pointer :: ip(:)
-
-            include 'formats'
-            rpar_decsol => rpar_decsol_ary
-            ipar_decsol => ipar_decsol_ary
-            a1(1:lda*neq) => a1_ary
-            a(1:lda,1:neq) => a1(1:lda*neq)
-            b1(1:nvar*nz) => b1_ary
-            b(1:nvar,1:nz) => b1(1:nvar*nz)
-            dx(1:n) => dx_ary
-            ip(1:neq) => ip_ary
-            
-            dx(1) = 0
-            do k=2,n
-               dx(k) = x(k-1)-x(k)
-            end do
-            
-            ! store partials
-            em1 = 0; e00 = 0; ep1 = 0
-            do k=1, n
-               ! dx(k) - x(k-1) + x(k) = 0
-               e00(equdx,i_dx,k) = 1
-               if (k > 1) then
-                  e00(equdx,i_x,k) = 1
-                  em1(equdx,i_x,k) = -1
-               end if
-               ! x(k) - (sig(k)*dx(k) - sig(k+1)*dx(k+1))*dt/(mstar*dq(k)) = x0(k)
-               e00(equx,i_x,k) = 1
-               if (k > 1) e00(equx,i_dx,k) = -sig(k)*dt/(mstar*dq(k))
-               if (k < n) ep1(equx,i_dx,k) = sig(k+1)*dt/(mstar*dq(k))
-            end do
-            
-            ! store matrix
-            call copy_all_to_3point_jacobian(nvar, nz, ldA, A, idiag, nz, em1, e00, ep1)
-            
-            ! factor
-            call lapack_decsol(0,neq,ldA,A1,ml,mu,b1,ip,lrd,rpar_decsol,lid,ipar_decsol,ierr)
-            if (ierr /= 0) then
-               write(*,*) 'lapack_decsol 0', ierr
-               call mesa_error(__FILE__,__LINE__)
-            end if
-            
-            ! set rhs of equation
-            b(equdx,:) = 0
-            b(equx,:) = x(:)
-            
-            ! solve
-            call lapack_decsol(1,neq,ldA,A1,ml,mu,b1,ip,lrd,rpar_decsol,lid,ipar_decsol,ierr)
-            if (ierr /= 0) then
-               write(*,*) 'lapack_decsol 1', ierr
-               call mesa_error(__FILE__,__LINE__)
-            end if
-            
-            bb(:) = b(equx,:)
-            
-            do k=1,n
-               !write(*,2) 'banded: init x, soln x(k), dx(k)', k, x(k), b(equx,k), b(equdx,k)
-               write(*,2) 'banded: init x, soln x(k)', k, x(k), b(equx,k)
-            end do
-            write(*,*)
-         
-         end subroutine do_banded
-         
-      
-      end subroutine test_diffusion
-
-      end module test_banded
diff --git a/mtx/test/src/test_bcyclic.f b/mtx/test/src/test_bcyclic.f
deleted file mode 100644
index 42224fe36..000000000
--- a/mtx/test/src/test_bcyclic.f
+++ /dev/null
@@ -1,170 +0,0 @@
-
-
-      module test_bcyclic
-      use cyclic_red, only: check_solver, bcyclic_init
-      use mtx_lib, only: bcyclic_mt_lapack_decsolblk, bcyclic_mt_lapack_work_sizes
-      use mtx_def, only: lapack
-      use utils_lib, only: mesa_error
-      implicit none
-
-#ifdef mpi_opt
-      include 'mpif.h'                                       !mpi stuff
-#endif
-
-      integer :: timeon, timeoff, countrate, ns0, nsn
-      integer, parameter :: rprec = 8
-      
-      contains
-      
-      
-      subroutine do_test_bcyclic(quiet, tol, fname_in, fname_out)
-      logical, intent(in) :: quiet
-      real*8, intent(in) :: tol
-      character (len=*), intent(in) :: fname_in, fname_out
-      
-      integer                   :: ns, mblock, istat, k, nmin, irhs
-      integer, pointer          :: ipivot(:,:)
-      real*8, pointer, dimension(:,:,:) ::                     &
-                   lblk, dblk, ublk, lblk1, dblk1, ublk1
-      real*8, pointer  :: brhs(:,:), gc(:,:)
-      real*8  :: t1, rms_error
-      
-      
-      integer, parameter :: lid = 0, lrd = 0
-      real*8, target :: rpar_decsol(lrd)
-      integer, target :: ipar_decsol(lid)
-      integer :: ierr, lid_check, lrd_check, iop
-      
-      include 'formats'
-      
-!******************************************
-      ierr = 0
-      call read_data(ierr) ! sets mblock and ns; allocates and reads lblk, dblk, ublk
-      if (ierr /= 0) return
-!
-!  mpi setup calls: 
-!
-      call bcyclic_init(ns,lapack,ierr)
-      if (ierr /= 0) stop 'failed in bcyclic_init'
-
-      write(*,3) 'test_bcyclic ' // trim(fname_in), mblock, ns
-
-      call bcyclic_mt_lapack_work_sizes(mblock,ns,lrd_check,lid_check)
-      if (lrd_check /= lrd .or. lid_check /= lid) then
-         write(*,*) 'unexpected result from bcyclic_mt_lapack_work_sizes', lid_check, lrd_check
-         call mesa_error(__FILE__,__LINE__)
-      end if
-!******************************************
-!
-!     do cyclic reduction
-!     important: the blocks and data are assumed to be distributed consecutively
-!                on nodes as described in the paper ....
-
-!*****************************************
-
-!     note: in production run, skip this since ipivot, lblk, dblk, ublk, brhs are
-!           known inputs
-     allocate (ipivot(mblock, ns0:nsn), stat=istat)
-     if (istat .ne. 0) stop 'allocation error!'
-
-!     store lblk1, etc only for back-solver check
-      allocate (lblk1(mblock,mblock,ns0:nsn), dblk1(mblock,mblock,ns0:nsn),   &
-                ublk1(mblock,mblock,ns0:nsn), gc(mblock,ns0:nsn),             &
-                stat=istat)
-      if (istat .ne. 0) stop 'allocation error!'
-
-      lblk1 = lblk; dblk1 = dblk; ublk1 = ublk
-      gc = brhs
-!*****************************************
-
-!     simulate multiple rhs
-      multiple_rhs: do irhs = 1, 2
-
-!     solve using cyclic reduction
-!     solution overwrite brhs on each processor
-      if (.not. quiet) then
-#ifdef mpi_opt
-      if (rank .eq. 0) print '(a,i1)',' solution rhs #',irhs
-#else
-      print '(a,i1)',' solution rhs #',irhs
-#endif
-      end if
-      !call bcyclic_solver (lblk, dblk, ublk, ipivot, brhs, mblock, ns)
-      iop = 0 ! factor
-      call bcyclic_mt_lapack_decsolblk(iop,lblk,dblk,ublk,brhs,ipivot,lrd,rpar_decsol,lid,ipar_decsol,ierr)
-      if (ierr /= 0) then
-         write(*,*) 'failed in bcyclic_mt_lapack_decsolblk solve', ierr
-         call mesa_error(__FILE__,__LINE__)
-      end if
-      iop = 1 ! solve
-      call bcyclic_mt_lapack_decsolblk(iop,lblk,dblk,ublk,brhs,ipivot,lrd,rpar_decsol,lid,ipar_decsol,ierr)
-      if (ierr /= 0) then
-         write(*,*) 'failed in bcyclic_mt_lapack_decsolblk solve', ierr
-         call mesa_error(__FILE__,__LINE__)
-      end if
-
-!     check solution
-      call check_solver (lblk1, dblk1, ublk1, brhs, gc, mblock, ns, irhs, quiet, tol)
-
-!     important: do not reset factored blocks
-!     set brhs (solution)
-      gc(:,ns0:nsn)=gc(:,ns0:nsn)*2 + 1.1d0 ! change from previous
-      brhs(:,ns0:nsn)=gc(:,ns0:nsn)
-
-      end do multiple_rhs
-
-!     clean up allocated arrays
-      !call clearstorage
-      iop = 2 ! deallocate
-      call bcyclic_mt_lapack_decsolblk(iop,lblk,dblk,ublk,brhs,ipivot,lrd,rpar_decsol,lid,ipar_decsol,ierr)
-      if (ierr /= 0) then
-         write(*,*) 'failed in bcyclic_mt_lapack_decsolblk deallocate', ierr
-         call mesa_error(__FILE__,__LINE__)
-      end if
-
-      deallocate (ipivot, lblk, dblk, ublk, brhs, stat=istat)
-      deallocate (lblk1, ublk1, dblk1, gc, stat=istat)
-
-!     shut down mpi 
-#ifdef mpi_opt
-      call mpi_barrier(mpi_comm_world, ierr)
-      call mpi_finalize(ierr)
-#endif
-      
-      write(*,*) 'done test_bcyclic'
-      write(*,*)
-      
-     
-      contains
-     
-     
-      subroutine read_data(ierr)
-         integer, intent(out) :: ierr
-         integer :: k, i, j, iounit
-         ierr = 0
-         iounit = 33
-         write(*,*) 'read test matrix info ' // trim(fname_in)
-         open(iounit,file=trim(fname_in), status='old', action='read', iostat=ierr)
-         if (ierr /= 0) return
-         read(iounit,*,iostat=ierr) mblock, ns
-         if (ierr /= 0) return
-         allocate (lblk(mblock,mblock,ns), dblk(mblock,mblock,ns), ublk(mblock,mblock,ns),brhs(mblock,ns))
-         do k=1,ns
-            do i=1,mblock
-               read(iounit,*,iostat=ierr) brhs(i,k)
-               if (ierr /= 0) return
-               do j=1,mblock
-                  read(iounit,*,iostat=ierr) lblk(i,j,k), dblk(i,j,k), ublk(i,j,k)
-                  if (ierr /= 0) return
-               end do
-            end do
-         end do
-         close(iounit)
-      end subroutine read_data
-      
-
-      end subroutine do_test_bcyclic
-
-
-
-      end module test_bcyclic
diff --git a/mtx/test/src/test_block_tridiagonal.f b/mtx/test/src/test_block_tridiagonal.f90
similarity index 53%
rename from mtx/test/src/test_block_tridiagonal.f
rename to mtx/test/src/test_block_tridiagonal.f90
index 39ea779d8..853295b16 100644
--- a/mtx/test/src/test_block_tridiagonal.f
+++ b/mtx/test/src/test_block_tridiagonal.f90
@@ -20,13 +20,12 @@
 !
 ! ***********************************************************************
 
-
 #ifdef DBLE
-      module test_block_tri_dble
+module test_block_tri_dble
 #else
-      module test_block_tri_quad
+   module test_block_tri_quad
 #endif
-      
+
       use mtx_lib
       use mtx_def
 
@@ -36,8 +35,8 @@ module test_block_tri_quad
       use const_def, only: qp
 #endif
 
-      use utils_lib, only: is_bad,mesa_error
-      
+      use utils_lib, only: is_bad, mesa_error
+
       implicit none
 
 #ifdef DBLE
@@ -45,13 +44,11 @@ module test_block_tri_quad
 #else
       integer, parameter :: fltp = qp
 #endif
-      
+
       integer, parameter :: caller_id = 0
-      
-      
-      contains
-      
-      
+
+   contains
+
 #ifdef DBLE
 
       subroutine do_test_block_tri_dble
@@ -66,41 +63,36 @@ subroutine do_test_block_tri_quad
       end subroutine do_test_block_tri_quad
 
 #endif
-      
-      
+
       subroutine test_block(which_decsol_option, for_release)
 
          integer, intent(in) :: which_decsol_option
          logical, intent(in) :: for_release
-         
+
          integer :: nrep
          real(fltp), pointer :: lblk1(:), dblk1(:), ublk1(:) ! (nvar,nvar,nz)
-         real(fltp), pointer :: lblk(:,:,:), dblk(:,:,:), ublk(:,:,:) ! (nvar,nvar,nz)
-         real(fltp), pointer :: l_init(:,:,:), d_init(:,:,:), u_init(:,:,:) ! (nvar,nvar,nz)
-         real(fltp), pointer :: x(:,:), xcorrect(:,:), brhs(:,:), work(:,:) ! (nvar,nz)
+         real(fltp), pointer :: lblk(:, :, :), dblk(:, :, :), ublk(:, :, :) ! (nvar,nvar,nz)
+         real(fltp), pointer :: l_init(:, :, :), d_init(:, :, :), u_init(:, :, :) ! (nvar,nvar,nz)
+         real(fltp), pointer :: x(:, :), xcorrect(:, :), brhs(:, :), work(:, :) ! (nvar,nz)
          real(fltp), pointer :: x1(:) ! =(nvar,nz)
          integer, pointer :: ipiv1(:) ! =(nvar,nz)
-         integer, pointer :: ipiv(:,:) ! (nvar,nz)
-          
+         integer, pointer :: ipiv(:, :) ! (nvar,nz)
+
          real(dp), pointer :: rpar_decsol(:) ! (lrd)
          integer, pointer :: ipar_decsol(:) ! (lid)
-         real(fltp) :: time_factor, time_solve, time_refine, time_dealloc, sum_times
-         real(fltp) :: sum_factor, setup, factor_As, &
-            factor_As_thm_fac_avg, factor_As_thm_slv_avg, &
-            factor_As_thm_fac_max, factor_As_thm_slv_max, &
-            setup_coupling, factor_coupling
+         real(fltp) :: time_factor, time_solve, time_refine, time_dealloc
 
          integer :: i, j, k, ierr, lid, lrd, nvar, nz, rep
          logical :: use_given_weights
-         character (len=255) :: fname, which_decsol_str
-         
+         character(len=255) :: fname, which_decsol_str
+
          include 'formats'
-         
+
          ierr = 0
-         
+
          call decsol_option_str(which_decsol_option, which_decsol_str, ierr)
          if (ierr /= 0) return
-         
+
          if (for_release) then
             fname = 'block_tri.data'
          else
@@ -108,55 +100,54 @@ subroutine test_block(which_decsol_option, for_release)
          end if
          nrep = 1
 
-         time_factor=0; time_solve=0; time_refine=0; time_dealloc=0
-         
+         time_factor = 0; time_solve = 0; time_refine = 0; time_dealloc = 0
+
          call read_testfile(fname)
          !call xread_testfile(fname)
 
 #ifdef DBLE
          if (which_decsol_option == bcyclic_dble) then
-            write(*,*) 'bcyclic_dble'
-            call bcyclic_dble_work_sizes(nvar,nz,lrd,lid)
+            write (*, *) 'bcyclic_dble'
+            call bcyclic_dble_work_sizes(nvar, nz, lrd, lid)
          else
-            write(*,*) 'bad value for which_decsol_option in test_block'
-            call mesa_error(__FILE__,__LINE__)
+            write (*, *) 'bad value for which_decsol_option in test_block'
+            call mesa_error(__FILE__, __LINE__)
          end if
 #endif
-         
-         allocate( &
-            rpar_decsol(lrd), ipar_decsol(lid), x1(nvar*nz), xcorrect(nvar,nz), &
-            brhs(nvar,nz), ipiv1(nvar*nz), work(nvar,nz), &
-            l_init(nvar,nvar,nz), d_init(nvar,nvar,nz), u_init(nvar,nvar,nz), stat=ierr)
+
+         allocate ( &
+            rpar_decsol(lrd), ipar_decsol(lid), x1(nvar*nz), xcorrect(nvar, nz), &
+            brhs(nvar, nz), ipiv1(nvar*nz), work(nvar, nz), &
+            l_init(nvar, nvar, nz), d_init(nvar, nvar, nz), u_init(nvar, nvar, nz), stat=ierr)
          if (ierr /= 0) then
-            write(*,*) 'failed in alloc'
-            call mesa_error(__FILE__,__LINE__)
+            write (*, *) 'failed in alloc'
+            call mesa_error(__FILE__, __LINE__)
          end if
-         ipiv(1:nvar,1:nz) => ipiv1(1:nvar*nz)
-         x(1:nvar,1:nz) => x1(1:nvar*nz)
-         
-         
-         do k=1,nz
-            do i=1,nvar
-               do j=1,nvar
-                  l_init(j,i,k) = lblk(j,i,k)
-                  d_init(j,i,k) = dblk(j,i,k)
-                  u_init(j,i,k) = ublk(j,i,k)
+         ipiv(1:nvar, 1:nz) => ipiv1(1:nvar*nz)
+         x(1:nvar, 1:nz) => x1(1:nvar*nz)
+
+         do k = 1, nz
+            do i = 1, nvar
+               do j = 1, nvar
+                  l_init(j, i, k) = lblk(j, i, k)
+                  d_init(j, i, k) = dblk(j, i, k)
+                  u_init(j, i, k) = ublk(j, i, k)
                end do
             end do
          end do
-         
+
          call set_xcorrect
          call set_brhs(lblk, dblk, ublk)
-      
+
          if (.false.) then ! check data
-            write(*,*) trim(fname)
-            write(*,3) 'nvar nz', nvar, nz
-            do k=1,nz
-               do i=1,nvar
-                  write(*,3) 'sol-xcorrect', i, k, brhs(i,k), xcorrect(i,k)
-                  do j=1,nvar
-                     write(*,4) 'u-d-l', i, j, k, &
-                        ublk(i,j,k), dblk(i,j,k), lblk(i,j,k)
+            write (*, *) trim(fname)
+            write (*, 3) 'nvar nz', nvar, nz
+            do k = 1, nz
+               do i = 1, nvar
+                  write (*, 3) 'sol-xcorrect', i, k, brhs(i, k), xcorrect(i, k)
+                  do j = 1, nvar
+                     write (*, 4) 'u-d-l', i, j, k, &
+                        ublk(i, j, k), dblk(i, j, k), lblk(i, j, k)
                   end do
                end do
             end do
@@ -164,17 +155,17 @@ subroutine test_block(which_decsol_option, for_release)
          end if
 
          do rep = 1, nrep
-         
-            do k=1,nz
-               do i=1,nvar
-                  do j=1,nvar
-                     lblk(j,i,k) = l_init(j,i,k)
-                     dblk(j,i,k) = d_init(j,i,k)
-                     ublk(j,i,k) = u_init(j,i,k)
+
+            do k = 1, nz
+               do i = 1, nvar
+                  do j = 1, nvar
+                     lblk(j, i, k) = l_init(j, i, k)
+                     dblk(j, i, k) = d_init(j, i, k)
+                     ublk(j, i, k) = u_init(j, i, k)
                   end do
                end do
             end do
-            
+
             use_given_weights = (rep > 1)
 
 #ifdef DBLE
@@ -182,137 +173,131 @@ subroutine test_block(which_decsol_option, for_release)
                call solve_blocks( &
                   use_given_weights, bcyclic_dble_decsolblk, null_decsolblk_quad)
             else
-               write(*,*) 'missing case for which_decsol_option', which_decsol_option
-               call mesa_error(__FILE__,__LINE__)
+               write (*, *) 'missing case for which_decsol_option', which_decsol_option
+               call mesa_error(__FILE__, __LINE__)
             end if
 
-#endif            
-            
-            
+#endif
+
          end do
-         
+
          call check_x
 
 #ifdef DBLE
          if (which_decsol_option == bcyclic_dble) then
-               write(*,*) 'done bcyclic_dble'
+            write (*, *) 'done bcyclic_dble'
          else if (which_decsol_option == block_thomas_dble) then
-               write(*,*) 'done block_thomas_dble'
+            write (*, *) 'done block_thomas_dble'
          end if
 #else
          if (which_decsol_option == block_thomas_quad) then
-               write(*,*) 'done block_thomas_quad'
+            write (*, *) 'done block_thomas_quad'
          end if
 #endif
-         
-         write(*,*)
-
-         deallocate(rpar_decsol, ipar_decsol, x1, xcorrect, work, &
-            brhs, ipiv1, lblk1, dblk1, ublk1, l_init, d_init, u_init)
-         
-         contains
-         
-         
+
+         write (*, *)
+
+         deallocate (rpar_decsol, ipar_decsol, x1, xcorrect, work, &
+                     brhs, ipiv1, lblk1, dblk1, ublk1, l_init, d_init, u_init)
+
+      contains
+
          subroutine solve_blocks(use_given_weights, decsolblk, decsolblk_quad)
             logical, intent(in) :: use_given_weights
             interface
                include 'mtx_decsolblk_dble.dek'
                include 'mtx_decsolblk_quad.dek'
             end interface
-            
+
             integer :: iop, rep
-            real(fltp) :: avg_err, max_err, err, atol, rtol
-            integer :: i_max, j_max, i, j, k
-         
+            integer :: j, k
+
             include 'formats'
-                     
+
             iop = 0 ! factor A
 #ifdef DBLE
             call decsolblk( &
-               iop,caller_id,nvar,nz,lblk1,dblk1,ublk1,x1,ipiv1,lrd,rpar_decsol,lid,ipar_decsol,ierr)
+               iop, caller_id, nvar, nz, lblk1, dblk1, ublk1, x1, ipiv1, lrd, rpar_decsol, lid, ipar_decsol, ierr)
 #else
             call decsolblk_quad( &
-               iop,caller_id,nvar,nz,lblk1,dblk1,ublk1,x1,ipiv1,lrd,rpar_decsol,lid,ipar_decsol,ierr)
+               iop, caller_id, nvar, nz, lblk1, dblk1, ublk1, x1, ipiv1, lrd, rpar_decsol, lid, ipar_decsol, ierr)
 #endif
             if (ierr /= 0) then
-               write(*,*) 'decsolblk failed for factor'
-               call mesa_error(__FILE__,__LINE__)
+               write (*, *) 'decsolblk failed for factor'
+               call mesa_error(__FILE__, __LINE__)
             end if
-         
-            do rep=1,1
-            
+
+            do rep = 1, 1
+
                iop = 1 ! solve A*x = b
-               
-               do k=1,nz
-                  do j=1,nvar
-                     x(j,k) = brhs(j,k)
+
+               do k = 1, nz
+                  do j = 1, nvar
+                     x(j, k) = brhs(j, k)
                   end do
                end do
 #ifdef DBLE
                call decsolblk( &
-                  iop,caller_id,nvar,nz,lblk1,dblk1,ublk1,x1,ipiv1,lrd,rpar_decsol,lid,ipar_decsol,ierr)
+                  iop, caller_id, nvar, nz, lblk1, dblk1, ublk1, x1, ipiv1, lrd, rpar_decsol, lid, ipar_decsol, ierr)
 #else
                call decsolblk_quad( &
-                  iop,caller_id,nvar,nz,lblk1,dblk1,ublk1,x1,ipiv1,lrd,rpar_decsol,lid,ipar_decsol,ierr)
+                  iop, caller_id, nvar, nz, lblk1, dblk1, ublk1, x1, ipiv1, lrd, rpar_decsol, lid, ipar_decsol, ierr)
 #endif
                if (ierr /= 0) then
-                  write(*,*) 'decsolblk failed for solve'
-                  call mesa_error(__FILE__,__LINE__)
+                  write (*, *) 'decsolblk failed for solve'
+                  call mesa_error(__FILE__, __LINE__)
                end if
-                        
+
             end do
-         
+
             iop = 2 ! deallocate
 #ifdef DBLE
             call decsolblk( &
-               iop,caller_id,nvar,nz,lblk1,dblk1,ublk1,x1,ipiv1,lrd,rpar_decsol,lid,ipar_decsol,ierr)
+               iop, caller_id, nvar, nz, lblk1, dblk1, ublk1, x1, ipiv1, lrd, rpar_decsol, lid, ipar_decsol, ierr)
 #else
             call decsolblk_quad( &
-               iop,caller_id,nvar,nz,lblk1,dblk1,ublk1,x1,ipiv1,lrd,rpar_decsol,lid,ipar_decsol,ierr)
+               iop, caller_id, nvar, nz, lblk1, dblk1, ublk1, x1, ipiv1, lrd, rpar_decsol, lid, ipar_decsol, ierr)
 #endif
             if (ierr /= 0) then
-               write(*,*) 'decsolblk failed for deallocate'
-               call mesa_error(__FILE__,__LINE__)
+               write (*, *) 'decsolblk failed for deallocate'
+               call mesa_error(__FILE__, __LINE__)
             end if
-                     
+
          end subroutine solve_blocks
-         
-         
+
          subroutine read_testfile(fname)
-            character (len=*), intent(in) :: fname
-            integer :: iounit, ierr, i, j, k, line
+            character(len=*), intent(in) :: fname
+            integer :: iounit, ierr
             !write(*,*) 'reading ' // trim(fname)
             iounit = 33; ierr = 0
-            open(unit=iounit, file=trim(fname), status='old', action='read', iostat=ierr)
+            open (unit=iounit, file=trim(fname), status='old', action='read', iostat=ierr)
             if (ierr /= 0) then
-               write(*,*) 'failed to open ' // trim(fname)
-               call mesa_error(__FILE__,__LINE__)
+               write (*, *) 'failed to open '//trim(fname)
+               call mesa_error(__FILE__, __LINE__)
             end if
 #ifdef DBLE
-            call mtx_read_block_tridiagonal(iounit,nvar,nz,lblk1,dblk1,ublk1,ierr)
+            call mtx_read_block_tridiagonal(iounit, nvar, nz, lblk1, dblk1, ublk1, ierr)
 #else
-            call mtx_read_quad_block_tridiagonal(iounit,nvar,nz,lblk1,dblk1,ublk1,ierr)
+            call mtx_read_quad_block_tridiagonal(iounit, nvar, nz, lblk1, dblk1, ublk1, ierr)
 #endif
             if (ierr /= 0) then
-               write(*,*) 'failed to read ' // trim(fname)
-               call mesa_error(__FILE__,__LINE__)
+               write (*, *) 'failed to read '//trim(fname)
+               call mesa_error(__FILE__, __LINE__)
             end if
-            close(iounit)
-         
-            lblk(1:nvar,1:nvar,1:nz) => lblk1(1:nvar*nvar*nz)
-            dblk(1:nvar,1:nvar,1:nz) => dblk1(1:nvar*nvar*nz)
-            ublk(1:nvar,1:nvar,1:nz) => ublk1(1:nvar*nvar*nz)
-            
+            close (iounit)
+
+            lblk(1:nvar, 1:nvar, 1:nz) => lblk1(1:nvar*nvar*nz)
+            dblk(1:nvar, 1:nvar, 1:nz) => dblk1(1:nvar*nvar*nz)
+            ublk(1:nvar, 1:nvar, 1:nz) => ublk1(1:nvar*nvar*nz)
+
             !return
             nz = 20
-            write(*,*) 'testing with nvar,nz', nvar,nz
-            
-            
+            write (*, *) 'testing with nvar,nz', nvar, nz
+
          end subroutine read_testfile
-         
-         
+
          subroutine set_brhs(lblk, dblk, ublk)
-            real(fltp), pointer, dimension(:,:,:) :: lblk, dblk, ublk
+            real(fltp), pointer, dimension(:, :, :) :: lblk, dblk, ublk
             integer :: k, j
             include 'formats'
             ! set brhs = A*xcorrect
@@ -324,29 +309,27 @@ subroutine set_brhs(lblk, dblk, ublk)
             return
             do k = 1, 2 !nz
                do j = 1, nvar
-                  if (brhs(j,k) /= 0) write(*,3) 'brhs xcorrect', j, k, brhs(j,k), xcorrect(j,k)
+                  if (brhs(j, k) /= 0) write (*, 3) 'brhs xcorrect', j, k, brhs(j, k), xcorrect(j, k)
                end do
             end do
-            write(*,*) 'end set_brhs'
+            write (*, *) 'end set_brhs'
             stop
          end subroutine set_brhs
-         
-         
+
          subroutine check_x
-            real(fltp) :: max_err, err, atol, rtol, avg_err
-            integer :: i_max, j_max,i, j, rep        
+            real(fltp) :: max_err, atol, rtol, avg_err
+            integer :: i_max, j_max, i, j
             include 'formats'
             atol = 1d-4
-            rtol = 1d-4   
+            rtol = 1d-4
             call check1_x(avg_err, max_err, atol, rtol, i_max, j_max)
             i = i_max; j = j_max
             if (max_err > 1) then
-               write(*,3) 'BAD: err, x, xcorrect', i, j, max_err, x(i,j), xcorrect(i,j)
+               write (*, 3) 'BAD: err, x, xcorrect', i, j, max_err, x(i, j), xcorrect(i, j)
                !write(*,3) 'BAD: avg err, max err, x, xcorrect', i, j, avg_err, max_err, x(i,j), xcorrect(i,j)
             end if
          end subroutine check_x
-         
-         
+
          subroutine check1_x(avg_err, max_err, atol, rtol, i_max, j_max)
             real(fltp), intent(out) :: avg_err, max_err
             real(fltp), intent(in) ::  atol, rtol
@@ -358,11 +341,11 @@ subroutine check1_x(avg_err, max_err, atol, rtol, i_max, j_max)
             max_err = 0; i_max = 0; j_max = 0; err_sum = 0
             do j = 1, nz
                do i = 1, nvar
-                  if (is_bad(x(i,j))) then
-                     write(*,3) 'x xcorrect', i, j, x(i,j), xcorrect(i,j)
+                  if (is_bad(x(i, j))) then
+                     write (*, 3) 'x xcorrect', i, j, x(i, j), xcorrect(i, j)
                      stop 'check1_x'
                   end if
-                  err = abs(x(i,j) - xcorrect(i,j))/(atol + rtol*max(abs(x(i,j)),abs(xcorrect(i,j))))
+                  err = abs(x(i, j) - xcorrect(i, j))/(atol + rtol*max(abs(x(i, j)), abs(xcorrect(i, j))))
                   err_sum = err_sum + err
                   if (err > max_err) then
                      max_err = err; i_max = i; j_max = j
@@ -372,27 +355,23 @@ subroutine check1_x(avg_err, max_err, atol, rtol, i_max, j_max)
             avg_err = err_sum/(nz*nvar)
             !write(*,1) 'avg_err', avg_err
          end subroutine check1_x
-         
-         
+
          subroutine set_xcorrect
             real(fltp) :: cnt
             integer :: k, j
             cnt = 1d0
-            do k=1,nz
-               do j=1,nvar
+            do k = 1, nz
+               do j = 1, nvar
                   cnt = cnt + 1d-3
-                  xcorrect(j,k) = cnt
+                  xcorrect(j, k) = cnt
                end do
             end do
          end subroutine set_xcorrect
-           
-      end subroutine test_block
-
-
 
+      end subroutine test_block
 
 #ifdef DBLE
-      end module test_block_tri_dble
+   end module test_block_tri_dble
 #else
-      end module test_block_tri_quad
+end module test_block_tri_quad
 #endif
diff --git a/mtx/test/src/test_mtx.f b/mtx/test/src/test_mtx.f90
similarity index 52%
rename from mtx/test/src/test_mtx.f
rename to mtx/test/src/test_mtx.f90
index dc009da5a..c13052af5 100644
--- a/mtx/test/src/test_mtx.f
+++ b/mtx/test/src/test_mtx.f90
@@ -20,40 +20,39 @@
 !
 ! ***********************************************************************
 
-      program test_mtx
-      use const_lib
-      use math_lib, only: math_init
-      use mtx_lib
-      use test_mtx_support
-
-      use test_square
-      use test_square_quad
-      
-      use test_block_tri_dble, only: do_test_block_tri_dble
-      use test_block_tri_quad, only: do_test_block_tri_quad
-      
-      use utils_lib, only: mesa_error
-
-      implicit none
-      
-      character (len=32) :: my_mesa_dir
-      integer :: ierr, i
-
-      my_mesa_dir = '../..'         
-      call const_init(my_mesa_dir,ierr)     
-      if (ierr /= 0) then
-         write(*,*) 'const_init failed'
-         call mesa_error(__FILE__,__LINE__)
-      end if        
-      
-      call math_init()
-      
-      call do_test_square
-      call do_test_square_quad
-      call do_test_block_tri_dble
-      call do_test_block_tri_quad      
-      call test_format_conversion      
-
-
-      end program
+program test_mtx
+   use const_lib
+   use math_lib, only: math_init
+   use mtx_lib
+   use test_mtx_support
+
+   use test_square
+   use test_square_quad
+
+   use test_block_tri_dble, only: do_test_block_tri_dble
+   use test_block_tri_quad, only: do_test_block_tri_quad
+
+   use utils_lib, only: mesa_error
+
+   implicit none
+
+   character(len=32) :: my_mesa_dir
+   integer :: ierr
+
+   my_mesa_dir = '../..'
+   call const_init(my_mesa_dir, ierr)
+   if (ierr /= 0) then
+      write (*, *) 'const_init failed'
+      call mesa_error(__FILE__, __LINE__)
+   end if
+
+   call math_init()
+
+   call do_test_square
+   call do_test_square_quad
+   call do_test_block_tri_dble
+   call do_test_block_tri_quad
+   call test_format_conversion
+
+end program
 
diff --git a/mtx/test/src/test_mtx_support.f b/mtx/test/src/test_mtx_support.f
deleted file mode 100644
index 5a4064639..000000000
--- a/mtx/test/src/test_mtx_support.f
+++ /dev/null
@@ -1,156 +0,0 @@
-! ***********************************************************************
-!
-!   Copyright (C) 2011  Bill Paxton
-!
-!   This file is part of MESA.
-!
-!   MESA is free software; you can redistribute it and/or modify
-!   it under the terms of the GNU General Library Public License as published
-!   by the Free Software Foundation; either version 2 of the License,or
-!   (at your option) any later version.
-!
-!   MESA is distributed in the hope that it will be useful,
-!   but WITHOUT ANY WARRANTY; without even the implied warranty of
-!   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-!   GNU Library General Public License for more details.
-!
-!   You should have received a copy of the GNU Library General Public License
-!   along with this software; if not,write to the Free Software
-!   Foundation,Inc.,59 Temple Place,Suite 330,Boston,MA 02111-1307 USA
-!
-! ***********************************************************************
-
-
-      module test_mtx_support
-      
-      use mtx_lib
-      use mtx_def
-      use utils_lib, only: mesa_error 
-     
-      implicit none
-
-
-      
-      contains
-      
-      
-      subroutine test_format_conversion
-         use mtx_def
-         integer,parameter :: n=6
-         integer,parameter :: nzmax = n*n,nrow = n,ncol = n,ndns = n,ndim = n
-         integer,parameter :: iwk = nzmax,im = 10
-         
-         real(dp) :: a(ndim,n),a2(ndim,n),values(nzmax)
-         integer,parameter :: ml = 1,mu = 2, ldbb = 2*ml+mu+1
-         real(dp) :: b(ndim,n),b2(ndim,n),bb(ldbb,n),bb2(ldbb,n)
-         integer :: ierr,nz,iptr(n+1),jind(nzmax),i,j,k,kk,hint
-         
-         write(*,*) 'test_format_conversion'
-         
-         a(1,1:n) = (/ 10d0, 0d0, 0d0, 0d0,  0d0, 0d0 /)
-         a(2,1:n) = (/  0d0,12d0,-3d0,-1d0,  0d0, 0d0 /)
-         a(3,1:n) = (/  0d0, 0d0,15d0, 0d0,  0d0, 0d0 /)
-         a(4,1:n) = (/ -2d0, 0d0, 0d0,10d0, -1d0, 0d0 /)
-         a(5,1:n) = (/ -1d0, 0d0, 0d0,-5d0,  1d0,-1d0 /)
-         a(6,1:n) = (/ -1d0,-2d0, 0d0, 0d0,  0d0, 6d0 /)
-         
-         b(1,1:n) = (/ 10d0, 0d0, 0d0, 0d0,  0d0, 0d0 /)
-         b(2,1:n) = (/ -2d0,12d0,-3d0,-1d0,  0d0, 0d0 /)
-         b(3,1:n) = (/  0d0, 1d0,15d0, 0d0,  0d0, 0d0 /)
-         b(4,1:n) = (/  0d0, 0d0, 0d0,10d0, -1d0, 0d0 /)
-         b(5,1:n) = (/  0d0, 0d0, 0d0,-5d0,  1d0,-1d0 /)
-         b(6,1:n) = (/  0d0, 0d0, 0d0, 0d0,  0d0, 6d0 /)
-         
-         ierr = 0
-         
-         write(*,*) 'dense_to_row_sparse'
-         call dense_to_row_sparse(n,ndim,a,nzmax,nz,iptr,jind,values,ierr)
-         if (ierr /= 0) call mesa_error(__FILE__,__LINE__)
-         a2 = -1
-         write(*,*) 'find_loc_in_row_sparse'
-         do i=1,n
-            hint = 0
-            do k=iptr(i),iptr(i+1)-1
-               j = jind(k)
-               call find_loc_in_sparse(compressed_row_sparse,n,nzmax,iptr,jind,i,j,hint,kk,ierr)
-               if (kk /= k .or. ierr /= 0) then
-                  write(*,*) 'failure in find_loc_in_row_sparse', i, j, k, kk
-                  call mesa_error(__FILE__,__LINE__)
-               end if
-               hint = k
-            end do
-         end do
-              
-         write(*,*) 'dense_to_band'
-         call dense_to_band(n,ndim,b,ml,mu,bb,ldbb,ierr)
-         if (ierr /= 0) call mesa_error(__FILE__,__LINE__)
-
-         write(*,*) 'band_to_dense'
-         a2 = -1
-         call band_to_dense(n,ml,mu,bb,ldbb,ndim,a2,ierr)
-         if (ierr /= 0) call mesa_error(__FILE__,__LINE__)
-         if (any(b /= a2)) call mesa_error(__FILE__,__LINE__)
-         
-         write(*,*) 'band_to_column_sparse'
-         call band_to_column_sparse(n,ml,mu,bb,ldbb,nzmax,nz,iptr,jind,values,ierr)
-         if (ierr /= 0) call mesa_error(__FILE__,__LINE__)
-         
-         write(*,*) 'column_sparse_to_band'
-         bb2 = -1
-         call column_sparse_to_band(n,ml,mu,bb2,ldbb,nz,iptr,jind,values,ierr)
-         if (ierr /= 0) call mesa_error(__FILE__,__LINE__)
-         if (any(bb /= bb2)) call mesa_error(__FILE__,__LINE__)
-         
-         write(*,*) 'band_to_row_sparse'
-         call band_to_row_sparse(n,ml,mu,bb,ldbb,nzmax,nz,iptr,jind,values,ierr)
-         if (ierr /= 0) call mesa_error(__FILE__,__LINE__)
-
-         write(*,*) 'okay'
-         write(*,*)
-      
-      end subroutine test_format_conversion
-      
-      
-      subroutine test_quad_tridiag
-         integer, parameter :: n = 5
-         real(16), dimension(n) :: DL, D, DU, DU2, B
-         integer, dimension(n) :: ip
-         integer :: ierr, i
-         
-         write(*,*) 'test_quad_tridiag'
-
-         DL = -2  ! subdiagonal
-         D =   3  ! diagonal
-         DU = -1  ! superdiagonal
-
-         do i=1,n
-            b(i) = i-1
-         end do
-         
-         ierr = 0
-         ! factor
-         call qgttrf(n, DL, D, DU, DU2, ip, ierr)
-         if (ierr /= 0) then
-            write(*,*) 'failed in factoring'
-            call mesa_error(__FILE__,__LINE__)
-         end if
-         
-         ierr = 0
-         ! solve
-         call qgttrs( 'N', n, 1, DL, D, DU, DU2, ip, B, n, ierr)
-         if (ierr /= 0) then
-            write(*,*) 'failed in solving'
-            call mesa_error(__FILE__,__LINE__)
-         end if
-      
-         do i=1,n
-            write(*,*) i, b(i)
-         end do
-         write(*,*)
-         write(*,*)
-         
-      end subroutine test_quad_tridiag
-      
-
-
-   end module test_mtx_support
diff --git a/mtx/test/src/test_mtx_support.f90 b/mtx/test/src/test_mtx_support.f90
new file mode 100644
index 000000000..603a6ea5a
--- /dev/null
+++ b/mtx/test/src/test_mtx_support.f90
@@ -0,0 +1,148 @@
+! ***********************************************************************
+!
+!   Copyright (C) 2011  Bill Paxton
+!
+!   This file is part of MESA.
+!
+!   MESA is free software; you can redistribute it and/or modify
+!   it under the terms of the GNU General Library Public License as published
+!   by the Free Software Foundation; either version 2 of the License,or
+!   (at your option) any later version.
+!
+!   MESA is distributed in the hope that it will be useful,
+!   but WITHOUT ANY WARRANTY; without even the implied warranty of
+!   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+!   GNU Library General Public License for more details.
+!
+!   You should have received a copy of the GNU Library General Public License
+!   along with this software; if not,write to the Free Software
+!   Foundation,Inc.,59 Temple Place,Suite 330,Boston,MA 02111-1307 USA
+!
+! ***********************************************************************
+
+module test_mtx_support
+
+   use mtx_lib
+   use mtx_def
+   use utils_lib, only: mesa_error
+
+   implicit none
+
+contains
+
+   subroutine test_format_conversion
+      use mtx_def
+      integer, parameter :: n = 6
+      integer, parameter :: nzmax = n*n, ndim = n
+
+      real(dp) :: a(ndim, n), a2(ndim, n), values(nzmax)
+      integer, parameter :: ml = 1, mu = 2, ldbb = 2*ml + mu + 1
+      real(dp) :: b(ndim, n), bb(ldbb, n), bb2(ldbb, n)
+      integer :: ierr, nz, iptr(n + 1), jind(nzmax), i, j, k, kk, hint
+
+      write (*, *) 'test_format_conversion'
+
+      a(1, 1:n) = (/10d0, 0d0, 0d0, 0d0, 0d0, 0d0/)
+      a(2, 1:n) = (/0d0, 12d0, -3d0, -1d0, 0d0, 0d0/)
+      a(3, 1:n) = (/0d0, 0d0, 15d0, 0d0, 0d0, 0d0/)
+      a(4, 1:n) = (/-2d0, 0d0, 0d0, 10d0, -1d0, 0d0/)
+      a(5, 1:n) = (/-1d0, 0d0, 0d0, -5d0, 1d0, -1d0/)
+      a(6, 1:n) = (/-1d0, -2d0, 0d0, 0d0, 0d0, 6d0/)
+
+      b(1, 1:n) = (/10d0, 0d0, 0d0, 0d0, 0d0, 0d0/)
+      b(2, 1:n) = (/-2d0, 12d0, -3d0, -1d0, 0d0, 0d0/)
+      b(3, 1:n) = (/0d0, 1d0, 15d0, 0d0, 0d0, 0d0/)
+      b(4, 1:n) = (/0d0, 0d0, 0d0, 10d0, -1d0, 0d0/)
+      b(5, 1:n) = (/0d0, 0d0, 0d0, -5d0, 1d0, -1d0/)
+      b(6, 1:n) = (/0d0, 0d0, 0d0, 0d0, 0d0, 6d0/)
+
+      ierr = 0
+
+      write (*, *) 'dense_to_row_sparse'
+      call dense_to_row_sparse(n, ndim, a, nzmax, nz, iptr, jind, values, ierr)
+      if (ierr /= 0) call mesa_error(__FILE__, __LINE__)
+      a2 = -1
+      write (*, *) 'find_loc_in_row_sparse'
+      do i = 1, n
+         hint = 0
+         do k = iptr(i), iptr(i + 1) - 1
+            j = jind(k)
+            call find_loc_in_sparse(compressed_row_sparse, n, nzmax, iptr, jind, i, j, hint, kk, ierr)
+            if (kk /= k .or. ierr /= 0) then
+               write (*, *) 'failure in find_loc_in_row_sparse', i, j, k, kk
+               call mesa_error(__FILE__, __LINE__)
+            end if
+            hint = k
+         end do
+      end do
+
+      write (*, *) 'dense_to_band'
+      call dense_to_band(n, ndim, b, ml, mu, bb, ldbb, ierr)
+      if (ierr /= 0) call mesa_error(__FILE__, __LINE__)
+
+      write (*, *) 'band_to_dense'
+      a2 = -1
+      call band_to_dense(n, ml, mu, bb, ldbb, ndim, a2, ierr)
+      if (ierr /= 0) call mesa_error(__FILE__, __LINE__)
+      if (any(b /= a2)) call mesa_error(__FILE__, __LINE__)
+
+      write (*, *) 'band_to_column_sparse'
+      call band_to_column_sparse(n, ml, mu, bb, ldbb, nzmax, nz, iptr, jind, values, ierr)
+      if (ierr /= 0) call mesa_error(__FILE__, __LINE__)
+
+      write (*, *) 'column_sparse_to_band'
+      bb2 = -1
+      call column_sparse_to_band(n, ml, mu, bb2, ldbb, nz, iptr, jind, values, ierr)
+      if (ierr /= 0) call mesa_error(__FILE__, __LINE__)
+      if (any(bb /= bb2)) call mesa_error(__FILE__, __LINE__)
+
+      write (*, *) 'band_to_row_sparse'
+      call band_to_row_sparse(n, ml, mu, bb, ldbb, nzmax, nz, iptr, jind, values, ierr)
+      if (ierr /= 0) call mesa_error(__FILE__, __LINE__)
+
+      write (*, *) 'okay'
+      write (*, *)
+
+   end subroutine test_format_conversion
+
+   subroutine test_quad_tridiag
+      integer, parameter :: n = 5
+      real(16), dimension(n) :: DL, D, DU, DU2, B
+      integer, dimension(n) :: ip
+      integer :: ierr, i
+
+      write (*, *) 'test_quad_tridiag'
+
+      DL = -2  ! subdiagonal
+      D = 3  ! diagonal
+      DU = -1  ! superdiagonal
+
+      do i = 1, n
+         b(i) = i - 1
+      end do
+
+      ierr = 0
+      ! factor
+      call qgttrf(n, DL, D, DU, DU2, ip, ierr)
+      if (ierr /= 0) then
+         write (*, *) 'failed in factoring'
+         call mesa_error(__FILE__, __LINE__)
+      end if
+
+      ierr = 0
+      ! solve
+      call qgttrs('N', n, 1, DL, D, DU, DU2, ip, B, n, ierr)
+      if (ierr /= 0) then
+         write (*, *) 'failed in solving'
+         call mesa_error(__FILE__, __LINE__)
+      end if
+
+      do i = 1, n
+         write (*, *) i, b(i)
+      end do
+      write (*, *)
+      write (*, *)
+
+   end subroutine test_quad_tridiag
+
+end module test_mtx_support
diff --git a/mtx/test/src/test_square.f b/mtx/test/src/test_square.f
deleted file mode 100644
index f0eece3d9..000000000
--- a/mtx/test/src/test_square.f
+++ /dev/null
@@ -1,186 +0,0 @@
-! ***********************************************************************
-!
-!   Copyright (C) 2011  Bill Paxton
-!
-!   This file is part of MESA.
-!
-!   MESA is free software; you can redistribute it and/or modify
-!   it under the terms of the GNU General Library Public License as published
-!   by the Free Software Foundation; either version 2 of the License,or
-!   (at your option) any later version.
-!
-!   MESA is distributed in the hope that it will be useful,
-!   but WITHOUT ANY WARRANTY; without even the implied warranty of
-!   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-!   GNU Library General Public License for more details.
-!
-!   You should have received a copy of the GNU Library General Public License
-!   along with this software; if not,write to the Free Software
-!   Foundation,Inc.,59 Temple Place,Suite 330,Boston,MA 02111-1307 USA
-!
-! ***********************************************************************
-
-
-      module test_square
-      
-      use mtx_lib
-      use mtx_def
-      use utils_lib, only: mesa_error
-      
-      implicit none
-      
-      contains
-      
-      
-      
-      subroutine do_test_square
-         call test_square1
-         call test_square2
-         call test_square_inv
-      end subroutine do_test_square
-      
-      
-      subroutine test_square_inv
-      
-      
-         integer,parameter :: n=3, nrhs=1
-         integer :: i,info,ipiv(n),icommon(n)
-         double precision :: A1(n,n),B1(n),A2(n,n),B2(n),work(4*n),rcond
-         double precision :: A1_init(n,n),A2_init(n,n),X(n),prod(n)
-         
-         include 'formats'
-         
-         write(*,*) 'test_square_inv'
-         write(*,*)
-      
-         A1(1,1:n) = (/ 3.14d0,7.5d0, 0.00d0 /)
-         A1(2,1:n) = (/ 4.1d0,3.2d0,0.3d0 /)
-         A1(3,1:n) = (/ 0.00d0,1d0,4.1d0 /)
-         A1_init = A1
-      
-         A2(1,1:n) = (/ 0d0,3.1d0,0d0 /)
-         A2(2,1:n) = (/ 4.7d0,6.2d0,0d0 /)
-         A2(3,1:n) = (/ 3.2d0,0d0,0.31d0 /)
-         A2_init = A2
-         
-         B1(1:n) = (/ 1.0d0,2.0d0,3.0d0 /)
-         B2(1:n) = (/ 1.1d0,2.1d0,3.1d0 /)
-         
-         
-               
-         call DGETRF(n,n,A1,n,ipiv,info)
-         if (info /= 0) then
-            write(*,*) 'singular matrix?', info
-            call mesa_error(__FILE__,__LINE__)
-         end if
-         X = B1
-         ! solve A1*X = B1
-         call DGETRS('N',n,nrhs,A1,n,ipiv,X,n,info)
-         if (info /= 0) call mesa_error(__FILE__,__LINE__)
-         
-         write(*,1) 'B1', B1(1:n)
-         ! prod = A1_init*X; should get prod == B1
-         call dgemv('N',n,n,1d0,A1_init,n,X,1,0d0,prod,1)
-         write(*,1) 'A1_init*X', prod(1:n)
-         ! prod = A1*X; should get prod == B1
-
-         call DGETRF(n,n,A2,n,ipiv,info)
-         if (info /= 0) then
-            write(*,*) 'singular matrix?', info
-            call mesa_error(__FILE__,__LINE__)
-         end if
-         X = B2
-         ! solve A2*X = B2
-         call DGETRS('N',n,nrhs,A2,n,ipiv,X,n,info)
-         if (info /= 0) call mesa_error(__FILE__,__LINE__)
-
-         write(*,1) 'B2', B2(1:n)
-         ! prod = A2_init*X; should get prod == B2
-         call dgemv('N',n,n,1d0,A2_init,n,X,1,0d0,prod,1)
-         write(*,1) 'A2_init*X', prod(1:n)
-         ! prod = A2*X; should get prod == B2
-     
-      end subroutine test_square_inv
-      
-      
-      subroutine test_square2
-      
-         integer,parameter :: n=3,nrhs=1
-         integer :: i,info,ipiv(n),icommon(n)
-         double precision :: A1(n,n),B1(n,nrhs),A2(n,n),B2(n,nrhs),work(4*n),rcond
-         
-         include 'formats'
-         
-         write(*,*) 'test_square2'
-         write(*,*)
-      
-         A1(1,1:n) = (/ 3.14d0,7.5d0, 0.00d0 /)
-         A1(2,1:n) = (/ 4.1d0,3.2d0,0.3d0 /)
-         A1(3,1:n) = (/ 0.00d0,1d0,4.1d0 /)
-      
-         A2(1,1:n) = (/ 4.7d0,6.2d0,0d0 /)
-         A2(2,1:n) = (/ 3.2d0,0d0,0.31d0 /)
-         A2(3,1:n) = (/ 0d0,3.1d0,0d0 /)
-         
-         B1(1:n,1) = (/ 1.0d0,2.0d0,3.0d0 /)
-         B2(1:n,1) = (/ 1.1d0,2.1d0,3.1d0 /)
-               
-         call DGETRF(n,n,A1,n,ipiv,info)
-         if (info /= 0) then
-            write(*,*) 'singular matrix?', info
-            call mesa_error(__FILE__,__LINE__)
-         end if
-         call DGETRS('N',n,nrhs,A1,n,ipiv,B1,n,info)
-         if (info /= 0) call mesa_error(__FILE__,__LINE__)
-
-         write(*,1) 'B1', B1(1:n,1)
-               
-         call DGETRF(n,n,A2,n,ipiv,info)
-         if (info /= 0) then
-            write(*,*) 'singular matrix?', info
-            call mesa_error(__FILE__,__LINE__)
-         end if
-         call DGETRS('N',n,nrhs,A2,n,ipiv,B2,n,info)
-         if (info /= 0) call mesa_error(__FILE__,__LINE__)
-
-         write(*,1) 'B2', B2(1:n,1)
-         write(*,*)
-      
-      end subroutine test_square2
-      
-      
-      subroutine test_square1
-      
-         integer,parameter :: n=4,nrhs=1
-         integer :: i,info,ipiv(n),iwork(n)
-         double precision :: A(n,n),B(n,nrhs),A2(n,n),work(4*n),rcond
-         
-         include 'formats'
-      
-         A(1,1:n) = (/ 1.80d0,  2.88d0,  2.05d0, 0.00d0 /)
-         A(2,1:n) = (/ 5.25d0, -2.95d0, -0.95d0, -3.80d0 /)
-         A(3,1:n) = (/ 0.00d0, 0.00d0, -2.90d0, -1.04d0 /)
-         A(4,1:n) = (/-1.11d0, 0.00d0, -0.59d0,  0.80d0 /)
-         B(1:n,1) = (/ 4.35d0,5.05d0,3.04d0,-2.05d0 /)
-      
-         A2 = A
-         
-         write(*,*) ' test_square1'
-         write(*,*)
-         
-         call DGETRF(n,n,A,n,ipiv,info)
-         if (info /= 0) then
-            write(*,*) 'singular matrix?', info
-            call mesa_error(__FILE__,__LINE__)
-         end if
-         
-         call DGETRS('N',n,nrhs,A,n,ipiv,B,n,info)
-         if (info /= 0) call mesa_error(__FILE__,__LINE__)
-
-         write(*,1) 'B', B(1:n,1)
-         write(*,*)
-      
-      end subroutine test_square1
-
-
-      end module test_square
diff --git a/mtx/test/src/test_square.f90 b/mtx/test/src/test_square.f90
new file mode 100644
index 000000000..875939cb2
--- /dev/null
+++ b/mtx/test/src/test_square.f90
@@ -0,0 +1,176 @@
+! ***********************************************************************
+!
+!   Copyright (C) 2011  Bill Paxton
+!
+!   This file is part of MESA.
+!
+!   MESA is free software; you can redistribute it and/or modify
+!   it under the terms of the GNU General Library Public License as published
+!   by the Free Software Foundation; either version 2 of the License,or
+!   (at your option) any later version.
+!
+!   MESA is distributed in the hope that it will be useful,
+!   but WITHOUT ANY WARRANTY; without even the implied warranty of
+!   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+!   GNU Library General Public License for more details.
+!
+!   You should have received a copy of the GNU Library General Public License
+!   along with this software; if not,write to the Free Software
+!   Foundation,Inc.,59 Temple Place,Suite 330,Boston,MA 02111-1307 USA
+!
+! ***********************************************************************
+
+module test_square
+
+   use mtx_lib
+   use mtx_def
+   use utils_lib, only: mesa_error
+
+   implicit none
+
+contains
+
+   subroutine do_test_square
+      call test_square1
+      call test_square2
+      call test_square_inv
+   end subroutine do_test_square
+
+   subroutine test_square_inv
+
+      integer, parameter :: n = 3, nrhs = 1
+      integer :: info, ipiv(n)
+      double precision :: A1(n, n), B1(n), A2(n, n), B2(n)
+      double precision :: A1_init(n, n), A2_init(n, n), X(n), prod(n)
+
+      include 'formats'
+
+      write (*, *) 'test_square_inv'
+      write (*, *)
+
+      A1(1, 1:n) = (/3.14d0, 7.5d0, 0.00d0/)
+      A1(2, 1:n) = (/4.1d0, 3.2d0, 0.3d0/)
+      A1(3, 1:n) = (/0.00d0, 1d0, 4.1d0/)
+      A1_init = A1
+
+      A2(1, 1:n) = (/0d0, 3.1d0, 0d0/)
+      A2(2, 1:n) = (/4.7d0, 6.2d0, 0d0/)
+      A2(3, 1:n) = (/3.2d0, 0d0, 0.31d0/)
+      A2_init = A2
+
+      B1(1:n) = (/1.0d0, 2.0d0, 3.0d0/)
+      B2(1:n) = (/1.1d0, 2.1d0, 3.1d0/)
+
+      call DGETRF(n, n, A1, n, ipiv, info)
+      if (info /= 0) then
+         write (*, *) 'singular matrix?', info
+         call mesa_error(__FILE__, __LINE__)
+      end if
+      X = B1
+      ! solve A1*X = B1
+      call DGETRS('N', n, nrhs, A1, n, ipiv, X, n, info)
+      if (info /= 0) call mesa_error(__FILE__, __LINE__)
+
+      write (*, 1) 'B1', B1(1:n)
+      ! prod = A1_init*X; should get prod == B1
+      call dgemv('N', n, n, 1d0, A1_init, n, X, 1, 0d0, prod, 1)
+      write (*, 1) 'A1_init*X', prod(1:n)
+      ! prod = A1*X; should get prod == B1
+
+      call DGETRF(n, n, A2, n, ipiv, info)
+      if (info /= 0) then
+         write (*, *) 'singular matrix?', info
+         call mesa_error(__FILE__, __LINE__)
+      end if
+      X = B2
+      ! solve A2*X = B2
+      call DGETRS('N', n, nrhs, A2, n, ipiv, X, n, info)
+      if (info /= 0) call mesa_error(__FILE__, __LINE__)
+
+      write (*, 1) 'B2', B2(1:n)
+      ! prod = A2_init*X; should get prod == B2
+      call dgemv('N', n, n, 1d0, A2_init, n, X, 1, 0d0, prod, 1)
+      write (*, 1) 'A2_init*X', prod(1:n)
+      ! prod = A2*X; should get prod == B2
+
+   end subroutine test_square_inv
+
+   subroutine test_square2
+
+      integer, parameter :: n = 3, nrhs = 1
+      integer :: info, ipiv(n)
+      double precision :: A1(n, n), B1(n, nrhs), A2(n, n), B2(n, nrhs)
+
+      include 'formats'
+
+      write (*, *) 'test_square2'
+      write (*, *)
+
+      A1(1, 1:n) = (/3.14d0, 7.5d0, 0.00d0/)
+      A1(2, 1:n) = (/4.1d0, 3.2d0, 0.3d0/)
+      A1(3, 1:n) = (/0.00d0, 1d0, 4.1d0/)
+
+      A2(1, 1:n) = (/4.7d0, 6.2d0, 0d0/)
+      A2(2, 1:n) = (/3.2d0, 0d0, 0.31d0/)
+      A2(3, 1:n) = (/0d0, 3.1d0, 0d0/)
+
+      B1(1:n, 1) = (/1.0d0, 2.0d0, 3.0d0/)
+      B2(1:n, 1) = (/1.1d0, 2.1d0, 3.1d0/)
+
+      call DGETRF(n, n, A1, n, ipiv, info)
+      if (info /= 0) then
+         write (*, *) 'singular matrix?', info
+         call mesa_error(__FILE__, __LINE__)
+      end if
+      call DGETRS('N', n, nrhs, A1, n, ipiv, B1, n, info)
+      if (info /= 0) call mesa_error(__FILE__, __LINE__)
+
+      write (*, 1) 'B1', B1(1:n, 1)
+
+      call DGETRF(n, n, A2, n, ipiv, info)
+      if (info /= 0) then
+         write (*, *) 'singular matrix?', info
+         call mesa_error(__FILE__, __LINE__)
+      end if
+      call DGETRS('N', n, nrhs, A2, n, ipiv, B2, n, info)
+      if (info /= 0) call mesa_error(__FILE__, __LINE__)
+
+      write (*, 1) 'B2', B2(1:n, 1)
+      write (*, *)
+
+   end subroutine test_square2
+
+   subroutine test_square1
+
+      integer, parameter :: n = 4, nrhs = 1
+      integer :: info, ipiv(n)
+      double precision :: A(n, n), B(n, nrhs), A2(n, n)
+
+      include 'formats'
+
+      A(1, 1:n) = (/1.80d0, 2.88d0, 2.05d0, 0.00d0/)
+      A(2, 1:n) = (/5.25d0, -2.95d0, -0.95d0, -3.80d0/)
+      A(3, 1:n) = (/0.00d0, 0.00d0, -2.90d0, -1.04d0/)
+      A(4, 1:n) = (/-1.11d0, 0.00d0, -0.59d0, 0.80d0/)
+      B(1:n, 1) = (/4.35d0, 5.05d0, 3.04d0, -2.05d0/)
+
+      A2 = A
+
+      write (*, *) ' test_square1'
+      write (*, *)
+
+      call DGETRF(n, n, A, n, ipiv, info)
+      if (info /= 0) then
+         write (*, *) 'singular matrix?', info
+         call mesa_error(__FILE__, __LINE__)
+      end if
+
+      call DGETRS('N', n, nrhs, A, n, ipiv, B, n, info)
+      if (info /= 0) call mesa_error(__FILE__, __LINE__)
+
+      write (*, 1) 'B', B(1:n, 1)
+      write (*, *)
+
+   end subroutine test_square1
+
+end module test_square
diff --git a/mtx/test/src/test_square_quad.f b/mtx/test/src/test_square_quad.f
deleted file mode 100644
index fe2c293a7..000000000
--- a/mtx/test/src/test_square_quad.f
+++ /dev/null
@@ -1,182 +0,0 @@
-! ***********************************************************************
-!
-!   Copyright (C) 2011  Bill Paxton
-!
-!   This file is part of MESA.
-!
-!   MESA is free software; you can redistribute it and/or modify
-!   it under the terms of the GNU General Library Public License as published
-!   by the Free Software Foundation; either version 2 of the License,or
-!   (at your option) any later version.
-!
-!   MESA is distributed in the hope that it will be useful,
-!   but WITHOUT ANY WARRANTY; without even the implied warranty of
-!   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-!   GNU Library General Public License for more details.
-!
-!   You should have received a copy of the GNU Library General Public License
-!   along with this software; if not,write to the Free Software
-!   Foundation,Inc.,59 Temple Place,Suite 330,Boston,MA 02111-1307 USA
-!
-! ***********************************************************************
-
-
-      module test_square_quad
-      
-      use mtx_lib
-      use mtx_def
-      use utils_lib, only: mesa_error
-      
-      implicit none
-      
-      contains
-      
-      
-      
-      subroutine do_test_square_quad
-         call test_square_quad1
-         call test_square_quad2
-         call test_square_quad_inv
-      end subroutine do_test_square_quad
-      
-      
-      subroutine test_square_quad_inv
-      
-         integer,parameter :: n=3, nrhs=1
-         integer :: i,info,ipiv(n),icommon(n)
-         real(16) :: A1(n,n),B1(n),A2(n,n),B2(n),work(4*n),rcond
-         real(16) :: A1_init(n,n),A2_init(n,n),X(n),prod(n)
-         
-         include 'formats'
-         
-         write(*,*) 'test_square_quad_inv'
-         write(*,*)
-      
-         A1(1,1:n) = (/ 3.14_16,7.5_16, 0.00_16 /)
-         A1(2,1:n) = (/ 4.1_16,3.2_16,0.3_16 /)
-         A1(3,1:n) = (/ 0.00_16,1.0_16,4.1_16 /)
-         A1_init = A1
-      
-         A2(1,1:n) = (/ 0.0_16,3.1_16,0.0_16 /)
-         A2(2,1:n) = (/ 4.7_16,6.2_16,0.0_16 /)
-         A2(3,1:n) = (/ 3.2_16,0.0_16,0.31_16 /)
-         A2_init = A2
-         
-         B1(1:n) = (/ 1.0_16,2.0_16,3.0_16 /)
-         B2(1:n) = (/ 1.1_16,2.1_16,3.1_16 /)
-         
-         info = 0
-         call QGETRF(n,n,A1,n,ipiv,info)
-         if (info /= 0) then
-            write(*,*) 'singular matrix?', info
-            call mesa_error(__FILE__,__LINE__)
-         end if
-         X = B1
-         ! solve A1*X = B1
-         call QGETRS('N',n,nrhs,A1,n,ipiv,X,n,info)
-         if (info /= 0) call mesa_error(__FILE__,__LINE__)
-         
-         write(*,1) 'B1', B1(1:n)
-         ! prod = A1_init*X; should get prod == B1
-         
-         write(*,*) 'ipiv1', ipiv(1:n)
-         write(*,*)
-               
-         call QGETRF(n,n,A2,n,ipiv,info)
-         if (info /= 0) then
-            write(*,*) 'singular matrix?', info
-            call mesa_error(__FILE__,__LINE__)
-         end if
-         X = B2
-         ! solve A2*X = B2
-         call QGETRS('N',n,nrhs,A2,n,ipiv,X,n,info)
-         if (info /= 0) call mesa_error(__FILE__,__LINE__)
-
-         write(*,1) 'B2', B2(1:n)
-      
-      end subroutine test_square_quad_inv
-      
-      
-      subroutine test_square_quad2
-      
-         integer,parameter :: n=3,nrhs=1
-         integer :: i,info,ipiv(n),icommon(n)
-         real(16) :: A1(n,n),B1(n,nrhs),A2(n,n),B2(n,nrhs),work(4*n),rcond
-         
-         include 'formats'
-         
-         write(*,*) 'test test_square_quad2'
-         write(*,*)
-      
-         A1(1,1:n) = (/ 3.14_16,7.5_16, 0.0_16 /)
-         A1(2,1:n) = (/ 4.1_16,3.2_16,0.3_16 /)
-         A1(3,1:n) = (/ 0.00_16,1.0_16,4.1_16 /)
-      
-         A2(1,1:n) = (/ 4.7_16,6.2_16,0.0_16 /)
-         A2(2,1:n) = (/ 3.2_16,0.0_16,0.31_16 /)
-         A2(3,1:n) = (/ 0.0_16,3.1_16,0.0_16 /)
-         
-         B1(1:n,1) = (/ 1.0_16,2.0_16,3.0_16 /)
-         B2(1:n,1) = (/ 1.1_16,2.1_16,3.1_16 /)
-               
-         info = 0
-         call QGETRF(n,n,A1,n,ipiv,info)
-         if (info /= 0) then
-            write(*,*) 'singular matrix?', info
-            call mesa_error(__FILE__,__LINE__)
-         end if
-         call QGETRS('N',n,nrhs,A1,n,ipiv,B1,n,info)
-         if (info /= 0) call mesa_error(__FILE__,__LINE__)
-
-         write(*,1) 'B1', B1(1:n,1)
-               
-         call QGETRF(n,n,A2,n,ipiv,info)
-         if (info /= 0) then
-            write(*,*) 'singular matrix'
-            call mesa_error(__FILE__,__LINE__)
-         end if
-         call QGETRS('N',n,nrhs,A2,n,ipiv,B2,n,info)
-         if (info /= 0) call mesa_error(__FILE__,__LINE__)
-
-         write(*,1) 'B2', B2(1:n,1)
-         write(*,*)
-      
-      end subroutine test_square_quad2
-      
-      
-      subroutine test_square_quad1
-      
-         integer,parameter :: n=4,nrhs=1
-         integer :: i,info,ipiv(n),iwork(n)
-         real(16) :: A(n,n),B(n,nrhs),A2(n,n),work(4*n),rcond
-         
-         include 'formats'
-      
-         A(1,1:n) = (/ 1.80_16,  2.88_16,  2.05_16,  0.00_16 /)
-         A(2,1:n) = (/ 5.25_16, -2.95_16, -0.95_16, -3.80_16 /)
-         A(3,1:n) = (/ 0.00_16,  0.00_16, -2.90_16, -1.04_16 /)
-         A(4,1:n) = (/-1.11_16,  0.00_16, -0.59_16,  0.80_16 /)
-         B(1:n,1) = (/ 4.35_16,  5.05_16,  3.04_16, -2.05_16 /)
-      
-         A2 = A
-         
-         write(*,*) ' test_square_quad1'
-         write(*,*)
-         
-         info = 0
-         call QGETRF(n,n,A,n,ipiv,info)
-         if (info /= 0) then
-            write(*,*) 'singular matrix?', info
-            call mesa_error(__FILE__,__LINE__)
-         end if
-         
-         call QGETRS('N',n,nrhs,A,n,ipiv,B,n,info)
-         if (info /= 0) call mesa_error(__FILE__,__LINE__)
-
-         write(*,1) 'B', B(1:n,1)
-         write(*,*)
-      
-      end subroutine test_square_quad1
-
-
-      end module test_square_quad
diff --git a/mtx/test/src/test_square_quad.f90 b/mtx/test/src/test_square_quad.f90
new file mode 100644
index 000000000..505a27b69
--- /dev/null
+++ b/mtx/test/src/test_square_quad.f90
@@ -0,0 +1,175 @@
+! ***********************************************************************
+!
+!   Copyright (C) 2011  Bill Paxton
+!
+!   This file is part of MESA.
+!
+!   MESA is free software; you can redistribute it and/or modify
+!   it under the terms of the GNU General Library Public License as published
+!   by the Free Software Foundation; either version 2 of the License,or
+!   (at your option) any later version.
+!
+!   MESA is distributed in the hope that it will be useful,
+!   but WITHOUT ANY WARRANTY; without even the implied warranty of
+!   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+!   GNU Library General Public License for more details.
+!
+!   You should have received a copy of the GNU Library General Public License
+!   along with this software; if not,write to the Free Software
+!   Foundation,Inc.,59 Temple Place,Suite 330,Boston,MA 02111-1307 USA
+!
+! ***********************************************************************
+
+module test_square_quad
+
+   use mtx_lib
+   use mtx_def
+   use utils_lib, only: mesa_error
+
+   implicit none
+
+contains
+
+   subroutine do_test_square_quad
+      call test_square_quad1
+      call test_square_quad2
+      call test_square_quad_inv
+   end subroutine do_test_square_quad
+
+   subroutine test_square_quad_inv
+
+      integer, parameter :: n = 3, nrhs = 1
+      integer :: info, ipiv(n)
+      real(16) :: A1(n, n), B1(n), A2(n, n), B2(n)
+      real(16) :: A1_init(n, n), A2_init(n, n), X(n)
+
+      include 'formats'
+
+      write (*, *) 'test_square_quad_inv'
+      write (*, *)
+
+      A1(1, 1:n) = (/3.14_16, 7.5_16, 0.00_16/)
+      A1(2, 1:n) = (/4.1_16, 3.2_16, 0.3_16/)
+      A1(3, 1:n) = (/0.00_16, 1.0_16, 4.1_16/)
+      A1_init = A1
+
+      A2(1, 1:n) = (/0.0_16, 3.1_16, 0.0_16/)
+      A2(2, 1:n) = (/4.7_16, 6.2_16, 0.0_16/)
+      A2(3, 1:n) = (/3.2_16, 0.0_16, 0.31_16/)
+      A2_init = A2
+
+      B1(1:n) = (/1.0_16, 2.0_16, 3.0_16/)
+      B2(1:n) = (/1.1_16, 2.1_16, 3.1_16/)
+
+      info = 0
+      call QGETRF(n, n, A1, n, ipiv, info)
+      if (info /= 0) then
+         write (*, *) 'singular matrix?', info
+         call mesa_error(__FILE__, __LINE__)
+      end if
+      X = B1
+      ! solve A1*X = B1
+      call QGETRS('N', n, nrhs, A1, n, ipiv, X, n, info)
+      if (info /= 0) call mesa_error(__FILE__, __LINE__)
+
+      write (*, 1) 'B1', B1(1:n)
+      ! prod = A1_init*X; should get prod == B1
+
+      write (*, *) 'ipiv1', ipiv(1:n)
+      write (*, *)
+
+      call QGETRF(n, n, A2, n, ipiv, info)
+      if (info /= 0) then
+         write (*, *) 'singular matrix?', info
+         call mesa_error(__FILE__, __LINE__)
+      end if
+      X = B2
+      ! solve A2*X = B2
+      call QGETRS('N', n, nrhs, A2, n, ipiv, X, n, info)
+      if (info /= 0) call mesa_error(__FILE__, __LINE__)
+
+      write (*, 1) 'B2', B2(1:n)
+
+   end subroutine test_square_quad_inv
+
+   subroutine test_square_quad2
+
+      integer, parameter :: n = 3, nrhs = 1
+      integer :: info, ipiv(n)
+      real(16) :: A1(n, n), B1(n, nrhs), A2(n, n), B2(n, nrhs)
+
+      include 'formats'
+
+      write (*, *) 'test test_square_quad2'
+      write (*, *)
+
+      A1(1, 1:n) = (/3.14_16, 7.5_16, 0.0_16/)
+      A1(2, 1:n) = (/4.1_16, 3.2_16, 0.3_16/)
+      A1(3, 1:n) = (/0.00_16, 1.0_16, 4.1_16/)
+
+      A2(1, 1:n) = (/4.7_16, 6.2_16, 0.0_16/)
+      A2(2, 1:n) = (/3.2_16, 0.0_16, 0.31_16/)
+      A2(3, 1:n) = (/0.0_16, 3.1_16, 0.0_16/)
+
+      B1(1:n, 1) = (/1.0_16, 2.0_16, 3.0_16/)
+      B2(1:n, 1) = (/1.1_16, 2.1_16, 3.1_16/)
+
+      info = 0
+      call QGETRF(n, n, A1, n, ipiv, info)
+      if (info /= 0) then
+         write (*, *) 'singular matrix?', info
+         call mesa_error(__FILE__, __LINE__)
+      end if
+      call QGETRS('N', n, nrhs, A1, n, ipiv, B1, n, info)
+      if (info /= 0) call mesa_error(__FILE__, __LINE__)
+
+      write (*, 1) 'B1', B1(1:n, 1)
+
+      call QGETRF(n, n, A2, n, ipiv, info)
+      if (info /= 0) then
+         write (*, *) 'singular matrix'
+         call mesa_error(__FILE__, __LINE__)
+      end if
+      call QGETRS('N', n, nrhs, A2, n, ipiv, B2, n, info)
+      if (info /= 0) call mesa_error(__FILE__, __LINE__)
+
+      write (*, 1) 'B2', B2(1:n, 1)
+      write (*, *)
+
+   end subroutine test_square_quad2
+
+   subroutine test_square_quad1
+
+      integer, parameter :: n = 4, nrhs = 1
+      integer :: info, ipiv(n)
+      real(16) :: A(n, n), B(n, nrhs), A2(n, n)
+
+      include 'formats'
+
+      A(1, 1:n) = (/1.80_16, 2.88_16, 2.05_16, 0.00_16/)
+      A(2, 1:n) = (/5.25_16, -2.95_16, -0.95_16, -3.80_16/)
+      A(3, 1:n) = (/0.00_16, 0.00_16, -2.90_16, -1.04_16/)
+      A(4, 1:n) = (/-1.11_16, 0.00_16, -0.59_16, 0.80_16/)
+      B(1:n, 1) = (/4.35_16, 5.05_16, 3.04_16, -2.05_16/)
+
+      A2 = A
+
+      write (*, *) ' test_square_quad1'
+      write (*, *)
+
+      info = 0
+      call QGETRF(n, n, A, n, ipiv, info)
+      if (info /= 0) then
+         write (*, *) 'singular matrix?', info
+         call mesa_error(__FILE__, __LINE__)
+      end if
+
+      call QGETRS('N', n, nrhs, A, n, ipiv, B, n, info)
+      if (info /= 0) call mesa_error(__FILE__, __LINE__)
+
+      write (*, 1) 'B', B(1:n, 1)
+      write (*, *)
+
+   end subroutine test_square_quad1
+
+end module test_square_quad
diff --git a/mtx/test/src/test_trisolve.f b/mtx/test/src/test_trisolve.f
deleted file mode 100644
index 64de66cf4..000000000
--- a/mtx/test/src/test_trisolve.f
+++ /dev/null
@@ -1,282 +0,0 @@
-! ***********************************************************************
-!
-!   Copyright (C) 2012  Bill Paxton
-!
-!   This file is part of MESA.
-!
-!   MESA is free software; you can redistribute it and/or modify
-!   it under the terms of the GNU General Library Public License as published
-!   by the Free Software Foundation; either version 2 of the License,or
-!   (at your option) any later version.
-!
-!   MESA is distributed in the hope that it will be useful,
-!   but WITHOUT ANY WARRANTY; without even the implied warranty of
-!   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-!   GNU Library General Public License for more details.
-!
-!   You should have received a copy of the GNU Library General Public License
-!   along with this software; if not,write to the Free Software
-!   Foundation,Inc.,59 Temple Place,Suite 330,Boston,MA 02111-1307 USA
-!
-! ***********************************************************************
-
-#ifdef DBLE
-   module test_trisolve_dble
-#else
-   module test_trisolve_quad
-#endif
-   
-   use mtx_lib
-   use mtx_def
-   
-#ifdef DBLE
-      use const_def, only: dp
-#else
-      use const_def, only: qp
-#endif
-
-      use utils_lib, only: is_bad, mesa_error
-
-      implicit none
-
-#ifdef DBLE
-      integer, parameter :: fltp = dp
-#else
-      integer, parameter :: fltp = qp
-#endif
-
-   
-   contains
-   
-
-#ifdef DBLE
-   subroutine do_test_trisolve_dble(do_timing, for_release)
-#else
-   subroutine do_test_trisolve_quad(do_timing, for_release)
-#endif
-      logical, intent(in) :: do_timing, for_release
-      integer :: nvar, nz, ierr, i, j, k, lwork, liwork, n
-      real(fltp), dimension(:), pointer :: ublk_tst1, dblk_tst1, lblk_tst1, sol_tst1
-      real(fltp), dimension(:,:,:), pointer :: ublk_tst, dblk_tst, lblk_tst
-      real(fltp), dimension(:,:), pointer :: sol_tst, x, xcorrect
-      real(dp), dimension(:), pointer :: work
-      integer, dimension(:), pointer :: iwork
-      character (len=255) :: fname
-      
-      include 'formats'
-      
-      ierr = 0
-      write(*,*) 'do_test_trisolve'
-      ! setup test problem
-      if (for_release) then
-         fname = 'block_tri.data'
-      else
-         fname = 'block_tri_12.data'
-      end if
-      call read_testfile(fname, lblk_tst1, dblk_tst1, ublk_tst1)
-      lblk_tst(1:nvar,1:nvar,1:nz) => lblk_tst1(1:nvar*nvar*nz)
-      dblk_tst(1:nvar,1:nvar,1:nz) => dblk_tst1(1:nvar*nvar*nz)
-      ublk_tst(1:nvar,1:nvar,1:nz) => ublk_tst1(1:nvar*nvar*nz)
-      
-#ifdef DBLE
-      call mtx_trisolve_dble_work_sizes(nvar,nz,lwork,liwork)
-#else
-      call mtx_trisolve_quad_work_sizes(nvar,nz,lwork,liwork)
-#endif
-      allocate( &
-         x(nvar,nz), xcorrect(nvar,nz), sol_tst1(nvar*nz), &
-         work(lwork), iwork(liwork))
-      
-      sol_tst(1:nvar,1:nz) => sol_tst1(1:nvar*nz)
-
-      call set_xcorrect
-      call set_brhs(lblk_tst, dblk_tst, ublk_tst, sol_tst)
-      
-      
-      if (.false.) then ! output data in simple format
-         open(12,file='test_case.data',status='unknown')
-         write(12,*) nvar, nz
-         do k=1,nz
-            do i=1,nvar
-               do j=1,nvar
-                  write(12,*) ublk_tst(i,j,k), dblk_tst(i,j,k), lblk_tst(i,j,k)
-               end do
-            end do
-            do i=1,nvar
-               write(12,*) sol_tst(i,k), xcorrect(i,k)
-            end do
-         end do
-         close(12)
-         stop 'done output to test_case.data'
-      end if
-      
-      
-      if (.false.) then ! check data
-         write(*,*) trim(fname)
-         write(*,3) 'nvar nz', nvar, nz
-         do k=1,nz
-            do i=1,nvar
-               write(*,3) 'sol-xcorrect', i, k, sol_tst(i,k), xcorrect(i,k)
-               do j=1,nvar
-                  write(*,4) 'u-d-l', i, j, k, &
-                     ublk_tst(i,j,k), dblk_tst(i,j,k), lblk_tst(i,j,k)
-               end do
-            end do
-         end do
-         stop 'trisolve'
-      end if
-      
-!      sol_tst(1:nvar,1:nz) = 1d0
-!      ublk_tst(1:nvar,1:nvar,1:nz) = 1d0
-!      dblk_tst(1:nvar,1:nvar,1:nz) = 1d0
-!      lblk_tst(1:nvar,1:nvar,1:nz) = 1d0
-!      do i=1,nvar
-!         do k=1,nz
-!            dblk_tst(i,i,k) = 4d0
-!         end do
-!      end do
-      
-      
-#ifdef DBLE
-      call mtx_trisolve_dble( &
-#else
-      call mtx_trisolve_quad( &
-#endif
-         nvar, nz, lblk_tst1, dblk_tst1, ublk_tst1, sol_tst1, &
-         lwork, work, liwork, iwork, ierr)
-      if (ierr /= 0) call mesa_error(__FILE__,__LINE__)
-      
-      x = sol_tst
-      call check_x
-
-!      open(12,file='solution.dat',status='unknown')
-!      do n=1,nz
-!         do i=1,nvar
-!            write(12,*) sol_tst(i,n)
-!            write(*,*) sol_tst(i,n)
-!         end do
-!      end do
-      write(*,*)
-
-      deallocate( &
-         lblk_tst1, dblk_tst1, ublk_tst1, sol_tst1, x, xcorrect, work, iwork)
-
-      !stop 'trisolve'
-      
-      
-      contains
-         
-         
-      subroutine read_testfile(fname,lblk1,dblk1,ublk1)
-         character (len=*), intent(in) :: fname
-         real(fltp), dimension(:), pointer :: lblk1,dblk1,ublk1
-         integer :: iounit, ierr, i, j, k, line
-         iounit = 33; ierr = 0
-         open(unit=iounit, file=trim(fname), status='old', action='read', iostat=ierr)
-         if (ierr /= 0) then
-            write(*,*) 'failed to open ' // trim(fname)
-            call mesa_error(__FILE__,__LINE__)
-         end if
-#ifdef DBLE
-         call mtx_read_block_tridiagonal(iounit,nvar,nz,lblk1,dblk1,ublk1,ierr)
-#else
-         call mtx_read_quad_block_tridiagonal(iounit,nvar,nz,lblk1,dblk1,ublk1,ierr)
-#endif
-         if (ierr /= 0) then
-            write(*,*) 'failed to read ' // trim(fname)
-            call mesa_error(__FILE__,__LINE__)
-         end if
-         close(iounit)
-         
-         return
-         nz = 9
-         write(*,*) 'testing with small nz', nz
-         
-         
-      end subroutine read_testfile
-      
-      
-      subroutine set_xcorrect
-         real(fltp) :: cnt
-         integer :: k, j
-         cnt = 1d0
-         do k=1,nz
-            do j=1,nvar
-               cnt = cnt + 1d-3
-               xcorrect(j,k) = cnt
-            end do
-         end do
-      end subroutine set_xcorrect
-         
-         
-      subroutine set_brhs(lblk, dblk, ublk, brhs)
-         real(fltp), pointer, dimension(:,:,:) :: lblk, dblk, ublk
-         real(fltp), pointer, dimension(:,:) :: brhs
-         integer :: k, j
-         include 'formats'
-         ! set brhs = A*xcorrect
-#ifdef DBLE
-         call block_dble_mv(lblk, dblk, ublk, xcorrect, brhs)
-#else
-         call block_quad_mv(lblk, dblk, ublk, xcorrect, brhs)
-#endif
-      end subroutine set_brhs
-      
-      
-      subroutine check_x
-         real(fltp) :: max_err, err, atol, rtol, avg_err
-         integer :: i_max, j_max,i, j, rep        
-         include 'formats'
-         atol = 1d-4
-         rtol = 1d-4   
-         call check1_x(avg_err, max_err, atol, rtol, i_max, j_max)
-         i = i_max; j = j_max
-         if (max_err > 1) then
-            write(*,3) 'BAD: err, x, xcorrect', i, j, max_err, x(i,j), xcorrect(i,j)
-         else
-            write(*,3) 'solution matches xcorrect: nvar, nz', nvar, nz
-         end if
-      end subroutine check_x
-         
-         
-      subroutine check1_x(avg_err, max_err, atol, rtol, i_max, j_max)
-         real(fltp), intent(out) :: avg_err, max_err
-         real(fltp), intent(in) ::  atol, rtol
-         integer, intent(out) :: i_max, j_max
-         integer :: i, j
-         real(fltp) :: err_sum
-         real(fltp) :: err
-         include 'formats'
-         max_err = 0; i_max = 0; j_max = 0; err_sum = 0
-         do j = 1, nz
-            do i = 1, nvar
-               if (is_bad(x(i,j))) then
-                  write(*,3) 'x xcorrect', i, j, x(i,j), xcorrect(i,j)
-                  stop 'check1_x'
-               end if
-               err = abs(x(i,j) - xcorrect(i,j))/(atol + rtol*max(abs(x(i,j)),abs(xcorrect(i,j))))
-               err_sum = err_sum + err
-               if (err > max_err) then
-                  max_err = err; i_max = i; j_max = j
-               end if
-               !write(*,3) 'err', i, j, err, x(i,j), xcorrect(i,j)
-            end do
-         end do
-         avg_err = err_sum/(nz*nvar)
-      end subroutine check1_x
-      
-      
-      
-
-#ifdef DBLE
-   end subroutine do_test_trisolve_dble
-#else
-   end subroutine do_test_trisolve_quad
-#endif
-
-
-#ifdef DBLE
-   end module test_trisolve_dble
-#else
-   end module test_trisolve_quad
-#endif
diff --git a/net/private/net_burn_const_p.f90 b/net/private/net_burn_const_p.f90
index a2368b652..e88efbb06 100644
--- a/net/private/net_burn_const_p.f90
+++ b/net/private/net_burn_const_p.f90
@@ -195,6 +195,7 @@ subroutine burn_1_zone_const_P( &
          t = 0
          tend = times(ntimes)
          
+         rpar(r_burn_const_P_rho) = 1d-99 ! dummy value, will be calculated later
          rpar(r_burn_const_P_pressure) = exp10(log10Ps_f1(1)) ! no interpolation yet
          rpar(r_burn_const_P_temperature) = starting_temp
          rpar(r_burn_const_P_init_rho) = -1d99
diff --git a/net/private/net_burn_support.f90 b/net/private/net_burn_support.f90
index fab953452..ba92c4840 100644
--- a/net/private/net_burn_support.f90
+++ b/net/private/net_burn_support.f90
@@ -88,9 +88,9 @@ subroutine netint( &
       real(dp), parameter  :: tiny=1.0d-15
 
       
-      real(dp) y0(nvar),a(stifbs_imax),alf(kmaxx,kmaxx),epsold,xnew,scale,red
-      integer i,kmax,kopt,nseq(stifbs_imax),nvold
-      logical first
+      real(dp) :: y0(nvar),a(stifbs_imax),alf(kmaxx,kmaxx),epsold,xnew,scale,red
+      integer :: i,kmax,kopt,nseq(stifbs_imax),nvold
+      logical :: first
 
       include 'formats'
 
diff --git a/net/test/src/mod_one_zone_burn.f90 b/net/test/src/mod_one_zone_burn.f90
index 0604a27c6..e0c4311bc 100644
--- a/net/test/src/mod_one_zone_burn.f90
+++ b/net/test/src/mod_one_zone_burn.f90
@@ -1011,7 +1011,7 @@ subroutine burn_solout( &
             integer, intent(inout), target :: iwork_y(*)
             integer, intent(inout), pointer :: ipar(:) ! (lipar)
             real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
-            real(dp) :: lgt,lgrho
+            real(dp) :: lgt, lgrho
             integer :: i, cid
             interface
                include 'num_interp_y.dek'
diff --git a/net/test/src/test_net_do_one.f90 b/net/test/src/test_net_do_one.f90
index bf6bd5364..c25c63819 100644
--- a/net/test/src/test_net_do_one.f90
+++ b/net/test/src/test_net_do_one.f90
@@ -209,7 +209,7 @@ subroutine show_results( &
          logical, intent(in) :: extended_set
          logical, intent(in) :: sorted
          
-         integer :: ierr, j
+         integer :: j
             
          include 'formats'
                            
@@ -335,8 +335,6 @@ subroutine show_by_category( &
          real(dp) :: mx
          integer :: k, j, jmx
          logical :: flgs(rates_reaction_id_max)
-   
-         integer :: info
          
          write(*, *)
          write(*, *) 'energy generation by category'
diff --git a/net/test/src/test_net_support.f90 b/net/test/src/test_net_support.f90
index 03bb2be81..667c14f04 100644
--- a/net/test/src/test_net_support.f90
+++ b/net/test/src/test_net_support.f90
@@ -100,10 +100,9 @@ end subroutine load_libs
       
       subroutine test_net_setup(net_file_in)
          character (len=*), intent(in) :: net_file_in
-         integer, pointer :: r_id(:)
          type(Net_General_Info), pointer :: g
 
-         integer :: info, i, ierr
+         integer :: info, ierr
          
          include 'formats'
          
@@ -195,7 +194,6 @@ end subroutine do_test_net_alloc
 
       subroutine Do_One_Net(symbolic)
          logical, intent(in) :: symbolic
-         integer :: i, id
          call do1_net(net_handle, symbolic)
       end subroutine Do_One_Net
 
@@ -787,21 +785,20 @@ subroutine Do_One_Testcase(net_file, do_timing, show_Qs)
          character (len=*), intent(in) :: net_file
          logical, intent(in) :: do_timing, show_Qs
          
-         real(dp) :: logRho, logT, Rho, T, xsum, Q1, Q2, &
+         real(dp) :: logRho, logT, Rho, T, xsum, Q1, &
            eps_nuc, d_eps_nuc_dRho, d_eps_nuc_dT, weak_rate_factor, &
             dvardx, dvardx_0, dx_0, err, var_0, xdum, &
            eps_nuc_categories(num_categories), xh, xhe, mass_correction !approx_abar, approx_zbar
-         integer :: i, j, k, info, ierr
+         integer :: i, j, info, ierr
          integer :: j_dx, j_dx_sink
-         integer :: adjustment_iso, ir_c12_c12_to_he4_ne20, ir_he4_ne20_to_c12_c12
          real(dp), dimension(:), pointer :: d_eps_nuc_dx, dabar_dx, dzbar_dx, dmc_dx
          real(dp), pointer :: rate_factors(:), &
             actual_Qs(:), actual_neuQs(:)       
          logical, pointer :: from_weaklib(:)
          logical :: skip_jacobian, doing_d_dlnd, doing_dx
          real(dp), dimension(:), pointer :: &
-            rate_raw, rate_raw_dT, rate_raw_dRho, &
-            rate_screened, rate_screened_dT, rate_screened_dRho
+            rate_raw, rate_raw_dT, &
+            rate_screened
          type(net_info) :: n
          
          include 'formats'
@@ -1713,7 +1710,7 @@ subroutine Do_One_Testcase(net_file, do_timing, show_Qs)
          real(dp) function dfridr_func(delta_x) result(val)
             real(dp), intent(in) :: delta_x
             integer :: ierr
-            real(dp) :: pgas, prad, energy, entropy, var, log_var
+            real(dp) :: var, log_var
             include 'formats'
             ierr = 0
             
@@ -1793,7 +1790,7 @@ real(dp) function dfridr(hx,err) ! from Frank
             !  an estimate of the error in the first derivative is returned in err.
             integer, parameter :: ntab = 20
             integer :: i,j
-            real(dp) :: x,errt,fac,hh,a(ntab,ntab),xdum,ydum
+            real(dp) :: errt,fac,hh,a(ntab,ntab)
             real(dp), parameter :: con2=2d0, con=sqrt(con2), big=1d50, safe=2d0
             include 'formats'
             dfridr = 0d0
diff --git a/neu/private/mod_neu.f90 b/neu/private/mod_neu.f90
index e4dc69d12..978866796 100644
--- a/neu/private/mod_neu.f90
+++ b/neu/private/mod_neu.f90
@@ -851,7 +851,7 @@ subroutine brem_neu_weak_degen(sbrem,sbremdt,sbremdd,sbremda,sbremdz,t8, input)
          real(dp), intent(out) :: sbrem,sbremdt,sbremdd,sbremda,sbremdz
          type(inputs), intent(in) :: input
 
-         real(dp) :: a0,a1,a2,c00,c01,c02,c03,c04, &
+         real(dp) :: a0,c00,c01,c02,c03,c04, &
          dd00,dd01,dd02,&
          f0,z, &
          dum,dumdt,dumdd,dumda,dumdz
@@ -1001,7 +1001,7 @@ subroutine brem_neu_liquid_metal(sbrem,sbremdt,sbremdd,sbremda,sbremdz,t8, input
          real(dp), intent(out) :: sbrem,sbremdt,sbremdd,sbremda,sbremdz
          type(inputs), intent(in) :: input
 
-         real(dp) :: a0,a1,a2,c00,c01,c02,c03, &
+         real(dp) :: a0,a1,c00,c01,c02,c03, &
          z, &
          dum,dumdt,dumdd,dumda,dumdz
 
@@ -1171,7 +1171,7 @@ subroutine brem_neu(sbrem,sbremdt,sbremdd,sbremda,sbremdz, input)
          real(dp), intent(out) :: sbrem,sbremdt,sbremdd,sbremda,sbremdz
          type(inputs), intent(in) :: input
 
-         real(dp) :: a0,a1,a2,tfermi
+         real(dp) ::tfermi
 
          ! brem
 
@@ -1427,7 +1427,7 @@ subroutine plas_neu(splas,splasdt,splasdd,splasda,splasdz, input)
          real(dp), intent(out) :: splas,splasdt,splasdd,splasda,splasdz
          type(inputs), intent(in) :: input
 
-         real(dp) :: a0,a1,a2,a3,b1,b2,c00,c01,c02,c03,c04,xlnt,cc, &
+         real(dp) :: a1,a2,a3,b1,b2,c00,c01,c02,c03,c04,xlnt,cc, &
                      c,d,f1,&
                      dumdt,dumdd,dumda,dumdz, gum
 
@@ -1614,7 +1614,7 @@ subroutine pair_neu(spair,spairdt,spairdd,spairda,spairdz, input)
          real(dp), intent(out) :: spair,spairdt,spairdd,spairda,spairdz
          type(inputs), intent(in) :: input
 
-         real(dp) :: a0,a1,a2,a3,b1,b2,c,d, gl,gldt
+         real(dp) :: a1,a2,a3,b1,b2,c,d, gl,gldt
          
          real(dp) :: xnum,xnumdt,xnumdd,xnumda,xnumdz, &
          xden,xdendt,xdendd,xdenda,xdendz
diff --git a/num/make/makefile_base b/num/make/makefile_base
index fc6e43232..32b1569c3 100644
--- a/num/make/makefile_base
+++ b/num/make/makefile_base
@@ -69,26 +69,21 @@ nodeps : $(.DEFAULT_GOAL)
 #
 # COMPULATION RULES
 
-#COMPILE_LEGACY = $(filter-out -std=f2008, $(COMPILE_TO_TEST))
-COMPILE_LEGACY = $(filter-out -std=f2008, $(COMPILE_TO_DEPLOY)) -std=legacy
+COMPILE = $(COMPILE_TO_DEPLOY) $(FCfixed)
 
-COMPILE = $(COMPILE_LEGACY) $(FCfixed)
-
-COMPILE_FREE = $(COMPILE_LEGACY) $(FCfree)
+COMPILE_FREE = $(COMPILE_TO_DEPLOY) $(FCfree)
 
 #COMPILE_XTRA = $(COMPILE_NO_CHECKS) $(FCfixed) -c
 COMPILE_XTRA = $(COMPILE_BASIC) $(FCopt) $(FCfixed) -c
 
-COMPILE_LEGACY_XTRA = $(filter-out -std=f2008, $(COMPILE_XTRA)) -std=legacy
-
 COMPILE_CMD = $(COMPILE)
 
 mod_bobyqa.o mod_newuoa.o mod_dop853.o mod_dopri5.o mod_dc_decsol.o mod_rosenbrock.o : %.o : %.f
 ifneq ($(QUIET),)
-	@echo COMPILE_LEGACY_XTRA $<
-	@$(COMPILE_LEGACY_XTRA) $<
+	@echo COMPILE_XTRA $<
+	@$(COMPILE_XTRA) $<
 else
-	$(COMPILE_LEGACY_XTRA) $<
+	$(COMPILE_XTRA) $<
 endif
 
 %.o : %.mod
diff --git a/num/private/decomc.dek b/num/private/decomc.dek
index 7b7ba0c1f..685ef4a59 100644
--- a/num/private/decomc.dek
+++ b/num/private/decomc.dek
@@ -5,24 +5,24 @@
      &            lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol)
       use mtx_lib,only:find_loc_in_sparse
       implicit none
-      !implicit real*8 (a-h,o-z)
+      !implicit real(dp) (a-h,o-z)
       interface
 #include "mtx_decsolc.dek"
 #include "mtx_decsolcs.dek"
       end interface
+      integer :: m1, m2, nm1, lde1, ijob
+      integer :: mle, mue, mbjac, mbb, mdiag, mdiff, mbdiag
+      integer :: nzmax, isparse, lcd, lrd, lid
+      integer :: ierr, ip2(nm1), n, ldjac, ldmas, mlmas, mumas
       integer :: ia(*), ja(nzmax)  ! ia(n+1) when used; ia(2) when not.
       double precision :: sparse_jac(nzmax)
       double precision :: sar(nzmax), sai(nzmax)
-      complex*16, intent(inout), pointer :: cpar_decsol(:) ! (lcd)
+      complex(dp), intent(inout), pointer :: cpar_decsol(:) ! (lcd)
       real(dp), intent(inout), pointer :: rpar_decsol(:) ! (lrd)
       integer, intent(inout), pointer :: ipar_decsol(:) ! (lid)
       double precision :: fjac(ldjac,n), fmas(ldmas,nm1)
       double precision :: e2r(lde1,nm1), e2i(lde1,nm1)
       double precision :: br(n), bi(n), alphn, betan
-      integer :: ierr, ip2(nm1), n, ldjac, ldmas, mlmas, mumas
-      integer :: m1, m2, nm1, lde1, ijob
-      integer :: mle, mue, mbjac, mbb, mdiag, mdiff, mbdiag
-      integer :: nzmax, isparse, lcd, lrd, lid
       
       ! LOCALS
       integer :: i, j, k, jm1, mm, imle, ib, hint
@@ -30,11 +30,11 @@
      
       ierr = 0
       goto (1,2,3,4,5,6,55,8,9,55,11,12,13,14,15), ijob
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    1  continue
-c ---  b=identity, jacobian a full matrix
+! ---  b=identity, jacobian a full matrix
       do j=1,n
          do i=1,n
             e2r(i,j)=-fjac(i,j)
@@ -45,11 +45,11 @@ c ---  b=identity, jacobian a full matrix
       end do
       call decsolc(0,n,lde1,e2r,e2i,n,n,br,bi,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ierr)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    8  continue
-c ---  b=identity, jacobian a sparse matrix
+! ---  b=identity, jacobian a sparse matrix
       do j=1,nzmax
          sar(j) = -sparse_jac(j)
       end do
@@ -66,11 +66,11 @@ c ---  b=identity, jacobian a sparse matrix
       end do
       call decsolcs(0,n,nzmax,ia,ja,sar,sai,br,bi,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ierr)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   11  continue
-c ---  b=identity, jacobian a full matrix, second order
+! ---  b=identity, jacobian a full matrix, second order
       do j=1,nm1
          jm1=j+m1
          do i=1,nm1
@@ -99,11 +99,11 @@ c ---  b=identity, jacobian a full matrix, second order
       end do
       call decsolc(0,nm1,lde1,e2r,e2i,nm1,nm1,br,bi,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ierr)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    2  continue
-c ---  b=identity, jacobian a banded matrix
+! ---  b=identity, jacobian a banded matrix
       do j=1,n
          do i=1,mbjac
             imle=i+mle
@@ -115,11 +115,11 @@ c ---  b=identity, jacobian a banded matrix
       end do
       call decsolc(0,n,lde1,e2r,e2i,mle,mue,br,bi,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ierr)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   12  continue
-c ---  b=identity, jacobian a banded matrix, second order
+! ---  b=identity, jacobian a banded matrix, second order
       do j=1,nm1
          jm1=j+m1
          do i=1,mbjac
@@ -149,11 +149,11 @@ c ---  b=identity, jacobian a banded matrix, second order
       end do
       call decsolc(0,nm1,lde1,e2r,e2i,mle,mue,br,bi,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ierr)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    3  continue
-c ---  b is a banded matrix, jacobian a full matrix
+! ---  b is a banded matrix, jacobian a full matrix
       do  j=1,n
          do  i=1,n
             e2r(i,j)=-fjac(i,j)
@@ -169,11 +169,11 @@ c ---  b is a banded matrix, jacobian a full matrix
       end do
       call decsolc(0,n,lde1,e2r,e2i,n,n,br,bi,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ierr)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    9  continue
-c ---  b is a banded matrix, jacobian a sparse matrix
+! ---  b is a banded matrix, jacobian a sparse matrix
       do j=1,nzmax
          sar(j) = -sparse_jac(j)
       end do
@@ -200,11 +200,11 @@ c ---  b is a banded matrix, jacobian a sparse matrix
       call decsolcs(0,n,nzmax,ia,ja,sar,sai,br,bi,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ierr)
       !write(*,*) 'decomc back decsolcs'
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   13  continue
-c ---  b is a banded matrix, jacobian a full matrix, second order
+! ---  b is a banded matrix, jacobian a full matrix, second order
       do j=1,nm1
          jm1=j+m1
          do i=1,nm1
@@ -218,11 +218,11 @@ c ---  b is a banded matrix, jacobian a full matrix, second order
          end do
       end do
       goto 45
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    4  continue
-c ---  b is a banded matrix, jacobian a banded matrix
+! ---  b is a banded matrix, jacobian a banded matrix
       do j=1,n
          do i=1,mbjac
             imle=i+mle
@@ -238,11 +238,11 @@ c ---  b is a banded matrix, jacobian a banded matrix
       end do
       call decsolc(0,n,lde1,e2r,e2i,mle,mue,br,bi,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ierr)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   14  continue
-c ---  b is a banded matrix, jacobian a banded matrix, second order
+! ---  b is a banded matrix, jacobian a banded matrix, second order
       do j=1,nm1
          jm1=j+m1
          do i=1,mbjac
@@ -257,11 +257,11 @@ c ---  b is a banded matrix, jacobian a banded matrix, second order
          end do
       end do
       goto 46
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    5  continue
-c ---  b is a full matrix, jacobian a full matrix
+! ---  b is a full matrix, jacobian a full matrix
       do j=1,n
          do i=1,n
             bb=fmas(i,j)
@@ -271,11 +271,11 @@ c ---  b is a full matrix, jacobian a full matrix
       end do
       call decsolc(0,n,lde1,e2r,e2i,n,n,br,bi,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ierr)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   15  continue
-c ---  b is a full matrix, jacobian a full matrix, second order
+! ---  b is a full matrix, jacobian a full matrix, second order
       do j=1,nm1
          jm1=j+m1
          do i=1,nm1
@@ -284,22 +284,22 @@ c ---  b is a full matrix, jacobian a full matrix, second order
          end do
       end do
       goto 45
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    6  continue
-c ---  b is a full matrix, jacobian a banded matrix
-c ---  this option is not provided
+! ---  b is a full matrix, jacobian a banded matrix
+! ---  this option is not provided
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   55  continue
        write(*,*) 'decomc: invalid ijob', ijob
        call mesa_error(__FILE__,__LINE__) ! decomc
       end subroutine decomc
-c
-c ***********************************************************
+!
+! ***********************************************************
 
 
 
@@ -313,12 +313,16 @@ c ***********************************************************
 #include "mtx_decsolc.dek"
 #include "mtx_decsolcs.dek"
       end interface
+      integer :: m1, m2, nm1, lde1, ijob
+      integer :: mle, mue, mbjac, mbb, mdiag, mdiff, mbdiag
+      integer :: nzmax, isparse, lcd, lrd, lid
+      integer :: ierr, ip2(nm1), n, ldjac, ldmas, mlmas, mumas
       integer :: ia(:) ! (n+1)
       integer :: ja(:) ! (nzmax)
       real(dp) :: sparse_jac(:) ! (nzmax)
       real(dp) :: sar(:) ! (nzmax)
       real(dp) :: sai(:) ! (nzmax)
-      complex*16, intent(inout), pointer :: cpar_decsol(:) ! (lcd)
+      complex(dp), intent(inout), pointer :: cpar_decsol(:) ! (lcd)
       real(dp), intent(inout), pointer :: rpar_decsol(:) ! (lrd)
       integer, intent(inout), pointer :: ipar_decsol(:) ! (lid)
       
@@ -328,109 +332,105 @@ c ***********************************************************
       
       double precision :: br(n), bi(n), alphn, betan
       
-      integer :: ierr, ip2(nm1), n, ldjac, ldmas, mlmas, mumas
-      integer :: m1, m2, nm1, lde1, ijob
-      integer :: mle, mue, mbjac, mbb, mdiag, mdiff, mbdiag
-      integer :: nzmax, isparse, lcd, lrd, lid
 
 
       goto (1,2,3,4,5,6,55,8,9,55,11,12,13,14,15), ijob
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    1  continue
-c ---  b=identity, jacobian a full matrix
+! ---  b=identity, jacobian a full matrix
       call decsolc(2,n,lde1,e2r,e2i,n,n,br,bi,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ierr)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    8  continue
-c ---  b=identity, jacobian a sparse matrix
+! ---  b=identity, jacobian a sparse matrix
       call decsolcs(2,n,nzmax,ia,ja,sar,sai,br,bi,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ierr)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   11  continue
-c ---  b=identity, jacobian a full matrix, second order
+! ---  b=identity, jacobian a full matrix, second order
   45  continue
       call decsolc(2,nm1,lde1,e2r,e2i,nm1,nm1,br,bi,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ierr)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    2  continue
-c ---  b=identity, jacobian a banded matrix
+! ---  b=identity, jacobian a banded matrix
       call decsolc(2,n,lde1,e2r,e2i,mle,mue,br,bi,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ierr)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   12  continue
-c ---  b=identity, jacobian a banded matrix, second order
+! ---  b=identity, jacobian a banded matrix, second order
   46  continue
       call decsolc(2,nm1,lde1,e2r,e2i,mle,mue,br,bi,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ierr)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    3  continue
-c ---  b is a banded matrix, jacobian a full matrix
+! ---  b is a banded matrix, jacobian a full matrix
       call decsolc(2,n,lde1,e2r,e2i,n,n,br,bi,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ierr)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    9  continue
-c ---  b is a banded matrix, jacobian a sparse matrix
+! ---  b is a banded matrix, jacobian a sparse matrix
       call decsolcs(2,n,nzmax,ia,ja,sar,sai,br,bi,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ierr)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   13  continue
-c ---  b is a banded matrix, jacobian a full matrix, second order
+! ---  b is a banded matrix, jacobian a full matrix, second order
       goto 45
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    4  continue
-c ---  b is a banded matrix, jacobian a banded matrix
+! ---  b is a banded matrix, jacobian a banded matrix
       call decsolc(2,n,lde1,e2r,e2i,mle,mue,br,bi,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ierr)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   14  continue
-c ---  b is a banded matrix, jacobian a banded matrix, second order
+! ---  b is a banded matrix, jacobian a banded matrix, second order
       goto 46
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    5  continue
-c ---  b is a full matrix, jacobian a full matrix
+! ---  b is a full matrix, jacobian a full matrix
       call decsolc(2,n,lde1,e2r,e2i,n,n,br,bi,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ierr)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   15  continue
-c ---  b is a full matrix, jacobian a full matrix, second order
+! ---  b is a full matrix, jacobian a full matrix, second order
       goto 45
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    6  continue
-c ---  b is a full matrix, jacobian a banded matrix
-c ---  this option is not provided
+! ---  b is a full matrix, jacobian a banded matrix
+! ---  this option is not provided
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   55  continue
        write(*,*) 'decsolc_done: invalid ijob', ijob
        call mesa_error(__FILE__,__LINE__) ! decsolc_done
       end subroutine decsolc_done
-c
-c ***********************************************************
+!
+! ***********************************************************
diff --git a/num/private/decomr.dek b/num/private/decomr.dek
index f9bde2a02..830d13929 100644
--- a/num/private/decomr.dek
+++ b/num/private/decomr.dek
@@ -6,7 +6,7 @@
      &            sparse_jac,nzmax,isparse,ia,ja,sa,
      &            lrd,rpar_decsol,lid,ipar_decsol)
       use mtx_lib,only:find_loc_in_sparse      
-      implicit none !real*8 (a-h,o-z)
+      implicit none !real(dp) (a-h,o-z)
       interface
 #include "mtx_decsol.dek"
 #include "mtx_decsols.dek"
@@ -79,11 +79,11 @@
       end if
       
       goto (1,2,3,4,5,6,55,8,9,55,11,12,13,14,15), ijob
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    1  continue
-c ---  b=identity, jacobian a full matrix
+! ---  b=identity, jacobian a full matrix
 !      do j=1,n
 !         do i=1,n
 !            write(*,'(a30,2i4,e26.16)') 'input fjac(i,j)', i, j, fjac(i,j)
@@ -110,11 +110,11 @@ c ---  b=identity, jacobian a full matrix
 !      end do
 !      write(*,*) 
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    8  continue
-c ---  b=identity, jacobian a sparse matrix
+! ---  b=identity, jacobian a sparse matrix
       do j=1,nzmax
          sa(j) = -sparse_jac(j)
       end do
@@ -131,11 +131,11 @@ c ---  b=identity, jacobian a sparse matrix
       call decsols(0,n,nzmax,ia,ja,sa,ak,lrd,rpar_decsol,lid,ipar_decsol,ier)
       !write(*,*) 'back decsols'
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   11  continue
-c ---  b=identity, jacobian a full matrix, second order
+! ---  b=identity, jacobian a full matrix, second order
       do j=1,nm1
          jm1=j+m1
          do i=1,nm1
@@ -155,11 +155,11 @@ c ---  b=identity, jacobian a full matrix, second order
       end do
       call decsol(0,nm1,lde1,e1_1D,nm1,nm1,ak,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    2  continue
-c ---  b=identity, jacobian a banded matrix
+! ---  b=identity, jacobian a banded matrix
       do j=1,n
          do i=1,mbjac
             e1_2D(i+mle,j)=-fjac(i,j)
@@ -168,11 +168,11 @@ c ---  b=identity, jacobian a banded matrix
       end do
       call decsol(0,n,lde1,e1_1D,mle,mue,ak,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   12  continue
-c ---  b=identity, jacobian a banded matrix, second order
+! ---  b=identity, jacobian a banded matrix, second order
       do j=1,nm1
          jm1=j+m1
          do i=1,mbjac
@@ -208,11 +208,11 @@ c ---  b=identity, jacobian a banded matrix, second order
       
       call decsol(0,nm1,lde1,e1_1D,mle,mue,ak,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    3  continue
-c ---  b is a banded matrix, jacobian a full matrix
+! ---  b is a banded matrix, jacobian a full matrix
       do j=1,n
          do i=1,n
             e1_2D(i,j)=-fjac(i,j)
@@ -223,11 +223,11 @@ c ---  b is a banded matrix, jacobian a full matrix
       end do
       call decsol(0,n,lde1,e1_1D,n,n,ak,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    9  continue
-c ---  b is a banded matrix, jacobian a sparse matrix
+! ---  b is a banded matrix, jacobian a sparse matrix
       do j=1,nzmax
          sa(j) = -sparse_jac(j)
       end do
@@ -251,11 +251,11 @@ c ---  b is a banded matrix, jacobian a sparse matrix
       call decsols(0,n,nzmax,ia,ja,sa,ak,lrd,rpar_decsol,lid,ipar_decsol,ier)
       !write(*,*) 'decomr back decsols'
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   13  continue
-c ---  b is a banded matrix, jacobian a full matrix, second order
+! ---  b is a banded matrix, jacobian a full matrix, second order
       do j=1,nm1
          jm1=j+m1
          do i=1,nm1
@@ -266,11 +266,11 @@ c ---  b is a banded matrix, jacobian a full matrix, second order
          end do
       end do
       goto 45
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    4  continue
-c ---  b is a banded matrix, jacobian a banded matrix
+! ---  b is a banded matrix, jacobian a banded matrix
       do j=1,n
          do i=1,mbjac
             e1_2D(i+mle,j)=-fjac(i,j)
@@ -282,11 +282,11 @@ c ---  b is a banded matrix, jacobian a banded matrix
       end do
       call decsol(0,n,lde1,e1_1D,mle,mue,ak,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   14  continue
-c ---  b is a banded matrix, jacobian a banded matrix, second order
+! ---  b is a banded matrix, jacobian a banded matrix, second order
       do j=1,nm1
          jm1=j+m1
          do i=1,mbjac
@@ -310,11 +310,11 @@ c ---  b is a banded matrix, jacobian a banded matrix, second order
 
 
       goto 46
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    5  continue
-c ---  b is a full matrix, jacobian a full matrix
+! ---  b is a full matrix, jacobian a full matrix
       do j=1,n
          do i=1,n
             e1_2D(i,j)=fmas(i,j)*fac1-fjac(i,j)
@@ -322,11 +322,11 @@ c ---  b is a full matrix, jacobian a full matrix
       end do
       call decsol(0,n,lde1,e1_1D,n,n,ak,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   15  continue
-c ---  b is a full matrix, jacobian a full matrix, second order
+! ---  b is a full matrix, jacobian a full matrix, second order
       do j=1,nm1
          jm1=j+m1
          do i=1,nm1
@@ -334,19 +334,19 @@ c ---  b is a full matrix, jacobian a full matrix, second order
          end do
       end do
       goto 45
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    6  continue
-c ---  b is a full matrix, jacobian a banded matrix
-c ---  this option is not provided
+! ---  b is a full matrix, jacobian a banded matrix
+! ---  this option is not provided
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   55  continue
        write(*,*) 'decomr: invalid ijob', ijob
        call mesa_error(__FILE__,__LINE__) ! decomr
       end subroutine decomr
-c
-c ***********************************************************
+!
+! ***********************************************************
diff --git a/num/private/decsol_done.dek b/num/private/decsol_done.dek
index ded364dc5..baf222c4f 100644
--- a/num/private/decsol_done.dek
+++ b/num/private/decsol_done.dek
@@ -39,102 +39,102 @@
       end if
       
       goto (1,2,3,4,5,6,55,8,9,55,11,12,13,14,15), ijob
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    1  continue
-c ---  b=identity, jacobian a full matrix
+! ---  b=identity, jacobian a full matrix
       call decsol(2,n,lde1,e1_1D,n,n,ak,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    8  continue
-c ---  b=identity, jacobian a sparse matrix
+! ---  b=identity, jacobian a sparse matrix
       !write(*,*) 'decsol_done call decsols'
       call decsols(2,n,nzmax,ia,ja,sa,ak,lrd,rpar_decsol,lid,ipar_decsol,ier)
       !write(*,*) 'back decsols'
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   11  continue
-c ---  b=identity, jacobian a full matrix, second order
+! ---  b=identity, jacobian a full matrix, second order
       call decsol(2,nm1,lde1,e1_1D,nm1,nm1,ak,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    2  continue
-c ---  b=identity, jacobian a banded matrix
+! ---  b=identity, jacobian a banded matrix
       call decsol(2,n,lde1,e1_1D,mle,mue,ak,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   12  continue
-c ---  b=identity, jacobian a banded matrix, second order
+! ---  b=identity, jacobian a banded matrix, second order
       call decsol(2,nm1,lde1,e1_1D,mle,mue,ak,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    3  continue
-c ---  b is a banded matrix, jacobian a full matrix
+! ---  b is a banded matrix, jacobian a full matrix
       call decsol(2,n,lde1,e1_1D,n,n,ak,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    9  continue
-c ---  b is a banded matrix, jacobian a sparse matrix
+! ---  b is a banded matrix, jacobian a sparse matrix
       call decsols(2,n,nzmax,ia,ja,sa,ak,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   13  continue
-c ---  b is a banded matrix, jacobian a full matrix, second order
+! ---  b is a banded matrix, jacobian a full matrix, second order
       goto 5
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    4  continue
-c ---  b is a banded matrix, jacobian a banded matrix
+! ---  b is a banded matrix, jacobian a banded matrix
       call decsol(2,n,lde1,e1_1D,mle,mue,ak,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   14  continue
-c ---  b is a banded matrix, jacobian a banded matrix, second order
+! ---  b is a banded matrix, jacobian a banded matrix, second order
       goto 12
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    5  continue
-c ---  b is a full matrix, jacobian a full matrix
+! ---  b is a full matrix, jacobian a full matrix
       call decsol(2,n,lde1,e1_1D,n,n,ak,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   15  continue
-c ---  b is a full matrix, jacobian a full matrix, second order
+! ---  b is a full matrix, jacobian a full matrix, second order
       goto 5
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    6  continue
-c ---  b is a full matrix, jacobian a banded matrix
-c ---  this option is not provided
+! ---  b is a full matrix, jacobian a banded matrix
+! ---  this option is not provided
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   55  continue
        write(*,*) 'decsol_done: invalid ijob', ijob
        call mesa_error(__FILE__,__LINE__) ! decsol_done
       end subroutine decsol_done
-c
-c ***********************************************************
+!
+! ***********************************************************
diff --git a/num/private/estrad.dek b/num/private/estrad.dek
index 00f01f0fb..a64e3e991 100644
--- a/num/private/estrad.dek
+++ b/num/private/estrad.dek
@@ -11,6 +11,10 @@
 #include "mtx_decsol.dek"
 #include "mtx_decsols.dek"
       end interface
+      integer, pointer :: ip1(:) ! (nm1)
+      integer :: n, iphes(n), nerror, ldjac, mljac, mujac, ldmas, mlmas, mumas
+      integer :: nfcn, ijob, m1, m2, nm1, lde1, lrpar, lipar, ier, mle, mue
+      integer :: mbjac, mbb, mdiag, mdiff, mbdiag, nzmax, isparse, lrd, lid
       integer :: ia(:) ! (n+1)
       integer :: ja(:) ! (nzmax)
       double precision :: sa(nzmax)
@@ -19,10 +23,6 @@
       integer, intent(inout), pointer :: ipar(:) ! (lipar)
       real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
       
-      integer, pointer :: ip1(:) ! (nm1)
-      integer :: iphes(n), n, nerror, ldjac, mljac, mujac, ldmas, mlmas, mumas
-      integer :: nfcn, ijob, m1, m2, nm1, lde1, lrpar, lipar, ier, mle, mue
-      integer :: mbjac, mbb, mdiag, mdiff, mbdiag, nzmax, isparse, lrd, lid
       double precision :: fjac(ldjac,n), fmas(ldmas,nm1)
       double precision, pointer :: e1_1D(:)
       double precision :: x, scal(n), y0(n), y(n)
@@ -34,7 +34,7 @@
       double precision :: hee1, hee2, hee3, sum, sum1
       integer :: i, mm, j, k, im1
       real(dp), pointer :: e1(:,:)
-      real(dp), pointer, dimension(:) :: p1, p2, p3
+      real(dp), pointer, dimension(:) :: p1
       
       e1(1:lde1,1:nm1) => e1_1D(1:lde1*nm1)
       p1(1:n) => cont(m1+1:m1+n)
@@ -46,27 +46,27 @@
 
       mm=m1/m2
       goto (1,2,3,4,5,6,55,8,9,55,11,12,13,14,15), ijob
-c
+!
    1  continue
-c ------  b=identity, jacobian a full matrix
+! ------  b=identity, jacobian a full matrix
       do  i=1,n 
          f2(i)=hee1*z1(i)+hee2*z2(i)+hee3*z3(i)
          cont(i)=f2(i)+y0(i)
       end do
       call decsol(1,n,lde1,e1_1D,n,n,cont,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier) 
       goto 77
-c
+!
    8  continue
-c ------  b=identity, jacobian a sparse matrix
+! ------  b=identity, jacobian a sparse matrix
       do  i=1,n 
          f2(i)=hee1*z1(i)+hee2*z2(i)+hee3*z3(i)
          cont(i)=f2(i)+y0(i)
       end do
       call decsols(1,n,nzmax,ia,ja,sa,cont,lrd,rpar_decsol,lid,ipar_decsol,ier)
       goto 77
-c
+!
   11  continue
-c ------  b=identity, jacobian a full matrix, second order
+! ------  b=identity, jacobian a full matrix, second order
       do i=1,n 
          f2(i)=hee1*z1(i)+hee2*z2(i)+hee3*z3(i)
          cont(i)=f2(i)+y0(i)
@@ -87,18 +87,18 @@ c ------  b=identity, jacobian a full matrix, second order
          cont(i)=(cont(i)+cont(m2+i))/fac1
       end do
       goto 77
-c
+!
    2  continue
-c ------  b=identity, jacobian a banded matrix
+! ------  b=identity, jacobian a banded matrix
       do i=1,n 
          f2(i)=hee1*z1(i)+hee2*z2(i)+hee3*z3(i)
          cont(i)=f2(i)+y0(i)
       end do
       call decsol(1,n,lde1,e1_1D,mle,mue,cont,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       goto 77
-c
+!
   12  continue
-c ------  b=identity, jacobian a banded matrix, second order
+! ------  b=identity, jacobian a banded matrix, second order
       do i=1,n 
          f2(i)=hee1*z1(i)+hee2*z2(i)+hee3*z3(i)
          cont(i)=f2(i)+y0(i)
@@ -119,9 +119,9 @@ c ------  b=identity, jacobian a banded matrix, second order
          cont(i)=(cont(i)+cont(m2+i))/fac1
       end do
       goto 77
-c
+!
    3  continue
-c ------  b is a banded matrix, jacobian a full matrix
+! ------  b is a banded matrix, jacobian a full matrix
       do i=1,n
          f1(i)=hee1*z1(i)+hee2*z2(i)+hee3*z3(i)
       end do
@@ -135,9 +135,9 @@ c ------  b is a banded matrix, jacobian a full matrix
       end do
       call decsol(1,n,lde1,e1_1D,n,n,cont,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier) 
       goto 77
-c
+!
    9  continue
-c ------  b is a banded matrix, jacobian a sparse matrix
+! ------  b is a banded matrix, jacobian a sparse matrix
       do i=1,n
          f1(i)=hee1*z1(i)+hee2*z2(i)+hee3*z3(i)
       end do
@@ -151,9 +151,9 @@ c ------  b is a banded matrix, jacobian a sparse matrix
       end do
       call decsols(1,n,nzmax,ia,ja,sa,z1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       goto 77
-c
+!
   13  continue
-c ------  b is a banded matrix, jacobian a full matrix, second order
+! ------  b is a banded matrix, jacobian a full matrix, second order
       do i=1,m1
          f2(i)=hee1*z1(i)+hee2*z2(i)+hee3*z3(i)
          cont(i)=f2(i)+y0(i)
@@ -171,9 +171,9 @@ c ------  b is a banded matrix, jacobian a full matrix, second order
          cont(im1)=sum+y0(im1)
       end do
       goto 48
-c
+!
    4  continue
-c ------  b is a banded matrix, jacobian a banded matrix
+! ------  b is a banded matrix, jacobian a banded matrix
       do i=1,n
          f1(i)=hee1*z1(i)+hee2*z2(i)+hee3*z3(i)
       end do
@@ -187,9 +187,9 @@ c ------  b is a banded matrix, jacobian a banded matrix
       end do
       call decsol(1,n,lde1,e1_1D,mle,mue,cont,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       goto 77
-c
+!
   14  continue
-c ------  b is a banded matrix, jacobian a banded matrix, second order
+! ------  b is a banded matrix, jacobian a banded matrix, second order
       do i=1,m1
          f2(i)=hee1*z1(i)+hee2*z2(i)+hee3*z3(i)
          cont(i)=f2(i)+y0(i)
@@ -207,9 +207,9 @@ c ------  b is a banded matrix, jacobian a banded matrix, second order
          cont(im1)=sum+y0(im1)
       end do
       goto 45
-c
+!
    5  continue
-c ------  b is a full matrix, jacobian a full matrix
+! ------  b is a full matrix, jacobian a full matrix
       do i=1,n
          f1(i)=hee1*z1(i)+hee2*z2(i)+hee3*z3(i)
       end do
@@ -223,9 +223,9 @@ c ------  b is a full matrix, jacobian a full matrix
       end do
       call decsol(1,n,lde1,e1_1D,n,n,cont,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier) 
       goto 77
-c
+!
   15  continue
-c ------  b is a banded matrix, jacobian a full matrix, second order
+! ------  b is a banded matrix, jacobian a full matrix, second order
       do i=1,m1
          f2(i)=hee1*z1(i)+hee2*z2(i)+hee3*z3(i)
          cont(i)=f2(i)+y0(i)
@@ -243,21 +243,21 @@ c ------  b is a banded matrix, jacobian a full matrix, second order
          cont(im1)=sum+y0(im1)
       end do
       goto 48
-c
+!
    6  continue
-c ------  b is a full matrix, jacobian a banded matrix
-c ------  this option is not provided
+! ------  b is a full matrix, jacobian a banded matrix
+! ------  this option is not provided
       return
-c
-c --------------------------------------
-c
+!
+! --------------------------------------
+!
   77  continue
       err=0.d0
       do  i=1,n
          err=err+(cont(i)/scal(i))**2
       end do
       err=max(sqrt(err/n),1.d-10)
-c
+!
       if (err.lt.1.d0) return
       if (first.or.reject) then
           do i=1,n
@@ -270,11 +270,11 @@ c
              cont(i)=f1(i)+f2(i)
           end do
           goto (31,32,31,32,31,32,55,55,33,55,41,42,41,42,41), ijob
-c ------ full matrix option
+! ------ full matrix option
   31      continue
           call decsol(1,n,lde1,e1_1D,n,n,cont,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier) 
           goto 88
-c ------ full matrix option, second order
+! ------ full matrix option, second order
  41      continue
          do j=1,m2
             sum1=0.d0
@@ -291,11 +291,11 @@ c ------ full matrix option, second order
             cont(i)=(cont(i)+cont(m2+i))/fac1
          end do
          goto 88
-c ------ banded matrix option
+! ------ banded matrix option
  32      continue
          call decsol(1,n,lde1,e1_1D,mle,mue,cont,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
          goto 88
-c ------ banded matrix option, second order
+! ------ banded matrix option, second order
  42      continue
          do j=1,m2
             sum1=0.d0
@@ -312,11 +312,11 @@ c ------ banded matrix option, second order
             cont(i)=(cont(i)+cont(m2+i))/fac1
          end do
           goto 88
-c ------ sparse matrix option
+! ------ sparse matrix option
   33      continue
           call decsols(1,n,nzmax,ia,ja,sa,cont,lrd,rpar_decsol,lid,ipar_decsol,ier)
           goto 88
-c -----------------------------------
+! -----------------------------------
    88     continue
           err=0.d0 
           do i=1,nerror
@@ -325,7 +325,7 @@ c -----------------------------------
           err=max(sqrt(err/nerror),1.d-10)
        end if
        return
-c -----------------------------------------------------------
+! -----------------------------------------------------------
   55   continue
        write(*,*) 'estrad: invalid ijob', ijob
        call mesa_error(__FILE__,__LINE__) ! estrad
diff --git a/num/private/mod_bobyqa.f b/num/private/mod_bobyqa.f
index 632b5d2cb..4a8c07c1c 100644
--- a/num/private/mod_bobyqa.f
+++ b/num/private/mod_bobyqa.f
@@ -4,14 +4,14 @@ module mod_bobyqa
 
       contains
 
-      SUBROUTINE do_BOBYQA (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
-     1  MAXFUN,W,CALFUN,max_valid_value)
+      SUBROUTINE do_BOBYQA (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,MAXFUN,W,CALFUN,max_valid_value)
       IMPLICIT REAL(dp) (A-H,O-Z)
+      integer :: N, NPT, IPRINT, MAXFUN
       DIMENSION X(:),XL(:),XU(:),W(*)
       interface
 #include "num_bobyqa_proc.dek"
       end interface
-      real*8, intent(in) :: max_valid_value
+      real(dp), intent(in) :: max_valid_value
 
 !     This subroutine seeks the least value of a function of many variables,
 !     by applying a trust region method that forms quadratic models by
@@ -57,10 +57,9 @@ SUBROUTINE do_BOBYQA (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
 !     Return if the value of NPT is unacceptable.
 !
       NP=N+1
-      IF (NPT .LT. N+2 .OR. NPT .GT. ((N+2)*NP)/2) THEN
+      IF (NPT < N+2 .OR. NPT > ((N+2)*NP)/2) THEN
           PRINT 10
-   10     FORMAT (/4X,'Return from BOBYQA because NPT is not in',
-     1      ' the required interval')
+   10     FORMAT (/4X,'Return from BOBYQA because NPT is not in the required interval')
           GO TO 40
       END IF
 !
@@ -95,40 +94,39 @@ SUBROUTINE do_BOBYQA (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
 !     components of X that become within distance RHOBEG from their bounds.
 !
       ZERO=0.0D0
-      DO 30 J=1,N
-      TEMP=XU(J)-XL(J)
-      IF (TEMP .LT. RHOBEG+RHOBEG) THEN
-          PRINT 20
-   20     FORMAT (/4X,'Return from BOBYQA because one of the',
-     1      ' differences XU(I)-XL(I)'/6X,' is less than 2*RHOBEG.')
-          GO TO 40
-      END IF
-      JSL=ISL+J-1
-      JSU=JSL+N
-      W(JSL)=XL(J)-X(J)
-      W(JSU)=XU(J)-X(J)
-      IF (W(JSL) .GE. -RHOBEG) THEN
-          IF (W(JSL) .GE. ZERO) THEN
-              X(J)=XL(J)
-              W(JSL)=ZERO
-              W(JSU)=TEMP
-          ELSE
-              X(J)=XL(J)+RHOBEG
-              W(JSL)=-RHOBEG
-              W(JSU)=DMAX1(XU(J)-X(J),RHOBEG)
-          END IF
-      ELSE IF (W(JSU) .LE. RHOBEG) THEN
-          IF (W(JSU) .LE. ZERO) THEN
-              X(J)=XU(J)
-              W(JSL)=-TEMP
-              W(JSU)=ZERO
-          ELSE
-              X(J)=XU(J)-RHOBEG
-              W(JSL)=DMIN1(XL(J)-X(J),-RHOBEG)
-              W(JSU)=RHOBEG
-          END IF
-      END IF
-   30 CONTINUE
+      DO J=1,N
+        TEMP=XU(J)-XL(J)
+        IF (TEMP < RHOBEG+RHOBEG) THEN
+           PRINT 20
+   20      FORMAT (/4X,'Return from BOBYQA because one of the differences XU(I)-XL(I)'/6X,' is less than 2*RHOBEG.')
+           GO TO 40
+        END IF
+        JSL=ISL+J-1
+        JSU=JSL+N
+        W(JSL)=XL(J)-X(J)
+        W(JSU)=XU(J)-X(J)
+        IF (W(JSL) >= -RHOBEG) THEN
+            IF (W(JSL) >= ZERO) THEN
+                X(J)=XL(J)
+                W(JSL)=ZERO
+                W(JSU)=TEMP
+            ELSE
+                X(J)=XL(J)+RHOBEG
+                W(JSL)=-RHOBEG
+                W(JSU)=DMAX1(XU(J)-X(J),RHOBEG)
+            END IF
+        ELSE IF (W(JSU) <= RHOBEG) THEN
+            IF (W(JSU) <= ZERO) THEN
+                X(J)=XU(J)
+                W(JSL)=-TEMP
+                W(JSU)=ZERO
+            ELSE
+                X(J)=XU(J)-RHOBEG
+                W(JSL)=DMIN1(XL(J)-X(J),-RHOBEG)
+                W(JSU)=RHOBEG
+            END IF
+        END IF
+      END DO
 !
 !     Make the call of BOBYQB.
 !
@@ -143,14 +141,15 @@ END SUBROUTINE do_BOBYQA
       SUBROUTINE BOBYQB (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
      1  MAXFUN,XBASE,XPT,FVAL,XOPT,GOPT,HQ,PQ,BMAT,ZMAT,NDIM,
      2  SL,SU,XNEW,XALT,D,VLAG,W,CALFUN,max_valid_value)
-      IMPLICIT REAL*8 (A-H,O-Z)
+      IMPLICIT real(dp) (A-H,O-Z)
+      integer :: N, NPT, IPRINT, MAXFUN, NDIM
       DIMENSION X(:),XL(:),XU(:),XBASE(*),XPT(NPT,*),FVAL(*),
      1  XOPT(*),GOPT(*),HQ(*),PQ(*),BMAT(NDIM,*),ZMAT(NPT,*),
      2  SL(*),SU(*),XNEW(*),XALT(*),D(*),VLAG(*),W(*)
       interface
 #include "num_bobyqa_proc.dek"
       end interface
-      real*8, intent(in) :: max_valid_value
+      real(dp), intent(in) :: max_valid_value
       
       logical :: do_replace
 !
@@ -208,12 +207,13 @@ SUBROUTINE BOBYQB (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
       CALL PRELIM (N,NPT,X,XL,XU,RHOBEG,IPRINT,MAXFUN,XBASE,XPT,
      1  FVAL,GOPT,HQ,PQ,BMAT,ZMAT,NDIM,SL,SU,NF,KOPT,CALFUN)
       XOPTSQ=ZERO
-      DO 10 I=1,N
-      XOPT(I)=XPT(KOPT,I)
-   10 XOPTSQ=XOPTSQ+XOPT(I)**2
+      DO I=1,N
+         XOPT(I)=XPT(KOPT,I)
+         XOPTSQ=XOPTSQ+XOPT(I)**2
+      END DO
       FSAVE=FVAL(1)
-      IF (NF .LT. NPT) THEN
-          IF (IPRINT .GT. 0) PRINT 390
+      IF (NF < NPT) THEN
+          IF (IPRINT > 0) PRINT 390
           GOTO 720
       END IF
       KBASE=1
@@ -232,21 +232,26 @@ SUBROUTINE BOBYQB (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
 !     Update GOPT if necessary before the first iteration and after each
 !     call of RESCUE that makes a call of CALFUN.
 !
-   20 IF (KOPT .NE. KBASE) THEN
+   20 IF (KOPT /= KBASE) THEN
           IH=0
-          DO 30 J=1,N
-          DO 30 I=1,J
-          IH=IH+1
-          IF (I .LT. J) GOPT(J)=GOPT(J)+HQ(IH)*XOPT(I)
-   30     GOPT(I)=GOPT(I)+HQ(IH)*XOPT(J)
-          IF (NF .GT. NPT) THEN
-              DO 50 K=1,NPT
-              TEMP=ZERO
-              DO 40 J=1,N
-   40         TEMP=TEMP+XPT(K,J)*XOPT(J)
-              TEMP=PQ(K)*TEMP
-              DO 50 I=1,N
-   50         GOPT(I)=GOPT(I)+TEMP*XPT(K,I)
+          DO J=1,N
+            DO I=1,J
+                IH=IH+1
+                IF (I < J) GOPT(J)=GOPT(J)+HQ(IH)*XOPT(I)
+                GOPT(I)=GOPT(I)+HQ(IH)*XOPT(J)
+            END DO
+          END DO
+          IF (NF > NPT) THEN
+              DO K=1,NPT
+                TEMP=ZERO
+                DO J=1,N
+                    TEMP=TEMP+XPT(K,J)*XOPT(J)
+                END DO
+                TEMP=PQ(K)*TEMP
+                DO I=1,N
+                    GOPT(I)=GOPT(I)+TEMP*XPT(K,I)
+                END DO
+              END DO
           END IF
       END IF
 !
@@ -260,10 +265,10 @@ SUBROUTINE BOBYQB (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
    60 CALL TRSBOX (N,NPT,XPT,XOPT,GOPT,HQ,PQ,SL,SU,DELTA,XNEW,D,
      1  W,W(NP),W(NP+N),W(NP+2*N),W(NP+3*N),DSQ,CRVMIN)
       DNORM=DMIN1(DELTA,DSQRT(DSQ))
-      IF (DNORM .LT. HALF*RHO) THEN
+      IF (DNORM < HALF*RHO) THEN
           NTRITS=-1
           DISTSQ=(TEN*RHO)**2
-          IF (NF .LE. NFSAV+2) GOTO 650
+          IF (NF <= NFSAV+2) GOTO 650
 !
 !     The following choice between labels 650 and 680 depends on whether or
 !     not our work with the current RHO seems to be complete. Either RHO is
@@ -273,21 +278,21 @@ SUBROUTINE BOBYQB (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
 !
           ERRBIG=DMAX1(DIFFA,DIFFB,DIFFC)
           FRHOSQ=0.125D0*RHO*RHO
-          IF (CRVMIN .GT. ZERO .AND. ERRBIG .GT. FRHOSQ*CRVMIN)
-     1       GOTO 650
+          IF (CRVMIN > ZERO .AND. ERRBIG > FRHOSQ*CRVMIN) GOTO 650
           BDTOL=ERRBIG/RHO
-          DO 80 J=1,N
-          BDTEST=BDTOL
-          IF (XNEW(J) .EQ. SL(J)) BDTEST=W(J)
-          IF (XNEW(J) .EQ. SU(J)) BDTEST=-W(J)
-          IF (BDTEST .LT. BDTOL) THEN
-              CURV=HQ((J+J*J)/2)
-              DO 70 K=1,NPT
-   70         CURV=CURV+PQ(K)*XPT(K,J)**2
-              BDTEST=BDTEST+HALF*CURV*RHO
-              IF (BDTEST .LT. BDTOL) GOTO 650
-          END IF
-   80     CONTINUE
+          DO J=1,N
+            BDTEST=BDTOL
+            IF (XNEW(J) == SL(J)) BDTEST=W(J)
+            IF (XNEW(J) == SU(J)) BDTEST=-W(J)
+            IF (BDTEST < BDTOL) THEN
+                CURV=HQ((J+J*J)/2)
+                DO K=1,NPT
+                    CURV=CURV+PQ(K)*XPT(K,J)**2
+                END DO
+                BDTEST=BDTEST+HALF*CURV*RHO
+                IF (BDTEST < BDTOL) GOTO 650
+            END IF
+          END DO
           GOTO 680
       END IF
       NTRITS=NTRITS+1
@@ -298,67 +303,82 @@ SUBROUTINE BOBYQB (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
 !     derivatives of the current model, beginning with the changes to BMAT
 !     that do not depend on ZMAT. VLAG is used temporarily for working space.
 !
-   90 IF (DSQ .LE. 1.0D-3*XOPTSQ) THEN
+   90 IF (DSQ <= 1.0D-3*XOPTSQ) THEN
           FRACSQ=0.25D0*XOPTSQ
           SUMPQ=ZERO
-          DO 110 K=1,NPT
-          SUMPQ=SUMPQ+PQ(K)
-          SUM=-HALF*XOPTSQ
-          DO 100 I=1,N
-  100     SUM=SUM+XPT(K,I)*XOPT(I)
-          W(NPT+K)=SUM
-          TEMP=FRACSQ-HALF*SUM
-          DO 110 I=1,N
-          W(I)=BMAT(K,I)
-          VLAG(I)=SUM*XPT(K,I)+TEMP*XOPT(I)
-          IP=NPT+I
-          DO 110 J=1,I
-  110     BMAT(IP,J)=BMAT(IP,J)+W(I)*VLAG(J)+VLAG(I)*W(J)
+          DO K=1,NPT
+            SUMPQ=SUMPQ+PQ(K)
+            SUM=-HALF*XOPTSQ
+            DO I=1,N
+                SUM=SUM+XPT(K,I)*XOPT(I)
+            END DO
+            W(NPT+K)=SUM
+            TEMP=FRACSQ-HALF*SUM
+              DO I=1,N
+                 W(I)=BMAT(K,I)
+                 VLAG(I)=SUM*XPT(K,I)+TEMP*XOPT(I)
+                 IP=NPT+I
+              DO J=1,I
+                 BMAT(IP,J)=BMAT(IP,J)+W(I)*VLAG(J)+VLAG(I)*W(J)
+              END DO
+            END DO
+          END DO
 !
 !     Then the revisions of BMAT that depend on ZMAT are calculated.
 !
-          DO 150 JJ=1,NPTM
-          SUMZ=ZERO
-          SUMW=ZERO
-          DO 120 K=1,NPT
-          SUMZ=SUMZ+ZMAT(K,JJ)
-          VLAG(K)=W(NPT+K)*ZMAT(K,JJ)
-  120     SUMW=SUMW+VLAG(K)
-          DO 140 J=1,N
-          SUM=(FRACSQ*SUMZ-HALF*SUMW)*XOPT(J)
-          DO 130 K=1,NPT
-  130     SUM=SUM+VLAG(K)*XPT(K,J)
-          W(J)=SUM
-          DO 140 K=1,NPT
-  140     BMAT(K,J)=BMAT(K,J)+SUM*ZMAT(K,JJ)
-          DO 150 I=1,N
-          IP=I+NPT
-          TEMP=W(I)
-          DO 150 J=1,I
-  150     BMAT(IP,J)=BMAT(IP,J)+TEMP*W(J)
+          DO JJ=1,NPTM
+            SUMZ=ZERO
+            SUMW=ZERO
+            DO K=1,NPT
+                SUMZ=SUMZ+ZMAT(K,JJ)
+                VLAG(K)=W(NPT+K)*ZMAT(K,JJ)
+                SUMW=SUMW+VLAG(K)
+            END DO
+            DO J=1,N
+                SUM=(FRACSQ*SUMZ-HALF*SUMW)*XOPT(J)
+                DO K=1,NPT
+                    SUM=SUM+VLAG(K)*XPT(K,J)
+                END DO
+                W(J)=SUM
+                DO K=1,NPT
+                    BMAT(K,J)=BMAT(K,J)+SUM*ZMAT(K,JJ)
+                END DO
+            END DO
+            DO I=1,N
+                IP=I+NPT
+                TEMP=W(I)
+                DO J=1,I
+                    BMAT(IP,J)=BMAT(IP,J)+TEMP*W(J)
+                END DO
+            END DO
+        END DO
 !
 !     The following instructions complete the shift, including the changes
 !     to the second derivative parameters of the quadratic model.
 !
           IH=0
-          DO 170 J=1,N
+          DO J=1,N
           W(J)=-HALF*SUMPQ*XOPT(J)
-          DO 160 K=1,NPT
-          W(J)=W(J)+PQ(K)*XPT(K,J)
-  160     XPT(K,J)=XPT(K,J)-XOPT(J)
-          DO 170 I=1,J
-          IH=IH+1
-          HQ(IH)=HQ(IH)+W(I)*XOPT(J)+XOPT(I)*W(J)
-  170     BMAT(NPT+I,J)=BMAT(NPT+J,I)
-          DO 180 I=1,N
-          XBASE(I)=XBASE(I)+XOPT(I)
-          XNEW(I)=XNEW(I)-XOPT(I)
-          SL(I)=SL(I)-XOPT(I)
-          SU(I)=SU(I)-XOPT(I)
-  180     XOPT(I)=ZERO
+          DO K=1,NPT
+             W(J)=W(J)+PQ(K)*XPT(K,J)
+             XPT(K,J)=XPT(K,J)-XOPT(J)
+          END DO
+            DO I=1,J
+            IH=IH+1
+            HQ(IH)=HQ(IH)+W(I)*XOPT(J)+XOPT(I)*W(J)
+            BMAT(NPT+I,J)=BMAT(NPT+J,I)
+            END DO
+          END DO
+          DO I=1,N
+            XBASE(I)=XBASE(I)+XOPT(I)
+            XNEW(I)=XNEW(I)-XOPT(I)
+            SL(I)=SL(I)-XOPT(I)
+            SU(I)=SU(I)-XOPT(I)
+            XOPT(I)=ZERO
+          END DO
           XOPTSQ=ZERO
       END IF
-      IF (NTRITS .EQ. 0) GOTO 210
+      IF (NTRITS == 0) GOTO 210
       GOTO 230
 !
 !     XBASE is also moved to XOPT by a call of RESCUE. This calculation is
@@ -381,22 +401,23 @@ SUBROUTINE BOBYQB (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
 !     leads to a trust region iteration as does the branch to label 60.
 !
       XOPTSQ=ZERO
-      IF (KOPT .NE. KBASE) THEN
-          DO 200 I=1,N
-          XOPT(I)=XPT(KOPT,I)
-  200     XOPTSQ=XOPTSQ+XOPT(I)**2
+      IF (KOPT /= KBASE) THEN
+          DO I=1,N
+             XOPT(I)=XPT(KOPT,I)
+             XOPTSQ=XOPTSQ+XOPT(I)**2
+          END DO
       END IF
-      IF (NF .LT. 0) THEN
+      IF (NF < 0) THEN
           NF=MAXFUN
-          IF (IPRINT .GT. 0) PRINT 390
+          IF (IPRINT > 0) PRINT 390
           GOTO 720
       END IF
       NRESC=NF
-      IF (NFSAV .LT. NF) THEN
+      IF (NFSAV < NF) THEN
           NFSAV=NF
           GOTO 20
       END IF
-      IF (NTRITS .GT. 0) GOTO 60
+      IF (NTRITS > 0) GOTO 60
 !
 !     Pick two alternative vectors of variables, relative to XBASE, that
 !     are suitable as new positions of the KNEW-th interpolation point.
@@ -411,47 +432,56 @@ SUBROUTINE BOBYQB (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
 !
   210 CALL ALTMOV (N,NPT,XPT,XOPT,BMAT,ZMAT,NDIM,SL,SU,KOPT,
      1  KNEW,ADELT,XNEW,XALT,ALPHA,CAUCHY,W,W(NP),W(NDIM+1))
-      DO 220 I=1,N
-  220 D(I)=XNEW(I)-XOPT(I)
+      DO I=1,N
+         D(I)=XNEW(I)-XOPT(I)
+      END DO
 !
 !     Calculate VLAG and BETA for the current choice of D. The scalar
 !     product of D with XPT(K,.) is going to be held in W(NPT+K) for
 !     use when VQUAD is calculated.
 !
-  230 DO 250 K=1,NPT
-      SUMA=ZERO
-      SUMB=ZERO
-      SUM=ZERO
-      DO 240 J=1,N
-      SUMA=SUMA+XPT(K,J)*D(J)
-      SUMB=SUMB+XPT(K,J)*XOPT(J)
-  240 SUM=SUM+BMAT(K,J)*D(J)
-      W(K)=SUMA*(HALF*SUMA+SUMB)
-      VLAG(K)=SUM
-  250 W(NPT+K)=SUMA
+  230 DO K=1,NPT
+        SUMA=ZERO
+        SUMB=ZERO
+        SUM=ZERO
+        DO J=1,N
+            SUMA=SUMA+XPT(K,J)*D(J)
+            SUMB=SUMB+XPT(K,J)*XOPT(J)
+            SUM=SUM+BMAT(K,J)*D(J)
+        END DO
+        W(K)=SUMA*(HALF*SUMA+SUMB)
+        VLAG(K)=SUM
+        W(NPT+K)=SUMA
+      END DO
       BETA=ZERO
-      DO 270 JJ=1,NPTM
-      SUM=ZERO
-      DO 260 K=1,NPT
-  260 SUM=SUM+ZMAT(K,JJ)*W(K)
-      BETA=BETA-SUM*SUM
-      DO 270 K=1,NPT
-  270 VLAG(K)=VLAG(K)+SUM*ZMAT(K,JJ)
+      DO JJ=1,NPTM
+        SUM=ZERO
+        DO K=1,NPT
+            SUM=SUM+ZMAT(K,JJ)*W(K)
+        END DO
+        BETA=BETA-SUM*SUM
+        DO K=1,NPT
+            VLAG(K)=VLAG(K)+SUM*ZMAT(K,JJ)
+        END DO
+      END DO
       DSQ=ZERO
       BSUM=ZERO
       DX=ZERO
-      DO 300 J=1,N
+      DO J=1,N
       DSQ=DSQ+D(J)**2
       SUM=ZERO
-      DO 280 K=1,NPT
-  280 SUM=SUM+W(K)*BMAT(K,J)
+      DO K=1,NPT
+         SUM=SUM+W(K)*BMAT(K,J)
+      END DO
       BSUM=BSUM+SUM*D(J)
       JP=NPT+J
-      DO 290 I=1,N
-  290 SUM=SUM+BMAT(JP,I)*D(I)
+      DO I=1,N
+         SUM=SUM+BMAT(JP,I)*D(I)
+      END DO
       VLAG(JP)=SUM
       BSUM=BSUM+SUM*D(J)
-  300 DX=DX+D(J)*XOPT(J)
+      DX=DX+D(J)*XOPT(J)
+      END DO
       BETA=DX*DX+DSQ*(XOPTSQ+DX+DX+HALF*DSQ)+BETA-BSUM
       VLAG(KOPT)=VLAG(KOPT)+ONE
 !
@@ -459,20 +489,20 @@ SUBROUTINE BOBYQB (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
 !     the step D of ALTMOV by a Cauchy step. Then RESCUE may be called if
 !     rounding errors have damaged the chosen denominator.
 !
-      IF (NTRITS .EQ. 0) THEN
+      IF (NTRITS == 0) THEN
           DENOM=VLAG(KNEW)**2+ALPHA*BETA
-          IF (DENOM .LT. CAUCHY .AND. CAUCHY .GT. ZERO) THEN
-              DO 310 I=1,N
-              XNEW(I)=XALT(I)
-  310         D(I)=XNEW(I)-XOPT(I)
+          IF (DENOM < CAUCHY .AND. CAUCHY > ZERO) THEN
+              DO I=1,N
+                XNEW(I)=XALT(I)
+                D(I)=XNEW(I)-XOPT(I)
+              END DO
               CAUCHY=ZERO
               GO TO 230
           END IF
-          IF (DENOM .LE. HALF*VLAG(KNEW)**2) THEN
-              IF (NF .GT. NRESC) GOTO 190
-              IF (IPRINT .GT. 0) PRINT 320
-  320         FORMAT (/5X,'Return from BOBYQA because of much',
-     1          ' cancellation in a denominator.')
+          IF (DENOM <= HALF*VLAG(KNEW)**2) THEN
+              IF (NF > NRESC) GOTO 190
+              IF (IPRINT > 0) PRINT 320
+  320         FORMAT (/5X,'Return from BOBYQA because of much cancellation in a denominator.')
               GOTO 720
           END IF
 !
@@ -487,26 +517,28 @@ SUBROUTINE BOBYQB (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
           SCADEN=ZERO
           BIGLSQ=ZERO
           KNEW=0
-          DO 350 K=1,NPT
-          IF (K .EQ. KOPT) GOTO 350
-          HDIAG=ZERO
-          DO 330 JJ=1,NPTM
-  330     HDIAG=HDIAG+ZMAT(K,JJ)**2
-          DEN=BETA*HDIAG+VLAG(K)**2
-          DISTSQ=ZERO
-          DO 340 J=1,N
-  340     DISTSQ=DISTSQ+(XPT(K,J)-XOPT(J))**2
-          TEMP=DMAX1(ONE,(DISTSQ/DELSQ)**2)
-          IF (TEMP*DEN .GT. SCADEN) THEN
-              SCADEN=TEMP*DEN
-              KNEW=K
-              DENOM=DEN
-          END IF
-          BIGLSQ=DMAX1(BIGLSQ,TEMP*VLAG(K)**2)
-  350     CONTINUE
-          IF (SCADEN .LE. HALF*BIGLSQ) THEN
-              IF (NF .GT. NRESC) GOTO 190
-              IF (IPRINT .GT. 0) PRINT 320
+          DO K=1,NPT
+            IF (K == KOPT) CYCLE
+            HDIAG=ZERO
+            DO JJ=1,NPTM
+               HDIAG=HDIAG+ZMAT(K,JJ)**2
+            END DO
+            DEN=BETA*HDIAG+VLAG(K)**2
+            DISTSQ=ZERO
+            DO J=1,N
+                DISTSQ=DISTSQ+(XPT(K,J)-XOPT(J))**2
+            END DO
+            TEMP=DMAX1(ONE,(DISTSQ/DELSQ)**2)
+            IF (TEMP*DEN > SCADEN) THEN
+                SCADEN=TEMP*DEN
+                KNEW=K
+                DENOM=DEN
+            END IF
+            BIGLSQ=DMAX1(BIGLSQ,TEMP*VLAG(K)**2)
+          END DO
+          IF (SCADEN <= HALF*BIGLSQ) THEN
+              IF (NF > NRESC) GOTO 190
+              IF (IPRINT > 0) PRINT 320
               GOTO 720
           END IF
       END IF
@@ -518,25 +550,24 @@ SUBROUTINE BOBYQB (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
 !     Calculate the value of the objective function at XBASE+XNEW, unless
 !       the limit on the number of calculations of F has been reached.
 !
-  360 DO 380 I=1,N
-      X(I)=DMIN1(DMAX1(XL(I),XBASE(I)+XNEW(I)),XU(I))
-      IF (XNEW(I) .EQ. SL(I)) X(I)=XL(I)
-      IF (XNEW(I) .EQ. SU(I)) X(I)=XU(I)
-  380 CONTINUE
-      IF (NF .GE. MAXFUN) THEN
-          IF (IPRINT .GT. 0) PRINT 390
-  390     FORMAT (/4X,'Return from BOBYQA because CALFUN has been',
-     1      ' called MAXFUN times.')
+  360 DO I=1,N
+        X(I)=DMIN1(DMAX1(XL(I),XBASE(I)+XNEW(I)),XU(I))
+        IF (XNEW(I) == SL(I)) X(I)=XL(I)
+        IF (XNEW(I) == SU(I)) X(I)=XU(I)
+      END DO
+      IF (NF >= MAXFUN) THEN
+          IF (IPRINT > 0) PRINT 390
+  390     FORMAT (/4X,'Return from BOBYQA because CALFUN has been called MAXFUN times.')
           GOTO 720
       END IF
       NF=NF+1
       CALL CALFUN (N,X,F)
-      IF (IPRINT .EQ. 3) THEN
+      IF (IPRINT == 3) THEN
           PRINT 400, NF,F,(X(I),I=1,N)
   400      FORMAT (/4X,'Function number',I6,'    F =',1PD18.10,
      1       '    The corresponding X is:'/(2X,5D15.6))
       END IF
-      IF (NTRITS .EQ. -1) THEN
+      IF (NTRITS == -1) THEN
           FSAVE=F
           GOTO 720
       END IF
@@ -547,65 +578,71 @@ SUBROUTINE BOBYQB (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
       FOPT=FVAL(KOPT)
       VQUAD=ZERO
       IH=0
-      DO 410 J=1,N
-      VQUAD=VQUAD+D(J)*GOPT(J)
-      DO 410 I=1,J
-      IH=IH+1
-      TEMP=D(I)*D(J)
-      IF (I .EQ. J) TEMP=HALF*TEMP
-  410 VQUAD=VQUAD+HQ(IH)*TEMP
-      DO 420 K=1,NPT
-  420 VQUAD=VQUAD+HALF*PQ(K)*W(NPT+K)**2
+      DO J=1,N
+        VQUAD=VQUAD+D(J)*GOPT(J)
+            DO I=1,J
+            IH=IH+1
+            TEMP=D(I)*D(J)
+            IF (I == J) TEMP=HALF*TEMP
+            VQUAD=VQUAD+HQ(IH)*TEMP
+            END DO
+      END DO
+      DO K=1,NPT
+         VQUAD=VQUAD+HALF*PQ(K)*W(NPT+K)**2
+      END DO
       DIFF=F-FOPT-VQUAD
       DIFFC=DIFFB
       DIFFB=DIFFA
       DIFFA=DABS(DIFF)
-      IF (DNORM .GT. RHO) NFSAV=NF
+      IF (DNORM > RHO) NFSAV=NF
 !
 !     Pick the next value of DELTA after a trust region step.
 !
-      IF (NTRITS .GT. 0) THEN
-          IF (VQUAD .GE. ZERO) THEN
-              IF (IPRINT .GT. 0) PRINT 430
+      IF (NTRITS > 0) THEN
+          IF (VQUAD >= ZERO) THEN
+              IF (IPRINT > 0) PRINT 430
   430         FORMAT (/4X,'Return from BOBYQA because a trust',
      1          ' region step has failed to reduce Q.')
               GOTO 720
           END IF
           RATIO=(F-FOPT)/VQUAD
-          IF (RATIO .LE. TENTH) THEN
+          IF (RATIO <= TENTH) THEN
               DELTA=DMIN1(HALF*DELTA,DNORM)
           ELSE IF (RATIO. LE. 0.7D0) THEN
               DELTA=DMAX1(HALF*DELTA,DNORM)
           ELSE
               DELTA=DMAX1(HALF*DELTA,DNORM+DNORM)
           END IF
-          IF (DELTA .LE. 1.5D0*RHO) DELTA=RHO
+          IF (DELTA <= 1.5D0*RHO) DELTA=RHO
 !
 !     Recalculate KNEW and DENOM if the new F is less than FOPT.
 !
-          IF (F .LT. FOPT) THEN
+          IF (F < FOPT) THEN
               KSAV=KNEW
               DENSAV=DENOM
               DELSQ=DELTA*DELTA
               SCADEN=ZERO
               BIGLSQ=ZERO
               KNEW=0
-              DO 460 K=1,NPT
-              HDIAG=ZERO
-              DO 440 JJ=1,NPTM
-  440         HDIAG=HDIAG+ZMAT(K,JJ)**2
-              DEN=BETA*HDIAG+VLAG(K)**2
-              DISTSQ=ZERO
-              DO 450 J=1,N
-  450         DISTSQ=DISTSQ+(XPT(K,J)-XNEW(J))**2
-              TEMP=DMAX1(ONE,(DISTSQ/DELSQ)**2)
-              IF (TEMP*DEN .GT. SCADEN) THEN
-                  SCADEN=TEMP*DEN
-                  KNEW=K
-                  DENOM=DEN
-              END IF
-  460         BIGLSQ=DMAX1(BIGLSQ,TEMP*VLAG(K)**2)
-              IF (SCADEN .LE. HALF*BIGLSQ) THEN
+              DO K=1,NPT
+                HDIAG=ZERO
+                DO JJ=1,NPTM
+                    HDIAG=HDIAG+ZMAT(K,JJ)**2
+                END DO
+                DEN=BETA*HDIAG+VLAG(K)**2
+                DISTSQ=ZERO
+                DO J=1,N
+                    DISTSQ=DISTSQ+(XPT(K,J)-XNEW(J))**2
+                END DO
+                TEMP=DMAX1(ONE,(DISTSQ/DELSQ)**2)
+                IF (TEMP*DEN > SCADEN) THEN
+                    SCADEN=TEMP*DEN
+                    KNEW=K
+                    DENOM=DEN
+                END IF
+                BIGLSQ=DMAX1(BIGLSQ,TEMP*VLAG(K)**2)
+              END DO
+              IF (SCADEN <= HALF*BIGLSQ) THEN
                   KNEW=KSAV
                   DENOM=DENSAV
               END IF
@@ -619,102 +656,125 @@ SUBROUTINE BOBYQB (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
       IH=0
       PQOLD=PQ(KNEW)
       PQ(KNEW)=ZERO
-      DO 470 I=1,N
-      TEMP=PQOLD*XPT(KNEW,I)
-      DO 470 J=1,I
-      IH=IH+1
-  470 HQ(IH)=HQ(IH)+TEMP*XPT(KNEW,J)
-      DO 480 JJ=1,NPTM
-      TEMP=DIFF*ZMAT(KNEW,JJ)
-      DO 480 K=1,NPT
-  480 PQ(K)=PQ(K)+TEMP*ZMAT(K,JJ)
+      DO I=1,N
+         TEMP=PQOLD*XPT(KNEW,I)
+         DO J=1,I
+         IH=IH+1
+           HQ(IH)=HQ(IH)+TEMP*XPT(KNEW,J)
+        END DO
+      END DO
+      DO JJ=1,NPTM
+        TEMP=DIFF*ZMAT(KNEW,JJ)
+        DO K=1,NPT
+           PQ(K)=PQ(K)+TEMP*ZMAT(K,JJ)
+        END DO
+      END DO
 !
 !     Include the new interpolation point, and make the changes to GOPT at
 !     the old XOPT that are caused by the updating of the quadratic model.
 !
       FVAL(KNEW)=F
-      DO 490 I=1,N
-      XPT(KNEW,I)=XNEW(I)
-  490 W(I)=BMAT(KNEW,I)
-      DO 520 K=1,NPT
-      SUMA=ZERO
-      DO 500 JJ=1,NPTM
-  500 SUMA=SUMA+ZMAT(KNEW,JJ)*ZMAT(K,JJ)
-      SUMB=ZERO
-      DO 510 J=1,N
-  510 SUMB=SUMB+XPT(K,J)*XOPT(J)
-      TEMP=SUMA*SUMB
-      DO 520 I=1,N
-  520 W(I)=W(I)+TEMP*XPT(K,I)
-      DO 530 I=1,N
-  530 GOPT(I)=GOPT(I)+DIFF*W(I)
+      DO I=1,N
+        XPT(KNEW,I)=XNEW(I)
+        W(I)=BMAT(KNEW,I)
+      END DO
+      DO K=1,NPT
+        SUMA=ZERO
+        DO JJ=1,NPTM
+            SUMA=SUMA+ZMAT(KNEW,JJ)*ZMAT(K,JJ)
+        END DO
+        SUMB=ZERO
+        DO J=1,N
+           SUMB=SUMB+XPT(K,J)*XOPT(J)
+        END DO
+        TEMP=SUMA*SUMB
+        DO I=1,N
+            W(I)=W(I)+TEMP*XPT(K,I)
+        END DO
+      END DO
+      DO I=1,N
+         GOPT(I)=GOPT(I)+DIFF*W(I)
+      END DO
 !
 !     Update XOPT, GOPT and KOPT if the new calculated F is less than FOPT.
 !
-      IF (F .LT. FOPT) THEN
+      IF (F < FOPT) THEN
           KOPT=KNEW
           XOPTSQ=ZERO
           IH=0
-          DO 540 J=1,N
-          XOPT(J)=XNEW(J)
-          XOPTSQ=XOPTSQ+XOPT(J)**2
-          DO 540 I=1,J
-          IH=IH+1
-          IF (I .LT. J) GOPT(J)=GOPT(J)+HQ(IH)*D(I)
-  540     GOPT(I)=GOPT(I)+HQ(IH)*D(J)
-          DO 560 K=1,NPT
-          TEMP=ZERO
-          DO 550 J=1,N
-  550     TEMP=TEMP+XPT(K,J)*D(J)
-          TEMP=PQ(K)*TEMP
-          DO 560 I=1,N
-  560     GOPT(I)=GOPT(I)+TEMP*XPT(K,I)
+          DO J=1,N
+            XOPT(J)=XNEW(J)
+            XOPTSQ=XOPTSQ+XOPT(J)**2
+            DO I=1,J
+                IH=IH+1
+                IF (I < J) GOPT(J)=GOPT(J)+HQ(IH)*D(I)
+                GOPT(I)=GOPT(I)+HQ(IH)*D(J)
+            END DO
+          END DO
+          DO K=1,NPT
+            TEMP=ZERO
+            DO J=1,N
+                TEMP=TEMP+XPT(K,J)*D(J)
+            END DO
+            TEMP=PQ(K)*TEMP
+            DO I=1,N
+                GOPT(I)=GOPT(I)+TEMP*XPT(K,I)
+            END DO
+          END DO
       END IF
 !
 !     Calculate the parameters of the least Frobenius norm interpolant to
 !     the current data, the gradient of this interpolant at XOPT being put
 !     into VLAG(NPT+I), I=1,2,...,N.
 !
-      IF (NTRITS .GT. 0) THEN
-          DO 570 K=1,NPT
-          VLAG(K)=FVAL(K)-FVAL(KOPT)
-  570     W(K)=ZERO
-          DO 590 J=1,NPTM
-          SUM=ZERO
-          DO 580 K=1,NPT
-  580     SUM=SUM+ZMAT(K,J)*VLAG(K)
-          DO 590 K=1,NPT
-  590     W(K)=W(K)+SUM*ZMAT(K,J)
-          DO 610 K=1,NPT
-          SUM=ZERO
-          DO 600 J=1,N
-  600     SUM=SUM+XPT(K,J)*XOPT(J)
-          W(K+NPT)=W(K)
-  610     W(K)=SUM*W(K)
+      IF (NTRITS > 0) THEN
+          DO K=1,NPT
+            VLAG(K)=FVAL(K)-FVAL(KOPT)
+            W(K)=ZERO
+          END DO
+          DO J=1,NPTM
+            SUM=ZERO
+            DO K=1,NPT
+                SUM=SUM+ZMAT(K,J)*VLAG(K)
+            END DO
+          END DO
+          DO K=1,NPT
+             W(K)=W(K)+SUM*ZMAT(K,J)
+          END DO
+          DO K=1,NPT
+            SUM=ZERO
+            DO J=1,N
+                SUM=SUM+XPT(K,J)*XOPT(J)
+            END DO
+            W(K+NPT)=W(K)
+            W(K)=SUM*W(K)
+          END DO
           GQSQ=ZERO
           GISQ=ZERO
-          DO 630 I=1,N
-          SUM=ZERO
-          DO 620 K=1,NPT
-  620     SUM=SUM+BMAT(K,I)*VLAG(K)+XPT(K,I)*W(K)
-          IF (XOPT(I) .EQ. SL(I)) THEN
-              GQSQ=GQSQ+DMIN1(ZERO,GOPT(I))**2
-              GISQ=GISQ+DMIN1(ZERO,SUM)**2
-          ELSE IF (XOPT(I) .EQ. SU(I)) THEN
-              GQSQ=GQSQ+DMAX1(ZERO,GOPT(I))**2
-              GISQ=GISQ+DMAX1(ZERO,SUM)**2
-          ELSE
-              GQSQ=GQSQ+GOPT(I)**2
-              GISQ=GISQ+SUM*SUM
-          END IF
-  630     VLAG(NPT+I)=SUM
+          DO I=1,N
+            SUM=ZERO
+            DO K=1,NPT
+                SUM=SUM+BMAT(K,I)*VLAG(K)+XPT(K,I)*W(K)
+            END DO
+            IF (XOPT(I) == SL(I)) THEN
+                GQSQ=GQSQ+DMIN1(ZERO,GOPT(I))**2
+                GISQ=GISQ+DMIN1(ZERO,SUM)**2
+            ELSE IF (XOPT(I) == SU(I)) THEN
+                GQSQ=GQSQ+DMAX1(ZERO,GOPT(I))**2
+                GISQ=GISQ+DMAX1(ZERO,SUM)**2
+            ELSE
+                GQSQ=GQSQ+GOPT(I)**2
+                GISQ=GISQ+SUM*SUM
+            END IF
+            VLAG(NPT+I)=SUM
+          END DO
 !
 !     Test whether to replace the new quadratic model by the least Frobenius
 !     norm interpolant, making the replacement if the test is satisfied.
 !
           ITEST=ITEST+1
-          IF (GQSQ .LT. TEN*GISQ) ITEST=0
-          do_replace = (ITEST .GE. 3)
+          IF (GQSQ < TEN*GISQ) ITEST=0
+          do_replace = (ITEST >= 3)
           if (.not. do_replace) then ! check for "invalid" value
             do k=1,npt
                if (fval(k) > max_valid_value) then
@@ -726,12 +786,12 @@ SUBROUTINE BOBYQB (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
           end if 
           IF (do_replace) THEN    
               !stop 'bobyqa: do_replace'
-              DO 640 I=1,MAX0(NPT,NH)
-              IF (I .LE. N) GOPT(I)=VLAG(NPT+I)
-              IF (I .LE. NPT) PQ(I)=W(NPT+I)
-              IF (I .LE. NH) HQ(I)=ZERO
-              ITEST=0
-  640         CONTINUE
+              DO I=1,MAX0(NPT,NH)
+                IF (I <= N) GOPT(I)=VLAG(NPT+I)
+                IF (I <= NPT) PQ(I)=W(NPT+I)
+                IF (I <= NH) HQ(I)=ZERO
+                ITEST=0
+              END DO
           END IF
       END IF
 !
@@ -739,23 +799,24 @@ SUBROUTINE BOBYQB (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
 !     branch for another trust region calculation. The case NTRITS=0 occurs
 !     when the new interpolation point was reached by an alternative step.
 !
-      IF (NTRITS .EQ. 0) GOTO 60
-      IF (F .LE. FOPT+TENTH*VQUAD) GOTO 60
+      IF (NTRITS == 0) GOTO 60
+      IF (F <= FOPT+TENTH*VQUAD) GOTO 60
 !
 !     Alternatively, find out if the interpolation points are close enough
 !       to the best point so far.
 !
       DISTSQ=DMAX1((TWO*DELTA)**2,(TEN*RHO)**2)
   650 KNEW=0
-      DO 670 K=1,NPT
-      SUM=ZERO
-      DO 660 J=1,N
-  660 SUM=SUM+(XPT(K,J)-XOPT(J))**2
-      IF (SUM .GT. DISTSQ) THEN
-          KNEW=K
-          DISTSQ=SUM
-      END IF
-  670 CONTINUE
+      DO K=1,NPT
+        SUM=ZERO
+        DO J=1,N
+            SUM=SUM+(XPT(K,J)-XOPT(J))**2
+        END DO
+        IF (SUM > DISTSQ) THEN
+            KNEW=K
+            DISTSQ=SUM
+        END IF
+      END DO
 !
 !     If KNEW is positive, then ALTMOV finds alternative new positions for
 !     the KNEW-th interpolation point within distance ADELT of XOPT. It is
@@ -763,37 +824,37 @@ SUBROUTINE BOBYQB (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
 !     another trust region iteration, unless the calculations with the
 !     current RHO are complete.
 !
-      IF (KNEW .GT. 0) THEN
+      IF (KNEW > 0) THEN
           DIST=DSQRT(DISTSQ)
-          IF (NTRITS .EQ. -1) THEN
+          IF (NTRITS == -1) THEN
               DELTA=DMIN1(TENTH*DELTA,HALF*DIST)
-              IF (DELTA .LE. 1.5D0*RHO) DELTA=RHO
+              IF (DELTA <= 1.5D0*RHO) DELTA=RHO
           END IF
           NTRITS=0
           ADELT=DMAX1(DMIN1(TENTH*DIST,DELTA),RHO)
           DSQ=ADELT*ADELT
           GOTO 90
       END IF
-      IF (NTRITS .EQ. -1) GOTO 680
-      IF (RATIO .GT. ZERO) GOTO 60
-      IF (DMAX1(DELTA,DNORM) .GT. RHO) GOTO 60
+      IF (NTRITS == -1) GOTO 680
+      IF (RATIO > ZERO) GOTO 60
+      IF (DMAX1(DELTA,DNORM) > RHO) GOTO 60
 !
 !     The calculations with the current value of RHO are complete. Pick the
 !       next values of RHO and DELTA.
 !
-  680 IF (RHO .GT. RHOEND) THEN
+  680 IF (RHO > RHOEND) THEN
           DELTA=HALF*RHO
           RATIO=RHO/RHOEND
-          IF (RATIO .LE. 16.0D0) THEN
+          IF (RATIO <= 16.0D0) THEN
               RHO=RHOEND
-          ELSE IF (RATIO .LE. 250.0D0) THEN
+          ELSE IF (RATIO <= 250.0D0) THEN
               RHO=DSQRT(RATIO)*RHOEND
           ELSE
               RHO=TENTH*RHO
           END IF
           DELTA=DMAX1(DELTA,RHO)
-          IF (IPRINT .GE. 2) THEN
-              IF (IPRINT .GE. 3) PRINT 690
+          IF (IPRINT >= 2) THEN
+              IF (IPRINT >= 3) PRINT 690
   690         FORMAT (5X)
               PRINT 700, RHO,NF
   700         FORMAT (/4X,'New RHO =',1PD11.4,5X,'Number of',
@@ -810,19 +871,18 @@ SUBROUTINE BOBYQB (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,
 !     Return from the calculation, after another Newton-Raphson step, if
 !       it is too short to have been tried before.
 !
-      IF (NTRITS .EQ. -1) GOTO 360
-  720 IF (FVAL(KOPT) .LE. FSAVE) THEN
-          DO 730 I=1,N
-          X(I)=DMIN1(DMAX1(XL(I),XBASE(I)+XOPT(I)),XU(I))
-          IF (XOPT(I) .EQ. SL(I)) X(I)=XL(I)
-          IF (XOPT(I) .EQ. SU(I)) X(I)=XU(I)
-  730     CONTINUE
+      IF (NTRITS == -1) GOTO 360
+  720 IF (FVAL(KOPT) <= FSAVE) THEN
+          DO I=1,N
+            X(I)=DMIN1(DMAX1(XL(I),XBASE(I)+XOPT(I)),XU(I))
+            IF (XOPT(I) == SL(I)) X(I)=XL(I)
+            IF (XOPT(I) == SU(I)) X(I)=XU(I)
+          END DO
           F=FVAL(KOPT)
       END IF
-      IF (IPRINT .GE. 1) THEN
+      IF (IPRINT >= 1) THEN
           PRINT 740, NF
-  740     FORMAT (/4X,'At the return from BOBYQA',5X,
-     1      'Number of function values =',I6)
+  740     FORMAT (/4X,'At the return from BOBYQA',5X,'Number of function values =',I6)
           PRINT 710, F,(X(I),I=1,N)
       END IF
       RETURN
@@ -831,7 +891,8 @@ END SUBROUTINE BOBYQB
 
       SUBROUTINE ALTMOV (N,NPT,XPT,XOPT,BMAT,ZMAT,NDIM,SL,SU,KOPT,
      1  KNEW,ADELT,XNEW,XALT,ALPHA,CAUCHY,GLAG,HCOL,W)
-      IMPLICIT REAL*8 (A-H,O-Z)
+      IMPLICIT real(dp) (A-H,O-Z)
+      integer :: N, NPT, NDIM, KOPT, KNEW
       DIMENSION XPT(NPT,*),XOPT(*),BMAT(NDIM,*),ZMAT(NPT,*),SL(*),
      1  SU(*),XNEW(*),XALT(*),GLAG(*),HCOL(*),W(*)
 !
@@ -869,26 +930,33 @@ SUBROUTINE ALTMOV (N,NPT,XPT,XOPT,BMAT,ZMAT,NDIM,SL,SU,KOPT,
       ONE=1.0D0
       ZERO=0.0D0
       CONST=ONE+DSQRT(2.0D0)
-      DO 10 K=1,NPT
-   10 HCOL(K)=ZERO
-      DO 20 J=1,NPT-N-1
-      TEMP=ZMAT(KNEW,J)
-      DO 20 K=1,NPT
-   20 HCOL(K)=HCOL(K)+TEMP*ZMAT(K,J)
+      DO K=1,NPT
+         HCOL(K)=ZERO
+      END DO
+      DO J=1,NPT-N-1
+        TEMP=ZMAT(KNEW,J)
+        DO K=1,NPT
+            HCOL(K)=HCOL(K)+TEMP*ZMAT(K,J)
+        END DO
+      END DO
       ALPHA=HCOL(KNEW)
       HA=HALF*ALPHA
 !
 !     Calculate the gradient of the KNEW-th Lagrange function at XOPT.
 !
-      DO 30 I=1,N
-   30 GLAG(I)=BMAT(KNEW,I)
-      DO 50 K=1,NPT
-      TEMP=ZERO
-      DO 40 J=1,N
-   40 TEMP=TEMP+XPT(K,J)*XOPT(J)
-      TEMP=HCOL(K)*TEMP
-      DO 50 I=1,N
-   50 GLAG(I)=GLAG(I)+TEMP*XPT(K,I)
+      DO I=1,N
+         GLAG(I)=BMAT(KNEW,I)
+      END DO
+      DO K=1,NPT
+        TEMP=ZERO
+        DO J=1,N
+            TEMP=TEMP+XPT(K,J)*XOPT(J)
+        END DO
+        TEMP=HCOL(K)*TEMP
+        DO I=1,N
+           GLAG(I)=GLAG(I)+TEMP*XPT(K,I)
+        END DO
+      END DO
 !
 !     Search for a large denominator along the straight lines through XOPT
 !     and another interpolation point. SLBD and SUBD will be lower and upper
@@ -897,112 +965,114 @@ SUBROUTINE ALTMOV (N,NPT,XPT,XOPT,BMAT,ZMAT,NDIM,SL,SU,KOPT,
 !     will be set to the largest admissible value of PREDSQ that occurs.
 !
       PRESAV=ZERO
-      DO 80 K=1,NPT
-      IF (K .EQ. KOPT) GOTO 80
-      DDERIV=ZERO
-      DISTSQ=ZERO
-      DO 60 I=1,N
-      TEMP=XPT(K,I)-XOPT(I)
-      DDERIV=DDERIV+GLAG(I)*TEMP
-   60 DISTSQ=DISTSQ+TEMP*TEMP
-      SUBD=ADELT/DSQRT(DISTSQ)
-      SLBD=-SUBD
-      ILBD=0
-      IUBD=0
-      SUMIN=DMIN1(ONE,SUBD)
+      DO K=1,NPT
+        IF (K == KOPT) CYCLE
+        DDERIV=ZERO
+        DISTSQ=ZERO
+        DO I=1,N
+            TEMP=XPT(K,I)-XOPT(I)
+            DDERIV=DDERIV+GLAG(I)*TEMP
+            DISTSQ=DISTSQ+TEMP*TEMP
+        END DO
+        SUBD=ADELT/DSQRT(DISTSQ)
+        SLBD=-SUBD
+        ILBD=0
+        IUBD=0
+        SUMIN=DMIN1(ONE,SUBD)
 !
 !     Revise SLBD and SUBD if necessary because of the bounds in SL and SU.
 !
-      DO 70 I=1,N
-      TEMP=XPT(K,I)-XOPT(I)
-      IF (TEMP .GT. ZERO) THEN
-          IF (SLBD*TEMP .LT. SL(I)-XOPT(I)) THEN
-              SLBD=(SL(I)-XOPT(I))/TEMP
-              ILBD=-I
-          END IF
-          IF (SUBD*TEMP .GT. SU(I)-XOPT(I)) THEN
-              SUBD=DMAX1(SUMIN,(SU(I)-XOPT(I))/TEMP)
-              IUBD=I
-          END IF
-      ELSE IF (TEMP .LT. ZERO) THEN
-          IF (SLBD*TEMP .GT. SU(I)-XOPT(I)) THEN
-              SLBD=(SU(I)-XOPT(I))/TEMP
-              ILBD=I
-          END IF
-          IF (SUBD*TEMP .LT. SL(I)-XOPT(I)) THEN
-              SUBD=DMAX1(SUMIN,(SL(I)-XOPT(I))/TEMP)
-              IUBD=-I
-          END IF
-      END IF
-   70 CONTINUE
+        DO I=1,N
+            TEMP=XPT(K,I)-XOPT(I)
+            IF (TEMP > ZERO) THEN
+                IF (SLBD*TEMP < SL(I)-XOPT(I)) THEN
+                    SLBD=(SL(I)-XOPT(I))/TEMP
+                    ILBD=-I
+                END IF
+                IF (SUBD*TEMP > SU(I)-XOPT(I)) THEN
+                    SUBD=DMAX1(SUMIN,(SU(I)-XOPT(I))/TEMP)
+                    IUBD=I
+                END IF
+            ELSE IF (TEMP < ZERO) THEN
+                IF (SLBD*TEMP > SU(I)-XOPT(I)) THEN
+                    SLBD=(SU(I)-XOPT(I))/TEMP
+                    ILBD=I
+                END IF
+                IF (SUBD*TEMP < SL(I)-XOPT(I)) THEN
+                    SUBD=DMAX1(SUMIN,(SL(I)-XOPT(I))/TEMP)
+                    IUBD=-I
+                END IF
+            END IF
+        END DO
 !
 !     Seek a large modulus of the KNEW-th Lagrange function when the index
 !     of the other interpolation point on the line through XOPT is KNEW.
 !
-      IF (K .EQ. KNEW) THEN
-          DIFF=DDERIV-ONE
-          STEP=SLBD
-          VLAG=SLBD*(DDERIV-SLBD*DIFF)
-          ISBD=ILBD
-          TEMP=SUBD*(DDERIV-SUBD*DIFF)
-          IF (DABS(TEMP) .GT. DABS(VLAG)) THEN
-              STEP=SUBD
-              VLAG=TEMP
-              ISBD=IUBD
-          END IF
-          TEMPD=HALF*DDERIV
-          TEMPA=TEMPD-DIFF*SLBD
-          TEMPB=TEMPD-DIFF*SUBD
-          IF (TEMPA*TEMPB .LT. ZERO) THEN
-              TEMP=TEMPD*TEMPD/DIFF
-              IF (DABS(TEMP) .GT. DABS(VLAG)) THEN
-                  STEP=TEMPD/DIFF
-                  VLAG=TEMP
-                  ISBD=0
-              END IF
-          END IF
+        IF (K == KNEW) THEN
+            DIFF=DDERIV-ONE
+            STEP=SLBD
+            VLAG=SLBD*(DDERIV-SLBD*DIFF)
+            ISBD=ILBD
+            TEMP=SUBD*(DDERIV-SUBD*DIFF)
+            IF (DABS(TEMP) > DABS(VLAG)) THEN
+                STEP=SUBD
+                VLAG=TEMP
+                ISBD=IUBD
+            END IF
+            TEMPD=HALF*DDERIV
+            TEMPA=TEMPD-DIFF*SLBD
+            TEMPB=TEMPD-DIFF*SUBD
+            IF (TEMPA*TEMPB < ZERO) THEN
+                TEMP=TEMPD*TEMPD/DIFF
+                IF (DABS(TEMP) > DABS(VLAG)) THEN
+                    STEP=TEMPD/DIFF
+                    VLAG=TEMP
+                    ISBD=0
+                END IF
+            END IF
 !
 !     Search along each of the other lines through XOPT and another point.
 !
-      ELSE
-          STEP=SLBD
-          VLAG=SLBD*(ONE-SLBD)
-          ISBD=ILBD
-          TEMP=SUBD*(ONE-SUBD)
-          IF (DABS(TEMP) .GT. DABS(VLAG)) THEN
-              STEP=SUBD
-              VLAG=TEMP
-              ISBD=IUBD
-          END IF
-          IF (SUBD .GT. HALF) THEN
-              IF (DABS(VLAG) .LT. 0.25D0) THEN
-                  STEP=HALF
-                  VLAG=0.25D0
-                  ISBD=0
-              END IF
-          END IF
-          VLAG=VLAG*DDERIV
-      END IF
+        ELSE
+            STEP=SLBD
+            VLAG=SLBD*(ONE-SLBD)
+            ISBD=ILBD
+            TEMP=SUBD*(ONE-SUBD)
+            IF (DABS(TEMP) > DABS(VLAG)) THEN
+                STEP=SUBD
+                VLAG=TEMP
+                ISBD=IUBD
+            END IF
+            IF (SUBD > HALF) THEN
+                IF (DABS(VLAG) < 0.25D0) THEN
+                    STEP=HALF
+                    VLAG=0.25D0
+                    ISBD=0
+                END IF
+            END IF
+            VLAG=VLAG*DDERIV
+        END IF
 !
 !     Calculate PREDSQ for the current line search and maintain PRESAV.
 !
-      TEMP=STEP*(ONE-STEP)*DISTSQ
-      PREDSQ=VLAG*VLAG*(VLAG*VLAG+HA*TEMP*TEMP)
-      IF (PREDSQ .GT. PRESAV) THEN
-          PRESAV=PREDSQ
-          KSAV=K
-          STPSAV=STEP
-          IBDSAV=ISBD
-      END IF
-   80 CONTINUE
+        TEMP=STEP*(ONE-STEP)*DISTSQ
+        PREDSQ=VLAG*VLAG*(VLAG*VLAG+HA*TEMP*TEMP)
+        IF (PREDSQ > PRESAV) THEN
+            PRESAV=PREDSQ
+            KSAV=K
+            STPSAV=STEP
+            IBDSAV=ISBD
+        END IF
+      END DO
 !
 !     Construct XNEW in a way that satisfies the bound constraints exactly.
 !
-      DO 90 I=1,N
-      TEMP=XOPT(I)+STPSAV*(XPT(KSAV,I)-XOPT(I))
-   90 XNEW(I)=DMAX1(SL(I),DMIN1(SU(I),TEMP))
-      IF (IBDSAV .LT. 0) XNEW(-IBDSAV)=SL(-IBDSAV)
-      IF (IBDSAV .GT. 0) XNEW(IBDSAV)=SU(IBDSAV)
+      DO I=1,N
+         TEMP=XOPT(I)+STPSAV*(XPT(KSAV,I)-XOPT(I))
+         XNEW(I)=DMAX1(SL(I),DMIN1(SU(I),TEMP))
+      END DO
+      IF (IBDSAV < 0) XNEW(-IBDSAV)=SL(-IBDSAV)
+      IF (IBDSAV > 0) XNEW(IBDSAV)=SU(IBDSAV)
 !
 !     Prepare for the iterative method that assembles the constrained Cauchy
 !     step in W. The sum of squares of the fixed components of W is formed in
@@ -1012,16 +1082,16 @@ SUBROUTINE ALTMOV (N,NPT,XPT,XOPT,BMAT,ZMAT,NDIM,SL,SU,KOPT,
       IFLAG=0
   100 WFIXSQ=ZERO
       GGFREE=ZERO
-      DO 110 I=1,N
-      W(I)=ZERO
-      TEMPA=DMIN1(XOPT(I)-SL(I),GLAG(I))
-      TEMPB=DMAX1(XOPT(I)-SU(I),GLAG(I))
-      IF (TEMPA .GT. ZERO .OR. TEMPB .LT. ZERO) THEN
-          W(I)=BIGSTP
-          GGFREE=GGFREE+GLAG(I)**2
-      END IF
-  110 CONTINUE
-      IF (GGFREE .EQ. ZERO) THEN
+      DO I=1,N
+        W(I)=ZERO
+        TEMPA=DMIN1(XOPT(I)-SL(I),GLAG(I))
+        TEMPB=DMAX1(XOPT(I)-SU(I),GLAG(I))
+        IF (TEMPA > ZERO .OR. TEMPB < ZERO) THEN
+            W(I)=BIGSTP
+            GGFREE=GGFREE+GLAG(I)**2
+        END IF
+      END DO
+      IF (GGFREE == ZERO) THEN
           CAUCHY=ZERO
           GOTO 200
       END IF
@@ -1029,43 +1099,44 @@ SUBROUTINE ALTMOV (N,NPT,XPT,XOPT,BMAT,ZMAT,NDIM,SL,SU,KOPT,
 !     Investigate whether more components of W can be fixed.
 !
   120 TEMP=ADELT*ADELT-WFIXSQ
-      IF (TEMP .GT. ZERO) THEN
+      IF (TEMP > ZERO) THEN
           WSQSAV=WFIXSQ
           STEP=DSQRT(TEMP/GGFREE)
           GGFREE=ZERO
-          DO 130 I=1,N
-          IF (W(I) .EQ. BIGSTP) THEN
-              TEMP=XOPT(I)-STEP*GLAG(I)
-              IF (TEMP .LE. SL(I)) THEN
-                  W(I)=SL(I)-XOPT(I)
-                  WFIXSQ=WFIXSQ+W(I)**2
-              ELSE IF (TEMP .GE. SU(I)) THEN
-                  W(I)=SU(I)-XOPT(I)
-                  WFIXSQ=WFIXSQ+W(I)**2
-              ELSE
-                  GGFREE=GGFREE+GLAG(I)**2
-              END IF
-          END IF
-  130     CONTINUE
-          IF (WFIXSQ .GT. WSQSAV .AND. GGFREE .GT. ZERO) GOTO 120
+          DO I=1,N
+            IF (W(I) == BIGSTP) THEN
+                TEMP=XOPT(I)-STEP*GLAG(I)
+                IF (TEMP <= SL(I)) THEN
+                    W(I)=SL(I)-XOPT(I)
+                    WFIXSQ=WFIXSQ+W(I)**2
+                ELSE IF (TEMP >= SU(I)) THEN
+                    W(I)=SU(I)-XOPT(I)
+                    WFIXSQ=WFIXSQ+W(I)**2
+                ELSE
+                    GGFREE=GGFREE+GLAG(I)**2
+                END IF
+            END IF
+          END DO
+          IF (WFIXSQ > WSQSAV .AND. GGFREE > ZERO) GOTO 120
       END IF
 !
 !     Set the remaining free components of W and all components of XALT,
 !     except that W may be scaled later.
 !
       GW=ZERO
-      DO 140 I=1,N
-      IF (W(I) .EQ. BIGSTP) THEN
-          W(I)=-STEP*GLAG(I)
-          XALT(I)=DMAX1(SL(I),DMIN1(SU(I),XOPT(I)+W(I)))
-      ELSE IF (W(I) .EQ. ZERO) THEN
-          XALT(I)=XOPT(I)
-      ELSE IF (GLAG(I) .GT. ZERO) THEN
-          XALT(I)=SL(I)
-      ELSE
-          XALT(I)=SU(I)
-      END IF
-  140 GW=GW+GLAG(I)*W(I)
+      DO I=1,N
+        IF (W(I) == BIGSTP) THEN
+            W(I)=-STEP*GLAG(I)
+            XALT(I)=DMAX1(SL(I),DMIN1(SU(I),XOPT(I)+W(I)))
+        ELSE IF (W(I) == ZERO) THEN
+            XALT(I)=XOPT(I)
+        ELSE IF (GLAG(I) > ZERO) THEN
+            XALT(I)=SL(I)
+        ELSE
+            XALT(I)=SU(I)
+        END IF
+        GW=GW+GLAG(I)*W(I)
+      END DO
 !
 !     Set CURV to the curvature of the KNEW-th Lagrange function along W.
 !     Scale W by a factor less than one if that can reduce the modulus of
@@ -1073,17 +1144,20 @@ SUBROUTINE ALTMOV (N,NPT,XPT,XOPT,BMAT,ZMAT,NDIM,SL,SU,KOPT,
 !     the square of this function.
 !
       CURV=ZERO
-      DO 160 K=1,NPT
-      TEMP=ZERO
-      DO 150 J=1,N
-  150 TEMP=TEMP+XPT(K,J)*W(J)
-  160 CURV=CURV+HCOL(K)*TEMP*TEMP
-      IF (IFLAG .EQ. 1) CURV=-CURV
-      IF (CURV .GT. -GW .AND. CURV .LT. -CONST*GW) THEN
+      DO K=1,NPT
+        TEMP=ZERO
+        DO J=1,N
+            TEMP=TEMP+XPT(K,J)*W(J)
+        END DO
+        CURV=CURV+HCOL(K)*TEMP*TEMP
+      END DO
+      IF (IFLAG == 1) CURV=-CURV
+      IF (CURV > -GW .AND. CURV < -CONST*GW) THEN
           SCALE=-GW/CURV
-          DO 170 I=1,N
-          TEMP=XOPT(I)+SCALE*W(I)
-  170     XALT(I)=DMAX1(SL(I),DMIN1(SU(I),TEMP))
+          DO I=1,N
+             TEMP=XOPT(I)+SCALE*W(I)
+             XALT(I)=DMAX1(SL(I),DMIN1(SU(I),TEMP))
+          END DO
           CAUCHY=(HALF*GW*SCALE)**2
       ELSE
           CAUCHY=(GW+HALF*CURV)**2
@@ -1093,17 +1167,19 @@ SUBROUTINE ALTMOV (N,NPT,XPT,XOPT,BMAT,ZMAT,NDIM,SL,SU,KOPT,
 !     the sign of GLAG. Thus two XALT vectors become available. The one that
 !     is chosen is the one that gives the larger value of CAUCHY.
 !
-      IF (IFLAG .EQ. 0) THEN
-          DO 180 I=1,N
-          GLAG(I)=-GLAG(I)
-  180     W(N+I)=XALT(I)
+      IF (IFLAG == 0) THEN
+          DO I=1,N
+            GLAG(I)=-GLAG(I)
+            W(N+I)=XALT(I)
+          END DO
           CSAVE=CAUCHY
           IFLAG=1
           GOTO 100
       END IF
-      IF (CSAVE .GT. CAUCHY) THEN
-          DO 190 I=1,N
-  190     XALT(I)=W(N+I)
+      IF (CSAVE > CAUCHY) THEN
+          DO I=1,N
+             XALT(I)=W(N+I)
+          END DO
           CAUCHY=CSAVE
       END IF
   200 RETURN
@@ -1112,7 +1188,7 @@ END SUBROUTINE ALTMOV
 
       SUBROUTINE PRELIM (N,NPT,X,XL,XU,RHOBEG,IPRINT,MAXFUN,XBASE,
      1  XPT,FVAL,GOPT,HQ,PQ,BMAT,ZMAT,NDIM,SL,SU,NF,KOPT,CALFUN)
-      IMPLICIT REAL*8 (A-H,O-Z)
+      IMPLICIT real(dp) (A-H,O-Z)
       DIMENSION X(:),XL(:),XU(:),XBASE(*),XPT(NPT,*),FVAL(*),GOPT(*),
      1  HQ(*),PQ(*),BMAT(NDIM,*),ZMAT(NPT,*),SL(*),SU(*)
       interface
@@ -1148,18 +1224,24 @@ SUBROUTINE PRELIM (N,NPT,X,XL,XU,RHOBEG,IPRINT,MAXFUN,XBASE,
 !     Set XBASE to the initial vector of variables, and set the initial
 !     elements of XPT, BMAT, HQ, PQ and ZMAT to zero.
 !
-      DO 20 J=1,N
-      XBASE(J)=X(J)
-      DO 10 K=1,NPT
-   10 XPT(K,J)=ZERO
-      DO 20 I=1,NDIM
-   20 BMAT(I,J)=ZERO
-      DO 30 IH=1,(N*NP)/2
-   30 HQ(IH)=ZERO
-      DO 40 K=1,NPT
-      PQ(K)=ZERO
-      DO 40 J=1,NPT-NP
-   40 ZMAT(K,J)=ZERO
+      DO J=1,N
+        XBASE(J)=X(J)
+        DO K=1,NPT
+            XPT(K,J)=ZERO
+        END DO
+        DO I=1,NDIM
+            BMAT(I,J)=ZERO
+        END DO
+      END DO
+      DO IH=1,(N*NP)/2
+         HQ(IH)=ZERO
+      END DO
+      DO K=1,NPT
+        PQ(K)=ZERO
+        DO J=1,NPT-NP
+            ZMAT(K,J)=ZERO
+        END DO
+      END DO
 !
 !     Begin the initialization procedure. NF becomes one more than the number
 !     of function values so far. The coordinates of the displacement of the
@@ -1169,23 +1251,23 @@ SUBROUTINE PRELIM (N,NPT,X,XL,XU,RHOBEG,IPRINT,MAXFUN,XBASE,
    50 NFM=NF
       NFX=NF-N
       NF=NF+1
-      IF (NFM .LE. 2*N) THEN
-          IF (NFM .GE. 1 .AND. NFM .LE. N) THEN
+      IF (NFM <= 2*N) THEN
+          IF (NFM >= 1 .AND. NFM <= N) THEN
               STEPA=RHOBEG
-              IF (SU(NFM) .EQ. ZERO) STEPA=-STEPA
+              IF (SU(NFM) == ZERO) STEPA=-STEPA
               XPT(NF,NFM)=STEPA
-          ELSE IF (NFM .GT. N) THEN
+          ELSE IF (NFM > N) THEN
               STEPA=XPT(NF-N,NFX)
               STEPB=-RHOBEG
-              IF (SL(NFX) .EQ. ZERO) STEPB=DMIN1(TWO*RHOBEG,SU(NFX))
-              IF (SU(NFX) .EQ. ZERO) STEPB=DMAX1(-TWO*RHOBEG,SL(NFX))
+              IF (SL(NFX) == ZERO) STEPB=DMIN1(TWO*RHOBEG,SU(NFX))
+              IF (SU(NFX) == ZERO) STEPB=DMAX1(-TWO*RHOBEG,SL(NFX))
               XPT(NF,NFX)=STEPB
           END IF
       ELSE
           ITEMP=(NFM-NP)/N
           JPT=NFM-ITEMP*N-N
           IPT=JPT+ITEMP
-          IF (IPT .GT. N) THEN
+          IF (IPT > N) THEN
               ITEMP=JPT
               JPT=IPT-N
               IPT=ITEMP
@@ -1197,23 +1279,22 @@ SUBROUTINE PRELIM (N,NPT,X,XL,XU,RHOBEG,IPRINT,MAXFUN,XBASE,
 !     Calculate the next value of F. The least function value so far and
 !     its index are required.
 !
-      DO 60 J=1,N
-      X(J)=DMIN1(DMAX1(XL(J),XBASE(J)+XPT(NF,J)),XU(J))
-      IF (XPT(NF,J) .EQ. SL(J)) X(J)=XL(J)
-      IF (XPT(NF,J) .EQ. SU(J)) X(J)=XU(J)
-   60 CONTINUE
+      DO J=1,N
+        X(J)=DMIN1(DMAX1(XL(J),XBASE(J)+XPT(NF,J)),XU(J))
+        IF (XPT(NF,J) == SL(J)) X(J)=XL(J)
+        IF (XPT(NF,J) == SU(J)) X(J)=XU(J)
+      END DO
       CALL CALFUN (N,X,F)
-      IF (IPRINT .EQ. 3) THEN
-          PRINT 70, NF,F,(X(I),I=1,N)
-   70      FORMAT (/4X,'Function number',I6,'    F =',1PD18.10,
-     1       '    The corresponding X is:'/(2X,5D15.6))
+      IF (IPRINT == 3) THEN
+         PRINT 70, NF,F,(X(I),I=1,N)
+   70    FORMAT (/4X,'Function number',I6,'    F =',1PD18.10,'    The corresponding X is:'/(2X,5D15.6))
       END IF
       FVAL(NF)=F
-      IF (NF .EQ. 1) THEN
-          FBEG=F
-          KOPT=1
-      ELSE IF (F .LT. FVAL(KOPT)) THEN
-          KOPT=NF
+      IF (NF == 1) THEN
+         FBEG=F
+         KOPT=1
+      ELSE IF (F < FVAL(KOPT)) THEN
+         KOPT=NF
       END IF
 !
 !     Set the nonzero initial elements of BMAT and the quadratic model in the
@@ -1222,25 +1303,25 @@ SUBROUTINE PRELIM (N,NPT,X,XL,XU,RHOBEG,IPRINT,MAXFUN,XBASE,
 !     order that the function value at the first of them contributes to the
 !     off-diagonal second derivative terms of the initial quadratic model.
 !
-      IF (NF .LE. 2*N+1) THEN
-          IF (NF .GE. 2 .AND. NF .LE. N+1) THEN
+      IF (NF <= 2*N+1) THEN
+          IF (NF >= 2 .AND. NF <= N+1) THEN
               GOPT(NFM)=(F-FBEG)/STEPA
-              IF (NPT .LT. NF+N) THEN
+              IF (NPT < NF+N) THEN
                   BMAT(1,NFM)=-ONE/STEPA
                   BMAT(NF,NFM)=ONE/STEPA
                   BMAT(NPT+NFM,NFM)=-HALF*RHOSQ
               END IF
-          ELSE IF (NF .GE. N+2) THEN
+          ELSE IF (NF >= N+2) THEN
               IH=(NFX*(NFX+1))/2
               TEMP=(F-FBEG)/STEPB
               DIFF=STEPB-STEPA
               HQ(IH)=TWO*(TEMP-GOPT(NFX))/DIFF
               GOPT(NFX)=(GOPT(NFX)*STEPB-TEMP*STEPA)/DIFF
-              IF (STEPA*STEPB .LT. ZERO) THEN
-                  IF (F .LT. FVAL(NF-N)) THEN
+              IF (STEPA*STEPB < ZERO) THEN
+                  IF (F < FVAL(NF-N)) THEN
                       FVAL(NF)=FVAL(NF-N)
                       FVAL(NF-N)=F
-                      IF (KOPT .EQ. NF) KOPT=NF-N
+                      IF (KOPT == NF) KOPT=NF-N
                       XPT(NF-N,NFX)=STEPB
                       XPT(NF,NFX)=STEPA
                   END IF
@@ -1265,7 +1346,7 @@ SUBROUTINE PRELIM (N,NPT,X,XL,XU,RHOBEG,IPRINT,MAXFUN,XBASE,
           TEMP=XPT(NF,IPT)*XPT(NF,JPT)
           HQ(IH)=(FBEG-FVAL(IPT+1)-FVAL(JPT+1)+F)/TEMP
       END IF
-      IF (NF .LT. NPT .AND. NF .LT. MAXFUN) GOTO 50
+      IF (NF < NPT .AND. NF < MAXFUN) GOTO 50
       RETURN
       END SUBROUTINE PRELIM
 
@@ -1273,7 +1354,7 @@ END SUBROUTINE PRELIM
       SUBROUTINE RESCUE (N,NPT,XL,XU,IPRINT,MAXFUN,XBASE,XPT,
      1  FVAL,XOPT,GOPT,HQ,PQ,BMAT,ZMAT,NDIM,SL,SU,NF,DELTA,
      2  KOPT,VLAG,PTSAUX,PTSID,W,CALFUN)
-      IMPLICIT REAL*8 (A-H,O-Z)
+      IMPLICIT real(dp) (A-H,O-Z)
       DIMENSION XL(:),XU(:),XBASE(*),XPT(NPT,*),FVAL(*),XOPT(*),
      1  GOPT(*),HQ(*),PQ(*),BMAT(NDIM,*),ZMAT(NPT,*),SL(*),SU(*),
      2  VLAG(*),PTSAUX(2,*),PTSID(*),W(*)
@@ -1322,7 +1403,7 @@ SUBROUTINE RESCUE (N,NPT,XL,XU,IPRINT,MAXFUN,XBASE,XPT,
       ONE=1.0D0
       ZERO=0.0D0
       NP=N+1
-      SFRAC=HALF/DFLOAT(NP)
+      SFRAC=HALF/DBLE(NP)
       NPTM=NPT-NP
 !
 !     Shift the interpolation points so that XOPT becomes the origin, and set
@@ -1334,49 +1415,57 @@ SUBROUTINE RESCUE (N,NPT,XL,XU,IPRINT,MAXFUN,XBASE,XPT,
 !
       SUMPQ=ZERO
       WINC=ZERO
-      DO 20 K=1,NPT
-      DISTSQ=ZERO
-      DO 10 J=1,N
-      XPT(K,J)=XPT(K,J)-XOPT(J)
-   10 DISTSQ=DISTSQ+XPT(K,J)**2
-      SUMPQ=SUMPQ+PQ(K)
-      W(NDIM+K)=DISTSQ
-      WINC=DMAX1(WINC,DISTSQ)
-      DO 20 J=1,NPTM
-   20 ZMAT(K,J)=ZERO
+      DO K=1,NPT
+        DISTSQ=ZERO
+        DO J=1,N
+            XPT(K,J)=XPT(K,J)-XOPT(J)
+            DISTSQ=DISTSQ+XPT(K,J)**2
+        END DO
+        SUMPQ=SUMPQ+PQ(K)
+        W(NDIM+K)=DISTSQ
+        WINC=DMAX1(WINC,DISTSQ)
+         DO J=1,NPTM
+            ZMAT(K,J)=ZERO
+         END DO
+      END DO
 !
 !     Update HQ so that HQ and PQ define the second derivatives of the model
 !     after XBASE has been shifted to the trust region centre.
 !
       IH=0
-      DO 40 J=1,N
-      W(J)=HALF*SUMPQ*XOPT(J)
-      DO 30 K=1,NPT
-   30 W(J)=W(J)+PQ(K)*XPT(K,J)
-      DO 40 I=1,J
-      IH=IH+1
-   40 HQ(IH)=HQ(IH)+W(I)*XOPT(J)+W(J)*XOPT(I)
+      DO J=1,N
+        W(J)=HALF*SUMPQ*XOPT(J)
+        DO K=1,NPT
+            W(J)=W(J)+PQ(K)*XPT(K,J)
+        END DO
+        DO I=1,J
+            IH=IH+1
+            HQ(IH)=HQ(IH)+W(I)*XOPT(J)+W(J)*XOPT(I)
+        END DO
+      END DO
 !
 !     Shift XBASE, SL, SU and XOPT. Set the elements of BMAT to zero, and
 !     also set the elements of PTSAUX.
 !
-      DO 50 J=1,N
-      XBASE(J)=XBASE(J)+XOPT(J)
-      SL(J)=SL(J)-XOPT(J)
-      SU(J)=SU(J)-XOPT(J)
-      XOPT(J)=ZERO
-      PTSAUX(1,J)=DMIN1(DELTA,SU(J))
-      PTSAUX(2,J)=DMAX1(-DELTA,SL(J))
-      IF (PTSAUX(1,J)+PTSAUX(2,J) .LT. ZERO) THEN
-          TEMP=PTSAUX(1,J)
-          PTSAUX(1,J)=PTSAUX(2,J)
-          PTSAUX(2,J)=TEMP
-      END IF
-      IF (DABS(PTSAUX(2,J)) .LT. HALF*DABS(PTSAUX(1,J))) THEN
-          PTSAUX(2,J)=HALF*PTSAUX(1,J)
-      END IF
-      DO 50 I=1,NDIM
-   50 BMAT(I,J)=ZERO
+      DO J=1,N
+        XBASE(J)=XBASE(J)+XOPT(J)
+        SL(J)=SL(J)-XOPT(J)
+        SU(J)=SU(J)-XOPT(J)
+        XOPT(J)=ZERO
+        PTSAUX(1,J)=DMIN1(DELTA,SU(J))
+        PTSAUX(2,J)=DMAX1(-DELTA,SL(J))
+        IF (PTSAUX(1,J)+PTSAUX(2,J) < ZERO) THEN
+            TEMP=PTSAUX(1,J)
+            PTSAUX(1,J)=PTSAUX(2,J)
+            PTSAUX(2,J)=TEMP
+        END IF
+        IF (DABS(PTSAUX(2,J)) < HALF*DABS(PTSAUX(1,J))) THEN
+            PTSAUX(2,J)=HALF*PTSAUX(1,J)
+        END IF
+        DO I=1,NDIM
+            BMAT(I,J)=ZERO
+        END DO
+      END DO
       FBASE=FVAL(KOPT)
 !
 !     Set the identifiers of the artificial interpolation points that are
@@ -1384,40 +1473,41 @@ SUBROUTINE RESCUE (N,NPT,XL,XU,IPRINT,MAXFUN,XBASE,XPT,
 !     nonzero elements of BMAT and ZMAT.
 !
       PTSID(1)=SFRAC
-      DO 60 J=1,N
-      JP=J+1
-      JPN=JP+N
-      PTSID(JP)=DFLOAT(J)+SFRAC
-      IF (JPN .LE. NPT) THEN
-          PTSID(JPN)=DFLOAT(J)/DFLOAT(NP)+SFRAC
-          TEMP=ONE/(PTSAUX(1,J)-PTSAUX(2,J))
-          BMAT(JP,J)=-TEMP+ONE/PTSAUX(1,J)
-          BMAT(JPN,J)=TEMP+ONE/PTSAUX(2,J)
-          BMAT(1,J)=-BMAT(JP,J)-BMAT(JPN,J)
-          ZMAT(1,J)=DSQRT(2.0D0)/DABS(PTSAUX(1,J)*PTSAUX(2,J))
-          ZMAT(JP,J)=ZMAT(1,J)*PTSAUX(2,J)*TEMP
-          ZMAT(JPN,J)=-ZMAT(1,J)*PTSAUX(1,J)*TEMP
-      ELSE
-          BMAT(1,J)=-ONE/PTSAUX(1,J)
-          BMAT(JP,J)=ONE/PTSAUX(1,J)
-          BMAT(J+NPT,J)=-HALF*PTSAUX(1,J)**2
-      END IF
-   60 CONTINUE
+      DO J=1,N
+        JP=J+1
+        JPN=JP+N
+        PTSID(JP)=DBLE(J)+SFRAC
+        IF (JPN <= NPT) THEN
+            PTSID(JPN)=DBLE(J)/DBLE(NP)+SFRAC
+            TEMP=ONE/(PTSAUX(1,J)-PTSAUX(2,J))
+            BMAT(JP,J)=-TEMP+ONE/PTSAUX(1,J)
+            BMAT(JPN,J)=TEMP+ONE/PTSAUX(2,J)
+            BMAT(1,J)=-BMAT(JP,J)-BMAT(JPN,J)
+            ZMAT(1,J)=DSQRT(2.0D0)/DABS(PTSAUX(1,J)*PTSAUX(2,J))
+            ZMAT(JP,J)=ZMAT(1,J)*PTSAUX(2,J)*TEMP
+            ZMAT(JPN,J)=-ZMAT(1,J)*PTSAUX(1,J)*TEMP
+        ELSE
+            BMAT(1,J)=-ONE/PTSAUX(1,J)
+            BMAT(JP,J)=ONE/PTSAUX(1,J)
+            BMAT(J+NPT,J)=-HALF*PTSAUX(1,J)**2
+        END IF
+      END DO
 !
 !     Set any remaining identifiers with their nonzero elements of ZMAT.
 !
-      IF (NPT .GE. N+NP) THEN
-          DO 70 K=2*NP,NPT
-          IW=(DFLOAT(K-NP)-HALF)/DFLOAT(N)
-          IP=K-NP-IW*N
-          IQ=IP+IW
-          IF (IQ .GT. N) IQ=IQ-N
-          PTSID(K)=DFLOAT(IP)+DFLOAT(IQ)/DFLOAT(NP)+SFRAC
-          TEMP=ONE/(PTSAUX(1,IP)*PTSAUX(1,IQ))
-          ZMAT(1,K-NP)=TEMP
-          ZMAT(IP+1,K-NP)=-TEMP
-          ZMAT(IQ+1,K-NP)=-TEMP
-   70     ZMAT(K,K-NP)=TEMP
+      IF (NPT >= N+NP) THEN
+          DO K=2*NP,NPT
+            IW=(DBLE(K-NP)-HALF)/DBLE(N)
+            IP=K-NP-IW*N
+            IQ=IP+IW
+            IF (IQ > N) IQ=IQ-N
+            PTSID(K)=DBLE(IP)+DBLE(IQ)/DBLE(NP)+SFRAC
+            TEMP=ONE/(PTSAUX(1,IP)*PTSAUX(1,IQ))
+            ZMAT(1,K-NP)=TEMP
+            ZMAT(IP+1,K-NP)=-TEMP
+            ZMAT(IQ+1,K-NP)=-TEMP
+          ZMAT(K,K-NP)=TEMP
+          END DO
       END IF
       NREM=NPT
       KOLD=1
@@ -1426,19 +1516,21 @@ SUBROUTINE RESCUE (N,NPT,XL,XU,IPRINT,MAXFUN,XBASE,XPT,
 !     Reorder the provisional points in the way that exchanges PTSID(KOLD)
 !     with PTSID(KNEW).
 !
-   80 DO 90 J=1,N
-      TEMP=BMAT(KOLD,J)
-      BMAT(KOLD,J)=BMAT(KNEW,J)
-   90 BMAT(KNEW,J)=TEMP
-      DO 100 J=1,NPTM
-      TEMP=ZMAT(KOLD,J)
-      ZMAT(KOLD,J)=ZMAT(KNEW,J)
-  100 ZMAT(KNEW,J)=TEMP
+   80 DO J=1,N
+        TEMP=BMAT(KOLD,J)
+        BMAT(KOLD,J)=BMAT(KNEW,J)
+        BMAT(KNEW,J)=TEMP
+      END DO
+      DO J=1,NPTM
+        TEMP=ZMAT(KOLD,J)
+        ZMAT(KOLD,J)=ZMAT(KNEW,J)
+        ZMAT(KNEW,J)=TEMP
+      END DO
       PTSID(KOLD)=PTSID(KNEW)
       PTSID(KNEW)=ZERO
       W(NDIM+KNEW)=ZERO
       NREM=NREM-1
-      IF (KNEW .NE. KOPT) THEN
+      IF (KNEW /= KOPT) THEN
           TEMP=VLAG(KOLD)
           VLAG(KOLD)=VLAG(KNEW)
           VLAG(KNEW)=TEMP
@@ -1449,9 +1541,10 @@ SUBROUTINE RESCUE (N,NPT,XL,XU,IPRINT,MAXFUN,XBASE,XPT,
 !     The nonnegative values of W(NDIM+K) are required in the search below.
 !
           CALL UPDATE (N,NPT,BMAT,ZMAT,NDIM,VLAG,BETA,DENOM,KNEW,W)
-          IF (NREM .EQ. 0) GOTO 350
-          DO 110 K=1,NPT
-  110     W(NDIM+K)=DABS(W(NDIM+K))
+          IF (NREM == 0) GOTO 350
+          DO K=1,NPT
+             W(NDIM+K)=DABS(W(NDIM+K))
+          END DO
       END IF
 !
 !     Pick the index KNEW of an original interpolation point that has not
@@ -1459,68 +1552,79 @@ SUBROUTINE RESCUE (N,NPT,XL,XU,IPRINT,MAXFUN,XBASE,XPT,
 !     attention to the closeness to XOPT and to previous tries with KNEW.
 !
   120 DSQMIN=ZERO
-      DO 130 K=1,NPT
-      IF (W(NDIM+K) .GT. ZERO) THEN
-          IF (DSQMIN .EQ. ZERO .OR. W(NDIM+K) .LT. DSQMIN) THEN
-              KNEW=K
-              DSQMIN=W(NDIM+K)
-          END IF
-      END IF
-  130 CONTINUE
-      IF (DSQMIN .EQ. ZERO) GOTO 260
+      DO K=1,NPT
+        IF (W(NDIM+K) > ZERO) THEN
+            IF (DSQMIN == ZERO .OR. W(NDIM+K) < DSQMIN) THEN
+                KNEW=K
+                DSQMIN=W(NDIM+K)
+            END IF
+        END IF
+      END DO
+      IF (DSQMIN == ZERO) GOTO 260
 !
 !     Form the W-vector of the chosen original interpolation point.
 !
-      DO 140 J=1,N
-  140 W(NPT+J)=XPT(KNEW,J)
-      DO 160 K=1,NPT
+      DO J=1,N
+         W(NPT+J)=XPT(KNEW,J)
+      END DO
+      DO K=1,NPT
       SUM=ZERO
-      IF (K .EQ. KOPT) THEN
+      IF (K == KOPT) THEN
           CONTINUE
-      ELSE IF (PTSID(K) .EQ. ZERO) THEN
-          DO 150 J=1,N
-  150     SUM=SUM+W(NPT+J)*XPT(K,J)
+      ELSE IF (PTSID(K) == ZERO) THEN
+          DO J=1,N
+             SUM=SUM+W(NPT+J)*XPT(K,J)
+          END DO
       ELSE
           IP=PTSID(K)
-          IF (IP .GT. 0) SUM=W(NPT+IP)*PTSAUX(1,IP)
-          IQ=DFLOAT(NP)*PTSID(K)-DFLOAT(IP*NP)
-          IF (IQ .GT. 0) THEN
+          IF (IP > 0) SUM=W(NPT+IP)*PTSAUX(1,IP)
+          IQ=DBLE(NP)*PTSID(K)-DBLE(IP*NP)
+          IF (IQ > 0) THEN
               IW=1
-              IF (IP .EQ. 0) IW=2
+              IF (IP == 0) IW=2
               SUM=SUM+W(NPT+IQ)*PTSAUX(IW,IQ)
           END IF
       END IF
-  160 W(K)=HALF*SUM*SUM
+         W(K)=HALF*SUM*SUM
+      END DO
 !
 !     Calculate VLAG and BETA for the required updating of the H matrix if
 !     XPT(KNEW,.) is reinstated in the set of interpolation points.
 !
-      DO 180 K=1,NPT
-      SUM=ZERO
-      DO 170 J=1,N
-  170 SUM=SUM+BMAT(K,J)*W(NPT+J)
-  180 VLAG(K)=SUM
+      DO K=1,NPT
+        SUM=ZERO
+        DO J=1,N
+            SUM=SUM+BMAT(K,J)*W(NPT+J)
+        END DO
+        VLAG(K)=SUM
+      END DO
       BETA=ZERO
-      DO 200 J=1,NPTM
-      SUM=ZERO
-      DO 190 K=1,NPT
-  190 SUM=SUM+ZMAT(K,J)*W(K)
-      BETA=BETA-SUM*SUM
-      DO 200 K=1,NPT
-  200 VLAG(K)=VLAG(K)+SUM*ZMAT(K,J)
+      DO J=1,NPTM
+        SUM=ZERO
+        DO K=1,NPT
+            SUM=SUM+ZMAT(K,J)*W(K)
+        END DO
+        BETA=BETA-SUM*SUM
+        DO K=1,NPT
+           VLAG(K)=VLAG(K)+SUM*ZMAT(K,J)
+        END DO
+      END DO
       BSUM=ZERO
       DISTSQ=ZERO
-      DO 230 J=1,N
-      SUM=ZERO
-      DO 210 K=1,NPT
-  210 SUM=SUM+BMAT(K,J)*W(K)
-      JP=J+NPT
-      BSUM=BSUM+SUM*W(JP)
-      DO 220 IP=NPT+1,NDIM
-  220 SUM=SUM+BMAT(IP,J)*W(IP)
-      BSUM=BSUM+SUM*W(JP)
-      VLAG(JP)=SUM
-  230 DISTSQ=DISTSQ+XPT(KNEW,J)**2
+      DO J=1,N
+        SUM=ZERO
+        DO K=1,NPT
+            SUM=SUM+BMAT(K,J)*W(K)
+        END DO
+        JP=J+NPT
+        BSUM=BSUM+SUM*W(JP)
+        DO IP=NPT+1,NDIM
+            SUM=SUM+BMAT(IP,J)*W(IP)
+        END DO
+        BSUM=BSUM+SUM*W(JP)
+        VLAG(JP)=SUM
+        DISTSQ=DISTSQ+XPT(KNEW,J)**2
+      END DO
       BETA=HALF*DISTSQ*DISTSQ+BETA-BSUM
       VLAG(KOPT)=VLAG(KOPT)+ONE
 !
@@ -1531,19 +1635,21 @@ SUBROUTINE RESCUE (N,NPT,XL,XU,IPRINT,MAXFUN,XBASE,XPT,
 !
       DENOM=ZERO
       VLMXSQ=ZERO
-      DO 250 K=1,NPT
-      IF (PTSID(K) .NE. ZERO) THEN
-          HDIAG=ZERO
-          DO 240 J=1,NPTM
-  240     HDIAG=HDIAG+ZMAT(K,J)**2
-          DEN=BETA*HDIAG+VLAG(K)**2
-          IF (DEN .GT. DENOM) THEN
-              KOLD=K
-              DENOM=DEN
-          END IF
-      END IF
-  250 VLMXSQ=DMAX1(VLMXSQ,VLAG(K)**2)
-      IF (DENOM .LE. 1.0D-2*VLMXSQ) THEN
+      DO K=1,NPT
+        IF (PTSID(K) /= ZERO) THEN
+            HDIAG=ZERO
+            DO J=1,NPTM
+                HDIAG=HDIAG+ZMAT(K,J)**2
+            END DO
+            DEN=BETA*HDIAG+VLAG(K)**2
+            IF (DEN > DENOM) THEN
+                KOLD=K
+                DENOM=DEN
+            END IF
+        END IF
+        VLMXSQ=DMAX1(VLMXSQ,VLAG(K)**2)
+      END DO
+      IF (DENOM <= 1.0D-2*VLMXSQ) THEN
           W(NDIM+KNEW)=-W(NDIM+KNEW)-WINC
           GOTO 120
       END IF
@@ -1557,112 +1663,116 @@ SUBROUTINE RESCUE (N,NPT,XL,XU,IPRINT,MAXFUN,XBASE,XPT,
 !     by putting the new point in XPT(KPT,.) and by setting PQ(KPT) to zero,
 !     except that a RETURN occurs if MAXFUN prohibits another value of F.
 !
-  260 DO 340 KPT=1,NPT
-      IF (PTSID(KPT) .EQ. ZERO) GOTO 340
-      IF (NF .GE. MAXFUN) THEN
-          NF=-1
-          GOTO 350
-      END IF
-      IH=0
-      DO 270 J=1,N
-      W(J)=XPT(KPT,J)
-      XPT(KPT,J)=ZERO
-      TEMP=PQ(KPT)*W(J)
-      DO 270 I=1,J
-      IH=IH+1
-  270 HQ(IH)=HQ(IH)+TEMP*W(I)
-      PQ(KPT)=ZERO
-      IP=PTSID(KPT)
-      IQ=DFLOAT(NP)*PTSID(KPT)-DFLOAT(IP*NP)
-      IF (IP .GT. 0) THEN
-          XP=PTSAUX(1,IP)
-          XPT(KPT,IP)=XP
-      END IF
-      IF (IQ .GT. 0) THEN
-          XQ=PTSAUX(1,IQ)
-          IF (IP .EQ. 0) XQ=PTSAUX(2,IQ)
-          XPT(KPT,IQ)=XQ
-      END IF
+  260 DO KPT=1,NPT
+        IF (PTSID(KPT) == ZERO) CYCLE
+        IF (NF >= MAXFUN) THEN
+            NF=-1
+            GOTO 350
+        END IF
+        IH=0
+        DO J=1,N
+            W(J)=XPT(KPT,J)
+            XPT(KPT,J)=ZERO
+            TEMP=PQ(KPT)*W(J)
+            DO I=1,J
+                IH=IH+1
+                HQ(IH)=HQ(IH)+TEMP*W(I)
+            END DO
+        END DO
+        PQ(KPT)=ZERO
+        IP=PTSID(KPT)
+        IQ=DBLE(NP)*PTSID(KPT)-DBLE(IP*NP)
+        IF (IP > 0) THEN
+            XP=PTSAUX(1,IP)
+            XPT(KPT,IP)=XP
+        END IF
+        IF (IQ > 0) THEN
+            XQ=PTSAUX(1,IQ)
+            IF (IP == 0) XQ=PTSAUX(2,IQ)
+            XPT(KPT,IQ)=XQ
+        END IF
 !
 !     Set VQUAD to the value of the current model at the new point.
 !
-      VQUAD=FBASE
-      IF (IP .GT. 0) THEN
-          IHP=(IP+IP*IP)/2
-          VQUAD=VQUAD+XP*(GOPT(IP)+HALF*XP*HQ(IHP))
-      END IF
-      IF (IQ .GT. 0) THEN
-          IHQ=(IQ+IQ*IQ)/2
-          VQUAD=VQUAD+XQ*(GOPT(IQ)+HALF*XQ*HQ(IHQ))
-          IF (IP .GT. 0) THEN
-              IW=MAX0(IHP,IHQ)-IABS(IP-IQ)
-              VQUAD=VQUAD+XP*XQ*HQ(IW)
-          END IF
-      END IF
-      DO 280 K=1,NPT
-      TEMP=ZERO
-      IF (IP .GT. 0) TEMP=TEMP+XP*XPT(K,IP)
-      IF (IQ .GT. 0) TEMP=TEMP+XQ*XPT(K,IQ)
-  280 VQUAD=VQUAD+HALF*PQ(K)*TEMP*TEMP
+        VQUAD=FBASE
+        IF (IP > 0) THEN
+            IHP=(IP+IP*IP)/2
+            VQUAD=VQUAD+XP*(GOPT(IP)+HALF*XP*HQ(IHP))
+        END IF
+        IF (IQ > 0) THEN
+            IHQ=(IQ+IQ*IQ)/2
+            VQUAD=VQUAD+XQ*(GOPT(IQ)+HALF*XQ*HQ(IHQ))
+            IF (IP > 0) THEN
+                IW=MAX0(IHP,IHQ)-IABS(IP-IQ)
+                VQUAD=VQUAD+XP*XQ*HQ(IW)
+            END IF
+        END IF
+        DO K=1,NPT
+            TEMP=ZERO
+            IF (IP > 0) TEMP=TEMP+XP*XPT(K,IP)
+            IF (IQ > 0) TEMP=TEMP+XQ*XPT(K,IQ)
+            VQUAD=VQUAD+HALF*PQ(K)*TEMP*TEMP
+        END DO
 !
 !     Calculate F at the new interpolation point, and set DIFF to the factor
 !     that is going to multiply the KPT-th Lagrange function when the model
 !     is updated to provide interpolation to the new function value.
 !
-      DO 290 I=1,N
-      W(I)=DMIN1(DMAX1(XL(I),XBASE(I)+XPT(KPT,I)),XU(I))
-      IF (XPT(KPT,I) .EQ. SL(I)) W(I)=XL(I)
-      IF (XPT(KPT,I) .EQ. SU(I)) W(I)=XU(I)
-  290 CONTINUE
-      NF=NF+1
-      CALL CALFUN (N,W,F)
-      IF (IPRINT .EQ. 3) THEN
-          PRINT 300, NF,F,(W(I),I=1,N)
-  300     FORMAT (/4X,'Function number',I6,'    F =',1PD18.10,
-     1      '    The corresponding X is:'/(2X,5D15.6))
-      END IF
-      FVAL(KPT)=F
-      IF (F .LT. FVAL(KOPT)) KOPT=KPT
-      DIFF=F-VQUAD
+        DO I=1,N
+            W(I)=DMIN1(DMAX1(XL(I),XBASE(I)+XPT(KPT,I)),XU(I))
+            IF (XPT(KPT,I) == SL(I)) W(I)=XL(I)
+            IF (XPT(KPT,I) == SU(I)) W(I)=XU(I)
+        END DO
+        NF=NF+1
+        CALL CALFUN (N,W,F)
+        IF (IPRINT == 3) THEN
+            PRINT 300, NF,F,(W(I),I=1,N)
+  300     FORMAT (/4X,'Function number',I6,'    F =',1PD18.10,'    The corresponding X is:'/(2X,5D15.6))
+        END IF
+        FVAL(KPT)=F
+        IF (F < FVAL(KOPT)) KOPT=KPT
+        DIFF=F-VQUAD
 !
 !     Update the quadratic model. The RETURN from the subroutine occurs when
 !     all the new interpolation points are included in the model.
 !
-      DO 310 I=1,N
-  310 GOPT(I)=GOPT(I)+DIFF*BMAT(KPT,I)
-      DO 330 K=1,NPT
-      SUM=ZERO
-      DO 320 J=1,NPTM
-  320 SUM=SUM+ZMAT(K,J)*ZMAT(KPT,J)
-      TEMP=DIFF*SUM
-      IF (PTSID(K) .EQ. ZERO) THEN
-          PQ(K)=PQ(K)+TEMP
-      ELSE
-          IP=PTSID(K)
-          IQ=DFLOAT(NP)*PTSID(K)-DFLOAT(IP*NP)
-          IHQ=(IQ*IQ+IQ)/2
-          IF (IP .EQ. 0) THEN
-              HQ(IHQ)=HQ(IHQ)+TEMP*PTSAUX(2,IQ)**2
-          ELSE
-              IHP=(IP*IP+IP)/2
-              HQ(IHP)=HQ(IHP)+TEMP*PTSAUX(1,IP)**2
-              IF (IQ .GT. 0) THEN
-                  HQ(IHQ)=HQ(IHQ)+TEMP*PTSAUX(1,IQ)**2
-                  IW=MAX0(IHP,IHQ)-IABS(IQ-IP)
-                  HQ(IW)=HQ(IW)+TEMP*PTSAUX(1,IP)*PTSAUX(1,IQ)
-              END IF
-          END IF
-      END IF
-  330 CONTINUE
-      PTSID(KPT)=ZERO
-  340 CONTINUE
+        DO I=1,N
+            GOPT(I)=GOPT(I)+DIFF*BMAT(KPT,I)
+        END DO
+        DO K=1,NPT
+            SUM=ZERO
+            DO J=1,NPTM
+            SUM=SUM+ZMAT(K,J)*ZMAT(KPT,J)
+            END DO
+            TEMP=DIFF*SUM
+            IF (PTSID(K) == ZERO) THEN
+                PQ(K)=PQ(K)+TEMP
+            ELSE
+                IP=PTSID(K)
+                IQ=DBLE(NP)*PTSID(K)-DBLE(IP*NP)
+                IHQ=(IQ*IQ+IQ)/2
+                IF (IP == 0) THEN
+                    HQ(IHQ)=HQ(IHQ)+TEMP*PTSAUX(2,IQ)**2
+                ELSE
+                    IHP=(IP*IP+IP)/2
+                    HQ(IHP)=HQ(IHP)+TEMP*PTSAUX(1,IP)**2
+                    IF (IQ > 0) THEN
+                        HQ(IHQ)=HQ(IHQ)+TEMP*PTSAUX(1,IQ)**2
+                        IW=MAX0(IHP,IHQ)-IABS(IQ-IP)
+                        HQ(IW)=HQ(IW)+TEMP*PTSAUX(1,IP)*PTSAUX(1,IQ)
+                    END IF
+                END IF
+            END IF
+        END DO
+        PTSID(KPT)=ZERO
+      END DO
   350 RETURN
       END SUBROUTINE RESCUE
 
 
       SUBROUTINE TRSBOX (N,NPT,XPT,XOPT,GOPT,HQ,PQ,SL,SU,DELTA,
      1  XNEW,D,GNEW,XBDI,S,HS,HRED,DSQ,CRVMIN)
-      IMPLICIT REAL*8 (A-H,O-Z)
+      IMPLICIT real(dp) (A-H,O-Z)
       DIMENSION XPT(NPT,*),XOPT(*),GOPT(*),HQ(*),PQ(*),SL(*),SU(*),
      1  XNEW(*),D(*),GNEW(*),XBDI(*),S(*),HS(*),HRED(*)
 !
@@ -1721,16 +1831,17 @@ SUBROUTINE TRSBOX (N,NPT,XPT,XOPT,GOPT,HQ,PQ,SL,SU,DELTA,
       ITERC=0
       NACT=0
       SQSTP=ZERO
-      DO 10 I=1,N
-      XBDI(I)=ZERO
-      IF (XOPT(I) .LE. SL(I)) THEN
-          IF (GOPT(I) .GE. ZERO) XBDI(I)=ONEMIN
-      ELSE IF (XOPT(I) .GE. SU(I)) THEN
-          IF (GOPT(I) .LE. ZERO) XBDI(I)=ONE
-      END IF
-      IF (XBDI(I) .NE. ZERO) NACT=NACT+1
-      D(I)=ZERO
-   10 GNEW(I)=GOPT(I)
+      DO I=1,N
+        XBDI(I)=ZERO
+        IF (XOPT(I) <= SL(I)) THEN
+            IF (GOPT(I) >= ZERO) XBDI(I)=ONEMIN
+        ELSE IF (XOPT(I) >= SU(I)) THEN
+            IF (GOPT(I) <= ZERO) XBDI(I)=ONE
+        END IF
+        IF (XBDI(I) /= ZERO) NACT=NACT+1
+        D(I)=ZERO
+        GNEW(I)=GOPT(I)
+      END DO
       DELSQ=DELTA*DELTA
       QRED=ZERO
       CRVMIN=ONEMIN
@@ -1743,21 +1854,22 @@ SUBROUTINE TRSBOX (N,NPT,XPT,XOPT,GOPT,HQ,PQ,SL,SU,DELTA,
 !
    20 BETA=ZERO
    30 STEPSQ=ZERO
-      DO 40 I=1,N
-      IF (XBDI(I) .NE. ZERO) THEN
-          S(I)=ZERO
-      ELSE IF (BETA .EQ. ZERO) THEN
-          S(I)=-GNEW(I)
-      ELSE
-          S(I)=BETA*S(I)-GNEW(I)
-      END IF
-   40 STEPSQ=STEPSQ+S(I)**2
-      IF (STEPSQ .EQ. ZERO) GOTO 190
-      IF (BETA .EQ. ZERO) THEN
+      DO I=1,N
+        IF (XBDI(I) /= ZERO) THEN
+            S(I)=ZERO
+        ELSE IF (BETA == ZERO) THEN
+            S(I)=-GNEW(I)
+        ELSE
+            S(I)=BETA*S(I)-GNEW(I)
+        END IF
+        STEPSQ=STEPSQ+S(I)**2
+      END DO
+      IF (STEPSQ == ZERO) GOTO 190
+      IF (BETA == ZERO) THEN
           GREDSQ=STEPSQ
           ITERMAX=ITERC+N-NACT
       END IF
-      IF (GREDSQ*DELSQ .LE. 1.0D-4*QRED*QRED) GO TO 190
+      IF (GREDSQ*DELSQ <= 1.0D-4*QRED*QRED) GO TO 190
 !
 !     Multiply the search direction by the second derivative matrix of Q and
 !     calculate some scalars for the choice of steplength. Then set BLEN to
@@ -1768,22 +1880,22 @@ SUBROUTINE TRSBOX (N,NPT,XPT,XOPT,GOPT,HQ,PQ,SL,SU,DELTA,
    50 RESID=DELSQ
       DS=ZERO
       SHS=ZERO
-      DO 60 I=1,N
-      IF (XBDI(I) .EQ. ZERO) THEN
-          RESID=RESID-D(I)**2
-          DS=DS+S(I)*D(I)
-          SHS=SHS+S(I)*HS(I)
-      END IF
-   60 CONTINUE
-      IF (RESID .LE. ZERO) GOTO 90
+      DO I=1,N
+        IF (XBDI(I) == ZERO) THEN
+            RESID=RESID-D(I)**2
+            DS=DS+S(I)*D(I)
+            SHS=SHS+S(I)*HS(I)
+        END IF
+      END DO
+      IF (RESID <= ZERO) GOTO 90
       TEMP=DSQRT(STEPSQ*RESID+DS*DS)
-      IF (DS .LT. ZERO) THEN
+      IF (DS < ZERO) THEN
           BLEN=(TEMP-DS)/STEPSQ
       ELSE
           BLEN=RESID/(TEMP+DS)
       END IF
       STPLEN=BLEN
-      IF (SHS .GT. ZERO) THEN
+      IF (SHS > ZERO) THEN
           STPLEN=DMIN1(BLEN,GREDSQ/SHS)
       END IF
       
@@ -1792,58 +1904,59 @@ SUBROUTINE TRSBOX (N,NPT,XPT,XOPT,GOPT,HQ,PQ,SL,SU,DELTA,
 !     letting IACT be the index of the new constrained variable.
 !
       IACT=0
-      DO 70 I=1,N
-      IF (S(I) .NE. ZERO) THEN
-          XSUM=XOPT(I)+D(I)
-          IF (S(I) .GT. ZERO) THEN
-              TEMP=(SU(I)-XSUM)/S(I)
-          ELSE
-              TEMP=(SL(I)-XSUM)/S(I)
-          END IF
-          IF (TEMP .LT. STPLEN) THEN
-              STPLEN=TEMP
-              IACT=I
-          END IF
-      END IF
-   70 CONTINUE
+      DO I=1,N
+        IF (S(I) /= ZERO) THEN
+            XSUM=XOPT(I)+D(I)
+            IF (S(I) > ZERO) THEN
+                TEMP=(SU(I)-XSUM)/S(I)
+            ELSE
+                TEMP=(SL(I)-XSUM)/S(I)
+            END IF
+            IF (TEMP < STPLEN) THEN
+                STPLEN=TEMP
+                IACT=I
+            END IF
+        END IF
+      END DO
 !
 !     Update CRVMIN, GNEW and D. Set SDEC to the decrease that occurs in Q.
 !
       SDEC=ZERO
-      IF (STPLEN .GT. ZERO) THEN
+      IF (STPLEN > ZERO) THEN
           ITERC=ITERC+1
           TEMP=SHS/STEPSQ
-          IF (IACT .EQ. 0 .AND. TEMP .GT. ZERO) THEN
+          IF (IACT == 0 .AND. TEMP > ZERO) THEN
               CRVMIN=DMIN1(CRVMIN,TEMP)
-              IF (CRVMIN .EQ. ONEMIN) CRVMIN=TEMP
+              IF (CRVMIN == ONEMIN) CRVMIN=TEMP
           END IF 
           GGSAV=GREDSQ
           GREDSQ=ZERO
-          DO 80 I=1,N
-          GNEW(I)=GNEW(I)+STPLEN*HS(I)
-          IF (XBDI(I) .EQ. ZERO) GREDSQ=GREDSQ+GNEW(I)**2
-   80     D(I)=D(I)+STPLEN*S(I)
+          DO I=1,N
+            GNEW(I)=GNEW(I)+STPLEN*HS(I)
+            IF (XBDI(I) == ZERO) GREDSQ=GREDSQ+GNEW(I)**2
+            D(I)=D(I)+STPLEN*S(I)
+          END DO
           SDEC=DMAX1(STPLEN*(GGSAV-HALF*STPLEN*SHS),ZERO)
           QRED=QRED+SDEC
       END IF
 !
 !     Restart the conjugate gradient method if it has hit a new bound.
 !
-      IF (IACT .GT. 0) THEN
+      IF (IACT > 0) THEN
           NACT=NACT+1
           XBDI(IACT)=ONE
-          IF (S(IACT) .LT. ZERO) XBDI(IACT)=ONEMIN
+          IF (S(IACT) < ZERO) XBDI(IACT)=ONEMIN
           DELSQ=DELSQ-D(IACT)**2
-          IF (DELSQ .LE. ZERO) GOTO 90
+          IF (DELSQ <= ZERO) GOTO 90
           GOTO 20
       END IF
 !
 !     If STPLEN is less than BLEN, then either apply another conjugate
 !     gradient iteration or RETURN.
 !
-      IF (STPLEN .LT. BLEN) THEN
-          IF (ITERC .EQ. ITERMAX) GOTO 190
-          IF (SDEC .LE. 0.01D0*QRED) GOTO 190
+      IF (STPLEN < BLEN) THEN
+          IF (ITERC == ITERMAX) GOTO 190
+          IF (SDEC <= 0.01D0*QRED) GOTO 190
           BETA=GREDSQ/GGSAV
           GOTO 30
       END IF
@@ -1853,20 +1966,20 @@ SUBROUTINE TRSBOX (N,NPT,XPT,XOPT,GOPT,HQ,PQ,SL,SU,DELTA,
 !     and by multiplying the reduced D by the second derivative matrix of
 !     Q, where S holds the reduced D in the call of GGMULT.
 !
-  100 IF (NACT .GE. N-1) GOTO 190
+  100 IF (NACT >= N-1) GOTO 190
       DREDSQ=ZERO
       DREDG=ZERO
       GREDSQ=ZERO
-      DO 110 I=1,N
-      IF (XBDI(I) .EQ. ZERO) THEN
-          DREDSQ=DREDSQ+D(I)**2
-          DREDG=DREDG+D(I)*GNEW(I)
-          GREDSQ=GREDSQ+GNEW(I)**2
-          S(I)=D(I)
-      ELSE
-          S(I)=ZERO
-      END IF
-  110 CONTINUE
+      DO I=1,N
+        IF (XBDI(I) == ZERO) THEN
+            DREDSQ=DREDSQ+D(I)**2
+            DREDG=DREDG+D(I)*GNEW(I)
+            GREDSQ=GREDSQ+GNEW(I)**2
+            S(I)=D(I)
+        ELSE
+            S(I)=ZERO
+        END IF
+      END DO
       ITCSAV=ITERC
       GOTO 210
 !
@@ -1875,15 +1988,15 @@ SUBROUTINE TRSBOX (N,NPT,XPT,XOPT,GOPT,HQ,PQ,SL,SU,DELTA,
 !
   120 ITERC=ITERC+1
       TEMP=GREDSQ*DREDSQ-DREDG*DREDG
-      IF (TEMP .LE. 1.0D-4*QRED*QRED) GOTO 190
+      IF (TEMP <= 1.0D-4*QRED*QRED) GOTO 190
       TEMP=DSQRT(TEMP)
-      DO 130 I=1,N
-      IF (XBDI(I) .EQ. ZERO) THEN
-          S(I)=(DREDG*D(I)-DREDSQ*GNEW(I))/TEMP
-      ELSE
-          S(I)=ZERO
-      END IF
-  130 CONTINUE
+      DO I=1,N
+        IF (XBDI(I) == ZERO) THEN
+            S(I)=(DREDG*D(I)-DREDSQ*GNEW(I))/TEMP
+        ELSE
+            S(I)=ZERO
+        END IF
+      END DO
       SREDG=-TEMP
 !
 !     By considering the simple bounds on the variables, calculate an upper
@@ -1893,41 +2006,41 @@ SUBROUTINE TRSBOX (N,NPT,XPT,XOPT,GOPT,HQ,PQ,SL,SU,DELTA,
 !
       ANGBD=ONE
       IACT=0
-      DO 140 I=1,N
-      IF (XBDI(I) .EQ. ZERO) THEN
-          TEMPA=XOPT(I)+D(I)-SL(I)
-          TEMPB=SU(I)-XOPT(I)-D(I)
-          IF (TEMPA .LE. ZERO) THEN
-              NACT=NACT+1
-              XBDI(I)=ONEMIN
-              GOTO 100
-          ELSE IF (TEMPB .LE. ZERO) THEN
-              NACT=NACT+1
-              XBDI(I)=ONE
-              GOTO 100
-          END IF
-          RATIO=ONE
-          SSQ=D(I)**2+S(I)**2
-          TEMP=SSQ-(XOPT(I)-SL(I))**2
-          IF (TEMP .GT. ZERO) THEN
-              TEMP=DSQRT(TEMP)-S(I)
-              IF (ANGBD*TEMP .GT. TEMPA) THEN
-                  ANGBD=TEMPA/TEMP
-                  IACT=I
-                  XSAV=ONEMIN
-              END IF
-          END IF
-          TEMP=SSQ-(SU(I)-XOPT(I))**2
-          IF (TEMP .GT. ZERO) THEN
-              TEMP=DSQRT(TEMP)+S(I)
-              IF (ANGBD*TEMP .GT. TEMPB) THEN
-                  ANGBD=TEMPB/TEMP
-                  IACT=I
-                  XSAV=ONE
-              END IF
-          END IF
-      END IF
-  140 CONTINUE
+      DO I=1,N
+        IF (XBDI(I) == ZERO) THEN
+            TEMPA=XOPT(I)+D(I)-SL(I)
+            TEMPB=SU(I)-XOPT(I)-D(I)
+            IF (TEMPA <= ZERO) THEN
+                NACT=NACT+1
+                XBDI(I)=ONEMIN
+                GOTO 100
+            ELSE IF (TEMPB <= ZERO) THEN
+                NACT=NACT+1
+                XBDI(I)=ONE
+                GOTO 100
+            END IF
+            RATIO=ONE
+            SSQ=D(I)**2+S(I)**2
+            TEMP=SSQ-(XOPT(I)-SL(I))**2
+            IF (TEMP > ZERO) THEN
+                TEMP=DSQRT(TEMP)-S(I)
+                IF (ANGBD*TEMP > TEMPA) THEN
+                    ANGBD=TEMPA/TEMP
+                    IACT=I
+                    XSAV=ONEMIN
+                END IF
+            END IF
+            TEMP=SSQ-(SU(I)-XOPT(I))**2
+            IF (TEMP > ZERO) THEN
+                TEMP=DSQRT(TEMP)+S(I)
+                IF (ANGBD*TEMP > TEMPB) THEN
+                    ANGBD=TEMPB/TEMP
+                    IACT=I
+                    XSAV=ONE
+                END IF
+            END IF
+        END IF
+      END DO
 !
 !     Calculate HHD and some curvatures for the alternative iteration.
 !
@@ -1935,13 +2048,13 @@ SUBROUTINE TRSBOX (N,NPT,XPT,XOPT,GOPT,HQ,PQ,SL,SU,DELTA,
   150 SHS=ZERO
       DHS=ZERO
       DHD=ZERO
-      DO 160 I=1,N
-      IF (XBDI(I) .EQ. ZERO) THEN
-          SHS=SHS+S(I)*HS(I)
-          DHS=DHS+D(I)*HS(I)
-          DHD=DHD+D(I)*HRED(I)
-      END IF
-  160 CONTINUE
+      DO I=1,N
+        IF (XBDI(I) == ZERO) THEN
+            SHS=SHS+S(I)*HS(I)
+            DHS=DHS+D(I)*HS(I)
+            DHD=DHD+D(I)*HRED(I)
+        END IF
+      END DO
 !
 !     Seek the greatest reduction in Q for a range of equally spaced values
 !     of ANGT in [0,ANGBD], where ANGT is the tangent of half the angle of
@@ -1951,33 +2064,34 @@ SUBROUTINE TRSBOX (N,NPT,XPT,XOPT,GOPT,HQ,PQ,SL,SU,DELTA,
       ISAV=0
       REDSAV=ZERO
       IU=17.0D0*ANGBD+3.1D0
-      DO 170 I=1,IU
-      ANGT=ANGBD*DFLOAT(I)/DFLOAT(IU)
-      STH=(ANGT+ANGT)/(ONE+ANGT*ANGT)
-      TEMP=SHS+ANGT*(ANGT*DHD-DHS-DHS)
-      REDNEW=STH*(ANGT*DREDG-SREDG-HALF*STH*TEMP)
-      IF (REDNEW .GT. REDMAX) THEN
-          REDMAX=REDNEW
-          ISAV=I
-          RDPREV=REDSAV
-      ELSE IF (I .EQ. ISAV+1) THEN
-          RDNEXT=REDNEW
-      END IF
-  170 REDSAV=REDNEW
+      DO I=1,IU
+        ANGT=ANGBD*DBLE(I)/DBLE(IU)
+        STH=(ANGT+ANGT)/(ONE+ANGT*ANGT)
+        TEMP=SHS+ANGT*(ANGT*DHD-DHS-DHS)
+        REDNEW=STH*(ANGT*DREDG-SREDG-HALF*STH*TEMP)
+        IF (REDNEW > REDMAX) THEN
+            REDMAX=REDNEW
+            ISAV=I
+            RDPREV=REDSAV
+        ELSE IF (I == ISAV+1) THEN
+            RDNEXT=REDNEW
+        END IF
+        REDSAV=REDNEW
+      END DO
 !
 !     Return if the reduction is zero. Otherwise, set the sine and cosine
 !     of the angle of the alternative iteration, and calculate SDEC.
 !
-      IF (ISAV .EQ. 0) GOTO 190
-      IF (ISAV .LT. IU) THEN
+      IF (ISAV == 0) GOTO 190
+      IF (ISAV < IU) THEN
           TEMP=(RDNEXT-RDPREV)/(REDMAX+REDMAX-RDPREV-RDNEXT)
-          ANGT=ANGBD*(DFLOAT(ISAV)+HALF*TEMP)/DFLOAT(IU)
+          ANGT=ANGBD*(DBLE(ISAV)+HALF*TEMP)/DBLE(IU)
       END IF
       CTH=(ONE-ANGT*ANGT)/(ONE+ANGT*ANGT)
       STH=(ANGT+ANGT)/(ONE+ANGT*ANGT)
       TEMP=SHS+ANGT*(ANGT*DHD-DHS-DHS)
       SDEC=STH*(ANGT*DREDG-SREDG-HALF*STH*TEMP)
-      IF (SDEC .LE. ZERO) GOTO 190
+      IF (SDEC <= ZERO) GOTO 190
 !
 !     Update GNEW, D and HRED. If the angle of the alternative iteration
 !     is restricted by a bound on a free variable, that variable is fixed
@@ -1985,16 +2099,17 @@ SUBROUTINE TRSBOX (N,NPT,XPT,XOPT,GOPT,HQ,PQ,SL,SU,DELTA,
 !
       DREDG=ZERO
       GREDSQ=ZERO
-      DO 180 I=1,N
-      GNEW(I)=GNEW(I)+(CTH-ONE)*HRED(I)+STH*HS(I)
-      IF (XBDI(I) .EQ. ZERO) THEN
-          D(I)=CTH*D(I)+STH*S(I)
-          DREDG=DREDG+D(I)*GNEW(I)
-          GREDSQ=GREDSQ+GNEW(I)**2
-      END IF
-  180 HRED(I)=CTH*HRED(I)+STH*HS(I)
+      DO I=1,N
+        GNEW(I)=GNEW(I)+(CTH-ONE)*HRED(I)+STH*HS(I)
+        IF (XBDI(I) == ZERO) THEN
+            D(I)=CTH*D(I)+STH*S(I)
+            DREDG=DREDG+D(I)*GNEW(I)
+            GREDSQ=GREDSQ+GNEW(I)**2
+        END IF
+        HRED(I)=CTH*HRED(I)+STH*HS(I)
+      END DO
       QRED=QRED+SDEC
-      IF (IACT .GT. 0 .AND. ISAV .EQ. IU) THEN
+      IF (IACT > 0 .AND. ISAV == IU) THEN
           NACT=NACT+1
           XBDI(IACT)=XSAV
           GOTO 100
@@ -2003,14 +2118,15 @@ SUBROUTINE TRSBOX (N,NPT,XPT,XOPT,GOPT,HQ,PQ,SL,SU,DELTA,
 !     If SDEC is sufficiently small, then RETURN after setting XNEW to
 !     XOPT+D, giving careful attention to the bounds.
 !
-      IF (SDEC .GT. 0.01D0*QRED) GOTO 120
+      IF (SDEC > 0.01D0*QRED) GOTO 120
   190 DSQ=ZERO
-      DO 200 I=1,N
-      XNEW(I)=DMAX1(DMIN1(XOPT(I)+D(I),SU(I)),SL(I))
-      IF (XBDI(I) .EQ. ONEMIN) XNEW(I)=SL(I)
-      IF (XBDI(I) .EQ. ONE) XNEW(I)=SU(I)
-      D(I)=XNEW(I)-XOPT(I)
-  200 DSQ=DSQ+D(I)**2
+      DO I=1,N
+        XNEW(I)=DMAX1(DMIN1(XOPT(I)+D(I),SU(I)),SL(I))
+        IF (XBDI(I) == ONEMIN) XNEW(I)=SL(I)
+        IF (XBDI(I) == ONE) XNEW(I)=SU(I)
+        D(I)=XNEW(I)-XOPT(I)
+        DSQ=DSQ+D(I)**2
+      END DO
       RETURN
  
 !     The following instructions multiply the current S-vector by the second
@@ -2019,33 +2135,37 @@ SUBROUTINE TRSBOX (N,NPT,XPT,XOPT,GOPT,HQ,PQ,SL,SU,DELTA,
 !     they can be regarded as an external subroutine.
 !
   210 IH=0
-      DO 220 J=1,N
-      HS(J)=ZERO
-      DO 220 I=1,J
-      IH=IH+1
-      IF (I .LT. J) HS(J)=HS(J)+HQ(IH)*S(I)
-  220 HS(I)=HS(I)+HQ(IH)*S(J)
-      DO 250 K=1,NPT
-      IF (PQ(K) .NE. ZERO) THEN
-          TEMP=ZERO
-          DO 230 J=1,N
-  230     TEMP=TEMP+XPT(K,J)*S(J)
-          TEMP=TEMP*PQ(K)
-          DO 240 I=1,N
-  240     HS(I)=HS(I)+TEMP*XPT(K,I)
-      END IF
-  250 CONTINUE
-      IF (CRVMIN .NE. ZERO) GOTO 50
-      IF (ITERC .GT. ITCSAV) GOTO 150
-      DO 260 I=1,N
-  260 HRED(I)=HS(I)
+      DO J=1,N
+        HS(J)=ZERO
+        DO I=1,J
+            IH=IH+1
+            IF (I < J) HS(J)=HS(J)+HQ(IH)*S(I)
+            HS(I)=HS(I)+HQ(IH)*S(J)
+        END DO
+      END DO
+      DO K=1,NPT
+        IF (PQ(K) /= ZERO) THEN
+            TEMP=ZERO
+            DO J=1,N
+               TEMP=TEMP+XPT(K,J)*S(J)
+            END DO
+            TEMP=TEMP*PQ(K)
+            DO I=1,N
+               HS(I)=HS(I)+TEMP*XPT(K,I)
+            END DO
+        END IF
+      END DO
+      IF (CRVMIN /= ZERO) GOTO 50
+      IF (ITERC > ITCSAV) GOTO 150
+      DO I=1,N
+         HRED(I)=HS(I)
+      END DO
       GOTO 120
       END SUBROUTINE TRSBOX
 
 
-      SUBROUTINE UPDATE (N,NPT,BMAT,ZMAT,NDIM,VLAG,BETA,DENOM,
-     1  KNEW,W)
-      IMPLICIT REAL*8 (A-H,O-Z)
+      SUBROUTINE UPDATE (N,NPT,BMAT,ZMAT,NDIM,VLAG,BETA,DENOM,KNEW,W)
+      IMPLICIT real(dp) (A-H,O-Z)
       DIMENSION BMAT(NDIM,*),ZMAT(NPT,*),VLAG(*),W(*)
 !
 !     The arrays BMAT and ZMAT are updated, as required by the new position
@@ -2063,33 +2183,36 @@ SUBROUTINE UPDATE (N,NPT,BMAT,ZMAT,NDIM,VLAG,BETA,DENOM,
       ZERO=0.0D0
       NPTM=NPT-N-1
       ZTEST=ZERO
-      DO 10 K=1,NPT
-      DO 10 J=1,NPTM
-   10 ZTEST=DMAX1(ZTEST,DABS(ZMAT(K,J)))
+      DO K=1,NPT
+        DO J=1,NPTM
+            ZTEST=DMAX1(ZTEST,DABS(ZMAT(K,J)))
+        END DO
+      END DO
       ZTEST=1.0D-20*ZTEST
 !
 !     Apply the rotations that put zeros in the KNEW-th row of ZMAT.
 !
       JL=1
-      DO 30 J=2,NPTM
-      IF (DABS(ZMAT(KNEW,J)) .GT. ZTEST) THEN
-          TEMP=DSQRT(ZMAT(KNEW,1)**2+ZMAT(KNEW,J)**2)
-          TEMPA=ZMAT(KNEW,1)/TEMP
-          TEMPB=ZMAT(KNEW,J)/TEMP
-          DO 20 I=1,NPT
-          TEMP=TEMPA*ZMAT(I,1)+TEMPB*ZMAT(I,J)
-          ZMAT(I,J)=TEMPA*ZMAT(I,J)-TEMPB*ZMAT(I,1)
-   20     ZMAT(I,1)=TEMP
-      END IF
-      ZMAT(KNEW,J)=ZERO
-   30 CONTINUE
+      DO J=2,NPTM
+        IF (DABS(ZMAT(KNEW,J)) > ZTEST) THEN
+            TEMP=DSQRT(ZMAT(KNEW,1)**2+ZMAT(KNEW,J)**2)
+            TEMPA=ZMAT(KNEW,1)/TEMP
+            TEMPB=ZMAT(KNEW,J)/TEMP
+            DO I=1,NPT
+                TEMP=TEMPA*ZMAT(I,1)+TEMPB*ZMAT(I,J)
+                ZMAT(I,J)=TEMPA*ZMAT(I,J)-TEMPB*ZMAT(I,1)
+                ZMAT(I,1)=TEMP
+            END DO
+        END IF
+        ZMAT(KNEW,J)=ZERO
+      END DO
 
 !     Put the first NPT components of the KNEW-th column of HLAG into W,
 !     and calculate the parameters of the updating formula.
 
-      DO 40 I=1,NPT
-      W(I)=ZMAT(KNEW,1)*ZMAT(I,1)
-   40 CONTINUE
+      DO I=1,NPT
+         W(I)=ZMAT(KNEW,1)*ZMAT(I,1)
+      END DO
       ALPHA=W(KNEW)
       TAU=VLAG(KNEW)
       VLAG(KNEW)=VLAG(KNEW)-ONE
@@ -2099,20 +2222,22 @@ SUBROUTINE UPDATE (N,NPT,BMAT,ZMAT,NDIM,VLAG,BETA,DENOM,
       TEMP=DSQRT(DENOM)
       TEMPB=ZMAT(KNEW,1)/TEMP
       TEMPA=TAU/TEMP
-      DO 50 I=1,NPT
-   50 ZMAT(I,1)=TEMPA*ZMAT(I,1)-TEMPB*VLAG(I)
+      DO I=1,NPT
+         ZMAT(I,1)=TEMPA*ZMAT(I,1)-TEMPB*VLAG(I)
+      END DO
 
 !     Finally, update the matrix BMAT.
 
-      DO 60 J=1,N
-      JP=NPT+J
-      W(JP)=BMAT(KNEW,J)
-      TEMPA=(ALPHA*VLAG(JP)-TAU*W(JP))/DENOM
-      TEMPB=(-BETA*W(JP)-TAU*VLAG(JP))/DENOM
-      DO 60 I=1,JP
-      BMAT(I,J)=BMAT(I,J)+TEMPA*VLAG(I)+TEMPB*W(I)
-      IF (I .GT. NPT) BMAT(JP,I-NPT)=BMAT(I,J)
-   60 CONTINUE
+      DO J=1,N
+        JP=NPT+J
+        W(JP)=BMAT(KNEW,J)
+        TEMPA=(ALPHA*VLAG(JP)-TAU*W(JP))/DENOM
+        TEMPB=(-BETA*W(JP)-TAU*VLAG(JP))/DENOM
+        DO I=1,JP
+            BMAT(I,J)=BMAT(I,J)+TEMPA*VLAG(I)+TEMPB*W(I)
+            IF (I > NPT) BMAT(JP,I-NPT)=BMAT(I,J)
+        END DO
+      END DO
       RETURN
       END SUBROUTINE UPDATE
 
diff --git a/num/private/mod_brent.f90 b/num/private/mod_brent.f90
index 333c700fa..864e629b8 100644
--- a/num/private/mod_brent.f90
+++ b/num/private/mod_brent.f90
@@ -510,7 +510,7 @@ end function eval_local_min
 
 
 
-   real*8 function eval_brent_safe_zero ( a, b, machep, t, epsy, f, fa_in, fb_in, lrpar, rpar, lipar, ipar, ierr )
+   real(dp) function eval_brent_safe_zero ( a, b, machep, t, epsy, f, fa_in, fb_in, lrpar, rpar, lipar, ipar, ierr )
 
    !*****************************************************************************80
    !
diff --git a/num/private/mod_dop853.f b/num/private/mod_dop853.f
index 852f77161..690ca36a0 100644
--- a/num/private/mod_dop853.f
+++ b/num/private/mod_dop853.f
@@ -32,9 +32,9 @@ subroutine do_dop853(
      &         n,fcn,x,y,xend,h,max_step_size,max_steps,
      &         rtol,atol,itol,solout,iout,work,lwork,iwork,liwork,
      &         lrpar,rpar,lipar,ipar,lout,idid)
-c *** *** *** *** *** *** *** *** *** *** *** *** ***
-c          declarations 
-c *** *** *** *** *** *** *** *** *** *** *** *** ***
+! *** *** *** *** *** *** *** *** *** *** *** *** ***
+!          declarations 
+! *** *** *** *** *** *** *** *** *** *** *** *** ***
       implicit real(dp) (a-h,o-z)
       integer, intent(in) :: n ! the dimension of the system
       interface
@@ -56,112 +56,112 @@ subroutine do_dop853(
       integer, intent(out)  :: idid
 
       logical arret
-c *** *** *** *** *** *** ***
-c        setting the parameters 
-c *** *** *** *** *** *** ***
+! *** *** *** *** *** *** ***
+!        setting the parameters 
+! *** *** *** *** *** *** ***
       nfcn=0
       nstep=0
       naccpt=0
       nrejct=0
       arret=.false.
-c -------- nmax , the maximal number of steps ----- 
-      if(max_steps.eq.0)then
+! -------- nmax , the maximal number of steps ----- 
+      if(max_steps == 0)then
          nmax=100000
       else
          nmax=max_steps
-         if(nmax.le.0)then
-            if (lout.gt.0) write(lout,*)
+         if(nmax <= 0)then
+            if (lout >0) write(lout,*)
      &          ' wrong input max_steps=',max_steps
             arret=.true.
          end if
       end if
-c -------- meth   coefficients of the method
-      if(iwork(2).eq.0)then
+! -------- meth   coefficients of the method
+      if(iwork(2) == 0)then
          meth=1
       else
          meth=iwork(2)
-         if(meth.le.0.or.meth.ge.4)then
-            if (lout.gt.0) write(lout,*)
+         if(meth <= 0.or.meth >= 4)then
+            if (lout >0) write(lout,*)
      &          ' curious input iwork(2)=',iwork(2)
             arret=.true.
          end if
       end if  
-c -------- nstiff   parameter for stiffness detection  
+! -------- nstiff   parameter for stiffness detection  
       nstiff=iwork(4) 
-      if (nstiff.eq.0) nstiff=1000
-      if (nstiff.lt.0) nstiff=nmax+10
-c -------- nrdens   number of dense output components
+      if (nstiff == 0) nstiff=1000
+      if (nstiff <0) nstiff=nmax+10
+! -------- nrdens   number of dense output components
       nrdens=iwork(5)
-      if(nrdens.lt.0.or.nrdens.gt.n)then
-         if (lout.gt.0) write(lout,*)
+      if(nrdens <0.or.nrdens >n)then
+         if (lout >0) write(lout,*)
      &           ' curious input iwork(5)=',iwork(5)
          arret=.true.
       else
-         if(nrdens.gt.0.and.iout.lt.2)then
-            if (lout.gt.0) write(lout,*)
+         if(nrdens >0.and.iout <2)then
+            if (lout >0) write(lout,*)
      &       ' warning: put iout=2 for dense output '
          end if 
-         if (nrdens.eq.n) then
+         if (nrdens == n) then
             do i=1,nrdens
                iwork(i+20)=i
             end do
          end if
       end if       
-c -------- uround   smallest number satisfying 1.d0+uround>1.d0  
-      if(work(1).eq.0.d0)then
+! -------- uround   smallest number satisfying 1.d0+uround>1.d0  
+      if(work(1) == 0.d0)then
          uround=2.3d-16
       else
          uround=work(1)
-         if(uround.le.1.d-35.or.uround.ge.1.d0)then
-            if (lout.gt.0) write(lout,*)
+         if(uround <= 1.d-35.or.uround >= 1.d0)then
+            if (lout >0) write(lout,*)
      &        ' which machine do you have? your uround was:',work(1)
             arret=.true.
          end if
       end if
-c -------  safety factor -------------
-      if(work(2).eq.0.d0)then
+! -------  safety factor -------------
+      if(work(2) == 0.d0)then
          safe=0.9d0
       else
          safe=work(2)
-         if(safe.ge.1.d0.or.safe.le.1.d-4)then
-            if (lout.gt.0) write(lout,*)
+         if(safe >= 1.d0.or.safe <= 1.d-4)then
+            if (lout >0) write(lout,*)
      &          ' curious input for safety factor work(2)=',work(2)
             arret=.true.
          end if
       end if
-c -------  fac1,fac2     parameters for step size selection
-      if(work(3).eq.0.d0)then
+! -------  fac1,fac2     parameters for step size selection
+      if(work(3) == 0.d0)then
          fac1=0.333d0
       else
          fac1=work(3)
       end if
-      if(work(4).eq.0.d0)then
+      if(work(4) == 0.d0)then
          fac2=6.d0
       else
          fac2=work(4)
       end if
-c --------- beta for step control stabilization -----------
-      if(work(5).eq.0.d0)then
+! --------- beta for step control stabilization -----------
+      if(work(5) == 0.d0)then
          beta=0.0d0
       else
-         if(work(5).lt.0.d0)then
+         if(work(5) <0.d0)then
             beta=0.d0
          else
             beta=work(5)
-            if(beta.gt.0.2d0)then
-               if (lout.gt.0) write(lout,*)
+            if(beta >0.2d0)then
+               if (lout >0) write(lout,*)
      &          ' curious input for beta: work(5)=',work(5)
             arret=.true.
          end if
          end if
       end if
-c -------- maximal step size
-      if(max_step_size.eq.0.d0)then
+! -------- maximal step size
+      if(max_step_size == 0.d0)then
          hmax=xend-x
       else
          hmax=max_step_size
       end if
-c ------- prepare the entry-points for the arrays in work -----
+! ------- prepare the entry-points for the arrays in work -----
       iek1=21
       iek2=iek1+n
       iek3=iek2+n
@@ -174,26 +174,26 @@ subroutine do_dop853(
       iek10=iek9+n
       iey1=iek10+n
       ieco=iey1+n
-c ------ total storage requirement -----------
+! ------ total storage requirement -----------
       istore=ieco+(3+8*nrdens)-1
-      if(istore.gt.lwork)then
-        if (lout.gt.0) write(lout,*)
+      if(istore >lwork)then
+        if (lout >0) write(lout,*)
      &   ' insufficient storage for work, min. lwork=',istore
         arret=.true.
       end if
       icomp=21
       istore=icomp+nrdens-1
-      if(istore.gt.liwork)then
-        if (lout.gt.0) write(lout,*)
+      if(istore >liwork)then
+        if (lout >0) write(lout,*)
      &   ' insufficient storage for iwork, min. liwork=',istore
         arret=.true.
       end if
-c -------- when a fail has occured, we return with idid=-1
+! -------- when a fail has occured, we return with idid=-1
       if (arret) then
          idid=-1
          return
       end if
-c -------- call to core integrator ------------
+! -------- call to core integrator ------------
       call dp86co(n,fcn,x,y,xend,hmax,h,rtol,atol,itol,lout,
      &   solout,iout,idid,nmax,uround,meth,nstiff,safe,beta,fac1,fac2,
      &   work(iek1),work(iek2),work(iek3),work(iek4),work(iek5),
@@ -205,25 +205,26 @@ subroutine do_dop853(
       iwork(18)=nstep
       iwork(19)=naccpt
       iwork(20)=nrejct
-c ----------- return -----------
+! ----------- return -----------
       return
       end subroutine do_dop853
+!
 c
-c
-c
-c  ----- ... and here is the core integrator  ----------
-c
+!
+!    ----- ... and here is the core integrator  ----------
+!
       subroutine dp86co(n,fcn,x,y,xend,hmax,h,rtol,atol,itol,lout,
      &   solout,iout,idid,nmax,uround,meth,nstiff,safe,beta,fac1,fac2,
      &   k1,k2,k3,k4,k5,k6,k7,k8,k9,k10,y1,rwork,icomp,nrd,lrpar,rpar,lipar,ipar,
      &   nfcn,nstep,naccpt,nrejct)
-c ----------------------------------------------------------
-c     core integrator for dop853
-c     parameters same as in dop853 with workspace added 
-c ---------------------------------------------------------- 
-c         declarations 
-c ---------------------------------------------------------- 
+! ----------------------------------------------------------
+!    core integrator for dop853
+!    parameters same as in dop853 with workspace added 
+! ---------------------------------------------------------- 
+!        declarations 
+! ---------------------------------------------------------- 
       implicit real(dp) (a-h,o-z)
+      integer :: n, itol, lout, iout, idid, nmax, meth
       parameter (
      &  c2  = 0.526001519587677318785587544488d-01,
      &  c3  = 0.789002279381515978178381316732d-01,
@@ -408,15 +409,15 @@ subroutine dp86co(n,fcn,x,y,xend,hmax,h,rtol,atol,itol,lout,
       real(dp), pointer :: cont(:)
       cont => rwork(3:3+8*nrd)
          
-c *** *** *** *** *** *** ***
-c  initialisations
-c *** *** *** *** *** *** *** 
+! *** *** *** *** *** *** ***
+!    initialisations
+! *** *** *** *** *** *** *** 
       facold=1.d-4  
       expo1=1.d0/8.d0-beta*0.2d0
       facc1=1.d0/fac1
       facc2=1.d0/fac2
       posneg=sign(1.d0,xend-x) 
-c --- initial preparations   
+! --- initial preparations   
       atoli=atol(1)
       rtoli=rtol(1)    
       last=.false. 
@@ -428,21 +429,21 @@ subroutine dp86co(n,fcn,x,y,xend,hmax,h,rtol,atol,itol,lout,
       if (ierr /= 0) then; idid=-5; return; end if
       hmax=abs(hmax)     
       iord=8  
-      if (h.eq.0.d0) h=hinit(n,fcn,x,y,xend,posneg,k1,k2,k3,iord,
+      if (h == 0.d0) h=hinit(n,fcn,x,y,xend,posneg,k1,k2,k3,iord,
      &                       hmax,atol,rtol,itol,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; idid=-5; return; end if
       nfcn=nfcn+2
       reject=.false.
       xold=x
       irtrn=1 
-      if (iout.ge.1) then 
+      if (iout >= 1) then 
           hout=1.d0
           rwork(1) = xold
           rwork(2) = hout
           iwork(1) = nrd
           iwork(2:nrd+1) = icomp(1:nrd)
 
-            do 662 j=1,nrd
+            do j=1,nrd
                i=icomp(j)
                cont(j)=y(i)
                cont(j+nrd)=0
@@ -452,142 +453,156 @@ subroutine dp86co(n,fcn,x,y,xend,hmax,h,rtol,atol,itol,lout,
                cont(j+nrd*5)=0
                cont(j+nrd*6)=0
                cont(j+nrd*7)=0
-  662       continue 
+            end do 
 
           call solout(naccpt+1,xold,x,n,y,rwork,iwork,contd8,lrpar,rpar,lipar,ipar,irtrn)
-          if (irtrn.lt.0) goto 79
+          if (irtrn <0) goto 79
       end if
-c --- basic integration step  
+! --- basic integration step  
    1  continue
-      if (nstep.gt.nmax) goto 78
-      if (0.1d0*abs(h).le.abs(x)*uround)goto 77
-      if ((x+1.01d0*h-xend)*posneg.gt.0.d0) then
+      if (nstep >nmax) goto 78
+      if (0.1d0*abs(h) <= abs(x)*uround)goto 77
+      if ((x+1.01d0*h-xend)*posneg >0.d0) then
          h=xend-x 
          last=.true.
       end if
       nstep=nstep+1
-c --- the twelve stages
-      if (irtrn.ge.2) then
+! --- the twelve stages
+      if (irtrn >= 2) then
          call fcn(n,x,h,y,k1,lrpar,rpar,lipar,ipar,ierr)
          if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
       end if
-      do 22 i=1,n 
-  22  y1(i)=y(i)+h*a21*k1(i)  
+      do i=1,n 
+         y1(i)=y(i)+h*a21*k1(i)
+      end do
       call fcn(n,x+c2*h,h,y1,k2,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
-      do 23 i=1,n 
-  23  y1(i)=y(i)+h*(a31*k1(i)+a32*k2(i))  
+      do i=1,n 
+         y1(i)=y(i)+h*(a31*k1(i)+a32*k2(i))
+      end do
       call fcn(n,x+c3*h,h,y1,k3,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
-      do 24 i=1,n 
-  24  y1(i)=y(i)+h*(a41*k1(i)+a43*k3(i))  
+      do i=1,n 
+         y1(i)=y(i)+h*(a41*k1(i)+a43*k3(i))
+      end do
       call fcn(n,x+c4*h,h,y1,k4,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
-      do 25 i=1,n 
-  25  y1(i)=y(i)+h*(a51*k1(i)+a53*k3(i)+a54*k4(i))
+      do i=1,n 
+         y1(i)=y(i)+h*(a51*k1(i)+a53*k3(i)+a54*k4(i))
+      end do
       call fcn(n,x+c5*h,h,y1,k5,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
-      do 26 i=1,n 
-  26  y1(i)=y(i)+h*(a61*k1(i)+a64*k4(i)+a65*k5(i))
+      do i=1,n 
+         y1(i)=y(i)+h*(a61*k1(i)+a64*k4(i)+a65*k5(i))
+      end do
       call fcn(n,x+c6*h,h,y1,k6,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
-      do 27 i=1,n 
-  27  y1(i)=y(i)+h*(a71*k1(i)+a74*k4(i)+a75*k5(i)+a76*k6(i))
+      do i=1,n 
+         y1(i)=y(i)+h*(a71*k1(i)+a74*k4(i)+a75*k5(i)+a76*k6(i))
+      end do
       call fcn(n,x+c7*h,h,y1,k7,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
-      do 28 i=1,n 
-  28  y1(i)=y(i)+h*(a81*k1(i)+a84*k4(i)+a85*k5(i)+a86*k6(i)+a87*k7(i))  
+      do i=1,n 
+         y1(i)=y(i)+h*(a81*k1(i)+a84*k4(i)+a85*k5(i)+a86*k6(i)+a87*k7(i))
+      end do
       call fcn(n,x+c8*h,h,y1,k8,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
-      do 29 i=1,n 
-  29  y1(i)=y(i)+h*(a91*k1(i)+a94*k4(i)+a95*k5(i)+a96*k6(i)+a97*k7(i)
-     &   +a98*k8(i))
+      do i=1,n 
+         y1(i)=y(i)+h*(a91*k1(i)+a94*k4(i)+a95*k5(i)+a96*k6(i)+a97*k7(i)
+     &        +a98*k8(i))
+      end do
       call fcn(n,x+c9*h,h,y1,k9,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
-      do 30 i=1,n 
-  30  y1(i)=y(i)+h*(a101*k1(i)+a104*k4(i)+a105*k5(i)+a106*k6(i)
-     &   +a107*k7(i)+a108*k8(i)+a109*k9(i))
+      do i=1,n 
+         y1(i)=y(i)+h*(a101*k1(i)+a104*k4(i)+a105*k5(i)+a106*k6(i)
+     &        +a107*k7(i)+a108*k8(i)+a109*k9(i))
+      end do
       call fcn(n,x+c10*h,h,y1,k10,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
-      do 31 i=1,n 
-  31  y1(i)=y(i)+h*(a111*k1(i)+a114*k4(i)+a115*k5(i)+a116*k6(i)
-     &   +a117*k7(i)+a118*k8(i)+a119*k9(i)+a1110*k10(i))
+      do i=1,n 
+         y1(i)=y(i)+h*(a111*k1(i)+a114*k4(i)+a115*k5(i)+a116*k6(i)
+     &        +a117*k7(i)+a118*k8(i)+a119*k9(i)+a1110*k10(i))
+      end do
       call fcn(n,x+c11*h,h,y1,k2,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
       xph=x+h
-      do 32 i=1,n 
-  32  y1(i)=y(i)+h*(a121*k1(i)+a124*k4(i)+a125*k5(i)+a126*k6(i)
-     &   +a127*k7(i)+a128*k8(i)+a129*k9(i)+a1210*k10(i)+a1211*k2(i))
+      do i=1,n 
+         y1(i)=y(i)+h*(a121*k1(i)+a124*k4(i)+a125*k5(i)+a126*k6(i)
+     &        +a127*k7(i)+a128*k8(i)+a129*k9(i)+a1210*k10(i)+a1211*k2(i))
+      end do
       call fcn(n,xph,h,y1,k3,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
       nfcn=nfcn+11
-      do 35 i=1,n 
-      k4(i)=b1*k1(i)+b6*k6(i)+b7*k7(i)+b8*k8(i)+b9*k9(i)
-     &   +b10*k10(i)+b11*k2(i)+b12*k3(i)
-  35  k5(i)=y(i)+h*k4(i)
-c --- error estimation  
+      do i=1,n 
+         k4(i)=b1*k1(i)+b6*k6(i)+b7*k7(i)+b8*k8(i)+b9*k9(i)
+     &        +b10*k10(i)+b11*k2(i)+b12*k3(i)
+         k5(i)=y(i)+h*k4(i)
+      end do
+! --- error estimation  
       err=0.d0
       err2=0.d0
-      if (itol.eq.0) then   
-        do 41 i=1,n 
-        sk=atoli+rtoli*max(abs(y(i)),abs(k5(i)))
-        erri=k4(i)-bhh1*k1(i)-bhh2*k9(i)-bhh3*k3(i)
-        err2=err2+(erri/sk)**2
-        erri=er1*k1(i)+er6*k6(i)+er7*k7(i)+er8*k8(i)+er9*k9(i)
-     &      +er10*k10(i)+er11*k2(i)+er12*k3(i)
-  41    err=err+(erri/sk)**2
+      if (itol == 0) then   
+        do i=1,n 
+           sk=atoli+rtoli*max(abs(y(i)),abs(k5(i)))
+           erri=k4(i)-bhh1*k1(i)-bhh2*k9(i)-bhh3*k3(i)
+           err2=err2+(erri/sk)**2
+           erri=er1*k1(i)+er6*k6(i)+er7*k7(i)+er8*k8(i)+er9*k9(i)
+     &         +er10*k10(i)+er11*k2(i)+er12*k3(i)
+              err=err+(erri/sk)**2
+        end do
       else
-        do 42 i=1,n 
-        sk=atol(i)+rtol(i)*max(abs(y(i)),abs(k5(i)))
-        erri=k4(i)-bhh1*k1(i)-bhh2*k9(i)-bhh3*k3(i)
-        err2=err2+(erri/sk)**2
-        erri=er1*k1(i)+er6*k6(i)+er7*k7(i)+er8*k8(i)+er9*k9(i)
-     &      +er10*k10(i)+er11*k2(i)+er12*k3(i)
-  42    err=err+(erri/sk)**2
+        do i=1,n 
+           sk=atol(i)+rtol(i)*max(abs(y(i)),abs(k5(i)))
+           erri=k4(i)-bhh1*k1(i)-bhh2*k9(i)-bhh3*k3(i)
+           err2=err2+(erri/sk)**2
+           erri=er1*k1(i)+er6*k6(i)+er7*k7(i)+er8*k8(i)+er9*k9(i)
+     &         +er10*k10(i)+er11*k2(i)+er12*k3(i)
+           err=err+(erri/sk)**2
+        end do
       end if  
       deno=err+0.01d0*err2
-      if (deno.le.0.d0) deno=1.d0
+      if (deno <= 0.d0) deno=1.d0
       err=abs(h)*err*sqrt(1.d0/(n*deno))
-c --- computation of hnew
+! --- computation of hnew
       fac11=pow(err,expo1)
-c --- lund-stabilization
+! --- lund-stabilization
       fac=fac11/pow(facold,beta)
-c --- we require  fac1 <= hnew/h <= fac2
+! --- we require  fac1 <= hnew/h <= fac2
       fac=max(facc2,min(facc1,fac/safe))
-      hnew=h/fac  
-      if(err.le.1.d0)then
-c --- step is accepted  
+      hnew=h/fac
+      if(err <= 1.d0)then
+! --- step is accepted  
          facold=max(err,1.0d-4)
          naccpt=naccpt+1
          call fcn(n,xph,h,k5,k4,lrpar,rpar,lipar,ipar,ierr)
          if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
          nfcn=nfcn+1
-c ------- stiffness detection
-         if (mod(naccpt,nstiff).eq.0.or.iasti.gt.0) then
+! ------- stiffness detection
+         if (mod(naccpt,nstiff) == 0.or.iasti >0) then
             stnum=0.d0
             stden=0.d0
-            do 64 i=1,n 
+            do i=1,n 
                stnum=stnum+(k4(i)-k3(i))**2
                stden=stden+(k5(i)-y1(i))**2
- 64         continue  
-            if (stden.gt.0.d0) hlamb=abs(h)*sqrt(stnum/stden) 
-            if (hlamb.gt.6.1d0) then
+            end do
+            if (stden >0.d0) hlamb=abs(h)*sqrt(stnum/stden) 
+            if (hlamb >6.1d0) then
                nonsti=0
                iasti=iasti+1  
-               if (iasti.eq.15) then
-                  if (lout.gt.0) write (lout,*) 
+               if (iasti == 15) then
+                  if (lout >0) write (lout,*) 
      &               ' the problem seems to become stiff at x = ',x   
-                  if (lout.lt.0) goto 76
+                  if (lout <0) goto 76
                end if
             else
                nonsti=nonsti+1  
-               if (nonsti.eq.6) iasti=0
+               if (nonsti == 6) iasti=0
             end if
          end if 
-c ------- final preparation for dense output
-         if (iout.ge.2) then
-c ----    save the first function evaluations   
-            do 62 j=1,nrd
+! ------- final preparation for dense output
+         if (iout >= 2) then
+! ----    save the first function evaluations   
+            do j=1,nrd
                i=icomp(j)
                cont(j)=y(i)
                ydiff=k5(i)-y(i)
@@ -603,29 +618,32 @@ subroutine dp86co(n,fcn,x,y,xend,hmax,h,rtol,atol,itol,lout,
      &                  +d69*k9(i)+d610*k10(i)+d611*k2(i)+d612*k3(i)
                cont(j+nrd*7)=d71*k1(i)+d76*k6(i)+d77*k7(i)+d78*k8(i)
      &                  +d79*k9(i)+d710*k10(i)+d711*k2(i)+d712*k3(i)
-   62       continue 
-c ---     the next three function evaluations
-            do 51 i=1,n 
-  51           y1(i)=y(i)+h*(a141*k1(i)+a147*k7(i)+a148*k8(i)
+            end do 
+! ---     the next three function evaluations
+            do i=1,n 
+               y1(i)=y(i)+h*(a141*k1(i)+a147*k7(i)+a148*k8(i)
      &            +a149*k9(i)+a1410*k10(i)+a1411*k2(i)+a1412*k3(i)
      &            +a1413*k4(i))
+            end do
             call fcn(n,x+c14*h,h,y1,k10,lrpar,rpar,lipar,ipar,ierr)
             if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
-            do 52 i=1,n 
-  52           y1(i)=y(i)+h*(a151*k1(i)+a156*k6(i)+a157*k7(i)
+            do i=1,n 
+               y1(i)=y(i)+h*(a151*k1(i)+a156*k6(i)+a157*k7(i)
      &            +a158*k8(i)+a1511*k2(i)+a1512*k3(i)+a1513*k4(i)
      &            +a1514*k10(i))
+            end do
             call fcn(n,x+c15*h,h,y1,k2,lrpar,rpar,lipar,ipar,ierr)
             if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
-            do 53 i=1,n 
-  53           y1(i)=y(i)+h*(a161*k1(i)+a166*k6(i)+a167*k7(i)
+            do i=1,n 
+               y1(i)=y(i)+h*(a161*k1(i)+a166*k6(i)+a167*k7(i)
      &            +a168*k8(i)+a169*k9(i)+a1613*k4(i)+a1614*k10(i)
      &            +a1615*k2(i))
+            end do
             call fcn(n,x+c16*h,h,y1,k3,lrpar,rpar,lipar,ipar,ierr)
             if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
             nfcn=nfcn+3 
-c ---     final preparation
-            do 63 j=1,nrd
+! ---     final preparation
+            do j=1,nrd
                i=icomp(j)
                cont(j+nrd*4)=h*(cont(j+nrd*4)+d413*k4(i)+d414*k10(i)
      &            +d415*k2(i)+d416*k3(i))
@@ -635,67 +653,68 @@ subroutine dp86co(n,fcn,x,y,xend,hmax,h,rtol,atol,itol,lout,
      &            +d615*k2(i)+d616*k3(i))
                cont(j+nrd*7)=h*(cont(j+nrd*7)+d713*k4(i)+d714*k10(i)
      &            +d715*k2(i)+d716*k3(i))
-  63        continue
+            end do
             hout=h
          end if
-         do 67 i=1,n
-         k1(i)=k4(i)
-  67     y(i)=k5(i)
+         do i=1,n
+            k1(i)=k4(i)
+            y(i)=k5(i)
+         end do
          xold=x
          x=xph
-         if (iout.ge.1) then
+         if (iout >= 1) then
             rwork(1) = xold
             rwork(2) = hout
             iwork(1) = nrd
             iwork(2:nrd+1) = icomp(1:nrd)
             call solout(naccpt+1,xold,x,n,y,rwork,iwork,contd8,lrpar,rpar,lipar,ipar,irtrn)
-            if (irtrn.lt.0) goto 79
+            if (irtrn <0) goto 79
          end if 
-c ------- normal exit
+! ------- normal exit
          if (last) then
             h=hnew
             idid=1
             return
          end if
-         if(abs(hnew).gt.hmax)hnew=posneg*hmax  
+         if(abs(hnew) >hmax)hnew=posneg*hmax  
          if(reject)hnew=posneg*min(abs(hnew),abs(h))
          reject=.false. 
       else  
-c --- step is rejected   
+! --- step is rejected   
          hnew=h/min(facc1,fac11/safe)
          reject=.true.  
-         if(naccpt.ge.1)nrejct=nrejct+1   
+         if(naccpt >= 1)nrejct=nrejct+1   
          last=.false.
       end if
       h=hnew
       goto 1
-c --- fail exit
+! --- fail exit
   76  continue
       idid=-4
       return
   77  continue
-      if (lout.gt.0) write(lout,979) x   
-      if (lout.gt.0) write(lout,*)' step size too small, h=',h
+      if (lout >0) write(lout,979) x   
+      if (lout >0) write(lout,*)' step size too small, h=',h
       idid=-3
       return
   78  continue
-      if (lout.gt.0) write(lout,979) x   
-      if (lout.gt.0) write(lout,*)
+      if (lout >0) write(lout,979) x   
+      if (lout >0) write(lout,*)
      &     ' more than nmax =',nmax,'steps are needed' 
       idid=-2
       return
   79  continue
-      !if (lout.gt.0) write(lout,979) x
+      !if (lout >0) write(lout,979) x
  979  format(' exit of dop853 at x=',e18.4) 
       idid=2
       return
       end subroutine dp86co
-c
+!
       function hinit(n,fcn,x,y,xend,posneg,f0,f1,y1,iord,
      &                       hmax,atol,rtol,itol,lrpar,rpar,lipar,ipar,ierr)
-c ----------------------------------------------------------
-c ----  computation of an initial step size guess
-c ----------------------------------------------------------
+! ----------------------------------------------------------
+! ----  computation of an initial step size guess
+! ----------------------------------------------------------
       implicit real(dp) (a-h,o-z)
       
       real(dp), intent(inout) :: x 
@@ -715,53 +734,58 @@ function hinit(n,fcn,x,y,xend,posneg,f0,f1,y1,iord,
 #include "num_fcn.dek"
       end interface
 
-c ---- compute a first guess for explicit euler as
-c ----   h = 0.01 * norm (y0) / norm (f0)
-c ---- the increment for explicit euler is small
-c ---- compared to the solution
+! ---- compute a first guess for explicit euler as
+! ----   h = 0.01 * norm (y0) / norm (f0)
+! ---- the increment for explicit euler is small
+! ---- compared to the solution
       dnf=0.0d0
       dny=0.0d0 
       atoli=atol(1)
       rtoli=rtol(1)    
-      if (itol.eq.0) then   
-        do 10 i=1,n 
-        sk=atoli+rtoli*abs(y(i))
-        dnf=dnf+(f0(i)/sk)**2
-  10    dny=dny+(y(i)/sk)**2 
+      if (itol == 0) then   
+        do i=1,n 
+           sk=atoli+rtoli*abs(y(i))
+           dnf=dnf+(f0(i)/sk)**2
+           dny=dny+(y(i)/sk)**2 
+        end do
       else
-        do 11 i=1,n 
-        sk=atol(i)+rtol(i)*abs(y(i))
-        dnf=dnf+(f0(i)/sk)**2
-  11    dny=dny+(y(i)/sk)**2 
+        do i=1,n 
+          sk=atol(i)+rtol(i)*abs(y(i))
+          dnf=dnf+(f0(i)/sk)**2
+          dny=dny+(y(i)/sk)**2 
+        end do
       end if
-      if (dnf.le.1.d-10.or.dny.le.1.d-10) then
+      if (dnf <= 1.d-10.or.dny <= 1.d-10) then
          h=1.0d-6
       else
          h=sqrt(dny/dnf)*0.01d0 
       end if
       h=min(h,hmax)
       h=sign(h,posneg) 
-c ---- perform an explicit euler step
-      do 12 i=1,n
-  12  y1(i)=y(i)+h*f0(i)
+! ---- perform an explicit euler step
+      do i=1,n
+         y1(i)=y(i)+h*f0(i)
+      end do
       call fcn(n,x+h,h,y1,f1,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; idid=-5; return; end if
-c ---- estimate the second derivative of the solution
+! ---- estimate the second derivative of the solution
       der2=0.0d0
-      if (itol.eq.0) then   
-        do 15 i=1,n 
-        sk=atoli+rtoli*abs(y(i))
-  15    der2=der2+((f1(i)-f0(i))/sk)**2   
+      if (itol == 0) then   
+        do i=1,n 
+          sk=atoli+rtoli*abs(y(i))
+          der2=der2+((f1(i)-f0(i))/sk)**2   
+        end do
       else
-        do 16 i=1,n 
-        sk=atol(i)+rtol(i)*abs(y(i))
-  16    der2=der2+((f1(i)-f0(i))/sk)**2   
+        do i=1,n 
+           sk=atol(i)+rtol(i)*abs(y(i))
+           der2=der2+((f1(i)-f0(i))/sk)**2   
+        end do
       end if
       der2=sqrt(der2)/h
-c ---- step size is computed such that
-c ----  h**iord * max ( norm (f0), norm (der2)) = 0.01
+! ---- step size is computed such that
+! ----  h**iord * max ( norm (f0), norm (der2)) = 0.01
       der12=max(abs(der2),sqrt(dnf))
-      if (der12.le.1.d-15) then
+      if (der12 <= 1.d-15) then
          h1=max(1.0d-6,abs(h)*1.0d-3)
       else
          h1=pow(0.01d0/der12,1.d0/iord) 
@@ -770,10 +794,9 @@ function hinit(n,fcn,x,y,xend,posneg,f0,f1,y1,iord,
       hinit=sign(h,posneg)  
       return
       end function hinit
-c
-
 
 
+      
       real(dp) function contd8(ii,x,rwork,iwork,ierr)
 ! ----------------------------------------------------------
 !     this function can be used for continuous output in connection
@@ -800,11 +823,11 @@ real(dp) function contd8(ii,x,rwork,iwork,ierr)
          ! ----- compute place of ii-th component 
          i=0 
          do j=1,nd 
-            if (icomp(j).eq.ii) then
+            if (icomp(j) == ii) then
                i=j; exit
             end if
          end do
-         if (i.eq.0) then
+         if (i == 0) then
             contd8 = 0
             ierr = -1
             return
@@ -819,3 +842,4 @@ end function contd8
 
 
       end module mod_dop853
+
diff --git a/num/private/mod_dopri5.f b/num/private/mod_dopri5.f
index ada926d97..97bd6ae7c 100644
--- a/num/private/mod_dopri5.f
+++ b/num/private/mod_dopri5.f
@@ -24,7 +24,9 @@
 ! ***********************************************************************
       module mod_dopri5
       use const_def, only: dp
-      use math_lib      
+      use math_lib    
+      
+      implicit none
       
       contains
 
@@ -32,10 +34,9 @@ subroutine do_dopri5(
      &         n,fcn,x,y,xend,h,max_step_size,max_steps,
      &         rtol,atol,itol,solout,iout,work,lwork,iwork,liwork,
      &         lrpar,rpar,lipar,ipar,lout,idid)
-c *** *** *** *** *** *** *** *** *** *** *** *** ***
-c          declarations 
-c *** *** *** *** *** *** *** *** *** *** *** *** ***
-      implicit real(dp) (a-h,o-z)
+! *** *** *** *** *** *** *** *** *** *** *** *** ***
+!         declarations 
+! *** *** *** *** *** *** *** *** *** *** *** *** ***
       integer, intent(in) :: n ! the dimension of the system
       interface
 #include "num_fcn.dek"
@@ -54,113 +55,118 @@ subroutine do_dopri5(
       real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
       integer, intent(in)  :: lout
       integer, intent(out)  :: idid
+      integer :: nfcn, nstep, naccpt, nrejct, i, icomp, ieco
+      integer :: iek1, iek2, iek3, iek4, iek5, iek6
+      integer :: iey1, ieys, istore, nmax, meth, nstiff, nrdens
+      real(dp) :: beta, fac1, fac2, hmax, safe, uround
 
       logical arret
-c *** *** *** *** *** *** ***
-c        setting the parameters 
-c *** *** *** *** *** *** ***
+! *** *** *** *** *** *** ***
+!       setting the parameters 
+! *** *** *** *** *** *** ***
       nfcn=0
       nstep=0
       naccpt=0
       nrejct=0
       arret=.false.
-c -------- nmax , the maximal number of steps ----- 
-      if(max_steps.eq.0)then
+! -------- nmax , the maximal number of steps ----- 
+      if (max_steps == 0 ) then
          nmax=100000
       else
          nmax=max_steps
-         if(nmax.le.0)then
-            if (lout.gt.0) write(lout,*)
+         if (nmax <= 0 ) then
+            if (lout > 0) write(lout,*)
      &          ' wrong input max_steps=',max_steps
             arret=.true.
          end if
       end if
-c -------- meth   coefficients of the method
-      if(iwork(2).eq.0)then
+! -------- meth   coefficients of the method
+      if (iwork(2) == 0 ) then
          meth=1
       else
          meth=iwork(2)
-         if(meth.le.0.or.meth.ge.4)then
-            if (lout.gt.0) write(lout,*)
+         if (meth <= 0.or.meth >= 4 ) then
+            if (lout > 0) write(lout,*)
      &          ' curious input iwork(2)=',iwork(2)
             arret=.true.
          end if
       end if  
-c -------- nstiff   parameter for stiffness detection  
+! -------- nstiff   parameter for stiffness detection  
       nstiff=iwork(4) 
-      if (nstiff.eq.0) nstiff=1000
-      if (nstiff.lt.0) nstiff=nmax+10
-c -------- nrdens   number of dense output components
+      if (nstiff == 0) nstiff=1000
+      if (nstiff < 0) nstiff=nmax+10
+! -------- nrdens   number of dense output components
       nrdens=iwork(5)
-      if(nrdens.lt.0.or.nrdens.gt.n)then
-         if (lout.gt.0) write(lout,*)
+      if (nrdens < 0.or.nrdens > n ) then
+         if (lout > 0) write(lout,*)
      &           ' curious input iwork(5)=',iwork(5)
          arret=.true.
       else
-            if(nrdens.gt.0.and.iout.lt.2)then
-               if (lout.gt.0) write(lout,*)
+            if (nrdens > 0.and.iout < 2 ) then
+               if (lout > 0) write(lout,*)
      &      ' warning: put iout=2 for dense output '
             end if 
-            if (nrdens.eq.n) then
-                do 16 i=1,nrdens
-  16            iwork(20+i)=i 
+            if (nrdens == n) then
+                do i=1,nrdens
+                   iwork(20+i)=i 
+                end do
             end if
       end if
-c -------- uround   smallest number satisfying 1.d0+uround>1.d0  
-      if(work(1).eq.0.d0)then
+! -------- uround   smallest number satisfying 1.d0+uround>1.d0  
+      if (work(1) == 0.d0 ) then
          uround=2.3d-16
       else
          uround=work(1)
-         if(uround.le.1.d-35.or.uround.ge.1.d0)then
-            if (lout.gt.0) write(lout,*)
+         if (uround <= 1.d-35.or.uround >= 1.d0 ) then
+            if (lout > 0) write(lout,*)
      &        ' which machine do you have? your uround was:',work(1)
             arret=.true.
          end if
       end if
-c -------  safety factor -------------
-      if(work(2).eq.0.d0)then
+! -------  safety factor -------------
+      if (work(2) == 0.d0 ) then
          safe=0.9d0
       else
          safe=work(2)
-         if(safe.ge.1.d0.or.safe.le.1.d-4)then
-            if (lout.gt.0) write(lout,*)
+         if (safe >= 1.d0.or.safe <= 1.d-4 ) then
+            if (lout > 0) write(lout,*)
      &          ' curious input for safety factor work(2)=',work(2)
             arret=.true.
          end if
       end if
-c -------  fac1,fac2     parameters for step size selection
-      if(work(3).eq.0.d0)then
+! -------  fac1,fac2     parameters for step size selection
+      if (work(3) == 0.d0 ) then
          fac1=0.2d0
       else
          fac1=work(3)
       end if
-      if(work(4).eq.0.d0)then
+      if (work(4) == 0.d0 ) then
          fac2=10.d0
       else
          fac2=work(4)
       end if
-c --------- beta for step control stabilization -----------
-      if(work(5).eq.0.d0)then
+! --------- beta for step control stabilization -----------
+      if (work(5) == 0.d0 ) then
          beta=0.04d0
       else
-         if(work(5).lt.0.d0)then
+         if (work(5) < 0.d0 ) then
             beta=0.d0
          else
             beta=work(5)
-            if(beta.gt.0.2d0)then
-               if (lout.gt.0) write(lout,*)
+            if (beta > 0.2d0 ) then
+               if (lout > 0) write(lout,*)
      &          ' curious input for beta: work(5)=',work(5)
             arret=.true.
          end if
          end if
       end if
-c -------- maximal step size
-      if(max_step_size.eq.0.d0)then
+! -------- maximal step size
+      if (max_step_size == 0.d0 ) then
          hmax=xend-x
       else
          hmax=max_step_size
       end if
-c ------- prepare the entry-points for the arrays in work -----
+! ------- prepare the entry-points for the arrays in work -----
       iey1=21
       iek1=iey1+n
       iek2=iek1+n
@@ -170,26 +176,26 @@ subroutine do_dopri5(
       iek6=iek5+n
       ieys=iek6+n
       ieco=ieys+n
-c ------ total storage requirement -----------
+! ------ total storage requirement -----------
       istore=ieys+(3+5*nrdens)-1
-      if(istore.gt.lwork)then
-        if (lout.gt.0) write(lout,*)
+      if (istore > lwork ) then
+        if (lout > 0) write(lout,*)
      &   ' insufficient storage for work, min. lwork=',istore
         arret=.true.
       end if
       icomp=21
       istore=icomp+nrdens-1
-      if(istore.gt.liwork)then
-        if (lout.gt.0) write(lout,*)
+      if (istore > liwork ) then
+        if (lout > 0) write(lout,*)
      &   ' insufficient storage for iwork, min. liwork=',istore
         arret=.true.
       end if
-c ------ when a fail has occured, we return with idid=-1
+! ------ when a fail has occured, we return with idid=-1
       if (arret) then
          idid=-1
          return
       end if
-c -------- call to core integrator ------------
+! -------- call to core integrator ------------
       call dopcor(n,fcn,x,y,xend,hmax,h,rtol,atol,itol,lout,
      &   solout,iout,idid,nmax,uround,meth,nstiff,safe,beta,fac1,fac2,
      &   work(iey1),work(iek1),work(iek2),work(iek3),work(iek4),
@@ -200,33 +206,43 @@ subroutine do_dopri5(
       iwork(18)=nstep
       iwork(19)=naccpt
       iwork(20)=nrejct
-c ----------- return -----------
+! ----------- return -----------
       return
       end subroutine do_dopri5
+!
 c
-c
-c
-c  ----- ... and here is the core integrator  ----------
-c
+!
+!    ----- ... and here is the core integrator  ----------
+!
       subroutine dopcor(n,fcn,x,y,xend,hmax,h,rtol,atol,itol,lout,
      &   solout,iout,idid,nmax,uround,meth,nstiff,safe,beta,fac1,fac2,
      &   y1,k1,k2,k3,k4,k5,k6,ysti,rwork,icomp,nrd,lrpar,rpar,lipar,ipar,
      &   nfcn,nstep,naccpt,nrejct)
-c ----------------------------------------------------------
-c     core integrator for dopri5
-c     parameters same as in dopri5 with workspace added 
-c ---------------------------------------------------------- 
-c         declarations 
-c ---------------------------------------------------------- 
-      implicit real(dp) (a-h,o-z)
-
-      real(dp) k1(n),k2(n),k3(n),k4(n),k5(n),k6(n)
-      dimension y(n),y1(n),ysti(n),atol(*),rtol(*)
-      dimension icomp(nrd),iwork(nrd+1)
+! ----------------------------------------------------------
+!    core integrator for dopri5
+!    parameters same as in dopri5 with workspace added 
+! ---------------------------------------------------------- 
+!        declarations 
+! ---------------------------------------------------------- 
+      integer :: n, nrd, itol, lout, iout, idid, nmax, meth
+      real(dp) :: x, xold, xend, hmax, h, uround, safe
+      real(dp) :: beta, fac1, fac2
+      real(dp) :: k1(n),k2(n),k3(n),k4(n),k5(n),k6(n)
+      real(dp) :: y(n),y1(n),ysti(n),atol(*),rtol(*)
+      integer :: icomp(nrd), iwork(nrd+1)
+      integer :: lrpar, lipar, nfcn, nstep, naccpt, nrejct, nstiff
       logical reject,last 
       integer, intent(inout), pointer :: ipar(:) ! (lipar)
       real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
+      real(dp) :: c2,c3,c4,c5
+      real(dp) :: e1,e3,e4,e5,e6,e7
+      real(dp) :: a21,a31,a32,a41,a42,a43,a51,a52,a53,a54
+      real(dp) :: a61,a62,a63,a64,a65,a71,a73,a74,a75,a76
+      real(dp) :: d1,d3,d4,d5,d6,d7
+      real(dp) :: atoli, expo1, facc1, facc2, facold, hlamb, hout, nonsti, posneg, bspl, rtoli
+      integer :: i, iasti, ierr, iord, irtrn, j
       !common /condo5/xold,hout
+      real(dp) :: err, fac, fac11, hnew, sk, stden, stnum, xph, yd0, ydiff
          
       interface
 #include "num_fcn.dek"
@@ -238,10 +254,10 @@ subroutine dopcor(n,fcn,x,y,xend,hmax,h,rtol,atol,itol,lout,
       cont => rwork(3:3+5*nrd)
 
 
-c *** *** *** *** *** *** ***
-c  initialisations
-c *** *** *** *** *** *** *** 
-      if (meth.eq.1) call cdopri(c2,c3,c4,c5,e1,e3,e4,e5,e6,e7,
+! *** *** *** *** *** *** ***
+!    initializations
+! *** *** *** *** *** *** *** 
+      if (meth == 1) call cdopri(c2,c3,c4,c5,e1,e3,e4,e5,e6,e7,
      &                    a21,a31,a32,a41,a42,a43,a51,a52,a53,a54,
      &                    a61,a62,a63,a64,a65,a71,a73,a74,a75,a76,
      &                    d1,d3,d4,d5,d6,d7)
@@ -251,7 +267,7 @@ subroutine dopcor(n,fcn,x,y,xend,hmax,h,rtol,atol,itol,lout,
       facc2=1.d0/fac2
       posneg=sign(1.d0,xend-x)  
       nonsti=0
-c --- initial preparations   
+! --- initial preparations   
       atoli=atol(1)
       rtoli=rtol(1)    
       last=.false. 
@@ -261,13 +277,13 @@ subroutine dopcor(n,fcn,x,y,xend,hmax,h,rtol,atol,itol,lout,
       if (ierr /= 0) then; idid=-5; return; end if
       hmax=abs(hmax)     
       iord=5  
-      if (h.eq.0.d0) h=hinit(n,fcn,x,y,xend,posneg,k1,k2,k3,iord,
+      if (h == 0.d0) h=hinit(n,fcn,x,y,xend,posneg,k1,k2,k3,iord,
      &                       hmax,atol,rtol,itol,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; idid=-5; return; end if
       nfcn=nfcn+2
       reject=.false.
       xold=x
-      if (iout.ne.0) then 
+      if (iout /= 0) then 
           irtrn=1
           hout=h
           rwork(1) = xold
@@ -275,133 +291,143 @@ subroutine dopcor(n,fcn,x,y,xend,hmax,h,rtol,atol,itol,lout,
           iwork(1) = nrd
           iwork(2:nrd+1) = icomp(1:nrd)
 
-         if (iout.ge.2) then 
-            do 443 j=1,nrd
-            i=icomp(j)
-            cont(j)=y(i)
-            cont(nrd+j)=0
-            cont(2*nrd+j)=0
-            cont(3*nrd+j)=0
- 443        continue
+         if (iout >= 2) then 
+            do j=1,nrd
+               i=icomp(j)
+               cont(j)=y(i)
+               cont(nrd+j)=0
+               cont(2*nrd+j)=0
+               cont(3*nrd+j)=0
+            end do
          end if
 
           call solout(naccpt+1,xold,x,n,y,rwork,iwork,contd5,lrpar,rpar,lipar,ipar,irtrn)
-          if (irtrn.lt.0) goto 79
+          if (irtrn < 0) goto 79
       else
           irtrn=0
       end if
-c --- basic integration step  
+! --- basic integration step  
    1  continue
-      if (nstep.gt.nmax) goto 78
-      if (0.1d0*abs(h).le.abs(x)*uround)goto 77
-      if ((x+1.01d0*h-xend)*posneg.gt.0.d0) then
+      if (nstep > nmax) goto 78
+      if (0.1d0*abs(h) <= abs(x)*uround)goto 77
+      if ((x+1.01d0*h-xend)*posneg > 0.d0) then
          h=xend-x 
          last=.true.
       end if
       nstep=nstep+1
-c --- the first 6 stages
-      if (irtrn.ge.2) then
+! --- the first 6 stages
+      if (irtrn >= 2) then
          call fcn(n,x,h,y,k1,lrpar,rpar,lipar,ipar,ierr)
          if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
       end if
-      do 22 i=1,n 
-  22  y1(i)=y(i)+h*a21*k1(i)
+      do i=1,n 
+         y1(i)=y(i)+h*a21*k1(i)
+      end do
       call fcn(n,x+c2*h,h,y1,k2,lrpar,rpar,lipar,ipar,ierr)      
       if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
-      do 23 i=1,n 
-  23  y1(i)=y(i)+h*(a31*k1(i)+a32*k2(i))
+      do i=1,n 
+         y1(i)=y(i)+h*(a31*k1(i)+a32*k2(i))
+      end do
       call fcn(n,x+c3*h,h,y1,k3,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
-      do 24 i=1,n 
-  24  y1(i)=y(i)+h*(a41*k1(i)+a42*k2(i)+a43*k3(i))
+      do i=1,n 
+         y1(i)=y(i)+h*(a41*k1(i)+a42*k2(i)+a43*k3(i))
+      end do
       call fcn(n,x+c4*h,h,y1,k4,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
-      do 25 i=1,n 
-  25  y1(i)=y(i)+h*(a51*k1(i)+a52*k2(i)+a53*k3(i)+a54*k4(i))      
+      do i=1,n 
+         y1(i)=y(i)+h*(a51*k1(i)+a52*k2(i)+a53*k3(i)+a54*k4(i))   
+      end do   
       call fcn(n,x+c5*h,h,y1,k5,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
-      do 26 i=1,n 
-  26  ysti(i)=y(i)+h*(a61*k1(i)+a62*k2(i)+a63*k3(i)+a64*k4(i)+a65*k5(i))
+      do i=1,n 
+         ysti(i)=y(i)+h*(a61*k1(i)+a62*k2(i)+a63*k3(i)+a64*k4(i)+a65*k5(i))
+      end do
       xph=x+h
       call fcn(n,xph,h,ysti,k6,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
-      do 27 i=1,n 
-  27  y1(i)=y(i)+h*(a71*k1(i)+a73*k3(i)+a74*k4(i)+a75*k5(i)+a76*k6(i))  
+      do i=1,n 
+         y1(i)=y(i)+h*(a71*k1(i)+a73*k3(i)+a74*k4(i)+a75*k5(i)+a76*k6(i))  
+      end do
       call fcn(n,xph,h,y1,k2,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; hnew=h/facc1; h=hnew; goto 1; end if
-      if (iout.ge.2) then 
-            do 40 j=1,nrd
-            i=icomp(j)
-            cont(4*nrd+j)=h*(d1*k1(i)+d3*k3(i)+d4*k4(i)+d5*k5(i)
-     &                   +d6*k6(i)+d7*k2(i)) 
-  40        continue
+      if (iout >= 2) then 
+            do j=1,nrd
+               i=icomp(j)
+               cont(4*nrd+j)=h*(d1*k1(i)+d3*k3(i)+d4*k4(i)+d5*k5(i)
+     &                      +d6*k6(i)+d7*k2(i)) 
+            end do
       end if
-      do 28 i=1,n 
-  28  k4(i)=(e1*k1(i)+e3*k3(i)+e4*k4(i)+e5*k5(i)+e6*k6(i)+e7*k2(i))*h
+      do i=1,n 
+         k4(i)=(e1*k1(i)+e3*k3(i)+e4*k4(i)+e5*k5(i)+e6*k6(i)+e7*k2(i))*h
+      end do
       nfcn=nfcn+6 
-c --- error estimation  
+! --- error estimation  
       err=0.d0
-      if (itol.eq.0) then   
-        do 41 i=1,n 
-        sk=atoli+rtoli*max(abs(y(i)),abs(y1(i)))
-  41    err=err+pow2(k4(i)/sk)
+      if (itol == 0) then   
+        do i=1,n 
+           sk=atoli+rtoli*max(abs(y(i)),abs(y1(i)))
+           err=err+pow2(k4(i)/sk)
+        end do
       else
-        do 42 i=1,n 
-        sk=atol(i)+rtol(i)*max(abs(y(i)),abs(y1(i)))
-  42    err=err+pow2(k4(i)/sk)
+        do i=1,n 
+           sk=atol(i)+rtol(i)*max(abs(y(i)),abs(y1(i)))
+           err=err+pow2(k4(i)/sk)
+        end do
       end if
       err=sqrt(err/n)  
-c --- computation of hnew
+! --- computation of hnew
       fac11=pow(err,expo1)
-c --- lund-stabilization
+! --- lund-stabilization
       fac=fac11/pow(facold,beta)
-c --- we require  fac1 <= hnew/h <= fac2
+! --- we require  fac1 <= hnew/h <= fac2
       fac=max(facc2,min(facc1,fac/safe))
-      hnew=h/fac  
-      if(err.le.1.d0)then
-c --- step is accepted  
+      hnew=h/fac
+      if (err <= 1.d0 ) then
+! --- step is accepted  
          facold=max(err,1.0d-4)
          naccpt=naccpt+1
-c ------- stiffness detection
-         if (mod(naccpt,nstiff).eq.0.or.iasti.gt.0) then
+! ------- stiffness detection
+         if (mod(naccpt,nstiff) == 0.or.iasti > 0) then
             stnum=0.d0
             stden=0.d0
-            do 64 i=1,n 
+            do i=1,n 
                stnum=stnum+pow2(k2(i)-k6(i))
                stden=stden+pow2(y1(i)-ysti(i))
- 64         continue  
-            if (stden.gt.0.d0) hlamb=h*sqrt(stnum/stden) 
-            if (hlamb.gt.3.25d0) then
+            end do
+            if (stden > 0.d0) hlamb=h*sqrt(stnum/stden) 
+            if (hlamb > 3.25d0) then
                nonsti=0
                iasti=iasti+1  
-               if (iasti.eq.15) then
-                  if (lout.gt.0) write (lout,*) 
+               if (iasti == 15) then
+                  if (lout > 0) write (lout,*) 
      &               ' the problem seems to become stiff at x = ',x   
-                  if (lout.lt.0) goto 76
+                  if (lout < 0) goto 76
                end if
             else
                nonsti=nonsti+1  
-               if (nonsti.eq.6) iasti=0
+               if (nonsti == 6) iasti=0
             end if
          end if 
-         if (iout.ge.2) then 
-            do 43 j=1,nrd
-            i=icomp(j)
-            yd0=y(i)
-            ydiff=y1(i)-yd0
-            bspl=h*k1(i)-ydiff 
-            cont(j)=y(i)
-            cont(nrd+j)=ydiff
-            cont(2*nrd+j)=bspl
-            cont(3*nrd+j)=-h*k2(i)+ydiff-bspl
-  43        continue
+         if (iout >= 2) then 
+            do j=1,nrd
+               i=icomp(j)
+               yd0=y(i)
+               ydiff=y1(i)-yd0
+               bspl=h*k1(i)-ydiff 
+               cont(j)=y(i)
+               cont(nrd+j)=ydiff
+               cont(2*nrd+j)=bspl
+               cont(3*nrd+j)=-h*k2(i)+ydiff-bspl
+            end do
          end if
-         do 44 i=1,n
-         k1(i)=k2(i)
-  44     y(i)=y1(i)
+         do i=1,n
+            k1(i)=k2(i)
+            y(i)=y1(i)
+         end do
          xold=x
          x=xph
-         if (iout.ne.0) then
+         if (iout /= 0) then
             irtrn=1
             hout=h
             rwork(1) = xold
@@ -409,110 +435,119 @@ subroutine dopcor(n,fcn,x,y,xend,hmax,h,rtol,atol,itol,lout,
             iwork(1) = nrd
             iwork(2:nrd+1) = icomp(1:nrd)
             call solout(naccpt+1,xold,x,n,y,rwork,iwork,contd5,lrpar,rpar,lipar,ipar,irtrn)
-            if (irtrn.lt.0) goto 79
+            if (irtrn < 0) goto 79
          end if 
-c ------- normal exit
+! ------- normal exit
          if (last) then
             h=hnew
             idid=1
             return
          end if
-         if(abs(hnew).gt.hmax)hnew=posneg*hmax  
-         if(reject)hnew=posneg*min(abs(hnew),abs(h))
+         if (abs(hnew) > hmax)hnew=posneg*hmax  
+         if (reject)hnew=posneg*min(abs(hnew),abs(h))
          reject=.false. 
       else  
-c --- step is rejected   
+! --- step is rejected   
          hnew=h/min(facc1,fac11/safe)
          reject=.true.  
-         if(naccpt.ge.1)nrejct=nrejct+1   
+         if (naccpt >= 1)nrejct=nrejct+1   
          last=.false.
       end if
       h=hnew
       goto 1
-c --- fail exit
+! --- fail exit
   76  continue
       idid=-4
       return
   77  continue
-      if (lout.gt.0) write(lout,979)x   
-      if (lout.gt.0) write(lout,*)' step size too small, h=',h
+      if (lout > 0) write(lout,979)x   
+      if (lout > 0) write(lout,*)' step size too small, h=',h
       idid=-3
       return
   78  continue
-      if (lout.gt.0) write(lout,979)x   
-      if (lout.gt.0) write(lout,*)
+      if (lout > 0) write(lout,979)x   
+      if (lout > 0) write(lout,*)
      &     ' more than nmax =',nmax,'steps are needed' 
       idid=-2
       return
   79  continue
-      !if (lout.gt.0) write(lout,979)x
+      !if (lout > 0) write(lout,979)x
  979  format(' exit of dopri5 at x=',e18.4) 
       idid=2
       return
       end subroutine dopcor
-c
-      function hinit(n,fcn,x,y,xend,posneg,f0,f1,y1,iord,
-     &                 hmax,atol,rtol,itol,lrpar,rpar,lipar,ipar,ierr)
-c ----------------------------------------------------------
-c ----  computation of an initial step size guess
-c ----------------------------------------------------------
-      implicit real(dp) (a-h,o-z)
+!
+      real(dp) function hinit(n,fcn,x,y,xend,posneg,f0,f1,y1,iord,
+     &                        hmax,atol,rtol,itol,lrpar,rpar,lipar,ipar,ierr)
+! ----------------------------------------------------------
+! ----  computation of an initial step size guess
+! ----------------------------------------------------------
+      integer, intent(in) :: n
+      real(dp) :: x
       dimension y(n),y1(n),f0(n),f1(n),atol(*),rtol(*)
       integer, intent(in) :: lrpar, lipar
       integer, intent(inout), pointer :: ipar(:) ! (lipar)
       real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
+      real(dp) :: y, xend, posneg, f0, f1, y1, hmax, atol, rtol, atoli
+      real(dp) :: der2, der12, dnf, dny, h, h1, rtoli, sk
+      integer :: i, iord, itol, ierr, idid
       
       interface
 #include "num_fcn.dek"
       end interface
 
-c ---- compute a first guess for explicit euler as
-c ----   h = 0.01 * norm (y0) / norm (f0)
-c ---- the increment for explicit euler is small
-c ---- compared to the solution
+! ---- compute a first guess for explicit euler as
+! ----   h = 0.01 * norm (y0) / norm (f0)
+! ---- the increment for explicit euler is small
+! ---- compared to the solution
       dnf=0.0d0
       dny=0.0d0 
       atoli=atol(1)
       rtoli=rtol(1)    
-      if (itol.eq.0) then   
-        do 10 i=1,n 
-        sk=atoli+rtoli*abs(y(i))
-        dnf=dnf+pow2(f0(i)/sk)
-  10    dny=dny+pow2(y(i)/sk)
+      if (itol == 0) then   
+        do i=1,n 
+           sk=atoli+rtoli*abs(y(i))
+           dnf=dnf+pow2(f0(i)/sk)
+           dny=dny+pow2(y(i)/sk)
+        end do
       else
-        do 11 i=1,n 
-        sk=atol(i)+rtol(i)*abs(y(i))
-        dnf=dnf+pow2(f0(i)/sk)
-  11    dny=dny+pow2(y(i)/sk)
+        do i=1,n 
+           sk=atol(i)+rtol(i)*abs(y(i))
+           dnf=dnf+pow2(f0(i)/sk)
+           dny=dny+pow2(y(i)/sk)
+        end do
       end if
-      if (dnf.le.1.d-10.or.dny.le.1.d-10) then
+      if (dnf <= 1.d-10.or.dny <= 1.d-10) then
          h=1.0d-6
       else
          h=sqrt(dny/dnf)*0.01d0 
       end if
       h=min(h,hmax)
       h=sign(h,posneg) 
-c ---- perform an explicit euler step
-      do 12 i=1,n
-  12  y1(i)=y(i)+h*f0(i)
+! ---- perform an explicit euler step
+      do i=1,n
+         y1(i)=y(i)+h*f0(i)
+      end do
       call fcn(n,x+h,h,y1,f1,lrpar,rpar,lipar,ipar,ierr)
       if (ierr /= 0) then; idid=-5; return; end if
-c ---- estimate the second derivative of the solution
+! ---- estimate the second derivative of the solution
       der2=0.0d0
-      if (itol.eq.0) then   
-        do 15 i=1,n 
-        sk=atoli+rtoli*abs(y(i))
-  15    der2=der2+pow2((f1(i)-f0(i))/sk)
+      if (itol == 0) then   
+        do i=1,n 
+           sk=atoli+rtoli*abs(y(i))
+           der2=der2+pow2((f1(i)-f0(i))/sk)
+        end do
       else
-        do 16 i=1,n 
-        sk=atol(i)+rtol(i)*abs(y(i))
-  16    der2=der2+pow2((f1(i)-f0(i))/sk)
+        do i=1,n 
+           sk=atol(i)+rtol(i)*abs(y(i))
+           der2=der2+pow2((f1(i)-f0(i))/sk)
+        end do
       end if
       der2=sqrt(der2)/h
-c ---- step size is computed such that
-c ----  h**iord * max ( norm (f0), norm (der2)) = 0.01
+! ---- step size is computed such that
+! ----  h**iord * max ( norm (f0), norm (der2)) = 0.01
       der12=max(abs(der2),sqrt(dnf))
-      if (der12.le.1.d-15) then
+      if (der12 <= 1.d-15) then
          h1=max(1.0d-6,abs(h)*1.0d-3)
       else
          h1=pow(0.01d0/der12,1.d0/iord) 
@@ -521,7 +556,7 @@ function hinit(n,fcn,x,y,xend,posneg,f0,f1,y1,iord,
       hinit=sign(h,posneg)  
       return
       end function hinit
-c
+!
 
       real(dp) function contd5(ii,x,rwork,iwork,ierr)
 ! ----------------------------------------------------------
@@ -535,7 +570,7 @@ real(dp) function contd5(ii,x,rwork,iwork,ierr)
       integer, intent(inout), target :: iwork(*)
       integer, intent(out) :: ierr
       
-      real(dp) :: xold, h, s, s1
+      real(dp) :: xold, h, theta, theta1
       integer :: nd, i, j
       real(dp), pointer :: con(:)
       integer, pointer :: icomp(:)
@@ -549,12 +584,12 @@ real(dp) function contd5(ii,x,rwork,iwork,ierr)
       h = rwork(2)
       con => rwork(3:2+5*nd)
       
-c ----- compute place of ii-th component 
+! ----- compute place of ii-th component 
       i=0 
-      do 5 j=1,nd 
-      if (icomp(j).eq.ii) i=j
-   5  continue
-      if (i.eq.0) then
+      do j=1,nd 
+         if (icomp(j) == ii) i=j
+      end do
+      if (i == 0) then
          contd5 = 0
          ierr = -1
          return
@@ -565,7 +600,7 @@ real(dp) function contd5(ii,x,rwork,iwork,ierr)
       contd5=con(i)+theta*(con(nd+i)+theta1*(con(2*nd+i)+theta*
      &           (con(3*nd+i)+theta1*con(4*nd+i))))
       end function contd5
-c
+!
 
       subroutine cdopri(c2,c3,c4,c5,e1,e3,e4,e5,e6,e7,
      &                    a21,a31,a32,a41,a42,a43,a51,a52,a53,a54,
@@ -574,7 +609,15 @@ subroutine cdopri(c2,c3,c4,c5,e1,e3,e4,e5,e6,e7,
 ! ----------------------------------------------------------
 !     runge-kutta coefficients of dormand and prince (1980)
 ! ----------------------------------------------------------
-      implicit real(dp) (a-h,o-z)
+      real(dp) :: c2, c3, c4, c5
+      real(dp) :: a21
+      real(dp) :: a31, a32
+      real(dp) :: a41, a42, a43
+      real(dp) :: a51, a52, a53, a54
+      real(dp) :: a61, a62, a63, a64, a65
+      real(dp) :: a71, a72, a73, a74, a75, a76
+      real(dp) :: e1, e2, e3, e4, e5, e6, e7
+      real(dp) :: d1, d3, d4, d5, d6, d7
       c2=0.2d0
       c3=0.3d0
       c4=0.8d0
@@ -605,7 +648,7 @@ subroutine cdopri(c2,c3,c4,c5,e1,e3,e4,e5,e6,e7,
       e5=-17253.d0/339200.d0
       e6=22.d0/525.d0
       e7=-1.d0/40.d0  
-c ---- dense output of shampine (1986)
+! ---- dense output of shampine (1986)
       d1=-12715105075.d0/11282082432.d0
       d3=87487479700.d0/32700410799.d0
       d4=-10690763975.d0/1880347072.d0
@@ -617,5 +660,3 @@ end subroutine cdopri
 
 
       end module mod_dopri5
-
-
diff --git a/num/private/mod_newton.f b/num/private/mod_newton.f
index caf5a891d..8438d818a 100644
--- a/num/private/mod_newton.f
+++ b/num/private/mod_newton.f
@@ -154,10 +154,8 @@ subroutine do_newton_wrapper(
          real(dp), pointer :: AF_copy(:) ! =(ldAF, neq)
          
          ! for sparse
-         integer :: n, nzmax, need_lrd, need_lid, lfil, maxits, iout
-         real(dp) :: eps, droptol
+         integer :: n, nzmax, need_lrd, need_lid
                
-         real(dp) :: sparse_nzmax_factor
          integer(8) :: test_time0, test_time1, clock_rate
          logical :: do_test_timing
          
@@ -351,21 +349,19 @@ subroutine do_newton(
          real(dp)  :: 
      >      coeff, f, slope, residual_norm, max_residual, corr_norm_min, resid_norm_min, correction_factor,
      >      residual_norm_save, corr_norm_min_save, resid_norm_min_save, correction_factor_save,
-     >      correction_norm, corr_norm_initial, max_correction, slope_extra,
+     >      correction_norm, max_correction,
      >      tol_max_correction, tol_residual_norm, tol_abs_slope_min, tol_corr_resid_product,
      >      min_corr_coeff, tol_max_residual, max_corr_min, max_resid_min
-         integer :: iiter, max_tries, ndiag, zone, idiag, tiny_corr_cnt, ldA, i, j, k, info,
+         integer :: iiter, max_tries, ndiag, zone, idiag, tiny_corr_cnt, ldA, i, k, info,
      >      last_jac_iter, max_iterations_for_jacobian, force_iter_value,
      >      max_iter_for_enforce_resid_tol, max_iter_for_resid_tol2, max_iter_for_resid_tol3,
      >      caller_id
-         integer(8) :: test_time0, test_time1, time0, time1, clock_rate
+         integer(8) :: time0, time1, clock_rate
          character (len=256) :: err_msg
-         logical :: first_try, dbg_msg, passed_tol_tests, 
-     >      overlay_AF, do_mtx_timing, do_test_timing, doing_extra
+         logical :: first_try, dbg_msg, passed_tol_tests, overlay_AF, do_mtx_timing, doing_extra
          integer, parameter :: num_tol_msgs = 15
          character (len=32) :: tol_msg(num_tol_msgs)
          character (len=64) :: message
-         real(dp), pointer, dimension(:) :: p1_1, p1_2
 
          ! set pointers to 1D data
          real(dp), pointer, dimension(:,:) :: x, xold, equ, xscale ! (nvar,nz)       
@@ -869,12 +865,11 @@ subroutine adjust_correction(
             integer, intent(inout) :: ipar(:) ! (lipar)
             integer, intent(out) :: ierr
       
-            integer :: i, j, k, iter, k_max_corr, i_max_corr
-            character (len=256) :: message
+            integer :: i, k, iter
             logical :: first_time
-            real(dp) :: a1, alam, alam2, alamin, a2, disc, f2, tmp1,
-     >         rhs1, rhs2, temp, test, tmplam, max_corr, fold, min_corr_coeff
-            real(dp) :: frac, f_target
+            real(dp) :: a1, alam, alam2, a2, disc, f2, tmp1,
+     >         rhs1, rhs2, tmplam, fold, min_corr_coeff
+            real(dp) :: f_target
             logical :: skip_eval_f
      
             real(dp), parameter :: alf = 1d-2 ! ensures sufficient decrease in f
@@ -1056,8 +1051,7 @@ end subroutine apply_coeff
 
 
          logical function solve_equ()    
-            integer ::  nrhs, ldafb, ldb, ldx, lda, i, j, n, sprs_nz
-            real(dp) :: ferr, berr
+            integer ::  nrhs, ldafb, ldb, ldx, lda, i, n, sprs_nz
             
             include 'formats'
 
@@ -1137,7 +1131,7 @@ end subroutine factor_mtx
          subroutine solve_mtx(n, ldafb, sprs_nz)
             integer, intent(in) :: n, ldafb, sprs_nz
             character(1) :: trans
-            integer :: info_solve, info_dealloc, i, j
+            integer :: info_solve, info_dealloc
             info = 0; info_solve=0; info_dealloc=0
             trans = 'N'
             if (matrix_type == block_tridiag_dble_matrix_type) then
@@ -1177,7 +1171,6 @@ logical function do_enter_setmatrix(
             integer, intent(inout) :: ipar(:) ! (lipar)
             integer, intent(out) :: ierr
             logical :: need_solver_to_eval_jacobian
-            integer :: i, j, k
             include 'formats'
             need_solver_to_eval_jacobian = .true.
             call enter_setmatrix(iiter, 
@@ -1197,9 +1190,9 @@ subroutine setmatrix(neq, x, dx, xscale, xsave, dxsave, lrpar, rpar, lipar, ipar
             integer, intent(inout) :: ipar(:) ! (lipar)
             integer, intent(out) :: ierr
 
-            integer :: i, j, ii, jj, k, kk, ij, ik, ivar, jvar, iz, jz, jzz, ideb, ifin
+            integer :: i, j, ii, k, kk, ij, ik, ivar, ideb, ifin
             integer, dimension(nvar) :: nskip, gskip, dskip
-            real(dp) :: dscale, partial
+            real(dp) :: partial
             logical :: need_solver_to_eval_jacobian
             
             include 'formats'
@@ -1425,7 +1418,7 @@ subroutine newton_core_dump(x, dx, xold)
             ! increment vector from previous vector of primaries.
             real(dp), dimension(:,:) :: xold 
             ! xold = x-dx.  xold is kept constant; x and dx change.
-            integer :: i, j, k
+            integer :: j, k
          
     1       format(a20, i16) ! integers
     2       format(a20, 1pe26.16) ! reals
@@ -1481,7 +1474,6 @@ subroutine pointers(ierr)
             integer, intent(out) :: ierr
       
             integer :: i, j
-            character (len=256) :: err_msg
 
             ierr = 0         
             i = num_work_params+1
@@ -1582,7 +1574,7 @@ end subroutine pointers
          real(dp) function eval_slope(nvar, nz, grad_f, B)
             integer, intent(in) :: nvar, nz
             real(dp), intent(in), dimension(:,:) :: grad_f, B
-            integer :: k, i
+            integer :: i
             eval_slope = 0
             do i=1,nvar
                eval_slope = eval_slope + dot_product(grad_f(i,1:nz),B(i,1:nz))
@@ -1594,7 +1586,7 @@ real(dp) function eval_f(nvar, nz, equ)
             integer, intent(in) :: nvar, nz
             real(dp), intent(in), dimension(:,:) :: equ
             integer :: k, i
-            real*8 :: q
+            real(dp) :: q
             include 'formats'
             eval_f = 0
             do k = 1, nz
@@ -1618,7 +1610,7 @@ subroutine get_newton_work_sizes(
          integer, intent(out) :: lwork, liwork
          integer, intent(out) :: ierr
          
-         integer :: i, ndiag, ldAF, neq
+         integer :: ndiag, ldAF, neq
          
          include 'formats'
 
diff --git a/num/private/mod_newuoa.f b/num/private/mod_newuoa.f
index d1b2bf095..8a2d6678b 100644
--- a/num/private/mod_newuoa.f
+++ b/num/private/mod_newuoa.f
@@ -5,16 +5,13 @@ module mod_newuoa
       contains
       
       
-      
-
-      SUBROUTINE do_newuoa (N,NPT,X,RHOBEG,RHOEND,IPRINT,MAXFUN,W,
-     >         CALFUN,max_valid_value)
-      IMPLICIT REAL*8 (A-H,O-Z)
+      SUBROUTINE do_newuoa(N,NPT,X,RHOBEG,RHOEND,IPRINT,MAXFUN,W,CALFUN,max_valid_value)
+      IMPLICIT real(dp) (A-H,O-Z)
       DIMENSION X(*),W(*)
       interface
 #include "num_newuoa_proc.dek"
       end interface
-      real*8, intent(in) :: max_valid_value
+      real(dp), intent(in) :: max_valid_value
 !
 !     This subroutine seeks the least value of a function of many variables,
 !     by a trust region method that forms quadratic models by interpolation.
@@ -51,10 +48,9 @@ SUBROUTINE do_newuoa (N,NPT,X,RHOBEG,RHOEND,IPRINT,MAXFUN,W,
 !
       NP=N+1
       NPTM=NPT-NP
-      IF (NPT .LT. N+2 .OR. NPT .GT. ((N+2)*NP)/2) THEN
+      IF (NPT < N+2 .OR. NPT > ((N+2)*NP)/2) THEN
           PRINT 10
-   10     FORMAT (/4X,'Return from NEWUOA because NPT is not in',
-     1      ' the required interval')
+   10     FORMAT (/4X,'Return from NEWUOA because NPT is not in the required interval')
           GO TO 20
       END IF
       NDIM=NPT+N
@@ -86,11 +82,11 @@ END subroutine do_newuoa
       SUBROUTINE NEWUOB (N,NPT,X,RHOBEG,RHOEND,IPRINT,MAXFUN,XBASE,
      1  XOPT,XNEW,XPT,FVAL,GQ,HQ,PQ,BMAT,ZMAT,NDIM,D,VLAG,W,
      1  CALFUN,max_valid_value)
-      IMPLICIT REAL*8 (A-H,O-Z)
+      IMPLICIT real(dp) (A-H,O-Z)
       interface
 #include "num_newuoa_proc.dek"
       end interface
-      real*8, intent(in) :: max_valid_value
+      real(dp), intent(in) :: max_valid_value
       logical :: do_replace
       DIMENSION X(*),XBASE(*),XOPT(*),XNEW(*),XPT(NPT,*),FVAL(*),
      1  GQ(*),HQ(*),PQ(*),BMAT(NDIM,*),ZMAT(NPT,*),D(*),VLAG(*),W(*)
@@ -133,18 +129,24 @@ SUBROUTINE NEWUOB (N,NPT,X,RHOBEG,RHOEND,IPRINT,MAXFUN,XBASE,
 !
 !     Set the initial elements of XPT, BMAT, HQ, PQ and ZMAT to zero.
 !
-      DO 20 J=1,N
-      XBASE(J)=X(J)
-      DO 10 K=1,NPT
-   10 XPT(K,J)=ZERO
-      DO 20 I=1,NDIM
-   20 BMAT(I,J)=ZERO
-      DO 30 IH=1,NH
-   30 HQ(IH)=ZERO
-      DO 40 K=1,NPT
-      PQ(K)=ZERO
-      DO 40 J=1,NPTM
-   40 ZMAT(K,J)=ZERO
+      DO J=1,N
+        XBASE(J)=X(J)
+        DO K=1,NPT
+            XPT(K,J)=ZERO
+        END DO
+        DO I=1,NDIM
+            BMAT(I,J)=ZERO
+        END DO
+      END DO
+      DO IH=1,NH
+         HQ(IH)=ZERO
+      END DO
+      DO K=1,NPT
+        PQ(K)=ZERO
+        DO J=1,NPTM
+            ZMAT(K,J)=ZERO
+        END DO
+      END DO
 !
 !     Begin the initialization procedure. NF becomes one more than the number
 !     of function values so far. The coordinates of the displacement of the
@@ -157,25 +159,25 @@ SUBROUTINE NEWUOB (N,NPT,X,RHOBEG,RHOEND,IPRINT,MAXFUN,XBASE,
    50 NFM=NF
       NFMM=NF-N
       NF=NF+1
-      IF (NFM .LE. 2*N) THEN
-          IF (NFM .GE. 1 .AND. NFM .LE. N) THEN
+      IF (NFM <= 2*N) THEN
+          IF (NFM >= 1 .AND. NFM <= N) THEN
               XPT(NF,NFM)=RHOBEG
-          ELSE IF (NFM .GT. N) THEN
+          ELSE IF (NFM > N) THEN
               XPT(NF,NFMM)=-RHOBEG
           END IF
       ELSE
           ITEMP=(NFMM-1)/N
           JPT=NFM-ITEMP*N-N
           IPT=JPT+ITEMP
-          IF (IPT .GT. N) THEN
+          IF (IPT > N) THEN
               ITEMP=JPT
               JPT=IPT-N
               IPT=ITEMP
           END IF
           XIPT=RHOBEG
-          IF (FVAL(IPT+NP) .LT. FVAL(IPT+1)) XIPT=-XIPT
+          IF (FVAL(IPT+NP) < FVAL(IPT+1)) XIPT=-XIPT
           XJPT=RHOBEG
-          IF (FVAL(JPT+NP) .LT. FVAL(JPT+1)) XJPT=-XJPT
+          IF (FVAL(JPT+NP) < FVAL(JPT+1)) XJPT=-XJPT
           XPT(NF,IPT)=XIPT
           XPT(NF,JPT)=XJPT
       END IF
@@ -184,15 +186,16 @@ SUBROUTINE NEWUOB (N,NPT,X,RHOBEG,RHOEND,IPRINT,MAXFUN,XBASE,
 !     after this calculation. The least function value so far and its index
 !     are required.
 !
-      DO 60 J=1,N
-   60 X(J)=XPT(NF,J)+XBASE(J)
+      DO J=1,N
+         X(J)=XPT(NF,J)+XBASE(J)
+      END DO
       GOTO 310
    70 FVAL(NF)=F
-      IF (NF .EQ. 1) THEN
+      IF (NF == 1) THEN
           FBEG=F
           FOPT=F
           KOPT=1
-      ELSE IF (F .LT. FOPT) THEN
+      ELSE IF (F < FOPT) THEN
           FOPT=F
           KOPT=NF
       END IF
@@ -200,15 +203,15 @@ SUBROUTINE NEWUOB (N,NPT,X,RHOBEG,RHOEND,IPRINT,MAXFUN,XBASE,
 !     Set the nonzero initial elements of BMAT and the quadratic model in
 !     the cases when NF is at most 2*N+1.
 !
-      IF (NFM .LE. 2*N) THEN
-          IF (NFM .GE. 1 .AND. NFM .LE. N) THEN
+      IF (NFM <= 2*N) THEN
+          IF (NFM >= 1 .AND. NFM <= N) THEN
               GQ(NFM)=(F-FBEG)/RHOBEG
-              IF (NPT .LT. NF+N) THEN
+              IF (NPT < NF+N) THEN
                   BMAT(1,NFM)=-ONE/RHOBEG
                   BMAT(NF,NFM)=ONE/RHOBEG
                   BMAT(NPT+NFM,NFM)=-HALF*RHOSQ
               END IF
-          ELSE IF (NFM .GT. N) THEN
+          ELSE IF (NFM > N) THEN
               BMAT(NF-N,NFMM)=HALF/RHOBEG
               BMAT(NF,NFMM)=-HALF/RHOBEG
               ZMAT(1,NFMM)=-RECIQ-RECIQ
@@ -225,15 +228,15 @@ SUBROUTINE NEWUOB (N,NPT,X,RHOBEG,RHOEND,IPRINT,MAXFUN,XBASE,
 !
       ELSE
           IH=(IPT*(IPT-1))/2+JPT
-          IF (XIPT .LT. ZERO) IPT=IPT+N
-          IF (XJPT .LT. ZERO) JPT=JPT+N
+          IF (XIPT < ZERO) IPT=IPT+N
+          IF (XJPT < ZERO) JPT=JPT+N
           ZMAT(1,NFMM)=RECIP
           ZMAT(NF,NFMM)=RECIP
           ZMAT(IPT+1,NFMM)=-RECIP
           ZMAT(JPT+1,NFMM)=-RECIP
           HQ(IH)=(FBEG-FVAL(IPT+1)-FVAL(JPT+1)+F)/(XIPT*XJPT)
       END IF
-      IF (NF .LT. NPT) GOTO 50
+      IF (NF < NPT) GOTO 50
 !
 !     Begin the iterative procedure, because the initial model is complete.
 !
@@ -244,93 +247,109 @@ SUBROUTINE NEWUOB (N,NPT,X,RHOBEG,RHOEND,IPRINT,MAXFUN,XBASE,
       DIFFB=ZERO
       ITEST=0
       XOPTSQ=ZERO
-      DO 80 I=1,N
-      XOPT(I)=XPT(KOPT,I)
-   80 XOPTSQ=XOPTSQ+XOPT(I)**2
+      DO I=1,N
+         XOPT(I)=XPT(KOPT,I)
+         XOPTSQ=XOPTSQ+XOPT(I)**2
+      END DO
    90 NFSAV=NF
 !
 !     Generate the next trust region step and test its length. Set KNEW
 !     to -1 if the purpose of the next F will be to improve the model.
 !
   100 KNEW=0
-      CALL TRSAPP (N,NPT,XOPT,XPT,GQ,HQ,PQ,DELTA,D,W,W(NP),
-     1  W(NP+N),W(NP+2*N),CRVMIN)
+      CALL TRSAPP (N,NPT,XOPT,XPT,GQ,HQ,PQ,DELTA,D,W,W(NP),W(NP+N),W(NP+2*N),CRVMIN)
       DSQ=ZERO
-      DO 110 I=1,N
-  110 DSQ=DSQ+D(I)**2
+      DO I=1,N
+         DSQ=DSQ+D(I)**2
+      END DO
       DNORM=DMIN1(DELTA,DSQRT(DSQ))
-      IF (DNORM .LT. HALF*RHO) THEN
+      IF (DNORM < HALF*RHO) THEN
           KNEW=-1
           DELTA=TENTH*DELTA
           RATIO=-1.0D0
-          IF (DELTA .LE. 1.5D0*RHO) DELTA=RHO
-          IF (NF .LE. NFSAV+2) GOTO 460
+          IF (DELTA <= 1.5D0*RHO) DELTA=RHO
+          IF (NF <= NFSAV+2) GOTO 460
           TEMP=0.125D0*CRVMIN*RHO*RHO
-          IF (TEMP .LE. DMAX1(DIFFA,DIFFB,DIFFC)) GOTO 460
+          IF (TEMP <= DMAX1(DIFFA,DIFFB,DIFFC)) GOTO 460
           GOTO 490
       END IF
 !
 !     Shift XBASE if XOPT may be too far from XBASE. First make the changes
 !     to BMAT that do not depend on ZMAT.
 !
-  120 IF (DSQ .LE. 1.0D-3*XOPTSQ) THEN
+  120 IF (DSQ <= 1.0D-3*XOPTSQ) THEN
           TEMPQ=0.25D0*XOPTSQ
-          DO 140 K=1,NPT
-          SUM=ZERO
-          DO 130 I=1,N
-  130     SUM=SUM+XPT(K,I)*XOPT(I)
-          TEMP=PQ(K)*SUM
-          SUM=SUM-HALF*XOPTSQ
-          W(NPT+K)=SUM
-          DO 140 I=1,N
-          GQ(I)=GQ(I)+TEMP*XPT(K,I)
-          XPT(K,I)=XPT(K,I)-HALF*XOPT(I)
-          VLAG(I)=BMAT(K,I)
-          W(I)=SUM*XPT(K,I)+TEMPQ*XOPT(I)
-          IP=NPT+I
-          DO 140 J=1,I
-  140     BMAT(IP,J)=BMAT(IP,J)+VLAG(I)*W(J)+W(I)*VLAG(J)
+          DO K=1,NPT
+            SUM=ZERO
+            DO I=1,N
+               SUM=SUM+XPT(K,I)*XOPT(I)
+            END DO
+            TEMP=PQ(K)*SUM
+            SUM=SUM-HALF*XOPTSQ
+            W(NPT+K)=SUM
+            DO I=1,N
+               GQ(I)=GQ(I)+TEMP*XPT(K,I)
+               XPT(K,I)=XPT(K,I)-HALF*XOPT(I)
+               VLAG(I)=BMAT(K,I)
+               W(I)=SUM*XPT(K,I)+TEMPQ*XOPT(I)
+               IP=NPT+I
+               DO J=1,I
+                  BMAT(IP,J)=BMAT(IP,J)+VLAG(I)*W(J)+W(I)*VLAG(J)
+               END DO
+            END DO
+          END DO
 !
 !     Then the revisions of BMAT that depend on ZMAT are calculated.
 !
-          DO 180 K=1,NPTM
-          SUMZ=ZERO
-          DO 150 I=1,NPT
-          SUMZ=SUMZ+ZMAT(I,K)
-  150     W(I)=W(NPT+I)*ZMAT(I,K)
-          DO 170 J=1,N
-          SUM=TEMPQ*SUMZ*XOPT(J)
-          DO 160 I=1,NPT
-  160     SUM=SUM+W(I)*XPT(I,J)
-          VLAG(J)=SUM
-          IF (K .LT. IDZ) SUM=-SUM
-          DO 170 I=1,NPT
-  170     BMAT(I,J)=BMAT(I,J)+SUM*ZMAT(I,K)
-          DO 180 I=1,N
-          IP=I+NPT
-          TEMP=VLAG(I)
-          IF (K .LT. IDZ) TEMP=-TEMP
-          DO 180 J=1,I
-  180     BMAT(IP,J)=BMAT(IP,J)+TEMP*VLAG(J)
+          DO K=1,NPTM
+            SUMZ=ZERO
+            DO I=1,NPT
+                SUMZ=SUMZ+ZMAT(I,K)
+                W(I)=W(NPT+I)*ZMAT(I,K)
+            END DO
+            DO J=1,N
+                SUM=TEMPQ*SUMZ*XOPT(J)
+                DO I=1,NPT
+                SUM=SUM+W(I)*XPT(I,J)
+                END DO
+                VLAG(J)=SUM
+                IF (K < IDZ) SUM=-SUM
+                DO I=1,NPT
+                   BMAT(I,J)=BMAT(I,J)+SUM*ZMAT(I,K)
+                END DO
+            END DO
+            DO I=1,N
+                IP=I+NPT
+                TEMP=VLAG(I)
+                IF (K < IDZ) TEMP=-TEMP
+                DO J=1,I
+                    BMAT(IP,J)=BMAT(IP,J)+TEMP*VLAG(J)
+                END DO
+            END DO
+          END DO
 !
 !     The following instructions complete the shift of XBASE, including
 !     the changes to the parameters of the quadratic model.
 !
           IH=0
-          DO 200 J=1,N
-          W(J)=ZERO
-          DO 190 K=1,NPT
-          W(J)=W(J)+PQ(K)*XPT(K,J)
-  190     XPT(K,J)=XPT(K,J)-HALF*XOPT(J)
-          DO 200 I=1,J
-          IH=IH+1
-          IF (I .LT. J) GQ(J)=GQ(J)+HQ(IH)*XOPT(I)
-          GQ(I)=GQ(I)+HQ(IH)*XOPT(J)
-          HQ(IH)=HQ(IH)+W(I)*XOPT(J)+XOPT(I)*W(J)
-  200     BMAT(NPT+I,J)=BMAT(NPT+J,I)
-          DO 210 J=1,N
-          XBASE(J)=XBASE(J)+XOPT(J)
-  210     XOPT(J)=ZERO
+          DO J=1,N
+            W(J)=ZERO
+            DO K=1,NPT
+                W(J)=W(J)+PQ(K)*XPT(K,J)
+                XPT(K,J)=XPT(K,J)-HALF*XOPT(J)
+            END DO
+            DO I=1,J
+                IH=IH+1
+                IF (I < J) GQ(J)=GQ(J)+HQ(IH)*XOPT(I)
+                GQ(I)=GQ(I)+HQ(IH)*XOPT(J)
+                HQ(IH)=HQ(IH)+W(I)*XOPT(J)+XOPT(I)*W(J)
+                BMAT(NPT+I,J)=BMAT(NPT+J,I)
+            END DO
+          END DO
+          DO J=1,N
+             XBASE(J)=XBASE(J)+XOPT(J)
+             XOPT(J)=ZERO
+          END DO
           XOPTSQ=ZERO
       END IF
 !
@@ -338,50 +357,57 @@ SUBROUTINE NEWUOB (N,NPT,X,RHOBEG,RHOEND,IPRINT,MAXFUN,XBASE,
 !     may be made later, if the choice of D by BIGLAG causes substantial
 !     cancellation in DENOM.
 !
-      IF (KNEW .GT. 0) THEN
-          CALL BIGLAG (N,NPT,XOPT,XPT,BMAT,ZMAT,IDZ,NDIM,KNEW,DSTEP,
-     1      D,ALPHA,VLAG,VLAG(NPT+1),W,W(NP),W(NP+N))
+      IF (KNEW > 0) THEN
+          CALL BIGLAG (N,NPT,XOPT,XPT,BMAT,ZMAT,IDZ,NDIM,KNEW,DSTEP,D,ALPHA,VLAG,VLAG(NPT+1),W,W(NP),W(NP+N))
       END IF
 !
 !     Calculate VLAG and BETA for the current choice of D. The first NPT
 !     components of W_check will be held in W.
 !
-      DO 230 K=1,NPT
-      SUMA=ZERO
-      SUMB=ZERO
-      SUM=ZERO
-      DO 220 J=1,N
-      SUMA=SUMA+XPT(K,J)*D(J)
-      SUMB=SUMB+XPT(K,J)*XOPT(J)
-  220 SUM=SUM+BMAT(K,J)*D(J)
-      W(K)=SUMA*(HALF*SUMA+SUMB)
-  230 VLAG(K)=SUM
+      DO K=1,NPT
+        SUMA=ZERO
+        SUMB=ZERO
+        SUM=ZERO
+        DO J=1,N
+            SUMA=SUMA+XPT(K,J)*D(J)
+            SUMB=SUMB+XPT(K,J)*XOPT(J)
+            SUM=SUM+BMAT(K,J)*D(J)
+        END DO
+        W(K)=SUMA*(HALF*SUMA+SUMB)
+        VLAG(K)=SUM
+      END DO
       BETA=ZERO
-      DO 250 K=1,NPTM
-      SUM=ZERO
-      DO 240 I=1,NPT
-  240 SUM=SUM+ZMAT(I,K)*W(I)
-      IF (K .LT. IDZ) THEN
-          BETA=BETA+SUM*SUM
-          SUM=-SUM
-      ELSE
-          BETA=BETA-SUM*SUM
-      END IF
-      DO 250 I=1,NPT
-  250 VLAG(I)=VLAG(I)+SUM*ZMAT(I,K)
+      DO K=1,NPTM
+        SUM=ZERO
+        DO I=1,NPT
+           SUM=SUM+ZMAT(I,K)*W(I)
+        END DO
+        IF (K < IDZ) THEN
+            BETA=BETA+SUM*SUM
+            SUM=-SUM
+        ELSE
+            BETA=BETA-SUM*SUM
+        END IF
+        DO I=1,NPT
+            VLAG(I)=VLAG(I)+SUM*ZMAT(I,K)
+        END DO
+      END DO
       BSUM=ZERO
       DX=ZERO
-      DO 280 J=1,N
-      SUM=ZERO
-      DO 260 I=1,NPT
-  260 SUM=SUM+W(I)*BMAT(I,J)
-      BSUM=BSUM+SUM*D(J)
-      JP=NPT+J
-      DO 270 K=1,N
-  270 SUM=SUM+BMAT(JP,K)*D(K)
-      VLAG(JP)=SUM
-      BSUM=BSUM+SUM*D(J)
-  280 DX=DX+D(J)*XOPT(J)
+      DO J=1,N
+        SUM=ZERO
+        DO I=1,NPT
+            SUM=SUM+W(I)*BMAT(I,J)
+        END DO
+        BSUM=BSUM+SUM*D(J)
+        JP=NPT+J
+        DO K=1,N
+            SUM=SUM+BMAT(JP,K)*D(K)
+        END DO
+        VLAG(JP)=SUM
+        BSUM=BSUM+SUM*D(J)
+        DX=DX+D(J)*XOPT(J)
+      END DO
       BETA=DX*DX+DSQ*(XOPTSQ+DX+DX+HALF*DSQ)+BETA-BSUM
       VLAG(KOPT)=VLAG(KOPT)+ONE
 !
@@ -389,9 +415,9 @@ SUBROUTINE NEWUOB (N,NPT,X,RHOBEG,RHOEND,IPRINT,MAXFUN,XBASE,
 !     then BIGDEN calculates an alternative model step, XNEW being used for
 !     working space.
 !
-      IF (KNEW .GT. 0) THEN
+      IF (KNEW > 0) THEN
           TEMP=ONE+ALPHA*BETA/VLAG(KNEW)**2
-          IF (DABS(TEMP) .LE. 0.8D0) THEN
+          IF (DABS(TEMP) <= 0.8D0) THEN
               CALL BIGDEN (N,NPT,XOPT,XPT,BMAT,ZMAT,IDZ,NDIM,KOPT,
      1          KNEW,D,W,VLAG,BETA,XNEW,W(NDIM+1),W(6*NDIM+1))
           END IF
@@ -399,105 +425,109 @@ SUBROUTINE NEWUOB (N,NPT,X,RHOBEG,RHOEND,IPRINT,MAXFUN,XBASE,
 !
 !     Calculate the next value of the objective function.
 !
-  290 DO 300 I=1,N
-      XNEW(I)=XOPT(I)+D(I)
-  300 X(I)=XBASE(I)+XNEW(I)
+  290 DO I=1,N
+         XNEW(I)=XOPT(I)+D(I)
+         X(I)=XBASE(I)+XNEW(I)
+      END DO
       NF=NF+1
-  310 IF (NF .GT. NFTEST) THEN
+  310 IF (NF > NFTEST) THEN
           NF=NF-1
-          IF (IPRINT .GT. 0) PRINT 320
-  320     FORMAT (/4X,'Return from NEWUOA because CALFUN has been',
-     1      ' called MAXFUN times.')
+          IF (IPRINT > 0) PRINT 320
+  320     FORMAT (/4X,'Return from NEWUOA because CALFUN has been called MAXFUN times.')
           GOTO 530
       END IF
       CALL CALFUN (N,X,F)
-      IF (IPRINT .EQ. 3) THEN
-          PRINT 330, NF,F,(X(I),I=1,N)
-  330      FORMAT (/4X,'Function number',I6,'    F =',1PD18.10,
-     1       '    The corresponding X is:'/(2X,5D15.6))
+      IF (IPRINT == 3) THEN
+         PRINT 330, NF,F,(X(I),I=1,N)
+  330    FORMAT (/4X,'Function number',I6,'    F =',1PD18.10,'    The corresponding X is:'/(2X,5D15.6))
       END IF
-      IF (NF .LE. NPT) GOTO 70
-      IF (KNEW .EQ. -1) GOTO 530
+      IF (NF <= NPT) GOTO 70
+      IF (KNEW == -1) GOTO 530
 !
 !     Use the quadratic model to predict the change in F due to the step D,
 !     and set DIFF to the error of this prediction.
 !
       VQUAD=ZERO
       IH=0
-      DO 340 J=1,N
-      VQUAD=VQUAD+D(J)*GQ(J)
-      DO 340 I=1,J
-      IH=IH+1
-      TEMP=D(I)*XNEW(J)+D(J)*XOPT(I)
-      IF (I .EQ. J) TEMP=HALF*TEMP
-  340 VQUAD=VQUAD+TEMP*HQ(IH)
-      DO 350 K=1,NPT
-  350 VQUAD=VQUAD+PQ(K)*W(K)
+      DO J=1,N
+        VQUAD=VQUAD+D(J)*GQ(J)
+        DO I=1,J
+           IH=IH+1
+           TEMP=D(I)*XNEW(J)+D(J)*XOPT(I)
+           IF (I == J) TEMP=HALF*TEMP
+           VQUAD=VQUAD+TEMP*HQ(IH)
+        END DO
+      END DO
+      DO K=1,NPT
+         VQUAD=VQUAD+PQ(K)*W(K)
+      END DO
       DIFF=F-FOPT-VQUAD
       DIFFC=DIFFB
       DIFFB=DIFFA
       DIFFA=DABS(DIFF)
-      IF (DNORM .GT. RHO) NFSAV=NF
+      IF (DNORM > RHO) NFSAV=NF
 !
 !     Update FOPT and XOPT if the new F is the least value of the objective
 !     function so far. The branch when KNEW is positive occurs if D is not
 !     a trust region step.
 !
       FSAVE=FOPT
-      IF (F .LT. FOPT) THEN
-          FOPT=F
-          XOPTSQ=ZERO
-          DO 360 I=1,N
-          XOPT(I)=XNEW(I)
-  360     XOPTSQ=XOPTSQ+XOPT(I)**2
+      IF (F < FOPT) THEN
+         FOPT=F
+         XOPTSQ=ZERO
+         DO I=1,N
+            XOPT(I)=XNEW(I)
+            XOPTSQ=XOPTSQ+XOPT(I)**2
+         END DO
       END IF
       KSAVE=KNEW
-      IF (KNEW .GT. 0) GOTO 410
+      IF (KNEW > 0) GOTO 410
 !
 !     Pick the next value of DELTA after a trust region step.
 !
-      IF (VQUAD .GE. ZERO) THEN
-          IF (IPRINT .GT. 0) PRINT 370
-  370     FORMAT (/4X,'Return from NEWUOA because a trust',
-     1      ' region step has failed to reduce Q.')
+      IF (VQUAD >= ZERO) THEN
+          IF (IPRINT > 0) PRINT 370
+  370     FORMAT (/4X,'Return from NEWUOA because a trust region step has failed to reduce Q.')
           GOTO 530
       END IF
       RATIO=(F-FSAVE)/VQUAD
-      IF (RATIO .LE. TENTH) THEN
+      IF (RATIO <= TENTH) THEN
           DELTA=HALF*DNORM
       ELSE IF (RATIO. LE. 0.7D0) THEN
           DELTA=DMAX1(HALF*DELTA,DNORM)
       ELSE
           DELTA=DMAX1(HALF*DELTA,DNORM+DNORM)
       END IF
-      IF (DELTA .LE. 1.5D0*RHO) DELTA=RHO
+      IF (DELTA <= 1.5D0*RHO) DELTA=RHO
 !
 !     Set KNEW to the index of the next interpolation point to be deleted.
 !
       RHOSQ=DMAX1(TENTH*DELTA,RHO)**2
       KTEMP=0
       DETRAT=ZERO
-      IF (F .GE. FSAVE) THEN
+      IF (F >= FSAVE) THEN
           KTEMP=KOPT
           DETRAT=ONE
       END IF
-      DO 400 K=1,NPT
-      HDIAG=ZERO
-      DO 380 J=1,NPTM
-      TEMP=ONE
-      IF (J .LT. IDZ) TEMP=-ONE
-  380 HDIAG=HDIAG+TEMP*ZMAT(K,J)**2
-      TEMP=DABS(BETA*HDIAG+VLAG(K)**2)
-      DISTSQ=ZERO
-      DO 390 J=1,N
-  390 DISTSQ=DISTSQ+(XPT(K,J)-XOPT(J))**2
-      IF (DISTSQ .GT. RHOSQ) TEMP=TEMP*(DISTSQ/RHOSQ)*(DISTSQ/RHOSQ)*(DISTSQ/RHOSQ)
-      IF (TEMP .GT. DETRAT .AND. K .NE. KTEMP) THEN
-          DETRAT=TEMP
-          KNEW=K
-      END IF
-  400 CONTINUE
-      IF (KNEW .EQ. 0) GOTO 460
+      DO K=1,NPT
+        HDIAG=ZERO
+        DO J=1,NPTM
+            TEMP=ONE
+            IF (J < IDZ) TEMP=-ONE
+            HDIAG=HDIAG+TEMP*ZMAT(K,J)**2
+        END DO
+        TEMP=DABS(BETA*HDIAG+VLAG(K)**2)
+        DISTSQ=ZERO
+        DO J=1,N
+            DISTSQ=DISTSQ+(XPT(K,J)-XOPT(J))**2
+        END DO
+        IF (DISTSQ > RHOSQ) TEMP=TEMP*(DISTSQ/RHOSQ)*(DISTSQ/RHOSQ)*(DISTSQ/RHOSQ)
+        IF (TEMP > DETRAT .AND. K /= KTEMP) THEN
+            DETRAT=TEMP
+            KNEW=K
+        END IF
+      END DO
+      IF (KNEW == 0) GOTO 460
 !
 !     Update BMAT, ZMAT and IDZ, so that the KNEW-th interpolation point
 !     can be moved. Begin the updating of the quadratic model, starting
@@ -506,51 +536,59 @@ SUBROUTINE NEWUOB (N,NPT,X,RHOBEG,RHOEND,IPRINT,MAXFUN,XBASE,
   410 CALL UPDATE (N,NPT,BMAT,ZMAT,IDZ,NDIM,VLAG,BETA,KNEW,W)
       FVAL(KNEW)=F
       IH=0
-      DO 420 I=1,N
-      TEMP=PQ(KNEW)*XPT(KNEW,I)
-      DO 420 J=1,I
-      IH=IH+1
-  420 HQ(IH)=HQ(IH)+TEMP*XPT(KNEW,J)
+      DO I=1,N
+        TEMP=PQ(KNEW)*XPT(KNEW,I)
+        DO J=1,I
+            IH=IH+1
+            HQ(IH)=HQ(IH)+TEMP*XPT(KNEW,J)
+        END DO
+      END DO
       PQ(KNEW)=ZERO
 !
 !     Update the other second derivative parameters, and then the gradient
 !     vector of the model. Also include the new interpolation point.
 !
-      DO 440 J=1,NPTM
-      TEMP=DIFF*ZMAT(KNEW,J)
-      IF (J .LT. IDZ) TEMP=-TEMP
-      DO 440 K=1,NPT
-  440 PQ(K)=PQ(K)+TEMP*ZMAT(K,J)
+      DO J=1,NPTM
+        TEMP=DIFF*ZMAT(KNEW,J)
+        IF (J < IDZ) TEMP=-TEMP
+        DO K=1,NPT
+            PQ(K)=PQ(K)+TEMP*ZMAT(K,J)
+        END DO
+      END DO
       GQSQ=ZERO
-      DO 450 I=1,N
-      GQ(I)=GQ(I)+DIFF*BMAT(KNEW,I)
-      GQSQ=GQSQ+GQ(I)**2
-  450 XPT(KNEW,I)=XNEW(I)
+      DO I=1,N
+        GQ(I)=GQ(I)+DIFF*BMAT(KNEW,I)
+        GQSQ=GQSQ+GQ(I)**2
+        XPT(KNEW,I)=XNEW(I)
+      END DO
 !
 !     If a trust region step makes a small change to the objective function,
 !     then calculate the gradient of the least Frobenius norm interpolant at
 !     XBASE, and store it in W, using VLAG for a vector of right hand sides.
 !
-      IF (KSAVE .EQ. 0 .AND. DELTA .EQ. RHO) THEN
-          IF (DABS(RATIO) .GT. 1.0D-2) THEN
+      IF (KSAVE == 0 .AND. DELTA == RHO) THEN
+          IF (DABS(RATIO) > 1.0D-2) THEN
               ITEST=0
           ELSE
-              DO 700 K=1,NPT
-  700         VLAG(K)=FVAL(K)-FVAL(KOPT)
+              DO K=1,NPT
+                 VLAG(K)=FVAL(K)-FVAL(KOPT)
+              END DO
               GISQ=ZERO
-              DO 720 I=1,N
-              SUM=ZERO
-              DO 710 K=1,NPT
-  710         SUM=SUM+BMAT(K,I)*VLAG(K)
-              GISQ=GISQ+SUM*SUM
-  720         W(I)=SUM
+              DO I=1,N
+                SUM=ZERO
+                DO K=1,NPT
+                   SUM=SUM+BMAT(K,I)*VLAG(K)
+                END DO
+                GISQ=GISQ+SUM*SUM
+                W(I)=SUM
+              END DO
 !
 !     Test whether to replace the new quadratic model by the least Frobenius
 !     norm interpolant, making the replacement if the test is satisfied.
 !
               ITEST=ITEST+1
-              IF (GQSQ .LT. 1.0D2*GISQ) ITEST=0
-              do_replace = (ITEST .GE. 3)
+              IF (GQSQ < 1.0D2*GISQ) ITEST=0
+              do_replace = (ITEST >= 3)
               if (.not. do_replace) then ! check for "invalid" value
                 do k=1,npt
                   if (fval(k) > max_valid_value) then
@@ -561,81 +599,86 @@ SUBROUTINE NEWUOB (N,NPT,X,RHOBEG,RHOEND,IPRINT,MAXFUN,XBASE,
                 end do
               end if 
               IF (do_replace) THEN    
-                  DO 730 I=1,N
-  730             GQ(I)=W(I)
-                  DO 740 IH=1,NH
-  740             HQ(IH)=ZERO
-                  DO 760 J=1,NPTM
-                  W(J)=ZERO
-                  DO 750 K=1,NPT
-  750             W(J)=W(J)+VLAG(K)*ZMAT(K,J)
-  760             IF (J .LT. IDZ) W(J)=-W(J)
-                  DO 770 K=1,NPT
-                  PQ(K)=ZERO
-                  DO 770 J=1,NPTM
-  770             PQ(K)=PQ(K)+ZMAT(K,J)*W(J)
+                  DO I=1,N
+                     GQ(I)=W(I)
+                  END DO
+                  DO IH=1,NH
+                     HQ(IH)=ZERO
+                  END DO
+                  DO J=1,NPTM
+                    W(J)=ZERO
+                    DO K=1,NPT
+                        W(J)=W(J)+VLAG(K)*ZMAT(K,J)
+                    END DO
+                  IF (J < IDZ) W(J)=-W(J)
+                  END DO
+                  DO K=1,NPT
+                    PQ(K)=ZERO
+                    DO J=1,NPTM
+                        PQ(K)=PQ(K)+ZMAT(K,J)*W(J)
+                    END DO
+                  END DO
                   ITEST=0
               END IF
           END IF
       END IF
-      IF (F .LT. FSAVE) KOPT=KNEW
+      IF (F < FSAVE) KOPT=KNEW
 !
 !     If a trust region step has provided a sufficient decrease in F, then
 !     branch for another trust region calculation. The case KSAVE>0 occurs
 !     when the new function value was calculated by a model step.
 !
-      IF (F .LE. FSAVE+TENTH*VQUAD) GOTO 100
-      IF (KSAVE .GT. 0) GOTO 100
+      IF (F <= FSAVE+TENTH*VQUAD) GOTO 100
+      IF (KSAVE > 0) GOTO 100
 !
 !     Alternatively, find out if the interpolation points are close enough
 !     to the best point so far.
 !
       KNEW=0
   460 DISTSQ=4.0D0*DELTA*DELTA
-      DO 480 K=1,NPT
-      SUM=ZERO
-      DO 470 J=1,N
-  470 SUM=SUM+(XPT(K,J)-XOPT(J))**2
-      IF (SUM .GT. DISTSQ) THEN
-          KNEW=K
-          DISTSQ=SUM
-      END IF
-  480 CONTINUE
+      DO K=1,NPT
+        SUM=ZERO
+        DO J=1,N
+           SUM=SUM+(XPT(K,J)-XOPT(J))**2
+        END DO
+        IF (SUM > DISTSQ) THEN
+           KNEW=K
+           DISTSQ=SUM
+        END IF
+      END DO
 !
 !     If KNEW is positive, then set DSTEP, and branch back for the next
 !     iteration, which will generate a "model step".
 !
-      IF (KNEW .GT. 0) THEN
+      IF (KNEW > 0) THEN
           DSTEP=DMAX1(DMIN1(TENTH*DSQRT(DISTSQ),HALF*DELTA),RHO)
           DSQ=DSTEP*DSTEP
           GOTO 120
       END IF
-      IF (RATIO .GT. ZERO) GOTO 100
-      IF (DMAX1(DELTA,DNORM) .GT. RHO) GOTO 100
+      IF (RATIO > ZERO) GOTO 100
+      IF (DMAX1(DELTA,DNORM) > RHO) GOTO 100
 !
 !     The calculations with the current value of RHO are complete. Pick the
 !     next values of RHO and DELTA.
 !
-  490 IF (RHO .GT. RHOEND) THEN
+  490 IF (RHO > RHOEND) THEN
           DELTA=HALF*RHO
           RATIO=RHO/RHOEND
-          IF (RATIO .LE. 16.0D0) THEN
+          IF (RATIO <= 16.0D0) THEN
               RHO=RHOEND
-          ELSE IF (RATIO .LE. 250.0D0) THEN
+          ELSE IF (RATIO <= 250.0D0) THEN
               RHO=DSQRT(RATIO)*RHOEND
           ELSE
               RHO=TENTH*RHO
           END IF
           DELTA=DMAX1(DELTA,RHO)
-          IF (IPRINT .GE. 2) THEN
-              IF (IPRINT .GE. 3) PRINT 500
+          IF (IPRINT >= 2) THEN
+              IF (IPRINT >= 3) PRINT 500
   500         FORMAT (5X)
               PRINT 510, RHO,NF
-  510         FORMAT (/4X,'New RHO =',1PD11.4,5X,'Number of',
-     1          ' function values =',I6)
+  510         FORMAT (/4X,'New RHO =',1PD11.4,5X,'Number of function values =',I6)
               PRINT 520, FOPT,(XBASE(I)+XOPT(I),I=1,N)
-  520         FORMAT (4X,'Least value of F =',1PD23.15,9X,
-     1          'The corresponding X is:'/(2X,5D15.6))
+  520         FORMAT (4X,'Least value of F =',1PD23.15,9X,'The corresponding X is:'/(2X,5D15.6))
           END IF
           GOTO 90
       END IF
@@ -643,24 +686,23 @@ SUBROUTINE NEWUOB (N,NPT,X,RHOBEG,RHOEND,IPRINT,MAXFUN,XBASE,
 !     Return from the calculation, after another Newton-Raphson step, if
 !     it is too short to have been tried before.
 !
-      IF (KNEW .EQ. -1) GOTO 290
-  530 IF (FOPT .LE. F) THEN
-          DO 540 I=1,N
-  540     X(I)=XBASE(I)+XOPT(I)
+      IF (KNEW == -1) GOTO 290
+  530 IF (FOPT <= F) THEN
+          DO I=1,N
+            X(I)=XBASE(I)+XOPT(I)
+          END DO
           F=FOPT
       END IF
-      IF (IPRINT .GE. 1) THEN
+      IF (IPRINT >= 1) THEN
           PRINT 550, NF
-  550     FORMAT (/4X,'At the return from NEWUOA',5X,
-     1      'Number of function values =',I6)
+  550     FORMAT (/4X,'At the return from NEWUOA',5X,'Number of function values =',I6)
           PRINT 520, F,(X(I),I=1,N)
       END IF
       RETURN
       END SUBROUTINE NEWUOB
 
-      SUBROUTINE BIGDEN (N,NPT,XOPT,XPT,BMAT,ZMAT,IDZ,NDIM,KOPT,
-     1  KNEW,D,W,VLAG,BETA,S,WVEC,PROD)
-      IMPLICIT REAL*8 (A-H,O-Z)
+      SUBROUTINE BIGDEN(N,NPT,XOPT,XPT,BMAT,ZMAT,IDZ,NDIM,KOPT,KNEW,D,W,VLAG,BETA,S,WVEC,PROD)
+      IMPLICIT real(dp) (A-H,O-Z)
       DIMENSION XOPT(*),XPT(NPT,*),BMAT(NDIM,*),ZMAT(NPT,*),D(*),
      1  W(*),VLAG(*),S(*),WVEC(NDIM,*),PROD(NDIM,*)
       DIMENSION DEN(9),DENEX(9),PAR(9)
@@ -701,13 +743,16 @@ SUBROUTINE BIGDEN (N,NPT,XOPT,XPT,BMAT,ZMAT,IDZ,NDIM,KOPT,
 !     Store the first NPT elements of the KNEW-th column of H in W(N+1)
 !     to W(N+NPT).
 !
-      DO 10 K=1,NPT
-   10 W(N+K)=ZERO
-      DO 20 J=1,NPTM
-      TEMP=ZMAT(KNEW,J)
-      IF (J .LT. IDZ) TEMP=-TEMP
-      DO 20 K=1,NPT
-   20 W(N+K)=W(N+K)+TEMP*ZMAT(K,J)
+      DO K=1,NPT
+         W(N+K)=ZERO
+      END DO
+      DO J=1,NPTM
+        TEMP=ZMAT(KNEW,J)
+        IF (J < IDZ) TEMP=-TEMP
+        DO K=1,NPT
+            W(N+K)=W(N+K)+TEMP*ZMAT(K,J)
+        END DO
+      END DO
       ALPHA=W(N+KNEW)
 !
 !     The initial search direction D is taken from the last call of BIGLAG,
@@ -719,33 +764,36 @@ SUBROUTINE BIGDEN (N,NPT,XOPT,XPT,BMAT,ZMAT,IDZ,NDIM,KOPT,
       DS=ZERO
       SS=ZERO
       XOPTSQ=ZERO
-      DO 30 I=1,N
-      DD=DD+D(I)**2
-      S(I)=XPT(KNEW,I)-XOPT(I)
-      DS=DS+D(I)*S(I)
-      SS=SS+S(I)**2
-   30 XOPTSQ=XOPTSQ+XOPT(I)**2
-      IF (DS*DS .GT. 0.99D0*DD*SS) THEN
+      DO I=1,N
+        DD=DD+D(I)**2
+        S(I)=XPT(KNEW,I)-XOPT(I)
+        DS=DS+D(I)*S(I)
+        SS=SS+S(I)**2
+        XOPTSQ=XOPTSQ+XOPT(I)**2
+      END DO
+      IF (DS*DS > 0.99D0*DD*SS) THEN
           KSAV=KNEW
           DTEST=DS*DS/SS
-          DO 50 K=1,NPT
-          IF (K .NE. KOPT) THEN
-              DSTEMP=ZERO
-              SSTEMP=ZERO
-              DO 40 I=1,N
-              DIFF=XPT(K,I)-XOPT(I)
-              DSTEMP=DSTEMP+D(I)*DIFF
-   40         SSTEMP=SSTEMP+DIFF*DIFF
-              IF (DSTEMP*DSTEMP/SSTEMP .LT. DTEST) THEN
-                  KSAV=K
-                  DTEST=DSTEMP*DSTEMP/SSTEMP
-                  DS=DSTEMP
-                  SS=SSTEMP
-              END IF
-          END IF
-   50     CONTINUE
-          DO 60 I=1,N
-   60     S(I)=XPT(KSAV,I)-XOPT(I)
+          DO K=1,NPT
+            IF (K /= KOPT) THEN
+                DSTEMP=ZERO
+                SSTEMP=ZERO
+                DO I=1,N
+                    DIFF=XPT(K,I)-XOPT(I)
+                    DSTEMP=DSTEMP+D(I)*DIFF
+                    SSTEMP=SSTEMP+DIFF*DIFF
+                END DO
+                IF (DSTEMP*DSTEMP/SSTEMP < DTEST) THEN
+                    KSAV=K
+                    DTEST=DSTEMP*DSTEMP/SSTEMP
+                    DS=DSTEMP
+                    SS=SSTEMP
+                END IF
+            END IF
+          END DO
+          DO I=1,N
+             S(I)=XPT(KSAV,I)-XOPT(I)
+          END DO
       END IF
       SSDEN=DD*SS-DS*DS
       ITERC=0
@@ -758,10 +806,11 @@ SUBROUTINE BIGDEN (N,NPT,XOPT,XPT,BMAT,ZMAT,IDZ,NDIM,KOPT,
       TEMP=ONE/DSQRT(SSDEN)
       XOPTD=ZERO
       XOPTS=ZERO
-      DO 80 I=1,N
-      S(I)=TEMP*(DD*S(I)-DS*D(I))
-      XOPTD=XOPTD+XOPT(I)*D(I)
-   80 XOPTS=XOPTS+XOPT(I)*S(I)
+      DO I=1,N
+        S(I)=TEMP*(DD*S(I)-DS*D(I))
+        XOPTD=XOPTD+XOPT(I)*D(I)
+        XOPTS=XOPTS+XOPT(I)*S(I)
+      END DO
 !
 !     Set the coefficients of the first two terms of BETA.
 !
@@ -772,92 +821,108 @@ SUBROUTINE BIGDEN (N,NPT,XOPT,XPT,BMAT,ZMAT,IDZ,NDIM,KOPT,
       DEN(3)=TWO*XOPTS*DD
       DEN(4)=TEMPA-TEMPB
       DEN(5)=XOPTD*XOPTS
-      DO 90 I=6,9
-   90 DEN(I)=ZERO
+      DO I=6,9
+         DEN(I)=ZERO
+      END DO
 !
 !     Put the coefficients of Wcheck in WVEC.
 !
-      DO 110 K=1,NPT
-      TEMPA=ZERO
-      TEMPB=ZERO
-      TEMPC=ZERO
-      DO 100 I=1,N
-      TEMPA=TEMPA+XPT(K,I)*D(I)
-      TEMPB=TEMPB+XPT(K,I)*S(I)
-  100 TEMPC=TEMPC+XPT(K,I)*XOPT(I)
-      WVEC(K,1)=QUART*(TEMPA*TEMPA+TEMPB*TEMPB)
-      WVEC(K,2)=TEMPA*TEMPC
-      WVEC(K,3)=TEMPB*TEMPC
-      WVEC(K,4)=QUART*(TEMPA*TEMPA-TEMPB*TEMPB)
-  110 WVEC(K,5)=HALF*TEMPA*TEMPB
-      DO 120 I=1,N
-      IP=I+NPT
-      WVEC(IP,1)=ZERO
-      WVEC(IP,2)=D(I)
-      WVEC(IP,3)=S(I)
-      WVEC(IP,4)=ZERO
-  120 WVEC(IP,5)=ZERO
+      DO K=1,NPT
+        TEMPA=ZERO
+        TEMPB=ZERO
+        TEMPC=ZERO
+        DO I=1,N
+            TEMPA=TEMPA+XPT(K,I)*D(I)
+            TEMPB=TEMPB+XPT(K,I)*S(I)
+            TEMPC=TEMPC+XPT(K,I)*XOPT(I)
+        END DO
+        WVEC(K,1)=QUART*(TEMPA*TEMPA+TEMPB*TEMPB)
+        WVEC(K,2)=TEMPA*TEMPC
+        WVEC(K,3)=TEMPB*TEMPC
+        WVEC(K,4)=QUART*(TEMPA*TEMPA-TEMPB*TEMPB)
+        WVEC(K,5)=HALF*TEMPA*TEMPB
+      END DO
+      DO I=1,N
+        IP=I+NPT
+        WVEC(IP,1)=ZERO
+        WVEC(IP,2)=D(I)
+        WVEC(IP,3)=S(I)
+        WVEC(IP,4)=ZERO
+        WVEC(IP,5)=ZERO
+      END DO
 !
 !     Put the coefficents of THETA*Wcheck in PROD.
 !
-      DO 190 JC=1,5
-      NW=NPT
-      IF (JC .EQ. 2 .OR. JC .EQ. 3) NW=NDIM
-      DO 130 K=1,NPT
-  130 PROD(K,JC)=ZERO
-      DO 150 J=1,NPTM
-      SUM=ZERO
-      DO 140 K=1,NPT
-  140 SUM=SUM+ZMAT(K,J)*WVEC(K,JC)
-      IF (J .LT. IDZ) SUM=-SUM
-      DO 150 K=1,NPT
-  150 PROD(K,JC)=PROD(K,JC)+SUM*ZMAT(K,J)
-      IF (NW .EQ. NDIM) THEN
-          DO 170 K=1,NPT
-          SUM=ZERO
-          DO 160 J=1,N
-  160     SUM=SUM+BMAT(K,J)*WVEC(NPT+J,JC)
-  170     PROD(K,JC)=PROD(K,JC)+SUM
-      END IF
-      DO 190 J=1,N
-      SUM=ZERO
-      DO 180 I=1,NW
-  180 SUM=SUM+BMAT(I,J)*WVEC(I,JC)
-  190 PROD(NPT+J,JC)=SUM
+      DO JC=1,5
+        NW=NPT
+        IF (JC == 2 .OR. JC == 3) NW=NDIM
+        DO K=1,NPT
+            PROD(K,JC)=ZERO
+        END DO
+        DO J=1,NPTM
+            SUM=ZERO
+            DO K=1,NPT
+                SUM=SUM+ZMAT(K,J)*WVEC(K,JC)
+            END DO
+            IF (J < IDZ) SUM=-SUM
+            DO K=1,NPT
+            PROD(K,JC)=PROD(K,JC)+SUM*ZMAT(K,J)
+            END DO
+        END DO
+        IF (NW == NDIM) THEN
+            DO K=1,NPT
+            SUM=ZERO
+            DO J=1,N
+                SUM=SUM+BMAT(K,J)*WVEC(NPT+J,JC)
+            END DO
+            PROD(K,JC)=PROD(K,JC)+SUM
+            END DO
+        END IF
+        DO J=1,N
+            SUM=ZERO
+            DO I=1,NW
+                SUM=SUM+BMAT(I,J)*WVEC(I,JC)
+            END DO
+            PROD(NPT+J,JC)=SUM
+        END DO
+      END DO
 !
 !     Include in DEN the part of BETA that depends on THETA.
 !
-      DO 210 K=1,NDIM
-      SUM=ZERO
-      DO 200 I=1,5
-      PAR(I)=HALF*PROD(K,I)*WVEC(K,I)
-  200 SUM=SUM+PAR(I)
-      DEN(1)=DEN(1)-PAR(1)-SUM
-      TEMPA=PROD(K,1)*WVEC(K,2)+PROD(K,2)*WVEC(K,1)
-      TEMPB=PROD(K,2)*WVEC(K,4)+PROD(K,4)*WVEC(K,2)
-      TEMPC=PROD(K,3)*WVEC(K,5)+PROD(K,5)*WVEC(K,3)
-      DEN(2)=DEN(2)-TEMPA-HALF*(TEMPB+TEMPC)
-      DEN(6)=DEN(6)-HALF*(TEMPB-TEMPC)
-      TEMPA=PROD(K,1)*WVEC(K,3)+PROD(K,3)*WVEC(K,1)
-      TEMPB=PROD(K,2)*WVEC(K,5)+PROD(K,5)*WVEC(K,2)
-      TEMPC=PROD(K,3)*WVEC(K,4)+PROD(K,4)*WVEC(K,3)
-      DEN(3)=DEN(3)-TEMPA-HALF*(TEMPB-TEMPC)
-      DEN(7)=DEN(7)-HALF*(TEMPB+TEMPC)
-      TEMPA=PROD(K,1)*WVEC(K,4)+PROD(K,4)*WVEC(K,1)
-      DEN(4)=DEN(4)-TEMPA-PAR(2)+PAR(3)
-      TEMPA=PROD(K,1)*WVEC(K,5)+PROD(K,5)*WVEC(K,1)
-      TEMPB=PROD(K,2)*WVEC(K,3)+PROD(K,3)*WVEC(K,2)
-      DEN(5)=DEN(5)-TEMPA-HALF*TEMPB
-      DEN(8)=DEN(8)-PAR(4)+PAR(5)
-      TEMPA=PROD(K,4)*WVEC(K,5)+PROD(K,5)*WVEC(K,4)
-  210 DEN(9)=DEN(9)-HALF*TEMPA
+      DO K=1,NDIM
+        SUM=ZERO
+        DO I=1,5
+            PAR(I)=HALF*PROD(K,I)*WVEC(K,I)
+            SUM=SUM+PAR(I)
+        END DO
+        DEN(1)=DEN(1)-PAR(1)-SUM
+        TEMPA=PROD(K,1)*WVEC(K,2)+PROD(K,2)*WVEC(K,1)
+        TEMPB=PROD(K,2)*WVEC(K,4)+PROD(K,4)*WVEC(K,2)
+        TEMPC=PROD(K,3)*WVEC(K,5)+PROD(K,5)*WVEC(K,3)
+        DEN(2)=DEN(2)-TEMPA-HALF*(TEMPB+TEMPC)
+        DEN(6)=DEN(6)-HALF*(TEMPB-TEMPC)
+        TEMPA=PROD(K,1)*WVEC(K,3)+PROD(K,3)*WVEC(K,1)
+        TEMPB=PROD(K,2)*WVEC(K,5)+PROD(K,5)*WVEC(K,2)
+        TEMPC=PROD(K,3)*WVEC(K,4)+PROD(K,4)*WVEC(K,3)
+        DEN(3)=DEN(3)-TEMPA-HALF*(TEMPB-TEMPC)
+        DEN(7)=DEN(7)-HALF*(TEMPB+TEMPC)
+        TEMPA=PROD(K,1)*WVEC(K,4)+PROD(K,4)*WVEC(K,1)
+        DEN(4)=DEN(4)-TEMPA-PAR(2)+PAR(3)
+        TEMPA=PROD(K,1)*WVEC(K,5)+PROD(K,5)*WVEC(K,1)
+        TEMPB=PROD(K,2)*WVEC(K,3)+PROD(K,3)*WVEC(K,2)
+        DEN(5)=DEN(5)-TEMPA-HALF*TEMPB
+        DEN(8)=DEN(8)-PAR(4)+PAR(5)
+        TEMPA=PROD(K,4)*WVEC(K,5)+PROD(K,5)*WVEC(K,4)
+        DEN(9)=DEN(9)-HALF*TEMPA
+      END DO
 !
 !     Extend DEN so that it holds all the coefficients of DENOM.
 !
       SUM=ZERO
-      DO 220 I=1,5
-      PAR(I)=HALF*PROD(KNEW,I)**2
-  220 SUM=SUM+PAR(I)
+      DO I=1,5
+         PAR(I)=HALF*PROD(KNEW,I)**2
+         SUM=SUM+PAR(I)
+      END DO
       DENEX(1)=ALPHA*DEN(1)+PAR(1)+SUM
       TEMPA=TWO*PROD(KNEW,1)*PROD(KNEW,2)
       TEMPB=PROD(KNEW,2)*PROD(KNEW,4)
@@ -883,104 +948,117 @@ SUBROUTINE BIGDEN (N,NPT,XOPT,XPT,BMAT,ZMAT,IDZ,NDIM,KOPT,
       DENMAX=SUM
       ISAVE=0
       IU=49
-      TEMP=TWOPI/DFLOAT(IU+1)
+      TEMP=TWOPI/DBLE(IU+1)
       PAR(1)=ONE
-      DO 250 I=1,IU
-      ANGLE=DFLOAT(I)*TEMP
-      PAR(2)=cos(ANGLE)
-      PAR(3)=sin(ANGLE)
-      DO 230 J=4,8,2
-      PAR(J)=PAR(2)*PAR(J-2)-PAR(3)*PAR(J-1)
-  230 PAR(J+1)=PAR(2)*PAR(J-1)+PAR(3)*PAR(J-2)
-      SUMOLD=SUM
-      SUM=ZERO
-      DO 240 J=1,9
-  240 SUM=SUM+DENEX(J)*PAR(J)
-      IF (DABS(SUM) .GT. DABS(DENMAX)) THEN
-          DENMAX=SUM
-          ISAVE=I
-          TEMPA=SUMOLD
-      ELSE IF (I .EQ. ISAVE+1) THEN
-          TEMPB=SUM
-      END IF
-  250 CONTINUE
-      IF (ISAVE .EQ. 0) TEMPA=SUM
-      IF (ISAVE .EQ. IU) TEMPB=DENOLD
+      DO I=1,IU
+        ANGLE=DBLE(I)*TEMP
+        PAR(2)=cos(ANGLE)
+        PAR(3)=sin(ANGLE)
+        DO J=4,8,2
+            PAR(J)=PAR(2)*PAR(J-2)-PAR(3)*PAR(J-1)
+            PAR(J+1)=PAR(2)*PAR(J-1)+PAR(3)*PAR(J-2)
+        END DO
+        SUMOLD=SUM
+        SUM=ZERO
+        DO J=1,9
+           SUM=SUM+DENEX(J)*PAR(J)
+        END DO
+        IF (DABS(SUM) > DABS(DENMAX)) THEN
+            DENMAX=SUM
+            ISAVE=I
+            TEMPA=SUMOLD
+        ELSE IF (I == ISAVE+1) THEN
+            TEMPB=SUM
+        END IF
+      END DO
+      IF (ISAVE == 0) TEMPA=SUM
+      IF (ISAVE == IU) TEMPB=DENOLD
       STEP=ZERO
-      IF (TEMPA .NE. TEMPB) THEN
+      IF (TEMPA /= TEMPB) THEN
           TEMPA=TEMPA-DENMAX
           TEMPB=TEMPB-DENMAX
           STEP=HALF*(TEMPA-TEMPB)/(TEMPA+TEMPB)
       END IF
-      ANGLE=TEMP*(DFLOAT(ISAVE)+STEP)
+      ANGLE=TEMP*(DBLE(ISAVE)+STEP)
 !
 !     Calculate the new parameters of the denominator, the new VLAG vector
 !     and the new D. Then test for convergence.
 !
       PAR(2)=cos(ANGLE)
       PAR(3)=sin(ANGLE)
-      DO 260 J=4,8,2
-      PAR(J)=PAR(2)*PAR(J-2)-PAR(3)*PAR(J-1)
-  260 PAR(J+1)=PAR(2)*PAR(J-1)+PAR(3)*PAR(J-2)
+      DO J=4,8,2
+        PAR(J)=PAR(2)*PAR(J-2)-PAR(3)*PAR(J-1)
+        PAR(J+1)=PAR(2)*PAR(J-1)+PAR(3)*PAR(J-2)
+      END DO
       BETA=ZERO
       DENMAX=ZERO
-      DO 270 J=1,9
-      BETA=BETA+DEN(J)*PAR(J)
-  270 DENMAX=DENMAX+DENEX(J)*PAR(J)
-      DO 280 K=1,NDIM
-      VLAG(K)=ZERO
-      DO 280 J=1,5
-  280 VLAG(K)=VLAG(K)+PROD(K,J)*PAR(J)
+      DO J=1,9
+        BETA=BETA+DEN(J)*PAR(J)
+        DENMAX=DENMAX+DENEX(J)*PAR(J)
+      END DO
+      DO K=1,NDIM
+        VLAG(K)=ZERO
+        DO J=1,5
+            VLAG(K)=VLAG(K)+PROD(K,J)*PAR(J)
+        END DO
+      END DO
       TAU=VLAG(KNEW)
       DD=ZERO
       TEMPA=ZERO
       TEMPB=ZERO
-      DO 290 I=1,N
-      D(I)=PAR(2)*D(I)+PAR(3)*S(I)
-      W(I)=XOPT(I)+D(I)
-      DD=DD+D(I)**2
-      TEMPA=TEMPA+D(I)*W(I)
-  290 TEMPB=TEMPB+W(I)*W(I)
-      IF (ITERC .GE. N) GOTO 340
-      IF (ITERC .GT. 1) DENSAV=DMAX1(DENSAV,DENOLD)
-      IF (DABS(DENMAX) .LE. 1.1D0*DABS(DENSAV)) GOTO 340
+      DO I=1,N
+        D(I)=PAR(2)*D(I)+PAR(3)*S(I)
+        W(I)=XOPT(I)+D(I)
+        DD=DD+D(I)**2
+        TEMPA=TEMPA+D(I)*W(I)
+        TEMPB=TEMPB+W(I)*W(I)
+      END DO
+      IF (ITERC >= N) GOTO 340
+      IF (ITERC > 1) DENSAV=DMAX1(DENSAV,DENOLD)
+      IF (DABS(DENMAX) <= 1.1D0*DABS(DENSAV)) GOTO 340
       DENSAV=DENMAX
 !
 !     Set S to half the gradient of the denominator with respect to D.
 !     Then branch for the next iteration.
 !
-      DO 300 I=1,N
-      TEMP=TEMPA*XOPT(I)+TEMPB*D(I)-VLAG(NPT+I)
-  300 S(I)=TAU*BMAT(KNEW,I)+ALPHA*TEMP
-      DO 320 K=1,NPT
-      SUM=ZERO
-      DO 310 J=1,N
-  310 SUM=SUM+XPT(K,J)*W(J)
-      TEMP=(TAU*W(N+K)-ALPHA*VLAG(K))*SUM
-      DO 320 I=1,N
-  320 S(I)=S(I)+TEMP*XPT(K,I)
+      DO I=1,N
+        TEMP=TEMPA*XOPT(I)+TEMPB*D(I)-VLAG(NPT+I)
+        S(I)=TAU*BMAT(KNEW,I)+ALPHA*TEMP
+      END DO
+      DO K=1,NPT
+        SUM=ZERO
+        DO J=1,N
+            SUM=SUM+XPT(K,J)*W(J)
+        END DO
+        TEMP=(TAU*W(N+K)-ALPHA*VLAG(K))*SUM
+        DO I=1,N
+            S(I)=S(I)+TEMP*XPT(K,I)
+        END DO
+      END DO
       SS=ZERO
       DS=ZERO
-      DO 330 I=1,N
-      SS=SS+S(I)**2
-  330 DS=DS+D(I)*S(I)
+      DO I=1,N
+        SS=SS+S(I)**2
+        DS=DS+D(I)*S(I)
+      END DO
       SSDEN=DD*SS-DS*DS
-      IF (SSDEN .GE. 1.0D-8*DD*SS) GOTO 70
+      IF (SSDEN >= 1.0D-8*DD*SS) GOTO 70
 !
 !     Set the vector W before the RETURN from the subroutine.
 !
-  340 DO 350 K=1,NDIM
+  340 DO K=1,NDIM
       W(K)=ZERO
-      DO 350 J=1,5
-  350 W(K)=W(K)+WVEC(K,J)*PAR(J)
+      DO J=1,5
+         W(K)=W(K)+WVEC(K,J)*PAR(J)
+      END DO
+      END DO
       VLAG(KOPT)=VLAG(KOPT)+ONE
       RETURN
       END SUBROUTINE BIGDEN
       
       
-      SUBROUTINE BIGLAG (N,NPT,XOPT,XPT,BMAT,ZMAT,IDZ,NDIM,KNEW,
-     1  DELTA,D,ALPHA,HCOL,GC,GD,S,W)
-      IMPLICIT REAL*8 (A-H,O-Z)
+      SUBROUTINE BIGLAG (N,NPT,XOPT,XPT,BMAT,ZMAT,IDZ,NDIM,KNEW,DELTA,D,ALPHA,HCOL,GC,GD,S,W)
+      IMPLICIT real(dp) (A-H,O-Z)
       DIMENSION XOPT(*),XPT(NPT,*),BMAT(NDIM,*),ZMAT(NPT,*),D(*),
      1  HCOL(*),GC(*),GD(*),S(*),W(*)
 !
@@ -998,7 +1076,7 @@ SUBROUTINE BIGLAG (N,NPT,XOPT,XPT,BMAT,ZMAT,IDZ,NDIM,KNEW,
 !     HCOL, GC, GD, S and W will be used for working space.
 !
 !     The step D is calculated in a way that attempts to maximize the modulus
-!     of LFUNC(XOPT+D), subject to the bound ||D|| .LE. DELTA, where LFUNC is
+!     of LFUNC(XOPT+D), subject to the bound ||D|| <= DELTA, where LFUNC is
 !     the KNEW-th Lagrange function.
 !
 !     Set some constants.
@@ -1014,35 +1092,42 @@ SUBROUTINE BIGLAG (N,NPT,XOPT,XPT,BMAT,ZMAT,IDZ,NDIM,KNEW,
 !     KNEW-th column of H.
 !
       ITERC=0
-      DO 10 K=1,NPT
-   10 HCOL(K)=ZERO
-      DO 20 J=1,NPTM
-      TEMP=ZMAT(KNEW,J)
-      IF (J .LT. IDZ) TEMP=-TEMP
-      DO 20 K=1,NPT
-   20 HCOL(K)=HCOL(K)+TEMP*ZMAT(K,J)
+      DO K=1,NPT
+         HCOL(K)=ZERO
+      END DO
+      DO J=1,NPTM
+        TEMP=ZMAT(KNEW,J)
+        IF (J < IDZ) TEMP=-TEMP
+        DO K=1,NPT
+            HCOL(K)=HCOL(K)+TEMP*ZMAT(K,J)
+        END DO
+      END DO
       ALPHA=HCOL(KNEW)
 !
 !     Set the unscaled initial direction D. Form the gradient of LFUNC at
 !     XOPT, and multiply D by the second derivative matrix of LFUNC.
 !
       DD=ZERO
-      DO 30 I=1,N
-      D(I)=XPT(KNEW,I)-XOPT(I)
-      GC(I)=BMAT(KNEW,I)
-      GD(I)=ZERO
-   30 DD=DD+D(I)**2
-      DO 50 K=1,NPT
-      TEMP=ZERO
-      SUM=ZERO
-      DO 40 J=1,N
-      TEMP=TEMP+XPT(K,J)*XOPT(J)
-   40 SUM=SUM+XPT(K,J)*D(J)
-      TEMP=HCOL(K)*TEMP
-      SUM=HCOL(K)*SUM
-      DO 50 I=1,N
-      GC(I)=GC(I)+TEMP*XPT(K,I)
-   50 GD(I)=GD(I)+SUM*XPT(K,I)
+      DO I=1,N
+        D(I)=XPT(KNEW,I)-XOPT(I)
+        GC(I)=BMAT(KNEW,I)
+        GD(I)=ZERO
+        DD=DD+D(I)**2
+      END DO
+      DO K=1,NPT
+        TEMP=ZERO
+        SUM=ZERO
+        DO J=1,N
+            TEMP=TEMP+XPT(K,J)*XOPT(J)
+            SUM=SUM+XPT(K,J)*D(J)
+        END DO
+        TEMP=HCOL(K)*TEMP
+        SUM=HCOL(K)*SUM
+        DO I=1,N
+            GC(I)=GC(I)+TEMP*XPT(K,I)
+            GD(I)=GD(I)+SUM*XPT(K,I)
+        END DO
+      END DO
 !
 !     Scale D and GD, with a sign change if required. Set S to another
 !     vector in the initial two dimensional subspace.
@@ -1050,20 +1135,22 @@ SUBROUTINE BIGLAG (N,NPT,XOPT,XPT,BMAT,ZMAT,IDZ,NDIM,KNEW,
       GG=ZERO
       SP=ZERO
       DHD=ZERO
-      DO 60 I=1,N
-      GG=GG+GC(I)**2
-      SP=SP+D(I)*GC(I)
-   60 DHD=DHD+D(I)*GD(I)
+      DO I=1,N
+        GG=GG+GC(I)**2
+        SP=SP+D(I)*GC(I)
+        DHD=DHD+D(I)*GD(I)
+      END DO
       SCALE=DELTA/DSQRT(DD)
-      IF (SP*DHD .LT. ZERO) SCALE=-SCALE
+      IF (SP*DHD < ZERO) SCALE=-SCALE
       TEMP=ZERO
-      IF (SP*SP .GT. 0.99D0*DD*GG) TEMP=ONE
+      IF (SP*SP > 0.99D0*DD*GG) TEMP=ONE
       TAU=SCALE*(DABS(SP)+HALF*SCALE*DABS(DHD))
-      IF (GG*DELSQ .LT. 0.01D0*TAU*TAU) TEMP=ONE
-      DO 70 I=1,N
-      D(I)=SCALE*D(I)
-      GD(I)=SCALE*GD(I)
-   70 S(I)=GC(I)+TEMP*GD(I)
+      IF (GG*DELSQ < 0.01D0*TAU*TAU) TEMP=ONE
+      DO I=1,N
+        D(I)=SCALE*D(I)
+        GD(I)=SCALE*GD(I)
+        S(I)=GC(I)+TEMP*GD(I)
+      END DO
 !
 !     Begin the iteration by overwriting S with a vector that has the
 !     required length and direction, except that termination occurs if
@@ -1073,38 +1160,44 @@ SUBROUTINE BIGLAG (N,NPT,XOPT,XPT,BMAT,ZMAT,IDZ,NDIM,KNEW,
       DD=ZERO
       SP=ZERO
       SS=ZERO
-      DO 90 I=1,N
-      DD=DD+D(I)**2
-      SP=SP+D(I)*S(I)
-   90 SS=SS+S(I)**2
+      DO I=1,N
+        DD=DD+D(I)**2
+        SP=SP+D(I)*S(I)
+        SS=SS+S(I)**2
+      END DO
       TEMP=DD*SS-SP*SP
-      IF (TEMP .LE. 1.0D-8*DD*SS) GOTO 160
+      IF (TEMP <= 1.0D-8*DD*SS) GOTO 160
       DENOM=DSQRT(TEMP)
-      DO 100 I=1,N
-      S(I)=(DD*S(I)-SP*D(I))/DENOM
-  100 W(I)=ZERO
+      DO I=1,N
+         S(I)=(DD*S(I)-SP*D(I))/DENOM
+         W(I)=ZERO
+      END DO
 !
 !     Calculate the coefficients of the objective function on the circle,
 !     beginning with the multiplication of S by the second derivative matrix.
 !
-      DO 120 K=1,NPT
-      SUM=ZERO
-      DO 110 J=1,N
-  110 SUM=SUM+XPT(K,J)*S(J)
-      SUM=HCOL(K)*SUM
-      DO 120 I=1,N
-  120 W(I)=W(I)+SUM*XPT(K,I)
+      DO K=1,NPT
+        SUM=ZERO
+        DO J=1,N
+            SUM=SUM+XPT(K,J)*S(J)
+        END DO
+        SUM=HCOL(K)*SUM
+        DO I=1,N
+            W(I)=W(I)+SUM*XPT(K,I)
+        END DO
+      END DO
       CF1=ZERO
       CF2=ZERO
       CF3=ZERO
       CF4=ZERO
       CF5=ZERO
-      DO 130 I=1,N
-      CF1=CF1+S(I)*W(I)
-      CF2=CF2+D(I)*GC(I)
-      CF3=CF3+S(I)*GC(I)
-      CF4=CF4+D(I)*GD(I)
-  130 CF5=CF5+S(I)*GD(I)
+      DO I=1,N
+        CF1=CF1+S(I)*W(I)
+        CF2=CF2+D(I)*GC(I)
+        CF3=CF3+S(I)*GC(I)
+        CF4=CF4+D(I)*GD(I)
+        CF5=CF5+S(I)*GD(I)
+      END DO
       CF1=HALF*CF1
       CF4=HALF*CF4-CF1
 !
@@ -1115,47 +1208,48 @@ SUBROUTINE BIGLAG (N,NPT,XOPT,XPT,BMAT,ZMAT,IDZ,NDIM,KNEW,
       TAUOLD=TAUBEG
       ISAVE=0
       IU=49
-      TEMP=TWOPI/DFLOAT(IU+1)
-      DO 140 I=1,IU
-      ANGLE=DFLOAT(I)*TEMP
-      CTH=cos(ANGLE)
-      STH=sin(ANGLE)
-      TAU=CF1+(CF2+CF4*CTH)*CTH+(CF3+CF5*CTH)*STH
-      IF (DABS(TAU) .GT. DABS(TAUMAX)) THEN
-          TAUMAX=TAU
-          ISAVE=I
-          TEMPA=TAUOLD
-      ELSE IF (I .EQ. ISAVE+1) THEN
-          TEMPB=TAU
-      END IF
-  140 TAUOLD=TAU
-      IF (ISAVE .EQ. 0) TEMPA=TAU
-      IF (ISAVE .EQ. IU) TEMPB=TAUBEG
+      TEMP=TWOPI/DBLE(IU+1)
+      DO I=1,IU
+        ANGLE=DBLE(I)*TEMP
+        CTH=cos(ANGLE)
+        STH=sin(ANGLE)
+        TAU=CF1+(CF2+CF4*CTH)*CTH+(CF3+CF5*CTH)*STH
+        IF (DABS(TAU) > DABS(TAUMAX)) THEN
+            TAUMAX=TAU
+            ISAVE=I
+            TEMPA=TAUOLD
+        ELSE IF (I == ISAVE+1) THEN
+            TEMPB=TAU
+        END IF
+        TAUOLD=TAU
+      END DO
+      IF (ISAVE == 0) TEMPA=TAU
+      IF (ISAVE == IU) TEMPB=TAUBEG
       STEP=ZERO
-      IF (TEMPA .NE. TEMPB) THEN
+      IF (TEMPA /= TEMPB) THEN
           TEMPA=TEMPA-TAUMAX
           TEMPB=TEMPB-TAUMAX
           STEP=HALF*(TEMPA-TEMPB)/(TEMPA+TEMPB)
       END IF
-      ANGLE=TEMP*(DFLOAT(ISAVE)+STEP)
+      ANGLE=TEMP*(DBLE(ISAVE)+STEP)
 !
 !     Calculate the new D and GD. Then test for convergence.
 !
       CTH=cos(ANGLE)
       STH=sin(ANGLE)
       TAU=CF1+(CF2+CF4*CTH)*CTH+(CF3+CF5*CTH)*STH
-      DO 150 I=1,N
-      D(I)=CTH*D(I)+STH*S(I)
-      GD(I)=CTH*GD(I)+STH*W(I)
-  150 S(I)=GC(I)+GD(I)
-      IF (DABS(TAU) .LE. 1.1D0*DABS(TAUBEG)) GOTO 160
-      IF (ITERC .LT. N) GOTO 80
+      DO I=1,N
+        D(I)=CTH*D(I)+STH*S(I)
+        GD(I)=CTH*GD(I)+STH*W(I)
+        S(I)=GC(I)+GD(I)
+      END DO
+      IF (DABS(TAU) <= 1.1D0*DABS(TAUBEG)) GOTO 160
+      IF (ITERC < N) GOTO 80
   160 RETURN
       END SUBROUTINE BIGLAG
       
-      SUBROUTINE TRSAPP (N,NPT,XOPT,XPT,GQ,HQ,PQ,DELTA,STEP,
-     1  D,G,HD,HS,CRVMIN)
-      IMPLICIT REAL*8 (A-H,O-Z)
+      SUBROUTINE TRSAPP (N,NPT,XOPT,XPT,GQ,HQ,PQ,DELTA,STEP,D,G,HD,HS,CRVMIN)
+      IMPLICIT real(dp) (A-H,O-Z)
       DIMENSION XOPT(*),XPT(NPT,*),GQ(*),HQ(*),PQ(*),STEP(*),
      1  D(*),G(*),HD(*),HS(*)
 !
@@ -1184,22 +1278,24 @@ SUBROUTINE TRSAPP (N,NPT,XOPT,XPT,GQ,HQ,PQ,DELTA,STEP,
       ITERC=0
       ITERMAX=N
       ITERSW=ITERMAX
-      DO 10 I=1,N
-   10 D(I)=XOPT(I)
+      DO I=1,N
+         D(I)=XOPT(I)
+      END DO
       GOTO 170
 !
 !     Prepare for the first line search.
 !
    20 QRED=ZERO
       DD=ZERO
-      DO 30 I=1,N
-      STEP(I)=ZERO
-      HS(I)=ZERO
-      G(I)=GQ(I)+HD(I)
-      D(I)=-G(I)
-   30 DD=DD+D(I)**2
+      DO I=1,N
+        STEP(I)=ZERO
+        HS(I)=ZERO
+        G(I)=GQ(I)+HD(I)
+        D(I)=-G(I)
+        DD=DD+D(I)**2
+      END DO
       CRVMIN=ZERO
-      IF (DD .EQ. ZERO) GOTO 160
+      IF (DD == ZERO) GOTO 160
       DS=ZERO
       SS=ZERO
       GG=DD
@@ -1212,15 +1308,16 @@ SUBROUTINE TRSAPP (N,NPT,XOPT,XPT,GQ,HQ,PQ,DELTA,STEP,
       BSTEP=TEMP/(DS+DSQRT(DS*DS+DD*TEMP))
       GOTO 170
    50 DHD=ZERO
-      DO 60 J=1,N
-   60 DHD=DHD+D(J)*HD(J)
+      DO J=1,N
+         DHD=DHD+D(J)*HD(J)
+      END DO
 !
 !     Update CRVMIN and set the step-length ALPHA.
 !
       ALPHA=BSTEP
-      IF (DHD .GT. ZERO) THEN
+      IF (DHD > ZERO) THEN
           TEMP=DHD/DD
-          IF (ITERC .EQ. 1) CRVMIN=TEMP
+          IF (ITERC == 1) CRVMIN=TEMP
           CRVMIN=DMIN1(CRVMIN,TEMP)
           ALPHA=DMIN1(ALPHA,GG/DHD)
       END IF
@@ -1231,43 +1328,46 @@ SUBROUTINE TRSAPP (N,NPT,XOPT,XPT,GQ,HQ,PQ,DELTA,STEP,
 !
       GGSAV=GG
       GG=ZERO
-      DO 70 I=1,N
-      STEP(I)=STEP(I)+ALPHA*D(I)
-      HS(I)=HS(I)+ALPHA*HD(I)
-   70 GG=GG+(G(I)+HS(I))**2
+      DO I=1,N
+        STEP(I)=STEP(I)+ALPHA*D(I)
+        HS(I)=HS(I)+ALPHA*HD(I)
+        GG=GG+(G(I)+HS(I))**2
+      END DO
 !
 !     Begin another conjugate direction iteration if required.
 !
-      IF (ALPHA .LT. BSTEP) THEN
-          IF (QADD .LE. 0.01D0*QRED) GOTO 160
-          IF (GG .LE. 1.0D-4*GGBEG) GOTO 160
-          IF (ITERC .EQ. ITERMAX) GOTO 160
+      IF (ALPHA < BSTEP) THEN
+          IF (QADD <= 0.01D0*QRED) GOTO 160
+          IF (GG <= 1.0D-4*GGBEG) GOTO 160
+          IF (ITERC == ITERMAX) GOTO 160
           TEMP=GG/GGSAV
           DD=ZERO
           DS=ZERO
           SS=ZERO
-          DO 80 I=1,N
-          D(I)=TEMP*D(I)-G(I)-HS(I)
-          DD=DD+D(I)**2
-          DS=DS+D(I)*STEP(I)
-   80     SS=SS+STEP(I)**2
-          IF (DS .LE. ZERO) GOTO 160
-          IF (SS .LT. DELSQ) GOTO 40
+          DO I=1,N
+            D(I)=TEMP*D(I)-G(I)-HS(I)
+            DD=DD+D(I)**2
+            DS=DS+D(I)*STEP(I)
+            SS=SS+STEP(I)**2
+          END DO
+          IF (DS <= ZERO) GOTO 160
+          IF (SS < DELSQ) GOTO 40
       END IF
       CRVMIN=ZERO
       ITERSW=ITERC
 !
 !     Test whether an alternative iteration is required.
 !
-   90 IF (GG .LE. 1.0D-4*GGBEG) GOTO 160
+   90 IF (GG <= 1.0D-4*GGBEG) GOTO 160
       SG=ZERO
       SHS=ZERO
-      DO 100 I=1,N
-      SG=SG+STEP(I)*G(I)
-  100 SHS=SHS+STEP(I)*HS(I)
+      DO I=1,N
+         SG=SG+STEP(I)*G(I)
+         SHS=SHS+STEP(I)*HS(I)
+      END DO
       SGK=SG+SHS
       ANGTEST=SGK/DSQRT(GG*DELSQ)
-      IF (ANGTEST .LE. -0.99D0) GOTO 160
+      IF (ANGTEST <= -0.99D0) GOTO 160
 !
 !     Begin the alternative iteration by calculating D and HD and some
 !     scalar products.
@@ -1276,16 +1376,18 @@ SUBROUTINE TRSAPP (N,NPT,XOPT,XPT,GQ,HQ,PQ,DELTA,STEP,
       TEMP=DSQRT(DELSQ*GG-SGK*SGK)
       TEMPA=DELSQ/TEMP
       TEMPB=SGK/TEMP
-      DO 110 I=1,N
-  110 D(I)=TEMPA*(G(I)+HS(I))-TEMPB*STEP(I)
+      DO I=1,N
+         D(I)=TEMPA*(G(I)+HS(I))-TEMPB*STEP(I)
+      END DO
       GOTO 170
   120 DG=ZERO
       DHD=ZERO
       DHS=ZERO
-      DO 130 I=1,N
-      DG=DG+D(I)*G(I)
-      DHD=DHD+HD(I)*D(I)
-  130 DHS=DHS+HD(I)*STEP(I)
+      DO I=1,N
+        DG=DG+D(I)*G(I)
+        DHD=DHD+HD(I)*D(I)
+        DHS=DHS+HD(I)*STEP(I)
+      END DO
 !
 !     Seek the value of the angle that minimizes Q.
 !
@@ -1295,29 +1397,30 @@ SUBROUTINE TRSAPP (N,NPT,XOPT,XPT,GQ,HQ,PQ,DELTA,STEP,
       QMIN=QBEG
       ISAVE=0
       IU=49
-      TEMP=TWOPI/DFLOAT(IU+1)
-      DO 140 I=1,IU
-      ANGLE=DFLOAT(I)*TEMP
-      CTH=cos(ANGLE)
-      STH=sin(ANGLE)
-      QNEW=(SG+CF*CTH)*CTH+(DG+DHS*CTH)*STH
-      IF (QNEW .LT. QMIN) THEN
-          QMIN=QNEW
-          ISAVE=I
-          TEMPA=QSAV
-      ELSE IF (I .EQ. ISAVE+1) THEN
-          TEMPB=QNEW
-      END IF
-  140 QSAV=QNEW
-      IF (ISAVE .EQ. ZERO) TEMPA=QNEW
-      IF (ISAVE .EQ. IU) TEMPB=QBEG
+      TEMP=TWOPI/DBLE(IU+1)
+      DO I=1,IU
+        ANGLE=DBLE(I)*TEMP
+        CTH=cos(ANGLE)
+        STH=sin(ANGLE)
+        QNEW=(SG+CF*CTH)*CTH+(DG+DHS*CTH)*STH
+        IF (QNEW < QMIN) THEN
+            QMIN=QNEW
+            ISAVE=I
+            TEMPA=QSAV
+        ELSE IF (I == ISAVE+1) THEN
+            TEMPB=QNEW
+        END IF
+        QSAV=QNEW
+      END DO
+      IF (ISAVE == ZERO) TEMPA=QNEW
+      IF (ISAVE == IU) TEMPB=QBEG
       ANGLE=ZERO
-      IF (TEMPA .NE. TEMPB) THEN
+      IF (TEMPA /= TEMPB) THEN
           TEMPA=TEMPA-QMIN
           TEMPB=TEMPB-QMIN
           ANGLE=HALF*(TEMPA-TEMPB)/(TEMPA+TEMPB)
       END IF
-      ANGLE=TEMP*(DFLOAT(ISAVE)+ANGLE)
+      ANGLE=TEMP*(DBLE(ISAVE)+ANGLE)
 !
 !     Calculate the new STEP and HS. Then test for convergence.
 !
@@ -1325,13 +1428,14 @@ SUBROUTINE TRSAPP (N,NPT,XOPT,XPT,GQ,HQ,PQ,DELTA,STEP,
       STH=sin(ANGLE)
       REDUC=QBEG-(SG+CF*CTH)*CTH-(DG+DHS*CTH)*STH
       GG=ZERO
-      DO 150 I=1,N
-      STEP(I)=CTH*STEP(I)+STH*D(I)
-      HS(I)=CTH*HS(I)+STH*HD(I)
-  150 GG=GG+(G(I)+HS(I))**2
+      DO I=1,N
+        STEP(I)=CTH*STEP(I)+STH*D(I)
+        HS(I)=CTH*HS(I)+STH*HD(I)
+        GG=GG+(G(I)+HS(I))**2
+      END DO
       QRED=QRED+REDUC
       RATIO=REDUC/QRED
-      IF (ITERC .LT. ITERMAX .AND. RATIO .GT. 0.01D0) GOTO 90
+      IF (ITERC < ITERMAX .AND. RATIO > 0.01D0) GOTO 90
   160 RETURN
 !
 !     The following instructions act as a subroutine for setting the vector
@@ -1339,28 +1443,34 @@ SUBROUTINE TRSAPP (N,NPT,XOPT,XPT,GQ,HQ,PQ,DELTA,STEP,
 !     They are called from three different places, which are distinguished
 !     by the value of ITERC.
 !
-  170 DO 180 I=1,N
-  180 HD(I)=ZERO
-      DO 200 K=1,NPT
-      TEMP=ZERO
-      DO 190 J=1,N
-  190 TEMP=TEMP+XPT(K,J)*D(J)
-      TEMP=TEMP*PQ(K)
-      DO 200 I=1,N
-  200 HD(I)=HD(I)+TEMP*XPT(K,I)
+  170 DO I=1,N
+         HD(I)=ZERO
+      END DO
+      DO K=1,NPT
+        TEMP=ZERO
+        DO J=1,N
+           TEMP=TEMP+XPT(K,J)*D(J)
+        END DO
+        TEMP=TEMP*PQ(K)
+        DO I=1,N
+           HD(I)=HD(I)+TEMP*XPT(K,I)
+        END DO
+      END DO
       IH=0
-      DO 210 J=1,N
-      DO 210 I=1,J
-      IH=IH+1
-      IF (I .LT. J) HD(J)=HD(J)+HQ(IH)*D(I)
-  210 HD(I)=HD(I)+HQ(IH)*D(J)
-      IF (ITERC .EQ. 0) GOTO 20
-      IF (ITERC .LE. ITERSW) GOTO 50
+      DO J=1,N
+        DO I=1,J
+        IH=IH+1
+        IF (I < J) HD(J)=HD(J)+HQ(IH)*D(I)
+           HD(I)=HD(I)+HQ(IH)*D(J)
+        END DO
+      END DO
+      IF (ITERC == 0) GOTO 20
+      IF (ITERC <= ITERSW) GOTO 50
       GOTO 120
       END SUBROUTINE TRSAPP
 
       SUBROUTINE UPDATE (N,NPT,BMAT,ZMAT,IDZ,NDIM,VLAG,BETA,KNEW,W)
-      IMPLICIT REAL*8 (A-H,O-Z)
+      IMPLICIT real(dp) (A-H,O-Z)
       DIMENSION BMAT(NDIM,*),ZMAT(NPT,*),VLAG(*),W(*)
 !
 !     The arrays BMAT and ZMAT with IDZ are updated, in order to shift the
@@ -1378,31 +1488,32 @@ SUBROUTINE UPDATE (N,NPT,BMAT,ZMAT,IDZ,NDIM,VLAG,BETA,KNEW,W)
 !     Apply the rotations that put zeros in the KNEW-th row of ZMAT.
 !
       JL=1
-      DO 20 J=2,NPTM
-      IF (J .EQ. IDZ) THEN
-          JL=IDZ
-      ELSE IF (ZMAT(KNEW,J) .NE. ZERO) THEN
-          TEMP=DSQRT(ZMAT(KNEW,JL)**2+ZMAT(KNEW,J)**2)
-          TEMPA=ZMAT(KNEW,JL)/TEMP
-          TEMPB=ZMAT(KNEW,J)/TEMP
-          DO 10 I=1,NPT
-          TEMP=TEMPA*ZMAT(I,JL)+TEMPB*ZMAT(I,J)
-          ZMAT(I,J)=TEMPA*ZMAT(I,J)-TEMPB*ZMAT(I,JL)
-   10     ZMAT(I,JL)=TEMP
-          ZMAT(KNEW,J)=ZERO
-      END IF
-   20 CONTINUE
+      DO J=2,NPTM
+        IF (J == IDZ) THEN
+            JL=IDZ
+        ELSE IF (ZMAT(KNEW,J) /= ZERO) THEN
+            TEMP=DSQRT(ZMAT(KNEW,JL)**2+ZMAT(KNEW,J)**2)
+            TEMPA=ZMAT(KNEW,JL)/TEMP
+            TEMPB=ZMAT(KNEW,J)/TEMP
+            DO I=1,NPT
+               TEMP=TEMPA*ZMAT(I,JL)+TEMPB*ZMAT(I,J)
+               ZMAT(I,J)=TEMPA*ZMAT(I,J)-TEMPB*ZMAT(I,JL)
+               ZMAT(I,JL)=TEMP
+            END DO
+            ZMAT(KNEW,J)=ZERO
+        END IF
+      END DO
 !
 !     Put the first NPT components of the KNEW-th column of HLAG into W,
 !     and calculate the parameters of the updating formula.
 !
       TEMPA=ZMAT(KNEW,1)
-      IF (IDZ .GE. 2) TEMPA=-TEMPA
-      IF (JL .GT. 1) TEMPB=ZMAT(KNEW,JL)
-      DO 30 I=1,NPT
-      W(I)=TEMPA*ZMAT(I,1)
-      IF (JL .GT. 1) W(I)=W(I)+TEMPB*ZMAT(I,JL)
-   30 CONTINUE
+      IF (IDZ >= 2) TEMPA=-TEMPA
+      IF (JL > 1) TEMPB=ZMAT(KNEW,JL)
+      DO I=1,NPT
+        W(I)=TEMPA*ZMAT(I,1)
+        IF (JL > 1) W(I)=W(I)+TEMPB*ZMAT(I,JL)
+      END DO
       ALPHA=W(KNEW)
       TAU=VLAG(KNEW)
       TAUSQ=TAU*TAU
@@ -1414,20 +1525,21 @@ SUBROUTINE UPDATE (N,NPT,BMAT,ZMAT,IDZ,NDIM,VLAG,BETA,KNEW,W)
 !     then the first column of ZMAT will be exchanged with another one later.
 !
       IFLAG=0
-      IF (JL .EQ. 1) THEN
+      IF (JL == 1) THEN
           TEMP=DSQRT(DABS(DENOM))
           TEMPB=TEMPA/TEMP
           TEMPA=TAU/TEMP
-          DO 40 I=1,NPT
-   40     ZMAT(I,1)=TEMPA*ZMAT(I,1)-TEMPB*VLAG(I)
-          IF (IDZ .EQ. 1 .AND. TEMP .LT. ZERO) IDZ=2
-          IF (IDZ .GE. 2 .AND. TEMP .GE. ZERO) IFLAG=1
+          DO I=1,NPT
+             ZMAT(I,1)=TEMPA*ZMAT(I,1)-TEMPB*VLAG(I)
+          END DO
+          IF (IDZ == 1 .AND. TEMP < ZERO) IDZ=2
+          IF (IDZ >= 2 .AND. TEMP >= ZERO) IFLAG=1
       ELSE
 !
 !     Complete the updating of ZMAT in the alternative case.
 !
           JA=1
-          IF (BETA .GE. ZERO) JA=JL
+          IF (BETA >= ZERO) JA=JL
           JB=JL+1-JA
           TEMP=ZMAT(KNEW,JB)/DENOM
           TEMPA=TEMP*BETA
@@ -1435,41 +1547,42 @@ SUBROUTINE UPDATE (N,NPT,BMAT,ZMAT,IDZ,NDIM,VLAG,BETA,KNEW,W)
           TEMP=ZMAT(KNEW,JA)
           SCALA=ONE/DSQRT(DABS(BETA)*TEMP*TEMP+TAUSQ)
           SCALB=SCALA*DSQRT(DABS(DENOM))
-          DO 50 I=1,NPT
-          ZMAT(I,JA)=SCALA*(TAU*ZMAT(I,JA)-TEMP*VLAG(I))
-   50     ZMAT(I,JB)=SCALB*(ZMAT(I,JB)-TEMPA*W(I)-TEMPB*VLAG(I))
-          IF (DENOM .LE. ZERO) THEN
-              IF (BETA .LT. ZERO) IDZ=IDZ+1
-              IF (BETA .GE. ZERO) IFLAG=1
+          DO I=1,NPT
+             ZMAT(I,JA)=SCALA*(TAU*ZMAT(I,JA)-TEMP*VLAG(I))
+             ZMAT(I,JB)=SCALB*(ZMAT(I,JB)-TEMPA*W(I)-TEMPB*VLAG(I))
+          END DO
+          IF (DENOM <= ZERO) THEN
+              IF (BETA < ZERO) IDZ=IDZ+1
+              IF (BETA >= ZERO) IFLAG=1
           END IF
       END IF
 !
 !     IDZ is reduced in the following case, and usually the first column
 !     of ZMAT is exchanged with a later one.
 !
-      IF (IFLAG .EQ. 1) THEN
+      IF (IFLAG == 1) THEN
           IDZ=IDZ-1
-          DO 60 I=1,NPT
-          TEMP=ZMAT(I,1)
-          ZMAT(I,1)=ZMAT(I,IDZ)
-   60     ZMAT(I,IDZ)=TEMP
+          DO I=1,NPT
+            TEMP=ZMAT(I,1)
+            ZMAT(I,1)=ZMAT(I,IDZ)
+            ZMAT(I,IDZ)=TEMP
+          END DO
       END IF
 !
 !     Finally, update the matrix BMAT.
 !
-      DO 70 J=1,N
-      JP=NPT+J
-      W(JP)=BMAT(KNEW,J)
-      TEMPA=(ALPHA*VLAG(JP)-TAU*W(JP))/DENOM
-      TEMPB=(-BETA*W(JP)-TAU*VLAG(JP))/DENOM
-      DO 70 I=1,JP
-      BMAT(I,J)=BMAT(I,J)+TEMPA*VLAG(I)+TEMPB*W(I)
-      IF (I .GT. NPT) BMAT(JP,I-NPT)=BMAT(I,J)
-   70 CONTINUE
+      DO J=1,N
+        JP=NPT+J
+        W(JP)=BMAT(KNEW,J)
+        TEMPA=(ALPHA*VLAG(JP)-TAU*W(JP))/DENOM
+        TEMPB=(-BETA*W(JP)-TAU*VLAG(JP))/DENOM
+        DO I=1,JP
+            BMAT(I,J)=BMAT(I,J)+TEMPA*VLAG(I)+TEMPB*W(I)
+            IF (I > NPT) BMAT(JP,I-NPT)=BMAT(I,J)
+        END DO
+      END DO
       RETURN
       END SUBROUTINE UPDATE
       
-      
 
       end module mod_newuoa
-
diff --git a/num/private/mod_rosenbrock.f b/num/private/mod_rosenbrock.f
index 83d61797b..277e22b60 100644
--- a/num/private/mod_rosenbrock.f
+++ b/num/private/mod_rosenbrock.f
@@ -341,7 +341,7 @@ subroutine coeffs (ns,ra,rc,rd,ros_d,ros_m,ros_e,ros_alpha,
                real(dp), intent(inout) :: ros_alpha(ns), ros_gamma(ns)
                integer, intent(out) :: ros_elo
                logical, intent(out) :: no_aux_in_error, ros_newf(ns)
-               character*12, intent(out) :: ros_name
+               character (len=12), intent(out) :: ros_name
             end subroutine coeffs
          end interface
 #include "rodas_args.dek"
@@ -351,6 +351,10 @@ end subroutine coeffs
       real(dp), intent(in) :: y_min, y_max
       real(dp), pointer, dimension(:) :: p1, p2, p3, p4, p5
       integer, pointer, dimension(:) :: ip1
+      integer :: i, iedy, iedy1, iecon, ieak
+      integer :: ieia, iefx, iee, iemas, iejac, ieja, ieip, ieynew, iesj, iesa, ierr
+      integer :: ijob, lde, ldjac, ldmas, ldmas2, m1, m2, meth
+      integer :: nm1, njac, nfcn, nerror, ndec, naccpt, nsol, nstep, nmax, nrejct
       mljac = mljac_in; mujac = mujac_in
 ! *** *** *** *** *** *** ***
 !        setting the parameters 
@@ -638,6 +642,8 @@ subroutine roscor(
 !         declarations 
 ! ---------------------------------------------------------- 
       implicit real(dp) (a-h,o-z)
+      integer :: n, itol, ijac, isparse, mljac, mujac, idfx, mlmas, mumas, iout, idid, nmax, meth, ijob,
+     &           ldjac, lde, ldmas, m1, m2, nm1, nerror, nfcn, njac, nstep, naccpt, nrejct, ndec, nsol, lout
        interface
          real(dp) function contro(i,x,rwork,iwork,ierr)
             use const_def, only: dp
@@ -656,7 +662,7 @@ subroutine coeffs (ns,ra,rc,rd,ros_d,ros_m,ros_e,ros_alpha,
             real(dp), intent(inout) :: ros_alpha(ns), ros_gamma(ns)
             integer, intent(out) :: ros_elo
             logical, intent(out) :: no_aux_in_error, ros_newf(ns)
-            character*12, intent(out) :: ros_name
+            character (len=12), intent(out) :: ros_name
          end subroutine coeffs
 #include "num_solout.dek"
 #include "num_mas.dek"
@@ -682,7 +688,7 @@ end subroutine coeffs
       real(dp) :: ros_alpha(ns), ros_gamma(ns)
       integer :: ros_elo
       logical :: ros_newf(ns)
-      character*12 :: ros_name
+      character (len=12) :: ros_name
       
       ! args
       integer, intent(inout), pointer :: ipar(:) ! (lipar)
@@ -694,7 +700,7 @@ end subroutine coeffs
       
       dimension fx(n),fjac(ldjac,n),fmas(ldmas,nm1),atol(*),rtol(*)
      
-      integer iwork(2)
+      integer :: iwork(2)
       real(dp), target :: rwork(2+5*n)
       real(dp), intent(inout), pointer :: rpar_decsol(:) ! (lrd)
       integer, intent(inout), pointer :: ipar_decsol(:) ! (lid)
@@ -708,8 +714,12 @@ end subroutine coeffs
       logical reject,autnms,implct,banded,last,pred,not_stage1,no_aux_in_error,need_free
       real(dp), pointer :: cont(:), dy2(:)
       real(dp) :: hprev, rd32
-      integer :: i, j
-      
+      integer :: i, j, k, l, j1, is
+      integer :: lrc, lbeg, lend, irtrn
+      integer :: mbb, mbdiag, mbjac, md, mdiag, mdiff, mle, mm, mue, mujacj, mujacp
+      integer :: nsing, nn, nn2, nn3, nn4
+      integer :: ierr, ier
+  
       real(dp), pointer :: ak(:,:), e(:,:), p1(:)
       ak(1:n,1:ns) => ak1(1:n*ns)
       e(1:lde,1:nm1) => e1(1:lde*nm1)
@@ -1087,7 +1097,7 @@ end subroutine coeffs
 ! --- step is accepted  
          naccpt=naccpt+1
          if (pred) then
-c       --- predictive controller of gustafsson
+!      --- predictive controller of gustafsson
             if (naccpt.gt.1) then
                facgus=(hacc/h)*pow(err**2/erracc,eloi)/safe
                facgus=max(fac2,min(fac1,facgus))
@@ -1230,7 +1240,7 @@ subroutine ros2_coeffs (ns,ra,rc,rd,ros_d,ros_m,ros_e,ros_alpha,
       real(dp), intent(inout) :: ros_alpha(ns), ros_gamma(ns)
       integer, intent(out) :: ros_elo
       logical, intent(out) :: no_aux_in_error, ros_newf(ns)
-      character*12, intent(out) :: ros_name
+      character (len=12), intent(out) :: ros_name
       
       real(dp) :: g
        no_aux_in_error = .true.
@@ -1286,7 +1296,7 @@ subroutine rose2_coeffs (ns,ra,rc,rd,ros_d,ros_m,ros_e,ros_alpha,
       real(dp), intent(inout) :: ros_alpha(ns), ros_gamma(ns)
       integer, intent(out) :: ros_elo
       logical, intent(out) :: no_aux_in_error, ros_newf(ns)
-      character*12, intent(out) :: ros_name
+      character (len=12), intent(out) :: ros_name
       real(dp) :: g, e32
       real(dp), parameter :: sqrt2 = 1.4142135623731d0 ! sqrt(2d0)
        no_aux_in_error = .true.
@@ -1362,7 +1372,7 @@ subroutine ros3p_coeffs (ns,ra,rc,rd,ros_d,ros_m,ros_e,ros_alpha,
       real(dp), intent(inout) :: ros_alpha(ns), ros_gamma(ns)
       integer, intent(out) :: ros_elo
       logical, intent(out) :: no_aux_in_error, ros_newf(ns)
-      character*12, intent(out) :: ros_name
+      character (len=12), intent(out) :: ros_name
       no_aux_in_error = .true.
 !~~~> name of the method
       ros_name = 'ros3p'      
@@ -1425,7 +1435,7 @@ subroutine ros3pl_coeffs (ns,ra,rc,rd,ros_d,ros_m,ros_e,ros_alpha,
       real(dp), intent(inout) :: ros_alpha(ns), ros_gamma(ns)
       integer, intent(out) :: ros_elo
       logical, intent(out) :: no_aux_in_error, ros_newf(ns)
-      character*12, intent(out) :: ros_name
+      character (len=12), intent(out) :: ros_name
       no_aux_in_error = .true.
 !~~~> name of the method
       ros_name = 'ros3pl'      
@@ -1509,7 +1519,7 @@ subroutine rodas3_coeffs (ns,ra,rc,rd,ros_d,ros_m,ros_e,ros_alpha,
       real(dp), intent(inout) :: ros_alpha(ns), ros_gamma(ns)
       integer, intent(out) :: ros_elo
       logical, intent(out) :: no_aux_in_error, ros_newf(ns)
-      character*12, intent(out) :: ros_name
+      character (len=12), intent(out) :: ros_name
       ra = 0
       rc = 0
       rd = 0
@@ -1587,7 +1597,7 @@ subroutine rodas4_coeffs (ns,ra,rc,rd,ros_d,ros_m,ros_e,ros_alpha,
       real(dp), intent(inout) :: ros_alpha(ns), ros_gamma(ns)
       integer, intent(out) :: ros_elo
       logical, intent(out) :: no_aux_in_error, ros_newf(ns)
-      character*12, intent(out) :: ros_name
+      character (len=12), intent(out) :: ros_name
       
       no_aux_in_error = .false.
       rd = 0
@@ -1705,7 +1715,7 @@ subroutine rodasp_coeffs (ns,ra,rc,rd,ros_d,ros_m,ros_e,ros_alpha,
       real(dp), intent(inout) :: ros_alpha(ns), ros_gamma(ns)
       integer, intent(out) :: ros_elo
       logical, intent(out) :: no_aux_in_error, ros_newf(ns)
-      character*12, intent(out) :: ros_name
+      character (len=12), intent(out) :: ros_name
       no_aux_in_error = .false.
       rd = 0
 !~~~> name of the method
diff --git a/num/private/mod_simplex.f90 b/num/private/mod_simplex.f90
index 979ea4dab..eeb9d061f 100644
--- a/num/private/mod_simplex.f90
+++ b/num/private/mod_simplex.f90
@@ -65,9 +65,9 @@ subroutine do_simplex( &
             num_fcn_calls_for_ars, num_accepted_for_ars, ierr
          
          real(dp), dimension(n) :: c, x_reflect, x_expand, x_contract, x_ars
-         real(dp) :: f_reflect, f_expand, f_contract, f_ars, rand01, dist, min_dist, &
-            dx, term1, xmid, weight, sum_weight, term_val_x
-         integer :: h, s, l, i, j, k, iter, min_k
+         real(dp) :: f_reflect, f_expand, f_contract, f_ars, &
+            term1, weight, sum_weight, term_val_x
+         integer :: h, s, l, i, j
          
          logical, parameter :: dbg = .false.
          
diff --git a/num/private/slvrad.dek b/num/private/slvrad.dek
index 2c6ab7678..53c2e9373 100644
--- a/num/private/slvrad.dek
+++ b/num/private/slvrad.dek
@@ -11,19 +11,19 @@
 #include "mtx_decsolc.dek"
 #include"mtx_decsolcs.dek"
       end interface
+      integer :: ldjac, mljac, mujac, ldmas, mlmas, mumas, m1, m2, nm1, lde1, ier, ijob
+      integer :: n, mle, mue, mbjac, mbb, mdiag, mdiff, mbdiag, nzmax, isparse, lcd, lrd, lid
+      integer :: iphes(n)
       integer :: ia(:) ! (n+1)
       integer :: ja(:) ! (nzmax)
       double precision :: sa(nzmax), sar(nzmax), sai(nzmax)
-      complex*16, intent(inout), pointer :: cpar_decsol(:) ! (lcd)
+      complex(dp), intent(inout), pointer :: cpar_decsol(:) ! (lcd)
       real(dp), intent(inout), pointer :: rpar_decsol(:) ! (lrd)
       integer, intent(inout), pointer :: ipar_decsol(:) ! (lid)
       double precision :: fjac(ldjac,n), fmas(ldmas,nm1), fac1, alphn, betan
       double precision, pointer :: e1_1D(:)
       double precision :: e2r(lde1,nm1), e2i(lde1,nm1), cont(n)
       double precision, pointer, dimension(:) :: z1, z2, z3, f1, f2, f3 ! (n)
-      integer :: ldjac, mljac, mujac, ldmas, mlmas, mumas, m1, m2, nm1, lde1, ier, ijob
-      integer :: n, mle, mue, mbjac, mbb, mdiag, mdiff, mbdiag, nzmax, isparse, lcd, lrd, lid
-      integer :: iphes(n)
       integer, pointer, dimension(:) :: ip1, ip2 ! (nm1)
       
       
@@ -40,11 +40,11 @@
 
 
       goto (1,2,3,4,5,6,55,8,9,55,11,12,13,13,15), ijob
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    1  continue
-c ---  b=identity, jacobian a full matrix
+! ---  b=identity, jacobian a full matrix
       do i=1,n
          s2=-f2(i)
          s3=-f3(i)
@@ -55,11 +55,11 @@ c ---  b=identity, jacobian a full matrix
       call decsol(1,n,lde1,e1_1D,n,n,z1,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       call decsolc(1,n,lde1,e2r,e2i,n,n,z2,z3,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    8  continue
-c ---  b=identity, jacobian a sparse matrix
+! ---  b=identity, jacobian a sparse matrix
       do i=1,n
          s2=-f2(i)
          s3=-f3(i)
@@ -70,11 +70,11 @@ c ---  b=identity, jacobian a sparse matrix
       call decsols(1,n,nzmax,ia,ja,sa,z1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       call decsolcs(1,n,nzmax,ia,ja,sar,sai,z2,z3,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   11  continue
-c ---  b=identity, jacobian a full matrix, second order
+! ---  b=identity, jacobian a full matrix, second order
       do i=1,n
          s2=-f2(i)
          s3=-f3(i)
@@ -115,11 +115,11 @@ c ---  b=identity, jacobian a full matrix, second order
          z2(i)=(z2i*alphn+z3i*betan)/abno
       end do
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    2  continue
-c ---  b=identity, jacobian a banded matrix
+! ---  b=identity, jacobian a banded matrix
       do i=1,n
          s2=-f2(i)
          s3=-f3(i)
@@ -130,11 +130,11 @@ c ---  b=identity, jacobian a banded matrix
       call decsol(1,n,lde1,e1_1D,mle,mue,z1,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       call decsolc(1,n,lde1,e2r,e2i,mle,mue,z2,z3,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   12  continue
-c ---  b=identity, jacobian a banded matrix, second order
+! ---  b=identity, jacobian a banded matrix, second order
       do i=1,n
          s2=-f2(i)
          s3=-f3(i)
@@ -167,11 +167,11 @@ c ---  b=identity, jacobian a banded matrix, second order
       call decsol(1,nm1,lde1,e1_1D,mle,mue,p1,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       call decsolc(1,nm1,lde1,e2r,e2i,mle,mue,p2,p3,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ier)
       goto 49
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    3  continue
-c ---  b is a banded matrix, jacobian a full matrix
+! ---  b is a banded matrix, jacobian a full matrix
       do i=1,n
          s1=0.0d0
          s2=0.0d0
@@ -189,11 +189,11 @@ c ---  b is a banded matrix, jacobian a full matrix
       call decsol(1,n,lde1,e1_1D,n,n,z1,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       call decsolc(1,n,lde1,e2r,e2i,n,n,z2,z3,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    9  continue
-c ---  b is a banded matrix, jacobian a sparse matrix
+! ---  b is a banded matrix, jacobian a sparse matrix
       do i=1,n
          s1=0.0d0
          s2=0.0d0
@@ -214,11 +214,11 @@ c ---  b is a banded matrix, jacobian a sparse matrix
       call decsolcs(1,n,nzmax,ia,ja,sar,sai,z2,z3,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ier)
       !write(*,*) 'slvrad back decsols'
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   13  continue
-c ---  b is a banded matrix, jacobian a full matrix, second order
+! ---  b is a banded matrix, jacobian a full matrix, second order
       do i=1,m1
          s2=-f2(i)
          s3=-f3(i)
@@ -246,11 +246,11 @@ c ---  b is a banded matrix, jacobian a full matrix, second order
       end do
       if (ijob.eq.14) goto 45
       goto 48
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    4  continue
-c ---  b is a banded matrix, jacobian a banded matrix
+! ---  b is a banded matrix, jacobian a banded matrix
       do i=1,n
          s1=0.0d0
          s2=0.0d0
@@ -268,11 +268,11 @@ c ---  b is a banded matrix, jacobian a banded matrix
       call decsol(1,n,lde1,e1_1D,mle,mue,z1,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       call decsolc(1,n,lde1,e2r,e2i,mle,mue,z2,z3,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    5  continue
-c ---  b is a full matrix, jacobian a full matrix
+! ---  b is a full matrix, jacobian a full matrix
       do i=1,n
          s1=0.0d0
          s2=0.0d0
@@ -290,11 +290,11 @@ c ---  b is a full matrix, jacobian a full matrix
       call decsol(1,n,lde1,e1_1D,n,n,z1,ip1,lrd,rpar_decsol,lid,ipar_decsol,ier)
       call decsolc(1,n,lde1,e2r,e2i,n,n,z2,z3,ip2,lcd,cpar_decsol,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   15  continue
-c ---  b is a full matrix, jacobian a full matrix, second order
+! ---  b is a full matrix, jacobian a full matrix, second order
       do i=1,m1
          s2=-f2(i)
          s3=-f3(i)
@@ -319,16 +319,16 @@ c ---  b is a full matrix, jacobian a full matrix, second order
          z3(im1)=z3(im1)+s3*alphn+s2*betan
       end do
       goto 48
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    6  continue
-c ---  b is a full matrix, jacobian a banded matrix
-c ---  this option is not provided
+! ---  b is a full matrix, jacobian a banded matrix
+! ---  this option is not provided
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   55  continue
        write(*,*) 'slvrad: invalid ijob', ijob
        call mesa_error(__FILE__,__LINE__) ! slvrad
diff --git a/num/private/slvrod.dek b/num/private/slvrod.dek
index 6da822033..8c9e8399e 100644
--- a/num/private/slvrod.dek
+++ b/num/private/slvrod.dek
@@ -1,5 +1,5 @@
-c ***********************************************************
-c
+! ***********************************************************
+!
       subroutine slvrod(n,fjac,ldjac,mljac,mujac,fmas,ldmas,mlmas,mumas,
      &          m1,m2,nm1,fac1,e_1D,lde,ip,dy,ak,fx,ynew,hd,ijob,not_stage1,
      &          mle,mue,mbjac,mbb,mdiag,mdiff,mbdiag,
@@ -32,16 +32,16 @@ c
       real(dp), pointer :: e_1D(:) ! =(lde,nm1)
       
       ! LOCALS
-      integer :: i, j, mm, k, jkm, im1
+      integer :: i, j
       real(dp) :: sum
-      real(dp), pointer :: ptr(:), r1(:)
+      real(dp), pointer :: r1(:)
       real(dp), target, dimension(nvar*nz) :: x0_ary, b_ary, r_ary, Ax0_ary
       real(dp), pointer, dimension(:,:) :: ak2, x0, b, r, Ax0
       real(dp), pointer, dimension(:,:,:) :: uf_lblk, uf_dblk, uf_ublk
      
-c
-      if (hd.eq.0.d0) then
-         do  i=1,n
+!
+      if (hd == 0.d0) then
+         do i=1,n
            ak(i)=dy(i)
          end do
       else
@@ -52,13 +52,13 @@ c
       
 !      write(*,*) 'slvrod ijob', ijob
 
-c
+!
       if (nvar > 0) then
       
          if (nvar*nz /= n) stop 'bad nvar*nz /= n'
       
          if (not_stage1) then
-            !do  i=1,n
+            !do i=1,n
             !  write(*,*) 'in ak ynew', i, ak(i), ynew(i)
             !end do
             do i=1,n
@@ -66,7 +66,7 @@ c
             end do
          end if
 
-         !do  i=1,n
+         !do i=1,n
          !  write(*,*) 'in', i, ak(i)
          !end do
 
@@ -87,7 +87,7 @@ c
          
          
 
-         !do  i=1,n
+         !do i=1,n
          !  write(*,*) 'out', i, ak(i)
          !end do
          !write(*,*)
@@ -114,7 +114,7 @@ c
             sum = sum + abs(r_ary(i))
          end do
 
-         do  i=1,n
+         do i=1,n
            write(*,*) 'res', i, r_ary(i)
          end do
          write(*,*)
@@ -147,11 +147,11 @@ c
       end if
       
       goto (1,2,3,4,5,6,55,8,9,55,11,12,13,13,15), ijob
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    1  continue
-c ---  b=identity, jacobian a full matrix
+! ---  b=identity, jacobian a full matrix
       if (not_stage1) then
          do i=1,n
             ak(i)=ak(i)+ynew(i)
@@ -166,11 +166,11 @@ c ---  b=identity, jacobian a full matrix
    !write(*,*)
 
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    8  continue
-c ---  b=identity, jacobian a sparse matrix
+! ---  b=identity, jacobian a sparse matrix
       if (not_stage1) then
          do i=1,n
             ak(i)=ak(i)+ynew(i)
@@ -180,15 +180,15 @@ c ---  b=identity, jacobian a sparse matrix
       call decsols(1,n,nzmax,ia,ja,sa,ak,lrd,rpar_decsol,lid,ipar_decsol,ier)
       !write(*,*) 'back decsols'
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    9  continue
-c ---  b is a banded matrix, jacobian a sparse matrix
+! ---  b is a banded matrix, jacobian a sparse matrix
       if (not_stage1) then
-      do  i=1,n
+      do i=1,n
          sum=0.d0
-         do  j=max(1,i-mlmas),min(n,i+mumas)
+         do j=max(1,i-mlmas),min(n,i+mumas)
             sum=sum+fmas(i-j+mbdiag,j)*ynew(j)
          end do
          ak(i)=ak(i)+sum
@@ -196,11 +196,11 @@ c ---  b is a banded matrix, jacobian a sparse matrix
       end if
       call decsols(1,n,nzmax,ia,ja,sa,ak,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   11  continue
-c ---  b=identity, jacobian a full matrix, second order
+! ---  b=identity, jacobian a full matrix, second order
       write(*,*) 'SLVROD: second order not supported'
       call mesa_error(__FILE__,__LINE__)
 !      if (not_stage1) then
@@ -226,13 +226,13 @@ c ---  b=identity, jacobian a full matrix, second order
 !         ak(i)=(ak(i)+ak(m2+i))/fac1
 !      end do
 !      return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    2  continue
-c ---  b=identity, jacobian a banded matrix
+! ---  b=identity, jacobian a banded matrix
       if (not_stage1) then
-         !do  i=1,n
+         !do i=1,n
          !  write(*,*) 'in ak ynew', i, ak(i), ynew(i)
          !end do
          do i=1,n
@@ -240,22 +240,22 @@ c ---  b=identity, jacobian a banded matrix
          end do
       end if
 
-      !do  i=1,n
+      !do i=1,n
       !  write(*,*) 'in', i, ak(i)
       !end do
 
       call decsol(1,n,lde,e_1D,mle,mue,ak,ip,lrd,rpar_decsol,lid,ipar_decsol,ier)      
 
-      !do  i=1,n
+      !do i=1,n
       !  write(*,*) 'out', i, ak(i)
       !end do
       !write(*,*)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   12  continue
-c ---  b=identity, jacobian a banded matrix, second order
+! ---  b=identity, jacobian a banded matrix, second order
       write(*,*) 'SLVROD: second order not supported'
       call mesa_error(__FILE__,__LINE__)
 !      if (not_stage1) then
@@ -281,15 +281,15 @@ c ---  b=identity, jacobian a banded matrix, second order
 !         ak(i)=(ak(i)+ak(m2+i))/fac1
 !      end do
 !      return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    3  continue
-c ---  b is a banded matrix, jacobian a full matrix
+! ---  b is a banded matrix, jacobian a full matrix
       if (not_stage1) then
-      do  i=1,n
+      do i=1,n
          sum=0.d0
-         do  j=max(1,i-mlmas),min(n,i+mumas)
+         do j=max(1,i-mlmas),min(n,i+mumas)
             sum=sum+fmas(i-j+mbdiag,j)*ynew(j)
          end do
          ak(i)=ak(i)+sum
@@ -297,11 +297,11 @@ c ---  b is a banded matrix, jacobian a full matrix
       end if
       call decsol(1,n,lde,e_1D,n,n,ak,ip,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   13  continue
-c ---  b is a banded matrix, jacobian a full matrix, second order
+! ---  b is a banded matrix, jacobian a full matrix, second order
       write(*,*) 'SLVROD: second order not supported'
       call mesa_error(__FILE__,__LINE__)
 !      if (not_stage1) then
@@ -317,13 +317,13 @@ c ---  b is a banded matrix, jacobian a full matrix, second order
 !            ak(im1)=ak(im1)+sum
 !         end do
 !      end if
-!      if (ijob.eq.14) goto 45
+!      if (ijob == 14) goto 45
 !      goto 48
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    4  continue
-c ---  b is a banded matrix, jacobian a banded matrix
+! ---  b is a banded matrix, jacobian a banded matrix
       if (not_stage1) then
          do i=1,n
             sum=0.d0
@@ -335,11 +335,11 @@ c ---  b is a banded matrix, jacobian a banded matrix
       end if
       call decsol(1,n,lde,e_1D,mle,mue,ak,ip,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    5  continue
-c ---  b is a full matrix, jacobian a full matrix
+! ---  b is a full matrix, jacobian a full matrix
       if (not_stage1) then
       do i=1,n
          sum=0.d0
@@ -351,11 +351,11 @@ c ---  b is a full matrix, jacobian a full matrix
       end if
       call decsol(1,n,lde,e_1D,n,n,ak,ip,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   15  continue
-c ---  b is a full matrix, jacobian a full matrix, second order
+! ---  b is a full matrix, jacobian a full matrix, second order
       write(*,*) 'SLVROD: second order not supported'
       call mesa_error(__FILE__,__LINE__)
 !      if (not_stage1) then
@@ -372,29 +372,31 @@ c ---  b is a full matrix, jacobian a full matrix, second order
 !         end do
 !      end if
 !      goto 48
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    6  continue
-c ---  b is a full matrix, jacobian a banded matrix
-c ---  this option is not provided
+! ---  b is a full matrix, jacobian a banded matrix
+! ---  this option is not provided
       if (not_stage1) then
-      do 624 i=1,n
+      do i=1,n
          sum=0.d0
-         do 623 j=1,n
-  623       sum=sum+fmas(i,j)*ynew(j)
-  624    ak(i)=ak(i)+sum
+         do j=1,n
+            sum=sum+fmas(i,j)*ynew(j)
+         end do
+         ak(i)=ak(i)+sum
+      end do
       call decsol(1,n,lde,e_1D,mle,mue,ak,ip,lrd,rpar_decsol,lid,ipar_decsol,ier)
       end if
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   55  continue
        write(*,*) 'slvrod: invalid ijob', ijob
        call mesa_error(__FILE__,__LINE__) ! slvrod
       end subroutine slvrod
-c
-c     end of subroutine slvrod
-c
+!
+!    end of subroutine slvrod
+!
 c
diff --git a/num/private/slvseu.dek b/num/private/slvseu.dek
index 2ac17c7e3..3407581c5 100644
--- a/num/private/slvseu.dek
+++ b/num/private/slvseu.dek
@@ -1,6 +1,6 @@
 c
-c ***********************************************************
-c
+! ***********************************************************
+!
       subroutine slvseu(n,fjac,ldjac,mljac,mujac,fmas,ldmas,mlmas,mumas,
      &          m1,m2,nm1,fac1,e,lde,ip,iphes,del,ijob,
      &          mle,mue,mbjac,mbb,mdiag,mdiff,mbdiag,
@@ -8,7 +8,7 @@ c
      &          caller_id, nvar, nz, lblk, dblk, ublk,
      &          nzmax,isparse,ia,ja,sa,
      &          lrd,rpar_decsol,lid,ipar_decsol,ier)
-      implicit real*8 (a-h,o-z)
+      implicit real(dp) (a-h,o-z)
       interface
 #include "mtx_decsol.dek"
 #include"mtx_decsols.dek"
@@ -28,8 +28,8 @@ c
       integer, pointer :: ip(:) ! (nm1)
       dimension fjac(ldjac,n),fmas(ldmas,nm1)
       dimension iphes(n)
-c      common/linal/mle,mue,mbjac,mbb,mdiag,mdiff,mbdiag
-c
+!     common/linal/mle,mue,mbjac,mbb,mdiag,mdiff,mbdiag
+!
 
       ier = 0
       if (nvar > 0) then
@@ -39,11 +39,11 @@ c
       end if
       
       goto (1,2,1,2,1,55,55,8,8,55,11,12,11,12,11), ijob
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    1  continue
-c ---  b=identity, jacobian a full matrix
+! ---  b=identity, jacobian a full matrix
       
         ! write(*,*) 'rhs(1)', del(1)
         ! write(*,*) 'rhs(2)', del(2)
@@ -52,25 +52,25 @@ c ---  b=identity, jacobian a full matrix
         ! write(*,*) 'del(2)', del(2)
         ! write(*,*)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    2  continue
-c ---  b=identity, jacobian a banded matrix
+! ---  b=identity, jacobian a banded matrix
       call decsol(1,n,lde,e,mle,mue,del,ip,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
    8  continue
-c ---  b=identity, jacobian a sparse matrix
+! ---  b=identity, jacobian a sparse matrix
       call decsols(1,n,nzmax,ia,ja,sa,del,lrd,rpar_decsol,lid,ipar_decsol,ier)
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   11  continue
-c ---  b=identity, jacobian a full matrix, second order
+! ---  b=identity, jacobian a full matrix, second order
       mm=m1/m2
       do j=1,m2
          sum=0.d0
@@ -89,11 +89,11 @@ c ---  b=identity, jacobian a full matrix, second order
          del(i)=(del(i)+del(m2+i))/fac1
       end do
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   12  continue
-c ---  b=identity, jacobian a banded matrix, second order
+! ---  b=identity, jacobian a banded matrix, second order
       mm=m1/m2
       do j=1,m2
          sum=0.d0
@@ -112,13 +112,13 @@ c ---  b=identity, jacobian a banded matrix, second order
          del(i)=(del(i)+del(m2+i))/fac1
       end do
       return
-c
-c -----------------------------------------------------------
-c
+!
+! -----------------------------------------------------------
+!
   55  continue
        write(*,*) 'slvseu: invalid ijob', ijob
        call mesa_error(__FILE__,__LINE__) ! slvseu
       end subroutine slvseu
-c
-c     end of subroutine slvseu
-c
+!
+!    end of subroutine slvseu
+!
diff --git a/num/public/num_dfridr.dek b/num/public/num_dfridr.dek
index 443709e61..2aa97a4d6 100644
--- a/num/public/num_dfridr.dek
+++ b/num/public/num_dfridr.dek
@@ -15,7 +15,7 @@
          end interface
          integer, parameter :: ntab = 20
          integer :: i,j
-         real(dp) :: x,errt,fac,hh,a(ntab,ntab),xdum,ydum
+         real(dp) :: errt,fac,hh,a(ntab,ntab)
          real(dp), parameter :: con2=2d0, con=sqrt(con2), big=1d50, safe=2d0
          include 'formats'
          dfridr = 0d0
diff --git a/num/public/num_lib.f b/num/public/num_lib.f
index f9cc1a41e..3462c7ff7 100644
--- a/num/public/num_lib.f
+++ b/num/public/num_lib.f
@@ -567,7 +567,7 @@ subroutine find_max_quadratic(x1, y1, x2, y2, x3, y3, xmax, ymax, ierr)
          real(dp), intent(in) :: x1, y1, x2, y2, x3, y3
          real(dp), intent(out) :: xmax, ymax
          integer, intent(out) :: ierr
-         real(dp) :: a, b, c, s2, denom, dx1, dx2, dxmax
+         real(dp) :: a, b, c, dx1, dx2, dxmax
          ierr = 0; xmax = 0; ymax = 0
          dx1 = x2 - x1
          dx2 = x3 - x2
diff --git a/num/public/num_rodas3.dek b/num/public/num_rodas3.dek
index eea72bb5a..3cff1a7ca 100644
--- a/num/public/num_rodas3.dek
+++ b/num/public/num_rodas3.dek
@@ -295,7 +295,7 @@
       subroutine rodas3_work_sizes(n, nzmax, imas, mljac, mujac, mlmas, mumas, liwork, lwork)
          integer, intent(in) :: n, nzmax, mljac, mujac, mlmas, mumas, imas
          integer, intent(out) :: liwork, lwork
-         integer :: ljac, lmas, km, km2, le1
+         integer :: ljac, lmas, le1
          
          if (mljac == n) then
             ljac = n
diff --git a/num/public/num_rodas4.dek b/num/public/num_rodas4.dek
index 5a4458445..7030ff8ce 100644
--- a/num/public/num_rodas4.dek
+++ b/num/public/num_rodas4.dek
@@ -292,7 +292,7 @@
       subroutine rodas4_work_sizes(n, nzmax, imas, mljac, mujac, mlmas, mumas, liwork, lwork)
          integer, intent(in) :: n, nzmax, mljac, mujac, mlmas, mumas, imas
          integer, intent(out) :: liwork, lwork
-         integer :: ljac, lmas, km, km2, le1
+         integer :: ljac, lmas, le1
          
          if (mljac == n) then
             ljac = n
diff --git a/num/public/num_rodasp.dek b/num/public/num_rodasp.dek
index c95386d8e..046928a1d 100644
--- a/num/public/num_rodasp.dek
+++ b/num/public/num_rodasp.dek
@@ -295,7 +295,7 @@
       subroutine rodasp_work_sizes(n, nzmax, imas, mljac, mujac, mlmas, mumas, liwork, lwork)
          integer, intent(in) :: n, nzmax, mljac, mujac, mlmas, mumas, imas
          integer, intent(out) :: liwork, lwork
-         integer :: ljac, lmas, km, km2, le1
+         integer :: ljac, lmas, le1
          
          if (mljac == n) then
             ljac = n
diff --git a/num/public/num_ros2.dek b/num/public/num_ros2.dek
index 15292323c..28995390a 100644
--- a/num/public/num_ros2.dek
+++ b/num/public/num_ros2.dek
@@ -289,7 +289,7 @@
       subroutine ros2_work_sizes(n, nzmax, imas, mljac, mujac, mlmas, mumas, liwork, lwork)
          integer, intent(in) :: n, nzmax, mljac, mujac, mlmas, mumas, imas
          integer, intent(out) :: liwork, lwork
-         integer :: ljac, lmas, km, km2, le1
+         integer :: ljac, lmas, le1
          
          if (mljac == n) then
             ljac = n
diff --git a/num/public/num_ros3p.dek b/num/public/num_ros3p.dek
index 0622d143a..388a790fd 100644
--- a/num/public/num_ros3p.dek
+++ b/num/public/num_ros3p.dek
@@ -295,7 +295,7 @@
       subroutine ros3p_work_sizes(n, nzmax, imas, mljac, mujac, mlmas, mumas, liwork, lwork)
          integer, intent(in) :: n, nzmax, mljac, mujac, mlmas, mumas, imas
          integer, intent(out) :: liwork, lwork
-         integer :: ljac, lmas, km, km2, le1
+         integer :: ljac, lmas, le1
          
          if (mljac == n) then
             ljac = n
diff --git a/num/public/num_ros3pl.dek b/num/public/num_ros3pl.dek
index 2c99f69fb..e8d2f8ce0 100644
--- a/num/public/num_ros3pl.dek
+++ b/num/public/num_ros3pl.dek
@@ -295,7 +295,7 @@
       subroutine ros3pl_work_sizes(n, nzmax, imas, mljac, mujac, mlmas, mumas, liwork, lwork)
          integer, intent(in) :: n, nzmax, mljac, mujac, mlmas, mumas, imas
          integer, intent(out) :: liwork, lwork
-         integer :: ljac, lmas, km, km2, le1
+         integer :: ljac, lmas, le1
          
          if (mljac == n) then
             ljac = n
diff --git a/num/public/num_rose2.dek b/num/public/num_rose2.dek
index 649e05f28..4e0a3a4ea 100644
--- a/num/public/num_rose2.dek
+++ b/num/public/num_rose2.dek
@@ -292,7 +292,7 @@
       subroutine rose2_work_sizes(n, nzmax, imas, mljac, mujac, mlmas, mumas, liwork, lwork)
          integer, intent(in) :: n, nzmax, mljac, mujac, mlmas, mumas, imas
          integer, intent(out) :: liwork, lwork
-         integer :: ljac, lmas, km, km2, le1
+         integer :: ljac, lmas, le1
          
          if (mljac == n) then
             ljac = n
diff --git a/num/test/make/makefile_base b/num/test/make/makefile_base
index 0e379c86c..5ab88af39 100644
--- a/num/test/make/makefile_base
+++ b/num/test/make/makefile_base
@@ -77,42 +77,20 @@ nodeps : $(.DEFAULT_GOAL)
 #
 # COMPILATION RULES
 
-COMPILE_NC = $(FC) $(FCbasic) $(FCopenmp) $(FCstatic) $(FCopt) $(FCfixed) $(TEST_INCLUDES) -c
-
-COMPILE_LEGACY_NC = $(filter-out -std=f2008, $(COMPILE_NC)) -std=legacy
-TEST_COMPILE_LEGACY = $(filter-out -std=f2008, $(TEST_COMPILE)) -std=legacy
-
-test_brent.o test_simplex.o : %.o : %.f
-ifneq ($(QUIET),)
-	@echo TEST_COMPILE_LEGACY $<
-	@$(TEST_COMPILE_LEGACY) $(FCfree) $<
-else
-	$(TEST_COMPILE_LEGACY) $(FCfree) $<
-endif
-
-test_bobyqa.o test_newuoa.o : %.o : %.f
-ifneq ($(QUIET),)
-	@echo TEST_COMPILE_LEGACY $<
-	@$(TEST_COMPILE_LEGACY) $(FCfixed) $<
-else
-	$(TEST_COMPILE_LEGACY) $(FCfixed) $<
-endif
-
-bari_vdpol.o bari_vdpol3.o bari_vdpol_x.o bari_vdpol3_x.o bari_medakzo.o bari_hires.o \
-  bari_pollu.o bari_rober.o bari_beam.o bari_chemakzo.o : %.o : %.f
+%.o : %.f
 ifneq ($(QUIET),)
-	@echo COMPILE_LEGACY_NC $<
-	@$(COMPILE_LEGACY_NC) $<
+	@echo TEST_COMPILE fixed $<
+	@$(TEST_COMPILE) $(FCfixed) -fimplicit-none $<
 else
-	$(COMPILE_LEGACY_NC) $<
+	$(TEST_COMPILE) $(FCfixed)-fimplicit-none $<
 endif
 
-%.o: %.f
+%.o: %.f90
 ifneq ($(QUIET),)
-	@echo TEST_COMPILE_LEGACY $<
-	@$(TEST_COMPILE_LEGACY) $(FCfree) $<
+	@echo TEST_COMPILE free $<
+	@$(TEST_COMPILE) $(FCfree) -fimplicit-none $<
 else
-	$(TEST_COMPILE_LEGACY) $(FCfree) $<
+	$(TEST_COMPILE) $(FCfree) -fimplicit-none $<
 endif
 
 #################################################################
@@ -122,6 +100,7 @@ endif
 SRC_PATH = $(TEST_SRC_DIR)
 
 vpath %.f $(SRC_PATH)
+vpath %.f90 $(SRC_PATH)
 
 vpath %.mod $(LOCAL_LIB_DIR):$(MESA_DIR)/include
 
diff --git a/num/test/src/bari_beam.f b/num/test/src/bari_beam.f
index da21ceeb6..54017da05 100644
--- a/num/test/src/bari_beam.f
+++ b/num/test/src/bari_beam.f
@@ -1,222 +1,233 @@
-c-----------------------------------------------------------------------
-c-----------------------------------------------------------------------
-c
-c     This file is part of the Test Set for IVP solvers
-c     http://www.dm.uniba.it/~testset/
-c
-c        Beam (ODE case)
-c        ODE of dimension 80
-c
-c     DISCLAIMER: see
-c     http://www.dm.uniba.it/~testset/disclaimer.php
-c
-c     The most recent version of this source file can be found at
-c     http://www.dm.uniba.it/~testset/src/problems/beam.f
-c
-c     This is revision
-c     $Id: beam.F,v 1.2 2006/10/02 10:29:13 testset Exp $
-c
-c-----------------------------------------------------------------------
+! ----------------------------------------------------------------------
+! ----------------------------------------------------------------------
+!
+!     This file is part of the Test Set for IVP solvers
+!     http://www.dm.uniba.it/~testset/
+!
+!        Beam (ODE case)
+!        ODE of dimension 80
+!
+!     DISCLAIMER: see
+!     http://www.dm.uniba.it/~testset/disclaimer.php
+!
+!     The most recent version of this source file can be found at
+!     http://www.dm.uniba.it/~testset/src/problems/beam.f
+!
+!     This is revision
+!     $Id: beam.F,v 1.2 2006/10/02 10:29:13 testset Exp $
+!
+! ----------------------------------------------------------------------
       subroutine beam_init(neqn,y,yprime,consis)
-      integer neqn
-      double precision y(neqn),yprime(neqn)
-      logical consis
+      use const_def, only: dp
+      integer :: neqn
+      real(dp) :: y(neqn),yprime(neqn)
+      logical :: consis
 
-      integer i
+      integer :: i
 
-      do 10 i=1,neqn
+      do i=1,neqn
          y(i) = 0d0
-   10 continue
+      end do
 
       return
       end
-c-----------------------------------------------------------------------
+! ----------------------------------------------------------------------
       subroutine beam_feval(nvar,t,th,df,ierr,rpar,ipar)
+      use const_def, only: dp
       use math_lib
-      IMPLICIT REAL*8 (A-H,O-Z)
-      integer ierr,ipar(*)
-      integer, parameter :: N=40, NN=2*N, NCOM=N, NSQ=N*N, NQUATR=NSQ*NSQ, NNCOM=NN
-      double precision rpar(*), an, deltas
+      IMPLICIT real(dp) (A-H,O-Z)
+      integer ierr,nvar,i,ipar(*)
+      integer, parameter :: N=40, NN=2*N, NSQ=N*N, NQUATR=NSQ*NSQ
+      real(dp) rpar(*), an, deltas
         DIMENSION DF(NN),TH(150),U(150),V(150),W(150)
         DIMENSION ALPHA(150),BETA(150),STH(150),CTH(150)
-C --- SET DEFAULT VALUES
+! --- SET DEFAULT VALUES
       if (nvar /= nn) stop 'bad nvar for beam_feval'
       AN=N
       DELTAS=1.0D+0/AN
-C ----- CALCUL DES TH(I) ET DES SIN ET COS -------------
-        DO 22 I=2,N
-        THDIFF=TH(I)-TH(I-1)
-        STH(I)=sin(THDIFF)
-   22   CTH(I)=cos(THDIFF)
-C -------- CALCUL DU COTE DROIT DU SYSTEME LINEAIRE -----
-        IF(T.GT.3.14159265358979324D0)THEN
-C --------- CASE T GREATER PI ------------
-C ---------- I=1 ------------
+! ----- CALCUL DES TH(I) ET DES SIN ET COS -------------
+        DO I=2,N
+           THDIFF=TH(I)-TH(I-1)
+           STH(I)=sin(THDIFF)
+           CTH(I)=cos(THDIFF)
+        END DO
+! -------- CALCUL DU COTE DROIT DU SYSTEME LINEAIRE -----
+        IF(T > 3.14159265358979324D0)THEN
+! --------- CASE T GREATER PI ------------
+! ---------- I=1 ------------
             TERM1=(-3.D0*TH(1)+TH(2))*NQUATR
             V(1)=TERM1
-C -------- I=2,..,N-1 -----------
-            DO 32 I=2,N-1
-            TERM1=(TH(I-1)-2.D0*TH(I)+TH(I+1))*NQUATR
-  32        V(I)=TERM1
-C ----------- I=N -------------
+! -------- I=2,..,N-1 -----------
+            DO I=2,N-1
+               TERM1=(TH(I-1)-2.D0*TH(I)+TH(I+1))*NQUATR
+               V(I)=TERM1
+            END DO
+! ----------- I=N -------------
             TERM1=(TH(N-1)-TH(N))*NQUATR
             V(N)=TERM1
         ELSE
-C --------- CASE T LESS EQUAL PI ------------
+! --------- CASE T LESS EQUAL PI ------------
             FABS=1.5D0*sin(T)*sin(T)
             FX=-FABS
             FY= FABS
-C ---------- I=1 ------------
+! ---------- I=1 ------------
             TERM1=(-3.D0*TH(1)+TH(2))*NQUATR
             TERM2=NSQ*(FY*cos(TH(1))-FX*sin(TH(1)))
             V(1)=TERM1+TERM2
-C -------- I=2,..,N-1 -----------
-            DO 34 I=2,N-1
-            TERM1=(TH(I-1)-2.D0*TH(I)+TH(I+1))*NQUATR
-            TERM2=NSQ*(FY*cos(TH(I))-FX*sin(TH(I)))
-  34        V(I)=TERM1+TERM2
-C ----------- I=N -------------
+! -------- I=2,..,N-1 -----------
+            DO I=2,N-1
+               TERM1=(TH(I-1)-2.D0*TH(I)+TH(I+1))*NQUATR
+               TERM2=NSQ*(FY*cos(TH(I))-FX*sin(TH(I)))
+               V(I)=TERM1+TERM2
+            END DO
+! ----------- I=N -------------
             TERM1=(TH(N-1)-TH(N))*NQUATR
             TERM2=NSQ*(FY*cos(TH(N))-FX*sin(TH(N)))
             V(N)=TERM1+TERM2
         END IF
-C -------- COMPUTE PRODUCT DV=W ------------
+! -------- COMPUTE PRODUCT DV=W ------------
         W(1)=STH(2)*V(2)
-        DO 43 I=2,N-1
-   43   W(I)=-STH(I)*V(I-1)+STH(I+1)*V(I+1)
+        DO I=2,N-1
+           W(I)=-STH(I)*V(I-1)+STH(I+1)*V(I+1)
+        END DO
         W(N)=-STH(N)*V(N-1)
-C -------- TERME 3 -----------------
-        DO 435 I=1,N
-  435   W(I)=W(I)+TH(N+I)*TH(N+I)
-C ------- SOLVE SYSTEM CW=W ---------
+! -------- TERME 3 -----------------
+        DO I=1,N
+           W(I)=W(I)+TH(N+I)*TH(N+I)
+        END DO
+! ------- SOLVE SYSTEM CW=W ---------
         ALPHA(1)=1.D0
-        DO 44 I=2,N
-        ALPHA(I)=2.D0
-   44   BETA(I-1)=-CTH(I)
+        DO I=2,N
+           ALPHA(I)=2.D0
+           BETA(I-1)=-CTH(I)
+        END DO
         ALPHA(N)=3.D0
-        DO 45 I=N-1,1,-1
-        Q=BETA(I)/ALPHA(I+1)
-        W(I)=W(I)-W(I+1)*Q
-   45   ALPHA(I)=ALPHA(I)-BETA(I)*Q
+        DO I=N-1,1,-1
+           Q=BETA(I)/ALPHA(I+1)
+           W(I)=W(I)-W(I+1)*Q
+           ALPHA(I)=ALPHA(I)-BETA(I)*Q
+        END DO
         W(1)=W(1)/ALPHA(1)
-        DO 46 I=2,N
-   46   W(I)=(W(I)-BETA(I-1)*W(I-1))/ALPHA(I)
-C -------- COMPUTE U=CV+DW ---------
+        DO I=2,N
+           W(I)=(W(I)-BETA(I-1)*W(I-1))/ALPHA(I)
+        END DO
+! -------- COMPUTE U=CV+DW ---------
         U(1)=V(1)-CTH(2)*V(2)+STH(2)*W(2)
-        DO 47 I=2,N-1
-   47   U(I)=2.D0*V(I)-CTH(I)*V(I-1)-CTH(I+1)*V(I+1)
-     &                -STH(I)*W(I-1)+STH(I+1)*W(I+1)
+        DO I=2,N-1
+           U(I)=2.D0*V(I)-CTH(I)*V(I-1)-CTH(I+1)*V(I+1)
+     &                   -STH(I)*W(I-1)+STH(I+1)*W(I+1)
+        END DO
         U(N)=3.D0*V(N)-CTH(N)*V(N-1)-STH(N)*W(N-1)
-C -------- PUT  DERIVATIVES IN RIGHT PLACE -------------
-        DO 54 I=1,N
-        DF(I)=TH(N+I)
-  54    DF(N+I)=U(I)
+! -------- PUT  DERIVATIVES IN RIGHT PLACE -------------
+        DO I=1,N
+           DF(I)=TH(N+I)
+           DF(N+I)=U(I)
+        END DO
         RETURN
         END
-c-----------------------------------------------------------------------
+! ----------------------------------------------------------------------
       subroutine beam_jeval(ldim,neqn,t,y,yprime,dfdy,ierr,rpar,ipar)
+      use const_def, only: dp
       integer ldim,neqn,ierr,ipar(*)
-      double precision t,y(neqn),yprime(neqn),dfdy(ldim,neqn),rpar(*)
-c
-c     dummy subroutine
-c
+      real(dp) t,y(neqn),yprime(neqn),dfdy(ldim,neqn),rpar(*)
+!
+!     dummy subroutine
+!
+
       return
       end
-c-----------------------------------------------------------------------
+! ----------------------------------------------------------------------
       subroutine beam_solut(neqn,t,y)
+      use const_def, only: dp
       integer neqn
-      double precision t,y(neqn)
-c
-c
-c computed using double precision RADAU on an 
-c     Alphaserver DS20E, with a 667 MHz EV67 processor.
-c          
-c          uround = 1.01d-19
-c          rtol = atol = h0 = 1.1d-18
-c
-c
-      y(  1) = -0.5792366591285007D-002             
-      y(  2) = -0.1695298550721735D-001              
-      y(  3) = -0.2769103312973094D-001             
-      y(  4) = -0.3800815655879158D-001             
-      y(  5) = -0.4790616859743763D-001            
-      y(  6) = -0.5738710435274594D-001            
-      y(  7) = -0.6645327313454617D-001             
-      y(  8) = -0.7510730581979037D-001             
-      y(  9) = -0.8335219765414992D-001      
-      y( 10) = -0.9119134654647947D-001          
-      y( 11) = -0.9862858700132091D-001            
-      y( 12) = -0.1056682200378002D+000            
-      y( 13) = -0.1123150395409595D+000           
-      y( 14) = -0.1185743552727245D+000             
-      y( 15) = -0.1244520128755561D+000           
-      y( 16) = -0.1299544113264161D+000           
-      y( 17) = -0.1350885180610398D+000             
-      y( 18) = -0.1398618819194422D+000             
-      y( 19) = -0.1442826441015242D+000             
-      y( 20) = -0.1483595472463012D+000           
-      y( 21) = -0.1521019429001447D+000            
-      y( 22) = -0.1555197978061129D+000             
-      y( 23) = -0.1586236993420229D+000             
-      y( 24) = -0.1614248603702127D+000           
-      y( 25) = -0.1639351238193223D+000             
-      y( 26) = -0.1661669673440852D+000           
-      y( 27) = -0.1681335081778558D+000              
-      y( 28) = -0.1698485080602243D+000              
-      y( 29) = -0.1713263782440888D+000              
-      y( 30) = -0.1725821847462537D+000            
-      y( 31) = -0.1736316537975654D+000              
-      y( 32) = -0.1744911773840049D+000             
-      y( 33) = -0.1751778187863392D+000             
-      y( 34) = -0.1757093178712902D+000             
-      y( 35) = -0.1761040960228576D+000           
-      y( 36) = -0.1763812607175549D+000              
-      y( 37) = -0.1765606097564671D+000            
-      y( 38) = -0.1766626352260565D+000              
-      y( 39) = -0.1767085270807460D+000            
-      y( 40) = -0.1767201761075488D+000              
-      y( 41) =  0.3747362681329794D-001              
-      y( 42) =  0.1099117880217593D+000            
-      y( 43) =  0.1798360474312799D+000            
-      y( 44) =  0.2472427305442391D+000             
-      y( 45) =  0.3121293820596567D+000            
-      y( 46) =  0.3744947377019500D+000           
-      y( 47) =  0.4343386073492798D+000           
-      y( 48) =  0.4916620354601748D+000           
-      y( 49) =  0.5464677854586807D+000            
-      y( 50) =  0.5987609702624270D+000            
-      y( 51) =  0.6485493611110740D+000           
-      y( 52) =  0.6958435169132503D+000            
-      y( 53) =  0.7406572668520808D+000            
-      y( 54) =  0.7830081747813241D+000            
-      y( 55) =  0.8229176659201515D+000            
-      y( 56) =  0.8604110305190560D+000             
-      y( 57) =  0.8955175502377805D+000            
-      y( 58) =  0.9282708263127953D+000           
-      y( 59) =  0.9587089334522034D+000       
-      y( 60) =  0.9868747821728363D+000             
-      y( 61) =  0.1012816579961883D+001              
-      y( 62) =  0.1036587736679858D+001            
-      y( 63) =  0.1058246826481355D+001            
-      y( 64) =  0.1077857811433353D+001            
-      y( 65) =  0.1095490222005369D+001            
-      y( 66) =  0.1111219164294898D+001             
-      y( 67) =  0.1125125269286501D+001              
-      y( 68) =  0.1137294526609229D+001            
-      y( 69) =  0.1147818025153607D+001             
-      y( 70) =  0.1156792132004482D+001           
-      y( 71) =  0.1164318845130183D+001            
-      y( 72) =  0.1170505992596124D+001             
-      y( 73) =  0.1175467424299550D+001            
-      y( 74) =  0.1179323003228859D+001             
-      y( 75) =  0.1182198586299667D+001           
-      y( 76) =  0.1184226111223146D+001             
-      y( 77) =  0.1185543909805575D+001             
-      y( 78) =  0.1186297084203716D+001            
-      y( 79) =  0.1186637618908127D+001            
-      y( 80) =  0.1186724615113034D+001              
- 
+      real(dp) t,y(neqn)
 
+! computed using real(dp) RADAU on an 
+!     Alphaserver DS20E, with a 667 MHz EV67 processor.
+!          
+!          uround = 1.01d-19
+!          rtol = atol = h0 = 1.1d-18
 
+      y( 1) = -0.5792366591285007D-002
+      y( 2) = -0.1695298550721735D-001
+      y( 3) = -0.2769103312973094D-001
+      y( 4) = -0.3800815655879158D-001
+      y( 5) = -0.4790616859743763D-001
+      y( 6) = -0.5738710435274594D-001
+      y( 7) = -0.6645327313454617D-001
+      y( 8) = -0.7510730581979037D-001
+      y( 9) = -0.8335219765414992D-001
+      y(10) = -0.9119134654647947D-001
+      y(11) = -0.9862858700132091D-001
+      y(12) = -0.1056682200378002D+000
+      y(13) = -0.1123150395409595D+000
+      y(14) = -0.1185743552727245D+000
+      y(15) = -0.1244520128755561D+000
+      y(16) = -0.1299544113264161D+000
+      y(17) = -0.1350885180610398D+000
+      y(18) = -0.1398618819194422D+000
+      y(19) = -0.1442826441015242D+000
+      y(20) = -0.1483595472463012D+000
+      y(21) = -0.1521019429001447D+000
+      y(22) = -0.1555197978061129D+000
+      y(23) = -0.1586236993420229D+000
+      y(24) = -0.1614248603702127D+000
+      y(25) = -0.1639351238193223D+000
+      y(26) = -0.1661669673440852D+000
+      y(27) = -0.1681335081778558D+000
+      y(28) = -0.1698485080602243D+000
+      y(29) = -0.1713263782440888D+000
+      y(30) = -0.1725821847462537D+000
+      y(31) = -0.1736316537975654D+000
+      y(32) = -0.1744911773840049D+000
+      y(33) = -0.1751778187863392D+000
+      y(34) = -0.1757093178712902D+000
+      y(35) = -0.1761040960228576D+000
+      y(36) = -0.1763812607175549D+000
+      y(37) = -0.1765606097564671D+000
+      y(38) = -0.1766626352260565D+000
+      y(39) = -0.1767085270807460D+000
+      y(40) = -0.1767201761075488D+000
+      y(41) =  0.3747362681329794D-001
+      y(42) =  0.1099117880217593D+000
+      y(43) =  0.1798360474312799D+000
+      y(44) =  0.2472427305442391D+000
+      y(45) =  0.3121293820596567D+000
+      y(46) =  0.3744947377019500D+000
+      y(47) =  0.4343386073492798D+000
+      y(48) =  0.4916620354601748D+000
+      y(49) =  0.5464677854586807D+000
+      y(50) =  0.5987609702624270D+000
+      y(51) =  0.6485493611110740D+000
+      y(52) =  0.6958435169132503D+000
+      y(53) =  0.7406572668520808D+000
+      y(54) =  0.7830081747813241D+000
+      y(55) =  0.8229176659201515D+000
+      y(56) =  0.8604110305190560D+000
+      y(57) =  0.8955175502377805D+000
+      y(58) =  0.9282708263127953D+000
+      y(59) =  0.9587089334522034D+000
+      y(60) =  0.9868747821728363D+000
+      y(61) =  0.1012816579961883D+001
+      y(62) =  0.1036587736679858D+001
+      y(63) =  0.1058246826481355D+001
+      y(64) =  0.1077857811433353D+001
+      y(65) =  0.1095490222005369D+001
+      y(66) =  0.1111219164294898D+001
+      y(67) =  0.1125125269286501D+001
+      y(68) =  0.1137294526609229D+001
+      y(69) =  0.1147818025153607D+001
+      y(70) =  0.1156792132004482D+001
+      y(71) =  0.1164318845130183D+001
+      y(72) =  0.1170505992596124D+001
+      y(73) =  0.1175467424299550D+001
+      y(74) =  0.1179323003228859D+001
+      y(75) =  0.1182198586299667D+001
+      y(76) =  0.1184226111223146D+001
+      y(77) =  0.1185543909805575D+001
+      y(78) =  0.1186297084203716D+001
+      y(79) =  0.1186637618908127D+001
+      y(80) =  0.1186724615113034D+001
+ 
       return
       end
diff --git a/num/test/src/bari_chemakzo.f b/num/test/src/bari_chemakzo.f
index 3097b5e35..1ac603198 100644
--- a/num/test/src/bari_chemakzo.f
+++ b/num/test/src/bari_chemakzo.f
@@ -56,7 +56,7 @@ subroutine chemakzo_init(neqn,y,yprime,consis)
       integer ierr,ipar(0)
       double precision rpar(0)
 
-      double precision k1,k2,k3,k4,kbig,kla,ks
+      double precision ks
       parameter (
      +   ks   =115.83d0
      +)
diff --git a/num/test/src/bari_vdpol.f b/num/test/src/bari_vdpol.f
index 9735abf56..fb36ec291 100644
--- a/num/test/src/bari_vdpol.f
+++ b/num/test/src/bari_vdpol.f
@@ -40,8 +40,6 @@ subroutine vdpol_jeval(ldim,neqn,t,y,yprime,dfdy,ierr,rpar,ipar)
       integer ldim,neqn,ierr,ipar(*)
       double precision t,y(neqn),yprime(neqn),dfdy(ldim,neqn),rpar(*)
 
-      integer i,j
-
       dfdy(1,1) = 0d0
       dfdy(1,2) = 1d0
       dfdy(2,1) = (-2.0d0*y(1)*y(2)-1d0)/1.0d-3
diff --git a/num/test/src/sample_ode_solver.f b/num/test/src/sample_ode_solver.f90
similarity index 99%
rename from num/test/src/sample_ode_solver.f
rename to num/test/src/sample_ode_solver.f90
index 0685d52eb..c0cee48f1 100644
--- a/num/test/src/sample_ode_solver.f
+++ b/num/test/src/sample_ode_solver.f90
@@ -233,7 +233,6 @@ subroutine vdpol_jacob(n, x, h, y, f, dfdy, ld_dfdy, lrpar, rpar, lipar, ipar, i
          integer, intent(inout), pointer :: ipar(:) ! (lipar)
          real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
          integer, intent(out) :: ierr
-         integer :: nz, i, j
          ierr = 0
          dfdy(1, 1) = 0d0
          dfdy(1, 2) = 1d0
diff --git a/num/test/src/test_beam.f b/num/test/src/test_beam.f90
similarity index 99%
rename from num/test/src/test_beam.f
rename to num/test/src/test_beam.f90
index 517dd1e46..7cef7ee4e 100644
--- a/num/test/src/test_beam.f
+++ b/num/test/src/test_beam.f90
@@ -33,7 +33,6 @@ subroutine beam_jacob(n,x,h,y,f,dfdy,ld_dfdy,lrpar,rpar,lipar,ipar,ierr)
          real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
          real(dp) :: yprime(n)
          integer, intent(out) :: ierr
-         integer :: nz, i, j
          ierr = 0
          ipar(i_njac) = ipar(i_njac) + 1
          call beam_jeval(ld_dfdy,n,x,y,yprime,dfdy,ierr,rpar,ipar)
diff --git a/num/test/src/test_bobyqa.f b/num/test/src/test_bobyqa.f
deleted file mode 100644
index 38097cbdd..000000000
--- a/num/test/src/test_bobyqa.f
+++ /dev/null
@@ -1,85 +0,0 @@
-      module test_bobyqa
-      
-      use num_def
-      use num_lib
-      
-      integer :: nfcn
-
-      contains
-      
-      subroutine do_test_bobyqa      
-      IMPLICIT REAL*8 (A-H,O-Z)
-      DIMENSION X(100),XL(100),XU(100),W(10000)
-      real*8, parameter :: max_valid_value = 1d99
-      include 'formats'
-      BDL=-1.0D0
-      BDU=1.0D0
-      IPRINT=0
-      MAXFUN=5000
-      RHOEND=1.0D-6
-      DO 30 N=2,6,2
-      nfcn = 0
-      NPT=2*N+1
-      DO 10 I=1,N
-      XL(I)=BDL
-      XU(I)=BDU
-   10 X(I)=DFLOAT(I)/DFLOAT(N+1)
-      RHOBEG=0.2D0*X(1)
-      PRINT 20, N,NPT
-   20 FORMAT (4X,'test BOBYQA with N =',I2,' and NPT =',I3)
-      CALL BOBYQA (N,NPT,X,XL,XU,RHOBEG,RHOEND,IPRINT,MAXFUN,W,CALFUN,max_valid_value)
-      call calfun(n,x,f)
-      !write(*,2) 'f', nfcn, f
-      if (abs(f) > 1d-10) write(*,*) 'failed in test of BOBYQA: min f', f
-   30 CONTINUE
-      END subroutine do_test_bobyqa
-
-
-
-      subroutine calfun(n,x,f)
-      use const_def, only: dp
-      integer, intent(in) :: n
-      real(dp), intent(in) :: x(*)
-      real(dp), intent(out) :: f
-
-      real(dp) :: Y(10,10)
-      nfcn = nfcn + 1
-      DO 10 J=1,N
-      Y(1,J)=1.0D0
-   10 Y(2,J)=2.0D0*X(J)-1.0D0
-      DO 20 I=2,N
-      DO 20 J=1,N
-   20 Y(I+1,J)=2.0D0*Y(2,J)*Y(I,J)-Y(I-1,J)
-      F=0.0D0
-      NP=N+1
-      IW=1
-      DO 40 I=1,NP
-      SUM=0.0D0
-      DO 30 J=1,N
-   30 SUM=SUM+Y(I,J)
-      SUM=SUM/DFLOAT(N)
-      IF (IW .GT. 0) SUM=SUM+1.0D0/DFLOAT(I*I-2*I)
-      IW=-IW
-   40 F=F+SUM*SUM
-      RETURN
-      END SUBROUTINE CALFUN      
-
-
-      SUBROUTINE xCALFUN (N,X,F)
-      implicit none
-      integer, intent(in) :: n
-      real(dp), intent(in) :: x(*)
-      real(dp), intent(out) :: f
-      integer :: i, j
-      real(dp) :: temp
-      F=0.0D0
-      DO 10 I=4,N,2
-      DO 10 J=2,I-2,2
-      TEMP=(X(I-1)-X(J-1))**2+(X(I)-X(J))**2
-      TEMP=DMAX1(TEMP,1.0D-6)
-   10 F=F+1.0D0/DSQRT(TEMP)
-      RETURN
-      END SUBROUTINE xCALFUN
-      
-      
-      end module test_bobyqa
diff --git a/num/test/src/test_bobyqa.f90 b/num/test/src/test_bobyqa.f90
new file mode 100644
index 000000000..63a6883a7
--- /dev/null
+++ b/num/test/src/test_bobyqa.f90
@@ -0,0 +1,93 @@
+module test_bobyqa
+
+   use num_def
+   use num_lib
+
+   implicit none
+
+   integer :: nfcn
+
+contains
+
+   subroutine do_test_bobyqa
+      real(dp), dimension(100) :: X, XL, XU
+      real(dp), dimension(10000) :: W
+      real(dp), parameter :: max_valid_value = 1d99
+      real(dp), parameter :: BDL = -1.0d0
+      real(dp), parameter :: BDU = 1.0d0
+      real(dp) :: f, RHOBEG, RHOend
+      integer :: I, IPRINT, N, MAXFUN, NPT
+      include 'formats'
+      IPRINT = 0
+      MAXFUN = 5000
+      RHOend = 1.0D-6
+      do N = 2, 6, 2
+         nfcn = 0
+         NPT = 2*N + 1
+         do I = 1, N
+            XL(I) = BDL
+            XU(I) = BDU
+            X(I) = DBLE(I)/DBLE(N + 1)
+         end do
+         RHOBEG = 0.2D0*X(1)
+         write (*, '(4X,A,I2,A,I3)') 'test BOBYQA with N =', N, ' and NPT =', NPT
+         call BOBYQA(N, NPT, X, XL, XU, RHOBEG, RHOend, IPRINT, MAXFUN, W, CALFUN, max_valid_value)
+         call calfun(n, x, f)
+         !write(*,2) 'f', nfcn, f
+         if (abs(f) > 1d-10) write (*, *) 'failed in test of BOBYQA: min f', f
+      end do
+   end subroutine do_test_bobyqa
+
+   subroutine calfun(n, x, f)
+      use const_def, only: dp
+      integer, intent(in) :: n
+      real(dp), intent(in) :: x(*)
+      real(dp), intent(out) :: f
+      integer :: i, j, iw, np
+      real(dp) :: sum
+
+      real(dp) :: Y(10, 10)
+      nfcn = nfcn + 1
+      do J = 1, N
+         Y(1, J) = 1.0D0
+         Y(2, J) = 2.0D0*X(J) - 1.0D0
+      end do
+      do I = 2, N
+      do J = 1, N
+         Y(I + 1, J) = 2.0D0*Y(2, J)*Y(I, J) - Y(I - 1, J)
+      end do
+      end do
+      F = 0.0D0
+      NP = N + 1
+      IW = 1
+      do I = 1, NP
+         SUM = 0.0D0
+         do J = 1, N
+            SUM = SUM + Y(I, J)
+         end do
+         SUM = SUM/DBLE(N)
+         IF (IW .GT. 0) SUM = SUM + 1.0D0/DBLE(I*I - 2*I)
+         IW = -IW
+         F = F + SUM*SUM
+      end do
+      RETURN
+   end subroutine CALFUN
+
+   subroutine xCALFUN(N, X, F)
+      integer, intent(in) :: n
+      real(dp), intent(in) :: x(*)
+      real(dp), intent(out) :: f
+      integer :: i, j
+      real(dp) :: temp
+      F = 0.0D0
+      do I = 4, N, 2
+      do J = 2, I - 2, 2
+         TEMP = (X(I - 1) - X(J - 1))**2 + (X(I) - X(J))**2
+         TEMP = DMAX1(TEMP, 1.0D-6)
+         F = F + 1.0D0/DSQRT(TEMP)
+      end do
+      end do
+      RETURN
+   end subroutine xCALFUN
+
+end module test_bobyqa
diff --git a/num/test/src/test_brent.f b/num/test/src/test_brent.f90
similarity index 81%
rename from num/test/src/test_brent.f
rename to num/test/src/test_brent.f90
index 4e940aa49..16f5a80bd 100644
--- a/num/test/src/test_brent.f
+++ b/num/test/src/test_brent.f90
@@ -4,6 +4,7 @@ module test_brent
       use num_lib
       use math_lib
       use utils_lib, only: mesa_error
+      use const_def, only: dp
       
       implicit none
       
@@ -45,14 +46,13 @@ subroutine test_global_min_all
       !
         implicit none
 
-        real ( kind = 8 ) a
-        real ( kind = 8 ) b
-        real ( kind = 8 ) c
-        real ( kind = 8 ) e
-        real ( kind = 8 ) m
-        real ( kind = 8 ) machep
-        real ( kind = 8 ) t
-        real ( kind = 8 ) z
+        real(dp) a
+        real(dp) b
+        real(dp) c
+        real(dp) e
+        real(dp) m
+        real(dp) machep
+        real(dp) t
 
         write ( *, '(a)' ) ' '
         write ( *, '(a)' ) 'TEST_GLOMIN_ALL'
@@ -134,18 +134,19 @@ end subroutine test_global_min_all
 
 
       subroutine test_glomin_one ( a, b, c, m, machep, e, t, f, title )
-         real*8, intent(in) :: a, b, c, m, machep, e, t
+         real(dp), intent(in) :: a, b, c, m, machep, e, t
          interface
-            real*8 function f(x)
-               real*8, intent(in) :: x
+            real(dp) function f(x)
+               use const_def, only: dp
+               real(dp), intent(in) :: x
             end function f
          end interface
 
-        real      ( kind = 8 ) fa
-        real      ( kind = 8 ) fb
-        real      ( kind = 8 ) fx
+        real      (dp) fa
+        real      (dp) fb
+        real      (dp) fx
         character ( len = *  ) title
-        real      ( kind = 8 ) x
+        real      (dp) x
         integer :: max_tries, ierr
         include 'formats'
         
@@ -168,28 +169,28 @@ end function f
       end subroutine test_glomin_one
 
 
-      real*8 function h_01 ( x )
-         real*8, intent(in) :: x
+      real(dp) function h_01 ( x )
+         real(dp), intent(in) :: x
          h_01 = 2.0D+00 - x
       end function h_01
       
-      real*8 function h_02 ( x )
-         real*8, intent(in) :: x
+      real(dp) function h_02 ( x )
+         real(dp), intent(in) :: x
          h_02 = x * x
       end function h_02
       
-      real*8 function h_03 ( x )
-         real*8, intent(in) :: x
+      real(dp) function h_03 ( x )
+         real(dp), intent(in) :: x
          h_03 = x * x * ( x + 1.0D+00 )
       end function h_03
       
-      real*8 function h_04 ( x )
-         real*8, intent(in) :: x
+      real(dp) function h_04 ( x )
+         real(dp), intent(in) :: x
          h_04 = ( x + sin ( x ) ) * exp( - x * x )
       end function h_04
       
-      real*8 function h_05 ( x )
-         real*8, intent(in) :: x
+      real(dp) function h_05 ( x )
+         real(dp), intent(in) :: x
          h_05 = ( x - sin ( x ) ) * exp( - x * x )
       end function h_05
       
@@ -214,12 +215,10 @@ subroutine test_local_min_all
       !
         implicit none
 
-        real ( kind = 8 ) a
-        real ( kind = 8 ) b
-        real ( kind = 8 ) eps
-        real ( kind = 8 ) r8_epsilon
-        real ( kind = 8 ) t
-        real ( kind = 8 ) z
+        real(dp) a
+        real(dp) b
+        real(dp) eps
+        real(dp) t
 
         write ( *, '(a)' ) ' '
         write ( *, '(a)' ) 'TEST_LOCAL_MIN_ALL'
@@ -284,31 +283,32 @@ subroutine test_local_min_one ( a, b, eps, t, f, title )
       !
       !  Parameters:
       !
-      !    Input, real ( kind = 8 ) A, B, the endpoints of the interval.
+      !    Input, real(dp) A, B, the endpoints of the interval.
       !
-      !    Input, real ( kind = 8 ) EPS, a positive relative error tolerance.
+      !    Input, real(dp) EPS, a positive relative error tolerance.
       !
-      !    Input, real ( kind = 8 ) T, a positive absolute error tolerance.
+      !    Input, real(dp) T, a positive absolute error tolerance.
       !
-      !    Input, external real ( kind = 8 ) F, the name of a user-supplied
+      !    Input, external real(dp) F, the name of a user-supplied
       !    function, of the form "FUNCTION F ( X )", which evaluates the
       !    function whose local minimum is being sought.
       !
       !    Input, character ( LEN = * ) TITLE, a title for the problem.
       !
         implicit none
-         real*8, intent(in) :: a, b, eps, t
+         real(dp), intent(in) :: a, b, eps, t
          interface
-            real*8 function f(x)
-               real*8, intent(in) :: x
+            real(dp) function f(x)
+               use const_def, only: dp
+               real(dp), intent(in) :: x
             end function f
          end interface
          character (len=*) :: title
 
-        real      ( kind = 8 ) fa
-        real      ( kind = 8 ) fb
-        real      ( kind = 8 ) fx
-        real      ( kind = 8 ) x
+        real      (dp) fa
+        real      (dp) fb
+        real      (dp) fx
+        real      (dp) x
         integer :: max_tries, ierr
         include 'formats'
         
@@ -330,33 +330,33 @@ end function f
         return
       end subroutine test_local_min_one
 
-      real*8 function g_01 ( x )
-         real*8, intent(in) :: x
+      real(dp) function g_01 ( x )
+         real(dp), intent(in) :: x
          g_01 = ( x - 2.0D+00 ) * ( x - 2.0D+00 ) + 1.0D+00
       end function g_01
       
-      real*8 function g_02 ( x )
-         real*8, intent(in) :: x
+      real(dp) function g_02 ( x )
+         real(dp), intent(in) :: x
          g_02 = x * x + exp( - x )
       end function g_02
       
-      real*8 function g_03 ( x )
-         real*8, intent(in) :: x
+      real(dp) function g_03 ( x )
+         real(dp), intent(in) :: x
          g_03 = ( ( x * x + 2.0D+00 ) * x + 1.0D+00 ) * x + 3.0D+00
       end function g_03
       
-      real*8 function g_04 ( x )
-         real*8, intent(in) :: x
+      real(dp) function g_04 ( x )
+         real(dp), intent(in) :: x
          g_04 = exp( x ) + 0.01D+00 / x
       end function g_04
       
-      real*8 function g_05 ( x )
-         real*8, intent(in) :: x
+      real(dp) function g_05 ( x )
+         real(dp), intent(in) :: x
          g_05 = exp( x ) - 2.0D+00 * x + 0.01D+00 / x - 0.000001D+00 / x / x
       end function g_05
 
 
-      real*8 function f_01 ( x, dfdx, lrpar, rpar, lipar, ipar, ierr )
+      real(dp) function f_01 ( x, dfdx, lrpar, rpar, lipar, ipar, ierr )
          integer, intent(in) :: lrpar, lipar
          real(dp), intent(in) :: x
          real(dp), intent(out) :: dfdx
@@ -368,7 +368,7 @@ real*8 function f_01 ( x, dfdx, lrpar, rpar, lipar, ipar, ierr )
          dfdx = 0
       end function f_01
       
-      real*8 function f_02 ( x, dfdx, lrpar, rpar, lipar, ipar, ierr )
+      real(dp) function f_02 ( x, dfdx, lrpar, rpar, lipar, ipar, ierr )
          integer, intent(in) :: lrpar, lipar
          real(dp), intent(in) :: x
          real(dp), intent(out) :: dfdx
@@ -380,7 +380,7 @@ real*8 function f_02 ( x, dfdx, lrpar, rpar, lipar, ipar, ierr )
          dfdx = 0
       end function f_02
       
-      real*8 function f_03 ( x, dfdx, lrpar, rpar, lipar, ipar, ierr )
+      real(dp) function f_03 ( x, dfdx, lrpar, rpar, lipar, ipar, ierr )
          integer, intent(in) :: lrpar, lipar
          real(dp), intent(in) :: x
          real(dp), intent(out) :: dfdx
@@ -392,7 +392,7 @@ real*8 function f_03 ( x, dfdx, lrpar, rpar, lipar, ipar, ierr )
          dfdx = 0
       end function f_03
       
-      real*8 function f_04 ( x, dfdx, lrpar, rpar, lipar, ipar, ierr )
+      real(dp) function f_04 ( x, dfdx, lrpar, rpar, lipar, ipar, ierr )
          integer, intent(in) :: lrpar, lipar
          real(dp), intent(in) :: x
          real(dp), intent(out) :: dfdx
@@ -404,7 +404,7 @@ real*8 function f_04 ( x, dfdx, lrpar, rpar, lipar, ipar, ierr )
          dfdx = 0
       end function f_04
       
-      real*8 function f_05 ( x, dfdx, lrpar, rpar, lipar, ipar, ierr )
+      real(dp) function f_05 ( x, dfdx, lrpar, rpar, lipar, ipar, ierr )
          integer, intent(in) :: lrpar, lipar
          real(dp), intent(in) :: x
          real(dp), intent(out) :: dfdx
@@ -437,12 +437,10 @@ subroutine test_brent_zero ( )
       !
         implicit none
 
-        real ( kind = 8 ) a
-        real ( kind = 8 ) b
-        real ( kind = 8 ) machep
-        real ( kind = 8 ) r8_epsilon
-        real ( kind = 8 ) t
-        real ( kind = 8 ) z
+        real(dp) a
+        real(dp) b
+        real(dp) machep
+        real(dp) t
 
         machep = epsilon ( machep )
         t = machep
@@ -502,15 +500,15 @@ subroutine test_zero_one ( a, b, machep, t, f, title )
       !
       !  Parameters:
       !
-      !    Input, real ( kind = 8 ) A, B, the two endpoints of the change of sign
+      !    Input, real(dp) A, B, the two endpoints of the change of sign
       !    interval.
       !
-      !    Input, real ( kind = 8 ) MACHEP, an estimate for the relative machine
+      !    Input, real(dp) MACHEP, an estimate for the relative machine
       !    precision.
       !
-      !    Input, real ( kind = 8 ) T, a positive error tolerance.
+      !    Input, real(dp) T, a positive error tolerance.
       !
-      !    Input, external real ( kind = 8 ) F, the name of a user-supplied
+      !    Input, external real(dp) F, the name of a user-supplied
       !    function, of the form "FUNCTION F ( X )", which evaluates the
       !    function whose zero is being sought.
       !
@@ -522,16 +520,16 @@ subroutine test_zero_one ( a, b, machep, t, f, title )
           include 'num_root_fcn.dek' ! f provides function values
        end interface
 
-        real ( kind = 8 ) a
-        real ( kind = 8 ) b
-        real ( kind = 8 ) fa
-        real ( kind = 8 ) fb
-        real ( kind = 8 ) fz
-        real ( kind = 8 ) machep
-        real ( kind = 8 ) t
+        real(dp) a
+        real(dp) b
+        real(dp) fa
+        real(dp) fb
+        real(dp) fz
+        real(dp) machep
+        real(dp) t
         character ( len = *  ) title
-        real ( kind = 8 ) z
-        real ( kind = 8 ) dfdx
+        real(dp) z
+        real(dp) dfdx
         
         integer, parameter :: lrpar = 0, lipar = 0
         integer :: ierr
@@ -566,10 +564,6 @@ subroutine test_zero_one ( a, b, machep, t, f, title )
 
         return
       end subroutine test_zero_one
-
-
-
-
-
+      
 
       end module test_brent
diff --git a/num/test/src/test_chemakzo.f b/num/test/src/test_chemakzo.f90
similarity index 98%
rename from num/test/src/test_chemakzo.f
rename to num/test/src/test_chemakzo.f90
index e712dc541..c1208c4c0 100644
--- a/num/test/src/test_chemakzo.f
+++ b/num/test/src/test_chemakzo.f90
@@ -33,7 +33,6 @@ subroutine chemakzo_jacob(n,x,h,y,f,dfdy,ld_dfdy,lrpar,rpar,lipar,ipar,ierr)
          real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
          real(dp) :: yprime(n)
          integer, intent(out) :: ierr
-         integer :: nz, i, j
          ierr = 0
          ipar(i_njac) = ipar(i_njac) + 1
          call chemakzo_jeval(ld_dfdy,n,x,y,yprime,dfdy,ierr,rpar,ipar)
@@ -160,7 +159,7 @@ subroutine do_test_chemakzo(which_solver,which_decsol,m_band,numerical_jacobian,
          logical :: consis
          integer, parameter :: ndisc = 0
          real(dp) :: h0, t(0:ndisc+1), atol(1), rtol(1)
-         integer :: i, mujac, mljac, matrix_type_spec, ierr, imas, mlmas, mumas, m1, m2, itol, nstep
+         integer :: mujac, mljac, matrix_type_spec, ierr, imas, mlmas, mumas, m1, m2, itol, nstep
          real(dp), target :: rpar_ary(lrpar) 
          integer, target :: ipar_ary(lipar)
          real(dp), pointer :: rpar(:)
diff --git a/num/test/src/test_diffusion.f b/num/test/src/test_diffusion.f90
similarity index 98%
rename from num/test/src/test_diffusion.f
rename to num/test/src/test_diffusion.f90
index 7ab244a04..0518f0310 100644
--- a/num/test/src/test_diffusion.f
+++ b/num/test/src/test_diffusion.f90
@@ -30,7 +30,7 @@ subroutine diffusion_op(n,x,h,y,f,dfdy,ld_dfdy,lrpar,rpar,lipar,ipar,ierr)
          integer, intent(out) :: ierr
          
          real(dp) :: sig1, sig2
-         integer :: i, j
+         integer :: i
          ierr = 0
 
          f = 0; dfdy=0
@@ -89,7 +89,6 @@ subroutine diffusion_jacob(n,x,h,y,f,dfdy,ld_dfdy,lrpar,rpar,lipar,ipar,ierr)
          real(dp), intent(inout) :: f(:), dfdy(:,:)
          integer, intent(inout), pointer :: ipar(:) ! (lipar)
          real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
-         real(dp) :: yprime(n)
          integer, intent(out) :: ierr
          include 'formats'
          ierr = 0
@@ -182,7 +181,7 @@ subroutine do_test_diffusion(which_solver,which_decsol,numerical_jacobian,show_a
          real(dp), target :: y_ary(n)
          real(dp), pointer :: y(:)
          real(dp) :: result(n_soln), soln(n_soln), h0, atol(1), rtol(1), t(0:ndisc+1)
-         integer :: i, j, k, matrix_type_spec, ierr, imas, mlmas, mumas, m1, m2, itol
+         integer :: i, k, matrix_type_spec, ierr, imas, mlmas, mumas, m1, m2, itol
          real(dp), target :: rpar_ary(lrpar) 
          integer, target :: ipar_ary(lipar)
          real(dp), pointer :: rpar(:)
diff --git a/num/test/src/test_int_support.f b/num/test/src/test_int_support.f90
similarity index 95%
rename from num/test/src/test_int_support.f
rename to num/test/src/test_int_support.f90
index f8d2edf98..d63f73dc0 100644
--- a/num/test/src/test_int_support.f
+++ b/num/test/src/test_int_support.f90
@@ -46,10 +46,9 @@ subroutine do_test_stiff_int( &
          real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
          integer, intent(out) :: ierr
 
-         integer ::  i, k, nsteps, lout, iout, idid, ijac, max_cols_exptrap, &
-            max_steps, xnstp, nfcn, njac, naccept, nreject, ndec, nsol, nrdens, &
-            nzmax, lrd, lid, nrow, ncol, ndns, ndim, lfil, maxits, isparse, liwork, lwork
-         real(dp) :: h, droptol, eps, max_step_size, y_min, y_max
+         integer ::  i, lout, iout, idid, ijac, max_cols_exptrap, max_steps, nrdens, &
+            nzmax, lrd, lid, isparse, liwork, lwork
+         real(dp) :: h, eps, max_step_size, y_min, y_max
 
          integer, pointer :: iwork(:) !(liwork)
          real(dp), pointer :: work(:) !(lwork)
diff --git a/num/test/src/test_integrate.f b/num/test/src/test_integrate.f90
similarity index 100%
rename from num/test/src/test_integrate.f
rename to num/test/src/test_integrate.f90
diff --git a/num/test/src/test_medakzo.f b/num/test/src/test_medakzo.f
deleted file mode 100644
index 6929b9535..000000000
--- a/num/test/src/test_medakzo.f
+++ /dev/null
@@ -1,417 +0,0 @@
-      module test_medakzo
-      use num_def
-      use num_lib
-      use mtx_lib
-      use mtx_def
-      use test_int_support, only: i_nfcn, i_njac
-      use utils_lib, only: mesa_error
-
-      implicit none
-      
-      integer :: mljac, mujac
-
-      contains
-      
-      
-      subroutine medakzo_feval_for_blk_dble(neqn,t,y,yprime,f,ierr,rpar,ipar)
-      integer neqn,ierr,ipar(:)
-      double precision t,y(:),yprime(:),f(:),rpar(:)
-
-      integer N,i,j
-      double precision zeta,dzeta,dzeta2,k,c,phi,alpha,beta,gama,dum
-      parameter(k=100d0,c=4d0)
-      
-      include 'formats'
-
-      N      = neqn/2
-      dzeta  = 1d0/dble(N)
-      dzeta2 = dzeta*dzeta
-      dum    = (dzeta-1d0)*(dzeta-1d0)/c
-      alpha  = 2d0*(dzeta-1d0)*dum/c
-      beta   = dum*dum
-
-      if (t.le.5d0) then
-         phi = 2d0
-      else
-         phi = 0d0
-      endif
-
-      f(1) = (phi-2d0*y(1)+y(3))*beta/dzeta2+alpha*(y(3)-phi)/(2d0*dzeta)-k*y(1)*y(2)
-      f(2) = -k*y(1)*y(2)
-
-      do 10 j=2,N-1
-         i     = 2*j-1
-         zeta  = j*dzeta
-         dum   = (zeta-1d0)*(zeta-1d0)/c
-         alpha = 2d0*(zeta-1d0)*dum/c
-         beta  = dum*dum
-         gama = (y(i-2)-2d0*y(i)+y(i+2))*beta/dzeta2+alpha*(y(i+2)-y(i-2))/(2d0*dzeta)
-         f(i) = gama-k*y(i)*y(i+1)
-         i     = 2*j
-         f(i) = -k*y(i)*y(i-1)         
-   10 continue
-
-      f(2*N-1) = -k*y(2*N-1)*y(2*N)
-      f(2*N)   = -k*y(2*N-1)*y(2*N)
-
-      return
-      end subroutine medakzo_feval_for_blk_dble
-
-
-      subroutine medakzo_jeval_for_blk_dble(ldim,neqn,t,y,yprime,dfdy,ierr,rpar,ipar)
-      integer ldim,neqn,ierr,ipar(:)
-      double precision t,y(:),yprime(:),dfdy(:,:),rpar(:)
-
-      integer N,i,j
-      double precision zeta,dzeta,dzeta2,alpha,beta,k,c,dum,bz
-      parameter(k=100d0,c=4d0)
-
-      do 20 j=1,neqn
-         do 10 i=1,5
-            dfdy(i,j) = 0d0
-   10    continue
-   20 continue
-
-      N      = neqn/2
-      dzeta  = 1d0/dble(N)
-      dzeta2 = dzeta*dzeta
-      dum    = (dzeta-1d0)*(dzeta-1d0)/c
-      alpha  = 2d0*(dzeta-1d0)*dum/c
-      beta   = dum*dum
-
-      dfdy(3,1) = -beta*2d0/dzeta2-k*y(2)
-      dfdy(1,3) = beta/dzeta2+alpha/(2d0*dzeta)
-      dfdy(2,2) = -k*y(1)
-      dfdy(4,1) = -k*y(2)
-      dfdy(3,2) = -k*y(1)
-
-      do 30 j=2,N-1
-         i          = 2*j-1
-         zeta       = j*dzeta
-         dum        = (zeta-1d0)*(zeta-1d0)/c
-         alpha      = 2d0*(zeta-1d0)*dum/c
-         beta       = dum*dum
-         bz         = beta/dzeta2
-         dfdy(5,i-2) = bz-alpha/(2d0*dzeta)
-         dfdy(3,i)   = -2d0*bz-k*y(i+1)
-         dfdy(1,i+2) = bz+alpha/(2d0*dzeta)
-         dfdy(2,i+1) = -k*y(i)
-         i          = 2*j
-         dfdy(4,i-1) = -k*y(i)
-         dfdy(3,i)   = -k*y(i-1)
-   30 continue
-
-      dfdy(3,2*N-1) = -k*y(2*N)
-      dfdy(2,2*N)   = -k*y(2*N-1)
-      dfdy(4,2*N-1) = -k*y(2*N)
-      dfdy(3,2*N)   = -k*y(2*N-1)
-
-      return
-      end subroutine medakzo_jeval_for_blk_dble
-
-
-      subroutine medakzo_fcn_blk_dble(n,caller_id,nvar,nz,x,h,y,f,lrpar,rpar,lipar,ipar,ierr)
-         use const_def, only: dp
-         integer, intent(in) :: n, caller_id, nvar, nz, lrpar, lipar
-         real(dp), intent(in) :: x,h
-         real(dp), intent(inout), pointer :: y(:) ! (n)
-         real(dp), intent(inout), pointer :: f(:) ! (n) ! dy/dx
-         integer, intent(inout), pointer :: ipar(:) ! (lipar)
-         real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
-         integer, intent(out) :: ierr
-         real(dp), target :: yprime_ary(n)
-         real(dp), pointer :: yprime(:)
-         ierr = 0
-         ipar(i_nfcn) = ipar(i_nfcn) + 1
-         yprime => yprime_ary
-         call medakzo_feval_for_blk_dble(n,x,y,yprime,f,ierr,rpar,ipar)
-      end subroutine medakzo_fcn_blk_dble
-
-
-      subroutine medakzo_derivs(n, x, h, vars, dvars_dx, lrpar, rpar, lipar, ipar, ierr)
-         integer, intent(in) :: n, lrpar, lipar
-         real(dp), intent(in) :: x,h
-         real(dp), intent(inout) :: vars(:) ! (n)
-         real(dp), intent(inout) :: dvars_dx(:) ! (n)
-         integer, intent(inout), pointer :: ipar(:) ! (lipar)
-         real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
-         real(dp) :: yprime(n)
-         integer, intent(out) :: ierr
-         include 'formats'
-         ierr = 0
-         ipar(i_nfcn) = ipar(i_nfcn) + 1
-         call medakzo_feval(n,x,vars,yprime,dvars_dx,ierr,rpar,ipar)
-      end subroutine medakzo_derivs
-
-
-      subroutine medakzo_jac_blk_dble(n,caller_id,nvar,nz,x,h,y,f,lblk1,dblk1,ublk1,lrpar,rpar,lipar,ipar,ierr)
-         use const_def,only: dp
-         integer,intent(in) :: n,caller_id,nvar,nz,lrpar,lipar
-         real(dp),intent(in) :: x,h
-         real(dp),intent(inout), pointer :: y(:) ! (n)
-         real(dp),intent(inout), pointer :: f(:) ! (n) ! dy/dx
-         real(dp),dimension(:),pointer,intent(inout) :: lblk1,dblk1,ublk1 ! =(nvar,nvar,nz)
-         integer,intent(inout),pointer :: ipar(:) ! (lipar)
-         real(dp),intent(inout),pointer :: rpar(:) ! (lrpar)
-         integer,intent(out) :: ierr
-         
-         real(dp),dimension(:,:,:),pointer :: lblk,dblk,ublk ! =(nvar,nvar,nz)
-         integer, parameter :: ld_dfdy = 5 ! for medakzo
-         real(dp), target :: dfdy1(ld_dfdy*n)
-         real(dp), pointer :: dfdy(:,:)
-         !real(dp), pointer :: banded(:,:,:)
-         integer :: i, k         
-         ierr = 0
-         dfdy(1:ld_dfdy,1:n) => dfdy1(1:ld_dfdy*n)
-
-         ierr = 0
-         ipar(i_njac) = ipar(i_njac) + 1
-         call medakzo_jeval_for_blk_dble(ld_dfdy,n,x,y,f,dfdy,ierr,rpar,ipar)
-         if (ierr == 0) call medakzo_fcn_blk_dble(n,caller_id,nvar,nz,x,h,y,f,lrpar,rpar,lipar,ipar,ierr)         
-         
-         !banded(1:ld_dfdy,1:nvar,1:nz) => dfdy1(1:ld_dfdy*n)
-         lblk(1:nvar,1:nvar,1:nz) => lblk1(1:nvar*nvar*nz)
-         dblk(1:nvar,1:nvar,1:nz) => dblk1(1:nvar*nvar*nz)
-         ublk(1:nvar,1:nvar,1:nz) => ublk1(1:nvar*nvar*nz)
-         
-         ! convert from banded to block tridiagonal
-         ! lblk(:,:,1) is not used; ublk(:,:,nz) is not used.
-         k = 1         
-         dblk(1,1,k) = dfdy(3,1) ! partial of f(1,k) wrt var(1,k)    dfdy(3,i)
-         dblk(1,2,k) = dfdy(2,2) ! partial of f(1,k) wrt var(2,k)    dfdy(2,i+1)
-         dblk(2,1,k) = dfdy(4,1) ! partial of f(2,k) wrt var(1,k)    dfdy(4,i)
-         dblk(2,2,k) = dfdy(3,2) ! partial of f(2,k) wrt var(2,k)    dfdy(3,i+1)
-         ublk(1,1,k) = dfdy(1,3) ! partial of f(1,k) wrt var(1,k+1)  dfdy(1,i+2)
-         
-!dfdy(1,i+2) partial of f(1,k) wrt var(1,k+1)
-!dfdy(2,i+1) partial of f(1,k) wrt var(2,k)
-!dfdy(3,i)   partial of f(1,k) wrt var(1,k)
-!dfdy(3,i+1) partial of f(2,k) wrt var(2,k)
-!dfdy(4,i)   partial of f(2,k) wrt var(1,k)
-!dfdy(5,i-2) partial of f(1,k) wrt var(1,k-1)         
-
-         do k=2,nz-1
-            i = 2*k-1            
-            ! set lblk
-            lblk(1,1,k) = dfdy(5,i-2) ! partial of f(1,k) wrt var(1,k-1)
-            lblk(1,2,k) = 0 ! partial of f(1,k) wrt var(2,k-1)
-            lblk(2,1,k) = 0 ! partial of f(2,k) wrt var(1,k-1)
-            lblk(2,2,k) = 0 ! partial of f(2,k) wrt var(2,k-1)
-            ! set dblk
-            dblk(1,1,k) = dfdy(3,i)   ! partial of f(1,k) wrt var(1,k)  dfdy(3,i)
-            dblk(1,2,k) = dfdy(2,i+1) ! partial of f(1,k) wrt var(2,k)  dfdy(2,i+1)
-            dblk(2,1,k) = dfdy(4,i)   ! partial of f(2,k) wrt var(1,k)  dfdy(4,i)
-            dblk(2,2,k) = dfdy(3,i+1) ! partial of f(2,k) wrt var(2,k)  dfdy(3,i+1)
-            ! set ublk
-            ublk(1,1,k) = dfdy(1,i+2) ! partial of f(1,k) wrt var(1,k+1)   dfdy(1,i+2)
-            ublk(2,1,k) = 0 ! partial of f(2,k) wrt var(1,k+1)
-            ublk(1,2,k) = 0 ! partial of f(1,k) wrt var(2,k+1)
-            ublk(2,2,k) = 0 ! partial of f(2,k) wrt var(2,k+1)
-         end do   
-         
-         k = nz
-         i = 2*k-1
-         dblk(1,1,k) = dfdy(3,i)   ! partial of f(1,k) wrt var(1,k)
-         dblk(1,2,k) = dfdy(2,i+1) ! partial of f(1,k) wrt var(2,k)
-         dblk(2,1,k) = dfdy(4,i)   ! partial of f(2,k) wrt var(1,k)
-         dblk(2,2,k) = dfdy(3,i+1) ! partial of f(2,k) wrt var(2,k)
-         
-      end subroutine medakzo_jac_blk_dble
-
-
-      subroutine medakzo_jacob(n,x,h,y,f,dfdy,ld_dfdy,lrpar,rpar,lipar,ipar,ierr)
-         integer, intent(in) :: n, ld_dfdy, lrpar, lipar
-         real(dp), intent(in) :: x, h
-         real(dp), intent(inout) :: y(:)
-         real(dp), intent(inout) :: f(:), dfdy(:,:)
-         integer, intent(inout), pointer :: ipar(:) ! (lipar)
-         real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
-         real(dp) :: yprime(n)
-         integer, intent(out) :: ierr
-         integer :: nz, i, j
-         include 'formats'
-         ierr = 0
-         ipar(i_njac) = ipar(i_njac) + 1
-         call medakzo_jeval(ld_dfdy,n,x,y,yprime,dfdy,ierr,rpar,ipar)
-         if (ierr == 0) call medakzo_derivs(n, x, h, y, f, lrpar,rpar,lipar,ipar, ierr)
-         !write(*,*)
-         !write(*,2)'medakzo_jacob', ipar(i_njac), x, y(1), dfdy(3,1:2)
-      end subroutine medakzo_jacob
-
-
-      subroutine medakzo_sjac(n,x,h,y,f,nzmax,ia,ja,values,lrpar,rpar,lipar,ipar,ierr)  
-         ! sparse jacobian. format either compressed row or compressed column.
-         use mtx_lib,only:band_to_row_sparse_with_diag,band_to_col_sparse_with_diag,mtx_rcond_banded
-         use test_int_support,only:ipar_sparse_format
-         integer, intent(in) :: n, nzmax, lrpar, lipar
-         real(dp), intent(in) :: x, h
-         real(dp), intent(inout) :: y(:) ! (n)
-         real(dp), intent(inout) :: f(:) ! (n) ! dy/dx
-         integer, intent(inout) :: ia(:) ! (n+1)
-         integer, intent(inout) :: ja(:) ! (nzmax)
-         real(dp), intent(inout) :: values(:) ! (nzmax)
-         integer, intent(inout), pointer :: ipar(:) ! (lipar)
-         real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
-         integer, intent(out) :: ierr ! nonzero means terminate integration
-         
-         real(dp) :: dfdy(n,n)
-         integer :: ld_dfdy, nz
-         ld_dfdy = n
-         ierr = 0
-         call medakzo_jacob(n,x,h,y,f,dfdy,ld_dfdy,lrpar,rpar,lipar,ipar,ierr)
-         if (ierr /= 0) return
-         if (ipar(ipar_sparse_format) == 0) then
-            call band_to_row_sparse_with_diag(n,mljac,mujac,dfdy,ld_dfdy,nzmax,nz,ia,ja,values,ierr)
-         else
-            call band_to_col_sparse_with_diag(n,mljac,mujac,dfdy,ld_dfdy,nzmax,nz,ia,ja,values,ierr)
-         end if
-      end subroutine medakzo_sjac
-      
-      
-      subroutine do_test_medakzo(which_solver,which_decsol,numerical_jacobian,show_all,quiet)
-         use test_support,only:show_results,show_statistics,check_results
-         use test_int_support,only:do_test_stiff_int
-         integer, intent(in) :: which_solver,which_decsol
-         logical, intent(in) :: numerical_jacobian,show_all,quiet
-
-         integer, parameter :: nvar = 2, nz = 200
-         integer, parameter :: n = nvar*nz ! the number of variables in the "medakzo" system of ODEs
-         real(dp), target :: y_ary(n), yprime(n), yexact(n)
-         real(dp), pointer :: y(:)
-         integer, parameter :: lrpar = 1, lipar = 3, iout=1
-         logical :: consis
-         integer, parameter :: ndisc = 1, n_soln=11
-         real(dp) :: result(n_soln), soln(n_soln), h0, t(0:ndisc+1), atol(1), rtol(1)
-         integer :: i, j, k, matrix_type_spec, ierr, imas, mlmas, mumas, m1, m2, itol, nstep
-         real(dp), target :: rpar_ary(lrpar) 
-         integer, target :: ipar_ary(lipar)
-         real(dp), pointer :: rpar(:)
-         integer, pointer :: ipar(:)
-         integer :: caller_id, nvar_blk_dble, nz_blk_dble
-         real(dp), dimension(:), pointer :: lblk, dblk, ublk ! =(nvar,nvar,nz)
-         real(dp), dimension(:), pointer :: uf_lblk, uf_dblk, uf_ublk ! =(nvar,nvar,nz)
-         logical, parameter :: dbg = .false.
-
-         include 'formats'
-                  
-         rpar => rpar_ary
-         ipar => ipar_ary
-         y => y_ary
-            
-         if (.not. quiet) write(*,*) 'medakzo'
-
-         nullify(lblk, dblk, ublk, uf_lblk, uf_dblk, uf_ublk)
-         caller_id = 0
-         nvar_blk_dble = 0
-         nz_blk_dble = 0
-
-         t(0)   = 0d0
-         if (dbg) then
-            t(1)   = 0.05d0
-            t(2)   = 0.20d0
-         else
-            t(1)   = 5d0
-            t(2)   = 20d0
-         end if
-         
-         itol = 0 ! scalar tolerances
-         rtol = 1d-6
-         atol = 1d-6
-         h0 = 1d-9 ! initial step size
-         
-         matrix_type_spec = banded_matrix_type
-         mljac = 2
-         mujac = 2
-
-         imas = 0
-         mlmas = 0
-         mumas = 0        
-         
-         m1 = 0
-         m2 = 0     
-         
-         call medakzo_init(n,y,yprime,consis)
-         nstep=0        
-
-         if (nvar_blk_dble == 0) then
-            call do_test_stiff_int(which_solver,which_decsol,numerical_jacobian, &
-               medakzo_derivs,medakzo_jacob,medakzo_sjac,medakzo_solout,iout, &
-               null_fcn_blk_dble,null_jac_blk_dble, &
-               caller_id,nvar_blk_dble,nz_blk_dble,lblk,dblk,ublk,uf_lblk,uf_dblk,uf_ublk, &
-               n,ndisc,mljac,mujac,matrix_type_spec,null_mas,imas,mlmas,mumas,m1,m2, &
-               t,rtol,atol,itol,h0,y,nstep,lrpar,rpar,lipar,ipar,quiet,ierr)
-         else
-            call do_test_stiff_int(which_solver,which_decsol,numerical_jacobian, &
-               null_fcn,null_jac,null_sjac,medakzo_solout,iout, &
-               medakzo_fcn_blk_dble,medakzo_jac_blk_dble, &
-               caller_id,nvar_blk_dble,nz_blk_dble,lblk,dblk,ublk,uf_lblk,uf_dblk,uf_ublk, &
-               n,ndisc,mljac,mujac,matrix_type_spec,null_mas,imas,mlmas,mumas,m1,m2, &
-               t,rtol,atol,itol,h0,y,nstep,lrpar,rpar,lipar,ipar,quiet,ierr)
-         end if
-         if (ierr /= 0) then
-            write(*,*) 'test_medakzo ierr', ierr
-            call mesa_error(__FILE__,__LINE__)
-         end if
-         
-         call medakzo_solut(n,0d0,yexact)
-         j = 1
-         do k = 1, n/2, max(1,(n/2-1)/11)
-            if (j > n_soln) exit
-            result(j) = y(1+2*(k-1))
-            soln(j) = yexact(1+2*(k-1))
-            j = j+1
-         end do
-
-         if (.not. dbg) then
-            call check_results(n,y,yexact,rtol(1)*50,ierr)
-            if (ierr /= 0) then
-               write(*,*) 'check results ierr', ierr
-               !call mesa_error(__FILE__,__LINE__) ! do_test_medakzo
-            end if
-         end if
-         
-         if (quiet) return
-         
-         call show_results(n_soln,result,soln,show_all)
-         call show_statistics(ipar(i_nfcn),ipar(i_njac),nstep,show_all)
-
-      end subroutine do_test_medakzo
-
-
-      subroutine medakzo_solout(nr,xold,x,n,y,rwork,iwork,interp_y,lrpar,rpar,lipar,ipar,irtrn)
-         ! nr is the step number.
-         ! x is the current x value; xold is the previous x value.
-         ! y is the current y value.
-         ! irtrn negative means terminate integration.
-         ! rwork and iwork hold info for 
-         integer, intent(in) :: nr, n, lrpar, lipar
-         real(dp), intent(in) :: xold, x
-         real(dp), intent(inout) :: y(:) ! (n)
-         real(dp), intent(inout), target :: rwork(*)
-         integer, intent(inout), target :: iwork(*)
-         integer, intent(inout), pointer :: ipar(:) ! (lipar)
-         real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
-         interface
-            ! this subroutine can be called from your solout routine.
-            ! it computes interpolated values for y components during the just completed step.
-            real(dp) function interp_y(i,s,rwork,iwork,ierr)
-               use const_def, only: dp
-               integer, intent(in) :: i ! result is interpolated approximation of y(i) at x=s.
-               real(dp), intent(in) :: s ! interpolation x value (between xold and x).
-               real(dp), intent(inout), target :: rwork(*)
-               integer, intent(inout), target :: iwork(*)
-               integer, intent(out) :: ierr
-            end function interp_y
-         end interface
-         integer, intent(out) :: irtrn
-         real(dp) :: xout, y1, y2
-         integer :: ierr
-         include 'formats'
-         !if (mod(nr,10) == 0) write(*,2) 'step', nr, x, y(1:2)
-         !if (nr >= 100) stop
-         ierr = 0
-         irtrn = 0
-      end subroutine medakzo_solout
-            
-      
-      end module test_medakzo
diff --git a/num/test/src/test_medakzo.f90 b/num/test/src/test_medakzo.f90
new file mode 100644
index 000000000..9176fae49
--- /dev/null
+++ b/num/test/src/test_medakzo.f90
@@ -0,0 +1,405 @@
+module test_medakzo
+   use num_def
+   use num_lib
+   use mtx_lib
+   use mtx_def
+   use test_int_support, only: i_nfcn, i_njac
+   use utils_lib, only: mesa_error
+
+   implicit none
+
+   integer :: mljac, mujac
+
+contains
+
+   subroutine medakzo_feval_for_blk_dble(neqn, t, y, yprime, f, ierr, rpar, ipar)
+      integer neqn, ierr, ipar(:)
+      double precision t, y(:), yprime(:), f(:), rpar(:)
+
+      integer N, i, j
+      double precision zeta, dzeta, dzeta2, k, c, phi, alpha, beta, gama, dum
+      parameter(k=100d0, c=4d0)
+
+      include 'formats'
+
+      N = neqn/2
+      dzeta = 1d0/dble(N)
+      dzeta2 = dzeta*dzeta
+      dum = (dzeta - 1d0)*(dzeta - 1d0)/c
+      alpha = 2d0*(dzeta - 1d0)*dum/c
+      beta = dum*dum
+
+      if (t .le. 5d0) then
+         phi = 2d0
+      else
+         phi = 0d0
+      end if
+
+      f(1) = (phi - 2d0*y(1) + y(3))*beta/dzeta2 + alpha*(y(3) - phi)/(2d0*dzeta) - k*y(1)*y(2)
+      f(2) = -k*y(1)*y(2)
+
+      do j = 2, N - 1
+         i = 2*j - 1
+         zeta = j*dzeta
+         dum = (zeta - 1d0)*(zeta - 1d0)/c
+         alpha = 2d0*(zeta - 1d0)*dum/c
+         beta = dum*dum
+         gama = (y(i - 2) - 2d0*y(i) + y(i + 2))*beta/dzeta2 + alpha*(y(i + 2) - y(i - 2))/(2d0*dzeta)
+         f(i) = gama - k*y(i)*y(i + 1)
+         i = 2*j
+         f(i) = -k*y(i)*y(i - 1)
+      end do
+
+      f(2*N - 1) = -k*y(2*N - 1)*y(2*N)
+      f(2*N) = -k*y(2*N - 1)*y(2*N)
+
+      return
+   end subroutine medakzo_feval_for_blk_dble
+
+   subroutine medakzo_jeval_for_blk_dble(ldim, neqn, t, y, yprime, dfdy, ierr, rpar, ipar)
+      integer ldim, neqn, ierr, ipar(:)
+      double precision t, y(:), yprime(:), dfdy(:, :), rpar(:)
+
+      integer N, i, j
+      double precision zeta, dzeta, dzeta2, alpha, beta, k, c, dum, bz
+      parameter(k=100d0, c=4d0)
+
+      do j = 1, neqn
+         do i = 1, 5
+            dfdy(i, j) = 0d0
+         end do
+      end do
+
+      N = neqn/2
+      dzeta = 1d0/dble(N)
+      dzeta2 = dzeta*dzeta
+      dum = (dzeta - 1d0)*(dzeta - 1d0)/c
+      alpha = 2d0*(dzeta - 1d0)*dum/c
+      beta = dum*dum
+
+      dfdy(3, 1) = -beta*2d0/dzeta2 - k*y(2)
+      dfdy(1, 3) = beta/dzeta2 + alpha/(2d0*dzeta)
+      dfdy(2, 2) = -k*y(1)
+      dfdy(4, 1) = -k*y(2)
+      dfdy(3, 2) = -k*y(1)
+
+      do j = 2, N - 1
+         i = 2*j - 1
+         zeta = j*dzeta
+         dum = (zeta - 1d0)*(zeta - 1d0)/c
+         alpha = 2d0*(zeta - 1d0)*dum/c
+         beta = dum*dum
+         bz = beta/dzeta2
+         dfdy(5, i - 2) = bz - alpha/(2d0*dzeta)
+         dfdy(3, i) = -2d0*bz - k*y(i + 1)
+         dfdy(1, i + 2) = bz + alpha/(2d0*dzeta)
+         dfdy(2, i + 1) = -k*y(i)
+         i = 2*j
+         dfdy(4, i - 1) = -k*y(i)
+         dfdy(3, i) = -k*y(i - 1)
+      end do
+
+      dfdy(3, 2*N - 1) = -k*y(2*N)
+      dfdy(2, 2*N) = -k*y(2*N - 1)
+      dfdy(4, 2*N - 1) = -k*y(2*N)
+      dfdy(3, 2*N) = -k*y(2*N - 1)
+
+      return
+   end subroutine medakzo_jeval_for_blk_dble
+
+   subroutine medakzo_fcn_blk_dble(n, caller_id, nvar, nz, x, h, y, f, lrpar, rpar, lipar, ipar, ierr)
+      use const_def, only: dp
+      integer, intent(in) :: n, caller_id, nvar, nz, lrpar, lipar
+      real(dp), intent(in) :: x, h
+      real(dp), intent(inout), pointer :: y(:) ! (n)
+      real(dp), intent(inout), pointer :: f(:) ! (n) ! dy/dx
+      integer, intent(inout), pointer :: ipar(:) ! (lipar)
+      real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
+      integer, intent(out) :: ierr
+      real(dp), target :: yprime_ary(n)
+      real(dp), pointer :: yprime(:)
+      ierr = 0
+      ipar(i_nfcn) = ipar(i_nfcn) + 1
+      yprime => yprime_ary
+      call medakzo_feval_for_blk_dble(n, x, y, yprime, f, ierr, rpar, ipar)
+   end subroutine medakzo_fcn_blk_dble
+
+   subroutine medakzo_derivs(n, x, h, vars, dvars_dx, lrpar, rpar, lipar, ipar, ierr)
+      integer, intent(in) :: n, lrpar, lipar
+      real(dp), intent(in) :: x, h
+      real(dp), intent(inout) :: vars(:) ! (n)
+      real(dp), intent(inout) :: dvars_dx(:) ! (n)
+      integer, intent(inout), pointer :: ipar(:) ! (lipar)
+      real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
+      real(dp) :: yprime(n)
+      integer, intent(out) :: ierr
+      include 'formats'
+      ierr = 0
+      ipar(i_nfcn) = ipar(i_nfcn) + 1
+      call medakzo_feval(n, x, vars, yprime, dvars_dx, ierr, rpar, ipar)
+   end subroutine medakzo_derivs
+
+   subroutine medakzo_jac_blk_dble(n, caller_id, nvar, nz, x, h, y, f, lblk1, dblk1, ublk1, lrpar, rpar, lipar, ipar, ierr)
+      use const_def, only: dp
+      integer, intent(in) :: n, caller_id, nvar, nz, lrpar, lipar
+      real(dp), intent(in) :: x, h
+      real(dp), intent(inout), pointer :: y(:) ! (n)
+      real(dp), intent(inout), pointer :: f(:) ! (n) ! dy/dx
+      real(dp), dimension(:), pointer, intent(inout) :: lblk1, dblk1, ublk1 ! =(nvar,nvar,nz)
+      integer, intent(inout), pointer :: ipar(:) ! (lipar)
+      real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
+      integer, intent(out) :: ierr
+
+      real(dp), dimension(:, :, :), pointer :: lblk, dblk, ublk ! =(nvar,nvar,nz)
+      integer, parameter :: ld_dfdy = 5 ! for medakzo
+      real(dp), target :: dfdy1(ld_dfdy*n)
+      real(dp), pointer :: dfdy(:, :)
+      !real(dp), pointer :: banded(:,:,:)
+      integer :: i, k
+      ierr = 0
+      dfdy(1:ld_dfdy, 1:n) => dfdy1(1:ld_dfdy*n)
+
+      ierr = 0
+      ipar(i_njac) = ipar(i_njac) + 1
+      call medakzo_jeval_for_blk_dble(ld_dfdy, n, x, y, f, dfdy, ierr, rpar, ipar)
+      if (ierr == 0) call medakzo_fcn_blk_dble(n, caller_id, nvar, nz, x, h, y, f, lrpar, rpar, lipar, ipar, ierr)
+
+      !banded(1:ld_dfdy,1:nvar,1:nz) => dfdy1(1:ld_dfdy*n)
+      lblk(1:nvar, 1:nvar, 1:nz) => lblk1(1:nvar*nvar*nz)
+      dblk(1:nvar, 1:nvar, 1:nz) => dblk1(1:nvar*nvar*nz)
+      ublk(1:nvar, 1:nvar, 1:nz) => ublk1(1:nvar*nvar*nz)
+
+      ! convert from banded to block tridiagonal
+      ! lblk(:,:,1) is not used; ublk(:,:,nz) is not used.
+      k = 1
+      dblk(1, 1, k) = dfdy(3, 1) ! partial of f(1,k) wrt var(1,k)    dfdy(3,i)
+      dblk(1, 2, k) = dfdy(2, 2) ! partial of f(1,k) wrt var(2,k)    dfdy(2,i+1)
+      dblk(2, 1, k) = dfdy(4, 1) ! partial of f(2,k) wrt var(1,k)    dfdy(4,i)
+      dblk(2, 2, k) = dfdy(3, 2) ! partial of f(2,k) wrt var(2,k)    dfdy(3,i+1)
+      ublk(1, 1, k) = dfdy(1, 3) ! partial of f(1,k) wrt var(1,k+1)  dfdy(1,i+2)
+
+!dfdy(1,i+2) partial of f(1,k) wrt var(1,k+1)
+!dfdy(2,i+1) partial of f(1,k) wrt var(2,k)
+!dfdy(3,i)   partial of f(1,k) wrt var(1,k)
+!dfdy(3,i+1) partial of f(2,k) wrt var(2,k)
+!dfdy(4,i)   partial of f(2,k) wrt var(1,k)
+!dfdy(5,i-2) partial of f(1,k) wrt var(1,k-1)
+
+      do k = 2, nz - 1
+         i = 2*k - 1
+         ! set lblk
+         lblk(1, 1, k) = dfdy(5, i - 2) ! partial of f(1,k) wrt var(1,k-1)
+         lblk(1, 2, k) = 0 ! partial of f(1,k) wrt var(2,k-1)
+         lblk(2, 1, k) = 0 ! partial of f(2,k) wrt var(1,k-1)
+         lblk(2, 2, k) = 0 ! partial of f(2,k) wrt var(2,k-1)
+         ! set dblk
+         dblk(1, 1, k) = dfdy(3, i)   ! partial of f(1,k) wrt var(1,k)  dfdy(3,i)
+         dblk(1, 2, k) = dfdy(2, i + 1) ! partial of f(1,k) wrt var(2,k)  dfdy(2,i+1)
+         dblk(2, 1, k) = dfdy(4, i)   ! partial of f(2,k) wrt var(1,k)  dfdy(4,i)
+         dblk(2, 2, k) = dfdy(3, i + 1) ! partial of f(2,k) wrt var(2,k)  dfdy(3,i+1)
+         ! set ublk
+         ublk(1, 1, k) = dfdy(1, i + 2) ! partial of f(1,k) wrt var(1,k+1)   dfdy(1,i+2)
+         ublk(2, 1, k) = 0 ! partial of f(2,k) wrt var(1,k+1)
+         ublk(1, 2, k) = 0 ! partial of f(1,k) wrt var(2,k+1)
+         ublk(2, 2, k) = 0 ! partial of f(2,k) wrt var(2,k+1)
+      end do
+
+      k = nz
+      i = 2*k - 1
+      dblk(1, 1, k) = dfdy(3, i)   ! partial of f(1,k) wrt var(1,k)
+      dblk(1, 2, k) = dfdy(2, i + 1) ! partial of f(1,k) wrt var(2,k)
+      dblk(2, 1, k) = dfdy(4, i)   ! partial of f(2,k) wrt var(1,k)
+      dblk(2, 2, k) = dfdy(3, i + 1) ! partial of f(2,k) wrt var(2,k)
+
+   end subroutine medakzo_jac_blk_dble
+
+   subroutine medakzo_jacob(n, x, h, y, f, dfdy, ld_dfdy, lrpar, rpar, lipar, ipar, ierr)
+      integer, intent(in) :: n, ld_dfdy, lrpar, lipar
+      real(dp), intent(in) :: x, h
+      real(dp), intent(inout) :: y(:)
+      real(dp), intent(inout) :: f(:), dfdy(:, :)
+      integer, intent(inout), pointer :: ipar(:) ! (lipar)
+      real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
+      real(dp) :: yprime(n)
+      integer, intent(out) :: ierr
+      include 'formats'
+      ierr = 0
+      ipar(i_njac) = ipar(i_njac) + 1
+      call medakzo_jeval(ld_dfdy, n, x, y, yprime, dfdy, ierr, rpar, ipar)
+      if (ierr == 0) call medakzo_derivs(n, x, h, y, f, lrpar, rpar, lipar, ipar, ierr)
+      !write(*,*)
+      !write(*,2)'medakzo_jacob', ipar(i_njac), x, y(1), dfdy(3,1:2)
+   end subroutine medakzo_jacob
+
+   subroutine medakzo_sjac(n, x, h, y, f, nzmax, ia, ja, values, lrpar, rpar, lipar, ipar, ierr)
+      ! sparse jacobian. format either compressed row or compressed column.
+      use mtx_lib, only: band_to_row_sparse_with_diag, band_to_col_sparse_with_diag, mtx_rcond_banded
+      use test_int_support, only: ipar_sparse_format
+      integer, intent(in) :: n, nzmax, lrpar, lipar
+      real(dp), intent(in) :: x, h
+      real(dp), intent(inout) :: y(:) ! (n)
+      real(dp), intent(inout) :: f(:) ! (n) ! dy/dx
+      integer, intent(inout) :: ia(:) ! (n+1)
+      integer, intent(inout) :: ja(:) ! (nzmax)
+      real(dp), intent(inout) :: values(:) ! (nzmax)
+      integer, intent(inout), pointer :: ipar(:) ! (lipar)
+      real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
+      integer, intent(out) :: ierr ! nonzero means terminate integration
+
+      real(dp) :: dfdy(n, n)
+      integer :: ld_dfdy, nz
+      ld_dfdy = n
+      ierr = 0
+      call medakzo_jacob(n, x, h, y, f, dfdy, ld_dfdy, lrpar, rpar, lipar, ipar, ierr)
+      if (ierr /= 0) return
+      if (ipar(ipar_sparse_format) == 0) then
+         call band_to_row_sparse_with_diag(n, mljac, mujac, dfdy, ld_dfdy, nzmax, nz, ia, ja, values, ierr)
+      else
+         call band_to_col_sparse_with_diag(n, mljac, mujac, dfdy, ld_dfdy, nzmax, nz, ia, ja, values, ierr)
+      end if
+   end subroutine medakzo_sjac
+
+   subroutine do_test_medakzo(which_solver, which_decsol, numerical_jacobian, show_all, quiet)
+      use test_support, only: show_results, show_statistics, check_results
+      use test_int_support, only: do_test_stiff_int
+      integer, intent(in) :: which_solver, which_decsol
+      logical, intent(in) :: numerical_jacobian, show_all, quiet
+
+      integer, parameter :: nvar = 2, nz = 200
+      integer, parameter :: n = nvar*nz ! the number of variables in the "medakzo" system of ODEs
+      real(dp), target :: y_ary(n), yprime(n), yexact(n)
+      real(dp), pointer :: y(:)
+      integer, parameter :: lrpar = 1, lipar = 3, iout = 1
+      logical :: consis
+      integer, parameter :: ndisc = 1, n_soln = 11
+      real(dp) :: result(n_soln), soln(n_soln), h0, t(0:ndisc + 1), atol(1), rtol(1)
+      integer :: j, k, matrix_type_spec, ierr, imas, mlmas, mumas, m1, m2, itol, nstep
+      real(dp), target :: rpar_ary(lrpar)
+      integer, target :: ipar_ary(lipar)
+      real(dp), pointer :: rpar(:)
+      integer, pointer :: ipar(:)
+      integer :: caller_id, nvar_blk_dble, nz_blk_dble
+      real(dp), dimension(:), pointer :: lblk, dblk, ublk ! =(nvar,nvar,nz)
+      real(dp), dimension(:), pointer :: uf_lblk, uf_dblk, uf_ublk ! =(nvar,nvar,nz)
+      logical, parameter :: dbg = .false.
+
+      include 'formats'
+
+      rpar => rpar_ary
+      ipar => ipar_ary
+      y => y_ary
+
+      if (.not. quiet) write (*, *) 'medakzo'
+
+      nullify (lblk, dblk, ublk, uf_lblk, uf_dblk, uf_ublk)
+      caller_id = 0
+      nvar_blk_dble = 0
+      nz_blk_dble = 0
+
+      t(0) = 0d0
+      if (dbg) then
+         t(1) = 0.05d0
+         t(2) = 0.20d0
+      else
+         t(1) = 5d0
+         t(2) = 20d0
+      end if
+
+      itol = 0 ! scalar tolerances
+      rtol = 1d-6
+      atol = 1d-6
+      h0 = 1d-9 ! initial step size
+
+      matrix_type_spec = banded_matrix_type
+      mljac = 2
+      mujac = 2
+
+      imas = 0
+      mlmas = 0
+      mumas = 0
+
+      m1 = 0
+      m2 = 0
+
+      call medakzo_init(n, y, yprime, consis)
+      nstep = 0
+
+      if (nvar_blk_dble == 0) then
+         call do_test_stiff_int(which_solver, which_decsol, numerical_jacobian, &
+                                medakzo_derivs, medakzo_jacob, medakzo_sjac, medakzo_solout, iout, &
+                                null_fcn_blk_dble, null_jac_blk_dble, &
+                                caller_id, nvar_blk_dble, nz_blk_dble, lblk, dblk, ublk, uf_lblk, uf_dblk, uf_ublk, &
+                                n, ndisc, mljac, mujac, matrix_type_spec, null_mas, imas, mlmas, mumas, m1, m2, &
+                                t, rtol, atol, itol, h0, y, nstep, lrpar, rpar, lipar, ipar, quiet, ierr)
+      else
+         call do_test_stiff_int(which_solver, which_decsol, numerical_jacobian, &
+                                null_fcn, null_jac, null_sjac, medakzo_solout, iout, &
+                                medakzo_fcn_blk_dble, medakzo_jac_blk_dble, &
+                                caller_id, nvar_blk_dble, nz_blk_dble, lblk, dblk, ublk, uf_lblk, uf_dblk, uf_ublk, &
+                                n, ndisc, mljac, mujac, matrix_type_spec, null_mas, imas, mlmas, mumas, m1, m2, &
+                                t, rtol, atol, itol, h0, y, nstep, lrpar, rpar, lipar, ipar, quiet, ierr)
+      end if
+      if (ierr /= 0) then
+         write (*, *) 'test_medakzo ierr', ierr
+         call mesa_error(__FILE__, __LINE__)
+      end if
+
+      call medakzo_solut(n, 0d0, yexact)
+      j = 1
+      do k = 1, n/2, max(1, (n/2 - 1)/11)
+         if (j > n_soln) exit
+         result(j) = y(1 + 2*(k - 1))
+         soln(j) = yexact(1 + 2*(k - 1))
+         j = j + 1
+      end do
+
+      if (.not. dbg) then
+         call check_results(n, y, yexact, rtol(1)*50, ierr)
+         if (ierr /= 0) then
+            write (*, *) 'check results ierr', ierr
+            !call mesa_error(__FILE__,__LINE__) ! do_test_medakzo
+         end if
+      end if
+
+      if (quiet) return
+
+      call show_results(n_soln, result, soln, show_all)
+      call show_statistics(ipar(i_nfcn), ipar(i_njac), nstep, show_all)
+
+   end subroutine do_test_medakzo
+
+   subroutine medakzo_solout(nr, xold, x, n, y, rwork, iwork, interp_y, lrpar, rpar, lipar, ipar, irtrn)
+      ! nr is the step number.
+      ! x is the current x value; xold is the previous x value.
+      ! y is the current y value.
+      ! irtrn negative means terminate integration.
+      ! rwork and iwork hold info for
+      integer, intent(in) :: nr, n, lrpar, lipar
+      real(dp), intent(in) :: xold, x
+      real(dp), intent(inout) :: y(:) ! (n)
+      real(dp), intent(inout), target :: rwork(*)
+      integer, intent(inout), target :: iwork(*)
+      integer, intent(inout), pointer :: ipar(:) ! (lipar)
+      real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
+      interface
+         ! this subroutine can be called from your solout routine.
+         ! it computes interpolated values for y components during the just completed step.
+         real(dp) function interp_y(i, s, rwork, iwork, ierr)
+            use const_def, only: dp
+            integer, intent(in) :: i ! result is interpolated approximation of y(i) at x=s.
+            real(dp), intent(in) :: s ! interpolation x value (between xold and x).
+            real(dp), intent(inout), target :: rwork(*)
+            integer, intent(inout), target :: iwork(*)
+            integer, intent(out) :: ierr
+         end function interp_y
+      end interface
+      integer, intent(out) :: irtrn
+      integer :: ierr
+      include 'formats'
+      !if (mod(nr,10) == 0) write(*,2) 'step', nr, x, y(1:2)
+      !if (nr >= 100) stop
+      ierr = 0
+      irtrn = 0
+   end subroutine medakzo_solout
+
+end module test_medakzo
diff --git a/num/test/src/test_newton.f b/num/test/src/test_newton.f90
similarity index 99%
rename from num/test/src/test_newton.f
rename to num/test/src/test_newton.f90
index 5eb655626..09cd4a954 100644
--- a/num/test/src/test_newton.f
+++ b/num/test/src/test_newton.f90
@@ -107,7 +107,6 @@ end subroutine do_test_newton
       subroutine do_1step_diffuse( &
             do_numerical_jacobian, which_decsol, &
             dt, kappa, nz, nvar, concentration, fluxes, delx, ierr)
-         integer i
          logical, intent(in) :: do_numerical_jacobian
          integer, intent(in) :: which_decsol
          integer, intent(in) :: nz, nvar
@@ -455,7 +454,6 @@ subroutine exit_setmatrix( &
          real(dp), intent(inout) :: rpar(:) ! (lrpar)
          integer, intent(inout) :: ipar(:) ! (lipar)
          integer, intent(out) :: ierr
-         integer :: i, j
          if (dbg) write(*, '(a, /)') 'exit_setmatrix'
          ierr = 0
       end subroutine exit_setmatrix
@@ -481,7 +479,7 @@ subroutine diffusion_set_xscale(nvar, nz, xold, xscale, lrpar, rpar, lipar, ipar
          real(dp), intent(inout) :: rpar(:) ! (lrpar)
          integer, intent(inout) :: ipar(:) ! (lipar)
          integer, intent(out) :: ierr
-         real(dp), parameter :: xscale_min = 1d0
+         ! real(dp), parameter :: xscale_min = 1d0
          xscale = 1.d0 ! max(xscale_min, abs(xold))
          ierr = 0
       end subroutine diffusion_set_xscale
diff --git a/num/test/src/test_newuoa.f b/num/test/src/test_newuoa.f
deleted file mode 100644
index ea3ac2c43..000000000
--- a/num/test/src/test_newuoa.f
+++ /dev/null
@@ -1,68 +0,0 @@
-      module test_newuoa
-      
-      use num_def
-      use num_lib
-      
-      integer :: nfcn
-
-      contains
-      
-      subroutine do_test_newuoa      
-
-!
-!     The Chebyquad test problem (Fletcher, 1965) for N = 2,4,6 and 8,
-!     with NPT = 2N+1.
-!
-      IMPLICIT REAL*8 (A-H,O-Z)
-      DIMENSION X(10),W(10000)
-      real*8, parameter :: max_valid_value = 1d99
-      include 'formats'
-      IPRINT=0
-      MAXFUN=5000
-      RHOEND=1.0D-6
-      DO 30 N=2,6,2
-      nfcn = 0
-      NPT=2*N+1
-      DO 10 I=1,N
-   10 X(I)=DFLOAT(I)/DFLOAT(N+1)
-      RHOBEG=0.2D0*X(1)
-      PRINT 20, N,NPT
-   20 FORMAT (4X,'test NEWUOA with N =',I2,' and NPT =',I3)
-      CALL NEWUOA (N,NPT,X,RHOBEG,RHOEND,IPRINT,MAXFUN,W,CALFUN,max_valid_value)
-      call calfun(n,x,f)
-      !write(*,2) 'f', nfcn, f
-      if (abs(f) > 1d-10) write(*,*) 'failed in test of newuoa: min f', f
-   30 CONTINUE
-      END subroutine do_test_newuoa
-
-
-
-      subroutine calfun(n,x,f)
-      use const_def, only: dp
-      integer, intent(in) :: n
-      real(dp), intent(in) :: x(*)
-      real(dp), intent(out) :: f
-
-      real(dp) :: Y(10,10)
-      nfcn = nfcn + 1
-      DO 10 J=1,N
-      Y(1,J)=1.0D0
-   10 Y(2,J)=2.0D0*X(J)-1.0D0
-      DO 20 I=2,N
-      DO 20 J=1,N
-   20 Y(I+1,J)=2.0D0*Y(2,J)*Y(I,J)-Y(I-1,J)
-      F=0.0D0
-      NP=N+1
-      IW=1
-      DO 40 I=1,NP
-      SUM=0.0D0
-      DO 30 J=1,N
-   30 SUM=SUM+Y(I,J)
-      SUM=SUM/DFLOAT(N)
-      IF (IW .GT. 0) SUM=SUM+1.0D0/DFLOAT(I*I-2*I)
-      IW=-IW
-   40 F=F+SUM*SUM
-      RETURN
-      END SUBROUTINE CALFUN      
-      
-      end module test_newuoa
diff --git a/num/test/src/test_newuoa.f90 b/num/test/src/test_newuoa.f90
new file mode 100644
index 000000000..83644227d
--- /dev/null
+++ b/num/test/src/test_newuoa.f90
@@ -0,0 +1,76 @@
+module test_newuoa
+
+   use num_def
+   use num_lib
+   use const_def, only: dp
+
+   implicit none
+
+   integer :: nfcn
+
+contains
+
+   subroutine do_test_newuoa
+
+!     The Chebyquad test problem (Fletcher, 1965) for N = 2,4,6 and 8,
+!     with NPT = 2N+1.
+!
+      real(dp), dimension(10) :: X
+      real(dp), dimension(10000) :: W
+      real(dp), parameter :: max_valid_value = 1d99
+      real(dp) :: f, RHOBEG, RHOend
+      integer :: IPRINT, I, N, NPT, MAXFUN
+      include 'formats'
+      IPRINT = 0
+      MAXFUN = 5000
+      RHOend = 1.0D-6
+      do N = 2, 6, 2
+         nfcn = 0
+         NPT = 2*N + 1
+         do I = 1, N
+            X(I) = DBLE(I)/DBLE(N + 1)
+         end do
+         RHOBEG = 0.2D0*X(1)
+         write (*, '(4X,A,I2,A,I3)') 'test NEWUOA with N =', N, ' and NPT =', NPT
+         call NEWUOA(N, NPT, X, RHOBEG, RHOend, IPRINT, MAXFUN, W, CALFUN, max_valid_value)
+         call calfun(n, x, f)
+         !write(*,2) 'f', nfcn, f
+         if (abs(f) > 1d-10) write (*, *) 'failed in test of newuoa: min f', f
+      end do
+   end subroutine do_test_newuoa
+
+   subroutine calfun(n, x, f)
+      use const_def, only: dp
+      integer, intent(in) :: n
+      real(dp), intent(in) :: x(*)
+      real(dp), intent(out) :: f
+
+      integer :: I, J, IW, NP
+      real(dp) :: Y(10, 10), sum
+      nfcn = nfcn + 1
+      do J = 1, N
+         Y(1, J) = 1.0D0
+         Y(2, J) = 2.0D0*X(J) - 1.0D0
+      end do
+      do I = 2, N
+      do J = 1, N
+         Y(I + 1, J) = 2.0D0*Y(2, J)*Y(I, J) - Y(I - 1, J)
+      end do
+      end do
+      F = 0.0D0
+      NP = N + 1
+      IW = 1
+      do I = 1, NP
+         SUM = 0.0D0
+         do J = 1, N
+            SUM = SUM + Y(I, J)
+         end do
+         SUM = SUM/DBLE(N)
+         IF (IW > 0) SUM = SUM + 1.0D0/DBLE(I*I - 2*I)
+         IW = -IW
+         F = F + SUM*SUM
+      end do
+      return
+   end subroutine CALFUN
+
+end module test_newuoa
diff --git a/num/test/src/test_num.f b/num/test/src/test_num.f90
similarity index 98%
rename from num/test/src/test_num.f
rename to num/test/src/test_num.f90
index abb6f39d9..8ef99706e 100644
--- a/num/test/src/test_num.f
+++ b/num/test/src/test_num.f90
@@ -33,7 +33,7 @@ program test_num
       logical, parameter :: show_all = .false.  ! false for releases
 
 
-      integer :: i, j, k, solver, decsol, omp_get_thread_num, ierr
+      integer :: i, decsol, ierr
       logical :: do_numerical_jacobian, m_band, j_band, quiet
       character (len=32) :: my_mesa_dir
 
diff --git a/num/test/src/test_pollu.f b/num/test/src/test_pollu.f90
similarity index 100%
rename from num/test/src/test_pollu.f
rename to num/test/src/test_pollu.f90
diff --git a/num/test/src/test_simplex.f b/num/test/src/test_simplex.f90
similarity index 99%
rename from num/test/src/test_simplex.f
rename to num/test/src/test_simplex.f90
index ac5a763fd..c6acce704 100644
--- a/num/test/src/test_simplex.f
+++ b/num/test/src/test_simplex.f90
@@ -47,7 +47,7 @@ subroutine test1_simplex( &
          real(dp), pointer :: rpar(:) ! (lrpar)
          integer :: num_iters, num_fcn_calls, &
             num_fcn_calls_for_ars, num_accepted_for_ars, ierr
-         integer :: seed, i, j, k
+         integer :: seed
          real(dp) :: alpha, beta, gamma, delta
          
          include 'formats'
diff --git a/num/test/src/test_support.f b/num/test/src/test_support.f90
similarity index 96%
rename from num/test/src/test_support.f
rename to num/test/src/test_support.f90
index 169160e5a..bbfc23f6c 100644
--- a/num/test/src/test_support.f
+++ b/num/test/src/test_support.f90
@@ -96,7 +96,7 @@ end function f
       
       subroutine test_root_with_brackets
          integer, parameter :: lrpar=0, lipar=0
-         real(dp) :: x, dfdx, y
+         real(dp) :: x, dfdx
          real(dp) :: x1, x3 ! bounds for x
             ! values of f at x1 and x3 must have opposite sign
             ! return value for safe_root will be bracketed by x1 and x3
@@ -105,7 +105,7 @@ subroutine test_root_with_brackets
          real(dp) :: epsx, epsy 
          ! stop seaching when x is determined to within epsx
          ! or when abs(f(x)) is less than epsy
-         integer :: i, ierr
+         integer :: ierr
          real(dp) :: expected_root = 0.74800611d0
          real(dp), target :: rpar_ary(lrpar)
          integer, target :: ipar_ary(lipar)
@@ -259,7 +259,6 @@ end function interp_y
          ! --- prints solution at equidistant output-points
          ! --- by using "contd8", the continuous collocation solution
          real(dp) :: xout, y1, y2
-         integer, parameter :: iprint = 6
          integer :: ierr
          xout = rpar(2)
          irtrn = 1
@@ -296,13 +295,11 @@ subroutine test_dopri(do_853,show_all)
          real(dp) :: atol(1) ! absolute error tolerance(s)
          real(dp) :: x ! starting value for the interval of integration
          real(dp) :: xend ! ending value for the interval of integration
-         real(dp) :: expect(nv), yprime(nv)
-         character (len=64) :: str
-         character (len=256) :: dir, fname
+         real(dp) :: expect(nv)
          integer, parameter :: lrpar = 2, lipar = 1, nrdens = nv
          integer, parameter :: liwork = nrdens+100, lwork = 11*nv+8*nrdens+100
-         real(dp) :: max_abs_yp2, h, max_step_size
-         integer :: io_unit, i, lout, iout, idid, itol, j
+         real(dp) :: h, max_step_size
+         integer :: lout, iout, idid, itol, j
          integer :: check_liwork, check_lwork, max_steps, ierr
          real(dp), target :: y_ary(nv)
          real(dp), pointer :: y(:)
@@ -422,7 +419,7 @@ subroutine test_binary_search
          write(*,*) 'binary_search, increasing values'
          
          loc = -1
-         val = [0d0, dble(n/3)**2 +2, vec(n)+1d0]
+         val = [0d0, FLOOR(n/3d0)**2+2d0, vec(n)+1d0]
          do k=1,3
             loc(k) = binary_search(n, vec, 0, val(k))
             if(loc(k) == 0 .and. val(k) < vec(1))then
@@ -472,7 +469,7 @@ subroutine test_qsort
          use const_def
          integer, parameter :: n = 100
          integer :: ord(n), i
-         real*8 :: a(n)
+         real(dp) :: a(n)
          include 'formats'
          write(*,*)
          write(*,*) 'qsort into increasing order'
@@ -487,14 +484,14 @@ subroutine test_qsort
       end subroutine test_qsort
       
       
-      real*8 function g(x) result(y)
-         real*8, intent(in) :: x
+      real(dp) function g(x) result(y)
+         real(dp), intent(in) :: x
          y = (x-3)*(x-8)
       end function g
       
       
       subroutine test_find0_quadratic
-         real*8 :: xx1, yy1, xx2, yy2, xx3, yy3, x, y
+         real(dp) :: xx1, yy1, xx2, yy2, xx3, yy3, x, y
          integer :: ierr
          include 'formats'
          write(*,*) 'test_find0_quadratic'
@@ -530,7 +527,7 @@ end subroutine test_find0_quadratic
       
       
       subroutine test_find_max_quadratic
-         real*8 :: x1, y1, x2, y2, x3, y3, dx1, dx2, xmax, ymax
+         real(dp) :: x1, y1, x2, y2, x3, y3, dx1, dx2, xmax, ymax
          integer :: ierr
          include 'formats'
          write(*,*) 'test_find_max_quadratic'
diff --git a/num/test/src/test_vdpol.f b/num/test/src/test_vdpol.f90
similarity index 98%
rename from num/test/src/test_vdpol.f
rename to num/test/src/test_vdpol.f90
index a197fc3c7..7b576fbe7 100644
--- a/num/test/src/test_vdpol.f
+++ b/num/test/src/test_vdpol.f90
@@ -75,7 +75,6 @@ subroutine vdpol_jac_blk_dble(n,caller_id,nvar,nz,x,h,y,f,lblk1,dblk1,ublk1,lrpa
          integer, parameter :: ld_dfdy = 2 ! for vdpol
          real(dp), target :: dfdy1(ld_dfdy*n)
          real(dp), pointer :: dfdy(:,:)
-         integer :: i, k 
          include 'formats'
          ierr = 0
          dfdy(1:ld_dfdy,1:n) => dfdy1(1:ld_dfdy*n)
@@ -101,7 +100,6 @@ subroutine vdpol_jacob(n,x,h,y,f,dfdy,ld_dfdy,lrpar,rpar,lipar,ipar,ierr)
          real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
          real(dp) :: yprime(n)
          integer, intent(out) :: ierr
-         integer :: nz, i, j
          ierr = 0
          ipar(i_njac) = ipar(i_njac) + 1
          call vdpol_jeval(ld_dfdy,n,x,y,yprime,dfdy,ierr,rpar,ipar)
@@ -224,7 +222,7 @@ subroutine do_test_vdpol(which_solver,which_decsol,numerical_jacobian,show_all,q
          logical :: consis
          integer, parameter :: ndisc = 0
          real(dp) :: h0, t(0:ndisc+1), atol(1), rtol(1)
-         integer :: i, mujac, mljac, matrix_type_spec, ierr, imas, mlmas, mumas, m1, m2, itol, iout, nstep
+         integer :: mujac, mljac, matrix_type_spec, ierr, imas, mlmas, mumas, m1, m2, itol, iout, nstep
          real(dp), target :: rpar_ary(lrpar) 
          integer, target :: ipar_ary(lipar)
          real(dp), pointer :: rpar(:)
diff --git a/rates/private/eval_ecapture.f90 b/rates/private/eval_ecapture.f90
index eab01f27c..a296b7d3f 100644
--- a/rates/private/eval_ecapture.f90
+++ b/rates/private/eval_ecapture.f90
@@ -61,7 +61,7 @@ subroutine do_eval_ecapture_reaction_info( &
 
     logical, parameter :: dbg = .false.
 
-    integer :: i, ir, in, out, j, lhs, rhs
+    integer :: i, ir, j, lhs, rhs
     integer :: offset, ntrans, lo, hi
     integer :: offset_lhs, nstates_lhs, lo_lhs, hi_lhs
     integer :: offset_rhs, nstates_rhs, lo_rhs, hi_rhs
diff --git a/rates/private/eval_weak.f90 b/rates/private/eval_weak.f90
index 8667833b5..e3574b8ed 100644
--- a/rates/private/eval_weak.f90
+++ b/rates/private/eval_weak.f90
@@ -153,7 +153,7 @@ subroutine do_eval_weaklib_reaction_info( &
          real(dp) :: T, T9, YeRho, lYeRho
          integer :: i, ir, in, out, rxn_idx
          logical :: neg
-         real(dp) :: decay, capture, Qx, Qn, conv, mue, d_mue_dlnRho, d_mue_dlnT
+         real(dp) :: Qx, conv, mue, d_mue_dlnRho, d_mue_dlnT
          character(len=iso_name_length) :: weak_lhs, weak_rhs
          integer, parameter :: nwork = pm_work_size
 
diff --git a/rates/private/load_weak.f90 b/rates/private/load_weak.f90
index ad561324e..0b3978172 100644
--- a/rates/private/load_weak.f90
+++ b/rates/private/load_weak.f90
@@ -590,7 +590,7 @@ subroutine load_user_weak_tables(ierr)
 
         subroutine read_hd5_file
 
-          use hdf5io_lib
+          use forum_m, only: hdf5io_t, OPEN_FILE_RO
 
           character (len=256)                 :: filename
           type(hdf5io_t)                      :: hi
@@ -642,8 +642,7 @@ end subroutine read_hd5_file
 
 
         subroutine extend
-            integer :: i, n
-            type(weaklib_rate_table) :: table
+            integer :: n
 
             type(table_c), dimension(:), allocatable :: tmp_weak_reactions_tables
 
diff --git a/rates/private/ratelib.f90 b/rates/private/ratelib.f90
index bfce96e76..bfb7549c6 100644
--- a/rates/private/ratelib.f90
+++ b/rates/private/ratelib.f90
@@ -92,12 +92,12 @@ subroutine rate_pp_fxt(tf, temp, fr, rr)
          if (tf% t9 .le. 3d0) then
             aa   = 4.01d-15 * tf% t9i23 * exp(-3.380d0*tf% t9i13) 
             bb   = 1.0d0 + 0.123d0*tf% t913 + 1.09d0*tf% t923 + 0.938d0*tf% t9 
-            term    = aa * bb
+            term = aa * bb
          else
-            term    = 1.1581136d-15
+            term = 1.1581136d-15
          end if
-         fr    = term 
-         rr    = 0.0d0
+         fr = term 
+         rr = 0.0d0
       end subroutine rate_pp_fxt
       
       
@@ -159,12 +159,12 @@ subroutine rate_pep_fxt(tf, temp, fr, rr)
          if ((tf% T9)  <=  3d0) then
             aa   = 1.36d-20 * (tf% T9i76) * exp(-3.380d0*(tf% T9i13))
             bb   = (1.0d0 - 0.729d0*(tf% T913) + 9.82d0*(tf% T923))
-            term    = aa * bb
+            term = aa * bb
          else
-            term    = 7.3824387d-21
+            term = 7.3824387d-21
          end if
-         fr    = term 
-         rr    = 0.0d0
+         fr = term 
+         rr = 0.0d0
       end subroutine rate_pep_fxt
       
 
@@ -197,11 +197,11 @@ subroutine rate_dpg_fxt(tf, temp, fr, rr)
             fr = 0; rr = 0; return
          end if 
           
-         aa      = 2.24d+03 * tf% t9i23 * exp(-3.720d0*tf% t9i13) 
-         bb      = 1.0d0 + 0.112d0*tf% t913 + 3.38d0*tf% t923 + 2.65d0*tf% t9
-         term    = aa * bb 
+         aa    = 2.24d+03 * tf% t9i23 * exp(-3.720d0*tf% t9i13) 
+         bb    = 1.0d0 + 0.112d0*tf% t913 + 3.38d0*tf% t923 + 2.65d0*tf% t9
+         term  = aa * bb 
          fr    = term 
-         rev      = 1.63d+10 * tf% t932 * exp(-63.750d0*tf% t9i)
+         rev   = 1.63d+10 * tf% t932 * exp(-63.750d0*tf% t9i)
          rr    = rev * term
          !if (temp > 3.1d6 .and. temp < 3.2d6) write(*,1) 'rates dpg', fr, temp
       end subroutine rate_dpg_fxt
@@ -211,7 +211,7 @@ subroutine rate_dpg_nacre(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, rev, drevdt, aa, daa, bb, dbb
+         real(dp) term, rev
 
          if (tf% t9 < lowT9pp_cutoff) then
             fr = 0; rr = 0; return
@@ -290,7 +290,7 @@ subroutine rate_png_fxt(tf, temp, fr, rr)
 !      dtermdt = 4.4d4 * daa
 
       fr    = term 
-      rev      = 4.71d+09 * (tf% T932) * exp(-25.82d0*(tf% T9i))
+      rev   = 4.71d+09 * (tf% T932) * exp(-25.82d0*(tf% T9i))
       rr    = rev * term
 
       end subroutine rate_png_fxt
@@ -339,12 +339,12 @@ subroutine rate_hep_fxt(tf, temp, fr, rr)
           
          if ((tf% T9)  <=  3d0) then
             aa   = 8.78d-13 * (tf% T9i23) * exp(-6.141d0*(tf% T9i13))
-            term    = aa
+            term = aa
          else
-            term    = 5.9733434d-15
+            term = 5.9733434d-15
          end if
-         fr    = term 
-         rr    = 0.0d0
+         fr = term 
+         rr = 0.0d0
       end subroutine rate_hep_fxt
 
 
@@ -395,7 +395,6 @@ subroutine rate_he3he3_jina(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, rev
 !       he3  he3  h1 h1 he4         
          call jina_reaclib_2_3(ihe3, ihe3, ih1, ih1, ihe4, tf, fr, rr, 'rate_he3he3_jina')
       end subroutine rate_he3he3_jina
@@ -542,14 +541,14 @@ subroutine rate_tripalf_nacre(tf, temp, fr, rr)
                bb = 0
             end if      
          else
-            bb    = 3.44d-16*(1 +     0.0158d0*pow(tf% T9,-0.65d0))
+            bb = 3.44d-16*(1 + 0.0158d0*pow(tf% T9,-0.65d0))
          end if      
-         term    = r2abe * rbeac * bb
+         term = r2abe * rbeac * bb
          call rnacre_rev(tf, &  ! a0 T932 exp(-a1/T9)
             2.003d20, 84.415d0, &  ! a0, a1
             rev)     
-         fr    = term
-         rr    = rev * term
+         fr = term
+         rr = rev * term
       end subroutine rate_tripalf_nacre
 
 
@@ -558,9 +557,9 @@ subroutine rate_tripalf_fxt(tf, temp, fr, rr)
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
 
-      real(dp) term, dtermdt, rev, drevdt, r2abe, dr2abedt, rbeac,  &
-                       drbeacdt, aa, daa, bb, dbb, cc, dcc, dd, ddd, ee, dee,  &
-                       ff, dff, xx, dxx, yy, dyy, zz, dzz, uu, vv, f1, df1, rc28,  &
+      real(dp) term, rev, r2abe, rbeac,  &
+                       aa, bb, cc, dd, ee, ff,  &
+                       xx, yy, zz, uu, vv, f1, rc28,  &
                        q1, q2
       parameter        (rc28   = 0.1d0,  &
                         q1     = 1.0d0/0.009604d0,  &
@@ -597,7 +596,7 @@ subroutine rate_tripalf_fxt(tf, temp, fr, rr)
 
 ! high temperature rate
          if ((tf% t9).gt.0.08d0) then
-          term    = 2.90d-16 * r2abe * rbeac + xx
+          term = 2.90d-16 * r2abe * rbeac + xx
 
 
 ! low temperature rate
@@ -637,9 +636,9 @@ subroutine rate_he3ng_fxt(tf, temp, fr, rr)
          end if 
           
 ! he3(n, g)he4
-      term    = 6.62d0 * (1.0d0 + 905.0d0*(tf% T9))
+      term  = 6.62d0 * (1.0d0 + 905.0d0*(tf% T9))
       fr    = term 
-      rev      = 2.61d+10 * (tf% T932) * exp(-238.81d0*(tf% T9i))
+      rev   = 2.61d+10 * (tf% T932) * exp(-238.81d0*(tf% T9i))
       rr    = rev * term
       end subroutine rate_he3ng_fxt
       
@@ -702,21 +701,21 @@ subroutine rate_be7em_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, bb, dbb
+         real(dp) term, aa, bb
 
          if (tf% t9 < lowT9pp_cutoff) then
             fr = 0; rr = 0; return
          end if 
           
          if (tf% T9 <= 3d0 .and. tf% T9 >= 1d-3) then
-            aa  = 0.0027d0*(tf% T9i) * exp(2.515d-3*(tf% T9i)) 
-            bb  = 1.0d0 - 0.537d0*(tf% T913) + 3.86d0*(tf% T923) + aa
-            term    = 1.34d-10 * (tf% T9i12) * bb
+            aa   = 0.0027d0*(tf% T9i) * exp(2.515d-3*(tf% T9i)) 
+            bb   = 1.0d0 - 0.537d0*(tf% T913) + 3.86d0*(tf% T923) + aa
+            term = 1.34d-10 * (tf% T9i12) * bb
          else
-            term    = 0.0d0
+            term = 0.0d0
          endif
-         fr    = term
-         rr    = 0.0d0
+         fr = term
+         rr = 0.0d0
       end subroutine rate_be7em_fxt
 
 
@@ -740,7 +739,7 @@ subroutine rate_be7pg_nacre(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, rev, aa, bb, cc
+         real(dp) term, rev
          ! a0 T9i23 exp(-a1 T9i13 - (T9*a2)^2) 
          !     * (1 + b0 T9 + b1 T92 + b2 T93 + b3 T94 + b4 T95) 
          ! + c0 T9i32 exp(-c1/T9)
@@ -901,9 +900,7 @@ subroutine rate_c12ag_fxt(tf, temp, fr, rr)
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
 
-         real(dp) term, dtermdt, rev, drevdt, aa, daa, bb, dbb, cc, dcc,  &
-                        dd, ddd, ee, dee, ff, dff, gg, dgg, hh, dhh, f1, df1, f2, df2,  &
-                        zz, q1, termE1, dtermE1, termE2, dtermE2, termRes, dtermRes
+         real(dp) term, rev, aa, bb, cc, dd, ee, ff, gg, hh, f1, f2, zz, q1
          parameter        (q1 = 1.0d0/12.222016d0)
 
             if (tf% t9 < lowT9_cutoff) then
@@ -922,12 +919,12 @@ subroutine rate_c12ag_fxt(tf, temp, fr, rr)
          f1   = cc*zz
          zz   = 1.0d0/ee
          f2   = ff*zz
-         term    = 1.04d8*f1  + 1.76d8*f2 + gg + hh
+         term = 1.04d8*f1  + 1.76d8*f2 + gg + hh
    ! 1.7 times cf88 value
-         term     = 1.7d0 * term
-         rev    = 5.13d10 * (tf% t932) * exp(-83.111d0*(tf% t9i))
-         fr    = term
-         rr     = rev * term
+         term = 1.7d0 * term
+         rev  = 5.13d10 * (tf% t932) * exp(-83.111d0*(tf% t9i))
+         fr   = term
+         rr   = rev * term
       end subroutine rate_c12ag_fxt
 
 
@@ -948,16 +945,16 @@ subroutine rate_c12ag_nacre(tf, temp, fr, rr)
          aa   = 6.66d7 * (tf% T9i2) * exp(-32.123d0*(tf% T9i13) - (tf% T92)/(4.6d0*4.6d0)) 
          bb   = 1 + 2.54d0*(tf% T9) + 1.04d0*(tf% T92) -  0.226d0*(tf% T93) 
          if (bb < 0) bb = 0
-         cc    = 1.39d3 * (tf% T9i32) * exp(-28.930d0*(tf% T9i)) 
-         termE1    = aa * bb + cc
+         cc      = 1.39d3 * (tf% T9i32) * exp(-28.930d0*(tf% T9i)) 
+         termE1  = aa * bb + cc
          aa   = 6.56d7 * (tf% T9i2) * exp(-32.123d0*(tf% T9i13) - (tf% T92)/(1.3d0*1.3d0)) 
          bb   = 1 + 9.23d0*(tf% T9) - 13.7d0*(tf% T92) +  7.4d0*(tf% T93) 
-         termE2    = aa * bb
-         termRes   = 19.2d0 * (tf% T92) * exp(-26.9d0*(tf% T9i)) 
+         termE2  = aa * bb
+         termRes = 19.2d0 * (tf% T92) * exp(-26.9d0*(tf% T9i)) 
          term    = termE1 + termE2 + termRes
-         rev      = 5.132d10 * (tf% T932) * exp(-83.109d0*(tf% T9i))
-         fr    = term
-         rr     = rev * term
+         rev     = 5.132d10 * (tf% T932) * exp(-83.109d0*(tf% T9i))
+         fr      = term
+         rr      = rev * term
       end subroutine rate_c12ag_nacre
       
 
@@ -981,10 +978,10 @@ subroutine rate_c12ag_kunz(tf, temp, fr, rr)
          cc   = a4 * (tf% T9i2) * exp(-a6*(tf% T9i13)) 
          dd   = 1 / pow(1 + a5*(tf% T9i23),2)
          ee   = a9tilda * (tf% T9i13) * exp(-a11*(tf% T9i13)) 
-         term    = aa*bb + cc*dd + ee         
-         rev      = 5.132d10 * (tf% T932) * exp(-83.109d0*(tf% T9i))         
-         fr    = term         
-         rr     = rev * term
+         term = aa*bb + cc*dd + ee         
+         rev  = 5.132d10 * (tf% T932) * exp(-83.109d0*(tf% T9i))         
+         fr   = term         
+         rr   = rev * term
       end subroutine rate_c12ag_kunz
       
 
@@ -1436,10 +1433,10 @@ subroutine rate_c13an_fxt(tf, temp, fr, rr)
       ee   = 1.41d+06 * (tf% T9i32) * exp(-11.873d0*(tf% T9i))
       ff   = 2.0d+09 * (tf% T9i32) * exp(-20.409d0*(tf% T9i))
       gg   = 2.92d+09 * (tf% T9i32) * exp(-29.283d0*(tf% T9i))
-      term    = cc + dd + ee + ff + gg
-      fr    = term 
-      rev    = 5.79d+00 * exp(-25.711d0*(tf% T9i))
-      rr    = rev * term
+      term = cc + dd + ee + ff + gg
+      fr   = term 
+      rev  = 5.79d+00 * exp(-25.711d0*(tf% T9i))
+      rr   = rev * term
       end subroutine rate_c13an_fxt
 
 
@@ -1528,10 +1525,10 @@ subroutine rate_n14pg_fxt(tf, temp, fr, rr)
       cc   = aa * bb
       dd   = 2.37d+03 * (tf% T9i32) * exp(-3.011d0*(tf% T9i))
       ee   = 2.19d+04 * exp(-12.530d0*(tf% T9i))
-      term    = cc + dd + ee
-      rev    = 2.70d+10 * (tf% T932) * exp(-84.678d0*(tf% T9i))
-      fr    = term 
-      rr    = rev * term 
+      term = cc + dd + ee
+      rev  = 2.70d+10 * (tf% T932) * exp(-84.678d0*(tf% T9i))
+      fr   = term 
+      rr   = rev * term 
       end subroutine rate_n14pg_fxt
       
 
@@ -1622,10 +1619,10 @@ subroutine rate_o14ap_fxt(tf, temp, fr, rr)
          dd  = 3.31d+04 * (tf% T9i32) * exp(-11.733d0*(tf% T9i))
          ee  = 1.79d+07 * (tf% T9i32) * exp(-22.609d0*(tf% T9i)) 
          ff  = 9.00d+03 * (tf% T9113) * exp(-12.517d0*(tf% T9i))
-         term    = cc + dd + ee + ff
-         fr    = term 
-         rev      = 4.93d-01*exp(-13.820d0*(tf% T9i))
-         rr    = rev * term 
+         term = cc + dd + ee + ff
+         fr   = term 
+         rev  = 4.93d-01*exp(-13.820d0*(tf% T9i))
+         rr   = rev * term 
       end subroutine rate_o14ap_fxt
 
 
@@ -1681,10 +1678,10 @@ subroutine rate_o15ag_fxt(tf, temp, fr, rr)
          ff  = dd*ee
          gg  = 3.95d-1 * (tf% T9i32) * exp(-5.849d0*(tf% T9i))
          hh  = 1.90d+1 * pow((tf% T9),2.85d0) * exp(-7.356d0*(tf% T9i) - (tf% T92)*q3)
-         term    = cc + ff + gg + hh
-         fr    = term
-         rev      = 5.54d+10 * (tf% T932) * exp(-40.957d0*(tf% T9i))
-         rr    = rev * term
+         term = cc + ff + gg + hh
+         fr   = term
+         rev  = 5.54d+10 * (tf% T932) * exp(-40.957d0*(tf% T9i))
+         rr   = rev * term
       end subroutine rate_o15ag_fxt
 
 
@@ -1711,15 +1708,15 @@ subroutine rate_o16pg_nacre(tf, temp, fr, rr)
             fr = 0; rr = 0; return
          end if 
           
-         aa   = 7.37d7 * pow((tf% T9),-0.82d0) * exp(-16.696d0*(tf% T9i13))          
+         aa   = 7.37d7 * pow((tf% T9),-0.82d0) * exp(-16.696d0*(tf% T9i13))
          bbm1 = 202d0 * exp(-70.348d0*(tf% T9i) - 0.161d0*(tf% T9))
          bb   = 1 + bbm1         
-         term    = aa * bb         
+         term = aa * bb         
          call rnacre_rev(tf, &  ! a0 T932 exp(-a1/T9)
             3.037d9, 6.966d0, &  ! a0, a1
             rev)     
-         fr    = term 
-         rr    = rev * term 
+         fr   = term 
+         rr   = rev * term 
       end subroutine rate_o16pg_nacre
          
 
@@ -1910,8 +1907,8 @@ subroutine rate_o16o16npad(tf, temp, &
          b32p  = 1.0d0 - b32d - b32a - b32n
 
          ! o16(o16, n)s31
-         term    = aa * b32n
-         fr1     = term
+         term   = aa * b32n
+         fr1    = term
          rev    = 0.0d0
          if ((tf% T9) .gt. 0.1d0) then
          rev    = 5.92d0 * exp(-16.8038228d0*(tf% T9i))
@@ -1919,8 +1916,8 @@ subroutine rate_o16o16npad(tf, temp, &
          rr1    = rev * term
 
          ! o16(o16, p)p31
-         term    = aa * b32p
-         fr2     = term
+         term   = aa * b32p
+         fr2    = term
          rev    = 0.0d0
          if ((tf% T9) .gt. 0.1d0) then
          rev    = 5.92d0*exp(-89.0788286d0*(tf% T9i))
@@ -1928,8 +1925,8 @@ subroutine rate_o16o16npad(tf, temp, &
          rr2    = rev * term
 
          ! o16(o16, a)si28
-         term    = aa * b32a
-         fr3     = term
+         term   = aa * b32a
+         fr3    = term
          rev    = 0.0d0
          if ((tf% T9) .gt. 0.1d0) then
          rev    = 3.46d0*exp(-111.3137212d0*(tf% T9i))
@@ -1937,8 +1934,8 @@ subroutine rate_o16o16npad(tf, temp, &
          rr3    = rev * term
 
          ! o16(o16, d)p30
-         term    = aa * b32d
-         fr4     = term
+         term   = aa * b32d
+         fr4    = term
          rev    = 0.0d0
          if ((tf% T9) .gt. 0.1d0) then
          rev    = 0.984d0*exp(27.9908982d0*(tf% T9i))
@@ -2103,10 +2100,10 @@ subroutine rate_f18pa_wk82(tf, temp, fr, rr)
          dd  = 8.1d-05 * (tf% T9i32) * exp(-1.05d0*(tf% T9i))
          ee  = 8.9d-04 * (tf% T9i32) * exp(-1.51d0*(tf% T9i))
          ff  = 3.0d+05 * (tf% T9i32) * exp(-4.29d0*(tf% T9i))
-         term    = aa + bb + cc + dd + ee + ff
-         fr    = term 
-         rev      = 4.93d-01 * exp(-33.433d0*(tf% T9i))
-         rr    = rev * term 
+         term = aa + bb + cc + dd + ee + ff
+         fr   = term 
+         rev  = 4.93d-01 * exp(-33.433d0*(tf% T9i))
+         rr   = rev * term 
       end subroutine rate_f18pa_wk82
 
 
@@ -2158,9 +2155,9 @@ subroutine rate_f19pa_nacre(tf, temp, fr, rr)
             3.27d7, -0.193d0, 6.587d0, & ! e0, e1, e2
             gs)              
          dd   = 7.30d8 * pow(tf% T9,-0.201d0) * exp(-16.249d0*(tf% T9i)) 
-         gs    = gs + dd
+         gs   = gs + dd
          bb   = 0.755d0 * exp(-1.755d0*(tf% T9i) - 0.174d0*(tf% T9))
-         term    = gs * (1 + bb)
+         term = gs * (1 + bb)
          call rnacre_rev(tf, &  ! a0 T932 exp(-a1/T9)
             6.538d-1, 94.154d0, &  ! a0, a1
             rev)     
@@ -2244,10 +2241,10 @@ subroutine rate_ne18ap_fxt(tf, temp, fr, rr)
          cc  = (tf% T923) * bb
          dd = pow(aa,oneth)
          ee  = (tf% T9i13) * dd
-         term    = c1*exp(c3 - c4*ee)/cc 
-         fr    = term 
-         rev    = 0.0d0
-         rr    = 0.0d0
+         term = c1*exp(c3 - c4*ee)/cc 
+         fr   = term 
+         rev  = 0.0d0
+         rr   = 0.0d0
       end subroutine rate_ne18ap_fxt
 
       subroutine rate_ne18ap_jina(tf, temp, fr, rr) ! jina reaclib    
@@ -2296,10 +2293,10 @@ subroutine rate_ne19pg_fxt(tf, temp, fr, rr)
             + 2.80d0*(tf% T943) + 1.07d0*(tf% T953)
          ff  = dd*ee
          gg  = 8.45d+3 * (tf% T9i54) * exp(-7.64d0*(tf% T9i))
-         term    = cc + ff + gg
-         fr    = term 
-         rev      = 7.39d+09 * (tf% T932) * exp(-25.519d0*(tf% T9i))
-         rr    = rev * term 
+         term = cc + ff + gg
+         fr   = term 
+         rev  = 7.39d+09 * (tf% T932) * exp(-25.519d0*(tf% T9i))
+         rr   = rev * term 
       end subroutine rate_ne19pg_fxt
       
       
@@ -2324,7 +2321,7 @@ subroutine rate_ne20pg_nacre(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, rev, aa, bb, cc, dd, ff, gg, zz, gs
+         real(dp) term, rev, aa, bb, gs
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
@@ -2342,10 +2339,10 @@ subroutine rate_ne20pg_nacre(tf, temp, fr, rr)
          if (bb > 1) then ! guard against rate going negative
             bb  = 1
          end if         
-         term    = gs * (1 - bb)
-         rev      = 4.637d9 * (tf% T932) * exp(-28.214d0*(tf% T9i))
-         fr    = term 
-         rr    = rev * term
+         term = gs * (1 - bb)
+         rev  = 4.637d9 * (tf% T932) * exp(-28.214d0*(tf% T9i))
+         fr   = term 
+         rr   = rev * term
       end subroutine rate_ne20pg_nacre
       
       
@@ -2363,7 +2360,6 @@ subroutine rate_ne20ap_jina(tf, temp, fr, rr)
       type (T_Factors) :: tf
       real(dp), intent(in) :: temp
       real(dp), intent(out) :: fr, rr
-      real(dp) :: fr1, rr1
       include 'formats'
 !       he4 ne20    p na23                  ha04rv   -2.37900d+00          
       call jina_reaclib_2_2(ih1, ina23, ihe4, ine20, tf, rr, fr, 'rate_ne20ap_jina')
@@ -2419,7 +2415,6 @@ subroutine rate_na23pg_jina(tf, temp, fr, rr)
       type (T_Factors) :: tf
       real(dp), intent(in) :: temp
       real(dp), intent(out) :: fr, rr
-      real(dp) :: fr1
       rr = 0
 !         p na23 mg24                       ha04r     1.16910d+01          
          call jina_reaclib_2_1(ih1, ina23, img24, tf, fr, rr, 'rate_na23pg_jina')
@@ -2433,8 +2428,7 @@ subroutine rate_mg24ag_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, bb, dbb, cc, dcc, dd, ddd, ee, dee,  &
-                       ff, dff, gg, dgg, hh, hhi, rev, drevdt, rc121
+         real(dp) :: term, aa, bb, cc, dd, ee, ff, gg, hh, hhi, rev, rc121
       parameter        (rc121 = 0.1d0)
 
          if (tf% t9 < lowT9_cutoff) then
@@ -2450,9 +2444,9 @@ subroutine rate_mg24ag_fxt(tf, temp, fr, rr)
          gg    = 5.0d0*exp(-15.882d0*(tf% T9i))
          hh    = 1.0d0 + gg
          hhi   = 1.0d0/hh
-         term    = (aa + bb + cc + dd + ee + ff) * hhi
+         term  = (aa + bb + cc + dd + ee + ff) * hhi
          fr    = term
-         rev      = 6.27d+10 * (tf% T932) * exp(-115.862d0*(tf% T9i))
+         rev   = 6.27d+10 * (tf% T932) * exp(-115.862d0*(tf% T9i))
          rr    = rev * term
       end subroutine rate_mg24ag_fxt
 
@@ -2475,9 +2469,8 @@ subroutine rate_mg24ap_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, bb, dbb, cc, dcc, dd, ddd, ee, dee,  &
-                       ff, dff, gg, dgg, term1, dterm1, term2, dterm2,  &
-                       rev, drevdt, rc148, q1
+         real(dp) term, aa, bb, cc, dd, ee, ff, gg,  &
+                       term1, term2, rev, rc148, q1
          parameter        (rc148 = 0.1d0,  &
                         q1    = 1.0d0/0.024649d0)                    
 
@@ -2497,8 +2490,8 @@ subroutine rate_mg24ap_fxt(tf, temp, fr, rr)
          ee     = oneth*exp(-9.792d0*(tf% T9i))
          ff     =  twoth * exp(-11.773d0*(tf% T9i))
          gg     = 1.0d0 + ee + ff
-         term    = (term1 + term2)/gg
-         rev      = 1.81d0 * exp(-18.572d0*(tf% T9i))
+         term   = (term1 + term2)/gg
+         rev    = 1.81d0 * exp(-18.572d0*(tf% T9i))
          fr    = rev * term
          rr    = term
       end subroutine rate_mg24ap_fxt
@@ -2508,7 +2501,6 @@ subroutine rate_mg24ap_jina(tf, temp, fr, rr)
       type (T_Factors) :: tf
       real(dp), intent(in) :: temp
       real(dp), intent(out) :: fr, rr
-      real(dp) :: fr1
       rr = 0
 !       he4 mg24    p al27                  il01rv   -1.60060d+00          
          call jina_reaclib_2_2(ih1, ial27, ihe4, img24, tf, rr, fr, 'rate_mg24ap_jina')
@@ -2535,17 +2527,16 @@ subroutine rate_al27pg_c96(tf, temp, fr, rr)
          ee  = 4.29d+01 * (tf% T9i32) * exp(-3.273d0*(tf% T9i))
          ff  = 1.34d+02 * (tf% T9i32) * exp(-3.654d0*(tf% T9i))
          gg  = 1.77d+04 * pow(tf% T9, 0.53d0) * exp(-4.588d0*(tf% T9i))
-         term    = aa + bb + cc + dd + ee + ff + gg
-         fr    = term 
-         rev   = 1.13d+11 * (tf% T932) * exp(-134.434d0*(tf% T9i))
-         rr    = rev * term
+         term = aa + bb + cc + dd + ee + ff + gg
+         fr   = term 
+         rev  = 1.13d+11 * (tf% T932) * exp(-134.434d0*(tf% T9i))
+         rr   = rev * term
       end subroutine rate_al27pg_c96
       
       subroutine rate_al27pg_jina(tf, temp, fr, rr)
       type (T_Factors) :: tf
       real(dp), intent(in) :: temp
       real(dp), intent(out) :: fr, rr
-      real(dp) :: fr1
 !         p al27 si28                       il01r     1.15860d+01          
          call jina_reaclib_2_1(ih1, ial27, isi28, tf, fr, rr, 'rate_al27pg_jina')
       end subroutine rate_al27pg_jina
@@ -2569,7 +2560,7 @@ subroutine rate_si28ag_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
          
          include 'formats'
 
@@ -2581,9 +2572,9 @@ subroutine rate_si28ag_fxt(tf, temp, fr, rr)
          z2    = z*z
          z3    = z2*z
          aa    = 1.0d0 + 6.340d-2*z + 2.541d-3*z2 - 2.900d-4*z3
-         term    = 4.82d+22 * (tf% T9i23) * exp(-61.015d0*(tf% T9i13) * aa)
+         term  = 4.82d+22 * (tf% T9i23) * exp(-61.015d0*(tf% T9i13) * aa)
          fr    = term
-         rev      = 6.461d+10 * (tf% T932) * exp(-80.643d0*(tf% T9i))
+         rev   = 6.461d+10 * (tf% T932) * exp(-80.643d0*(tf% T9i))
          rr    = rev * term
 
          !if (abs(temp - 3.0097470376051402D+09) < 1d2) then
@@ -2602,7 +2593,7 @@ subroutine rate_si28ap_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
@@ -2612,8 +2603,8 @@ subroutine rate_si28ap_fxt(tf, temp, fr, rr)
          z2    = z*z
          z3    = z2*z
          aa    = 1.0d0 + 2.798d-3*z + 2.763d-3*z2 - 2.341d-4*z3
-         term    = 4.16d+13 * (tf% T9i23) * exp(-25.631d0*(tf% T9i13) * aa)
-         rev      = 0.5825d0 * exp(-22.224d0*(tf% T9i))
+         term  = 4.16d+13 * (tf% T9i23) * exp(-25.631d0*(tf% T9i13) * aa)
+         rev   = 0.5825d0 * exp(-22.224d0*(tf% T9i))
          fr    = rev * term
          rr    = term
       end subroutine rate_si28ap_fxt
@@ -2623,7 +2614,6 @@ subroutine rate_si28ap_jina(tf, temp, fr, rr)
       type (T_Factors) :: tf
       real(dp), intent(in) :: temp
       real(dp), intent(out) :: fr, rr
-      real(dp) :: fr1
 !       he4 si28    p  p31                  il01rv   -1.91710d+00          
          call jina_reaclib_2_2(ih1, ip31, ihe4, isi28, tf, rr, fr, 'rate_si28ap_jina')
       end subroutine rate_si28ap_jina
@@ -2640,7 +2630,7 @@ subroutine rate_p31pg_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
          include 'formats'
 
          if (tf% t9 < lowT9_cutoff) then
@@ -2651,9 +2641,9 @@ subroutine rate_p31pg_fxt(tf, temp, fr, rr)
          z2    = z*z
          z3    = z2*z
          aa    = 1.0d0 + 1.928d-1*z - 1.540d-2*z2 + 6.444d-4*z3
-         term    = 1.08d+16 * (tf% T9i23) * exp(-27.042d0*(tf% T9i13) * aa)
+         term  = 1.08d+16 * (tf% T9i23) * exp(-27.042d0*(tf% T9i13) * aa)
          fr    = term
-         rev      = 3.764d+10 * (tf% T932) * exp(-102.865d0*(tf% T9i))
+         rev   = 3.764d+10 * (tf% T932) * exp(-102.865d0*(tf% T9i))
          rr    = rev * term
       end subroutine rate_p31pg_fxt
 
@@ -2689,7 +2679,7 @@ subroutine rate_s32ag_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
@@ -2699,9 +2689,9 @@ subroutine rate_s32ag_fxt(tf, temp, fr, rr)
          z2    = z*z
          z3    = z2*z
          aa    = 1.0d0 + 4.913d-2*z + 4.637d-3*z2 - 4.067d-4*z3
-         term    = 1.16d+24 * (tf% T9i23) * exp(-66.690d0*(tf% T9i13) * aa)
+         term  = 1.16d+24 * (tf% T9i23) * exp(-66.690d0*(tf% T9i13) * aa)
          fr    = term
-         rev      = 6.616d+10 * (tf% T932) * exp(-77.080d0*(tf% T9i))
+         rev   = 6.616d+10 * (tf% T932) * exp(-77.080d0*(tf% T9i))
          rr    = rev * term
       end subroutine rate_s32ag_fxt
 
@@ -2715,7 +2705,7 @@ subroutine rate_s32ap_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
@@ -2725,8 +2715,8 @@ subroutine rate_s32ap_fxt(tf, temp, fr, rr)
          z2    = z*z
          z3    = z2*z
          aa    = 1.0d0 + 1.041d-1*z - 1.368d-2*z2 + 6.969d-4*z3
-         term    = 1.27d+16 * (tf% T9i23) * exp(-31.044d0*(tf% T9i13) * aa)
-         rev      = 1.144d0 * exp(-21.643d0*(tf% T9i))
+         term  = 1.27d+16 * (tf% T9i23) * exp(-31.044d0*(tf% T9i13) * aa)
+         rev   = 1.144d0 * exp(-21.643d0*(tf% T9i))
          fr    = rev * term
          rr    = term
       end subroutine rate_s32ap_fxt
@@ -2752,16 +2742,16 @@ subroutine rate_cl35pg_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt
+         real(dp) term, aa, rev
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
          end if 
           
          aa    = 1.0d0 + 1.761d-1*(tf% T9) - 1.322d-2*(tf% T92) + 5.245d-4*(tf% T93)
-         term    =  4.48d+16 * (tf% T9i23) * exp(-29.483d0*(tf% T9i13) * aa)
+         term  =  4.48d+16 * (tf% T9i23) * exp(-29.483d0*(tf% T9i13) * aa)
          fr    = term
-         rev      = 7.568d+10*(tf% T932)*exp(-98.722d0*(tf% T9i))
+         rev   = 7.568d+10*(tf% T932)*exp(-98.722d0*(tf% T9i))
          rr    = rev * term
       end subroutine rate_cl35pg_fxt
 
@@ -2795,20 +2785,20 @@ subroutine rate_ar36ag_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
          end if 
-          
-         z     = min((tf% T9), 10.0d0)
-         z2    = z*z
-         z3    = z2*z
-         aa    = 1.0d0 + 1.458d-1*z - 1.069d-2*z2 + 3.790d-4*z3
-         term    = 2.81d+30 * (tf% T9i23) * exp(-78.271d0*(tf% T9i13) * aa)
-         fr    = term
-         rev      = 6.740d+10 * (tf% T932) * exp(-81.711d0*(tf% T9i))
-         rr    = rev * term
+
+         z    = min((tf% T9), 10.0d0)
+         z2   = z*z
+         z3   = z2*z
+         aa   = 1.0d0 + 1.458d-1*z - 1.069d-2*z2 + 3.790d-4*z3
+         term = 2.81d+30 * (tf% T9i23) * exp(-78.271d0*(tf% T9i13) * aa)
+         fr   = term
+         rev  = 6.740d+10 * (tf% T932) * exp(-81.711d0*(tf% T9i))
+         rr   = rev * term
       end subroutine rate_ar36ag_fxt
 
 ! rar36ga, ar36(g,a)s32             
@@ -2820,20 +2810,20 @@ subroutine rate_ar36ap_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
          end if 
           
-         z     = min((tf% T9), 10.0d0)
-         z2    = z*z
-         z3    = z2*z
-         aa    = 1.0d0 + 4.826d-3*z - 5.534d-3*z2 + 4.021d-4*z3
-         term    = 2.76d+13 * (tf% T9i23) * exp(-34.922d0*(tf% T9i13) * aa)
-         rev      = 1.128d0*exp(-14.959d0*(tf% T9i))
-         fr    = rev * term
-         rr    = term
+         z    = min((tf% T9), 10.0d0)
+         z2   = z*z
+         z3   = z2*z
+         aa   = 1.0d0 + 4.826d-3*z - 5.534d-3*z2 + 4.021d-4*z3
+         term = 2.76d+13 * (tf% T9i23) * exp(-34.922d0*(tf% T9i13) * aa)
+         rev  = 1.128d0*exp(-14.959d0*(tf% T9i))
+         fr   = rev * term
+         rr   = term
       end subroutine rate_ar36ap_fxt
 
 
@@ -2856,20 +2846,20 @@ subroutine rate_k39pg_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
          end if 
           
-         z     = min((tf% T9), 10.0d0)
-         z2    = z*z
-         z3    = z2*z
-         aa    = 1.0d0 + 1.622d-1*z - 1.119d-2*z2 + 3.910d-4*z3
-         term    = 4.09d+16 * (tf% T9i23) * exp(-31.727d0*(tf% T9i13) * aa)
-         fr    = term
-         rev      = 7.600d+10 * (tf% T932) * exp(-96.657d0*(tf% T9i))
-         rr    = rev * term
+         z    = min((tf% T9), 10.0d0)
+         z2   = z*z
+         z3   = z2*z
+         aa   = 1.0d0 + 1.622d-1*z - 1.119d-2*z2 + 3.910d-4*z3
+         term = 4.09d+16 * (tf% T9i23) * exp(-31.727d0*(tf% T9i13) * aa)
+         fr   = term
+         rev  = 7.600d+10 * (tf% T932) * exp(-96.657d0*(tf% T9i))
+         rr   = rev * term
       end subroutine rate_k39pg_fxt
 
 
@@ -2903,20 +2893,20 @@ subroutine rate_ca40ag_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
          end if 
           
-         z     = min((tf% T9), 10.0d0)
-         z2    = z*z
-         z3    = z2*z
-         aa    = 1.0d0 + 1.650d-2*z + 5.973d-3*z2 - 3.889d-04*z3
-         term    = 4.66d+24 * (tf% T9i23) * exp(-76.435d0*(tf% T9i13) * aa)
-         fr    = term
-         rev      = 6.843d+10 * (tf% T932) * exp(-59.510d0*(tf% T9i))
-         rr    = rev * term
+         z    = min((tf% T9), 10.0d0)
+         z2   = z*z
+         z3   = z2*z
+         aa   = 1.0d0 + 1.650d-2*z + 5.973d-3*z2 - 3.889d-04*z3
+         term = 4.66d+24 * (tf% T9i23) * exp(-76.435d0*(tf% T9i13) * aa)
+         fr   = term
+         rev  = 6.843d+10 * (tf% T932) * exp(-59.510d0*(tf% T9i))
+         rr   = rev * term
       end subroutine rate_ca40ag_fxt
 
 
@@ -2929,7 +2919,7 @@ subroutine rate_ca40ap_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
@@ -2939,8 +2929,8 @@ subroutine rate_ca40ap_fxt(tf, temp, fr, rr)
          z2    = z*z
          z3    = z2*z
          aa    = 1.0d0 - 1.206d-2*z + 7.753d-3*z2 - 5.071d-4*z3
-         term    = 4.54d+14 * (tf% T9i23) * exp(-32.177d0*(tf% T9i13) * aa)
-         rev      = 2.229d0 * exp(-40.966d0*(tf% T9i))
+         term  = 4.54d+14 * (tf% T9i23) * exp(-32.177d0*(tf% T9i13) * aa)
+         rev   = 2.229d0 * exp(-40.966d0*(tf% T9i))
          fr    = rev * term
          rr    = term
       end subroutine rate_ca40ap_fxt
@@ -2969,7 +2959,7 @@ subroutine rate_sc43pg_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
@@ -2979,9 +2969,9 @@ subroutine rate_sc43pg_fxt(tf, temp, fr, rr)
          z2    = z*z
          z3    = z2*z
          aa    = 1.0d0 + 1.023d-1*z - 2.242d-3*z2 - 5.463d-5*z3
-         term    = 3.85d+16 * (tf% T9i23) * exp(-33.234d0*(tf% T9i13) * aa)
+         term  = 3.85d+16 * (tf% T9i23) * exp(-33.234d0*(tf% T9i13) * aa)
          fr    = term
-         rev      = 1.525d+11 * (tf% T932) * exp(-100.475d0*(tf% T9i))
+         rev   = 1.525d+11 * (tf% T932) * exp(-100.475d0*(tf% T9i))
          rr    = rev * term
       end subroutine rate_sc43pg_fxt
 
@@ -3017,20 +3007,20 @@ subroutine rate_ti44ag_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
          end if 
           
-         z     = min((tf% T9), 10.0d0)
-         z2    = z*z
-         z3    = z2*z
-         aa    = 1.0d0 + 1.066d-1*z - 1.102d-2*z2 + 5.324d-4*z3
-         term    = 1.37d+26 * (tf% T9i23) * exp(-81.227d0*(tf% T9i13) * aa)
-         fr    = term
-         rev      = 6.928d+10*(tf% T932)*exp(-89.289d0*(tf% T9i))
-         rr    = rev * term
+         z    = min((tf% T9), 10.0d0)
+         z2   = z*z
+         z3   = z2*z
+         aa   = 1.0d0 + 1.066d-1*z - 1.102d-2*z2 + 5.324d-4*z3
+         term = 1.37d+26 * (tf% T9i23) * exp(-81.227d0*(tf% T9i13) * aa)
+         fr   = term
+         rev  = 6.928d+10*(tf% T932)*exp(-89.289d0*(tf% T9i))
+         rr   = rev * term
       end subroutine rate_ti44ag_fxt
 
 
@@ -3043,20 +3033,20 @@ subroutine rate_ti44ap_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
          end if 
           
-         z     = min((tf% T9), 10.0d0)
-         z2    = z*z
-         z3    = z2*z
-         aa    = 1.0d0 + 2.655d-2*z - 3.947d-3*z2 + 2.522d-4*z3
-         term    = 6.54d+20 * (tf% T9i23) * exp(-66.678d0*(tf% T9i13) * aa)
-         rev      = 1.104d0 * exp(-4.723d0*(tf% T9i))
-         fr    = rev * term
-         rr    = term
+         z    = min((tf% T9), 10.0d0)
+         z2   = z*z
+         z3   = z2*z
+         aa   = 1.0d0 + 2.655d-2*z - 3.947d-3*z2 + 2.522d-4*z3
+         term = 6.54d+20 * (tf% T9i23) * exp(-66.678d0*(tf% T9i13) * aa)
+         rev  = 1.104d0 * exp(-4.723d0*(tf% T9i))
+         fr   = rev * term
+         rr   = term
       end subroutine rate_ti44ap_fxt
 
 
@@ -3081,20 +3071,20 @@ subroutine rate_v47pg_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
          end if 
           
-         z     = min((tf% T9), 10.0d0)
-         z2    = z*z
-         z3    = z2*z
-         aa    = 1.0d0 + 9.979d-2*z - 2.269d-3*z2 - 6.662d-5*z3
-         term    = 2.05d+17 * (tf% T9i23) * exp(-35.568d0*(tf% T9i13) * aa)
-         fr    = term
-         rev      = 7.649d+10*(tf% T932)*exp(-93.999d0*(tf% T9i))
-         rr    = rev * term
+         z    = min((tf% T9), 10.0d0)
+         z2   = z*z
+         z3   = z2*z
+         aa   = 1.0d0 + 9.979d-2*z - 2.269d-3*z2 - 6.662d-5*z3
+         term = 2.05d+17 * (tf% T9i23) * exp(-35.568d0*(tf% T9i13) * aa)
+         fr   = term
+         rev  = 7.649d+10*(tf% T932)*exp(-93.999d0*(tf% T9i))
+         rr   = rev * term
       end subroutine rate_v47pg_fxt
 
 
@@ -3129,20 +3119,20 @@ subroutine rate_cr48ag_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
          end if 
           
-         z     = min((tf% T9), 10.0d0)
-         z2    = z*z
-         z3    = z2*z
-         aa    = 1.0d0 + 6.325d-2*z - 5.671d-3*z2 + 2.848d-4*z3
-         term    = 1.04d+23 * (tf% T9i23) * exp(-81.420d0*(tf% T9i13) * aa)
-         fr    = term
-         rev      = 7.001d+10 * (tf% T932) * exp(-92.177d0*(tf% T9i))
-         rr    = rev * term
+         z    = min((tf% T9), 10.0d0)
+         z2   = z*z
+         z3   = z2*z
+         aa   = 1.0d0 + 6.325d-2*z - 5.671d-3*z2 + 2.848d-4*z3
+         term = 1.04d+23 * (tf% T9i23) * exp(-81.420d0*(tf% T9i13) * aa)
+         fr   = term
+         rev  = 7.001d+10 * (tf% T932) * exp(-92.177d0*(tf% T9i))
+         rr   = rev * term
       end subroutine rate_cr48ag_fxt
 
 
@@ -3155,7 +3145,7 @@ subroutine rate_cr48ap_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
@@ -3165,9 +3155,9 @@ subroutine rate_cr48ap_fxt(tf, temp, fr, rr)
          z2    = z*z
          z3    = z2*z
          aa    = 1.0d0 + 1.384d-2*z + 1.081d-3*z2 - 5.933d-5*z3
-         term    = 1.83d+26 * (tf% T9i23) * exp(-86.741d0*(tf% T9i13) * aa)
+         term  = 1.83d+26 * (tf% T9i23) * exp(-86.741d0*(tf% T9i13) * aa)
          fr    = term
-         rev      = 0.6087d0*exp(-6.510d0*(tf% T9i))
+         rev   = 0.6087d0*exp(-6.510d0*(tf% T9i))
          rr    = rev * term
       end subroutine rate_cr48ap_fxt
 
@@ -3193,7 +3183,7 @@ subroutine rate_mn51pg_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
@@ -3203,9 +3193,9 @@ subroutine rate_mn51pg_fxt(tf, temp, fr, rr)
          z2    = z*z
          z3    = z2*z
          aa    = 1.0d0 + 8.922d-2*z - 1.256d-3*z2 - 9.453d-5*z3
-         term    = 3.77d+17 * (tf% T9i23) * exp(-37.516d0*(tf% T9i13) * aa)
+         term  = 3.77d+17 * (tf% T9i23) * exp(-37.516d0*(tf% T9i13) * aa)
          fr    = term
-         rev      = 1.150d+11*(tf% T932)*exp(-85.667d0*(tf% T9i))
+         rev   = 1.150d+11*(tf% T932)*exp(-85.667d0*(tf% T9i))
          rr    = rev * term
       end subroutine rate_mn51pg_fxt
 
@@ -3229,7 +3219,7 @@ subroutine rate_fe52ag_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
@@ -3239,9 +3229,9 @@ subroutine rate_fe52ag_fxt(tf, temp, fr, rr)
          z2    = z*z
          z3    = z2*z
          aa    = 1.0d0 + 7.846d-2*z - 7.430d-3*z2 + 3.723d-4*z3
-         term    = 1.05d+27 * (tf% T9i23) * exp(-91.674d0*(tf% T9i13) * aa)
+         term  = 1.05d+27 * (tf% T9i23) * exp(-91.674d0*(tf% T9i13) * aa)
          fr    = term
-         rev      = 7.064d+10*(tf% T932)*exp(-92.850d0*(tf% T9i))
+         rev   = 7.064d+10*(tf% T932)*exp(-92.850d0*(tf% T9i))
          rr    = rev * term
       end subroutine rate_fe52ag_fxt
 
@@ -3255,7 +3245,7 @@ subroutine rate_fe52ap_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
@@ -3265,9 +3255,9 @@ subroutine rate_fe52ap_fxt(tf, temp, fr, rr)
          z2    = z*z
          z3    = z2*z
          aa    = 1.0d0 + 1.367d-2*z + 7.428d-4*z2 - 3.050d-5*z3
-         term    = 1.30d+27 * (tf% T9i23) * exp(-91.674d0*(tf% T9i13) * aa)
+         term  = 1.30d+27 * (tf% T9i23) * exp(-91.674d0*(tf% T9i13) * aa)
          fr    = term
-         rev      = 0.4597d0*exp(-9.470d0*(tf% T9i))
+         rev   = 0.4597d0*exp(-9.470d0*(tf% T9i))
          rr    = rev * term
       end subroutine rate_fe52ap_fxt
 
@@ -3290,17 +3280,17 @@ subroutine rate_fe52ng_fxt(tf, temp, fr,  rr)
       type (T_Factors) :: tf
       real(dp), intent(in) :: temp
       real(dp), intent(out) :: fr, rr
-      real(dp) term, dtermdt, rev, drevdt, tq2
+      real(dp) term, rev, tq2
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
          end if 
           
 ! fe52(n, g)fe53
-      tq2     = (tf% T9) - 0.348d0
-      term    = 9.604d+05 * exp(-0.0626d0*tq2)
+      tq2   = (tf% T9) - 0.348d0
+      term  = 9.604d+05 * exp(-0.0626d0*tq2)
       fr    = term
-      rev      = 2.43d+09 * (tf% T932) * exp(-123.951d0*(tf% T9i)) 
+      rev   = 2.43d+09 * (tf% T932) * exp(-123.951d0*(tf% T9i)) 
       rr    = rev * term
       end subroutine rate_fe52ng_fxt
 
@@ -3309,7 +3299,7 @@ subroutine rate_fe53ng_fxt(tf, temp, fr, rr)
       type (T_Factors) :: tf
       real(dp), intent(in) :: temp
       real(dp), intent(out) :: fr, rr
-      real(dp) term, dtermdt, rev, drevdt, tq1, tq10, dtq10, tq2
+      real(dp) term, rev, tq1, tq10, tq2
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
@@ -3319,9 +3309,9 @@ subroutine rate_fe53ng_fxt(tf, temp, fr, rr)
       tq1   = (tf% T9)/0.348d0
       tq10  = pow(tq1, 0.10d0)
       tq2   = (tf% T9) - 0.348d0
-      term    = 1.817d+06 * tq10 * exp(-0.06319d0*tq2)
+      term  = 1.817d+06 * tq10 * exp(-0.06319d0*tq2)
       fr    = term
-      rev      = 1.56d+11 * (tf% T932) * exp(-155.284d0*(tf% T9i))
+      rev   = 1.56d+11 * (tf% T932) * exp(-155.284d0*(tf% T9i))
       rr    = rev * term
       end subroutine rate_fe53ng_fxt
 
@@ -3339,7 +3329,7 @@ subroutine rate_fe54pg_fxt(tf, temp, fr, rr)
       type (T_Factors) :: tf
       real(dp), intent(in) :: temp
       real(dp), intent(out) :: fr, rr
-      real(dp) term, dtermdt, rev, drevdt, aa, daa, z, z2, z3
+      real(dp) term, rev, aa, z, z2, z3
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
@@ -3350,9 +3340,9 @@ subroutine rate_fe54pg_fxt(tf, temp, fr, rr)
       z2    = z*z
       z3    = z2*z
       aa    = 1.0d0 + 9.593d-2*z - 3.445d-3*z2 + 8.594d-5*z3
-      term    = 4.51d+17 * (tf% T9i23) * exp(-38.483d0*(tf% T9i13) * aa)
+      term  = 4.51d+17 * (tf% T9i23) * exp(-38.483d0*(tf% T9i13) * aa)
       fr    = term
-      rev      = 2.400d+09 * (tf% T932) * exp(-58.605d0*(tf% T9i))
+      rev   = 2.400d+09 * (tf% T932) * exp(-58.605d0*(tf% T9i))
       rr    = rev * term
       end subroutine rate_fe54pg_fxt
 
@@ -3402,20 +3392,20 @@ subroutine rate_co55pg_fxt(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) term, dtermdt, aa, daa, rev, drevdt, z, z2, z3
+         real(dp) term, aa, rev, z, z2, z3
 
          if (tf% t9 < lowT9_cutoff) then
             fr = 0; rr = 0; return
          end if 
           
-         z     = min((tf% T9), 10.0d0)
-         z2    = z*z
-         z3    = z2*z
-         aa    = 1.0d0 + 9.894d-2*z - 3.131d-3*z2 - 2.160d-5*z3
-         term    = 1.21d+18 * (tf% T9i23) * exp(-39.604d0*(tf% T9i13) * aa)
-         fr    = term
-         rev      = 1.537d+11*(tf% T932)*exp(-83.382d0*(tf% T9i))
-         rr    = rev * term
+         z    = min((tf% T9), 10.0d0)
+         z2   = z*z
+         z3   = z2*z
+         aa   = 1.0d0 + 9.894d-2*z - 3.131d-3*z2 - 2.160d-5*z3
+         term = 1.21d+18 * (tf% T9i23) * exp(-39.604d0*(tf% T9i13) * aa)
+         fr   = term
+         rev  = 1.537d+11*(tf% T932)*exp(-83.382d0*(tf% T9i))
+         rr   = rev * term
       end subroutine rate_co55pg_fxt
 
 
@@ -3434,7 +3424,6 @@ subroutine rate_v44pg_jina(tf, temp, fr, rr)
          type (T_Factors) :: tf
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
-         real(dp) :: fr1
 !         p  v44 cr45                       rath      3.10000d+00          
          call jina_reaclib_2_1(ih1, iv44, icr45, tf, fr, rr, 'rate_v44pg_jina')
       end subroutine rate_v44pg_jina
@@ -3691,8 +3680,8 @@ subroutine rnacre( &
          type (T_Factors) :: tf
          real(dp), intent(in) :: a0, a1, a2, b0, b1, b2, b3, b4,  &
                c0, c1, d0, d1, e0, e1, e2
-         real(dp), intent(out) :: term         
-         real(dp) :: aa, daa, bb, dbb, cc, dcc, dd, ddd, ee, dee         
+         real(dp), intent(out) :: term
+         real(dp) :: aa, bb, cc, dd, ee
          aa   = a0 * (tf% T9i23) * exp(-a1*(tf% T9i13) - (tf% T92)*(a2*a2)) 
          bb   = 1 + b0*(tf% T9) + b1*(tf% T92) +  b2*(tf% T93) +   b3*(tf% T94) +   b4*(tf% T95)
          if (bb < 0) then
@@ -3701,7 +3690,7 @@ subroutine rnacre( &
          cc   = c0 * (tf% T9i32) * exp(-c1*(tf% T9i)) 
          dd   = d0 * (tf% T9i32) * exp(-d1*(tf% T9i)) 
          ee   = e0 * pow(tf% T9,e1) * exp(-e2*(tf% T9i)) 
-         term    = aa * bb + cc + dd + ee
+         term = aa * bb + cc + dd + ee
       end subroutine rnacre
 
       
@@ -4165,9 +4154,8 @@ subroutine reaclib_rate( &
          integer, intent(in) :: num_out, nuclides_out(:)
          real(dp), intent(in) :: T9
          real(dp), intent(out) :: lambda, rlambda
-         integer, intent(out) :: ierr        
+         integer, intent(out) :: ierr
          character (len=max_id_length) :: handle
-         integer :: lo, hi, i
          integer :: iso_ids(num_in+num_out)
          include 'formats'
          ierr = 0
@@ -4183,9 +4171,9 @@ subroutine reaclib_rate_for_handle(handle, T9, lambda, rlambda, ierr)
          character (len=*), intent(in) :: handle
          real(dp), intent(in) :: T9
          real(dp), intent(out) :: lambda, rlambda
-         integer, intent(out) :: ierr                 
-         real(dp) :: dlambda_dlnT, drlambda_dlnT         
-         integer :: lo, hi, i
+         integer, intent(out) :: ierr
+         real(dp) :: dlambda_dlnT, drlambda_dlnT
+         integer :: lo, hi
          logical, parameter :: forward_only = .false.
          include 'formats'
          ierr = 0
@@ -4206,7 +4194,7 @@ subroutine reaclib_rate_for_handle(handle, T9, lambda, rlambda, ierr)
             lo, hi, T9, reaclib_rates, chem_isos, forward_only, &
             lambda, dlambda_dlnT,  &
             rlambda, drlambda_dlnT,  &
-            ierr)      
+            ierr)
          if (ierr /= 0) then
             write(*,'(a)')  &
                'reaclib_rate_for_handle: failed in reaclib_reaction_rates '  &
@@ -4380,7 +4368,7 @@ subroutine mazurek(btemp,bden,y56,ye,rn56ec,sn56ec)
 !  sn56ec = ni56 neutrino loss rate
 
 !  declare 
-      integer          ifirst,jp,kp,jr,jd,ii,ik,ij,j,k 
+      integer          jp,kp,jr,jd,ii,ik,ij
       real(dp) rnt(2),rne(2,7),datn(2,6,7),  &
                        t9,r,rfm,rf0,rf1,rf2,dfacm,dfac0,dfac1,dfac2,  &
                        tfm,tf0,tf1,tf2,tfacm,tfac0,tfac1,tfac2
diff --git a/rates/private/rates_initialize.f90 b/rates/private/rates_initialize.f90
index 335a64e7e..c8438be47 100644
--- a/rates/private/rates_initialize.f90
+++ b/rates/private/rates_initialize.f90
@@ -40,7 +40,7 @@ subroutine finish_rates_def_init
          use reaclib_input, only: do_extract_rates
          use chem_def, only: nuclide_set, chem_isos, num_chem_isos, iso_name_length
          use chem_lib, only: generate_nuclide_set
-         integer :: i, ierr
+         integer :: ierr
          character(len=iso_name_length), pointer :: names(:) =>null()
          type(nuclide_set), pointer :: set(:) =>null()
          integer, pointer :: chem_id(:) =>null()
@@ -77,7 +77,7 @@ subroutine do_add_reaction_for_handle(reaction_handle, ierr)
          integer, intent(out) :: ierr
          
          integer :: ir, num_in, num_out
-         integer :: j, particles_in, particles_out
+         integer :: particles_in, particles_out
          logical :: already_defined
          integer :: iso_ids(max_num_reaction_inputs+max_num_reaction_outputs)
          integer :: cin(max_num_reaction_inputs), cout(max_num_reaction_outputs)
@@ -155,8 +155,8 @@ subroutine do_add_reaction_from_reaclib(reaction_handle, reverse_handle, indx, i
          integer, intent(in) :: indx ! index in reaclib rates
          integer, intent(out) :: ierr
          
-         integer :: i, ir, chapter, num_in, num_out, iso_in, iso_out
-         integer :: j, weak_j, particles_in, particles_out
+         integer :: i, ir, chapter, num_in, num_out
+         integer :: particles_in, particles_out
          logical :: weak, reverse, already_defined
          integer :: cin(max_num_reaction_inputs), cout(max_num_reaction_outputs)
          type (reaction_data), pointer :: r =>null()
@@ -531,9 +531,9 @@ subroutine init_raw_rates_records(ierr)
          integer, intent(out) :: ierr
          
          type (rate_table_info), pointer :: ri =>null()
-         integer :: i, iounit, n, t, ir
-         character (len=256) :: line, dir, rate_name, rate_fname, filename, message
-         character (len=256) :: buffer, string
+         integer :: i, iounit, n, t
+         character (len=256) :: dir, rate_name, rate_fname, filename
+         character (len=256) :: buffer
          logical :: okay
          
          logical, parameter :: dbg = .false.
@@ -680,10 +680,9 @@ subroutine read_reaction_parameters(reactionlist_filename, ierr)
          character (len=*), intent(in) :: reactionlist_filename
          integer, intent(out) :: ierr
          
-         character (len=256) :: line, filename, rname, cname, iname, str, message
-         integer :: iounit, len, i, j, jj, k, cnt, ir, ic, ii, ye, rho, n, num_reactions, new_max
+         character (len=256) :: line, filename, rname, cname
+         integer :: iounit, len, i, j, jj, k, cnt, ir, ic, ii, n, num_reactions
          character (len=maxlen_reaction_Info) :: info
-         real(dp) :: Q
          logical, parameter :: dbg = .false.
          
          include 'formats'
@@ -1048,7 +1047,6 @@ end subroutine read_reaction_Info
          integer function read_iso()
             use chem_def, only: iso_name_length
             character (len=64) :: str
-            integer :: ierr
             str = line(i:j)
             read_iso = chem_get_iso_id(str)
          end function read_iso
@@ -1078,7 +1076,6 @@ end function read_dbl
          
          logical function missing_dbl()
             character (len=64) :: str
-            integer :: ierr
             str = line(i:j)
             missing_dbl = (len_trim(str) == 0)
          end function missing_dbl
diff --git a/rates/private/rates_support.f90 b/rates/private/rates_support.f90
index 3b2694f8e..9fc001279 100644
--- a/rates/private/rates_support.f90
+++ b/rates/private/rates_support.f90
@@ -49,7 +49,7 @@ subroutine do_get_raw_rates( &
          real(dp), intent(inout), dimension(:) :: rate_raw, rate_raw_dT, rate_raw_dRho
          integer, intent(out) :: ierr
          
-         integer :: imax, iat0, iat, ir, i, j, irho
+         integer :: imax, iat0, iat, ir, i, irho
          integer, parameter :: mp = 4
          real(dp), allocatable :: dtab(:), ddtab(:)
          real(dp), pointer :: rattab_f(:,:,:) 
@@ -151,9 +151,8 @@ subroutine get_rates_from_table(r1, r2)
             use const_def, only: ln10
             integer, intent(in) :: r1, r2
             
-            integer :: i, k, cnt
-            real(dp) :: denom, am1, a00, ap1, ap2, cm1, c00, cp1, cp2,  &
-                  rate, dr_dT, dx, dt, old_rate, old_dr_dT
+            integer :: i, k
+            real(dp) :: dt
             
             include 'formats'
                
@@ -201,7 +200,7 @@ subroutine do_make_rate_tables( &
          real(dp), pointer :: rattab_f1(:)
          integer, intent(out) :: ierr
          
-         integer :: i, j, operr, ir, num_to_add_to_cache,thread_num
+         integer :: i, j, operr, num_to_add_to_cache,thread_num
          real(dp) :: logT, btemp
          real(dp), pointer ::  work1(:)=>null(), f1(:)=>null(), rattab_f(:,:,:)=>null()
          integer, pointer :: reaction_id(:) =>null()
@@ -530,7 +529,7 @@ subroutine do_show_reaction_from_cache(cache_filename, ierr)
          
          integer :: version, nrattab, which
          real(dp) :: rattab_thi, rattab_tlo, rattab_tstp, rate, T8, logT
-         integer :: ios, ir, i, j, io_unit
+         integer :: ios, j, io_unit
          real(dp), parameter :: tiny = 1d-6
          character (len=maxlen_reaction_Name) :: name
 
diff --git a/rates/private/raw_rates.f90 b/rates/private/raw_rates.f90
index a9caa963e..bf327a8f8 100644
--- a/rates/private/raw_rates.f90
+++ b/rates/private/raw_rates.f90
@@ -815,7 +815,6 @@ subroutine eval_which_raw_rate(  &
          real(dp), intent(in) :: temp
          real(dp), intent(out) :: fr, rr
          integer, intent(out) :: ierr
-         real(dp) :: fr1, rr1, alfa, beta
          include 'formats'
          ierr = 0
 
@@ -897,7 +896,7 @@ subroutine eval_table_reverse(ir, rir, tf, temp, fr, rr, ierr)
          integer, intent(out) :: ierr
          real(dp), dimension(1):: ln_lambda, lambda, dlambda_dlnT, &
                                     inv_lambda, dinv_lambda_dlnT
-         integer :: lo, hi, num_lambdas
+         integer :: lo, hi
          real(dp) :: fr_table
          include 'formats'
          ierr = 0
@@ -940,7 +939,6 @@ subroutine get_interp_table(f_name, nT8s, T8s_out, f1_out, ierr)
          integer, intent(out) :: ierr
          
          integer :: iounit, j, nvec
-         real(dp) :: tmp
          real(dp), pointer :: work(:)=> null()
          real(dp), pointer :: T8s(:)=> null()
          real(dp), pointer :: f1(:)=> null(), f(:,:)=> null()
diff --git a/rates/private/reaclib_eval.f90 b/rates/private/reaclib_eval.f90
index f067c54f2..b4084987b 100644
--- a/rates/private/reaclib_eval.f90
+++ b/rates/private/reaclib_eval.f90
@@ -98,7 +98,7 @@ subroutine compute_some_lambdas( &
          type(reaction_data), intent(in) :: rates
          real(dp), dimension(:), intent(out) :: ln_lambda, lambda, dlambda_dlnT
          
-         real(dp) :: T9inv, logT, ln1
+         real(dp) :: T9inv, ln1
          real(dp), dimension(7) :: T9fac, dT9fac_dT9, dT9fac_dlnT
          integer :: i, j
          
@@ -161,7 +161,7 @@ subroutine compute_some_inverse_lambdas( &
          real(dp), dimension(:), intent(out) :: inv_lambda, dinv_lambda_dlnT
          
          integer :: indx,indxp
-         integer :: rstart, rend, i, j
+         integer :: i, j
          real(dp), dimension(num_lambdas) :: A, Qratio, dQratio_dlnT
          real(dp) :: tfac, dtfac_dlnT, lnT9, T9i, dT9i_dlnT, ln1, fac1, dfac1_dlnT, dln1_dlnT,blurp
          
diff --git a/rates/private/reaclib_input.f90 b/rates/private/reaclib_input.f90
index 57e6643c8..d434b7694 100644
--- a/rates/private/reaclib_input.f90
+++ b/rates/private/reaclib_input.f90
@@ -192,7 +192,7 @@ subroutine do_read_reaclib(ierr)
          subroutine read_reaclib_cache(io,ios)
             integer, intent(in) :: io
             integer, intent(out) :: ios
-            integer :: i,n            
+            integer :: n            
             ios = 0
             read(io,iostat=ios) nreaclib
             if (ios /= 0) return
@@ -211,7 +211,7 @@ end subroutine read_reaclib_cache
          
          subroutine write_reaclib_cache(io)
             integer, intent(in) :: io
-            integer :: i, n
+            integer :: n
             write(io) nreaclib
             n = nreaclib
             write(io) &
@@ -230,7 +230,7 @@ end subroutine do_read_reaclib
 
       subroutine extract_rates_from_reaclib(reaclib,nreaclib,nuclides,rates,set,use_weaklib,ierr)
          use chem_def, only: &
-            nuclide_set, nuclide_not_found, del_Mp, del_Mn, &
+            nuclide_set, nuclide_not_found, &
             ipp, icno, i3alf, i_burn_c, i_burn_n, i_burn_o, i_burn_ne, i_burn_na, i_burn_mg, &
             i_burn_si, i_burn_s, i_burn_ar, i_burn_ca, i_burn_ti, i_burn_cr, i_burn_fe, icc, &
             ico, ioo, iphoto, iother
@@ -247,7 +247,7 @@ subroutine extract_rates_from_reaclib(reaclib,nreaclib,nuclides,rates,set,use_we
          type(reaction_data) :: r ! temporary storage
          integer :: i,j,l,count,loc_count,nt,indx,cat, &
             weaklib_count,chapter,num_in,num_out,num_skip_for_weaklib,num_from_reaclib, &
-            max_lhs_Z, min_Z, i1, i2, cid_in, cid_out
+            max_lhs_Z, min_Z
          logical :: include_this_rate, already_included_from_weaklib, found_it, is_weak
          integer, dimension(max_species_per_reaction) :: pspecies
          character(len=max_id_length) :: handle
@@ -662,7 +662,6 @@ end subroutine extract_rates_from_reaclib
 
       ! Fowler, Caughlan, Zimmerman, Annual Review Astro. Astrophys., 1975.12:69-112. eqn (1).
       real(dp) function neutrino_Q(b1, b2)
-         use chem_def, only: chem_isos
          real(dp), intent(in) :: b1, b2
          real(dp) :: sum, sum2
          sum    = b2 - b1 - 0.782d0 - 1.022d0
diff --git a/rates/private/reaclib_support.f90 b/rates/private/reaclib_support.f90
index bb49404a1..2917d7887 100644
--- a/rates/private/reaclib_support.f90
+++ b/rates/private/reaclib_support.f90
@@ -704,7 +704,6 @@ end function two_two
          
          subroutine do_n_to_m(n,m)
             integer, intent(in) :: n, m ! each is either 1 or 2
-            integer :: j
             in1 = 0; in2 = 0; out1 = 0; out2 = 0
             if (.not. reverse) then
                in1 = pspecies(1)
diff --git a/rates/private/screen5.f90 b/rates/private/screen5.f90
index cda687f3c..c0564d665 100644
--- a/rates/private/screen5.f90
+++ b/rates/private/screen5.f90
@@ -124,7 +124,7 @@ subroutine fxt_screen5(sc, zs13, zhat, zhat2, lzav, aznut, zs13inv,  &
                        tau12, tau12dt, alph12, alph12dt, alph12dd,  &
                        xlgfac, dxlgfacdt, dxlgfacdd,  &
                        gamp14, gamp14dt, gamp14dd, h12x, dh12xdt, dh12xdd,  &
-                       gamefx, gamefs, alfa, beta, temp, den, zbar, abar, z2bar,&
+                       gamefx, gamefs, temp, den, zbar, abar, z2bar,&
                        dgamma
 
 !..screening variables
diff --git a/rates/private/screen_chugunov.f90 b/rates/private/screen_chugunov.f90
index 9cc9eb924..12d6402dd 100644
--- a/rates/private/screen_chugunov.f90
+++ b/rates/private/screen_chugunov.f90
@@ -101,15 +101,15 @@ subroutine eval_screen_chugunov(sc, z1, z2, a1, a2, screen, dscreendt, dscreendd
          real(dp) ::   a_e        !< electron sphere radius
          real(dp) ::   a_b        !< bohr radius
          real(dp) ::   rs         !< ion sphere radius normalised to bohr radius
-         real(dp) ::   m1, m2     !< ion masses
-         real(dp) ::   n1, n2     !< number density of ions of types 1 and 2
+         !real(dp) ::   m1, m2     !< ion masses
+         !real(dp) ::   n1, n2     !< number density of ions of types 1 and 2
          real(dp) ::   ntot, dntotdd       !< total number density of these ions
-         real(dp) ::   s          !< evaluated sigmoid function
+         !real(dp) ::   s          !< evaluated sigmoid function
          real(dp) ::   mav           !< average ion mass
          real(dp) ::   A, B, C, U, dAdt, dAdd, dBdt, dBdd, dCdt, dCdd
          real(dp) ::   temp, rho, abar, zbar, rr
-         real(dp) ::   alpha, dalphadgam, dbetadgam, dalphadh0, dbetadh0, dalphadtn,dbetadtn
-         real(dp) ::   tk, dtkdt, dtkdd, dtk2_dtp2dd
+         real(dp) ::   alpha, dalphadgam, dbetadgam, dalphadtn,dbetadtn
+         real(dp) ::   tk, dtkdt, dtkdd
    
          ! check whether both reactants are charged ions
    
diff --git a/rates/private/suzuki_tables.f90 b/rates/private/suzuki_tables.f90
index ecbbc8b9c..482c32f56 100644
--- a/rates/private/suzuki_tables.f90
+++ b/rates/private/suzuki_tables.f90
@@ -98,14 +98,13 @@ subroutine interpolate_suzuki_table(table, T9, lYeRho, &
     real(dp), intent(out) :: Qneu, dQneu_dlnT, dQneu_dlnRho
     integer, intent(out) :: ierr
 
-    integer :: ix, jy          ! target cell in the spline data
-    real(dp) :: x0, xget, x1      ! x0 <= xget <= x1;  x0 = xs(ix), x1 = xs(ix+1)
-    real(dp) :: y0, yget, y1      ! y0 <= yget <= y1;  y0 = ys(jy), y1 = ys(jy+1)
+    integer :: ix, jy       ! target cell in the spline data
+    real(dp) :: x0, x1      ! x0 <= xget <= x1;  x0 = xs(ix), x1 = xs(ix+1)
+    real(dp) :: y0, y1      ! y0 <= yget <= y1;  y0 = ys(jy), y1 = ys(jy+1)
 
     real(dp) :: logT
 
     real(dp) :: delta_logT, dlogT, dlYeRho, delta_lYeRho, y_alfa, y_beta, x_alfa, x_beta
-    integer :: ilogT, ilYeRho
 
     real(dp) :: ldecay, d_ldecay_dlogT, d_ldecay_dlYeRho, &
          lcapture, d_lcapture_dlogT, d_lcapture_dlYeRho, &
@@ -233,8 +232,7 @@ subroutine interpolate_suzuki_table(table, T9, lYeRho, &
   contains
 
     subroutine find_location ! set ix, jy; x is logT; y is lYeRho
-      integer i, j
-      real(dp) :: del
+      integer :: i, j
       include 'formats'
       ! x0 <= logT <= x1
       ix = table % num_T-1 ! since weak_num_logT is small, just do a linear search
@@ -351,7 +349,7 @@ end subroutine interpolate_suzuki_table
   subroutine private_load_suzuki_tables(ierr)
 
      use utils_lib
-     use hdf5io_lib
+     use forum_m, only: hdf5io_t, OPEN_FILE_RO
      use chem_lib, only: chem_get_iso_id
      use chem_def, only: iso_name_length
 
@@ -365,8 +363,6 @@ subroutine private_load_suzuki_tables(ierr)
      integer                   :: num_suzuki_reactions
      integer                   :: i
 
-     character(len=2*iso_name_length+1) :: key
-
      logical, parameter :: dbg = .false.
 
      if (dbg) write(*,*) 'private_load_suzuki_tables'
diff --git a/rates/private/weaklib_tables.f90 b/rates/private/weaklib_tables.f90
index 80a9e3de4..eb763b4a4 100644
--- a/rates/private/weaklib_tables.f90
+++ b/rates/private/weaklib_tables.f90
@@ -56,7 +56,6 @@ module weaklib_tables
   function new_weaklib_rate_table(T9s, lYeRhos)
     real(dp), intent(in), dimension(:) :: T9s, lYeRhos
     type(weaklib_rate_table) :: new_weaklib_rate_table
-    integer :: N
 
     new_weaklib_rate_table% num_T9 = size(T9s)
     allocate(new_weaklib_rate_table% T9s(new_weaklib_rate_table% num_T9))
@@ -206,7 +205,6 @@ subroutine interpolate_weaklib_table(table, T9, lYeRho, &
     real(dp) :: yp, ypi, yp2, ypi2, cy, cyi, hy2, cyd, cydi, hy, hyi
 
     real(dp) :: delta_T9, dT9, dlYeRho, delta_lYeRho, y_alfa, y_beta, x_alfa, x_beta
-    integer :: iT9, ilYeRho
 
     real(dp) :: ldecay, d_ldecay_dT9, d_ldecay_dlYeRho, &
          lcapture, d_lcapture_dT9, d_lcapture_dlYeRho, &
@@ -275,8 +273,7 @@ subroutine interpolate_weaklib_table(table, T9, lYeRho, &
   contains
 
     subroutine find_location ! set ix, jy; x is T9; y is lYeRho
-      integer i, j
-      real(dp) :: del
+      integer :: i, j
       include 'formats'
       ! x0 <= T9 <= x1
       ix = table % num_T9-1 ! since weak_num_T9 is small, just do a linear search
@@ -302,8 +299,6 @@ subroutine find_location ! set ix, jy; x is T9; y is lYeRho
     end subroutine find_location
 
     subroutine setup_for_bicubic_interpolations
-      integer i, j
-      real(dp) :: del
 
       include 'formats'
 
diff --git a/rates/public/rates_def.f90 b/rates/public/rates_def.f90
index 82497746c..7f5e2c82a 100644
--- a/rates/public/rates_def.f90
+++ b/rates/public/rates_def.f90
@@ -928,7 +928,7 @@ subroutine create_skip_warnings_dict(ierr)
          use utils_def
          integer, intent(out) :: ierr
          
-         integer :: iounit, n, i, t, id, read_int
+         integer :: iounit, n, i, t
          character (len=256) :: buffer, string, filename, list_filename
          
          ierr = 0
@@ -1006,7 +1006,6 @@ end function reaclib_reverse
       subroutine weaklib_init(ierr)
          use const_def, only: mesa_data_dir
          integer, intent(out) :: ierr 
-         integer :: i
          ierr = 0
          weak_data_dir = trim(mesa_data_dir) // '/rates_data'
          nullify(weak_reactions_dict)
@@ -1044,8 +1043,6 @@ end subroutine free_weak_info
 
       subroutine ecapture_init(ierr)
 
-         use const_def, only: mesa_data_dir
-
          integer, intent(out) :: ierr 
 
          ierr = 0
@@ -1149,8 +1146,7 @@ end subroutine free_reaction_data
 
       subroutine do_start_rates_def_init(ierr)
          use math_lib
-         integer, intent(out) :: ierr
-         integer :: i         
+         integer, intent(out) :: ierr     
          ierr = 0
          call set_rattab_range(5.30102999566398d0, 10.301029995664d0)
          
@@ -1193,7 +1189,6 @@ integer function get_rates_reaction_id(reaction_name) result(value)
          use utils_lib, only: integer_dict_lookup
          character (len=*), intent(in)  :: reaction_name 
          integer :: ierr
-         integer :: indx
          ierr = 0
          call integer_dict_lookup(reaction_names_dict, reaction_name, value, ierr)
          if (ierr /= 0) value = 0
diff --git a/rates/public/rates_lib.f90 b/rates/public/rates_lib.f90
index 1ad47eaae..8cad1e0ae 100644
--- a/rates/public/rates_lib.f90
+++ b/rates/public/rates_lib.f90
@@ -370,7 +370,6 @@ end subroutine rates_two_to_one_coeffs_for_reverse_factor
       ! i.e., A + B -> C exothermic
       subroutine rates_two_to_one_reverse_factor( &
             Q, T9, T932, iso_A, iso_B, iso_C, rev, d_rev_dT, ierr) ! A + B <-> C
-         use chem_def, only: chem_isos
          use math_lib
          real(dp), intent(in) :: Q, T9, T932
          integer, intent(in) :: iso_A, iso_B, iso_C
@@ -417,7 +416,6 @@ end subroutine rates_two_to_two_coeffs_for_reverse_factor
       ! i.e., A + B -> C + D exothermic
       subroutine rates_two_to_two_reverse_factor( &
             Q, T9, iso_A, iso_B, iso_C, iso_D, rev, d_rev_dT, ierr) ! A + B <-> C + D
-         use chem_def, only: chem_isos
          use math_lib
          real(dp), intent(in) :: Q, T9
          integer, intent(in) :: iso_A, iso_B, iso_C, iso_D
diff --git a/rates/test/src/test_ecapture.f90 b/rates/test/src/test_ecapture.f90
index 34ce68fdb..9d9e9bbdd 100644
--- a/rates/test/src/test_ecapture.f90
+++ b/rates/test/src/test_ecapture.f90
@@ -152,12 +152,12 @@ subroutine do_test_special_weak(use_special)
 
     logical, intent(in) :: use_special
 
-    real(dp) :: Rho, T, Pgas, log10Rho, log10T
+    real(dp) :: Rho, T, log10Rho, log10T
     real(dp), dimension(num_eos_basic_results) :: res, d_dlnd, d_dlnT
     real(dp), dimension(num_eos_d_dxa_results, species) :: d_dxa
     integer :: ierr
 
-    integer :: i, ir, nr
+    integer :: i, nr
     integer, pointer :: ids(:), reaction_ids(:)
     type(Coulomb_Info), pointer :: cc
 
@@ -165,9 +165,8 @@ subroutine do_test_special_weak(use_special)
          lambda, dlambda_dlnT, dlambda_dlnRho, &
          Q, dQ_dlnT, dQ_dlnRho, &
          Qneu, dQneu_dlnT, dQneu_dlnRho
-    real(dp) :: lntwo, logT, T9, dT9, dlnT, YeRho, &
-         ye, logRho, dlogRho, eta, d_eta_dlnT, d_eta_dlnRho, &
-         Prad, energy, entropy
+    real(dp) :: logT, T9, YeRho, &
+         ye, logRho, eta, d_eta_dlnT, d_eta_dlnRho
     character(len=iso_name_length), dimension(2) :: weak_lhs, weak_rhs
 
     allocate(cc)
@@ -271,7 +270,7 @@ subroutine Init_Composition
     use chem_def
     use chem_lib
 
-    real(dp) :: frac, dabar_dx(species), dzbar_dx(species),   &
+    real(dp) :: dabar_dx(species), dzbar_dx(species),   &
          sumx, xh, xhe, xz, mass_correction, dmc_dx(species)
 
     allocate(net_iso(num_chem_isos), chem_id(species), stat=ierr)
diff --git a/rates/test/src/test_rates.f90 b/rates/test/src/test_rates.f90
index 3e795eeaa..bb4b7670d 100644
--- a/rates/test/src/test_rates.f90
+++ b/rates/test/src/test_rates.f90
@@ -41,8 +41,7 @@ module test_rates_support
    subroutine setup
       use chem_def
       
-      integer :: ierr, iso_A, iso_B, iso_C, iso_D
-      real(dp) :: W_A, W_B, W_C, W_D, a, b, g_A, g_B, g_C, g_D, Q
+      integer :: ierr
       character (len=32) :: my_mesa_dir
       
       include 'formats'
@@ -91,8 +90,8 @@ subroutine do_test_rates()
       integer :: ierr
       type (T_Factors), target :: tf_rec
       type (T_Factors), pointer :: tf
-      real(dp) :: logT, temp, raw_rate
-      integer :: i, t,ir
+      real(dp) :: logT, temp
+      integer :: i, t
       
       integer :: nrates_to_eval
       integer, allocatable :: irs(:)
@@ -163,7 +162,7 @@ subroutine test1
       type (T_Factors), target :: tf_rec
       type (T_Factors), pointer :: tf
       real(dp) :: logT, temp, raw_rate, raw_rate1, raw_rate2
-      integer :: i, ir
+      integer :: ir
       logical, parameter :: dbg = .false.
       
       include 'formats'
@@ -246,7 +245,7 @@ subroutine do_test_rate_table
       type (T_Factors), target :: tf_rec
       type (T_Factors), pointer :: tf
       real(dp) :: logT, temp, raw_rate
-      integer :: i, ir
+      integer :: ir
       logical, parameter :: dbg = .false.
       
       include 'formats'
diff --git a/rates/test/src/test_screen.f90 b/rates/test/src/test_screen.f90
index 2533bf7bb..cb880a7a2 100644
--- a/rates/test/src/test_screen.f90
+++ b/rates/test/src/test_screen.f90
@@ -42,16 +42,14 @@ subroutine do_test_screen
       use math_lib
       
       integer, parameter :: num_isos = 8, max_z_to_cache = 12
-      integer :: chem_id(num_isos), i1, i2, jscr, ierr
+      integer :: chem_id(num_isos), i1, i2, ierr
       integer, pointer :: net_iso(:)
       real(dp) :: xin(num_isos), y(num_isos), iso_z(num_isos), xz, abar, zbar, z2bar, z53bar, ye, sumx, &
             dabar_dx(num_isos), dzbar_dx(num_isos), temp, den, logT, logRho, &
             sc1a, sc1adt, sc1add, xh, xhe, dmc_dx(num_isos), iso_z158(num_isos)
       type (Screen_Info) :: sc
-      real(dp) :: zg1, zg2, zg3, zg4
       real(dp) :: zs13, zhat, zhat2, lzav, aznut, zs13inv, mass_correction!approx_abar, approx_zbar
-      integer :: screening_mode, i
-      character(len=256) :: scr_option_str
+      integer :: i
       integer :: h1, he3, he4, c12, n14, o16, ne20, mg24
       character (len=32) :: my_mesa_dir
       
diff --git a/rates/test/src/test_weak.f90 b/rates/test/src/test_weak.f90
index 2ff2d7968..39d69d1e0 100644
--- a/rates/test/src/test_weak.f90
+++ b/rates/test/src/test_weak.f90
@@ -47,13 +47,11 @@ subroutine do_test_weak
          lambda, dlambda_dlnT, dlambda_dlnRho, &
          Q, dQ_dlnT, dQ_dlnRho, &
          Qneu, dQneu_dlnT, dQneu_dlnRho
-      real(dp) :: logT, T, T9, dT9, dlnT, YeRho, &
-         ye, rho, logRho, dlogRho, eta, d_eta_dlnT, d_eta_dlnRho
+      real(dp) :: logT, T, T9, YeRho, &
+         ye, rho, logRho, eta, d_eta_dlnT, d_eta_dlnRho
       character(len=iso_name_length) :: weak_lhs, weak_rhs
       character(len=2*iso_name_length+1) :: key
 
-      real(dp) :: abar, zbar, z2bar
-
       real(dp) :: dvardx, dvardx_0, dx_0, err, var_0, xdum
       logical :: doing_d_dlnd
       
diff --git a/release b/release
index a69bf3098..ac58efbaf 100755
--- a/release
+++ b/release
@@ -1,15 +1,32 @@
 #!/bin/bash
 
 VERSION="$1"
+echo "Preparing to release MESA version ${VERSION}"
 
-if [[ ! -n ${VERSION}} ]]; then
-	echo 'Please specify version number'
+if [[ ! -n ${VERSION} ]]; then
+	echo "Error: Please specify version number. E.g. r2X.YY.Z or r2X.YY.Z-rcA"
 	exit 1
 fi
 
+if [[ ! ${VERSION} == r* ]]; then
+	echo "Error: Version number must start with 'r'. E.g. r2X.YY.Z or r2X.YY.Z-rcA"
+	exit 1
+fi
+
+# check that the changelog has been updated
+if ! grep -q "Changes in ${VERSION}" docs/source/changelog.rst; then
+	echo "Error: Please update the changelog by moving 'Changes in main' to a new section called 'Changes in ${VERSION}' and add a new 'Changes in main' section at the top of the file following 'changelog_template.rst'. Make sure this change is commited in the 'main' development branch of MESA."
+	exit 1
+fi
+
+# strip the r and hypen from version number to create a PEP440 standard tag
+TAG=${VERSION:1}
+TAG=${TAG//-}
+echo "The associated (PEP440) tag version ${VERSION} is: ${TAG}"
+
 cd ${MESA_DIR} || exit 1
 
-# Do the work in a sperate branch
+# Do the work in a seperate branch
 git checkout -b release/${VERSION}
 
 # Add version_number file
@@ -21,16 +38,28 @@ sed -i "s/PROJECT_NUMBER\ \ \ .*/PROJECT_NUMBER\ \ \ \ \ \ \ \ \ =\ ${VERSION}/"
 git add Doxyfile
 
 # Update docs/source/conf.py
-sed -i 's/release\ =.*/release\ =\ '"'${VERSION}'"'/' docs/source/conf.py
-sed -i 's/version\ =.*/version\ =\ '"'${VERSION}'"'/' docs/source/conf.py
+sed -i 's/release\ =.*/release\ =\ '"'${TAG}'"'/' docs/source/conf.py
+sed -i 's/version\ =.*/version\ =\ '"'${TAG}'"'/' docs/source/conf.py
 
 git add docs/source/conf.py
 
+# Update docs/source/changelog.rst
+PATTERN1="This section describes changes present in the development"
+PATTERN2="Before releasing a new version of MESA"
+if grep -q "$PATTERN1" docs/source/changelog.rst; then
+  if grep -q "$PATTERN2" docs/source/changelog.rst; then
+	  sed -i "/$PATTERN1/,/$PATTERN2/d" docs/source/changelog.rst
+	fi
+fi
+
+git add docs/source/changelog.rst
+
+# Commit and tag the changes
 git commit -a -m "Release: ${VERSION}"
-git tag ${VERSION}
+git tag ${TAG}
 
 # Make the archive
-git archive --prefix=mesa-${VERSION}/ --format=zip ${VERSION} > mesa-${VERSION}.zip
+git archive --prefix=mesa-${VERSION}/ --format=zip ${TAG} > mesa-${VERSION}.zip
 
 echo "Now check the archive builds before pushing the changes"
 
@@ -38,5 +67,5 @@ exit 0
 
 # Cleanup when testing
 git checkout main
-git tag -d ${VERSION}
+git tag -d ${TAG}
 git branch -D release/${VERSION}
diff --git a/sample/src/sample.f90 b/sample/src/sample.f90
index 343be6249..9c7f74d02 100644
--- a/sample/src/sample.f90
+++ b/sample/src/sample.f90
@@ -9,7 +9,7 @@
 !   by the Free Software Foundation; either version 2 of the License, or
 !   (at your option) any later version.
 !
-!   MESA is distributed in the hope that it will be useful, 
+!   MESA is distributed in the hope that it will be useful,
 !   but WITHOUT ANY WARRANTY; without even the implied warranty of
 !   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 !   GNU Library General Public License for more details.
@@ -20,208 +20,200 @@
 !
 ! ***********************************************************************
 
-      program sample_eos
+program sample_eos
+   use eos_def
+   use eos_lib
+   use chem_def
+   use chem_lib
+   use const_lib
+   use math_lib
+
+   implicit none
+
+   real(dp) :: X, Z, Y, abar, zbar, z2bar, z53bar, ye
+   integer, parameter :: species = 7
+   integer, parameter :: h1 = 1, he4 = 2, c12 = 3, n14 = 4, o16 = 5, ne20 = 6, mg24 = 7
+   integer, pointer, dimension(:) :: net_iso, chem_id
+   real(dp) :: xa(species)
+   character(len=256) :: my_mesa_dir
+
+   call Sample
+
+contains
+
+   subroutine Sample
+
+      integer :: handle
+      real(dp) :: Rho, T, Pgas, log10Rho, log10T
+      real(dp) :: dlnRho_dlnPgas_const_T, dlnRho_dlnT_const_Pgas
+      real(dp), dimension(num_eos_basic_results) :: res, d_dlnd, d_dlnT
+      real(dp), dimension(num_eos_d_dxa_results, species) :: d_dxa
+      integer :: ierr
+      character(len=*), parameter :: fmt1 = "(a20, 3x, e20.12)"
+
+      ierr = 0
+
+      my_mesa_dir = '..' ! if empty string, uses environment variable MESA_DIR
+      call const_init(my_mesa_dir, ierr)
+      if (ierr /= 0) then
+         write (*, *) 'const_init failed'
+         call mesa_error(__FILE__, __LINE__)
+      end if
+
+      call math_init()
+
+      call chem_init('isotopes.data', ierr)
+      if (ierr /= 0) then
+         write (*, *) 'failed in chem_init'
+         call mesa_error(__FILE__, __LINE__)
+      end if
+
+      ! allocate and initialize the eos tables
+      call Setup_eos(handle)
+
+      allocate (net_iso(num_chem_isos), chem_id(species), stat=ierr)
+      if (ierr /= 0) call mesa_error(__FILE__, __LINE__, 'allocate failed')
+      X = 0.70_dp
+      Z = 0.02_dp
+      call Init_Composition
+
+      Rho = 1.3519d2
+      log10T = 8.15_dp
+      T = exp10(log10T)
+
+      ! get a set of results for given temperature and density
+      call eosDT_get( &
+         handle, &
+         species, chem_id, net_iso, xa, &
+         Rho, log10(Rho), T, log10T, &
+         res, d_dlnd, d_dlnT, &
+         d_dxa, ierr)
+
+      Pgas = exp(res(i_lnPgas))
+
+      ! the indices for the results are defined in eos_def.f
+      write (*, '(A)')
+      write (*, fmt1) 'temperature', T
+      write (*, fmt1) 'density', Rho
+      write (*, fmt1) 'logT', log10T
+      write (*, fmt1) 'logRho', log10(Rho)
+      write (*, '(A)')
+      write (*, fmt1) 'Z', Z
+      write (*, fmt1) 'X', X
+      write (*, fmt1) 'abar', abar
+      write (*, fmt1) 'zbar', zbar
+      write (*, '(A)')
+      write (*, fmt1) 'Pgas', Pgas
+      write (*, fmt1) 'logPgas', res(i_lnPgas)/ln10
+      write (*, fmt1) 'grad_ad', res(i_grad_ad)
+      write (*, fmt1) 'c_P', res(i_Cp)
+      write (*, '(A)')
+
+      call eosPT_get( &
+         handle, &
+         species, chem_id, net_iso, xa, &
+         Pgas, log10(Pgas), T, log10(T), &
+         Rho, log10Rho, dlnRho_dlnPgas_const_T, dlnRho_dlnT_const_Pgas, &
+         res, d_dlnd, d_dlnT, d_dxa, ierr)
+
+      ! the indices for the results are defined in eos_def.f
+      write (*, '(A)')
+      write (*, fmt1) 'temperature', T
+      write (*, fmt1) 'Pgas', Pgas
+      write (*, fmt1) 'logT', log10(T)
+      write (*, fmt1) 'logPgas', res(i_lnPgas)/ln10
+      write (*, '(A)')
+      write (*, fmt1) 'Z', Z
+      write (*, fmt1) 'X', X
+      write (*, fmt1) 'abar', abar
+      write (*, fmt1) 'zbar', zbar
+      write (*, '(A)')
+      write (*, fmt1) 'density', Rho
+      write (*, fmt1) 'logRho', log10Rho
+      write (*, fmt1) 'grad_ad', res(i_grad_ad)
+      write (*, fmt1) 'c_P', res(i_Cp)
+      write (*, '(A)')
+
+      ! deallocate the eos tables
+      call Shutdown_eos(handle)
+
+      deallocate (net_iso, chem_id)
+
+      if (ierr /= 0) then
+         write (*, *) 'bad result from eos_get'
+         call mesa_error(__FILE__, __LINE__)
+      end if
+
+   end subroutine Sample
+
+   subroutine Setup_eos(handle)
+      ! allocate and load the eos tables
       use eos_def
       use eos_lib
-      use chem_def
+      integer, intent(out) :: handle
+
+      integer :: ierr
+      logical, parameter :: use_cache = .true.
+
+      call eos_init('', use_cache, ierr)
+      if (ierr /= 0) then
+         write (*, *) 'eos_init failed in Setup_eos'
+         call mesa_error(__FILE__, __LINE__)
+      end if
+
+      write (*, *) 'loading eos tables'
+
+      handle = alloc_eos_handle(ierr)
+      if (ierr /= 0) then
+         write (*, *) 'failed trying to allocate eos handle'
+         call mesa_error(__FILE__, __LINE__)
+      end if
+
+   end subroutine Setup_eos
+
+   subroutine Shutdown_eos(handle)
+      use eos_def
+      use eos_lib
+      integer, intent(in) :: handle
+      call free_eos_handle(handle)
+      call eos_shutdown
+   end subroutine Shutdown_eos
+
+   subroutine Init_Composition
       use chem_lib
-      use const_lib
-      use math_lib
-
-      implicit none
-
-      real(dp) :: X, Z, Y, abar, zbar, z2bar, z53bar, ye
-      integer, parameter :: species = 7
-      integer, parameter :: h1=1, he4=2, c12=3, n14=4, o16=5, ne20=6, mg24=7
-      integer, pointer, dimension(:) :: net_iso, chem_id
-      real(dp) :: xa(species)
-      character (len=256) :: my_mesa_dir
-
-
-      call Sample
-      
-      contains
-      
-      subroutine Sample
-         
-         integer :: handle
-         real(dp) :: Rho, T, Pgas, log10Rho, log10T, Prad, energy, entropy
-         real(dp) :: dlnRho_dlnPgas_const_T, dlnRho_dlnT_const_Pgas, d_dlnRho_const_T, d_dlnT_const_Rho
-         real(dp), dimension(num_eos_basic_results) :: res, d_dlnd, d_dlnT, d_dabar, d_dzbar
-         real(dp), dimension(num_eos_d_dxa_results, species) :: d_dxa
-         integer :: ierr
-         
-         ierr = 0
-
-         my_mesa_dir = '..' ! if empty string, uses environment variable MESA_DIR
-         call const_init(my_mesa_dir,ierr)     
-         if (ierr /= 0) then
-            write(*,*) 'const_init failed'
-            call mesa_error(__FILE__,__LINE__)
-         end if        
-         
-         call math_init()
-         
-         call chem_init('isotopes.data', ierr)
-         if (ierr /= 0) then
-            write(*,*) 'failed in chem_init'
-            call mesa_error(__FILE__,__LINE__)
-         end if
-
-         ! allocate and initialize the eos tables
-         call Setup_eos(handle)
-         
-         allocate(net_iso(num_chem_isos), chem_id(species), stat=ierr)
-         if (ierr /= 0) call mesa_error(__FILE__,__LINE__,'allocate failed')
-         X = 0.70_dp
-         Z = 0.02_dp
-         call Init_Composition
-         
-         Rho = 1.3519d2
-         log10T = 8.15_dp
-         T = exp10(log10T)
-         
-         ! get a set of results for given temperature and density
-         call eosDT_get( &
-               handle, &
-               species, chem_id, net_iso, xa, &
-               Rho, log10(Rho), T, log10T,  &
-               res, d_dlnd, d_dlnT, &
-               d_dxa, ierr)
-         
-        
- 1       format(a20,3x,e20.12)
-
-         Pgas = exp(res(i_lnPgas))
-
-         ! the indices for the results are defined in eos_def.f
-         write(*,'(A)')
-         write(*,1) 'temperature', T
-         write(*,1) 'density', Rho
-         write(*,1) 'logT', log10T
-         write(*,1) 'logRho', log10(Rho)
-         write(*,'(A)')
-         write(*,1) 'Z', Z
-         write(*,1) 'X', X
-         write(*,1) 'abar', abar
-         write(*,1) 'zbar', zbar
-         write(*,'(A)')
-         write(*,1) 'Pgas', Pgas
-         write(*,1) 'logPgas', res(i_lnPgas)/ln10
-         write(*,1) 'grad_ad', res(i_grad_ad)
-         write(*,1) 'c_P', res(i_Cp)
-         write(*,'(A)')
-
-         call eosPT_get(  &
-               handle, &
-               species, chem_id, net_iso, xa, &
-               Pgas, log10(Pgas), T, log10(T),  &
-               Rho, log10Rho, dlnRho_dlnPgas_const_T, dlnRho_dlnT_const_Pgas,  &
-               res, d_dlnd, d_dlnT, d_dxa, ierr)
-      
-         ! the indices for the results are defined in eos_def.f
-         write(*,'(A)')
-         write(*,1) 'temperature', T
-         write(*,1) 'Pgas', Pgas
-         write(*,1) 'logT', log10(T)
-         write(*,1) 'logPgas', res(i_lnPgas)/ln10
-         write(*,'(A)')
-         write(*,1) 'Z', Z
-         write(*,1) 'X', X
-         write(*,1) 'abar', abar
-         write(*,1) 'zbar', zbar
-         write(*,'(A)')
-         write(*,1) 'density', Rho
-         write(*,1) 'logRho', log10Rho
-         write(*,1) 'grad_ad', res(i_grad_ad)
-         write(*,1) 'c_P', res(i_Cp)
-         write(*,'(A)')
-
-         ! deallocate the eos tables
-         call Shutdown_eos(handle)
-         
-         deallocate(net_iso, chem_id)
-         
-         if (ierr /= 0) then
-            write(*,*) 'bad result from eos_get'
-            call mesa_error(__FILE__,__LINE__)
-         end if
-
-      end subroutine Sample
-      
-
-      subroutine Setup_eos(handle)
-         ! allocate and load the eos tables
-         use eos_def
-         use eos_lib
-         integer, intent(out) :: handle
-
-         integer :: ierr
-         logical, parameter :: use_cache = .true.
-
-         call eos_init('', use_cache, ierr)
-         if (ierr /= 0) then
-            write(*,*) 'eos_init failed in Setup_eos'
-            call mesa_error(__FILE__,__LINE__)
-         end if
-         
-         write(*,*) 'loading eos tables'
-         
-         handle = alloc_eos_handle(ierr)
-         if (ierr /= 0) then
-            write(*,*) 'failed trying to allocate eos handle'
-            call mesa_error(__FILE__,__LINE__)
-         end if
-      
-      end subroutine Setup_eos
-      
-      
-      subroutine Shutdown_eos(handle)
-         use eos_def
-         use eos_lib
-         integer, intent(in) :: handle
-         call free_eos_handle(handle)
-         call eos_shutdown
-      end subroutine Shutdown_eos
-
-
-      subroutine Init_Composition
-         use chem_lib
-
-         real(dp), parameter :: Zfrac_C = 0.173312d0
-         real(dp), parameter :: Zfrac_N = 0.053177d0
-         real(dp), parameter :: Zfrac_O = 0.482398d0
-         real(dp), parameter :: Zfrac_Ne = 0.098675d0
-         
-         real(dp) :: frac, dabar_dx(species), dzbar_dx(species),  &
-               sumx, xh, xhe, xz, mass_correction, dmc_dx(species)
-         
-         net_iso(:) = 0
-         
-         chem_id(h1) = ih1; net_iso(ih1) = h1
-         chem_id(he4) = ihe4; net_iso(ihe4) = he4
-         chem_id(c12) = ic12; net_iso(ic12) = c12
-         chem_id(n14) = in14; net_iso(in14) = n14
-         chem_id(o16) = io16; net_iso(io16) = o16
-         chem_id(ne20) = ine20; net_iso(ine20) = ne20
-         chem_id(mg24) = img24; net_iso(img24) = mg24
-         
-         Y = 1 - (X + Z)
-               
-         xa(h1) = X
-         xa(he4) = Y
-         xa(c12) = Z * Zfrac_C
-         xa(n14) = Z * Zfrac_N
-         xa(o16) = Z * Zfrac_O
-         xa(ne20) = Z * Zfrac_Ne
-         xa(species) = 1 - sum(xa(1:species-1))
-         
-         call composition_info( &
-               species, chem_id, xa, xh, xhe, xz, abar, zbar, z2bar, z53bar, ye,  &
-               mass_correction, sumx, dabar_dx, dzbar_dx, dmc_dx)
-         
-      end subroutine Init_Composition
-
-
-      end   
 
+      real(dp), parameter :: Zfrac_C = 0.173312d0
+      real(dp), parameter :: Zfrac_N = 0.053177d0
+      real(dp), parameter :: Zfrac_O = 0.482398d0
+      real(dp), parameter :: Zfrac_Ne = 0.098675d0
+
+      real(dp) :: dabar_dx(species), dzbar_dx(species), &
+                  sumx, xh, xhe, xz, mass_correction, dmc_dx(species)
+
+      net_iso(:) = 0
+
+      chem_id(h1) = ih1; net_iso(ih1) = h1
+      chem_id(he4) = ihe4; net_iso(ihe4) = he4
+      chem_id(c12) = ic12; net_iso(ic12) = c12
+      chem_id(n14) = in14; net_iso(in14) = n14
+      chem_id(o16) = io16; net_iso(io16) = o16
+      chem_id(ne20) = ine20; net_iso(ine20) = ne20
+      chem_id(mg24) = img24; net_iso(img24) = mg24
+
+      Y = 1 - (X + Z)
+
+      xa(h1) = X
+      xa(he4) = Y
+      xa(c12) = Z*Zfrac_C
+      xa(n14) = Z*Zfrac_N
+      xa(o16) = Z*Zfrac_O
+      xa(ne20) = Z*Zfrac_Ne
+      xa(species) = 1 - sum(xa(1:species - 1))
+
+      call composition_info( &
+         species, chem_id, xa, xh, xhe, xz, abar, zbar, z2bar, z53bar, ye, &
+         mass_correction, sumx, dabar_dx, dzbar_dx, dmc_dx)
+
+   end subroutine Init_Composition
+
+end
diff --git a/scripts/shmesa/shmesa b/scripts/shmesa/shmesa
index 3c31e80f4..fc2b5e596 100755
--- a/scripts/shmesa/shmesa
+++ b/scripts/shmesa/shmesa
@@ -113,28 +113,26 @@ shmesa_change () {
     
     # Create a backup of the inlist before making any changes
     backup_copy "$filename" "${filename}.bak"
-    
-    local ESCAPE="s#[^^]#[&]#g; s#\^#\\^#g" # sed escape string
-    # iterate through parameter,value pairs in the supplied input 
+
     while [[ -n $1 && -n $2 ]]; do
         local param=$1
         local newval=$2
         shift 2
         
-        local escapedParam=$(sed "$ESCAPE" <<< "$param")
-        local search="^\s*\!*\s*$escapedParam\s*=.+$" 
+        local search="^\s*\!*\s*\b${param}\b\s*=.*$"
         local replace="    $param = $newval"
         
         # Check if the parameter is present in the inlist
-        if ! grep -q "$param" "$filename"; then
+        if ! grep -qw "$param" "$filename"; then
             echo "Error: Parameter '$param' not found in the inlist '$filename'."
             backup_restore "$filename"
             return 1
         fi
         
         # Update its value
-        sed -r -i -e "s#$search#$replace#g" "$filename"
+        perl -i -pe "s/$search/$replace/" "$filename"
     done
+
 }
 
 
@@ -162,20 +160,17 @@ shmesa_defaults () {
         cp "$MESA_DIR/star/defaults/history_columns.list" .
     fi
     
-    local ESCAPE="s#[^^]#[&]#g; s#\^#\\^#g" # sed escape string
-    # Uncomment the specified parameters
     while [[ -n $1 ]]; do
         local param=$1
         shift
         
-        local escapedParam=$(sed "$ESCAPE" <<< "$param")
-        local search="^\s*\!*\s*$escapedParam\s*.+$"
-        local replace="    $param"
+        local search="^\s*\!${param}\b(\s*.*)?$"
+        local replace="      $param\$1"
         
-        if grep -q "$param" profile_columns.list || \
-           grep -q "$param" history_columns.list; then
-            sed -r -i -e "s#$search#$replace#g" profile_columns.list
-            sed -r -i -e "s#$search#$replace#g" history_columns.list
+        if grep -q -w "$param" profile_columns.list; then
+            perl -i -pe "s/$search/$replace/g" profile_columns.list
+        elif grep -q -w "$param" history_columns.list; then
+            perl -i -pe "s/$search/$replace/g" history_columns.list
         else
             echo "Warning: Parameter '$param' not found in either profile_columns.list or history_columns.list."
         fi
@@ -253,7 +248,7 @@ shmesa_zip () {
         echo "Warning: No inlist files found in the directory '$dir_to_zip'."
     fi
 
-    zip -r "$zip_name" "$dir_to_zip" -x "*/make/*mod" "*/make/*.o" "*.bak" "*star" "*binary" "*LOGS*" "*photos*" "*png*" "*.mesa_temp_cache"
+    zip -r "$zip_name" "$dir_to_zip" -x "*/make/*mod" "*/make/*.o" "*.bak" "star" "binary" "*LOGS*" "*photos*" "*png*" "*.mesa_temp_cache"
 }
 
 
@@ -274,10 +269,10 @@ shmesa_extras () {
         echo "Cannot find $MESA_DIR/include/standard_run_star_extras.inc"
         return 1
     fi
-    contents=$(sed 's:|:\\|:g' "$MESA_DIR/include/standard_run_star_extras.inc" | sed -z 's:\n:\\n:g')
+    contents=$(perl -pe 's/:/\\:/g; s/\n/\\n/g' "$MESA_DIR/include/standard_run_star_extras.inc")
 
     backup_copy "$rse" "$rse".bak
-    sed -i "s|      include 'standard_run_star_extras.inc'|$contents|" $rse
+    perl -i -pe "s|      include 'standard_run_star_extras.inc'|$contents|g" "$rse"
 }
 
 
@@ -346,7 +341,7 @@ shmesa_test () {
                         pgstar_flag .false. && \
           shmesa change inlist_project \
                         initial_mass 1.2 \
-                        Z 0.01 \
+                        initial_z 0.01 \
                         Zbase 0.01)"
     
     # shmesa defaults
diff --git a/scripts/stash.py b/scripts/stash.py
index 06363af26..b141130af 100755
--- a/scripts/stash.py
+++ b/scripts/stash.py
@@ -1,93 +1,109 @@
 #!/usr/bin/python
 from datetime import datetime
-from shutil import copytree, copyfile, ignore_patterns
+from shutil import copytree, copyfile
 from glob import glob
 from os.path import isfile, getmtime
 from os import remove, removedirs
 import argparse
 
-parser = argparse.ArgumentParser(description='Store a MESA experiment.')
-parser.add_argument('-p', metavar='p', type=str, default=None, help='Specifies the starting photo.')
-parser.add_argument('-N', metavar='N', type=int, default=5, help='The first N and last N photos by modified-time will be stashed.')
-parser.add_argument('-m', metavar='m', type=str, default='', help='Notes about the experiment.')
-parser.add_argument('--png', action='store_true', help='Stash png files. If specified png files will be stashed and then removed from the working directory.')
+parser = argparse.ArgumentParser(description="Store a MESA experiment.")
+parser.add_argument(
+    "-p", metavar="p", type=str, default=None, help="Specifies the starting photo."
+)
+parser.add_argument(
+    "-N",
+    metavar="N",
+    type=int,
+    default=5,
+    help="The first N and last N photos by modified-time will be stashed.",
+)
+parser.add_argument(
+    "-m", metavar="m", type=str, default="", help="Notes about the experiment."
+)
+parser.add_argument(
+    "--png",
+    action="store_true",
+    help="Stash png files. If specified png files will be stashed and then removed from the working directory.",
+)
 args = parser.parse_args()
 
 # Name the experiment
 now = datetime.now()
-time = now.strftime('%Y_%m_%d_%H_%M_%S')
-experiment_name = 'experiment_' + time
-experiment_folder = 'experiments/'+experiment_name
+time = now.strftime("%Y_%m_%d_%H_%M_%S")
+experiment_name = "experiment_" + time
+experiment_folder = "experiments/" + experiment_name
 
 copied_pngs = []
 
+
 # Stash everything that isn't a png, movie, photo, or compiled binary file.
 def ignore(path, names):
-	global copied_pngs
+    global copied_pngs
 
-	if './experiments' in path or './photos' in path or '__pycachce__' in path:
-		return names
-	ig = set()
+    if "./experiments" in path or "./photos" in path or "__pycachce__" in path:
+        return names
+    ig = set()
 
-	if not args.png:
-		# Ignore png's
-		ig.update(n for n in names if n[-4:] == '.png')
-	else:
-		# Note which png's were copied so we can remove them later.
-		copied_pngs = copied_pngs + list(path + '/' + n for n in names if n[-4:] == '.png')
+    if not args.png:
+        # Ignore png's
+        ig.update(n for n in names if n[-4:] == ".png")
+    else:
+        # Note which png's were copied so we can remove them later.
+        copied_pngs = copied_pngs + list(
+            path + "/" + n for n in names if n[-4:] == ".png"
+        )
 
-	ig.update(n for n in names if n[-4:] == '.mov')
-	ig.update(n for n in names if n[-2:] == '.o')
-	ig.update(n for n in names if n[-4:] == '.mod' and path == './make')
-	ig.update(n for n in names if n[-5:] == '.smod')
-	ig.update(n for n in names if n == 'star')
-	ig.update(n for n in names if n == 'stash.py')
-	return ig
+    ig.update(n for n in names if n[-4:] == ".mov")
+    ig.update(n for n in names if n[-2:] == ".o")
+    ig.update(n for n in names if n[-4:] == ".mod" and path == "./make")
+    ig.update(n for n in names if n[-5:] == ".smod")
+    ig.update(n for n in names if n == "star")
+    ig.update(n for n in names if n == "stash.py")
+    return ig
 
 
-copytree('./', experiment_folder, ignore=ignore)
+copytree("./", experiment_folder, ignore=ignore)
 
 # Stash the first N photos and the last N photos by last-modified time.
 N = args.N
-photo_dir = glob('photos/*')
+photo_dir = glob("photos/*")
 photos = list(photo for photo in photo_dir if isfile(photo))
 photo_times = list(getmtime(photo) for photo in photos)
 photos_and_times = zip(*(photos, photo_times))
 sorted_photos = sorted(photos_and_times, key=lambda x: x[1])
 sorted_photos = list(photo[0] for photo in sorted_photos)
-ending_photo = sorted_photos[-1].lstrip('./photos/')
+ending_photo = sorted_photos[-1].lstrip("./photos/")
 to_stash = list(set(sorted_photos[:N] + sorted_photos[-N:]))
 
 # Stash the starting photo, if specified
 if args.p is not None:
-	to_stash.append('photos/' + args.p)
-	to_stash = list(set(to_stash))
+    to_stash.append("photos/" + args.p)
+    to_stash = list(set(to_stash))
 
 for photo in to_stash:
-	copyfile(photo, experiment_folder + '/' + photo)
+    copyfile(photo, experiment_folder + "/" + photo)
 
 # Record experiment notes
-with open('experiments/' + experiment_name + '.md','w') as log:
-	log.write('## ' + experiment_name + '\n')
-	if args.p is not None:
-		log.write('- Starting photo: ' + args.p + '\n')
-	log.write('- Ending photo: ' + ending_photo + '\n')
-	if args.m != '':
-		log.write(args.m + '\n')
-	log.write('\n')
+with open("experiments/" + experiment_name + ".md", "w") as log:
+    log.write("## " + experiment_name + "\n")
+    if args.p is not None:
+        log.write("- Starting photo: " + args.p + "\n")
+    log.write("- Ending photo: " + ending_photo + "\n")
+    if args.m != "":
+        log.write(args.m + "\n")
+    log.write("\n")
 
 # Remove contents of LOGS
-log_files = glob('LOGS/*')
+log_files = glob("LOGS/*")
 for f in log_files:
-	if isfile(f):
-		remove(f)
+    if isfile(f):
+        remove(f)
 
 # If we stashed png's, remove those from the main directory.
 for f in copied_pngs:
-	remove(f)
+    remove(f)
 
 # Remove empty experiments directory from the new experiment
-removedirs(experiment_folder + '/experiments')
-
-print('Stashed ' + experiment_name + '.')
+removedirs(experiment_folder + "/experiments")
 
+print("Stashed " + experiment_name + ".")
diff --git a/star/defaults/FORMAT b/star/defaults/FORMAT
index 38fa95f60..02a87603f 100644
--- a/star/defaults/FORMAT
+++ b/star/defaults/FORMAT
@@ -3,7 +3,7 @@
 ! ==============================
 
    ! This document defines a format for MESA defaults files.
-   ! Because these files are compiled, documenation must be in commments.
+   ! Because these files are compiled, documentation must be in comments.
    ! After leading spaces and ! are stripped, this file should be valid
    ! reStructuredText (reST) so that it can rendered in the Sphinx docs.
    ! This file is written in the format it describes.
diff --git a/star/defaults/controls.defaults b/star/defaults/controls.defaults
index a70af6f1a..24b0915b9 100644
--- a/star/defaults/controls.defaults
+++ b/star/defaults/controls.defaults
@@ -542,7 +542,7 @@
       !   Format originally defined for the GONG solar model project.  A
       !   definition was given in 2005 for the `CoRoT/ESTA project`_ and
       !   `GONG itself <https://phys.au.dk/~jcd/solar_models/file-format.pdf>`_.
-      !   MESA's implementation largely follows this subsequent 
+      !   MESA's implementation largely follows this subsequent
       !   `2015 definition <https://phys.au.dk/~jcd/ASTEC_results/file-format.pdf>`_.
 
       ! ``'OSC'``
@@ -673,7 +673,7 @@
       ! format_for_OSC_data
       ! ~~~~~~~~~~~~~~~~~~~
 
-      ! float format for ``'OSC'`` data format 
+      ! float format for ``'OSC'`` data format
 
       ! ::
 
@@ -1338,7 +1338,7 @@
       ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
       !     envelope_fraction_left = (star_mass - he_core_mass)/(initial_mass - he_core_mass)
-      
+
       ! Stop when ``envelope_fraction_left`` < this limit.
 
       ! ::
@@ -1350,7 +1350,7 @@
       ! ~~~~~~~~~~~~~~~~
 
       !     xmstar = mstar - M_center
-      
+
       ! stop when xmstar in grams is < this.  <= 0 means no limit.
 
       ! ::
@@ -1362,7 +1362,7 @@
       ! ~~~~~~~~~~~~~~~~
 
       !     xmstar = mstar - M_center
-      
+
       ! stop when xmstar in grams is > this.  <= 0 means no limit.
 
       ! ::
@@ -1802,7 +1802,7 @@
       ! fe_core_infall_mass
       ! ~~~~~~~~~~~~~~~~~~~
 
-      ! Amount of mass to check if collapsing, the smaller this is the closer the velocity minima will be to ``fe_core_infall`` but there will be a greater chance of a 
+      ! Amount of mass to check if collapsing, the smaller this is the closer the velocity minima will be to ``fe_core_infall`` but there will be a greater chance of a
       ! transistent velocity spike causing the model to prematurely exit.  In solar masses
 
 
@@ -1821,7 +1821,7 @@
       ! non_fe_core_infall_mass
       ! ~~~~~~~~~~~~~~~~~~~~~~~
 
-      ! Amount of mass to check if collapsing, the smaller this is the closer the velocity minima will be to ``non_fe_core_infall`` but there will be a greater chance of a 
+      ! Amount of mass to check if collapsing, the smaller this is the closer the velocity minima will be to ``non_fe_core_infall`` but there will be a greater chance of a
       ! transistent velocity spike causing the model to prematurely exit. In solar masses
 
 
@@ -1916,8 +1916,8 @@
       ! ::
 
     stop_near_zams = .false.
-    
-    
+
+
       ! stop_at_phase_PreMS
       ! ~~~~~~~~~~~~~~~~~~~
       ! stop_at_phase_ZAMS
@@ -1945,10 +1945,14 @@
       ! stop_at_phase_WDCS
       ! ~~~~~~~~~~~~~~~~~~
 
-      ! if true, when phase of evolution reaches this point.
+      ! if true, terminate model when phase of evolution reaches this point.
+      ! Definitions for stop_at_phase_* can be found in
+      ! $MESA_DIR/star/private/star_utils.f90 inside the
+      ! subroutine ``set_phase_of_evolution``
+      ! ::
 
       ! ::
-    
+
     stop_at_phase_PreMS = .false.
     stop_at_phase_ZAMS = .false.
     stop_at_phase_IAMS = .false.
@@ -1962,7 +1966,7 @@
     stop_at_phase_O_Burn = .false.
     stop_at_phase_Si_Burn = .false.
     stop_at_phase_WDCS = .false.
-    
+
 
       ! Lnuc_div_L_upper_limit
       ! ~~~~~~~~~~~~~~~~~~~~~~
@@ -2252,7 +2256,7 @@
 
       ! If false, then stick to the usual definition -- P/(g*rho).
       ! If true, use min of the usual and sound speed * hydro time scale, sqrt(P/G)/rho.
-      ! Note that the 'TDC' ``MLT_option`` does not respect the ``alt_scale_height`` option, and continues to use ``h = P / rho g``   
+      ! Note that the 'TDC' ``MLT_option`` does not respect the ``alt_scale_height`` option, and continues to use ``h = P / rho g``
       ! even if that flag is set.
 
       ! ::
@@ -2301,6 +2305,15 @@
       ! Note that TDC does not respect the ``alt_scale_height`` option, and continues to use ``h = P / rho g``
       ! even if that flag is set.
 
+      ! We caution that combining different mixing models in a stellar evolution
+      ! calculation might lead to physically inconsistent solutions,
+      ! because the different models have been developed separately,
+      ! and their underlying assumptions might not be compatible with each other.
+      ! Examples include combining the newly implemented time-dependent local limit
+      ! convection model ``TDC`` with an overshooting model, or combining ``TDC``
+      ! with other models for chemical composition gradients
+      ! (predictive mixing or convective premixing), rotation, etc. (MESA VI)
+      
       ! ::
 
     MLT_option = 'TDC'
@@ -2368,7 +2381,6 @@
       ! ::
 
     mlt_make_surface_no_mixing = .false.
-    
 
 
       ! T_mix_limit
@@ -3108,7 +3120,7 @@
     RSP_nz_outer = 40
     RSP_T_anchor = 11d3
     RSP_T_inner = 2d6
-    RSP_testing = .false. 
+    RSP_testing = .false.
 
       ! ::
 
@@ -3355,7 +3367,7 @@
       ! Mixing coefficients are multiplied by this factor.
       ! The ``mix_factor`` is applied in subroutine ``get_convection_sigmas`` in ``star/private/mix_info.f90`` --
       ! the lagrangian diffusion coefficient sigma(k) at cell boundary k is set to
-      ! ``mix_factor*D*(4*pi*r(k)^2*rho_face(k))^2``. 
+      ! ``mix_factor*D*(4*pi*r(k)^2*rho_face(k))^2``.
       ! Note that the value of D is not changed -- it is just used as a term in calculating sigma.
 
       ! ::
@@ -3991,7 +4003,7 @@
       ! use_other_j_for_adjust_J_lost option to specify a specific angular momentum
       ! of removed material different from j_rot_surf
 
-      ! In order to prevent the algorithm from digging to deep to adjust J, 
+      ! In order to prevent the algorithm from digging to deep to adjust J,
       ! there is a timestep limit adjust_J_q_limit
 
       ! ::
@@ -4056,7 +4068,7 @@
 
       ! When w_div_wc_flag is true, rather than a hard limit on w_div_wcrit
       ! we use w_div_wcrit_max2<w_div_wcrit_max to provide a smooth transition.
-      ! In the limit of j_rot->infinity, the resulting w_div_wc will match 
+      ! In the limit of j_rot->infinity, the resulting w_div_wc will match
       ! w_div_wcrit_max, while nothing is done when w_div_wcrit_max<w_div_wcrit_max2
 
       ! ::
@@ -4166,13 +4178,13 @@
       ! setting up outer boundary conditions. We caution that the use of ``'fixed_'`` atmosphere
       ! options might conflict with mlt_option = ``TDC``.
 
-      ! + ``'T_tau'``: 
+      ! + ``'T_tau'``:
       !   set Tsurf and Psurf by solving for the atmosphere structure given a T(tau) relation.
       !   The choice of relation is set by the ``atm_T_tau_relation`` control. See also
       !   the ``atm_T_tau_opacity``, ``atm_T_tau_errtol``, ``atm_T_tau_max_tries`` and
       !   ``atm_T_tau_max_steps`` controls.
       !
-      ! + ``'table'``: 
+      ! + ``'table'``:
       !   set Tsurf and Psurf by interpolating in pre-calculated tables based on model
       !   atmospheres. The choice of table is set by the ``atm_table`` control.
       !   Requires tau_factor = 1, as surface of the model must always attach at the base
@@ -4183,33 +4195,33 @@
       !   Teff and log_g. This is consistent with the assumptions used for table construction:
       !   geometrically thin atmospheres with constant flux.
       !
-      ! + ``'irradiated_grey'``: 
+      ! + ``'irradiated_grey'``:
       !   set Tsurf by solving for the atmosphere structure given the irradiated-grey
       !   T(tau) relation of Guillot, T, and Havel, M., A&A 527, A20 (2011).
       !   See also the ``atm_irradiated_opacity``, ``atm_irradiated_errtol``, ``atm_irradiated_T_eq``,
       !   ``atm_irradiated_T_eq``, ``atm_irradiated_kap_v``, ``atm_irradiated_kap_v_div_kap_th``,
       !   ``atm_irradiated_P_surf`` and ``atm_irradiated_max_tries`` controls.
       !
-      ! + ``'fixed_Teff'`` : 
-      ! set Tsurf from Eddington T(tau) relation
-      !     for current surface tau and Teff = ``atm_fixed_Teff``.
-      ! set Psurf = Radiation_Pressure(Tsurf)
+      ! + ``'fixed_Teff'`` :
+      !    set Tsurf from Eddington T(tau) relation
+      !    for current surface tau and Teff = ``atm_fixed_Teff``.
+      !    set Psurf = Radiation_Pressure(Tsurf)
       !
       ! + ``'fixed_Tsurf'`` :
-      ! get value of Tsurf from control parameter ``atm_fixed_Tsurf``.
-      ! set Teff from Eddington T(tau) relation for given Tsurf and tau=2/3
-      ! set Psurf = Radiation_Pressure(Tsurf)
-      !      
+      !    get value of Tsurf from control parameter ``atm_fixed_Tsurf``.
+      !    set Teff from Eddington T(tau) relation for given Tsurf and tau=2/3
+      !    set Psurf = Radiation_Pressure(Tsurf)
+      !
       ! + ``'fixed_Psurf'`` :
-      ! get value of Psurf from control parameter ``atm_fixed_Psurf``.
-      ! set Tsurf from L and R using ``L = 4*pi*R^2*boltz_sigma*T^4``.
-      ! set Teff using Eddington T(tau) relation for tau=2/3 and T=Tsurf.
+      !    get value of Psurf from control parameter ``atm_fixed_Psurf``.
+      !    set Tsurf from L and R using ``L = 4*pi*R^2*boltz_sigma*T^4``.
+      !    set Teff using Eddington T(tau) relation for tau=2/3 and T=Tsurf.
       !
       ! + ``'fixed_Psurf_and_Tsurf'`` :
-      ! get value of Psurf from control parameter ``atm_fixed_Psurf``.
-      ! get value of Tsurf from control parameter ``atm_fixed_Tsurf``.
-      ! see the ``conductive_flame`` test_suite for an example of 
-      ! this boundary condition implemented via the ``other_surface_PT`` hook.
+      !    get value of Psurf from control parameter ``atm_fixed_Psurf``.
+      !    get value of Tsurf from control parameter ``atm_fixed_Tsurf``.
+      !    see the ``conductive_flame`` test_suite for an example of
+      !    this boundary condition implemented via the ``other_surface_PT`` hook.
 
       ! ::
 
@@ -4319,11 +4331,11 @@
       ! + ``'fixed'``:
       !   use a uniform opacity, fixed to the opacity of the outermost cell of the
       !   interior model
-      
+
       ! + ``'iterated'``:
       !   use a uniform opacity, iterated to be consistent with the final Tsurf and
       !   Psurf at the base of the atmosphere.
-      
+
       ! + ``'varying'``:
       !   use a varying opacity consistent with the local T and P throughout the
       !   atmosphere. Involves numerical integration of the hydrostatic equilibrium
@@ -4383,7 +4395,7 @@
       !   model atmospheres (Allard et al. 2001) for Teff < 3000 K.
       !   where no published results are available, the table has been
       !   filled in using integration of the Eddington T(tau) relation
-      
+
       ! + ``'photosphere'``:
       !   use model atmosphere tables for photosphere; range of Z's,
       !   as described in MESA Paper I (Paxton et al. 2011), Sec. 5.3.
@@ -4395,7 +4407,7 @@
       !   and the models by Castelli & Kurucz (2003).  where
       !   neither is available, an entry is generated by
       !   integrating the Eddington T(tau) relation
-      
+
       ! + ``'WD_tau_25'``:
       !   hydrogen atmosphere tables for cool white dwarfs
       !   giving Pgas and T at log10(tau) = 1.4 (tau = 25.11886)
@@ -4404,7 +4416,7 @@
       !   R.D. Rohrmann, L.G. Althaus, and S.O. Kepler,
       !   Lyman α wing absorption in cool white dwarf stars,
       !   Mon. Not. R. Astron. Soc. 411, 781–791 (2011)
-      
+
       ! + ``'DB_WD_tau_25'``:
       !   helium dominated (log(H/He)=-5.0) atmosphere tables for DB
       !   white dwarfs, provided by Odette Toloza and Detlev Koester.
@@ -4627,11 +4639,50 @@
 
       ! If ``.true.``, modify the radiative gradient so that the
       ! temperature profile of the optically thin layers follow the
-      ! T(τ) relation chosen by ``atm_T_tau_relation``.  
+      ! T(τ) relation chosen by ``atm_T_tau_relation``.
       ! ::
 
     use_T_tau_gradr_factor = .false.
 
+
+! starspots
+! =========
+
+
+      ! do_starspots
+      ! ~~~~~~~~~~~~
+
+      ! If ``.true.``, switch on impedence of the surface flux due to magnetic pressure from starspots, 
+      ! parameterized in the style of an atmospheric boundary modification. First described by 
+      ! `Somers et al. (2015; ApJ) <https://ui.adsabs.harvard.edu/abs/2015ApJ...807..174S>`__.
+      ! Detailed discussion of this functionality can be found in |MESA VI|.
+
+      ! ::
+
+    do_starspots = .false.
+
+
+      ! fspot
+      ! ~~~~~
+
+      ! Filling Factor of starspots. Valid values between 0.0 and 1.0 (no spots to 100% coverage)
+      ! ::
+
+    fspot = 0d0
+
+
+      ! xspot
+      ! ~~~~~
+
+      ! Temperature contrast between the spotted and unspotted regions. 
+      ! Valid values are between 1.0 (no contribution from magnetic pressure) and 0.5 
+      ! (half of the total pressure is due to magnetic pressure)
+
+      ! ::
+
+    xspot = 1d0
+
+
 ! mass gain or loss
 ! =================
 
@@ -4647,10 +4698,9 @@
     mass_change = 0d0
 
 
-
       ! mdot_omega_power
       ! ~~~~~~~~~~~~~~~~
-      
+
       ! Enhanced mass loss due to rotation
       ! as in Heger, Langer, and Woosley, 2000, ApJ, 528:368-396.
 
@@ -7083,8 +7133,6 @@
    dq_D_mix_zero_at_H_C_crossover = -1d0
 
 
-
-
       ! diffusion_min_T_for_radaccel
       ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
       ! diffusion_max_T_for_radaccel
@@ -7295,12 +7343,12 @@
       ! ~~~~~~~~~~~~~~~~~~~~~~~
 
       ! Choice of appropriate option for the WD core mixture:
-      
+
       ! + ``'CO'`` : carbon-oxygen phase separation using the two-component
       !   phase diagram of `Blouin & Daligault (2021a) <https://ui.adsabs.harvard.edu/abs/2021PhRvE.103d3204B/abstract>`_.
       ! + ``'ONe'`` : oxygen-neon phase separation using the two-component
       !   phase diagram of `Blouin & Daligault (2021b) <https://ui.adsabs.harvard.edu/abs/2021ApJ...919...87B/abstract>`_.
-      
+
       ! ::
 
     phase_separation_option = 'CO'
@@ -7331,7 +7379,7 @@
       ! ::
 
     phase_separation_mixing_use_brunt = .true.
-    
+
 
 ! eos controls
 ! ============
@@ -7486,7 +7534,7 @@
       ! or use the faster method by allowing for a small tolerance on the mixture used for the computations of these variables (``'mombarg'``).
 
       ! ::
-      
+
       op_mono_method = 'hu'
 
       ! emesh_data_for_op_mono_path
@@ -7502,7 +7550,7 @@
       ! and then unpack it in place with ``unxz -v OP_mono_master_grid_MESA_emesh.txt.xz``
 
       ! ::
-      
+
     emesh_data_for_op_mono_path = ''      ! '' defaults to $MESA_OP_MONO_MASTER_GRID
 
 
@@ -7709,14 +7757,10 @@
     min_magnitude_brunt_B = -1d99
 
 
-
-
-
 ! structure equations
 ! ===================
 
 
-
       ! energy_eqn_option
       ! ~~~~~~~~~~~~~~~~~
       ! Available options are ``'dedt'`` or ``'eps_grav'``.
@@ -7884,9 +7928,9 @@
       ! ::
 
     velocity_q_upper_bound = 1d99
-    
+
       ! velocity_tau_lower_bound
-      ! ~~~~~~~~~~~~~~~~~~~~~~
+      ! ~~~~~~~~~~~~~~~~~~~~~~~~
 
       ! Local override for global ``v_flag``.
       ! If local tau < this bound, local ``v_flag`` is set false,
@@ -8197,9 +8241,9 @@
       ! ::
 
     use_dPrad_dm_form_of_T_gradient_eqn = .false.
-    use_gradT_actual_vs_gradT_MLT_for_T_gradient_eqn = .false.    
-    
-    
+    use_gradT_actual_vs_gradT_MLT_for_T_gradient_eqn = .false.
+
+
       ! drag_coefficient
       ! ~~~~~~~~~~~~~~~~
       ! min_q_for_drag
@@ -8212,7 +8256,7 @@
       ! burning in massive stars and AGB stars.
 
       ! Under certain circumstances we will not have drag in the surface k=1 zone
-      ! To force the drag term to be on in the outer zone you must enable one of the 
+      ! To force the drag term to be on in the outer zone you must enable one of the
       ! following surface boundary conditions:
       ! ``use_momentum_outer_BC``, ``use_zero_Pgas_outer_BC``, or ``use_fixed_Psurf_outer_BC``
 
@@ -8230,7 +8274,7 @@
     use_drag_energy = .true.
     drag_coefficient = 0d0
     min_q_for_drag = 0d0
-    
+
 
       ! for hydro comparison tests (e.g., Sedov)
 
@@ -8270,7 +8314,7 @@
 
       ! Note that these parameters are not exactly the same
       ! as used by Paul Duffell.
-      ! His calibrated D is 2, where mesa has default D = 3 (see mesaIV paper).
+      ! His calibrated D is 2, where mesa has default D = 3 (see |MESA IV|).
       ! Users should try various values since the choice is not clear cut.
 
       ! ::
@@ -8300,7 +8344,7 @@
     RTI_m_full_boost = 4d0
     RTI_m_no_boost = 5d0
 
-    
+
       ! retry_for_v_above_clight
       ! ~~~~~~~~~~~~~~~~~~~~~~~~
 
@@ -8311,7 +8355,7 @@
       ! ::
 
     retry_for_v_above_clight = .true.
-    
+
 
 ! solver controls
 ! ===============
@@ -8518,7 +8562,6 @@
     include_w_in_correction_limits = .true.
 
 
-
       ! max_X_for_conv_timescale
       ! ~~~~~~~~~~~~~~~~~~~~~~~~
       ! min_X_for_conv_timescale
@@ -8533,7 +8576,7 @@
       ! ~~~~~~~~~~~~~~~~~~~~~~~~
 
       ! ::
-    
+
     max_X_for_conv_timescale = 1d0
     min_X_for_conv_timescale = 0d0
     max_q_for_conv_timescale = 1d0
@@ -8682,7 +8725,7 @@
 
       ! do_normalize_dqs_as_part_of_set_qs
       ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-      
+
       ! normalize_dqs destroys bit-for-bit read as inverse of write for models.
       ! ok for create pre ms etc., but not for read model
       ! create_pre_ms calls normalize_dqs even if this flag is false.
@@ -8690,12 +8733,12 @@
       ! ::
 
    do_normalize_dqs_as_part_of_set_qs = .false.
-   
+
 
       ! use_DGESVX_in_bcyclic
       ! use_equilibration_in_DGESVX
       ! report_min_rcond_from_DGESXV
-      
+
       ! FOR DEBUGGING ONLY.   NOT FOR GENERAL USE.
 
       ! ::
@@ -9183,7 +9226,7 @@
       !          'Lnuc_cat'             delta_lgL_nuc_cat_limit
       !          'Lnuc_H'               delta_lgL_H_limit
       !          'Lnuc_He'              delta_lgL_He_limit
-      !          'lgL_power_phot'       delta_lgL_power_photo_limit 
+      !          'lgL_power_phot'       delta_lgL_power_photo_limit
       !          'Lnuc_z'               delta_lgL_z_limit
       !          'bad_X_sum'            (solver found bad mass sum)
       !          'dL/L'                 dL_div_L_limit
@@ -9245,12 +9288,12 @@
       ! time_delta_coeff - smaller forces smaller timesteps giving better time resolution.
       ! multiplier for all real number timestep limits and hard limits.
       ! does not apply to integer valued limits such as
-      
+
       ! + solver_iters_timestep_limit
       ! + burn_steps_limit
       ! + diffusion_steps_limit
       ! + diffusion_iters_limit
-      
+
       ! does not apply to varcontrol_target.
       ! analogous to mesh_delta_coeff for better spatial resolution.
 
@@ -10321,7 +10364,7 @@
     min_lgT_for_lgL_power_photo_limit = 9d0
     lgL_power_photo_burn_min = 10d0
     lgL_power_photo_drop_factor = 10
-    
+
 
       ! limits based on changes at photosphere
 
@@ -10418,7 +10461,7 @@
       ! ``abs_du_div_cs`` > ``min_abs_du_div_cs_for_dt_div_min_dr_div_cs_limit`` and
       ! and
       ! ``abs_u_div_cs`` > ``min_abs_u_div_cs_for_dt_div_min_dr_div_cs_limit``
-      ! 
+      !
       ! allow focus on regions near shock face.
 
       ! ::
@@ -10855,7 +10898,6 @@
     delta_lg_XSi_cntr_hard_limit = -1
 
 
-
       ! delta_XH_cntr_limit
       ! ~~~~~~~~~~~~~~~~~~~
 
@@ -11014,9 +11056,9 @@
       ! ~~~~~~~~~~~~~~~~~~
       ! delta_XSi_drop_only
       ! ~~~~~~~~~~~~~~~~~~~
-         
 
-      ! If true, then only limit drops in abundance. 
+
+      ! If true, then only limit drops in abundance.
 
       ! ::
 
@@ -11097,7 +11139,7 @@
       ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
       ! hard_limit_for_rel_error_in_energy_conservation
       ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-    
+
       ! ::
 
       !     rel_error_in_energy_conservation = abs(error_in_energy_conservation/total_energy)
@@ -11228,7 +11270,7 @@
     solver_test_partials_write_eos_call_info = .false.
     solver_epsder_struct = 1d-5
     solver_epsder_chem = 1d-5
-    
+
     energy_conservation_dump_model_number = -1
 
 
@@ -11465,7 +11507,7 @@
     use_other_set_pgstar_controls = .false.
     use_other_accreting_state = .false.
     use_other_eval_i_rot = .false.
-    
+
       ! ::
 
     use_other_export_pulse_data = .false.
diff --git a/star/defaults/pgstar.defaults b/star/defaults/pgstar.defaults
index 0aef908b5..6d58543ff 100644
--- a/star/defaults/pgstar.defaults
+++ b/star/defaults/pgstar.defaults
@@ -87,14 +87,24 @@
 
       ! file_device
       ! ~~~~~~~~~~~
+
+      ! 'png' is Portable Network Graphics format
+      ! can also use:
+      ! 'ps' (in combination with file_extension = 'ps') for PostScript
+      ! or:
+      ! 'vcps' (in combination with file_extension = 'eps') for Encapsulated PostScript
+
+      ! ::
+
+    file_device = 'png'
+
       ! file_extension
       ! ~~~~~~~~~~~~~~
 
-      ! 'png' is Portable Network Graphics format; can also use 'pdf'
+      ! Can use: 'png', 'ps', or 'eps' with the appropriate file_device
 
       ! ::
 
-    file_device = 'png'
     file_extension = 'png'
 
 
diff --git a/star/defaults/star_job.defaults b/star/defaults/star_job.defaults
index a62891241..c6850e9f4 100644
--- a/star/defaults/star_job.defaults
+++ b/star/defaults/star_job.defaults
@@ -709,13 +709,14 @@
       ! + ``GS98_zfracs = 3``
       ! + ``L03_zfracs = 4``
       ! + ``AGS05_zfracs = 5``
-      ! + ``AGSS09_zfracs = 6``
+      ! + ``AGSS09_photospheric_zfracs = 6``
       ! + ``L09_zfracs = 7``
       ! + ``A09_Prz_zfracs = 8``
-
-      ! for example, ``initial_zfracs = 3`` for ``GS98_zfracs``
-      ! or set ``initial_zfracs = 0`` to use the special list of z fractions specified in controls
-      ! (i.e., ``z_fraction_li``, ``z_fraction_be``, ``z_fraction_b``, etc.)
+      ! + ``MB22_photospheric_zfracs = 9``
+      ! + ``AAG21_photospheric_zfracs = 10``
+      !   for example, ``initial_zfracs = 3`` for ``GS98_zfracs``
+      !   or set ``initial_zfracs = 0`` to use the special list of z fractions specified in controls
+      !   (i.e., ``z_fraction_li``, ``z_fraction_be``, ``z_fraction_b``, etc.)
 
       ! ::
 
@@ -1681,8 +1682,8 @@
       ! rather than force you to stop the run near zams, change the inlist, and restart.
       ! The following will turn on rotation automatically.
       ! The working definition of "near zams" is
-      ! ``L_nuc_burn_total/L_phot >= Lnuc_div_L_upper_limit``
-      ! ``Lnuc_div_L_upper_limit`` is in the controls part of the inlist.
+      ! ``L_nuc_burn_total/L_phot >= Lnuc_div_L_zams_limit``
+      ! ``Lnuc_div_L_zams_limit`` is in the controls part of the inlist.
 
       ! The following apply when rotation is off and model satisfies the "near zams" test.
       ! Each turns on rotation and sets a step limit
@@ -1752,8 +1753,8 @@
       ! ``relax_initial_omega`` only applies at start of run, not for restarts.
       ! ``near_zams_relax``+omega applies when "near zams".
       ! The working definition of "near zams" is
-      ! ``L_nuc_burn_total/L_phot >= Lnuc_div_L_upper_limit``
-      ! ``Lnuc_div_L_upper_limit`` is in the controls part of the inlist.
+      ! ``L_nuc_burn_total/L_phot >= Lnuc_div_L_zams_limit``
+      ! ``Lnuc_div_L_zams_limit`` is in the controls part of the inlist.
 
       ! ::
 
diff --git a/star/job/gyre_in_mesa_extras_finish_step.inc b/star/job/gyre_in_mesa_extras_finish_step.inc
index f9bfc8e52..94c7f750d 100644
--- a/star/job/gyre_in_mesa_extras_finish_step.inc
+++ b/star/job/gyre_in_mesa_extras_finish_step.inc
@@ -54,7 +54,7 @@
           return
        end if
 
-       call gyre_set_model(global_data, point_data, s%gyre_data_schema)
+       call set_model(global_data, point_data, s%gyre_data_schema)
        
        if (growth_lim > 0d0) then
           write(*, 100) 'model', 'order', 'freq (Hz)', &
@@ -69,7 +69,7 @@
        ipar(1) = s% id
        ipar(2) = 0 ! num_written
 
-       call gyre_get_modes(mode_l, process_mode_, ipar, rpar)
+       call get_modes(mode_l, process_mode_, ipar, rpar)
        
        s% ixtra3_array(1) = ipar(2)
 
diff --git a/star/job/gyre_in_mesa_extras_set_velocities.inc b/star/job/gyre_in_mesa_extras_set_velocities.inc
index fa704e400..2e7301709 100644
--- a/star/job/gyre_in_mesa_extras_set_velocities.inc
+++ b/star/job/gyre_in_mesa_extras_set_velocities.inc
@@ -10,7 +10,7 @@
       subroutine gyre_in_mesa_extras_set_velocities(s,restart,ierr)
          use const_def
          use math_lib
-         use gyre_lib
+         use gyre_mesa_m
          use interp_1d_def, only: pm_work_size
          use interp_1d_lib, only: interpolate_vector_pm
          type (star_info), pointer :: s
diff --git a/star/job/run_star_support.f90 b/star/job/run_star_support.f90
index 99026293f..b5d10038a 100644
--- a/star/job/run_star_support.f90
+++ b/star/job/run_star_support.f90
@@ -184,7 +184,7 @@ logical function do_evolve_one_step(s, dbg, ierr) result(continue_evolve_loop)
          
          logical :: first_try
          integer :: id
-         integer :: result, model_number, source, nsteps, j, ci, nz
+         integer :: result, model_number
          
          include 'formats'
          
@@ -308,7 +308,6 @@ end subroutine extras_controls
          end interface
          integer :: id_from_read_star_job
          character (len=*) :: inlist_fname, restart_filename
-         character (len=512) :: temp_fname
          logical, intent(in) :: dbg
          integer, intent(in) :: binary_id
          integer, intent(out) :: id, ierr
@@ -506,9 +505,8 @@ subroutine before_step_loop(id, ierr)
          integer, intent(in) :: id
          type (star_info), pointer :: s         
          integer, intent(out) :: ierr
-         integer :: k, model_number, j
-         real(dp) :: gamma1_integral, integral_norm
-         integer :: num_DT, num_PT, num_FreeEOS
+         integer :: model_number, j
+         integer :: num_DT, num_FreeEOS
          
          1 format(a35, 99(1pe26.16))
          2 format(a35, i7, 1pe26.16)
@@ -1134,7 +1132,6 @@ end subroutine check_if_want_to_stop_warnings
       
       logical function stop_is_requested(s)
          type (star_info), pointer :: s         
-         integer :: ierr
          logical :: file_exists
          stop_is_requested = .false.
          if (mod(s% model_number,100) /= 0) return
@@ -1167,9 +1164,8 @@ subroutine show_times(id, s)
          real(dp) :: item_values(max_num_items)
          integer, target :: index_arry(max_num_items) 
          integer, pointer :: index(:) 
-         integer :: item_order(max_num_items)
          integer :: ierr, omp_num_threads, item_num, num_items, i, j
-         real(dp) :: total, misc, tmp
+         real(dp) :: total, tmp
          include 'formats'
          ierr = 0
          omp_num_threads = utils_OMP_GET_MAX_THREADS()
@@ -1257,8 +1253,7 @@ end subroutine save1
       end subroutine show_times
       
       
-      subroutine do_saves( &
-            id, ierr)
+      subroutine do_saves(id, ierr)
          integer, intent(in) :: id
          type (star_info), pointer :: s
 
@@ -1627,7 +1622,6 @@ subroutine do_star_job_controls_before(id, s, restart, ierr)
          logical, intent(in) :: restart
          integer, intent(out) :: ierr
          logical, parameter :: kap_use_cache = .true.
-         logical :: save_flag
          include 'formats'
       
          ierr = 0
@@ -1943,7 +1937,6 @@ subroutine extend_net(s, ierr)
          subroutine change_net(net_name)
             use const_def
             character (len=*), intent(in) :: net_name
-            integer :: j
             
             include 'formats'
             
@@ -1994,8 +1987,8 @@ subroutine do_star_job_controls_after(id, s, restart, pgstar_ok, ierr)
          logical, intent(in) :: restart, pgstar_ok
          integer, intent(out) :: ierr
          
-         real(dp) :: log_m, log_lifetime, max_dt, max_timestep, minq, maxq
-         integer :: i, j, k, nzlo, nzhi, chem_id, chem_id1, chem_id2
+         real(dp) :: log_m, log_lifetime, max_dt, max_timestep
+         integer :: i, j, nzlo, nzhi, chem_id, chem_id1, chem_id2
          logical :: change_v, change_u
          include 'formats'
          
@@ -2309,6 +2302,10 @@ subroutine do_star_job_controls_after(id, s, restart, pgstar_ok, ierr)
                   write(*,1) 'metals L09'
                case (A09_Prz_zfracs)
                   write(*,1) 'metals A09_Prz'
+               case (MB22_photospheric_zfracs)
+                  write(*,1) 'metals MB22_photospheric'
+               case (AAG21_photospheric_zfracs)
+                  write(*,1) 'metals AAG21_photospheric'
                case default
                   write(*,2) 'unknown value for initial_zfracs', s% job% initial_zfracs
             end select
@@ -2984,7 +2981,7 @@ subroutine do_relax_initial_entropy(ierr)
             integer :: num_pts, i, k, iounit
             ! these are needed to call eosPT_get
             real(dp) :: Rho, log10Rho, dlnRho_dlnPgas_const_T, dlnRho_dlnT_const_Pgas
-            real(dp) :: T, log10T
+            real(dp) :: log10T
             ! these are needed to call eosDT_get_T
             real(dp) :: T_guess_gas, T_guess_rad, logT_guess
             integer :: eos_calls
diff --git a/star/make/makefile_base b/star/make/makefile_base
index 9568ed966..4afdafa85 100644
--- a/star/make/makefile_base
+++ b/star/make/makefile_base
@@ -205,6 +205,7 @@ SRCS = \
    star_solver.f90 \
    struct_burn_mix.f90 \
    winds.f90 \
+   starspots.f90 \
    gravity_darkening.f90 \
    mass_utils.f90 \
    eps_mdot.f90 \
diff --git a/star/other/other_accreting_state.f90 b/star/other/other_accreting_state.f90
index 9c9f72534..82f34a372 100644
--- a/star/other/other_accreting_state.f90
+++ b/star/other/other_accreting_state.f90
@@ -22,35 +22,30 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_accreting_state
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_accreting_state = .true.
-      ! procedure pointer: s% other_accreting_state => my_routine
+module other_accreting_state
 
-      implicit none
-      
-            
-      contains
-      
-      ! Note that your routine will be called before many star variables have been set.
-      ! If you rely on these, you should call the star_set_vars_in_part1 routine from star_lib
-      ! to ensure that they are set.      
-      subroutine null_other_accreting_state(id, total_specific_energy, accretion_pressure, accretion_density, ierr)
-         use star_def
-         integer, intent(in) :: id
-         real(dp), intent(out) :: total_specific_energy, accretion_pressure, accretion_density
-         integer, intent(out) :: ierr
-         total_specific_energy = 0d0 ! erg/g
-         accretion_pressure = 0d0 ! erg/cm^3
-         accretion_density = 0d0 ! g/cm^3
-         ierr = 0
-      end subroutine null_other_accreting_state
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_accreting_state = .true.
+   ! procedure pointer: s% other_accreting_state => my_routine
 
+   implicit none
+
+contains
+
+   ! Note that your routine will be called before many star variables have been set.
+   ! If you rely on these, you should call the star_set_vars_in_part1 routine from star_lib
+   ! to ensure that they are set.
+   subroutine null_other_accreting_state(id, total_specific_energy, accretion_pressure, accretion_density, ierr)
+      use star_def
+      integer, intent(in) :: id
+      real(dp), intent(out) :: total_specific_energy, accretion_pressure, accretion_density
+      integer, intent(out) :: ierr
+      total_specific_energy = 0d0 ! erg/g
+      accretion_pressure = 0d0 ! erg/cm^3
+      accretion_density = 0d0 ! g/cm^3
+      ierr = 0
+   end subroutine null_other_accreting_state
+
+end module other_accreting_state
 
-      end module other_accreting_state
-      
-      
-      
-      
diff --git a/star/other/other_adjust_mdot.f90 b/star/other/other_adjust_mdot.f90
index 51d4ea422..4182dd5ca 100644
--- a/star/other/other_adjust_mdot.f90
+++ b/star/other/other_adjust_mdot.f90
@@ -22,29 +22,24 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_adjust_mdot
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_adjust_mdot = .true.
-      ! procedure pointer: s% other_adjust_mdot => my_routine
+module other_adjust_mdot
 
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_adjust_mdot = .true.
+   ! procedure pointer: s% other_adjust_mdot => my_routine
 
-      implicit none
-      
-      contains
+   implicit none
 
-      ! your routine will be called after winds and before mass adjustment
-      subroutine null_other_adjust_mdot(id, ierr)
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         ierr = 0
-      end subroutine null_other_adjust_mdot
+contains
 
+   ! your routine will be called after winds and before mass adjustment
+   subroutine null_other_adjust_mdot(id, ierr)
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      ierr = 0
+   end subroutine null_other_adjust_mdot
+
+end module other_adjust_mdot
 
-      end module other_adjust_mdot
-      
-      
-      
-      
diff --git a/star/other/other_adjust_mlt_gradt_fraction.f90 b/star/other/other_adjust_mlt_gradt_fraction.f90
index 23b1f6b76..2cae1dbb5 100644
--- a/star/other/other_adjust_mlt_gradt_fraction.f90
+++ b/star/other/other_adjust_mlt_gradt_fraction.f90
@@ -22,35 +22,25 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_adjust_mlt_gradT_fraction
 
-      ! consult star/other/README for general usage instructions
-      ! Note: there is no flag use_other_mlt_gradT_fraction
-      ! procedure pointer: s% other_adjust_mlt_gradT_fraction => my_routine
+module other_adjust_mlt_gradT_fraction
 
-      implicit none
-      
-      
-      contains
-      
-      
-      
-      subroutine default_other_adjust_mlt_gradT_fraction(id, ierr)
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-      end subroutine default_other_adjust_mlt_gradT_fraction
+   ! consult star/other/README for general usage instructions
+   ! Note: there is no flag use_other_mlt_gradT_fraction
+   ! procedure pointer: s% other_adjust_mlt_gradT_fraction => my_routine
 
+   implicit none
 
+contains
 
-      end module other_adjust_mlt_gradT_fraction
-      
-      
-      
-      
+   subroutine default_other_adjust_mlt_gradT_fraction(id, ierr)
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      type(star_info), pointer :: s
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+   end subroutine default_other_adjust_mlt_gradT_fraction
+
+end module other_adjust_mlt_gradT_fraction
diff --git a/star/other/other_after_set_mixing_info.f90 b/star/other/other_after_set_mixing_info.f90
index 99d0af333..8a1ae41d1 100644
--- a/star/other/other_after_set_mixing_info.f90
+++ b/star/other/other_after_set_mixing_info.f90
@@ -22,26 +22,20 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_after_set_mixing_info
 
-      implicit none
-      
-            
-      contains
-      
-   
-      subroutine default_other_after_set_mixing_info(id, ierr)
-         use const_def, only: dp
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         ierr = 0
-      end subroutine default_other_after_set_mixing_info
+module other_after_set_mixing_info
 
+   implicit none
+
+contains
+
+   subroutine default_other_after_set_mixing_info(id, ierr)
+      use const_def, only: dp
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      ierr = 0
+   end subroutine default_other_after_set_mixing_info
+
+end module other_after_set_mixing_info
 
-      end module other_after_set_mixing_info
-      
-      
-      
-      
diff --git a/star/other/other_after_solver_setmatrix.f90 b/star/other/other_after_solver_setmatrix.f90
index 1554f6002..e466416a1 100644
--- a/star/other/other_after_solver_setmatrix.f90
+++ b/star/other/other_after_solver_setmatrix.f90
@@ -22,23 +22,18 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_after_solver_setmatrix
 
-      implicit none
-      
-            
-      contains
-         
-      subroutine default_other_after_solver_setmatrix(id, ierr)
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         ierr = 0
-      end subroutine default_other_after_solver_setmatrix
+module other_after_solver_setmatrix
 
+   implicit none
+
+contains
+
+   subroutine default_other_after_solver_setmatrix(id, ierr)
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      ierr = 0
+   end subroutine default_other_after_solver_setmatrix
+
+end module other_after_solver_setmatrix
 
-      end module other_after_solver_setmatrix
-      
-      
-      
-      
diff --git a/star/other/other_after_struct_burn_mix.f90 b/star/other/other_after_struct_burn_mix.f90
index cc6dbbbb9..9a3139768 100644
--- a/star/other/other_after_struct_burn_mix.f90
+++ b/star/other/other_after_struct_burn_mix.f90
@@ -22,33 +22,27 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_after_struct_burn_mix
-
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_after_struct_burn_mix = .true.
-      ! procedure pointer: s% other_after_struct_burn_mix => my_routine
-
-
-      implicit none
-      
-            
-      contains
-      
-      ! your routine will be called after the standard struct_burn_mix routine
-   
-      subroutine null_other_after_struct_burn_mix(id, dt, res)
-         use const_def, only: dp
-         use star_def
-         integer, intent(in) :: id
-         real(dp), intent(in) :: dt
-         integer, intent(out) :: res ! keep_going, redo, retry, terminate
-         res = keep_going
-      end subroutine null_other_after_struct_burn_mix
-
-
-      end module other_after_struct_burn_mix
-      
-      
-      
-      
+
+module other_after_struct_burn_mix
+
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_after_struct_burn_mix = .true.
+   ! procedure pointer: s% other_after_struct_burn_mix => my_routine
+
+   implicit none
+
+contains
+
+   ! your routine will be called after the standard struct_burn_mix routine
+
+   subroutine null_other_after_struct_burn_mix(id, dt, res)
+      use const_def, only: dp
+      use star_def
+      integer, intent(in) :: id
+      real(dp), intent(in) :: dt
+      integer, intent(out) :: res ! keep_going, redo, retry, terminate
+      res = keep_going
+   end subroutine null_other_after_struct_burn_mix
+
+end module other_after_struct_burn_mix
+
diff --git a/star/other/other_alpha_mlt.f90 b/star/other/other_alpha_mlt.f90
index 946418350..49471d037 100644
--- a/star/other/other_alpha_mlt.f90
+++ b/star/other/other_alpha_mlt.f90
@@ -22,34 +22,26 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_alpha_mlt
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_alpha_mlt = .true.
-      ! procedure pointer: s% other_alpha_mlt => my_routine
+module other_alpha_mlt
 
-      implicit none
-      
-      
-      contains
-      
-      
-      subroutine default_other_alpha_mlt(id, ierr)
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         s% alpha_mlt(:) = s% mixing_length_alpha
-      end subroutine default_other_alpha_mlt
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_alpha_mlt = .true.
+   ! procedure pointer: s% other_alpha_mlt => my_routine
 
+   implicit none
 
-      end module other_alpha_mlt
-      
-      
-      
-      
+contains
+
+   subroutine default_other_alpha_mlt(id, ierr)
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      type(star_info), pointer :: s
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+      s%alpha_mlt(:) = s%mixing_length_alpha
+   end subroutine default_other_alpha_mlt
+
+end module other_alpha_mlt
diff --git a/star/other/other_am_mixing.f90 b/star/other/other_am_mixing.f90
index 146c4e6f0..4c6303676 100644
--- a/star/other/other_am_mixing.f90
+++ b/star/other/other_am_mixing.f90
@@ -22,31 +22,27 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_am_mixing
-
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_am_mixing = .true.
-      ! procedure pointer: s% other_am_mixing => my_routine
-
-      implicit none
-      
-      contains
-
-      ! for extra angular momentum mixing
-      ! you can revise vectors s% am_nu_omega(:) and s% am_nu_j(:)
-      
-      subroutine null_other_am_mixing(id, ierr)
-         use star_def
-         use const_def   
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         ierr = 0
-      end subroutine null_other_am_mixing
-      
-      
-      end module other_am_mixing
-      
-      
-      
-      
+
+module other_am_mixing
+
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_am_mixing = .true.
+   ! procedure pointer: s% other_am_mixing => my_routine
+
+   implicit none
+
+contains
+
+   ! for extra angular momentum mixing
+   ! you can revise vectors s% am_nu_omega(:) and s% am_nu_j(:)
+
+   subroutine null_other_am_mixing(id, ierr)
+      use star_def
+      use const_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      ierr = 0
+   end subroutine null_other_am_mixing
+
+end module other_am_mixing
+
diff --git a/star/other/other_astero_freq_corr.f90 b/star/other/other_astero_freq_corr.f90
index 1c1e8b6f6..f336572bb 100644
--- a/star/other/other_astero_freq_corr.f90
+++ b/star/other/other_astero_freq_corr.f90
@@ -22,35 +22,28 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_astero_freq_corr
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_astero_freq_corr = .true.
-      ! procedure pointer: s% other_astero_freq_corr => my_routine
+module other_astero_freq_corr
 
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine default_other_astero_freq_corr(id, ierr)
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         ! see star/astero/src/astero_support.f, subroutine get_freq_corr.
-         ! note that your routine can use both astero_data and astero_support.
-      end subroutine default_other_astero_freq_corr
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_astero_freq_corr = .true.
+   ! procedure pointer: s% other_astero_freq_corr => my_routine
 
+   implicit none
+
+contains
+
+   subroutine default_other_astero_freq_corr(id, ierr)
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      type(star_info), pointer :: s
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+      ! see star/astero/src/astero_support.f, subroutine get_freq_corr.
+      ! note that your routine can use both astero_data and astero_support.
+   end subroutine default_other_astero_freq_corr
+
+end module other_astero_freq_corr
 
-      end module other_astero_freq_corr
-      
-      
-      
-      
diff --git a/star/other/other_before_struct_burn_mix.f90 b/star/other/other_before_struct_burn_mix.f90
index 91f76bf50..f3d62b721 100644
--- a/star/other/other_before_struct_burn_mix.f90
+++ b/star/other/other_before_struct_burn_mix.f90
@@ -22,33 +22,27 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_before_struct_burn_mix
-
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_before_struct_burn_mix = .true.
-      ! procedure pointer: s% other_before_struct_burn_mix => my_routine
-
-
-      implicit none
-      
-            
-      contains
-      
-      ! your routine will be called before the standard struct_burn_mix routine
-   
-      subroutine null_other_before_struct_burn_mix(id, dt, res)
-         use const_def, only: dp
-         use star_def
-         integer, intent(in) :: id
-         real(dp), intent(in) :: dt
-         integer, intent(out) :: res ! keep_going, redo, retry, terminate
-         res = keep_going
-      end subroutine null_other_before_struct_burn_mix
-
-
-      end module other_before_struct_burn_mix
-      
-      
-      
-      
+
+module other_before_struct_burn_mix
+
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_before_struct_burn_mix = .true.
+   ! procedure pointer: s% other_before_struct_burn_mix => my_routine
+
+   implicit none
+
+contains
+
+   ! your routine will be called before the standard struct_burn_mix routine
+
+   subroutine null_other_before_struct_burn_mix(id, dt, res)
+      use const_def, only: dp
+      use star_def
+      integer, intent(in) :: id
+      real(dp), intent(in) :: dt
+      integer, intent(out) :: res ! keep_going, redo, retry, terminate
+      res = keep_going
+   end subroutine null_other_before_struct_burn_mix
+
+end module other_before_struct_burn_mix
+
diff --git a/star/other/other_brunt.f90 b/star/other/other_brunt.f90
index a8c1b2707..0b2f6bbbb 100644
--- a/star/other/other_brunt.f90
+++ b/star/other/other_brunt.f90
@@ -22,34 +22,27 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_brunt
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_brunt = .true.
-      ! procedure pointer: s% other_brunt => my_routine
+module other_brunt
 
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine default_other_brunt(id, ierr)
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         s% brunt_N2(1:s% nz) = 0
-      end subroutine default_other_brunt
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_brunt = .true.
+   ! procedure pointer: s% other_brunt => my_routine
 
+   implicit none
+
+contains
+
+   subroutine default_other_brunt(id, ierr)
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      type(star_info), pointer :: s
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+      s%brunt_N2(1:s%nz) = 0
+   end subroutine default_other_brunt
+
+end module other_brunt
 
-      end module other_brunt
-      
-      
-      
-      
diff --git a/star/other/other_brunt_smoothing.f90 b/star/other/other_brunt_smoothing.f90
index 04ba7e7fc..8f40107fc 100644
--- a/star/other/other_brunt_smoothing.f90
+++ b/star/other/other_brunt_smoothing.f90
@@ -22,31 +22,25 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_brunt_smoothing
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_brunt_smoothing = .true.
-      ! procedure pointer: s% other_brunt_smoothing => my_routine
+module other_brunt_smoothing
 
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine null_other_brunt_smoothing(id, ierr)
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k
-         ierr = 0
-      end subroutine null_other_brunt_smoothing
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_brunt_smoothing = .true.
+   ! procedure pointer: s% other_brunt_smoothing => my_routine
 
+   implicit none
+
+contains
+
+   subroutine null_other_brunt_smoothing(id, ierr)
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      !type(star_info), pointer :: s
+      !integer :: k
+      ierr = 0
+   end subroutine null_other_brunt_smoothing
+
+end module other_brunt_smoothing
 
-      end module other_brunt_smoothing
-      
-      
-      
-      
diff --git a/star/other/other_build_initial_model.f90 b/star/other/other_build_initial_model.f90
index cc37be68d..e20302425 100644
--- a/star/other/other_build_initial_model.f90
+++ b/star/other/other_build_initial_model.f90
@@ -22,33 +22,26 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_build_initial_model
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_build_initial_model = .true.
-      ! procedure pointer: s% other_build_initial_model => my_routine
+module other_build_initial_model
 
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine default_other_build_initial_model(id, ierr)
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-      end subroutine default_other_build_initial_model
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_build_initial_model = .true.
+   ! procedure pointer: s% other_build_initial_model => my_routine
 
+   implicit none
+
+contains
+
+   subroutine default_other_build_initial_model(id, ierr)
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      type(star_info), pointer :: s
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+   end subroutine default_other_build_initial_model
+
+end module other_build_initial_model
 
-      end module other_build_initial_model
-      
-      
-      
-      
diff --git a/star/other/other_cgrav.f90 b/star/other/other_cgrav.f90
index eac292083..8cb128d10 100644
--- a/star/other/other_cgrav.f90
+++ b/star/other/other_cgrav.f90
@@ -22,37 +22,30 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_cgrav
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_cgrav = .true.
-      ! procedure pointer: s% other_cgrav => my_routine
+module other_cgrav
 
-      ! note that other_cgrav only changes G in the stellar structure
-      ! the binary module is unaffected by changes in cgrav
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_cgrav = .true.
+   ! procedure pointer: s% other_cgrav => my_routine
 
-      implicit none
+   ! note that other_cgrav only changes G in the stellar structure
+   ! the binary module is unaffected by changes in cgrav
 
-      
-      contains
-      
-      
-      subroutine default_other_cgrav(id, ierr)
-         use star_def
-         use const_def, only: standard_cgrav
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         s% cgrav(:) = standard_cgrav
-      end subroutine default_other_cgrav
+   implicit none
 
-      end module other_cgrav
-      
-      
-      
-      
+contains
+
+   subroutine default_other_cgrav(id, ierr)
+      use star_def
+      use const_def, only: standard_cgrav
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      type(star_info), pointer :: s
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+      s%cgrav(:) = standard_cgrav
+   end subroutine default_other_cgrav
+
+end module other_cgrav
diff --git a/star/other/other_close_gaps.f90 b/star/other/other_close_gaps.f90
index 936ab7c63..6baabb384 100644
--- a/star/other/other_close_gaps.f90
+++ b/star/other/other_close_gaps.f90
@@ -22,31 +22,26 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_close_gaps
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_close_gaps = .true.
-      ! procedure pointer: s% other_close_gaps => my_routine
-      ! This also requires the control remove_mixing_glitches = .true. 
+module other_close_gaps
 
-      implicit none
-      
-      contains
-      
-      
-      subroutine null_other_close_gaps(id, mix_type, min_gap, ierr)
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(in) :: mix_type
-         real(dp), intent(in) :: min_gap
-         integer, intent(out) :: ierr
-         ierr = 0
-      end subroutine null_other_close_gaps
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_close_gaps = .true.
+   ! procedure pointer: s% other_close_gaps => my_routine
+   ! This also requires the control remove_mixing_glitches = .true.
 
+   implicit none
+
+contains
+
+   subroutine null_other_close_gaps(id, mix_type, min_gap, ierr)
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(in) :: mix_type
+      real(dp), intent(in) :: min_gap
+      integer, intent(out) :: ierr
+      ierr = 0
+   end subroutine null_other_close_gaps
+
+end module other_close_gaps
 
-      end module other_close_gaps
-      
-      
-      
-      
diff --git a/star/other/other_d_mix.f90 b/star/other/other_d_mix.f90
index 87f6be37b..7dd8ed1ae 100644
--- a/star/other/other_d_mix.f90
+++ b/star/other/other_d_mix.f90
@@ -22,28 +22,23 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_D_mix
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_D_mix = .true.
-      ! procedure pointer: s% other_D_mix => my_routine
+module other_D_mix
 
-      implicit none
-      
-      contains
-      
-      
-      subroutine null_other_D_mix(id, ierr)
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         ierr = 0
-      end subroutine null_other_D_mix
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_D_mix = .true.
+   ! procedure pointer: s% other_D_mix => my_routine
 
+   implicit none
+
+contains
+
+   subroutine null_other_D_mix(id, ierr)
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      ierr = 0
+   end subroutine null_other_D_mix
+
+end module other_D_mix
 
-      end module other_D_mix
-      
-      
-      
-      
diff --git a/star/other/other_diffusion.f90 b/star/other/other_diffusion.f90
index 1e510b972..ca57e379c 100644
--- a/star/other/other_diffusion.f90
+++ b/star/other/other_diffusion.f90
@@ -22,37 +22,31 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_diffusion
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_diffusion = .true.
-      ! procedure pointer: s% other_diffusion => my_routine
+module other_diffusion
 
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine null_other_diffusion(id, dt, ierr)
-         use star_def
-         integer, intent(in) :: id
-         real(dp), intent(in) :: dt 
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         !write(*,*) 'null_other_diffusion'
-         !write(*,*) 'associated(s% edv)', associated(s% edv)
-         s% edv(:,1:s% nz) = 0
-         !write(*,*) 'done null_other_diffusion'
-      end subroutine null_other_diffusion
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_diffusion = .true.
+   ! procedure pointer: s% other_diffusion => my_routine
 
+   implicit none
+
+contains
+
+   subroutine null_other_diffusion(id, dt, ierr)
+      use star_def
+      integer, intent(in) :: id
+      real(dp), intent(in) :: dt
+      integer, intent(out) :: ierr
+      type(star_info), pointer :: s
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+      !write(*,*) 'null_other_diffusion'
+      !write(*,*) 'associated(s% edv)', associated(s% edv)
+      s%edv(:, 1:s%nz) = 0
+      !write(*,*) 'done null_other_diffusion'
+   end subroutine null_other_diffusion
+
+end module other_diffusion
 
-      end module other_diffusion
-      
-      
-      
-      
diff --git a/star/other/other_diffusion_coefficients.f90 b/star/other/other_diffusion_coefficients.f90
index 7a3068bdd..970049a62 100644
--- a/star/other/other_diffusion_coefficients.f90
+++ b/star/other/other_diffusion_coefficients.f90
@@ -22,55 +22,45 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_diffusion_coefficients
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_diffusion_coefficients = .true.
-      ! procedure pointer: s% other_diffusion_coefficients => my_routine
+module other_diffusion_coefficients
 
-      implicit none
-      
-            
-      contains
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_diffusion_coefficients = .true.
+   ! procedure pointer: s% other_diffusion_coefficients => my_routine
 
+   implicit none
 
+contains
 
 ! Compute atomic diffusion coefficients.
-! The input parameters are 
+! The input parameters are
 ! rho          density [gcm^-3]
 ! T            temperature [K]
-! m            number of elements  
+! m            number of elements
 ! A            mass [amu], note element NN is electrons
 ! charge       charge [e]
-! na           number density [cm^-3]  
+! na           number density [cm^-3]
 ! The output are the resistance coefficients in Burgers equations K_ij, z_ij, z'_ij and z''_ij
 ! It is also possible to output diffusion coefficients D_ij and thermal diffusion coeffcient
 !     A_th used in Cowling&Chapman formalism, note Ath(m,i) is Ath_ei
-      
-      
-      
+
 ! NOTE: the number of classes of isos = m-1; m is for electrons
 ! for j from 1 to m-1, you can get the chem id for class j by
 !        cid = chem_get_iso_id(s% diffusion_class_representative(j))
 ! e.g., if the representative for class j is he4, then cid will = ihe4 (defined in chem_def)
 
-      
-      subroutine null_other_diffusion_coefficients( &
-            id, k, nc, m, rho, T, A, X, Z, C, charge, na, &
-            Ddiff, Kdiff, Zdiff, Zdiff1, Zdiff2, Ath)
-         use star_def
-         use const_def, only: dp
-         integer, intent(in) :: id, k, nc, m  
-         real(dp), intent(in) :: rho, T, charge(m), na(m)
-         real(dp), intent(in), dimension(:) :: A, X, Z, C ! (m)
-         real(dp), intent(inout), dimension(m,m) :: &
-            Ddiff, Kdiff, Zdiff, Zdiff1, Zdiff2, Ath
-      end subroutine null_other_diffusion_coefficients
+   subroutine null_other_diffusion_coefficients( &
+      id, k, nc, m, rho, T, A, X, Z, C, charge, na, &
+      Ddiff, Kdiff, Zdiff, Zdiff1, Zdiff2, Ath)
+      use star_def
+      use const_def, only: dp
+      integer, intent(in) :: id, k, nc, m
+      real(dp), intent(in) :: rho, T, charge(m), na(m)
+      real(dp), intent(in), dimension(:) :: A, X, Z, C ! (m)
+      real(dp), intent(inout), dimension(m, m) :: &
+         Ddiff, Kdiff, Zdiff, Zdiff1, Zdiff2, Ath
+   end subroutine null_other_diffusion_coefficients
 
+end module other_diffusion_coefficients
 
-      end module other_diffusion_coefficients
-      
-      
-      
-      
diff --git a/star/other/other_diffusion_factor.f90 b/star/other/other_diffusion_factor.f90
index 2a239ce2e..4158a0722 100644
--- a/star/other/other_diffusion_factor.f90
+++ b/star/other/other_diffusion_factor.f90
@@ -22,41 +22,35 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_diffusion_factor
-
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_diffusion_factor = .true.
-      ! procedure pointer: s% other_diffusion_factor => my_routine
-
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine default_other_diffusion_factor(id, ierr)
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k, num_classes
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-
-         if(s% diffusion_use_full_net) then
-            num_classes = s% species
-         else
-            num_classes = s% diffusion_num_classes
-         end if
-
-         s% extra_diffusion_factor(1:num_classes, 1:s% nz) = 1d0
-      end subroutine default_other_diffusion_factor
-
-
-      end module other_diffusion_factor
-      
-      
-      
-      
+
+module other_diffusion_factor
+
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_diffusion_factor = .true.
+   ! procedure pointer: s% other_diffusion_factor => my_routine
+
+   implicit none
+
+contains
+
+   subroutine default_other_diffusion_factor(id, ierr)
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      type(star_info), pointer :: s
+      integer :: num_classes
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+
+      if (s%diffusion_use_full_net) then
+         num_classes = s%species
+      else
+         num_classes = s%diffusion_num_classes
+      end if
+
+      s%extra_diffusion_factor(1:num_classes, 1:s%nz) = 1d0
+   end subroutine default_other_diffusion_factor
+
+end module other_diffusion_factor
+
diff --git a/star/other/other_energy.f90 b/star/other/other_energy.f90
index 445396675..3be28e45c 100644
--- a/star/other/other_energy.f90
+++ b/star/other/other_energy.f90
@@ -22,37 +22,30 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_energy
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_energy = .true.
-      ! procedure pointer: s% other_energy => my_routine
+module other_energy
 
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine default_other_energy(id, ierr)
-         use star_def
-         use auto_diff
-         use const_def, only: Rsun
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         !s% extra_heat(:) = s% extra_power_source
-         ! note that extra_heat is type(auto_diff_real_star_order1) so includes partials.
-      end subroutine default_other_energy
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_energy = .true.
+   ! procedure pointer: s% other_energy => my_routine
 
+   implicit none
+
+contains
+
+   subroutine default_other_energy(id, ierr)
+      use star_def
+      use auto_diff
+      use const_def, only: Rsun
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      type(star_info), pointer :: s
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+      !s% extra_heat(:) = s% extra_power_source
+      ! note that extra_heat is type(auto_diff_real_star_order1) so includes partials.
+   end subroutine default_other_energy
+
+end module other_energy
 
-      end module other_energy
-      
-      
-      
-      
diff --git a/star/other/other_energy_implicit.f90 b/star/other/other_energy_implicit.f90
index 60befb27b..090664c83 100644
--- a/star/other/other_energy_implicit.f90
+++ b/star/other/other_energy_implicit.f90
@@ -22,37 +22,31 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_energy_implicit
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_energy_implicit = .true.
-      ! procedure pointer: s% other_energy_implicit => my_routine
+module other_energy_implicit
 
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine default_other_energy_implicit(id, ierr)
-         use star_def
-         use const_def, only: Rsun
-         use auto_diff
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k, nz
-         ierr = 0
-         ! call star_ptr(id, s, ierr)
-         ! if (ierr /= 0) return
-         ! s% extra_heat(1:s%nz) = 1d0 ! erg/g/sec
-         ! note that extra_heat is type(auto_diff_real_star_order1) so includes partials.
-      end subroutine default_other_energy_implicit
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_energy_implicit = .true.
+   ! procedure pointer: s% other_energy_implicit => my_routine
 
+   implicit none
+
+contains
+
+   subroutine default_other_energy_implicit(id, ierr)
+      use star_def
+      use const_def, only: Rsun
+      use auto_diff
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      !type(star_info), pointer :: s
+      !integer :: k, nz
+      ierr = 0
+      ! call star_ptr(id, s, ierr)
+      ! if (ierr /= 0) return
+      ! s% extra_heat(1:s%nz) = 1d0 ! erg/g/sec
+      ! note that extra_heat is type(auto_diff_real_star_order1) so includes partials.
+   end subroutine default_other_energy_implicit
+
+end module other_energy_implicit
 
-      end module other_energy_implicit
-      
-      
-      
-      
diff --git a/star/other/other_eps_grav.f90 b/star/other/other_eps_grav.f90
index eb81058c3..ad65609ae 100644
--- a/star/other/other_eps_grav.f90
+++ b/star/other/other_eps_grav.f90
@@ -22,39 +22,33 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_eps_grav
-
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_eps_grav = .true.
-      ! procedure pointer: s% other_eps_grav => my_routine
-
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine null_other_eps_grav(id, k, dt, ierr)
-         use star_def
-         integer, intent(in) :: id, k
-         real(dp), intent(in) :: dt
-         integer, intent(out) :: ierr
-         ierr = 0
-         
-         ! NOTE: this is called after 1st doing the standard eps_grav calculation.
-         ! so if you decide you don't want to do anything special, just return.
-         
-         ! NOTE: need to set the auto_diff variable s% eps_grav_ad(k)
-         ! this is type(auto_diff_real_star_order1) so includes partials.
-         ! in addition to setting the value,
-         ! you must also set the partials, and there are lots of them.
-         
-      end subroutine null_other_eps_grav
-
-
-      end module other_eps_grav
-      
-      
-      
-      
+
+module other_eps_grav
+
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_eps_grav = .true.
+   ! procedure pointer: s% other_eps_grav => my_routine
+
+   implicit none
+
+contains
+
+   subroutine null_other_eps_grav(id, k, dt, ierr)
+      use star_def
+      integer, intent(in) :: id, k
+      real(dp), intent(in) :: dt
+      integer, intent(out) :: ierr
+      ierr = 0
+
+      ! NOTE: this is called after 1st doing the standard eps_grav calculation.
+      ! so if you decide you don't want to do anything special, just return.
+
+      ! NOTE: need to set the auto_diff variable s% eps_grav_ad(k)
+      ! this is type(auto_diff_real_star_order1) so includes partials.
+      ! in addition to setting the value,
+      ! you must also set the partials, and there are lots of them.
+
+   end subroutine null_other_eps_grav
+
+end module other_eps_grav
+
diff --git a/star/other/other_eval_fp_ft.f90 b/star/other/other_eval_fp_ft.f90
index 6c55698aa..3e82ab480 100644
--- a/star/other/other_eval_fp_ft.f90
+++ b/star/other/other_eval_fp_ft.f90
@@ -22,41 +22,36 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_eval_fp_ft
-
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_eval_fp_ft = .true.
-      ! procedure pointer: s% other_eval_fp_ft => my_routine
-
-      implicit none
-      
-            
-      contains
-
-      subroutine null_other_eval_fp_ft( &
-            id, nz, xm, r, rho, aw, ft, fp, r_polar, r_equatorial, report_ierr, ierr)
-         use num_lib
-         use star_utils
-         use auto_diff_support
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(in) :: nz
-         real(dp), intent(in) :: aw(:), r(:), rho(:), xm(:) ! (nz)
-         type(auto_diff_real_star_order1), intent(out) :: ft(:), fp(:) ! (nz)
-         real(dp), intent(inout) :: r_polar(:), r_equatorial(:) ! (nz)
-         logical, intent(in) :: report_ierr
-         integer, intent(out) :: ierr
-
-         write(*,*) 'no implementation for other_eval_fp_ft'
-         ! must set fp, ft, r_polar and r_equatorial
-         ierr = -1
-
-      end subroutine null_other_eval_fp_ft
-      
-
-      end module other_eval_fp_ft
-      
-      
-      
-      
+
+module other_eval_fp_ft
+
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_eval_fp_ft = .true.
+   ! procedure pointer: s% other_eval_fp_ft => my_routine
+
+   implicit none
+
+contains
+
+   subroutine null_other_eval_fp_ft( &
+      id, nz, xm, r, rho, aw, ft, fp, r_polar, r_equatorial, report_ierr, ierr)
+      use num_lib
+      use star_utils
+      use auto_diff_support
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(in) :: nz
+      real(dp), intent(in) :: aw(:), r(:), rho(:), xm(:) ! (nz)
+      type(auto_diff_real_star_order1), intent(out) :: ft(:), fp(:) ! (nz)
+      real(dp), intent(inout) :: r_polar(:), r_equatorial(:) ! (nz)
+      logical, intent(in) :: report_ierr
+      integer, intent(out) :: ierr
+
+      write (*, *) 'no implementation for other_eval_fp_ft'
+      ! must set fp, ft, r_polar and r_equatorial
+      ierr = -1
+
+   end subroutine null_other_eval_fp_ft
+
+end module other_eval_fp_ft
+
diff --git a/star/other/other_eval_i_rot.f90 b/star/other/other_eval_i_rot.f90
index bce503388..f8c78f656 100644
--- a/star/other/other_eval_i_rot.f90
+++ b/star/other/other_eval_i_rot.f90
@@ -22,35 +22,30 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_eval_i_rot
-
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_eval_i_rot = .true.
-      ! procedure pointer: s% other_eval_i_rot => my_routine
-         
-      implicit none
-      
-            
-      contains
-
-      subroutine null_other_eval_i_rot(id,k,r00,w_div_w_crit_roche, i_rot)
-         use star_def
-         use auto_diff_support
-         integer, intent(in) :: id, k
-         real(dp), intent(in) :: r00,w_div_w_crit_roche
-         type(auto_diff_real_star_order1), intent(out) :: i_rot
-
-         i_rot = 0
-
-         write(*,*) 'no implementation for other_eval_i_rot'
-         stop
-
-      end subroutine null_other_eval_i_rot
-      
-
-      end module other_eval_i_rot
-      
-      
-      
-      
+
+module other_eval_i_rot
+
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_eval_i_rot = .true.
+   ! procedure pointer: s% other_eval_i_rot => my_routine
+
+   implicit none
+
+contains
+
+   subroutine null_other_eval_i_rot(id, k, r00, w_div_w_crit_roche, i_rot)
+      use star_def
+      use auto_diff_support
+      integer, intent(in) :: id, k
+      real(dp), intent(in) :: r00, w_div_w_crit_roche
+      type(auto_diff_real_star_order1), intent(out) :: i_rot
+
+      i_rot = 0
+
+      write (*, *) 'no implementation for other_eval_i_rot'
+      stop
+
+   end subroutine null_other_eval_i_rot
+
+end module other_eval_i_rot
+
diff --git a/star/other/other_gradr_factor.f90 b/star/other/other_gradr_factor.f90
index f36911d38..8f20bad7e 100644
--- a/star/other/other_gradr_factor.f90
+++ b/star/other/other_gradr_factor.f90
@@ -22,36 +22,30 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_gradr_factor
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_gradr_factor = .true.
-      ! procedure pointer: s% other_gradr_factor => my_routine
-      
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine null_other_gradr_factor(id, ierr)
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         do k = 1, s% nz
-            s% gradr_factor(k) = 1d0
-         end do         
-      end subroutine null_other_gradr_factor
+module other_gradr_factor
 
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_gradr_factor = .true.
+   ! procedure pointer: s% other_gradr_factor => my_routine
+
+   implicit none
+
+contains
+
+   subroutine null_other_gradr_factor(id, ierr)
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      type(star_info), pointer :: s
+      integer :: k
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+      do k = 1, s%nz
+         s%gradr_factor(k) = 1d0
+      end do
+   end subroutine null_other_gradr_factor
+
+end module other_gradr_factor
 
-      end module other_gradr_factor
-      
-      
-      
-      
diff --git a/star/other/other_j_for_adjust_j_lost.f90 b/star/other/other_j_for_adjust_j_lost.f90
index 1d64dde2d..c573e21d2 100644
--- a/star/other/other_j_for_adjust_j_lost.f90
+++ b/star/other/other_j_for_adjust_j_lost.f90
@@ -22,35 +22,29 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_j_for_adjust_J_lost
-
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_j_for_adjust_J_lost = .true.
-      ! procedure pointer: s% other_j_for_adjust_J_lost => my_routine
-
-
-      implicit none
-      
-            
-      contains
-      
-      ! your routine will be called after winds and before mass adjustment
-   
-      subroutine null_other_j_for_adjust_J_lost(id, starting_j_rot_surf, j_for_mass_loss, ierr)
-         use star_def
-         integer, intent(in) :: id
-         real(dp), intent(in) :: starting_j_rot_surf
-         real(dp), intent(out) :: j_for_mass_loss
-         integer, intent(out) :: ierr
-         write(*,*) 'no implementation for other_j_for_adjust_J_lost'
-         ierr = -1
-         j_for_mass_loss = -1d99
-      end subroutine null_other_j_for_adjust_J_lost
-
-
-      end module other_j_for_adjust_J_lost
-      
-      
-      
-      
+
+module other_j_for_adjust_J_lost
+
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_j_for_adjust_J_lost = .true.
+   ! procedure pointer: s% other_j_for_adjust_J_lost => my_routine
+
+   implicit none
+
+contains
+
+   ! your routine will be called after winds and before mass adjustment
+
+   subroutine null_other_j_for_adjust_J_lost(id, starting_j_rot_surf, j_for_mass_loss, ierr)
+      use star_def
+      integer, intent(in) :: id
+      real(dp), intent(in) :: starting_j_rot_surf
+      real(dp), intent(out) :: j_for_mass_loss
+      integer, intent(out) :: ierr
+      write (*, *) 'no implementation for other_j_for_adjust_J_lost'
+      ierr = -1
+      j_for_mass_loss = -1d99
+   end subroutine null_other_j_for_adjust_J_lost
+
+end module other_j_for_adjust_J_lost
+
diff --git a/star/other/other_kap.f90 b/star/other/other_kap.f90
index b245547f2..62b38ed60 100644
--- a/star/other/other_kap.f90
+++ b/star/other/other_kap.f90
@@ -22,105 +22,96 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_kap
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_kap = .true.
-      ! procedure pointers: s% other_kap_get => my_routine
-      ! (if using OP MONO)  s% other_kap_get_op_mono => my_routine
+module other_kap
 
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_kap = .true.
+   ! procedure pointers: s% other_kap_get => my_routine
+   ! (if using OP MONO)  s% other_kap_get_op_mono => my_routine
 
-      implicit none
-      
-            
-      contains
+   implicit none
 
+contains
 
-      subroutine null_other_kap_get( &
-            id, k, handle, species, chem_id, net_iso, xa, &
-            log10_rho, log10_T, &
-            lnfree_e, d_lnfree_e_dlnRho, d_lnfree_e_dlnT, &
-            eta, d_eta_dlnRho, d_eta_dlnT, &
-            kap_fracs, kap, dln_kap_dlnRho, dln_kap_dlnT, dln_kap_dxa, ierr)
-         use star_def
-         use kap_def, only: num_kap_fracs
+   subroutine null_other_kap_get( &
+      id, k, handle, species, chem_id, net_iso, xa, &
+      log10_rho, log10_T, &
+      lnfree_e, d_lnfree_e_dlnRho, d_lnfree_e_dlnT, &
+      eta, d_eta_dlnRho, d_eta_dlnT, &
+      kap_fracs, kap, dln_kap_dlnRho, dln_kap_dlnT, dln_kap_dxa, ierr)
+      use star_def
+      use kap_def, only: num_kap_fracs
 
-         ! INPUT
-         integer, intent(in) :: id ! star id if available; 0 otherwise
-         integer, intent(in) :: k ! cell number or 0 if not for a particular cell         
-         integer, intent(in) :: handle ! from alloc_kap_handle
-         integer, intent(in) :: species
-         integer, pointer :: chem_id(:) ! maps species to chem id
-            ! index from 1 to species
-            ! value is between 1 and num_chem_isos         
-         integer, pointer :: net_iso(:) ! maps chem id to species number
-            ! index from 1 to num_chem_isos (defined in chem_def)
-            ! value is 0 if the iso is not in the current net
-            ! else is value between 1 and number of species in current net
-         real(dp), intent(in) :: xa(:) ! mass fractions
-         real(dp), intent(in) :: log10_rho ! density
-         real(dp), intent(in) :: log10_T ! temperature
-         real(dp), intent(in) :: lnfree_e, d_lnfree_e_dlnRho, d_lnfree_e_dlnT
-            ! free_e := total combined number per nucleon of free electrons and positrons
-         real(dp), intent(in) :: eta, d_eta_dlnRho, d_eta_dlnT
-            ! eta := electron degeneracy parameter
-         
-         ! OUTPUT
-         real(dp), intent(out) :: kap_fracs(num_kap_fracs)
-         real(dp), intent(out) :: kap ! opacity
-         real(dp), intent(out) :: dln_kap_dlnRho ! partial derivative at constant T
-         real(dp), intent(out) :: dln_kap_dlnT   ! partial derivative at constant Rho
-         real(dp), intent(out) :: dln_kap_dxa(:) ! partial derivative w.r.t. to species
-         integer, intent(out) :: ierr ! 0 means AOK.
-                  
-         kap_fracs = 0; kap = 0; dln_kap_dlnRho = 0; dln_kap_dlnT = 0; dln_kap_dxa = 0
-         
-         write(*,*) 'no implementation for other_kap_get'
-         ierr = -1
+      ! INPUT
+      integer, intent(in) :: id ! star id if available; 0 otherwise
+      integer, intent(in) :: k ! cell number or 0 if not for a particular cell
+      integer, intent(in) :: handle ! from alloc_kap_handle
+      integer, intent(in) :: species
+      integer, pointer :: chem_id(:) ! maps species to chem id
+      ! index from 1 to species
+      ! value is between 1 and num_chem_isos
+      integer, pointer :: net_iso(:) ! maps chem id to species number
+      ! index from 1 to num_chem_isos (defined in chem_def)
+      ! value is 0 if the iso is not in the current net
+      ! else is value between 1 and number of species in current net
+      real(dp), intent(in) :: xa(:) ! mass fractions
+      real(dp), intent(in) :: log10_rho ! density
+      real(dp), intent(in) :: log10_T ! temperature
+      real(dp), intent(in) :: lnfree_e, d_lnfree_e_dlnRho, d_lnfree_e_dlnT
+      ! free_e := total combined number per nucleon of free electrons and positrons
+      real(dp), intent(in) :: eta, d_eta_dlnRho, d_eta_dlnT
+      ! eta := electron degeneracy parameter
 
-      end subroutine null_other_kap_get
-      
-      
-      subroutine null_other_kap_get_op_mono( &
-            handle, zbar, log10_rho, log10_T, &
-            ! args for op_mono
-            use_op_mono_alt_get_kap, &
-            nel, izzp, fap, fac, screening, umesh, semesh, ff, rs, &
-            ! output
-            kap, dlnkap_dlnRho, dlnkap_dlnT, ierr)
-         use star_def
-         integer, intent(in) :: handle ! from alloc_kap_handle
-         real(dp), intent(in) :: zbar ! average ionic charge (for electron conduction)
-         real(dp), intent(in) :: log10_rho ! the density
-         real(dp), intent(in) :: log10_T ! the temperature
-         ! args for op_mono_get_kap
-         logical, intent(in) :: use_op_mono_alt_get_kap
-         integer, intent(in) :: nel
-         integer, intent(in) :: izzp(:) ! (nel)
-         real(dp), intent(in) :: fap(:) ! (nel) number fractions of elements
-         real(dp), intent(in) :: fac(:) ! (nel) scale factors for element opacity
-         logical, intent(in) :: screening
-         ! work arrays
-         real, pointer :: umesh(:), semesh(:), ff(:,:,:,:), rs(:,:,:)
-            ! umesh(nptot)
-            ! umesh(nptot)
-            ! ff(nptot, ipe, 4, 4)
-            ! rs(nptot, 4, 4)
-            ! ss(nptot, nrad, 4, 4)
-         ! output
-         real(dp), intent(out) :: kap ! opacity
-         real(dp), intent(out) :: dlnkap_dlnRho ! partial derivative at constant T
-         real(dp), intent(out) :: dlnkap_dlnT   ! partial derivative at constant Rho
-         integer, intent(out) :: ierr ! 0 means AOK.
-         kap = 0; dlnkap_dlnRho = 0; dlnkap_dlnT = 0
-         ierr = -1
-      end subroutine null_other_kap_get_op_mono
-      
+      ! OUTPUT
+      real(dp), intent(out) :: kap_fracs(num_kap_fracs)
+      real(dp), intent(out) :: kap ! opacity
+      real(dp), intent(out) :: dln_kap_dlnRho ! partial derivative at constant T
+      real(dp), intent(out) :: dln_kap_dlnT   ! partial derivative at constant Rho
+      real(dp), intent(out) :: dln_kap_dxa(:) ! partial derivative w.r.t. to species
+      integer, intent(out) :: ierr ! 0 means AOK.
 
+      kap_fracs = 0; kap = 0; dln_kap_dlnRho = 0; dln_kap_dlnT = 0; dln_kap_dxa = 0
+
+      write (*, *) 'no implementation for other_kap_get'
+      ierr = -1
+
+   end subroutine null_other_kap_get
+
+   subroutine null_other_kap_get_op_mono( &
+      handle, zbar, log10_rho, log10_T, &
+      ! args for op_mono
+      use_op_mono_alt_get_kap, &
+      nel, izzp, fap, fac, screening, umesh, semesh, ff, rs, &
+      ! output
+      kap, dlnkap_dlnRho, dlnkap_dlnT, ierr)
+      use star_def
+      integer, intent(in) :: handle ! from alloc_kap_handle
+      real(dp), intent(in) :: zbar ! average ionic charge (for electron conduction)
+      real(dp), intent(in) :: log10_rho ! the density
+      real(dp), intent(in) :: log10_T ! the temperature
+      ! args for op_mono_get_kap
+      logical, intent(in) :: use_op_mono_alt_get_kap
+      integer, intent(in) :: nel
+      integer, intent(in) :: izzp(:) ! (nel)
+      real(dp), intent(in) :: fap(:) ! (nel) number fractions of elements
+      real(dp), intent(in) :: fac(:) ! (nel) scale factors for element opacity
+      logical, intent(in) :: screening
+      ! work arrays
+      real, pointer :: umesh(:), semesh(:), ff(:, :, :, :), rs(:, :, :)
+      ! umesh(nptot)
+      ! umesh(nptot)
+      ! ff(nptot, ipe, 4, 4)
+      ! rs(nptot, 4, 4)
+      ! ss(nptot, nrad, 4, 4)
+      ! output
+      real(dp), intent(out) :: kap ! opacity
+      real(dp), intent(out) :: dlnkap_dlnRho ! partial derivative at constant T
+      real(dp), intent(out) :: dlnkap_dlnT   ! partial derivative at constant Rho
+      integer, intent(out) :: ierr ! 0 means AOK.
+      kap = 0; dlnkap_dlnRho = 0; dlnkap_dlnT = 0
+      ierr = -1
+   end subroutine null_other_kap_get_op_mono
+
+end module other_kap
 
-      end module other_kap
-      
-      
-      
-      
diff --git a/star/other/other_mesh_delta_coeff_factor.f90 b/star/other/other_mesh_delta_coeff_factor.f90
index 9b43f77bb..5366d152c 100644
--- a/star/other/other_mesh_delta_coeff_factor.f90
+++ b/star/other/other_mesh_delta_coeff_factor.f90
@@ -22,34 +22,26 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_mesh_delta_coeff_factor
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_mesh_delta_coeff_factor = .true.
-      ! procedure pointer: s% other_mesh_delta_coeff_factor => my_routine
+module other_mesh_delta_coeff_factor
 
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_mesh_delta_coeff_factor = .true.
+   ! procedure pointer: s% other_mesh_delta_coeff_factor => my_routine
 
-      implicit none
+   implicit none
 
-      
-      contains
-      
-      
-      subroutine default_other_mesh_delta_coeff_factor(id, ierr)
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         s% mesh_delta_coeff_factor(:) = 1d0
-      end subroutine default_other_mesh_delta_coeff_factor
+contains
 
-      end module other_mesh_delta_coeff_factor
-      
-      
-      
-      
+   subroutine default_other_mesh_delta_coeff_factor(id, ierr)
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      type(star_info), pointer :: s
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+      s%mesh_delta_coeff_factor(:) = 1d0
+   end subroutine default_other_mesh_delta_coeff_factor
+
+end module other_mesh_delta_coeff_factor
diff --git a/star/other/other_mesh_functions.f90 b/star/other/other_mesh_functions.f90
index e7d3f8458..b78a0b850 100644
--- a/star/other/other_mesh_functions.f90
+++ b/star/other/other_mesh_functions.f90
@@ -22,85 +22,75 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_mesh_functions
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_mesh_functions = .true.
-      ! procedure pointer: s% other_mesh_fcn_data => my_routine
+module other_mesh_functions
 
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_mesh_functions = .true.
+   ! procedure pointer: s% other_mesh_fcn_data => my_routine
 
-      ! remember to set use_other_mesh_functions = .true. to enable this.
-      ! edit the extras_controls routine to set the procedure pointers
-      ! e.g.,
-         ! s% how_many_other_mesh_fcns => how_many_my_other_mesh_fcns
-         ! s% other_mesh_fcn_data => my_other_mesh_fcn_data
+   ! remember to set use_other_mesh_functions = .true. to enable this.
+   ! edit the extras_controls routine to set the procedure pointers
+   ! e.g.,
+   ! s% how_many_other_mesh_fcns => how_many_my_other_mesh_fcns
+   ! s% other_mesh_fcn_data => my_other_mesh_fcn_data
 
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine null_how_many_other_mesh_fcns(id, n)
-         integer, intent(in) :: id
-         integer, intent(out) :: n
-         n = 0
-      end subroutine null_how_many_other_mesh_fcns
-      
-      
-      subroutine null_other_mesh_fcn_data( &
-            id, nfcns, names, gval_is_xa_function, vals1, ierr)
-         use const_def
-         integer, intent(in) :: id
-         integer, intent(in) :: nfcns
-         character (len=*) :: names(:)
-         logical, intent(out) :: gval_is_xa_function(:) ! (nfcns)
-         real(dp), pointer :: vals1(:) ! =(nz, nfcns)
-         integer, intent(out) :: ierr
-         gval_is_xa_function(1:nfcns) = .false.
-         ierr = 0
-      end subroutine null_other_mesh_fcn_data
+   implicit none
 
-      
-      ! here is an example that adds a mesh function for log(opacity)
-      subroutine how_many_other_mesh_fcns(id, n)
-         integer, intent(in) :: id
-         integer, intent(out) :: n
-         n = 1
-      end subroutine how_many_other_mesh_fcns
-      
-      
-      subroutine other_mesh_fcn_data( &
-            id, nfcns, names, gval_is_xa_function, vals1, ierr)
-         use star_def
-         use math_lib
-         use const_def
-         integer, intent(in) :: id
-         integer, intent(in) :: nfcns
-         character (len=*) :: names(:)
-         logical, intent(out) :: gval_is_xa_function(:) ! (nfcns)
-         real(dp), pointer :: vals1(:) ! =(nz, nfcns)
-         integer, intent(out) :: ierr
-         integer :: nz, k
-         real(dp), pointer :: vals(:,:)
-         real(dp), parameter :: weight = 20
-         type (star_info), pointer :: s
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         names(1) = 'kap_function'
-         gval_is_xa_function(1) = .false.
-         nz = s% nz
-         vals(1:nz,1:nfcns) => vals1(1:nz*nfcns)
-         do k=1,nz
-            vals(k,1) = weight*log10(s% opacity(k))
-         end do
-      end subroutine other_mesh_fcn_data
+contains
 
+   subroutine null_how_many_other_mesh_fcns(id, n)
+      integer, intent(in) :: id
+      integer, intent(out) :: n
+      n = 0
+   end subroutine null_how_many_other_mesh_fcns
+
+   subroutine null_other_mesh_fcn_data( &
+      id, nfcns, names, gval_is_xa_function, vals1, ierr)
+      use const_def
+      integer, intent(in) :: id
+      integer, intent(in) :: nfcns
+      character(len=*) :: names(:)
+      logical, intent(out) :: gval_is_xa_function(:) ! (nfcns)
+      real(dp), pointer :: vals1(:) ! =(nz, nfcns)
+      integer, intent(out) :: ierr
+      gval_is_xa_function(1:nfcns) = .false.
+      ierr = 0
+   end subroutine null_other_mesh_fcn_data
+
+   ! here is an example that adds a mesh function for log(opacity)
+   subroutine how_many_other_mesh_fcns(id, n)
+      integer, intent(in) :: id
+      integer, intent(out) :: n
+      n = 1
+   end subroutine how_many_other_mesh_fcns
+
+   subroutine other_mesh_fcn_data( &
+      id, nfcns, names, gval_is_xa_function, vals1, ierr)
+      use star_def
+      use math_lib
+      use const_def
+      integer, intent(in) :: id
+      integer, intent(in) :: nfcns
+      character(len=*) :: names(:)
+      logical, intent(out) :: gval_is_xa_function(:) ! (nfcns)
+      real(dp), pointer :: vals1(:) ! =(nz, nfcns)
+      integer, intent(out) :: ierr
+      integer :: nz, k
+      real(dp), pointer :: vals(:, :)
+      real(dp), parameter :: weight = 20
+      type(star_info), pointer :: s
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+      names(1) = 'kap_function'
+      gval_is_xa_function(1) = .false.
+      nz = s%nz
+      vals(1:nz, 1:nfcns) => vals1(1:nz*nfcns)
+      do k = 1, nz
+         vals(k, 1) = weight*log10(s%opacity(k))
+      end do
+   end subroutine other_mesh_fcn_data
+
+end module other_mesh_functions
 
-      end module other_mesh_functions
-      
-      
-      
-      
diff --git a/star/other/other_mlt_results.f90 b/star/other/other_mlt_results.f90
index b804b5754..b1a1148ff 100644
--- a/star/other/other_mlt_results.f90
+++ b/star/other/other_mlt_results.f90
@@ -22,47 +22,40 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_mlt_results
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_mlt_results = .true.
-      ! procedure pointer: s% other_mlt_results => my_routine
+module other_mlt_results
 
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_mlt_results = .true.
+   ! procedure pointer: s% other_mlt_results => my_routine
 
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine null_other_mlt_results(id, k, MLT_option, &  ! NOTE: k=0 is a valid arg
-            r, L, T, P, opacity, rho, chiRho, chiT, Cp, gradr, grada, scale_height, &
-            iso, XH1, cgrav, m, gradL_composition_term, mixing_length_alpha, &
-            alpha_semiconvection, thermohaline_coeff, &
-            mixing_type, gradT, Y_face, conv_vel, D, Gamma, ierr)
-         use const_def, only: dp
-         use auto_diff
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(in) :: k
-         character (len=*), intent(in) :: MLT_option
-         type(auto_diff_real_star_order1), intent(in) :: &
-            r, L, T, P, opacity, rho, chiRho, chiT, Cp, gradr, grada, scale_height
-         integer, intent(in) :: iso
-         real(dp), intent(in) :: &
-            XH1, cgrav, m, gradL_composition_term, &
-            mixing_length_alpha, alpha_semiconvection, thermohaline_coeff
-         integer, intent(out) :: mixing_type
-         type(auto_diff_real_star_order1), intent(out) :: &
-            gradT, Y_face, conv_vel, D, Gamma
-         integer, intent(out) :: ierr
-         ierr = 0
-      end subroutine null_other_mlt_results
+   implicit none
 
+contains
+
+   subroutine null_other_mlt_results(id, k, MLT_option, &  ! NOTE: k=0 is a valid arg
+                                     r, L, T, P, opacity, rho, chiRho, chiT, Cp, gradr, grada, scale_height, &
+                                     iso, XH1, cgrav, m, gradL_composition_term, mixing_length_alpha, &
+                                     alpha_semiconvection, thermohaline_coeff, &
+                                     mixing_type, gradT, Y_face, conv_vel, D, Gamma, ierr)
+      use const_def, only: dp
+      use auto_diff
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(in) :: k
+      character(len=*), intent(in) :: MLT_option
+      type(auto_diff_real_star_order1), intent(in) :: &
+         r, L, T, P, opacity, rho, chiRho, chiT, Cp, gradr, grada, scale_height
+      integer, intent(in) :: iso
+      real(dp), intent(in) :: &
+         XH1, cgrav, m, gradL_composition_term, &
+         mixing_length_alpha, alpha_semiconvection, thermohaline_coeff
+      integer, intent(out) :: mixing_type
+      type(auto_diff_real_star_order1), intent(out) :: &
+         gradT, Y_face, conv_vel, D, Gamma
+      integer, intent(out) :: ierr
+      ierr = 0
+   end subroutine null_other_mlt_results
+
+end module other_mlt_results
 
-      end module other_mlt_results
-      
-      
-      
-      
diff --git a/star/other/other_momentum.f90 b/star/other/other_momentum.f90
index ebfefdae7..7b165aec2 100644
--- a/star/other/other_momentum.f90
+++ b/star/other/other_momentum.f90
@@ -22,37 +22,30 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_momentum
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_momentum = .true.
-      ! procedure pointer: s% other_momentum => my_routine
+module other_momentum
 
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_momentum = .true.
+   ! procedure pointer: s% other_momentum => my_routine
 
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine default_other_momentum(id, ierr)
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         do k = 1, s% nz
-            !s% extra_grav(k) = 0d0 ! this is added to -G*m/r^2
-         end do
-      end subroutine default_other_momentum
+   implicit none
 
+contains
+
+   subroutine default_other_momentum(id, ierr)
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      type(star_info), pointer :: s
+      integer :: k
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+      do k = 1, s%nz
+         !s% extra_grav(k) = 0d0 ! this is added to -G*m/r^2
+      end do
+   end subroutine default_other_momentum
+
+end module other_momentum
 
-      end module other_momentum
-      
-      
-      
-      
diff --git a/star/other/other_momentum_implicit.f90 b/star/other/other_momentum_implicit.f90
index 27c509bce..b053feeb3 100644
--- a/star/other/other_momentum_implicit.f90
+++ b/star/other/other_momentum_implicit.f90
@@ -22,36 +22,28 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_momentum_implicit
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_momentum_implicit = .true.
-      ! procedure pointer: s% other_momentum_implicit => my_routine
+module other_momentum_implicit
 
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_momentum_implicit = .true.
+   ! procedure pointer: s% other_momentum_implicit => my_routine
 
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine default_other_momentum_implicit(id, ierr)
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         ! s% extra_grav(1:s%nz) = 0 ! this is added to -G*m/r^2
-         ! note that extra_grav is type(auto_diff_real_star_order1) so includes partials.
-      end subroutine default_other_momentum_implicit
+   implicit none
 
+contains
+
+   subroutine default_other_momentum_implicit(id, ierr)
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      type(star_info), pointer :: s
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+      ! s% extra_grav(1:s%nz) = 0 ! this is added to -G*m/r^2
+      ! note that extra_grav is type(auto_diff_real_star_order1) so includes partials.
+   end subroutine default_other_momentum_implicit
+
+end module other_momentum_implicit
 
-      end module other_momentum_implicit
-      
-      
-      
-      
diff --git a/star/other/other_net_derivs.f90 b/star/other/other_net_derivs.f90
index 5f1a4c4fa..8addede7e 100644
--- a/star/other/other_net_derivs.f90
+++ b/star/other/other_net_derivs.f90
@@ -22,13 +22,13 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-   module other_net_derivs
+
+module other_net_derivs
 
    implicit none
 
-   ! set use_other_net_derivs = .true. in your controls namelist   
-        
+   ! set use_other_net_derivs = .true. in your controls namelist
+
    ! edit the extras_controls routine to set the procedure pointer
    !  other_net_derivs => my_net_derivs
 
@@ -38,30 +38,26 @@ module other_net_derivs
 
    ! This hook only works with soft nets (so no approx networks)
 
-   contains
-
+contains
 
-   subroutine default_other_net_derivs(&
+   subroutine default_other_net_derivs( &
       n, dydt, eps_nuc_MeV, eta, ye, logtemp, temp, den, abar, zbar, &
       num_reactions, rate_factors, &
       symbolic, just_dydt, ierr)
       use net_def
-      
+
       implicit none
 
       type(Net_Info) :: n
-      real(qp), pointer, intent(inout) :: dydt(:,:)
+      real(qp), pointer, intent(inout) :: dydt(:, :)
       real(qp), intent(out) :: eps_nuc_MeV(:)
       integer, intent(in) :: num_reactions
       real(dp), intent(in) ::eta, ye, logtemp, temp, den, abar, zbar, &
-         rate_factors(:)
+                              rate_factors(:)
       logical, intent(in) :: symbolic, just_dydt
       integer, intent(out) :: ierr
 
    end subroutine default_other_net_derivs
 
-   end module other_net_derivs        
-        
-        
-        
-  
\ No newline at end of file
+end module other_net_derivs
+
diff --git a/star/other/other_net_get.f90 b/star/other/other_net_get.f90
index 11ee6925c..efc6f018e 100644
--- a/star/other/other_net_get.f90
+++ b/star/other/other_net_get.f90
@@ -22,80 +22,74 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_net_get
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_net_get = .true.
-      ! procedure pointer: s% other_net_get => my_routine
+module other_net_get
 
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine null_other_net_get(  &
-            id, k, net_handle, just_dxdt, n, num_isos, num_reactions,  &
-            x, temp, log10temp, rho, log10rho,  &
-            abar, zbar, z2bar, ye, eta, d_eta_dlnT, d_eta_dlnRho, &
-            rate_factors, weak_rate_factor, &
-            reaction_Qs, reaction_neuQs, &
-            eps_nuc, d_eps_nuc_dRho, d_eps_nuc_dT, d_eps_nuc_dx,  &
-            dxdt, d_dxdt_dRho, d_dxdt_dT, d_dxdt_dx,  &
-            screening_mode, &
-            eps_nuc_categories, eps_neu_total, &
-            ierr)      
-         use star_def
-         use net_lib, only: net_get
-         use net_def, only: Net_Info
-         integer, intent(in) :: id ! id for star         
-         integer, intent(in) :: k ! cell number or 0 if not for a particular cell         
-         integer, intent(in) :: net_handle
-         logical, intent(in) :: just_dxdt
-         type (Net_Info) :: n
-         integer, intent(in) :: num_isos
-         integer, intent(in) :: num_reactions
-         real(dp), intent(in)  :: x(:) ! (num_isos)
-         real(dp), intent(in)  :: temp, log10temp ! log10 of temp
-         real(dp), intent(in)  :: rho, log10rho ! log10 of rho
-         real(dp), intent(in)  :: abar  ! mean number of nucleons per nucleus
-         real(dp), intent(in)  :: zbar  ! mean charge per nucleus
-         real(dp), intent(in)  :: z2bar ! mean charge squared per nucleus
-         real(dp), intent(in)  :: ye    
-         real(dp), intent(in)  :: eta, d_eta_dlnT, d_eta_dlnRho ! electron degeneracy from eos.
-         real(dp), intent(in), pointer :: rate_factors(:) ! (num_reactions)
-         real(dp), intent(in) :: weak_rate_factor
-         real(dp), pointer, intent(in) :: reaction_Qs(:) ! (rates_reaction_id_max)
-         real(dp), pointer, intent(in) :: reaction_neuQs(:) ! (rates_reaction_id_max)
-         real(dp), intent(out) :: eps_nuc ! ergs/g/s from burning after including losses to reaction neutrinos
-         real(dp), intent(out) :: d_eps_nuc_dT
-         real(dp), intent(out) :: d_eps_nuc_dRho
-         real(dp), intent(inout) :: d_eps_nuc_dx(:) ! (num_isos)       
-         real(dp), intent(inout) :: dxdt(:) ! (num_isos)
-         real(dp), intent(inout) :: d_dxdt_dRho(:) ! (num_isos)
-         real(dp), intent(inout) :: d_dxdt_dT(:) ! (num_isos)
-         real(dp), intent(inout) :: d_dxdt_dx(:,:) ! (num_isos, num_isos)            
-         real(dp), intent(inout) :: eps_nuc_categories(:) ! (num_categories)
-         real(dp), intent(out) :: eps_neu_total ! ergs/g/s neutrinos from weak reactions
-         integer, intent(in) :: screening_mode
-         integer, intent(out) :: ierr ! 0 means okay
-         call net_get( &
-            net_handle, just_dxdt, n, num_isos, num_reactions,  &
-            x, temp, log10temp, rho, log10rho,  &
-            abar, zbar, z2bar, ye, eta, d_eta_dlnT, d_eta_dlnRho, &
-            rate_factors, weak_rate_factor, &
-            reaction_Qs, reaction_neuQs, &
-            eps_nuc, d_eps_nuc_dRho, d_eps_nuc_dT, d_eps_nuc_dx,  &
-            dxdt, d_dxdt_dRho, d_dxdt_dT, d_dxdt_dx,  &
-            screening_mode, &
-            eps_nuc_categories, eps_neu_total, &
-            ierr)
-      end subroutine null_other_net_get
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_net_get = .true.
+   ! procedure pointer: s% other_net_get => my_routine
 
+   implicit none
+
+contains
+
+   subroutine null_other_net_get( &
+      id, k, net_handle, just_dxdt, n, num_isos, num_reactions, &
+      x, temp, log10temp, rho, log10rho, &
+      abar, zbar, z2bar, ye, eta, d_eta_dlnT, d_eta_dlnRho, &
+      rate_factors, weak_rate_factor, &
+      reaction_Qs, reaction_neuQs, &
+      eps_nuc, d_eps_nuc_dRho, d_eps_nuc_dT, d_eps_nuc_dx, &
+      dxdt, d_dxdt_dRho, d_dxdt_dT, d_dxdt_dx, &
+      screening_mode, &
+      eps_nuc_categories, eps_neu_total, &
+      ierr)
+      use star_def
+      use net_lib, only: net_get
+      use net_def, only: Net_Info
+      integer, intent(in) :: id ! id for star
+      integer, intent(in) :: k ! cell number or 0 if not for a particular cell
+      integer, intent(in) :: net_handle
+      logical, intent(in) :: just_dxdt
+      type(Net_Info) :: n
+      integer, intent(in) :: num_isos
+      integer, intent(in) :: num_reactions
+      real(dp), intent(in)  :: x(:) ! (num_isos)
+      real(dp), intent(in)  :: temp, log10temp ! log10 of temp
+      real(dp), intent(in)  :: rho, log10rho ! log10 of rho
+      real(dp), intent(in)  :: abar  ! mean number of nucleons per nucleus
+      real(dp), intent(in)  :: zbar  ! mean charge per nucleus
+      real(dp), intent(in)  :: z2bar ! mean charge squared per nucleus
+      real(dp), intent(in)  :: ye
+      real(dp), intent(in)  :: eta, d_eta_dlnT, d_eta_dlnRho ! electron degeneracy from eos.
+      real(dp), intent(in), pointer :: rate_factors(:) ! (num_reactions)
+      real(dp), intent(in) :: weak_rate_factor
+      real(dp), pointer, intent(in) :: reaction_Qs(:) ! (rates_reaction_id_max)
+      real(dp), pointer, intent(in) :: reaction_neuQs(:) ! (rates_reaction_id_max)
+      real(dp), intent(out) :: eps_nuc ! ergs/g/s from burning after including losses to reaction neutrinos
+      real(dp), intent(out) :: d_eps_nuc_dT
+      real(dp), intent(out) :: d_eps_nuc_dRho
+      real(dp), intent(inout) :: d_eps_nuc_dx(:) ! (num_isos)
+      real(dp), intent(inout) :: dxdt(:) ! (num_isos)
+      real(dp), intent(inout) :: d_dxdt_dRho(:) ! (num_isos)
+      real(dp), intent(inout) :: d_dxdt_dT(:) ! (num_isos)
+      real(dp), intent(inout) :: d_dxdt_dx(:, :) ! (num_isos, num_isos)
+      real(dp), intent(inout) :: eps_nuc_categories(:) ! (num_categories)
+      real(dp), intent(out) :: eps_neu_total ! ergs/g/s neutrinos from weak reactions
+      integer, intent(in) :: screening_mode
+      integer, intent(out) :: ierr ! 0 means okay
+      call net_get( &
+         net_handle, just_dxdt, n, num_isos, num_reactions, &
+         x, temp, log10temp, rho, log10rho, &
+         abar, zbar, z2bar, ye, eta, d_eta_dlnT, d_eta_dlnRho, &
+         rate_factors, weak_rate_factor, &
+         reaction_Qs, reaction_neuQs, &
+         eps_nuc, d_eps_nuc_dRho, d_eps_nuc_dT, d_eps_nuc_dx, &
+         dxdt, d_dxdt_dRho, d_dxdt_dT, d_dxdt_dx, &
+         screening_mode, &
+         eps_nuc_categories, eps_neu_total, &
+         ierr)
+   end subroutine null_other_net_get
+
+end module other_net_get
 
-      end module other_net_get
-      
-      
-      
-      
diff --git a/star/other/other_neu.f90 b/star/other/other_neu.f90
index 84d59cf48..ae7f4d23b 100644
--- a/star/other/other_neu.f90
+++ b/star/other/other_neu.f90
@@ -22,46 +22,40 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_neu
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_neu = .true.
-      ! procedure pointer: s% other_neu => my_routine
+module other_neu
 
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine null_other_neu(  &
-            id, k, T, log10_T, Rho, log10_Rho, abar, zbar, log10_Tlim, flags, &
-            loss, sources, ierr)
-         use star_def
-         use neu_lib, only: neu_get
-         use neu_def
-         integer, intent(in) :: id ! id for star         
-         integer, intent(in) :: k ! cell number or 0 if not for a particular cell         
-         real(dp), intent(in) :: T ! temperature
-         real(dp), intent(in) :: log10_T ! log10 of temperature
-         real(dp), intent(in) :: Rho ! density
-         real(dp), intent(in) :: log10_Rho ! log10 of density
-         real(dp), intent(in) :: abar ! mean atomic weight
-         real(dp), intent(in) :: zbar ! mean charge
-         real(dp), intent(in) :: log10_Tlim 
-         logical, intent(inout) :: flags(num_neu_types) ! true if should include the type of loss
-         real(dp), intent(inout) :: loss(num_neu_rvs) ! total from all sources
-         real(dp), intent(inout) :: sources(num_neu_types, num_neu_rvs)
-         integer, intent(out) :: ierr
-         call neu_get(  &
-            T, log10_T, Rho, log10_Rho, abar, zbar, log10_Tlim, flags, &
-            loss, sources, ierr)
-      end subroutine null_other_neu
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_neu = .true.
+   ! procedure pointer: s% other_neu => my_routine
 
+   implicit none
+
+contains
+
+   subroutine null_other_neu( &
+      id, k, T, log10_T, Rho, log10_Rho, abar, zbar, log10_Tlim, flags, &
+      loss, sources, ierr)
+      use star_def
+      use neu_lib, only: neu_get
+      use neu_def
+      integer, intent(in) :: id ! id for star
+      integer, intent(in) :: k ! cell number or 0 if not for a particular cell
+      real(dp), intent(in) :: T ! temperature
+      real(dp), intent(in) :: log10_T ! log10 of temperature
+      real(dp), intent(in) :: Rho ! density
+      real(dp), intent(in) :: log10_Rho ! log10 of density
+      real(dp), intent(in) :: abar ! mean atomic weight
+      real(dp), intent(in) :: zbar ! mean charge
+      real(dp), intent(in) :: log10_Tlim
+      logical, intent(inout) :: flags(num_neu_types) ! true if should include the type of loss
+      real(dp), intent(inout) :: loss(num_neu_rvs) ! total from all sources
+      real(dp), intent(inout) :: sources(num_neu_types, num_neu_rvs)
+      integer, intent(out) :: ierr
+      call neu_get( &
+         T, log10_T, Rho, log10_Rho, abar, zbar, log10_Tlim, flags, &
+         loss, sources, ierr)
+   end subroutine null_other_neu
+
+end module other_neu
 
-      end module other_neu
-      
-      
-      
-      
diff --git a/star/other/other_opacity_factor.f90 b/star/other/other_opacity_factor.f90
index b8bb97e2c..d84965dc7 100644
--- a/star/other/other_opacity_factor.f90
+++ b/star/other/other_opacity_factor.f90
@@ -22,34 +22,26 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_opacity_factor
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_opacity_factor = .true.
-      ! procedure pointer: s% other_opacity_factor => my_routine
+module other_opacity_factor
 
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine default_other_opacity_factor(id, ierr)
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         s% extra_opacity_factor(1:s% nz) = s% opacity_factor
-      end subroutine default_other_opacity_factor
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_opacity_factor = .true.
+   ! procedure pointer: s% other_opacity_factor => my_routine
 
+   implicit none
 
-      end module other_opacity_factor
-      
-      
-      
-      
+contains
+
+   subroutine default_other_opacity_factor(id, ierr)
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      type(star_info), pointer :: s
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+      s%extra_opacity_factor(1:s%nz) = s%opacity_factor
+   end subroutine default_other_opacity_factor
+
+end module other_opacity_factor
diff --git a/star/other/other_overshooting_scheme.f90 b/star/other/other_overshooting_scheme.f90
index 0250fdb05..dafe6a8fc 100644
--- a/star/other/other_overshooting_scheme.f90
+++ b/star/other/other_overshooting_scheme.f90
@@ -22,37 +22,30 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_overshooting_scheme
 
-      ! consult star/other/README for general usage instructions
-      ! procedure pointer: s% other_overshooting_scheme => my_routine
-      ! note that this is enabled by setting s%overshooting_scheme = 'other'
-      ! so there is no use_other_overshooting_scheme flag.
+module other_overshooting_scheme
 
+   ! consult star/other/README for general usage instructions
+   ! procedure pointer: s% other_overshooting_scheme => my_routine
+   ! note that this is enabled by setting s%overshooting_scheme = 'other'
+   ! so there is no use_other_overshooting_scheme flag.
 
-      implicit none
-      
-      contains
-            
-      subroutine null_other_overshooting_scheme(id, i, j, k_a, k_b, D, vc, ierr)
-         use star_def
-         integer, intent(in) :: id, i, j
-         integer, intent(out) :: k_a, k_b
-         real(dp), intent(out), dimension(:) :: D, vc
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k
-         k_a = -1
-         k_b = -1
-         D = 0d0
-         vc = 0d0
+   implicit none
 
-         ierr = -1
-      end subroutine null_other_overshooting_scheme
+contains
 
-      end module other_overshooting_scheme
-      
-      
-      
-      
+   subroutine null_other_overshooting_scheme(id, i, j, k_a, k_b, D, vc, ierr)
+      use star_def
+      integer, intent(in) :: id, i, j
+      integer, intent(out) :: k_a, k_b
+      real(dp), intent(out), dimension(:) :: D, vc
+      integer, intent(out) :: ierr
+      k_a = -1
+      k_b = -1
+      D = 0d0
+      vc = 0d0
+
+      ierr = -1
+   end subroutine null_other_overshooting_scheme
+
+end module other_overshooting_scheme
diff --git a/star/other/other_pgstar_plots.f90 b/star/other/other_pgstar_plots.f90
index 5bd1ff6f9..57efdd3ca 100644
--- a/star/other/other_pgstar_plots.f90
+++ b/star/other/other_pgstar_plots.f90
@@ -22,33 +22,26 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_pgstar_plots
-
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_pgstar_plots = .true.
-      ! procedure pointer: s% other_pgstar_plots_info => my_routine
-
-
-      ! see star/other/sample_pgstar_plot.f90
-        
-      implicit none
-
-                  
-      contains
-      
-      
-      ! default does nothing
-      subroutine null_other_pgstar_plots_info(id, ierr)
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         ierr = 0
-      end subroutine null_other_pgstar_plots_info
-
-
-      end module other_pgstar_plots
-      
-      
-      
-      
+
+module other_pgstar_plots
+
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_pgstar_plots = .true.
+   ! procedure pointer: s% other_pgstar_plots_info => my_routine
+
+   ! see star/other/sample_pgstar_plot.f90
+
+   implicit none
+
+contains
+
+   ! default does nothing
+   subroutine null_other_pgstar_plots_info(id, ierr)
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      ierr = 0
+   end subroutine null_other_pgstar_plots_info
+
+end module other_pgstar_plots
+
diff --git a/star/other/other_photo_read.f90 b/star/other/other_photo_read.f90
index 790416a14..f98c519f1 100644
--- a/star/other/other_photo_read.f90
+++ b/star/other/other_photo_read.f90
@@ -22,31 +22,24 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_photo_read
 
+module other_photo_read
 
-      implicit none
+   implicit none
 
-      ! note: there is no flag "use_other_photo_read".  
-      ! the other routine is always called when a photo is read.
-      ! see private/model_in.f
-      
-      contains
-      
+   ! note: there is no flag "use_other_photo_read".
+   ! the other routine is always called when a photo is read.
+   ! see private/model_in.f
 
-      subroutine default_other_photo_read(id, iounit, ierr)
-         use star_def
-         integer, intent(in) :: id, iounit
-         integer, intent(out) :: ierr
-         ierr = 0
-         !read(iounit,iostat=ierr) stuff
-      end subroutine default_other_photo_read
+contains
 
+   subroutine default_other_photo_read(id, iounit, ierr)
+      use star_def
+      integer, intent(in) :: id, iounit
+      integer, intent(out) :: ierr
+      ierr = 0
+      !read(iounit,iostat=ierr) stuff
+   end subroutine default_other_photo_read
 
+end module other_photo_read
 
-      end module other_photo_read
-      
-      
-      
-      
diff --git a/star/other/other_photo_write.f90 b/star/other/other_photo_write.f90
index ddb1531ca..785c3c133 100644
--- a/star/other/other_photo_write.f90
+++ b/star/other/other_photo_write.f90
@@ -22,30 +22,23 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_photo_write
 
+module other_photo_write
 
-      use star_def
+   use star_def
 
-      implicit none
+   implicit none
 
-      ! note: there is no flag "use_other_photo_write".  
-      ! the other routine is always called when a photo is written.
-      ! see private/model_out.f
-      
-      contains
-      
+   ! note: there is no flag "use_other_photo_write".
+   ! the other routine is always called when a photo is written.
+   ! see private/model_out.f
 
-      subroutine default_other_photo_write(id, iounit)
-         integer, intent(in) :: id, iounit
-         !write(iounit) stuff
-      end subroutine default_other_photo_write
+contains
 
+   subroutine default_other_photo_write(id, iounit)
+      integer, intent(in) :: id, iounit
+      !write(iounit) stuff
+   end subroutine default_other_photo_write
 
+end module other_photo_write
 
-      end module other_photo_write
-      
-      
-      
-      
diff --git a/star/other/other_pressure.f90 b/star/other/other_pressure.f90
index 236fff2de..cb05d0efb 100644
--- a/star/other/other_pressure.f90
+++ b/star/other/other_pressure.f90
@@ -22,40 +22,33 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_pressure
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_pressure = .true.
-      ! procedure pointer: s% other_pressure => my_routine
+module other_pressure
 
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_pressure = .true.
+   ! procedure pointer: s% other_pressure => my_routine
 
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine default_other_pressure(id, ierr)
-         use star_def
-         use auto_diff
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         do k=1,s%nz
-            s% extra_pressure(k) = 0d0
-         end do
-         ! note that extra_pressure is type(auto_diff_real_star_order1) so includes partials.
-         return
-      end subroutine default_other_pressure
+   implicit none
 
+contains
+
+   subroutine default_other_pressure(id, ierr)
+      use star_def
+      use auto_diff
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      type(star_info), pointer :: s
+      integer :: k
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+      do k = 1, s%nz
+         s%extra_pressure(k) = 0d0
+      end do
+      ! note that extra_pressure is type(auto_diff_real_star_order1) so includes partials.
+      return
+   end subroutine default_other_pressure
+
+end module other_pressure
 
-      end module other_pressure
-      
-      
-      
-      
diff --git a/star/other/other_rate_get.f90 b/star/other/other_rate_get.f90
index ab3d47d33..035a165a4 100644
--- a/star/other/other_rate_get.f90
+++ b/star/other/other_rate_get.f90
@@ -22,30 +22,29 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-   module other_rate
+
+module other_rate
 
    implicit none
 
-   ! set use_other_rate_get = .true. in your controls namelist   
-        
+   ! set use_other_rate_get = .true. in your controls namelist
+
    ! edit the extras_controls routine to set the procedure pointer
    !  other_rate_get => my_rate_get
 
-   ! This hook is primarily aimed at either modifying an existing mesa reaction or 
+   ! This hook is primarily aimed at either modifying an existing mesa reaction or
    ! providing your own custom rate that depends only on temperature (density factors are handled elsewhere)
    ! This hook can only handle existing reactions. This is not the place to try and add a new reaction.
 
    ! This is also called early in the setup of MESA so there is no stellar structure yet
    ! Thus we call this multiple times (each with a different temperature) for each reaction.
 
-   ! Note this will effect the cached rate written to data/rates_data/cache 
+   ! Note this will effect the cached rate written to data/rates_data/cache
    ! Becuase of this it will only get called if the rate does NOT already exist in your rates_cache
    ! I recommend you use the rates_cache_dir option to redirect your rates_cache when using this hook
    ! So you dont break your whole mesa install.
 
-   contains
-
+contains
 
    subroutine default_other_rate_get(ir, temp, tf, raw_rate, ierr)
       use rates_def
@@ -53,22 +52,18 @@ subroutine default_other_rate_get(ir, temp, tf, raw_rate, ierr)
       implicit none
 
       integer :: ir ! Rate id
-      real(dp),intent(in) ::    temp      !< Temperature
-      type (T_Factors) :: tf !< Various temperature factors
-      real(dp),intent(inout) ::   raw_rate     !< Unscreened reaction_rate, note this will have the default mesa rate on entry
+      real(dp), intent(in) ::    temp      !< Temperature
+      type(T_Factors) :: tf !< Various temperature factors
+      real(dp), intent(inout) ::   raw_rate     !< Unscreened reaction_rate, note this will have the default mesa rate on entry
       integer, intent(out) ::   ierr
-   
+
       ierr = 0
 
       if (trim(reaction_name(ir)) == 'r_c12_ag_o16') then
-         raw_rate = 1.0 * raw_rate
+         raw_rate = 1.0*raw_rate
       end if
 
    end subroutine default_other_rate_get
 
-   end module other_rate
-        
-        
-        
-        
-  
\ No newline at end of file
+end module other_rate
+
diff --git a/star/other/other_remove_surface.f90 b/star/other/other_remove_surface.f90
index 1dff670db..c68c06468 100644
--- a/star/other/other_remove_surface.f90
+++ b/star/other/other_remove_surface.f90
@@ -22,37 +22,30 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_remove_surface
-
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_remove_surface = .true.
-      ! procedure pointer: s% other_remove_surface => my_routine
-
-
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine default_other_remove_surface(id, ierr, k)
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         integer, intent(out) :: k
-
-         type (star_info), pointer :: s
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-
-         k = 0 ! The cell to remove down to.
-      end subroutine default_other_remove_surface
-
-
-      end module other_remove_surface
-      
-      
-      
-      
+
+module other_remove_surface
+
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_remove_surface = .true.
+   ! procedure pointer: s% other_remove_surface => my_routine
+
+   implicit none
+
+contains
+
+   subroutine default_other_remove_surface(id, ierr, k)
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      integer, intent(out) :: k
+
+      type(star_info), pointer :: s
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+
+      k = 0 ! The cell to remove down to.
+   end subroutine default_other_remove_surface
+
+end module other_remove_surface
+
diff --git a/star/other/other_rsp_build_model.f90 b/star/other/other_rsp_build_model.f90
index 15efdd97c..fc72ffba5 100644
--- a/star/other/other_rsp_build_model.f90
+++ b/star/other/other_rsp_build_model.f90
@@ -22,42 +22,36 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_rsp_build_model
-
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_RSP_build_model = .true.
-      ! procedure pointer: s% other_rsp_build_model => my_routine
-
-
-      implicit none
-      
-            
-      contains
-      
-      ! here is a list of what this routine needs to set.  
-      ! star arrays have been allocated but nothing else.
-      ! note that nz is set by RSP_nz.
-      
-      ! scalars
-         ! M_center, L_center, R_center, v_center
-         ! star_mass, mstar, xmstar, tau_factor, rsp_period
-      
-      ! vectors
-         ! m, dm, dm_bar, r, Vol, v, T, w, Fr, erad, L
-         ! don't need to set xh or xa
-
-      subroutine null_other_rsp_build_model(id, ierr)
-         use star_def
-         integer, intent(in) :: id ! star id if available; 0 otherwise
-         integer, intent(out) :: ierr ! 0 means AOK.         
-         write(*,*) 'no implementation for other_rsp_build_model'
-         ierr = -1
-      end subroutine null_other_rsp_build_model
-
-
-      end module other_rsp_build_model
-      
-      
-      
-      
+
+module other_rsp_build_model
+
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_RSP_build_model = .true.
+   ! procedure pointer: s% other_rsp_build_model => my_routine
+
+   implicit none
+
+contains
+
+   ! here is a list of what this routine needs to set.
+   ! star arrays have been allocated but nothing else.
+   ! note that nz is set by RSP_nz.
+
+   ! scalars
+   ! M_center, L_center, R_center, v_center
+   ! star_mass, mstar, xmstar, tau_factor, rsp_period
+
+   ! vectors
+   ! m, dm, dm_bar, r, Vol, v, T, w, Fr, erad, L
+   ! don't need to set xh or xa
+
+   subroutine null_other_rsp_build_model(id, ierr)
+      use star_def
+      integer, intent(in) :: id ! star id if available; 0 otherwise
+      integer, intent(out) :: ierr ! 0 means AOK.
+      write (*, *) 'no implementation for other_rsp_build_model'
+      ierr = -1
+   end subroutine null_other_rsp_build_model
+
+end module other_rsp_build_model
+
diff --git a/star/other/other_rsp_linear_analysis.f90 b/star/other/other_rsp_linear_analysis.f90
index 59b3e05c8..b06e190f6 100644
--- a/star/other/other_rsp_linear_analysis.f90
+++ b/star/other/other_rsp_linear_analysis.f90
@@ -22,37 +22,29 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_rsp_linear_analysis
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_RSP_linear_analysis = .true.
-      ! procedure pointer: s% other_rsp_linear_analysis => my_routine
+module other_rsp_linear_analysis
 
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_RSP_linear_analysis = .true.
+   ! procedure pointer: s% other_rsp_linear_analysis => my_routine
 
-      use star_def
+   use star_def
+
+   implicit none
 
-      implicit none
-      
-            
-      contains
+contains
 
+   subroutine null_other_rsp_linear_analysis(id, restart, ierr)
+      use star_def
+      integer, intent(in) :: id ! star id if available; 0 otherwise
+      logical, intent(in) :: restart
+      integer, intent(out) :: ierr ! 0 means AOK.
 
-      subroutine null_other_rsp_linear_analysis(id, restart, ierr)
-         use star_def
-         integer, intent(in) :: id ! star id if available; 0 otherwise
-         logical, intent(in) :: restart
-         integer, intent(out) :: ierr ! 0 means AOK.
-         
-         write(*,*) 'no implementation for other_rsp_linear_analysis'
-         ierr = -1
+      write (*, *) 'no implementation for other_rsp_linear_analysis'
+      ierr = -1
 
-      end subroutine null_other_rsp_linear_analysis
-      
+   end subroutine null_other_rsp_linear_analysis
 
+end module other_rsp_linear_analysis
 
-      end module other_rsp_linear_analysis
-      
-      
-      
-      
diff --git a/star/other/other_screening.f90 b/star/other/other_screening.f90
index 1ecea2719..1149924eb 100644
--- a/star/other/other_screening.f90
+++ b/star/other/other_screening.f90
@@ -22,32 +22,31 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-   module other_screening
+
+module other_screening
 
    implicit none
 
-   ! set use_other_screening = .true. in your controls namelist   
-        
+   ! set use_other_screening = .true. in your controls namelist
+
    ! edit the extras_controls routine to set the procedure pointer
    !  other_screening => my_screening
 
-   contains
-
+contains
 
    subroutine default_other_screening(sc, z1, z2, a1, a2, screen, dscreendt, dscreendd, ierr)
       use rates_def
 
       implicit none
 
-      type (Screen_Info) :: sc ! See rates_def
+      type(Screen_Info) :: sc ! See rates_def
       ! This contains lots of useful things like temperature, density etc as well as some precomputed
       ! terms that are useful for screening calculations. The derived type is set in do_screen_set_context (screen.f90)
-      real(dp),intent(in) ::    z1, z2      !< charge numbers of reactants
-      real(dp),intent(in) ::    a1, a2     !< mass numbers of reactants
-      real(dp),intent(out) ::   screen     !< on return, screening factor for this reaction
-      real(dp),intent(out) ::   dscreendt     !< on return, temperature derivative of the screening factor
-      real(dp),intent(out) ::   dscreendd    !< on return, density derivative of the screening factor
+      real(dp), intent(in) ::    z1, z2      !< charge numbers of reactants
+      real(dp), intent(in) ::    a1, a2     !< mass numbers of reactants
+      real(dp), intent(out) ::   screen     !< on return, screening factor for this reaction
+      real(dp), intent(out) ::   dscreendt     !< on return, temperature derivative of the screening factor
+      real(dp), intent(out) ::   dscreendd    !< on return, density derivative of the screening factor
       integer, intent(out) ::   ierr
 
       screen = 0d0
@@ -56,11 +55,5 @@ subroutine default_other_screening(sc, z1, z2, a1, a2, screen, dscreendt, dscree
       ierr = 0
    end subroutine default_other_screening
 
+end module other_screening
 
-
-   end module other_screening
-        
-        
-        
-        
-  
\ No newline at end of file
diff --git a/star/other/other_set_pgstar_controls.f90 b/star/other/other_set_pgstar_controls.f90
index d252c1cc0..fd908a63f 100644
--- a/star/other/other_set_pgstar_controls.f90
+++ b/star/other/other_set_pgstar_controls.f90
@@ -22,33 +22,26 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_set_pgstar_controls
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_set_pgstar_controls = .true.
-      ! procedure pointer: s% other_set_pgstar_controls => my_routine
+module other_set_pgstar_controls
 
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_set_pgstar_controls = .true.
+   ! procedure pointer: s% other_set_pgstar_controls => my_routine
 
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine default_other_set_pgstar_controls(id)
-         use star_def
-         integer, intent(in) :: id
-         type (star_info), pointer :: s
-         integer :: ierr
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-      end subroutine default_other_set_pgstar_controls
+   implicit none
 
+contains
+
+   subroutine default_other_set_pgstar_controls(id)
+      use star_def
+      integer, intent(in) :: id
+      type(star_info), pointer :: s
+      integer :: ierr
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+   end subroutine default_other_set_pgstar_controls
+
+end module other_set_pgstar_controls
 
-      end module other_set_pgstar_controls
-      
-      
-      
-      
diff --git a/star/other/other_solver_monitor.f90 b/star/other/other_solver_monitor.f90
index e9e1e45b2..af511fdfa 100644
--- a/star/other/other_solver_monitor.f90
+++ b/star/other/other_solver_monitor.f90
@@ -22,41 +22,33 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_solver_monitor
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_solver_monitor = .true.
-      ! procedure pointer: s% other_solver_monitor => my_routine
+module other_solver_monitor
 
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_solver_monitor = .true.
+   ! procedure pointer: s% other_solver_monitor => my_routine
 
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine default_other_solver_monitor( &
-            id, iter, passed_tol_tests, &
-            correction_norm, max_correction, &
-            residual_norm, max_residual, ierr)
-         use star_def
-         integer, intent(in) :: id, iter 
-            ! iter is the number of the iteration we have just finished
-         logical, intent(in) :: passed_tol_tests
-         real(dp), intent(in) :: correction_norm, max_correction, &
-            residual_norm, max_residual
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-      end subroutine default_other_solver_monitor
+   implicit none
 
+contains
+
+   subroutine default_other_solver_monitor( &
+      id, iter, passed_tol_tests, &
+      correction_norm, max_correction, &
+      residual_norm, max_residual, ierr)
+      use star_def
+      integer, intent(in) :: id, iter
+      ! iter is the number of the iteration we have just finished
+      logical, intent(in) :: passed_tol_tests
+      real(dp), intent(in) :: correction_norm, max_correction, &
+                              residual_norm, max_residual
+      integer, intent(out) :: ierr
+      type(star_info), pointer :: s
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+   end subroutine default_other_solver_monitor
+
+end module other_solver_monitor
 
-      end module other_solver_monitor
-      
-      
-      
-      
diff --git a/star/other/other_split_burn.f90 b/star/other/other_split_burn.f90
index 6c8900362..7f09fbf9b 100644
--- a/star/other/other_split_burn.f90
+++ b/star/other/other_split_burn.f90
@@ -22,103 +22,94 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_split_burn
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_split_burn = .true.
-      ! procedure pointer: s% other_split_burn => my_routine
-      ! This also require op_split_burn = .true. as well as setting the other op_split_burn options
+module other_split_burn
 
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine null_other_split_burn(  &
-         id, k, net_handle, eos_handle, num_isos, num_reactions, t_start, t_end, starting_x, &
-         num_times_for_interpolation, times, log10Ts_f1, log10Rhos_f1, etas_f1, &
-         dxdt_source_term, rate_factors, &
-         weak_rate_factor, reaction_Qs, reaction_neuQs, &
-         screening_mode, &
-         stptry, max_steps, eps, odescal, &
-         use_pivoting, trace, dbg,  burner_finish_substep, &
-         ! results
-         ending_x, eps_nuc_categories, avg_eps_nuc, eps_neu_total, &
-         nfcn, njac, nstep, naccpt, nrejct, ierr)
-         use star_def
-         use net_def
-         use chem_def, only: num_categories
-         
-         integer, intent(in) :: net_handle, eos_handle, id
-         integer, intent(in) :: num_isos
-         integer, intent(in) :: num_reactions
-         real(dp), intent(in) :: t_start, t_end, starting_x(:) ! (num_isos)
-         
-         integer, intent(in) :: num_times_for_interpolation 
-            ! ending time is times(num_times); starting time is 0
-         real(dp), pointer, intent(in) :: times(:) ! (num_times) 
-         real(dp), pointer, intent(in) :: log10Ts_f1(:) ! =(4,numtimes) interpolant for log10T(time)
-         real(dp), pointer, intent(in) :: log10Rhos_f1(:) ! =(4,numtimes) interpolant for log10Rho(time)
-         real(dp), pointer, intent(in) :: etas_f1(:) ! =(4,numtimes) interpolant for eta(time)
-         real(dp), pointer, intent(in) :: dxdt_source_term(:) ! (num_isos)  or null if no source term.
-         real(dp), intent(in), pointer :: rate_factors(:) ! (num_reactions)
-         real(dp), intent(in) :: weak_rate_factor
-         real(dp), pointer, intent(in) :: reaction_Qs(:) ! (rates_reaction_id_max)
-         real(dp), pointer, intent(in) :: reaction_neuQs(:) ! (rates_reaction_id_max)
-         integer, intent(in) :: screening_mode ! see screen_def
-         real(dp), intent(in) :: stptry ! try this for 1st step.  0 means try in 1 step.
-         integer, intent(in) :: max_steps ! maximal number of allowed steps.
-         real(dp), intent(in) :: eps, odescal ! tolerances.  e.g., set both to 1d-6
-         logical, intent(in) :: use_pivoting ! for matrix solves
-         logical, intent(in) :: trace, dbg
-         interface
-            include 'burner_finish_substep.inc'
-         end interface
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_split_burn = .true.
+   ! procedure pointer: s% other_split_burn => my_routine
+   ! This also require op_split_burn = .true. as well as setting the other op_split_burn options
 
-         ! These should be set for the output
-         real(dp), intent(inout) :: ending_x(:) ! (num_isos)
-         real(dp), intent(inout) :: eps_nuc_categories(:) ! (num_categories)
-         real(dp), intent(out) :: avg_eps_nuc, eps_neu_total
-         integer, intent(out) :: nfcn    ! number of function evaluations
-         integer, intent(out) :: njac    ! number of jacobian evaluations
-         integer, intent(out) :: nstep   ! number of computed steps
-         integer, intent(out) :: naccpt  ! number of accepted steps
-         integer, intent(out) :: nrejct  ! number of rejected steps
-         integer, intent(out) :: ierr
+   implicit none
 
-         type (star_info), pointer :: s
-         integer,intent(in) :: k
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
+contains
+
+   subroutine null_other_split_burn( &
+      id, k, net_handle, eos_handle, num_isos, num_reactions, t_start, t_end, starting_x, &
+      num_times_for_interpolation, times, log10Ts_f1, log10Rhos_f1, etas_f1, &
+      dxdt_source_term, rate_factors, &
+      weak_rate_factor, reaction_Qs, reaction_neuQs, &
+      screening_mode, &
+      stptry, max_steps, eps, odescal, &
+      use_pivoting, trace, dbg, burner_finish_substep, &
+      ! results
+      ending_x, eps_nuc_categories, avg_eps_nuc, eps_neu_total, &
+      nfcn, njac, nstep, naccpt, nrejct, ierr)
+      use star_def
+      use net_def
+      use chem_def, only: num_categories
 
+      integer, intent(in) :: net_handle, eos_handle, id
+      integer, intent(in) :: num_isos
+      integer, intent(in) :: num_reactions
+      real(dp), intent(in) :: t_start, t_end, starting_x(:) ! (num_isos)
 
-         contains
+      integer, intent(in) :: num_times_for_interpolation
+      ! ending time is times(num_times); starting time is 0
+      real(dp), pointer, intent(in) :: times(:) ! (num_times)
+      real(dp), pointer, intent(in) :: log10Ts_f1(:) ! =(4,numtimes) interpolant for log10T(time)
+      real(dp), pointer, intent(in) :: log10Rhos_f1(:) ! =(4,numtimes) interpolant for log10Rho(time)
+      real(dp), pointer, intent(in) :: etas_f1(:) ! =(4,numtimes) interpolant for eta(time)
+      real(dp), pointer, intent(in) :: dxdt_source_term(:) ! (num_isos)  or null if no source term.
+      real(dp), intent(in), pointer :: rate_factors(:) ! (num_reactions)
+      real(dp), intent(in) :: weak_rate_factor
+      real(dp), pointer, intent(in) :: reaction_Qs(:) ! (rates_reaction_id_max)
+      real(dp), pointer, intent(in) :: reaction_neuQs(:) ! (rates_reaction_id_max)
+      integer, intent(in) :: screening_mode ! see screen_def
+      real(dp), intent(in) :: stptry ! try this for 1st step.  0 means try in 1 step.
+      integer, intent(in) :: max_steps ! maximal number of allowed steps.
+      real(dp), intent(in) :: eps, odescal ! tolerances.  e.g., set both to 1d-6
+      logical, intent(in) :: use_pivoting ! for matrix solves
+      logical, intent(in) :: trace, dbg
+      interface
+         include 'burner_finish_substep.inc'
+      end interface
 
+      ! These should be set for the output
+      real(dp), intent(inout) :: ending_x(:) ! (num_isos)
+      real(dp), intent(inout) :: eps_nuc_categories(:) ! (num_categories)
+      real(dp), intent(out) :: avg_eps_nuc, eps_neu_total
+      integer, intent(out) :: nfcn    ! number of function evaluations
+      integer, intent(out) :: njac    ! number of jacobian evaluations
+      integer, intent(out) :: nstep   ! number of computed steps
+      integer, intent(out) :: naccpt  ! number of accepted steps
+      integer, intent(out) :: nrejct  ! number of rejected steps
+      integer, intent(out) :: ierr
 
-         subroutine my_burn_finish_substep(nstp, time, y, ierr)
-            use chem_def, only: category_name
-            integer,intent(in) :: nstp
-            real(dp), intent(in) :: time, y(:)
-            integer, intent(out) :: ierr
-            real(dp) :: frac, step_time
-            integer :: j, i
-            include 'formats'
-            ierr = 0
-            ! This routine does nothing other than set ierr = 0,
-            ! Leave this empty if you dont want to do anything otherwise
-            ! Else replace the burn_finish_substep with this routine if
-            ! passing to net_1_zone_burn
-         end subroutine my_burn_finish_substep
+      type(star_info), pointer :: s
+      integer, intent(in) :: k
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
 
+   contains
+
+      subroutine my_burn_finish_substep(nstp, time, y, ierr)
+         !use chem_def, only: category_name
+         integer, intent(in) :: nstp
+         real(dp), intent(in) :: time, y(:)
+         integer, intent(out) :: ierr
+         !real(dp) :: frac
+         !integer :: j, i
+         include 'formats'
+         ierr = 0
+         ! This routine does nothing other than set ierr = 0,
+         ! Leave this empty if you dont want to do anything otherwise
+         ! Else replace the burn_finish_substep with this routine if
+         ! passing to net_1_zone_burn
+      end subroutine my_burn_finish_substep
 
-      end subroutine null_other_split_burn
+   end subroutine null_other_split_burn
 
+end module other_split_burn
 
-      end module other_split_burn
-      
-      
-      
-      
diff --git a/star/other/other_surface_pt.f90 b/star/other/other_surface_pt.f90
index 06bdb28be..8ca1561bd 100644
--- a/star/other/other_surface_pt.f90
+++ b/star/other/other_surface_pt.f90
@@ -22,56 +22,51 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_surface_PT
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_surface_PT = .true.
-      ! procedure pointer: s% other_surface_PT => my_routine
+module other_surface_PT
 
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_surface_PT = .true.
+   ! procedure pointer: s% other_surface_PT => my_routine
 
-      implicit none
-      
-      contains
-      
-      ! star_utils:set_phot_info sets s% Teff before this is called
-      ! see hydro_vars:set_Teff_info_for_eqns
-      
-      subroutine null_other_surface_PT(id, &
-            skip_partials, &
-            lnT_surf, dlnT_dL, dlnT_dlnR, dlnT_dlnM, dlnT_dlnkap, &
-            lnP_surf, dlnP_dL, dlnP_dlnR, dlnP_dlnM, dlnP_dlnkap, ierr)
-         use const_def, only: dp
-         use star_def
-         !use star_lib, only: star_get_surf_PT
-         integer, intent(in) :: id
-         logical, intent(in) :: skip_partials
-         real(dp), intent(out) :: &
-            lnT_surf, dlnT_dL, dlnT_dlnR, dlnT_dlnM, dlnT_dlnkap, &
-            lnP_surf, dlnP_dL, dlnP_dlnR, dlnP_dlnM, dlnP_dlnkap
-         integer, intent(out) :: ierr
-         lnT_surf = 0
-         dlnT_dL = 0
-         dlnT_dlnR = 0
-         dlnT_dlnM = 0
-         dlnT_dlnkap = 0
-         lnP_surf = 0
-         dlnP_dL = 0
-         dlnP_dlnR = 0
-         dlnP_dlnM = 0
-         dlnP_dlnkap = 0
-         ierr = -1
-         
-         !call star_get_surf_PT(id, &
-         !   skip_partials, &
-         !   Teff, lnT_surf, dlnT_dL, dlnT_dlnR, dlnT_dlnM, dlnT_dlnkap, &
-         !   lnP_surf, dlnP_dL, dlnP_dlnR, dlnP_dlnM, dlnP_dlnkap, ierr)
-         
-      end subroutine null_other_surface_PT
+   implicit none
 
+contains
 
-      end module other_surface_PT
-      
+   ! star_utils:set_phot_info sets s% Teff before this is called
+   ! see hydro_vars:set_Teff_info_for_eqns
 
+   subroutine null_other_surface_PT(id, &
+                                    skip_partials, &
+                                    lnT_surf, dlnT_dL, dlnT_dlnR, dlnT_dlnM, dlnT_dlnkap, &
+                                    lnP_surf, dlnP_dL, dlnP_dlnR, dlnP_dlnM, dlnP_dlnkap, ierr)
+      use const_def, only: dp
+      use star_def
+      !use star_lib, only: star_get_surf_PT
+      integer, intent(in) :: id
+      logical, intent(in) :: skip_partials
+      real(dp), intent(out) :: &
+         lnT_surf, dlnT_dL, dlnT_dlnR, dlnT_dlnM, dlnT_dlnkap, &
+         lnP_surf, dlnP_dL, dlnP_dlnR, dlnP_dlnM, dlnP_dlnkap
+      integer, intent(out) :: ierr
+      lnT_surf = 0
+      dlnT_dL = 0
+      dlnT_dlnR = 0
+      dlnT_dlnM = 0
+      dlnT_dlnkap = 0
+      lnP_surf = 0
+      dlnP_dL = 0
+      dlnP_dlnR = 0
+      dlnP_dlnM = 0
+      dlnP_dlnkap = 0
+      ierr = -1
 
+      !call star_get_surf_PT(id, &
+      !   skip_partials, &
+      !   Teff, lnT_surf, dlnT_dL, dlnT_dlnR, dlnT_dlnM, dlnT_dlnkap, &
+      !   lnP_surf, dlnP_dL, dlnP_dlnR, dlnP_dlnM, dlnP_dlnkap, ierr)
+
+   end subroutine null_other_surface_PT
+
+end module other_surface_PT
 
diff --git a/star/other/other_timestep_limit.f90 b/star/other/other_timestep_limit.f90
index 6394b19fa..6372f1dd2 100644
--- a/star/other/other_timestep_limit.f90
+++ b/star/other/other_timestep_limit.f90
@@ -22,30 +22,27 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_timestep_limit
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_timestep_limit = .true.
-      ! procedure pointer: s% other_timestep_limit => my_routine
+module other_timestep_limit
 
-      implicit none      
-            
-      contains
-      
-      integer function null_other_timestep_limit( &
-         id, skip_hard_limit, dt, dt_limit_ratio)
-         use const_def, only: dp
-         use star_def
-         integer, intent(in) :: id
-         logical, intent(in) :: skip_hard_limit
-         real(dp), intent(in) :: dt
-         real(dp), intent(inout) :: dt_limit_ratio
-         null_other_timestep_limit = keep_going
-      end function null_other_timestep_limit
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_timestep_limit = .true.
+   ! procedure pointer: s% other_timestep_limit => my_routine
+
+   implicit none
+
+contains
+
+   integer function null_other_timestep_limit( &
+      id, skip_hard_limit, dt, dt_limit_ratio)
+      use const_def, only: dp
+      use star_def
+      integer, intent(in) :: id
+      logical, intent(in) :: skip_hard_limit
+      real(dp), intent(in) :: dt
+      real(dp), intent(inout) :: dt_limit_ratio
+      null_other_timestep_limit = keep_going
+   end function null_other_timestep_limit
+
+end module other_timestep_limit
 
-      end module other_timestep_limit
-      
-      
-      
-      
diff --git a/star/other/other_torque.f90 b/star/other/other_torque.f90
index cda94b120..4a6d550d1 100644
--- a/star/other/other_torque.f90
+++ b/star/other/other_torque.f90
@@ -22,36 +22,30 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_torque
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_torque = .true.
-      ! procedure pointer: s% other_torque => my_routine
+module other_torque
 
-      implicit none
-      
-            
-      contains
-      
-      subroutine default_other_torque(id, ierr)
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         ! note that can set extra_omegadot instead of extra_jdot if that is more convenient
-         ! set one or the other, not both.  set the one you are not using to 0 as in the following line.
-         s% extra_jdot(:) = 0
-         s% extra_omegadot(:) = 0
-      end subroutine default_other_torque
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_torque = .true.
+   ! procedure pointer: s% other_torque => my_routine
 
+   implicit none
+
+contains
+
+   subroutine default_other_torque(id, ierr)
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      type(star_info), pointer :: s
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+      ! note that can set extra_omegadot instead of extra_jdot if that is more convenient
+      ! set one or the other, not both.  set the one you are not using to 0 as in the following line.
+      s%extra_jdot(:) = 0
+      s%extra_omegadot(:) = 0
+   end subroutine default_other_torque
+
+end module other_torque
 
-      end module other_torque
-      
-      
-      
-      
diff --git a/star/other/other_torque_implicit.f90 b/star/other/other_torque_implicit.f90
index fb2a14351..5b0ebefb3 100644
--- a/star/other/other_torque_implicit.f90
+++ b/star/other/other_torque_implicit.f90
@@ -22,41 +22,34 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_torque_implicit
 
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_torque_implicit = .true.
-      ! procedure pointer: s% other_torque_implicit => my_routine
+module other_torque_implicit
 
-      implicit none
-      
-            
-      contains
-      
-      
-      subroutine default_other_torque_implicit(id, ierr)
-         use star_def
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         integer :: k
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         s% extra_jdot(:) = 0
-         s% extra_omegadot(:) = 0
-         s% d_extra_jdot_domega_m1(:) = 0
-         s% d_extra_omegadot_domega_m1(:) = 0
-         s% d_extra_jdot_domega_00(:) = 0
-         s% d_extra_omegadot_domega_00(:) = 0
-         s% d_extra_jdot_domega_p1(:) = 0
-         s% d_extra_omegadot_domega_p1(:) = 0
-      end subroutine default_other_torque_implicit
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_torque_implicit = .true.
+   ! procedure pointer: s% other_torque_implicit => my_routine
 
+   implicit none
+
+contains
+
+   subroutine default_other_torque_implicit(id, ierr)
+      use star_def
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+      type(star_info), pointer :: s
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+      s%extra_jdot(:) = 0
+      s%extra_omegadot(:) = 0
+      s%d_extra_jdot_domega_m1(:) = 0
+      s%d_extra_omegadot_domega_m1(:) = 0
+      s%d_extra_jdot_domega_00(:) = 0
+      s%d_extra_omegadot_domega_00(:) = 0
+      s%d_extra_jdot_domega_p1(:) = 0
+      s%d_extra_omegadot_domega_p1(:) = 0
+   end subroutine default_other_torque_implicit
+
+end module other_torque_implicit
 
-      end module other_torque_implicit
-      
-      
-      
-      
diff --git a/star/other/other_wind.f90 b/star/other/other_wind.f90
index 583e26588..2576655fd 100644
--- a/star/other/other_wind.f90
+++ b/star/other/other_wind.f90
@@ -22,42 +22,36 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module other_wind
-
-      ! consult star/other/README for general usage instructions
-      ! control name: use_other_wind = .true.
-      ! procedure pointer: s% other_wind => my_routine
-
-
-      ! you can add your own wind routine for use when wind scheme == 'other'
-
-      implicit none
-      
-            
-      contains
-      
-      ! Note that your routine will be called before many star variables have been set.
-      ! If you rely on these, you should call the star_set_vars_in_part1 routine from star_lib
-      ! to ensure that they are set.      
-      subroutine null_other_wind(id, Lsurf, Msurf, Rsurf, Tsurf, X, Y, Z, w, ierr)
-         use star_def
-         integer, intent(in) :: id
-         real(dp), intent(in) :: Lsurf, Msurf, Rsurf, Tsurf, X, Y, Z ! surface values (cgs)
-         ! NOTE: surface is outermost cell. not necessarily at photosphere.
-         ! NOTE: don't assume that vars are set at this point.
-         ! so if you want values other than those given as args,
-         ! you should use values from s% xh(:,:) and s% xa(:,:) only.
-         ! rather than things like s% Teff or s% lnT(:) which have not been set yet.
-         real(dp), intent(out) :: w ! wind in units of Msun/year (value is >= 0)
-         integer, intent(out) :: ierr
-         w = 0
-         ierr = 0
-      end subroutine null_other_wind
-
-
-      end module other_wind
-      
-      
-      
-      
+
+module other_wind
+
+   ! consult star/other/README for general usage instructions
+   ! control name: use_other_wind = .true.
+   ! procedure pointer: s% other_wind => my_routine
+
+   ! you can add your own wind routine for use when wind scheme == 'other'
+
+   implicit none
+
+contains
+
+   ! Note that your routine will be called before many star variables have been set.
+   ! If you rely on these, you should call the star_set_vars_in_part1 routine from star_lib
+   ! to ensure that they are set.
+   subroutine null_other_wind(id, Lsurf, Msurf, Rsurf, Tsurf, X, Y, Z, w, ierr)
+      use star_def
+      integer, intent(in) :: id
+      real(dp), intent(in) :: Lsurf, Msurf, Rsurf, Tsurf, X, Y, Z ! surface values (cgs)
+      ! NOTE: surface is outermost cell. not necessarily at photosphere.
+      ! NOTE: don't assume that vars are set at this point.
+      ! so if you want values other than those given as args,
+      ! you should use values from s% xh(:,:) and s% xa(:,:) only.
+      ! rather than things like s% Teff or s% lnT(:) which have not been set yet.
+      real(dp), intent(out) :: w ! wind in units of Msun/year (value is >= 0)
+      integer, intent(out) :: ierr
+      w = 0
+      ierr = 0
+   end subroutine null_other_wind
+
+end module other_wind
+
diff --git a/star/other/pgstar_decorator.f90 b/star/other/pgstar_decorator.f90
index e1f1dee36..f98f6a936 100644
--- a/star/other/pgstar_decorator.f90
+++ b/star/other/pgstar_decorator.f90
@@ -22,35 +22,33 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
- 
-      module pgstar_decorator
-
-      ! NOTE: remember to set X_use_decorator = .true. to enable this, 
-      ! where X is the name of the pgstar plot
-      ! and set s% pg% X_pgstar_decorator => your_function in your
-      ! run_star_extras.f
-      
-      ! List of pgplot routines: http://www.astro.caltech.edu/~tjp/pgplot/annlist.html
- 
-      implicit none
-
-                  
-      contains
-      
-      
-      ! default does nothing
-      ! xmin, xmax, ymin, ymax: current plot boundary
-      ! plot_num: If a plot has multiple sub-panels, then this tells you which panel is being called
-      subroutine null_pgstar_decorator(id, xmin, xmax, ymin, ymax, plot_num, ierr)
-         use star_def
-         use const_def
-         integer, intent(in) :: id
-         !Not doubles
-         real,intent(in) :: xmin, xmax, ymin, ymax 
-         integer, intent(in) :: plot_num
-         integer, intent(out) :: ierr
-         ierr = 0
-      end subroutine null_pgstar_decorator
+
+module pgstar_decorator
+
+   ! NOTE: remember to set X_use_decorator = .true. to enable this,
+   ! where X is the name of the pgstar plot
+   ! and set s% pg% X_pgstar_decorator => your_function in your
+   ! run_star_extras.f
+
+   ! List of pgplot routines: http://www.astro.caltech.edu/~tjp/pgplot/annlist.html
+
+   implicit none
+
+contains
+
+   ! default does nothing
+   ! xmin, xmax, ymin, ymax: current plot boundary
+   ! plot_num: If a plot has multiple sub-panels, then this tells you which panel is being called
+   subroutine null_pgstar_decorator(id, xmin, xmax, ymin, ymax, plot_num, ierr)
+      use star_def
+      use const_def
+      integer, intent(in) :: id
+      !Not doubles
+      real, intent(in) :: xmin, xmax, ymin, ymax
+      integer, intent(in) :: plot_num
+      integer, intent(out) :: ierr
+      ierr = 0
+   end subroutine null_pgstar_decorator
 
 ! Example function to add squares and some text to the abundance plot
 !      subroutine Abundance_pgstar_decorator(id, xmin, xmax, ymin, ymax, plot_num, ierr)
@@ -58,36 +56,33 @@ end subroutine null_pgstar_decorator
 !         use const_def
 !         integer, intent(in) :: id
 !         !Not dp
-!         real,intent(in) :: xmin, xmax, ymin, ymax 
+!         real,intent(in) :: xmin, xmax, ymin, ymax
 !         real :: xcenter,ycenter,dx,dy,a
 !         integer, intent(out) :: ierr
 !         integer :: i
 !         type (star_info), pointer :: s
-         
+
 !         ierr = 0
 !         call star_ptr(id, s, ierr)
 !         if (ierr /= 0) return
-         
+
 !         dx=(xmax-xmin)
 !         dy=(ymax-ymin)
-         
+
 !         xcenter=xmin+dx*0.5
 !         ycenter=ymin+dy*0.5
-      
+
 !         call pgsci(clr_Coral)
-         
+
 !         do i=1,4
 !            a=(i/10.0)
 !            call pgline(5, (/xcenter-a*dx,xcenter-a*dx,xcenter+a*dx,xcenter+a*dx,xcenter-a*dx/),&
 !                           (/ycenter-a*dy,ycenter+a*dy,ycenter+a*dy,ycenter-a*dy,ycenter-a*dy/))
 !         end do
-         
+
 !         call pgptxt(xcenter,ycenter, 0.0, 1.0, 'Some added text on this plot')
-         
+
 !      end subroutine Abundance_pgstar_decorator
 
-      end module pgstar_decorator
-      
-      
-      
-      
+end module pgstar_decorator
+
diff --git a/star/other/sample_pgstar_plot.f90 b/star/other/sample_pgstar_plot.f90
index 2ad2ea2c3..a8e5c8f98 100644
--- a/star/other/sample_pgstar_plot.f90
+++ b/star/other/sample_pgstar_plot.f90
@@ -23,422 +23,399 @@
 !
 ! ***********************************************************************
 
-      module sample_pgstar_plot
-      
-      ! you can add your own pgstar plots in addition to the standard ones.
-      ! don't edit this file
-      ! instead copy the contents to your src/run_star_extras file and edit that.
-
-      ! edit the extras_controls routine to set s% other_pgstar_plots_info
-         !    s% other_pgstar_plots_info => my_pgstar_plots_info
-      
-
-      use star_lib
-      use star_def
-      use math_lib
-      use star_pgstar
-
-      implicit none
-      
-      
-      ! basics needed for every pgstar plot
-      logical :: my_win_flag, my_file_flag
-      integer :: my_file_interval
-      character (len=256) :: my_file_dir, my_file_prefix
-      real :: &
-         my_win_width, my_win_aspect_ratio, &
-         my_file_width, my_file_aspect_ratio
-         
-      ! optional extra controls
-      character (len=256) :: my_xaxis_by
-      real :: &
-         my_xmin, my_xmax, &
-         my_ymin_left, my_ymax_left, my_dymin_left, &
-         my_ymin_right, my_ymax_right, my_dymin_right
-      
-         
-      namelist /my_pgstar/ &
-         my_win_flag, my_file_flag, &
-         my_file_interval, &
-         my_file_dir, my_file_prefix, &
-         my_win_width, my_win_aspect_ratio, &
-         my_file_width, my_file_aspect_ratio, &
-         my_xaxis_by, my_xmin, my_xmax, &
-         my_ymin_left, my_ymax_left, my_dymin_left, &
-         my_ymin_right, my_ymax_right, my_dymin_right
-      
-
-      contains
-
-      
-      subroutine my_pgstar_plots_info(id, ierr)
-         integer, intent(in) :: id
+module sample_pgstar_plot
+
+   ! you can add your own pgstar plots in addition to the standard ones.
+   ! don't edit this file
+   ! instead copy the contents to your src/run_star_extras file and edit that.
+
+   ! edit the extras_controls routine to set s% other_pgstar_plots_info
+   !    s% other_pgstar_plots_info => my_pgstar_plots_info
+
+   use star_lib
+   use star_def
+   use math_lib
+   use star_pgstar
+
+   implicit none
+
+   ! basics needed for every pgstar plot
+   logical :: my_win_flag, my_file_flag
+   integer :: my_file_interval
+   character(len=256) :: my_file_dir, my_file_prefix
+   real :: &
+      my_win_width, my_win_aspect_ratio, &
+      my_file_width, my_file_aspect_ratio
+
+   ! optional extra controls
+   character(len=256) :: my_xaxis_by
+   real :: &
+      my_xmin, my_xmax, &
+      my_ymin_left, my_ymax_left, my_dymin_left, &
+      my_ymin_right, my_ymax_right, my_dymin_right
+
+   namelist /my_pgstar/ &
+      my_win_flag, my_file_flag, &
+      my_file_interval, &
+      my_file_dir, my_file_prefix, &
+      my_win_width, my_win_aspect_ratio, &
+      my_file_width, my_file_aspect_ratio, &
+      my_xaxis_by, my_xmin, my_xmax, &
+      my_ymin_left, my_ymax_left, my_dymin_left, &
+      my_ymin_right, my_ymax_right, my_dymin_right
+
+contains
+
+   subroutine my_pgstar_plots_info(id, ierr)
+      integer, intent(in) :: id
+      integer, intent(out) :: ierr
+
+      integer, parameter :: num_Other_plots = 1 ! can have up to max_num_Other_plots
+      integer :: i, plot_id
+      type(pgstar_win_file_data), pointer :: p
+      type(star_info), pointer :: s
+
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+
+      call set_my_namelist_defaults
+      call read_my_pgstar_namelist('inlist_for_my_pgstar_plots', ierr)
+      if (ierr /= 0) return
+
+      do i = 1, num_Other_plots
+         plot_id = i_Other + i - 1
+         p => s%pg%pgstar_win_file_ptr(plot_id)
+         p%plot => my_plot
+         p%id = plot_id
+         p%name = 'My_Plot'
+         p%win_flag = my_win_flag
+         p%win_width = my_win_width
+         p%win_aspect_ratio = my_win_aspect_ratio
+         p%file_flag = my_file_flag
+         p%file_dir = my_file_dir
+         p%file_prefix = my_file_prefix
+         p%file_interval = my_file_interval
+         p%file_width = my_file_width
+         p%file_aspect_ratio = my_file_aspect_ratio
+      end do
+
+   end subroutine my_pgstar_plots_info
+
+   subroutine set_my_namelist_defaults
+
+      my_win_flag = .false.
+
+      my_win_width = 7
+      my_win_aspect_ratio = 0.62 ! aspect_ratio = height/width
+
+      my_xaxis_by = 'mass' ! same choices as for main window xaxis_by
+      my_xmin = -101 ! only used if > -100
+      my_xmax = -101 ! only used if > -100
+
+      my_ymin_left = -101 ! only used if > -100
+      my_ymax_left = -101 ! only used if > -100
+      my_dymin_left = -101 ! only used if > -100
+
+      my_ymin_right = -101 ! only used if > -100
+      my_ymax_right = -101 ! only used if > -100
+      my_dymin_right = -101 ! only used if > -100
+
+      ! file output
+      my_file_flag = .false.
+      my_file_dir = 'pgstar_out'
+      my_file_prefix = 'profile'
+      my_file_interval = 5 ! output when mod(model_number,my_file_interval)==0
+      my_file_width = -1 ! negative means use same value as for window
+      my_file_aspect_ratio = -1 ! negative means use same value as for window
+
+   end subroutine set_my_namelist_defaults
+
+   subroutine read_my_pgstar_namelist(filename, ierr)
+      use utils_lib
+      character(*), intent(in) :: filename
+      integer, intent(out) :: ierr
+
+      integer :: unit
+
+      ierr = 0
+
+      open (newunit=unit, file=trim(filename), action='read', delim='quote', status='old', iostat=ierr)
+      if (ierr /= 0) then
+         write (*, '(a)') 'Failed to open control namelist file '//trim(filename)
+         return
+      end if
+      read (unit, nml=my_pgstar, iostat=ierr)
+      close (unit)
+
+      if (ierr /= 0) then
+         write (*, *)
+         write (*, *)
+         write (*, *)
+         write (*, *)
+         write (*, '(a)') &
+            'Failed while trying to read control namelist file: '//trim(filename)
+         write (*, '(a)') &
+            'Perhaps the following runtime error message will help you find the problem.'
+         write (*, *)
+         open (newunit=unit, file=trim(filename), action='read', delim='quote', status='old', iostat=ierr)
+         read (unit, nml=my_pgstar)
+         close (unit)
+         return
+      end if
+
+   end subroutine read_my_pgstar_namelist
+
+   subroutine my_plot(id, device_id, ierr)
+      integer, intent(in) :: id, device_id
+      integer, intent(out) :: ierr
+
+      real :: winxmin, winxmax, winymin, winymax, label_scale
+
+      type(star_info), pointer :: s
+
+      ierr = 0
+      call star_ptr(id, s, ierr)
+      if (ierr /= 0) return
+
+      call pgslct(device_id)
+      call pgbbuf()
+      call pgeras()
+
+      winxmin = 0.14
+      winxmax = 0.85
+      winymin = 0.13
+      winymax = 0.92
+      label_scale = 1.2
+
+      call do_my_plot(s, device_id, &
+                      winxmin, winxmax, winymin, winymax, &
+                      label_scale, ierr)
+
+      call pgebuf()
+
+   end subroutine my_plot
+
+   subroutine do_my_plot(s, device_id, &
+                         winxmin, winxmax, winymin, winymax, label_scale, ierr)
+
+      use utils_lib
+      use const_def
+
+      type(star_info), pointer :: s
+      integer, intent(in) :: device_id
+      real, intent(in) :: winxmin, winxmax, winymin, winymax, label_scale
+      integer, intent(out) :: ierr
+
+      real :: xmargin
+      real :: xmin, xmax, xleft, xright, dx, ymin, ymax, ymin2, ymax2, dy
+      integer :: grid_min, grid_max, npts, nz
+      real, allocatable, dimension(:) :: xvec, yvec, yvec2, yvec3
+
+      logical :: dbg = .false.
+
+      include 'formats'
+      ierr = 0
+      xmargin = 0
+
+      nz = s%nz
+      allocate (xvec(nz), yvec(nz), yvec2(nz), yvec3(nz))
+
+      call set_pgstar_xaxis_bounds( &
+         s, my_xaxis_by, my_xmin, my_xmax, xmargin, &
+         xvec, xmin, xmax, xleft, xright, dx, &
+         grid_min, grid_max, npts, ierr)
+      if (ierr /= 0) return
+
+      if (dbg) then
+         write (*, 1) 'my_xaxis_by '//trim(my_xaxis_by)
+         write (*, 1) 'my_xmin', my_xmin
+         write (*, 1) 'my_xmax', my_xmax
+         write (*, 2) 'grid_min', grid_min
+         write (*, 2) 'grid_max', grid_max
+         write (*, 1) 'xmin', xmin
+         write (*, 1) 'xmax', xmax
+         write (*, 1) 'xleft', xleft
+         write (*, 1) 'xright', xright
+         write (*, 1) 'dx', dx
+      end if
+
+      call plot(ierr)
+      if (ierr /= 0) return
+
+      deallocate (xvec, yvec, yvec2, yvec3)
+
+   contains
+
+      subroutine plot(ierr)
+         use rates_def, only: i_rate
+         use chem_def, only: ipp, icno
          integer, intent(out) :: ierr
-         
-         integer, parameter :: num_Other_plots = 1 ! can have up to max_num_Other_plots
-         integer :: i, plot_id
-         type (pgstar_win_file_data), pointer :: p
-         type (star_info), pointer :: s
 
+         integer :: lw, lw_sav, k
+         real :: default_ymax_left, default_ymin_left, &
+                 default_ymax_right, default_ymin_right
+         character(len=128) :: str
+
+         include 'formats'
          ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         
-         call set_my_namelist_defaults
-         call read_my_pgstar_namelist('inlist_for_my_pgstar_plots', ierr)
+
+         call pgsave
+
+         lw = 6
+         call pgqlw(lw_sav)
+
+         call pgsvp(winxmin, winxmax, winymin, winymax)
+
+         ! title
+         call pgmtxt('T', 1.5, 0.5, 0.5, 'My Plot')
+
+         call pgsch(label_scale)
+         write (str, '(i9)') s%model_number
+         call pgmtxt('T', 1.8, 0.9, 0.5, str)
+
+         ! xlabel
+         call pgsci(1)
+         call pgsch(label_scale)
+         call show_pgstar_xaxis_by(s, my_xaxis_by, ierr)
          if (ierr /= 0) return
-         
-         do i = 1, num_Other_plots
-            plot_id = i_Other + i - 1
-            p => s% pg% pgstar_win_file_ptr(plot_id)
-            p% plot => my_plot
-            p% id = plot_id
-            p% name = 'My_Plot'
-            p% win_flag = my_win_flag
-            p% win_width = my_win_width
-            p% win_aspect_ratio = my_win_aspect_ratio
-            p% file_flag = my_file_flag
-            p% file_dir = my_file_dir
-            p% file_prefix = my_file_prefix
-            p% file_interval = my_file_interval
-            p% file_width = my_file_width
-            p% file_aspect_ratio = my_file_aspect_ratio
-         end do
-         
-      end subroutine my_pgstar_plots_info
-      
-      
-      subroutine set_my_namelist_defaults
-      
-         my_win_flag = .false.
-
-         my_win_width = 7
-         my_win_aspect_ratio = 0.62 ! aspect_ratio = height/width
-         
-         my_xaxis_by = 'mass' ! same choices as for main window xaxis_by
-         my_xmin = -101 ! only used if > -100
-         my_xmax = -101 ! only used if > -100
-         
-         my_ymin_left = -101 ! only used if > -100
-         my_ymax_left = -101 ! only used if > -100        
-         my_dymin_left = -101 ! only used if > -100
-         
-         my_ymin_right = -101 ! only used if > -100
-         my_ymax_right = -101 ! only used if > -100        
-         my_dymin_right = -101 ! only used if > -100 
-         
-         ! file output
-         my_file_flag = .false.
-         my_file_dir = 'pgstar_out'
-         my_file_prefix = 'profile'
-         my_file_interval = 5 ! output when mod(model_number,my_file_interval)==0
-         my_file_width = -1 ! negative means use same value as for window
-         my_file_aspect_ratio = -1 ! negative means use same value as for window
-         
-      end subroutine set_my_namelist_defaults
-      
-      
-      subroutine read_my_pgstar_namelist(filename, ierr)
-         use utils_lib
-         character(*), intent(in) :: filename
-         integer, intent(out) :: ierr
 
-         integer :: unit 
-         
-         ierr = 0
-         
-         open(newunit=unit, file=trim(filename), action='read', delim='quote', status='old', iostat=ierr)
-         if (ierr /= 0) then
-            write(*,'(a)') 'Failed to open control namelist file '// trim(filename)
-            return
+         ! left axis
+
+         default_ymax_left = 10
+         default_ymin_left = -2
+
+         yvec = s%lnd(1:nz)/ln10
+         yvec2 = s%lnT(1:nz)/ln10
+
+         if (my_ymax_left > -100) then
+            ymax = my_ymax_left
+         else
+            ymax = max(default_ymax_left, maxval(yvec(grid_min:grid_max)))
+            ymax2 = max(default_ymax_left, maxval(yvec2(grid_min:grid_max)))
+            if (ymax2 > ymax) ymax = ymax2
          end if
-         read(unit, nml=my_pgstar, iostat=ierr)  
-         close(unit)
-         
-         if (ierr /= 0) then
-            write(*, *) 
-            write(*, *) 
-            write(*, *) 
-            write(*, *) 
-            write(*, '(a)') &
-               'Failed while trying to read control namelist file: ' // trim(filename)
-            write(*, '(a)') &
-               'Perhaps the following runtime error message will help you find the problem.'
-            write(*, *) 
-            open(newunit=unit, file=trim(filename), action='read', delim='quote', status='old', iostat=ierr)
-            read(unit, nml=my_pgstar)
-            close(unit)
-            return
+
+         if (my_ymin_left > -100) then
+            ymin = my_ymin_left
+         else
+            ymin = max(default_ymin_left, minval(yvec(grid_min:grid_max)))
+            ymin2 = max(default_ymin_left, minval(yvec2(grid_min:grid_max)))
+            if (ymin2 < ymin) ymin = ymin2
          end if
-      
-      end subroutine read_my_pgstar_namelist
 
+         dy = ymax - ymin
+         if (dy == 0) dy = 1
+         if (my_dymin_left > -100) dy = my_dymin_left
 
-      subroutine my_plot(id, device_id, ierr)
-         integer, intent(in) :: id, device_id
-         integer, intent(out) :: ierr
-         
-         real :: winxmin, winxmax, winymin, winymax, label_scale
+         ymax = ymax + 0.1*dy
+         ymin = ymin - 0.1*dy
 
-         type (star_info), pointer :: s
+         if (dbg) then
+            write (*, 1) 'left axis xleft, xright', xleft, xright
+            write (*, 1) 'left axis ymin, ymax, dy', ymin, ymax, dy
+         end if
+
+         call pgswin(xleft, xright, ymin, ymax)
+         call pgscf(1)
+         call pgsci(1)
+         call pgsch(label_scale)
+         call pgbox('', 0.0, 0, 'BNSTV', 0.0, 0)
+
+         call pgsci(clr_Teal)
+         call pgsch(label_scale)
+         call pgmtxt('L', 3.6, 0.5, 0.5, 'log density (g cm\u-3\d)')
+         call pgslw(lw)
+         call pgline(npts, xvec(grid_min:grid_max), yvec(grid_min:grid_max))
+         call pgslw(lw_sav)
+
+         call pgsci(clr_Coral)
+         call pgmtxt('L', 5.3, 0.5, 0.5, 'log T (K)')
+         call pgslw(lw)
+         call pgline(npts, xvec(grid_min:grid_max), yvec2(grid_min:grid_max))
+         call pgslw(lw_sav)
+
+         ! right axis
+
+         lw = 8
+
+         default_ymax_right = 0
+         default_ymin_right = -10
+
+         do k = 1, nz
+            yvec(k) = safe_log10(s%eps_nuc_categories(ipp, k))
+            yvec2(k) = safe_log10(s%eps_nuc_categories(icno, k))
+         end do
+
+         if (my_ymax_right > -100) then
+            ymax = my_ymax_right
+         else
+            ymax = max(default_ymax_right, maxval(yvec(grid_min:grid_max)))
+            ymax2 = max(default_ymax_right, maxval(yvec2(grid_min:grid_max)))
+            if (ymax2 > ymax) ymax = ymax2
+         end if
+         if (my_ymin_right > -100) then
+            ymin = my_ymin_right
+         else
+            ymin = max(default_ymin_right, minval(yvec(grid_min:grid_max)))
+            ymin2 = max(default_ymin_right, minval(yvec2(grid_min:grid_max)))
+            if (ymin2 < ymin) ymin = ymin2
+         end if
+
+         dy = ymax - ymin
+         if (dy == 0) dy = 1
+         if (my_dymin_right > -100) dy = my_dymin_right
+
+         ymax = ymax + 0.1*dy
+         ymin = ymin - 0.1*dy
 
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         
-         call pgslct(device_id)
-         call pgbbuf()
-         call pgeras()
-
-         winxmin = 0.14
-         winxmax = 0.85
-         winymin = 0.13
-         winymax = 0.92
-         label_scale = 1.2
-         
-         call do_my_plot(s, device_id, &
-            winxmin, winxmax, winymin, winymax, &
-            label_scale, ierr)
-
-         call pgebuf()
-      
-      end subroutine my_plot
-
-
-      subroutine do_my_plot(s, device_id, &
-            winxmin, winxmax, winymin, winymax, label_scale, ierr)
-            
-         use utils_lib
-         use const_def
-
-         type (star_info), pointer :: s
-         integer, intent(in) :: device_id
-         real, intent(in) :: winxmin, winxmax, winymin, winymax, label_scale
-         integer, intent(out) :: ierr
-         
-         real :: windy, xmargin
-         real :: xmin, xmax, xleft, xright, dx, tmp, ymin, ymax, ymin2, ymax2, dy
-         integer :: grid_min, grid_max, npts, nz
-         real, allocatable, dimension(:) :: xvec, yvec, yvec2, yvec3
-         
-         logical :: dbg = .false.
-         
-         include 'formats'
-         ierr = 0
-         xmargin = 0
-
-         nz = s% nz
-         allocate (xvec(nz), yvec(nz), yvec2(nz), yvec3(nz))
-         
-         call set_pgstar_xaxis_bounds( &
-            s, my_xaxis_by, my_xmin, my_xmax, xmargin, &
-            xvec, xmin, xmax, xleft, xright, dx, &
-            grid_min, grid_max, npts, ierr)
-         if (ierr /= 0) return
-         
          if (dbg) then
-            write(*,1) 'my_xaxis_by ' // trim(my_xaxis_by)
-            write(*,1) 'my_xmin', my_xmin
-            write(*,1) 'my_xmax', my_xmax
-            write(*,2) 'grid_min', grid_min
-            write(*,2) 'grid_max', grid_max
-            write(*,1) 'xmin', xmin
-            write(*,1) 'xmax', xmax
-            write(*,1) 'xleft', xleft
-            write(*,1) 'xright', xright
-            write(*,1) 'dx', dx
+            write (*, 1) 'right axis xleft, xright', xleft, xright
+            write (*, 1) 'right axis ymin, ymax, dy', ymin, ymax, dy
          end if
 
-         call plot(ierr)
-         if (ierr /= 0) return
+         call pgswin(xleft, xright, ymin, ymax)
+
+         call pgscf(1)
+         call pgsci(1)
+         call pgsch(label_scale)
+         call pgbox('BCNST', 0.0, 0, 'CMSTV', 0.0, 0)
+
+         call pgsci(clr_FireBrick)
+         call pgmtxt('R', 5.6, 0.5, 0.5, 'log eps PP (erg g\u-1\d s\u-1\d)')
+         call pgslw(lw)
+         call pgline(npts, xvec(grid_min:grid_max), yvec2(grid_min:grid_max))
+         call pgslw(lw_sav)
+
+         call pgsci(clr_RoyalBlue)
+         call pgmtxt('R', 3.9, 0.5, 0.5, 'log eps CNO (erg g\u-1\d s\u-1\d)')
+         call pgslw(lw)
+         call pgline(npts, xvec(grid_min:grid_max), yvec(grid_min:grid_max))
+         call pgslw(lw_sav)
+
+         call pgunsa
 
-         deallocate(xvec, yvec, yvec2, yvec3)
-         
-         
-         contains
-         
-         
-         subroutine plot(ierr)
-            use rates_def, only: i_rate
-            use chem_def, only: ipp, icno
-            integer, intent(out) :: ierr
-            
-            integer :: lw, lw_sav, k
-            real :: ybot, eps, &
-               default_ymax_left, default_ymin_left, &
-               default_ymax_right, default_ymin_right
-            character (len=128) :: str
-         
-            include 'formats'
-            ierr = 0
-            
-            call pgsave
-                       
-            lw = 6
-            call pgqlw(lw_sav)
-            
-            call pgsvp(winxmin, winxmax, winymin, winymax)
-            
-            ! title
-            call pgmtxt('T',1.5,0.5,0.5,'My Plot')
-         
-            call pgsch(label_scale)
-            write(str,'(i9)') s% model_number
-            call pgmtxt('T',1.8,0.9,0.5,str)
-            
-            ! xlabel
-            call pgsci(1)
-            call pgsch(label_scale)
-            call show_pgstar_xaxis_by(s,my_xaxis_by,ierr)
-            if (ierr /= 0) return
-
-            
-            ! left axis
-            
-            default_ymax_left = 10
-            default_ymin_left = -2
-         
-            yvec = s% lnd(1:nz)/ln10
-            yvec2 = s% lnT(1:nz)/ln10
-
-            if (my_ymax_left > -100) then
-               ymax = my_ymax_left
-            else
-               ymax = max(default_ymax_left,maxval(yvec(grid_min:grid_max)))
-               ymax2 = max(default_ymax_left,maxval(yvec2(grid_min:grid_max)))
-               if (ymax2 > ymax) ymax = ymax2
-            end if
-            
-            if (my_ymin_left > -100) then
-               ymin = my_ymin_left
-            else
-               ymin = max(default_ymin_left,minval(yvec(grid_min:grid_max)))
-               ymin2 = max(default_ymin_left,minval(yvec2(grid_min:grid_max)))
-               if (ymin2 < ymin) ymin = ymin2
-            end if
-            
-            dy = ymax-ymin
-            if (dy == 0) dy = 1
-            if (my_dymin_left > -100) dy = my_dymin_left
-            
-            ymax = ymax + 0.1*dy
-            ymin = ymin - 0.1*dy
-            
-            if (dbg) then
-               write(*,1) 'left axis xleft, xright', xleft, xright
-               write(*,1) 'left axis ymin, ymax, dy', ymin, ymax, dy
-            end if
-
-            call pgswin(xleft, xright, ymin, ymax)
-            call pgscf(1)
-            call pgsci(1)
-            call pgsch(label_scale)
-            call pgbox('',0.0,0,'BNSTV',0.0,0)
-
-            call pgsci(clr_Teal)
-            call pgsch(label_scale)
-            call pgmtxt('L',3.6,0.5,0.5,'log density (g cm\u-3\d)')
-            call pgslw(lw)
-            call pgline(npts, xvec(grid_min:grid_max), yvec(grid_min:grid_max))
-            call pgslw(lw_sav)
-
-            call pgsci(clr_Coral)
-            call pgmtxt('L',5.3,0.5,0.5,'log T (K)')
-            call pgslw(lw)
-            call pgline(npts, xvec(grid_min:grid_max), yvec2(grid_min:grid_max))
-            call pgslw(lw_sav)
-            
-            
-            ! right axis
-
-            lw = 8
-            
-            default_ymax_right = 0
-            default_ymin_right = -10
-            
-            do k=1,nz
-               yvec(k) = safe_log10(s% eps_nuc_categories(ipp,k))
-               yvec2(k) = safe_log10(s% eps_nuc_categories(icno,k))
-            end do
-            
-            if (my_ymax_right > -100) then
-               ymax = my_ymax_right
-            else
-               ymax = max(default_ymax_right,maxval(yvec(grid_min:grid_max)))
-               ymax2 = max(default_ymax_right,maxval(yvec2(grid_min:grid_max)))
-               if (ymax2 > ymax) ymax = ymax2
-            end if
-            if (my_ymin_right > -100) then
-               ymin = my_ymin_right
-            else
-               ymin = max(default_ymin_right,minval(yvec(grid_min:grid_max)))
-               ymin2 = max(default_ymin_right,minval(yvec2(grid_min:grid_max)))
-               if (ymin2 < ymin) ymin = ymin2
-            end if
-            
-            dy = ymax-ymin
-            if (dy == 0) dy = 1
-            if (my_dymin_right > -100) dy = my_dymin_right
-            
-            ymax = ymax + 0.1*dy
-            ymin = ymin - 0.1*dy
-
-            if (dbg) then
-               write(*,1) 'right axis xleft, xright', xleft, xright
-               write(*,1) 'right axis ymin, ymax, dy', ymin, ymax, dy
-            end if
-            
-            call pgswin(xleft, xright, ymin, ymax)
-
-            call pgscf(1)
-            call pgsci(1)
-            call pgsch(label_scale)
-            call pgbox('BCNST',0.0,0,'CMSTV',0.0,0)
-            
-            call pgsci(clr_FireBrick)
-            call pgmtxt('R',5.6,0.5,0.5,'log eps PP (erg g\u-1\d s\u-1\d)')
-            call pgslw(lw)
-            call pgline(npts, xvec(grid_min:grid_max), yvec2(grid_min:grid_max))
-            call pgslw(lw_sav)
-            
-            call pgsci(clr_RoyalBlue)
-            call pgmtxt('R',3.9,0.5,0.5,'log eps CNO (erg g\u-1\d s\u-1\d)')
-            call pgslw(lw)
-            call pgline(npts, xvec(grid_min:grid_max), yvec(grid_min:grid_max))
-            call pgslw(lw_sav)
-
-            call pgunsa
-            
-         end subroutine plot
-      
-         
-      end subroutine do_my_plot
-      
-      
-
-      
-      
-
-      end module sample_pgstar_plot
-      
-      
+      end subroutine plot
+
+   end subroutine do_my_plot
+
+end module sample_pgstar_plot
 
 ! inlist_for_my_pgstar_plots
 
 ! remove the leading !'s to use this
 
-
 !&my_pgstar
 !
 !         my_win_flag = .true.
 !
 !         my_win_width = 7
 !         my_win_aspect_ratio = 0.62 ! aspect_ratio = height/width
-!         
+!
 !         my_xaxis_by = 'mass' ! same choices as for main window xaxis_by
 !         my_xmin = -101 ! only used if > -100
 !         my_xmax = -101 ! only used if > -100
-!         
+!
 !         ! file output
 !         my_file_flag = .false.
 !         my_file_dir = 'pgstar_out'
@@ -449,4 +426,4 @@ end module sample_pgstar_plot
 !
 !
 !/ ! end of my_pgstar namelist
-      
+
diff --git a/star/private/adjust_mass.f90 b/star/private/adjust_mass.f90
index 0623c2a05..42365ac4b 100644
--- a/star/private/adjust_mass.f90
+++ b/star/private/adjust_mass.f90
@@ -149,7 +149,7 @@ subroutine update_radius(s)
 
          ! Intermediates
          integer j, nz
-         real(dp) r_new, vol00, volp1, cell_vol         
+         real(dp) r_new, vol00, volp1, cell_vol
 
          nz = s%nz
 
@@ -186,12 +186,11 @@ subroutine do_adjust_mass(s, species, ierr)
          integer, intent(out) :: ierr
 
          real(dp) :: &
-            dt, delta_m, old_mstar, new_mstar, old_J, new_J, factor, total, &
-            frac, env_mass, mmax, alfa, new_xmstar, old_xmstar, removed, &
+            dt, delta_m, old_mstar, new_mstar, total, &
+            frac, env_mass, mmax, new_xmstar, old_xmstar, removed, &
             q_for_just_added, xq_for_CpT_absMdot_div_L, sum_dq, dm, sumx
 
-         real(dp), dimension(species) :: &
-            xaccrete, mtot_init, mtot_final
+         real(dp), dimension(species) :: xaccrete, mtot_init
          real(dp), dimension(:), allocatable :: &
             rxm_old, rxm_new, old_cell_mass, new_cell_mass, &
             oldloc, newloc, oldval, newval, xm_old, xm_new, &
@@ -537,7 +536,7 @@ real(dp) function angular_momentum_removed(ierr) result(J)
             ! when call this, s% j_rot is still for old mass
             integer, intent(out) :: ierr
             integer :: k
-            real(dp) :: r2, dmm1, dm00, dm, dm_sum, dm_lost
+            real(dp) :: dmm1, dm00, dm, dm_sum, dm_lost
             include 'formats'
             ierr = 0
             J = 0
@@ -608,7 +607,7 @@ subroutine do_work_arrays(alloc_flag, ierr)
             call work_array(s, alloc_flag, crit, &
                 work, nz*pm_work_size, nz_alloc_extra, 'adjust_mass work', ierr)
             if (ierr /= 0) return
-         end subroutine do_work_arrays            
+         end subroutine do_work_arrays
 
       end subroutine do_adjust_mass
 
@@ -621,12 +620,12 @@ subroutine revise_q_and_dq( &
          real(dp), intent(in) :: old_xmstar, new_xmstar, delta_m
          integer, intent(out) :: k_const_mass, ierr
 
-         integer :: k, kA, kB, j00, jp1, k_check
-         real(dp) :: lnTlim_A, lnTlim_B, sumdq, sumdq1, sumdq2, sumdq3, &
-            min_xq_const_mass, min_q_for_kB, mold_o_mnew, lnTmax, lnT_A, lnT_B, &
+         integer :: k, kA, kB, j00, jp1
+         real(dp) :: lnTlim_A, lnTlim_B, sumdq, &
+            mold_o_mnew, lnTmax, lnT_A, lnT_B, &
             xqA, xqB_old, xqB_new, qfrac, frac, dqacc
          real(dp) :: xq(nz)
-         real(qp) :: qfrac_qp, frac_qp, mold_o_mnew_qp, q1, q2, q3, q4
+         real(qp) :: qfrac_qp, frac_qp, mold_o_mnew_qp, q1, q2
          real(qp) :: adjust_mass_outer_frac, adjust_mass_mid_frac, adjust_mass_inner_frac
          integer, parameter :: min_kA = 5
          logical :: dbg, flag
@@ -889,7 +888,6 @@ subroutine set1_xa(s, k, nz, species, xa_old, xaccrete, &
             old_cell_xbdy, new_cell_xbdy, mmax, old_cell_mass, new_cell_mass, ierr)
          ! set new values for s% xa(:,k)
          use num_lib, only: binary_search
-         use chem_def, only: chem_isos
          type (star_info), pointer :: s
          integer, intent(in) :: k, nz, species
          real(dp), intent(in) :: mmax
@@ -1139,11 +1137,10 @@ subroutine set_omega_adjust_mass( &
             old_xout, new_xout, old_dmbar, new_dmbar, old_j_rot, extra_work
          integer, intent(out) :: ierr
 
-         integer :: k, k0, op_err, old_k, new_k, k_uniform
+         integer :: k, k0, op_err
          logical :: okay
-         real(dp) :: old_j_tot, new_j_tot, goal_total_added, actual_total_added, &
-            f, jtot_bdy, goal_total, bdy_j, bdy_total, inner_total, outer_total, &
-            msum, isum, jsum, omega_uniform
+         real(dp) :: old_j_tot, goal_total_added, actual_total_added, &
+            goal_total, bdy_j, bdy_total, inner_total, outer_total
 
          include 'formats'
 
@@ -1249,7 +1246,7 @@ subroutine set1_irot(s, k, k_below_just_added, jrot_known) ! using lnR_for_d_dt_
          integer, intent(in) :: k, k_below_just_added
          logical, intent(in) :: jrot_known
 
-         real(dp) :: r00, r003, ri, ro, rp13, rm13
+         real(dp) :: r00
          real(dp) :: w_div_wcrit_roche
 
          r00 = get_r_from_xh(s,k)
@@ -1284,7 +1281,7 @@ subroutine set1_omega(s, k, k_below_just_added, nz, &
 
          real(dp) :: xm_outer, xm_inner, j_tot, xm0, xm1, new_point_dmbar, &
             dm_sum, dm
-         integer :: kk, k_outer, j
+         integer :: kk, k_outer
 
          integer, parameter :: k_dbg = -1
 
diff --git a/star/private/adjust_mesh.f90 b/star/private/adjust_mesh.f90
index ae6989c76..b143cfb4d 100644
--- a/star/private/adjust_mesh.f90
+++ b/star/private/adjust_mesh.f90
@@ -59,7 +59,7 @@ integer function remesh(s)
             num_gvals, j, cid, cid_max, unchanged, split, merged, revised
          type (star_info), target :: copy_info
          type (star_info), pointer :: c, prv
-         real(dp) :: delta_coeff, LH, sum_L_other, sum_L_other_limit, A_max, &
+         real(dp) :: delta_coeff, sum_L_other, sum_L_other_limit, A_max, &
             mesh_max_allowed_ratio, tmp, J_tot1, J_tot2, center_logT, alfa, beta, &
             d_dlnR00, d_dlnRp1, d_dv00, d_dvp1
          real(dp), pointer, dimension(:) :: &
@@ -71,7 +71,6 @@ integer function remesh(s)
          character (len=32) :: gval_names(max_allowed_gvals)
          logical, dimension(max_allowed_gvals) :: &
             gval_is_xa_function, gval_is_logT_function
-         logical :: changed_mesh
          logical, parameter :: dbg = .false.
 
          real(dp), parameter :: max_sum_abs = 10d0
@@ -528,7 +527,7 @@ integer function remesh(s)
          subroutine set_types_of_new_cells(cell_type, ierr)
             integer, pointer :: cell_type(:)
             integer, intent(out) :: ierr
-            integer :: k, k_old, k_old_prev, new_type
+            integer :: k, k_old, new_type
 
             include 'formats'
             ierr = 0
diff --git a/star/private/adjust_mesh_split_merge.f90 b/star/private/adjust_mesh_split_merge.f90
index 7a6d68ce4..9b97c0e3d 100644
--- a/star/private/adjust_mesh_split_merge.f90
+++ b/star/private/adjust_mesh_split_merge.f90
@@ -86,20 +86,19 @@ end function remesh_split_merge
 
 
       subroutine amr(s,ierr)
-         use chem_def, only: ih1
          use hydro_rotation, only: w_div_w_roche_jrot, update1_i_rot_from_xh
          use star_utils, only: get_r_from_xh
          type (star_info), pointer :: s
          integer, intent(out) :: ierr
-         real(dp) :: TooBig, TooSmall, MaxTooBig, MaxTooSmall, dr, minE
-         real(dp) :: grad_xa(s% species), cell_time, test_dr, new_xa(s% species), &
+         real(dp) :: TooBig, TooSmall, MaxTooBig, MaxTooSmall
+         real(dp) :: grad_xa(s% species), new_xa(s% species), &
             tau_center, r00
-         integer :: iTooBig, iTooSmall, iter, k, k0, species, &
-            nz, i_h1, num_split, num_merge, nz_old
+         integer :: iTooBig, iTooSmall, iter, k, species, &
+            nz, num_split, num_merge, nz_old
          include 'formats'
          species = s% species
          nz_old = s% nz
-         ierr = 0         
+         ierr = 0
          num_split = 0
          num_merge = 0
          MaxTooSmall = s% split_merge_amr_MaxShort
@@ -254,13 +253,13 @@ subroutine biggest_smallest( &
          real(dp), intent(out) :: TooBig, TooSmall
          integer, intent(out) :: iTooBig, iTooSmall
          real(dp) :: &
-            oversize_ratio, undersize_ratio, abs_du_div_cs, outer_fraction, &
+            oversize_ratio, undersize_ratio, abs_du_div_cs, &
             xmin, xmax, dx_actual, xR, xL, dq_min, dq_max, dx_baseline, &
             outer_dx_baseline, inner_dx_baseline, inner_outer_q, r_core_cm, &
             target_dr_core, target_dlnR_envelope, target_dlnR_core, target_dr_envelope
          logical :: hydrid_zoning, flipped_hydrid_zoning, log_zoning, logtau_zoning, &
             du_div_cs_limit_flag
-         integer :: nz, nz_baseline, k, kmin, nz_r_core
+         integer :: nz, nz_baseline, k, nz_r_core
          real(dp), pointer :: v(:), r_for_v(:)
 
          include 'formats'
@@ -270,7 +269,7 @@ subroutine biggest_smallest( &
          flipped_hydrid_zoning = s% split_merge_amr_flipped_hybrid_zoning
          log_zoning = s% split_merge_amr_log_zoning
          logtau_zoning = s% split_merge_amr_logtau_zoning
-         nz_baseline = s% split_merge_amr_nz_baseline         
+         nz_baseline = s% split_merge_amr_nz_baseline
          nz_r_core = s% split_merge_amr_nz_r_core
          if (s% split_merge_amr_mesh_delta_coeff /= 1d0) then
             nz_baseline = int(dble(nz_baseline)/s% split_merge_amr_mesh_delta_coeff)
@@ -484,24 +483,21 @@ subroutine do_merge(s, i_merge, species, new_xa, ierr)
          real(dp), intent(inout) :: new_xa(species)
          integer, intent(out) :: ierr
          logical :: merge_center
-         integer :: i, ip, i0, im, k, q, nz, qi_max, qim_max, op_err
-         real(dp) :: max_lgT_diff, max_lgrho_diff
+         integer :: i, ip, i0, im, q, nz, qi_max, qim_max
          real(dp) :: &
-            rR, rL, drR, drL, rC, rho, P, v, &
-            dm, dm_i, dm_ip, m_old, star_PE0, star_PE1, &
-            cell_mom, cell_ie, cell_etrb, min_IE, d_IE, d_KE, d_Esum, &
+            drR, drL, v, &
+            dm, dm_i, dm_ip, star_PE0, star_PE1, &
+            cell_ie, cell_etrb, &
             Esum_i, KE_i, PE_i, IE_i, Etrb_i, &
             Esum_ip, KE_ip, PE_ip, IE_ip, Etrb_ip, &
-            Esum, KE, PE, IE, Esum1, KE1, PE1, IE1, &
-            Etot0, KEtot0, PEtot0, IEtot0, &
-            Etot1, KEtot1, PEtot1, IEtot1, &
-            vt_i, vt_ip, j_rot_new, j_rot_p1_new, J_old, &
+            KE, &
+            j_rot_new, j_rot_p1_new, J_old, &
             dmbar_old, dmbar_p1_old, dmbar_p2_old, &
             dmbar_new, dmbar_p1_new
          include 'formats'
 
          ierr = 0
-         s% need_to_setvars = .true.         
+         s% need_to_setvars = .true.
          star_PE0 = get_star_PE(s)
          nz = s% nz
 
@@ -525,7 +521,7 @@ subroutine do_merge(s, i_merge, species, new_xa, ierr)
             end if
          end if
 
-         merge_center = (i == nz)         
+         merge_center = (i == nz)
          if (merge_center) i = i-1
          ip = i+1
          if (s% split_merge_amr_avoid_repeated_remesh .and. &
@@ -700,7 +696,7 @@ subroutine revise_star_radius(s, star_PE0, star_PE1)
          type (star_info), pointer :: s
          real(dp), intent(in) :: star_PE0, star_PE1
          integer :: k
-         real(dp) :: frac, r, star_PE, new_frac
+         real(dp) :: frac
          include 'formats'
          if (star_PE1 == 0d0 .or. star_PE0 == star_PE1) return
          frac = star_PE1/star_PE0
@@ -821,24 +817,22 @@ subroutine do_split(s, i_split, species, tau_center, grad_xa, new_xa, ierr)
          real(dp) :: tau_center, grad_xa(species), new_xa(species)
          integer, intent(out) :: ierr
          integer :: i, ip, j, jp, q, nz, nz_old, &
-            iR, iC, iL, imin, imax, op_err
+            iR, iC, iL
          real(dp) :: &
             cell_Esum_old, cell_KE_old, cell_PE_old, cell_IE_old, cell_Etrb_old, &
             rho_RR, rho_iR, rR, rL, dr, dr_old, rC, dV, dVR, dVL, dM, dML, dMR, rho, &
             v, v2, energy, v2_R, energy_R, rho_R, v2_C, energy_C, rho_C, v2_L, energy_L, rho_L, &
             dLeft, dRght, dCntr, grad_rho, grad_energy, grad_v2, &
-            sumx, sumxp, new_xaL, new_xaR, star_PE0, star_PE1, got_cell_Esum, &
-            got_cell_Esum_R, got_cell_KE_R, got_cell_PE_R, got_cell_IE_R, &
-            got_cell_Esum_L, got_cell_KE_L, got_cell_PE_L, got_cell_IE_L, &
+            sumx, sumxp, new_xaL, new_xaR, star_PE0, star_PE1, &
             grad_alpha, f, new_alphaL, new_alphaR, v_R, v_C, v_L, min_dm, &
             mlt_vcL, mlt_vcR, tauL, tauR, etrb, etrb_L, etrb_C, etrb_R, grad_etrb, &
             j_rot_new, dmbar_old, dmbar_p1_old, dmbar_new, dmbar_p1_new, dmbar_p2_new, J_old
-         logical :: okay, done, use_new_grad_rho
+         logical :: done, use_new_grad_rho
          include 'formats'
 
          ierr = 0
          star_PE0 = get_star_PE(s)
-         s% need_to_setvars = .true.         
+         s% need_to_setvars = .true.
          nz = s% nz
          s% num_hydro_splits = s% num_hydro_splits + 1
          done = .false.
@@ -891,7 +885,7 @@ subroutine do_split(s, i_split, species, tau_center, grad_xa, new_xa, ierr)
             write(*,2) 'tauR', i, tauR
             write(*,2) 'nz', nz
             call mesa_error(__FILE__,__LINE__,'do_split')
-            !$omp end critical (adjust_mesh_split_merge_crit1)         
+            !$omp end critical (adjust_mesh_split_merge_crit1)
          end if
                  
          dr = rR - rL
@@ -980,7 +974,7 @@ subroutine do_split(s, i_split, species, tau_center, grad_xa, new_xa, ierr)
             v_R = s% u(iR)
             v2_R = v_R*v_R
             v_C = s% u(iC)
-            v2_C = v_C*v_C         
+            v2_C = v_C*v_C
             v_L = s% u(iL)
             v2_L = v_L*v_L
             if ((v_L - v_C)*(v_C - v_R) <= 0) then ! not strictly monotonic velocities
@@ -1111,7 +1105,7 @@ subroutine do_split(s, i_split, species, tau_center, grad_xa, new_xa, ierr)
                write(*,2) 'rho_L', iC, rho_L
                write(*,'(A)')
                call mesa_error(__FILE__,__LINE__,'failed in do_split extrapolation of density from above')
-   !$omp end critical  (adjust_mesh_split_merge_crit2)        
+   !$omp end critical  (adjust_mesh_split_merge_crit2)
             end if
          
          end if
@@ -1332,7 +1326,7 @@ subroutine update_xh_eos_and_kap(s,i,species,new_xa,ierr)
          integer, intent(in) :: i, species
          real(dp) :: new_xa(species)
          integer, intent(out) :: ierr
-         real(dp) :: rho, logRho, new_lnT, revised_energy, xsum
+         real(dp) :: rho, logRho, new_lnT, revised_energy
          integer :: q
          include 'formats'
          ierr = 0
@@ -1399,7 +1393,6 @@ end function get1_grad
       real(dp) function total_KE(s)
          type (star_info), pointer :: s
          integer :: k
-         real(dp) :: v0, v1
          include 'formats'
          total_KE = 0
          if (s% u_flag) then
@@ -1437,7 +1430,7 @@ end function total_PE
       real(dp) function total_IE(s)
          type (star_info), pointer :: s
          integer :: k
-         real(dp) :: specific_ie, egas
+         real(dp) :: specific_ie
          total_IE = 0
          do k=1,s% nz
             specific_ie = s% energy(k)
diff --git a/star/private/adjust_mesh_support.f90 b/star/private/adjust_mesh_support.f90
index e02006591..6f94bbf5e 100644
--- a/star/private/adjust_mesh_support.f90
+++ b/star/private/adjust_mesh_support.f90
@@ -56,11 +56,11 @@ subroutine get_gval_info( &
          logical, intent(out), dimension(max_allowed_gvals) :: &
             gval_is_xa_function, gval_is_logT_function
 
-         integer :: j, k, other_ierr
+         integer :: j, k
          logical, parameter :: dbg = .false.
          real(dp), allocatable, dimension(:) :: src
          real(dp) :: eps_min_for_delta, &
-               dlog_eps_dlogP_full_off, dlog_eps_dlogP_full_on, alfa_czb
+               dlog_eps_dlogP_full_off, dlog_eps_dlogP_full_on
          real(dp), dimension(:,:), pointer :: gvals
 
          gvals(1:nz,1:num_gvals) => gvals1(1:nz*num_gvals)
@@ -290,7 +290,7 @@ function blend_coef(coef_start, alfa) result(coef)
            ! 0.5 < alfa < 1 : linear (coeff_start -> 1)
 
            beta = 2d0 * (alfa - 0.5d0)
-           if (beta .lt. 0d0) then
+           if (beta < 0d0) then
               coef = coef_start
            else
               coef = coef_start*(1d0 - beta) + beta
diff --git a/star/private/adjust_xyz.f90 b/star/private/adjust_xyz.f90
index 411fcaad0..7929e8981 100644
--- a/star/private/adjust_xyz.f90
+++ b/star/private/adjust_xyz.f90
@@ -160,7 +160,6 @@ subroutine do_xa(nz, xh, xa_startv)
             real(dp), pointer :: xa_new(:,:)
             real(dp), parameter :: max_sum_abs = 10d0
             real(dp), parameter :: xsum_tol = 1d-2
-            integer :: k, i
             allocate(xa_new(species, nz + nz_alloc_extra), stat=ierr)
             if (ierr /= 0) return
             call set_x_new( &
@@ -251,10 +250,10 @@ subroutine set_new_abundances( &
             old_chem_id(old_num_isos), old_net_iso(num_chem_isos)
          integer, intent(out) :: ierr
 
-         real(dp) :: &            
+         real(dp) :: &
             total_neut, total_h, total_he, total_c, total_n, total_o, &
             total_ne, total_mg, total_si, total_s, total_ar, total_ca, &
-            total_fe, total_co, total_ni, other, &
+            total_fe, total_co, other, &
             old_total_neut, old_total_h, old_total_he, old_total_c, old_total_n, old_total_o, &
             old_total_ne, old_total_mg, old_total_si, old_total_s, old_total_ar, old_total_ca, &
             old_total_fe, old_total_co, old_total_ni, old_other, &
@@ -643,8 +642,7 @@ subroutine set_y(s, y, nzlo, nzhi, ierr)
          real(dp), intent(in) :: y
          integer, intent(out) :: ierr
 
-         real(dp) :: xh1, xhe3, xhe4, z, ratio, desired_xh1, desired_xhe4, &
-            new_xh1, new_xhe3, new_xhe4, new_z, new_ratio
+         real(dp) :: xh1, xhe3, xhe4, z, ratio, desired_xh1, desired_xhe4
          include 'formats'
 
          ierr = 0
@@ -865,7 +863,7 @@ subroutine set_composition(id, nzlo, nzhi, num_species, xa_new, ierr)
          end if
          if (abs(1d0-sum(xa_new(1:species))) > 1d-6) then
             ierr = -1
-            s% retry_message = 'set_composition requires new mass fractions to add to 1.'
+            s% retry_message = 'set_composition requires new mass fractions to add to 1'
             if (s% report_ierr) write(*, *) s% retry_message
             return
          end if
@@ -921,7 +919,7 @@ subroutine get_xa_for_accretion(s, xa, ierr)
             end do
             if (abs(1d0 - sum(xa(1:species))) > 1d-2) then
                write(*,'(a)') &
-                  'get_xa_for_accretion: accretion species mass fractions do not add to 1.0'
+                  'get_xa_for_accretion: accretion species mass fractions do not add to 1'
                write(*,1) 'sum(xa(1:species))', sum(xa(1:species))
                do j=1,s% num_accretion_species
                   write(*,2) trim(s% accretion_species_id(j)), j, xa(j)
@@ -1013,6 +1011,10 @@ subroutine get_xa_for_standard_metals( &
                zfrac(:) = L09_element_zfrac(:)
             case (A09_Prz_zfracs)
                zfrac(:) = A09_Prz_zfrac(:)
+            case (MB22_photospheric_zfracs)
+               zfrac(:) = MB22_photospheric_element_zfrac(:)
+            case (AAG21_photospheric_zfracs)
+               zfrac(:) = AAG21_photospheric_element_zfrac(:)
             case (Custom_zfracs) ! use non-standard values given in controls
                zfrac(:) = 0
                zfrac(e_li) = s% z_fraction_li
diff --git a/star/private/alloc.f90 b/star/private/alloc.f90
index 045906812..93ef72e0c 100644
--- a/star/private/alloc.f90
+++ b/star/private/alloc.f90
@@ -82,7 +82,6 @@ module alloc
       integer :: num_allocs, num_deallocs
 
 
-
       contains
 
       
@@ -469,8 +468,7 @@ subroutine star_info_arrays(s, c_in, action_in, ierr)
          integer, intent(in) :: action_in
          integer, intent(out) :: ierr
 
-         integer :: nz, species, num_reactions, &
-            nvar, nvar_hydro, nvar_chem, sz_new, psz_new, action
+         integer :: nz, species, num_reactions, nvar, nvar_hydro, nvar_chem, sz_new, action
          type (star_info), pointer :: c
          character (len=128) :: null_str
 
@@ -508,7 +506,7 @@ subroutine star_info_arrays(s, c_in, action_in, ierr)
 
             if (action /= do_fill_arrays_with_NaNs) then
                ! these arrays must not be filled with NaNs  
-               ! because they contain the inputs to the step          
+               ! because they contain the inputs to the step
                call do2(s% xh, c% xh, nvar_hydro, 'xh')
                if (failed('xh')) exit
                call do2(s% xa, c% xa, species, 'xa')
@@ -526,7 +524,7 @@ subroutine star_info_arrays(s, c_in, action_in, ierr)
                call do1(s% omega, c% omega)
                if (failed('omega')) exit
                call do1(s% j_rot, c% j_rot)
-               if (failed('j_rot')) exit               
+               if (failed('j_rot')) exit
                call do1(s% mlt_vc, c% mlt_vc)
                if (failed('mlt_vc')) exit
                call do1(s% conv_vel, c% conv_vel)
@@ -573,7 +571,7 @@ subroutine star_info_arrays(s, c_in, action_in, ierr)
             call do1(s% r_polar, c% r_polar)
             if (failed('r_polar')) exit
             call do1(s% r_equatorial, c% r_equatorial)
-            if (failed('r_equatorial')) exit               
+            if (failed('r_equatorial')) exit
 
             call do1(s% lnd, c% lnd)
             if (failed('lnd')) exit
@@ -769,7 +767,7 @@ subroutine star_info_arrays(s, c_in, action_in, ierr)
             if (failed('dr_div_csound')) exit
 
             call do1(s% ergs_error, c% ergs_error)
-            if (failed('ergs_error')) exit            
+            if (failed('ergs_error')) exit
             call do1(s% gradr_factor, c% gradr_factor)
             if (failed('gradr_factor')) exit
             call do1(s% adjust_mlt_gradT_fraction, c% adjust_mlt_gradT_fraction)
@@ -1416,7 +1414,6 @@ subroutine star_info_arrays(s, c_in, action_in, ierr)
 
          subroutine do1_ad(ptr, other)
             type(auto_diff_real_star_order1), dimension(:), pointer :: ptr, other
-            type(auto_diff_real_star_order1), dimension(:), pointer :: tmp
             if (action == do_fill_arrays_with_NaNs) then
                call fill_ad_with_NaNs(ptr,1,-1)
             else if (action == do_copy_pointers_and_resize) then
@@ -1444,7 +1441,6 @@ end subroutine do1_ad
 
          subroutine do1(ptr, other)
             real(dp), dimension(:), pointer :: ptr, other
-            real(dp), dimension(:), pointer :: tmp
             if (action == do_fill_arrays_with_NaNs) then
                call fill_with_NaNs(ptr)
             else if (action == do_copy_pointers_and_resize) then
@@ -1475,7 +1471,6 @@ end subroutine do1
 
          subroutine do1_neq(ptr, other)
             real(dp), dimension(:), pointer :: ptr, other
-            real(dp), dimension(:), pointer :: tmp
             if (action == do_fill_arrays_with_NaNs) then
                call fill_with_NaNs(ptr)
             else if (action == do_copy_pointers_and_resize) then
@@ -1504,7 +1499,6 @@ end subroutine do1_neq
 
          subroutine do1_integer(ptr, other)
             integer, dimension(:), pointer :: ptr, other
-            integer, dimension(:), pointer :: tmp
             if (action == do_copy_pointers_and_resize) then
                ptr => other
                if (nz <= size(ptr,dim=1)) return
@@ -1522,7 +1516,6 @@ end subroutine do1_integer
          subroutine do2_integer(ptr, other, sz1)
             integer, dimension(:,:), pointer :: ptr, other
             integer, intent(in) :: sz1
-            real(dp), dimension(:,:), pointer :: tmp
             if (action == do_copy_pointers_and_resize) then
                ptr => other
                if (sz1 == size(ptr, dim=1) .and. nz <= size(ptr, dim=2)) return
@@ -1539,7 +1532,6 @@ end subroutine do2_integer
 
          subroutine do1_logical(ptr, other)
             logical, dimension(:), pointer :: ptr, other
-            logical, dimension(:), pointer :: tmp
             if (action == do_copy_pointers_and_resize) then
                ptr => other
                if (nz <= size(ptr,dim=1)) return
@@ -1558,7 +1550,6 @@ subroutine do2(ptr, other, sz1, str)
             real(dp), dimension(:,:), pointer :: ptr, other
             integer, intent(in) :: sz1
             character (len=*), intent(in) :: str
-            real(dp), dimension(:,:), pointer :: tmp
             include 'formats'
             if (action == do_fill_arrays_with_NaNs) then
                call fill_with_NaNs_2d(ptr)
@@ -1589,7 +1580,6 @@ end subroutine do2
          subroutine do3(ptr, other, sz1, sz2)
             real(dp), dimension(:,:,:), pointer :: ptr, other
             integer, intent(in) :: sz1, sz2
-            real(dp), dimension(:,:,:), pointer :: tmp
             if (action == do_fill_arrays_with_NaNs) then
                call fill_with_NaNs_3d(ptr)
             elseif (action == do_copy_pointers_and_resize) then
@@ -1622,7 +1612,6 @@ end subroutine do3
          subroutine do2_quad(ptr, other, sz1)
             real(qp), dimension(:,:), pointer :: ptr, other
             integer, intent(in) :: sz1
-            real(qp), dimension(:,:), pointer :: tmp
             if (action == do_copy_pointers_and_resize) then
                ptr => other
                if (sz1 == size(ptr, dim=1) .and. nz <= size(ptr, dim=2)) return
@@ -1889,7 +1878,6 @@ subroutine do2D_quad(s, ptr, sz1, sz2, action, ierr)
          integer, intent(in) :: sz1, sz2, action
          integer, intent(out) :: ierr
          real(qp), dimension(:,:), pointer :: ptr2
-         real(qp) :: nan
          integer :: old_sz2, j, i
          ierr = 0
          select case(action)
@@ -2968,7 +2956,6 @@ subroutine return_integer_work_array(s, ptr)
 
          logical function return1(itry)
             integer, intent(in) :: itry
-            integer, pointer :: p(:)
             if (associated(int_work_pointers(itry)% p)) then
                return1 = .false.
                return
@@ -3073,7 +3060,6 @@ subroutine return_logical_work_array(s, ptr)
 
          logical function return1(itry)
             integer, intent(in) :: itry
-            logical, pointer :: p(:)
             if (associated(logical_work_pointers(itry)% p)) then
                return1 = .false.
                return
@@ -3088,8 +3074,6 @@ end subroutine return_logical_work_array
       
       subroutine shutdown_alloc ()
 
-         integer :: i
-
          call free_work_arrays()
 
       end subroutine shutdown_alloc
@@ -3230,8 +3214,4 @@ subroutine non_crit_return_work_array(s, ptr, str)
       end subroutine non_crit_return_work_array
 
 
-
-
       end module alloc
-
-
diff --git a/star/private/atm_support.f90 b/star/private/atm_support.f90
index 1e301da28..ea96af6a2 100644
--- a/star/private/atm_support.f90
+++ b/star/private/atm_support.f90
@@ -73,9 +73,6 @@ subroutine get_atm_PT( &
     integer, intent(out)      :: ierr
 
     real(dp) :: kap
-    real(dp) :: tau
-    real(dp) :: r_surf
-    real(dp) :: L_surf
     
     if (is_bad(tau_surf)) then
        write(*,*) 'tau_surf', tau_surf
@@ -517,7 +514,6 @@ subroutine get_table( &
     real(dp) :: dlnP_dlnM_b
     real(dp) :: dlnP_dlnkap_b
     real(dp) :: kap_a
-    real(dp) :: tau_b
 
     include 'formats'
 
@@ -1256,8 +1252,6 @@ subroutine eos_proc( &
     real(dp) :: Pgas
     real(dp) :: rho, gamma, energy
     real(dp) :: logRho, logRho_guess
-    real(dp) :: dlnRho_dlnPgas
-    real(dp) :: dlnRho_dlnT
     real(dp) :: dres_dxa(num_eos_basic_results,s% species)
 
     T = exp(lnT)
diff --git a/star/private/auto_diff_support.f90 b/star/private/auto_diff_support.f90
index 42bfab3f6..a6e685e72 100644
--- a/star/private/auto_diff_support.f90
+++ b/star/private/auto_diff_support.f90
@@ -339,7 +339,7 @@ function wrap_w_m1(s, k) result(w_m1)
          if (k > 1) then
             w_m1 % val = s%w(k-1)
             w_m1 % d1Array(i_w_m1) = 1d0
-         end if            
+         end if
       end function wrap_w_m1
 
       function wrap_w_00(s, k) result(w_00)
@@ -1058,7 +1058,7 @@ function wrap_opt_time_center_r_p1(s, k) result(r_tc)
                r_tc = 0.5d0*(r_tc + s% r_center)
             end if
          end if
-      end function wrap_opt_time_center_r_p1      
+      end function wrap_opt_time_center_r_p1
       
       function wrap_opt_time_center_v_m1(s, k) result(v_tc)
          type (star_info), pointer :: s
@@ -1075,7 +1075,7 @@ function wrap_opt_time_center_v_m1(s, k) result(v_tc)
             if (s% using_velocity_time_centering) &
                v_tc = 0.5d0*(v_tc + s% u_face_start(k-1))
          end if
-      end function wrap_opt_time_center_v_m1      
+      end function wrap_opt_time_center_v_m1
       
       function wrap_opt_time_center_v_00(s, k) result(v_tc)
          type (star_info), pointer :: s
@@ -1091,7 +1091,7 @@ function wrap_opt_time_center_v_00(s, k) result(v_tc)
             if (s% using_velocity_time_centering) &
                v_tc = 0.5d0*(v_tc + s% u_face_start(k))
          end if
-      end function wrap_opt_time_center_v_00     
+      end function wrap_opt_time_center_v_00
       
       function wrap_opt_time_center_v_p1(s, k) result(v_tc)
          type (star_info), pointer :: s
@@ -1184,7 +1184,7 @@ function wrap_w_div_wc_m1(s, k) result(w_div_wc_m1)
          if (k > 1) then
             w_div_wc_m1 % val = s% w_div_w_crit_roche(k-1)
             w_div_wc_m1 % d1Array(i_w_div_wc_m1) = 1d0
-         end if            
+         end if
       end function wrap_w_div_wc_m1
 
       function wrap_w_div_wc_00(s, k) result(w_div_wc_00)
@@ -1216,7 +1216,7 @@ function wrap_jrot_m1(s, k) result(jrot_m1)
          if (k > 1) then
             jrot_m1 % val = s% j_rot(k-1)
             jrot_m1 % d1Array(i_jrot_m1) = 1d0
-         end if            
+         end if
       end function wrap_jrot_m1
 
       function wrap_jrot_00(s, k) result(jrot_00)
@@ -1248,7 +1248,7 @@ function wrap_omega_m1(s, k) result(omega_m1)
          jrot_m1 = wrap_jrot_m1(s,k)
          if (k > 1) then
             omega_m1 = jrot_m1/shift_m1(s% i_rot(k-1))
-         end if            
+         end if
       end function wrap_omega_m1
 
       function wrap_omega_00(s, k) result(omega_00)
@@ -1279,7 +1279,7 @@ function wrap_xtra1_m1(s, k) result(xtra1_m1)
          if (k > 1) then
             xtra1_m1 % val = 0d0
             xtra1_m1 % d1Array(i_xtra1_m1) = 1d0
-         end if            
+         end if
       end function wrap_xtra1_m1
 
       function wrap_xtra1_00(s, k) result(xtra1_00)
@@ -1311,7 +1311,7 @@ function wrap_xtra2_m1(s, k) result(xtra2_m1)
          if (k > 1) then
             xtra2_m1 % val = 0d0
             xtra2_m1 % d1Array(i_xtra2_m1) = 1d0
-         end if            
+         end if
       end function wrap_xtra2_m1
 
       function wrap_xtra2_00(s, k) result(xtra2_00)
diff --git a/star/private/brunt.f90 b/star/private/brunt.f90
index fe44ab861..533dada65 100644
--- a/star/private/brunt.f90
+++ b/star/private/brunt.f90
@@ -37,7 +37,6 @@ module brunt
       logical, parameter :: dbg = .false.
 
 
-
       contains
 
 
@@ -50,7 +49,7 @@ subroutine do_brunt_B(s,nzlo,nzhi,ierr)
          type (star_info), pointer :: s
          integer, intent(in) :: nzlo, nzhi
          integer, intent(out) :: ierr
-         integer :: nz, k, i
+         integer :: nz, k
          real(dp), allocatable, dimension(:) :: smoothing_array
 
          include 'formats'
@@ -126,7 +125,7 @@ subroutine do_brunt_N2(s,nzlo,nzhi,ierr)
          real(dp), allocatable, dimension(:) :: &
             rho_P_chiT_chiRho, rho_P_chiT_chiRho_face
 
-         integer :: nz, k, i
+         integer :: nz, k
 
          include 'formats'
 
@@ -200,8 +199,7 @@ subroutine do_brunt_B_MHM_form(s, nzlo, nzhi, ierr)
 
 
          real(dp), allocatable, dimension(:) :: T_face, rho_face, chiT_face, chiRho_face
-         real(dp) :: brunt_B
-         integer :: nz, species, k, i, op_err
+         integer :: nz, species, k, op_err
          logical, parameter :: dbg = .false.
 
          include 'formats'
@@ -344,4 +342,3 @@ end subroutine get_brunt_B
 
 
       end module brunt
-
diff --git a/star/private/conv_premix.f90 b/star/private/conv_premix.f90
index 6095e18a6..4b3baa8ba 100644
--- a/star/private/conv_premix.f90
+++ b/star/private/conv_premix.f90
@@ -687,7 +687,7 @@ subroutine init_zone_info_ (s, zi)
 
        call set_penetration_velocities_(s, zi(i))
 
-       ! Set burn types and initial average abundances       
+       ! Set burn types and initial average abundances
 
        call set_burn_data_(s, zi(i))
        call set_abund_data_(s, zi(i))
diff --git a/star/private/create_initial_model.f90 b/star/private/create_initial_model.f90
index 53a87db68..d281067cb 100644
--- a/star/private/create_initial_model.f90
+++ b/star/private/create_initial_model.f90
@@ -40,7 +40,6 @@ module create_initial_model
       real(dp) :: X, Z, Y, G, abar, zbar, z2bar, z53bar, ye
       real (dp) :: Tmin,eps,R_try
 
-
       integer, parameter :: max_species=1000
       real(dp) :: xa(max_species)
       integer, pointer, dimension(:) :: net_iso, chem_id
@@ -76,7 +75,6 @@ subroutine get_create_star_ptr(id,cs,ierr)
       end subroutine get_create_star_ptr
 
 
-
       subroutine build_initial_model(s, ierr)
          use chem_lib, only: basic_composition_info, chem_Xsol
          use adjust_xyz, only: get_xa_for_standard_metals
@@ -88,7 +86,7 @@ subroutine build_initial_model(s, ierr)
 
          integer :: initial_zfracs, i_lum, i, j, k, itry, max_try, id0, id1, id2
          real(dp) :: M, R, initial_y, initial_h1, initial_h2, initial_he3, initial_he4, &
-            S0, Pc0, rhoc0, e0(2), S1, Pc1, e1(2), S2, Pc2, e2(2), det, dPc, dS, safefac, &
+            S0, Pc0, e0(2), S1, Pc1, e1(2), S2, Pc2, e2(2), det, dPc, dS, safefac, &
             initial_z, xsol_he3, xsol_he4, mass_correction, mat(2,2), minv(2,2), sumx
          type (create_star_info), pointer :: cs
 
@@ -255,13 +253,13 @@ subroutine build_initial_model(s, ierr)
       end subroutine build_initial_model
 
 
-
       ! output
       !errvec(1)=(mass-M)/M
       !errvec(2)=(radius-R)/R
       subroutine PSerrfunc(id,Pcguess,Sguess,M,R,errvec)
          integer, intent(in) :: id
-         real(dp) :: Pcguess,Sguess,M,R,errvec(2)
+         real(dp), intent(in) :: Pcguess,Sguess,M,R
+         real(dp), intent(out) :: errvec(2)
 
          integer :: ierr
          real(dp) :: rhoc,Tc,Pc,S
@@ -334,11 +332,11 @@ subroutine PSerrfunc(id,Pcguess,Sguess,M,R,errvec)
 
             ! 4th order rk step
             dy1=dydP*d_P
-            call derivs(cs,P+dP/2d0,S,y+dy1/2d0,dydP)
+            call derivs(cs,P+d_P/2d0,S,y+dy1/2d0,dydP)
             dy2=dydP*d_P
-            call derivs(cs,P+dP/2d0,S,y+dy2/2d0,dydP)
+            call derivs(cs,P+d_P/2d0,S,y+dy2/2d0,dydP)
             dy3=dydP*d_P
-            call derivs(cs,P+dP,S,y+dy3,dydP)
+            call derivs(cs,P+d_P,S,y+dy3,dydP)
             dy4=dydP*d_P
             y=y+dy1/6.d0+dy2/3.d0+dy3/3.d0+dy4/6.d0
             P=P+d_P
@@ -401,7 +399,6 @@ subroutine PSerrfunc(id,Pcguess,Sguess,M,R,errvec)
       end subroutine PSerrfunc
 
 
-
       !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 
@@ -411,7 +408,8 @@ end subroutine PSerrfunc
 
       subroutine derivs(cs,P,S,y,dydP)
          type (create_star_info), pointer :: cs
-         real(dp) :: P,S,y(3),dydP(3)
+         real(dp), intent(in) :: P,S,y(3)
+         real(dp), intent(out) :: dydP(3)
          real(dp) :: r,m,T,rho,intdmT
 
          r=y(1)
@@ -433,7 +431,8 @@ subroutine get_kap_from_rhoT(cs,logrho,logT,kap)
          use kap_def, only: num_kap_fracs
          use kap_lib
          type (create_star_info), pointer :: cs
-         real(dp) :: logrho,logT,kap
+         real(dp), intent(in) :: logrho,logT
+         real(dp), intent(out) :: kap
          real(dp) :: lnfree_e, d_lnfree_e_dlnRho, d_lnfree_e_dlnT
          real(dp) :: eta, d_eta_dlnRho, d_eta_dlnT
          real(dp) :: dlnkap_dlnRho, dlnkap_dlnT
@@ -473,7 +472,8 @@ subroutine get_TRho_from_PS(cs,P,S,T,rho)
          use eos_lib
          use eos_def
          type (create_star_info), pointer :: cs
-         real(dp) :: P,S,T,rho
+         real(dp), intent(in) :: P,S
+         real(dp), intent(out) :: T,rho
 
          real(dp) :: logT_result,log10Rho,dlnRho_dlnPgas_const_T,dlnRho_dlnT_const_Pgas
          real(dp), dimension(num_eos_basic_results) :: &
diff --git a/star/private/ctrls_io.f90 b/star/private/ctrls_io.f90
index dafa6cced..140e1aaec 100644
--- a/star/private/ctrls_io.f90
+++ b/star/private/ctrls_io.f90
@@ -175,7 +175,7 @@ module ctrls_io
     RSP_relax_initial_model, RSP_trace_RSP_build_model, &
    RSP_GREKM_avg_abs_limit, RSP_GREKM_avg_abs_frac_new, RSP_kap_density_factor, RSP_map_columns_filename, &
    RSP_relax_alfap_before_alfat, RSP_max_outer_dm_tries, RSP_max_inner_scale_tries, RSP_T_anchor_tolerance, &
-    ! mass gain or loss  
+    ! mass gain or loss
     mass_change, mass_change_full_on_dt, mass_change_full_off_dt, trace_dt_control_mass_change, &
     min_wind, max_wind, use_accreted_material_j, accreted_material_j, D_omega_mixing_rate, &
     D_omega_mixing_across_convection_boundary, max_q_for_D_omega_zero_in_convection_region, nu_omega_mixing_rate, &
@@ -451,7 +451,7 @@ module ctrls_io
     delta_dX_div_X_cntr_min, delta_dX_div_X_cntr_max, delta_dX_div_X_cntr_limit, delta_dX_div_X_cntr_hard_limit, &
     delta_dX_div_X_drop_only, delta_lg_XH_drop_only, &
     delta_lg_XHe_drop_only, delta_lg_XC_drop_only, delta_lg_XNe_drop_only, delta_lg_XO_drop_only, delta_lg_XSi_drop_only, &
-    delta_XH_drop_only, delta_XHe_drop_only, delta_XC_drop_only, delta_XNe_drop_only, delta_XO_drop_only, delta_XSi_drop_only, &    
+    delta_XH_drop_only, delta_XHe_drop_only, delta_XC_drop_only, delta_XNe_drop_only, delta_XO_drop_only, delta_XSi_drop_only, &
     delta_lg_XH_cntr_min, delta_lg_XH_cntr_max, delta_lg_XH_cntr_limit, delta_lg_XH_cntr_hard_limit, &
     delta_lg_XHe_cntr_min, delta_lg_XHe_cntr_max, delta_lg_XHe_cntr_limit, delta_lg_XHe_cntr_hard_limit, &
     delta_lg_XC_cntr_min, delta_lg_XC_cntr_max, delta_lg_XC_cntr_limit, delta_lg_XC_cntr_hard_limit, &
@@ -490,6 +490,9 @@ module ctrls_io
     atm_build_tau_outer, atm_build_dlogtau, atm_build_errtol, &
 
     use_T_tau_gradr_factor, &
+
+    ! starspots
+    do_starspots, fspot, xspot, &
     
     ! extra heat near surface to model irradiation
     irradiation_flux, column_depth_for_irradiation, &
@@ -636,7 +639,6 @@ recursive subroutine read_controls_file(s, filename, level, ierr)
  integer, intent(in) :: level
  integer, intent(out) :: ierr
  logical, dimension(max_extra_inlists) :: read_extra
- character (len=strlen) :: message
  character (len=strlen), dimension(max_extra_inlists) :: extra
  integer :: unit, i
 
@@ -1285,6 +1287,11 @@ subroutine store_controls(s, ierr)
 
  s% use_T_tau_gradr_factor = use_T_tau_gradr_factor
 
+ ! starspots
+ s% do_starspots = do_starspots
+ s% fspot = fspot
+ s% xspot = xspot
+
  ! extra heat near surface to model irradiation
  s% irradiation_flux = irradiation_flux
  s% column_depth_for_irradiation = column_depth_for_irradiation
@@ -2966,6 +2973,11 @@ subroutine set_controls_for_writing(s, ierr)
  
  use_T_tau_gradr_factor = s% use_T_tau_gradr_factor
 
+ ! starspots
+ do_starspots = s% do_starspots
+ fspot = s% fspot
+ xspot = s% xspot
+
  ! extra heat near surface to model irradiation
  irradiation_flux = s% irradiation_flux
  column_depth_for_irradiation = s% column_depth_for_irradiation
@@ -4140,7 +4152,7 @@ subroutine get_control(s, name, val, ierr)
             exit
          end if
          if(is_iostat_end(iostat)) exit
-      end do   
+      end do
 
       if(len_trim(val) == 0 .and. ind==0 ) ierr = -1
 
diff --git a/star/private/diffusion.f90 b/star/private/diffusion.f90
index df7e9479e..43d2ae4e2 100644
--- a/star/private/diffusion.f90
+++ b/star/private/diffusion.f90
@@ -103,12 +103,12 @@ subroutine do_solve_diffusion( &
          integer, intent(inout) ::  nzlo, nzhi !upper and lower bounds on region
 
          integer :: i, j, k, num_iters, idiag, n, neqs, ku, kl, &
-            ldab, ldafb, ldb, ldx, kmax, h1, he4, nbound, bad_j, bad_k, &
+            ldab, ldafb, ldb, ldx, h1, he4, nbound, bad_j, bad_k, &
             retry_count, max_retries, ierr_dealloc
          real(dp) :: &
-            dt, dt_next, min_dt, time, mstar, mtotal, sum_mass_nzlo_nzhi, xtotal_init(nc), &
-            xtotal(nc), mass_init(nc), frac, err, bad_X, bad_sum, bad_Xsum, &
-            dx_max, dx_avg, tol_correction_max, tol_correction_norm, remaining_time, &
+            dt, min_dt, time, mstar, mtotal, sum_mass_nzlo_nzhi, xtotal_init(nc), &
+            mass_init(nc), bad_X, bad_sum, bad_Xsum, &
+            tol_correction_max, tol_correction_norm, remaining_time, &
             sumx, tmp, timescale, min_lambda, upwind_limit, lambda, max_del, avg_del
 
          integer, parameter :: min_nz_lo = 5
@@ -143,16 +143,14 @@ subroutine do_solve_diffusion( &
          real(dp), dimension(:,:), pointer :: rhs, del
          real(dp), dimension(:,:,:), pointer :: em1, e00, ep1
          integer, pointer :: ipiv1(:)
-         integer :: lrd, lid, j_bad, k_bad, kmax_rad_accel, min_num_substeps, &
+         integer :: lrd, lid, kmax_rad_accel, min_num_substeps, &
             iter_dbg, j_dbg, k_dbg, k_max
          integer(8) :: time0, time1, clock_rate
          integer, pointer :: ipar_decsol(:)
          real(dp), pointer :: rpar_decsol(:)
-         real(dp), dimension(species) :: xa_total_before, xa_total_after
-         real(dp), dimension(m) :: A, C_face, Z_face
-         real(dp) :: X_total_atol, X_total_rtol, b_bad, flow_out, flow_in, &
-            vc_target, vc, vc_old, dt_old, &
-            max_timestep_factor, min_timestep_factor
+         real(dp), dimension(species) :: xa_total_before
+         real(dp), dimension(m) :: A
+         real(dp) :: X_total_atol, X_total_rtol, vc_old, dt_old
          logical :: have_changed_matrix_coeffs, trace, last_step, &
             solved, do_timing, use_isolve
 
@@ -456,7 +454,7 @@ subroutine solve_with_isolve(ierr)
             integer, intent(out) :: ierr
 
             integer :: &
-               i, k, nsteps, lout, iout, idid, ijac, max_steps, &
+               i, k, lout, iout, idid, ijac, max_steps, &
                imas, mlmas, mumas, itol, &
                nzmax, lrd, lid, isparse, &
                liwork, lwork, caller_id, which_solver, which_decsol
@@ -1231,7 +1229,7 @@ subroutine get_timescale( &
          integer, intent(out) :: i_t, k_t
          real(dp), intent(out) :: dt
          integer :: i, j, k
-         real(dp) :: xdm, f, flow_in, flow_out, dt1, dxdt, coeff, &
+         real(dp) :: f, flow_in, flow_out, dt1, dxdt, coeff, &
             flow_in_GT, flow_out_GT, flow_in_SIG, flow_out_SIG, &
             flow_in_max, flow_out_max, &
             flow_in_GT_max, flow_out_GT_max, &
@@ -1557,7 +1555,7 @@ subroutine get_eqn_matrix_entries( &
          real(dp), intent(inout), dimension(:,:) :: dX_dt ! (nc,nz)
          real(dp), intent(inout), dimension(:,:) :: rhs ! (nc,nz)
          real(dp), intent(inout), dimension(:,:,:) :: em1, e00, ep1 ! (nc,nc,nz)
-         integer :: k, j
+         integer :: k
          ! lhs(i,k) := X(i,k) - (flow(i,k) - flow(i,k-1))*dt/cell_dm(k)
          ! rhs(i,k) := X_prev(i,k)
          ! em1(i,j,k) = d(lhs(i,k))/d(X(j,k-1))
@@ -1591,10 +1589,9 @@ subroutine get1_eqn_matrix_entries( &
          real(dp), intent(inout), dimension(:) :: dX_dt ! (nc)
          real(dp), intent(inout), dimension(:,:) :: rhs ! (nc,nz)
          real(dp), intent(inout), dimension(:,:,:) :: em1, e00, ep1 ! (nc,nc,nz)
-         integer :: i, j, jj
+         integer :: i, j
          real(dp) :: alfa, beta, c, coeff, dC_dXj00, dC_dXjm1, dC_dXjp1, &
-            dC, dcoeff_dXjm1, dcoeff_dXj00, dcoeff_dXjp1, max_coeff, &
-            dt_div_dm
+            dC, dcoeff_dXjm1, dcoeff_dXj00, dcoeff_dXjp1, dt_div_dm
 
          include 'formats'
 
@@ -1748,7 +1745,7 @@ subroutine factor_and_solve_matrix( &
          real(dp), pointer :: rpar_decsol(:)
          integer, intent(out) :: ierr
 
-         integer :: i, j, k, caller_id, ierr2
+         integer :: caller_id, ierr2
          integer, pointer :: ipiv1_n(:)
          real(dp), pointer, dimension(:) :: rhs1_n, lblk1_n, dblk1_n, ublk1_n
          real(dp), pointer, dimension(:,:,:) :: lblk, dblk, ublk
@@ -1904,7 +1901,7 @@ subroutine get_min_number_of_classes( &
          integer, intent(out) :: class_chem_id(:) ! (nc)
          character (len=8), intent(out) :: class_name(:) ! (nc)
          real(dp) :: A
-         integer :: i, j
+         integer :: i
          integer, parameter :: c_h = 1, c_he = 2, c_o = 3, c_fe = 4
          class_name(c_h) = 'c_h'
          class_name(c_he) = 'c_he'
diff --git a/star/private/diffusion_procs.f90 b/star/private/diffusion_procs.f90
index 103c6142b..6821910b1 100644
--- a/star/private/diffusion_procs.f90
+++ b/star/private/diffusion_procs.f90
@@ -58,11 +58,8 @@ subroutine fixup( &
          real(dp), intent(out) :: bad_X, bad_sum, bad_Xsum
          integer, intent(out) :: bad_j, bad_k, ierr
 
-         integer :: i, j, jj, k, k1, op_err, rep, num_extreme, &
-            j_max, k_max, k_lo, k_hi, kk, cnt, maxcnt, nsmooth_x_in_fixup
-         real(dp) :: max_lnT_for_smooth, sum_m, m_00, dm, source_mass, frac, err, &
-            max_abs_dx, xm1, x00, xp1, m0, sum0, m1, sum1, x_new, xtotal_new, &
-            sum_m1, sum_00, sum_p1, m_m1, m_p1, xavg, dm_m1, dm_p1, x1
+         integer :: j, k, op_err, nsmooth_x_in_fixup
+         real(dp) :: max_lnT_for_smooth
 
          logical :: dbg
 
@@ -710,7 +707,7 @@ subroutine redistribute_mass( &
 
          integer :: k_source, max_iters, k, i, j
          real(dp) :: source_cell_mass, remaining_source_mass, cell_dm_k, &
-            remaining_needed_mass, frac, sumX, total_source, total_moved, &
+            remaining_needed_mass, sumX, total_source, total_moved, &
             dm0, dm1, old_sum, new_sum, mtotal, err, dm, diff_dm
          logical :: okay, dbg
 
@@ -1078,7 +1075,7 @@ subroutine setup_struct_info( &
          real(dp), dimension(:), intent(out) :: xm_face
          integer, intent(out) :: kmax_rad_accel, ierr
 
-         integer :: i, k, j, op_err, kmax
+         integer :: i, k, j, kmax
 
          logical, parameter :: dbg = .false.
 
@@ -1242,13 +1239,11 @@ subroutine calc_g_rad_mombarg( &
             log10_g_rad, g_rad, rad_accel_face
          integer, intent(out) :: ierr
 
-         integer :: iZ(nc), iZ_rad(nc), n, i, j, k, kk, kmax, op_err, sz, offset, &
-            nptot, ipe, nrad, thread_num, k1, k2, dk
+         integer :: iZ(nc), iZ_rad(nc), i, j, k, kk, kmax, op_err, k1, k2, dk
          real(dp) :: alfa, beta, X_face(nc), blend_fac(-15:15)
 
 
-         integer :: np = 28016
-         real(dp) :: fk(17), fk_all(ngp,17), delta, blend
+         real(dp) :: fk(17), delta, blend
          character(len=4) :: e_name
 
          logical, parameter :: dbg = .false.
@@ -1346,10 +1341,10 @@ subroutine calc_g_rad_mombarg( &
                if (dbg) stop
 
               dk = k - INT((kmax - (nzlo+1))/ ngp + (nzlo+1))
-              if (ABS(dk) .le. 15) then
+              if (ABS(dk) <= 15) then
                     j = -1
                     blend = blend_fac(dk)
-              else if (k .lt. INT((kmax - (nzlo+1))/ ngp + (nzlo+1))) then
+              else if (k < INT((kmax - (nzlo+1))/ ngp + (nzlo+1))) then
                     j = 1
                     blend = 0d0
               else
@@ -1401,7 +1396,7 @@ subroutine set1_g_rad_mombarg( &
          integer, intent(out) :: ierr
 
          integer :: i, ii
-         real(dp) :: tot, logT, logRho, flux
+         real(dp) :: logT, logRho
          real(dp), dimension(17) ::lgrad, fk
          integer :: iZ_rad2(17)
          character(len=4) :: e_name
diff --git a/star/private/diffusion_support.f90 b/star/private/diffusion_support.f90
index f606ea587..f1474696d 100644
--- a/star/private/diffusion_support.f90
+++ b/star/private/diffusion_support.f90
@@ -79,8 +79,8 @@ subroutine get_matrix_coeffs( &
          real(dp), dimension(:,:,:), intent(out) :: SIG_face, sigma_lnC
          integer, intent(out) :: ierr
          
-         integer :: i, j, jj, k, op_err, im
-         real(dp) :: dv_im, alfa, beta, cc, tmp, tinyX, dlamch, sfmin, &
+         integer :: i, j, k, op_err
+         real(dp) :: tmp, tinyX, dlamch, sfmin, &
             AD_dm_full_on, AD_dm_full_off, AD_boost_factor, sum_dm, &
             Vlimit_dm_full_on, Vlimit_dm_full_off, Vlimit, sigmax, &
             SIG_factor, GT_factor
@@ -208,12 +208,12 @@ subroutine get_matrix_coeffs( &
          
          !write(*,1) 'GT_factor SIG_factor', GT_factor, SIG_factor
 
-         do k = nzlo+1, nzhi         
+         do k = nzlo+1, nzhi
             call get1_flow_coeffs( &
                k, nc, m, v_advection_face(:,k), v_advection_max, &
                SIG_factor, GT_factor, sigma_lnC(:,:,k), &
                four_pi_r2_rho_face(k), dm_bar(k), &
-               C_div_X_face(:,k), GT_face(:,k), D_self_face(:,k), SIG_face(:,:,k))            
+               C_div_X_face(:,k), GT_face(:,k), D_self_face(:,k), SIG_face(:,:,k))
             if (sum_dm >= AD_dm_full_off) then
                AD_face(k) = 0d0
             else
@@ -228,7 +228,7 @@ subroutine get_matrix_coeffs( &
                         (AD_dm_full_on - AD_dm_full_off)
                !write(*,2) 'boost factor AD_face', k, AD_face(k)/sigmax, AD_face(k)
             end if
-            sum_dm = sum_dm + cell_dm(k)              
+            sum_dm = sum_dm + cell_dm(k)
          end do
          
          do j=1,nc ! not used, but copy just for sake of plotting
@@ -283,7 +283,6 @@ subroutine get1_coeffs_face( &
          real(dp), intent(inout) :: sigma_lnC(:,:) ! (nc,nc)
          integer, intent(out) :: ierr
          
-         integer :: i, j
          real(dp), dimension(m) :: AP, AT, AR
          real(dp), dimension(m,m) :: kappa_st, Zdiff, Zdiff1, Zdiff2, AX
          
@@ -322,7 +321,7 @@ subroutine get1_CXZn_face( &
             k, nz, nc, m, nzlo, nzhi, C, X, Z, A, alfa_face, tiny_C, &
             d_dr_factor, dlnRho_dr_face, C_face, X_face, Z_face, C_div_X_face, &
             dC_dr_face, dlnne_dr_face)
-         integer, intent(in) :: k, nc, m, nz, nzlo, nzhi         
+         integer, intent(in) :: k, nc, m, nz, nzlo, nzhi
          real(dp), dimension(:,:), intent(in) :: C, X, Z ! (m,nz)
          real(dp), intent(in) :: A(:) ! (m) atomic number
          real(dp), intent(in) :: alfa_face(:), d_dr_factor, dlnRho_dr_face
@@ -387,7 +386,7 @@ subroutine get1_burgers_coeffs( &
          real(dp) :: ac, ni, cz, xij, ne, ao, lambdad, lambda, alfa, Gamlo, Gamhi
          real(dp), dimension(m) :: charge, na
          real(dp), dimension(m,m) :: cl, Ath, Ddiff, Kdiff, Kdiff2
-         real(dp) :: Gamma, ai, lam_e, kappa, kappa_SM, Abar, Zbar, omegap
+         real(dp) :: Gamma, kappa_SM
          real(dp) :: Ddiff_Caplan(nc)
             
          do i = 1, nc
@@ -399,8 +398,8 @@ subroutine get1_burgers_coeffs( &
             ! Get number densities (per cm^3)
             do i = 1, nc
                na(i) = rho*X(i)/(A(i)*amu)   
-            end do         
-            na(m) = 0.d0      
+            end do
+            na(m) = 0.d0
             do i = 1, nc
                na(m) = na(m) + charge(i)*na(i)
             end do
@@ -553,7 +552,7 @@ subroutine get1_gradient_coeffs( &
                     e_ap1,e_at1,e_ar1,e_ax1,ierr)
 
                if (ierr /= 0) then
-                  !return      
+                  !return
                   write(*,2) 'solve_burgers_cgs_no_thermal failed', k
                   do i=1,m-1
                      write(*,2) 'A X Z C', i, A(i), X(i), Z(i), C(i)
@@ -595,7 +594,7 @@ subroutine get1_gradient_coeffs( &
             g_ax(1:m) = 0d0
             
             if (ierr /= 0) then
-               !return      
+               !return
                write(*,2) 'solve_burgers_cgs failed', k
                do i=1,m-1
                   write(*,2) 'A X Z C', i, A(i), X(i), Z(i), C(i)
@@ -612,7 +611,7 @@ subroutine get1_gradient_coeffs( &
                ierr)
 
             if (ierr /= 0) then
-               !return      
+               !return
                write(*,2) 'do1_solve_thoul_hu failed', k
                do i=1,m-1
                   write(*,2) 'A X Z C', i, A(i), X(i), Z(i), C(i)
@@ -770,7 +769,7 @@ subroutine get1_flow_coeffs( &
          real(dp), intent(inout) :: SIG_face(:,:) ! (nc,nc)
          
          integer :: i, j
-         real(dp) :: c, boost
+         real(dp) :: c
          
          include 'formats'
 
@@ -779,7 +778,7 @@ subroutine get1_flow_coeffs( &
             GT_face(i) = GT_factor*four_pi_r2_rho_face*v_advection_face(i)
             D_self_face(i) = sigma_lnC_face(i,i)  
             do j = 1, nc
-               SIG_face(i,j) = c*sigma_lnC_face(i,j)/C_div_X_face(j)               
+               SIG_face(i,j) = c*sigma_lnC_face(i,j)/C_div_X_face(j)
             end do
          end do
          
@@ -859,8 +858,8 @@ subroutine do1_solve_thoul_hu( &
          real(dp), intent(inout) :: g_ap, g_at, g_ar, g_ax(:) ! (m)
          integer, intent(out) :: ierr
 
-         integer :: i, j, l, indx(n), nmax
-         real(dp) :: aamax, cc, ac, temp, ko, d, f
+         integer :: i, j, l, indx(n)
+         real(dp) :: cc, ac, ko, f
          real(dp), dimension(m,m) :: xx, y, yy, k
          real(dp), dimension(n) :: alpha, nu, ga, beta
          real(dp), dimension(n,n) :: delta, gamma
@@ -878,7 +877,7 @@ subroutine do1_solve_thoul_hu( &
 
          ierr = 0
          ko = 2d0  
-         indx(1:n) = 0    
+         indx(1:n) = 0
 
          ! calculate cc and ac:
       
@@ -1085,7 +1084,7 @@ subroutine solve_burgers_cgs_no_thermal( &
         real(dp), intent(inout) :: e_ap, e_at, e_ar, e_ax(:)
         integer, intent(out) :: ierr
 
-        integer :: i,j,l,indx(n),nmax
+        integer :: i,j,l,indx(n)
         real(dp), dimension(n) :: alpha, beta, nu, ga
         ! Add in beta later for rad lev. ga is the temp holder for the
         ! columns of gamm when doing matrix solve one column at a time.
@@ -1252,7 +1251,7 @@ subroutine solve_burgers_cgs_with_thermal( &
         real(dp), intent(inout) :: e_ap, e_at, e_ar, e_ax(:)
         integer, intent(out) :: ierr
 
-        integer :: i,j,l,indx(n),nmax, rightshift, downshift
+        integer :: i,j,l,indx(n), rightshift, downshift
         real(dp), dimension(n) :: alpha, beta, nu, ga
         ! Add in beta later for rad lev. ga is the temp holder for the
         ! columns of gamm when doing matrix solve one column at a time.
@@ -1354,7 +1353,7 @@ subroutine solve_burgers_cgs_with_thermal( &
                  delta(i+downshift,j+rightshift) = Kdiff(i,j)* &
                       ( 3d0 + zdiff1(i,j) - 0.8d0*zdiff2(i,j) )* &
                       A(i)*A(j)/pow2(A(i)+A(j))
-              end if              
+              end if
            end do
            
            ! Term multiplying the electric field. (doesn't appear in energy equations)
@@ -1478,7 +1477,7 @@ subroutine get_SM_coeffs(nc,m,rho,T,A,Z,nd,Kdiff,zdiff,zdiff1,zdiff2,kappa)
         ! Fitting coefficients from Stanton & Murillo
         real(dp), dimension(2,3) :: a1,a2,a3,a4,a5,b0,b1,b2,b3,b4
         real(dp) :: lambda ! The screening length
-        integer :: i,j,k,facmo,no,mo ! Last two are used for different orders of collisions.
+        integer :: i,j,facmo,no,mo ! Last two are used for different orders of collisions.
 
         real(dp) :: lgp, gp1, gp2, gp3, gp4, gp5, kbT32, tmp
 
@@ -1570,7 +1569,7 @@ subroutine get_SM_coeffs(nc,m,rho,T,A,Z,nd,Kdiff,zdiff,zdiff1,zdiff2,kappa)
               else if( g_plasma(i,j) < 1d0) then ! Use eqn C23 for weakly coupled
                  do no=1,2
                     do mo=1,3 ! Implementing the (m-1)! term with a simple if statement.
-                       if(mo .eq. 3) then
+                       if(mo == 3) then
                           facmo = 2 ! (3-1)!
                        else
                           facmo = 1 ! (1-1)! and (2-1)!
diff --git a/star/private/do_one_utils.f90 b/star/private/do_one_utils.f90
index e3539a58b..782f3540b 100644
--- a/star/private/do_one_utils.f90
+++ b/star/private/do_one_utils.f90
@@ -48,7 +48,7 @@ module do_one_utils
       logical function model_is_okay(s)
          type (star_info), pointer :: s
          ! for now, just check for valid number in the final dynamic timescale
-         model_is_okay = ((s% dynamic_timescale - s% dynamic_timescale) .eq. 0d0) &
+         model_is_okay = ((s% dynamic_timescale - s% dynamic_timescale) == 0d0) &
                         .and. ((s% dynamic_timescale + 1d0) > 1d0)
       end function model_is_okay
 
@@ -120,7 +120,7 @@ end subroutine do_show_log_description
       
       subroutine do_show_terminal_header(s)
          type (star_info), pointer :: s
-         integer :: id, ierr, io
+         integer :: ierr, io
          call output_terminal_header(s,terminal_iounit)
          if (len_trim(s% extra_terminal_output_file) > 0) then
             ierr = 0
@@ -234,7 +234,7 @@ end subroutine output_terminal_header
       
       subroutine do_terminal_summary(s)
          type (star_info), pointer :: s
-         integer :: id, ierr, io
+         integer :: ierr, io
          call output_terminal_summary(s,terminal_iounit)
          if (len_trim(s% extra_terminal_output_file) > 0) then
             ierr = 0
@@ -529,7 +529,7 @@ logical function get_history_info(s, do_write)
          get_history_info = write_history .or. write_terminal         
          if (.not. get_history_info) return
          if (s% write_header_frequency*s% terminal_interval > 0) then
-            if ( mod(model, s% write_header_frequency*s% terminal_interval) .eq. 0 &
+            if ( mod(model, s% write_header_frequency*s% terminal_interval) == 0 &
                  .and. .not. s% doing_first_model_of_run) then
                write(*,'(A)')
                call write_terminal_header(s)
@@ -574,13 +574,13 @@ integer function do_check_limits(id)
          use star_utils
          integer, intent(in) :: id
          type (star_info), pointer :: s
-         integer :: ierr, i, j, k, cid, k_burn, k_omega, nz, max_abs_vel_loc, &
+         integer :: ierr, i, j, k, cid, k_omega, nz, max_abs_vel_loc, &
             period_number, max_period_number
          real(dp) :: log_surface_gravity, log_surface_temperature, log_surface_density, &
             log_surface_pressure, v_div_csound_max, remnant_mass, ejecta_mass, &
             power_nuc_burn, power_h_burn, power_he_burn, power_z_burn, logQ, max_logQ, min_logQ, &
             envelope_fraction_left, avg_x, v_surf, csound_surf, delta_nu, v_surf_div_v_esc, &
-            ratio, dt_C, peak_burn_vconv_div_cs, min_pgas_div_p, v_surf_div_v_kh, GREKM_avg_abs, &
+            peak_burn_vconv_div_cs, min_pgas_div_p, v_surf_div_v_kh, GREKM_avg_abs, &
             max_omega_div_omega_crit, omega_div_omega_crit, log_Teff, Lnuc_div_L, max_abs_vel, &
             species_mass_for_min_limit, species_mass_for_max_limit, center_gamma
             
@@ -1480,7 +1480,7 @@ integer function do_one_check_model(id)
          real(dp), parameter :: log_he_temp = 7.8d0
          real(dp), parameter :: d_tau_min = 1d-2, d_tau_max = 1d0
          real(dp), parameter :: little_step_factor = 10d0, little_step_size = 10d0
-         real(dp) :: v, surf_grav, power_he_burn, power_z_burn, &
+         real(dp) :: v, power_he_burn, power_z_burn, &
             power_neutrinos
          integer :: model, profile_priority, ierr
          integer, parameter :: tau_ramp = 50
@@ -1527,7 +1527,7 @@ integer function do_one_check_model(id)
          logged = get_history_info(s, must_do_profile)
 
          if (logged .and. s% write_profiles_flag) then
-            if (s% model_number .eq. s% profile_model &
+            if (s% model_number == s% profile_model &
                .or. (s% profile_interval > 0 .and. &
                      (s% doing_first_model_of_run .or. &
                      mod(s% model_number,s% profile_interval) == 0))) then
diff --git a/star/private/element_diffusion.f90 b/star/private/element_diffusion.f90
index f14f069e2..d86617f28 100644
--- a/star/private/element_diffusion.f90
+++ b/star/private/element_diffusion.f90
@@ -42,7 +42,7 @@ module element_diffusion
 
       subroutine do_element_diffusion(s, dt_in, ierr)
          ! return ierr /= 0 if cannot satisfy accuracy requirements
-         use chem_def, only: chem_isos, ihe4, ih1
+         use chem_def, only: chem_isos
          use chem_lib, only: chem_get_iso_id
          use star_utils, only: start_time, update_time
          use diffusion, only: &
@@ -52,16 +52,14 @@ subroutine do_element_diffusion(s, dt_in, ierr)
          integer, intent(out) :: ierr
 
          integer :: i, j, k, kk, nc, m, nzlo, nzhi, nz, species, iounit, &
-            steps_used, total_num_iters, total_num_retries, cid, he4
+            steps_used, total_num_iters, total_num_retries, cid
          integer(8) :: time0
-         real(dp) :: s1, s2, dqsum, dist, r, Hp, dt, total, &
+         real(dp) :: s1, s2, dqsum, dt, total, &
             gradT_mid, gradRho_mid, alfa, gradRho_face, chiRho_face, chiT_face
-         real(dp) :: rho, Pgas, T, &
-            logRho, dlnRho_dlnPgas, dlnRho_dlnT, &
-            e, de, e_with_xa, Amass, Zcharge, min_D_mix
+         real(dp) :: Amass, Zcharge, min_D_mix
 
          integer, dimension(:), allocatable :: &
-            class, class_chem_id, mixing_type, mixing_type_arg
+            class, class_chem_id, mixing_type
          real(dp), dimension(:), allocatable :: &
             gamma, free_e, &
             dlnPdm_face, dlnT_dm_face, dlnRho_dm_face, &
@@ -74,7 +72,7 @@ subroutine do_element_diffusion(s, dt_in, ierr)
          character (len=8), allocatable :: class_name(:)
 
 
-         logical :: dumping, okay
+         logical :: dumping
 
          include 'formats'
 
@@ -470,8 +468,6 @@ subroutine dump_diffusion_info
             use utils_lib
             use chem_def, only: chem_isos
             integer :: i, k, ierr
-            real(dp) :: alfa, rho_face, chiT_face, chiRho_face, &
-               dm_dr, gradRho, dlnRho_dm
 
             ierr = 0
             write(*, *)
diff --git a/star/private/eos_support.f90 b/star/private/eos_support.f90
index 3029c7100..125783c98 100644
--- a/star/private/eos_support.f90
+++ b/star/private/eos_support.f90
@@ -75,9 +75,7 @@ subroutine get_eos( &
     real(dp), intent(out) :: dres_dxa(num_eos_d_dxa_results,s% species)
     integer, intent(out) :: ierr
 
-    real(dp), dimension(num_eos_basic_results) :: dres_dabar, dres_dzbar
     integer :: j
-    logical :: off_table
 
     include 'formats'
 
@@ -229,7 +227,6 @@ subroutine solve_eos_given_DP( &
     integer, intent(out) :: ierr
 
     integer :: eos_calls
-    real(dp) :: eos_x, eos_z
 
     include 'formats'
 
@@ -273,7 +270,6 @@ subroutine solve_eos_given_DS( &
     integer, intent(out) :: ierr
 
     integer :: eos_calls
-    real(dp) :: eos_x, eos_z
 
     include 'formats'
 
@@ -411,8 +407,7 @@ subroutine solve_eos_given_PgasT_auto( &
     real(dp), intent(out) :: dres_dxa(num_eos_d_dxa_results,s% species)
     integer, intent(out) :: ierr
 
-    real(dp) :: rho_guess, logRho_guess, gamma, &
-         dlnRho_dlnPgas_const_T, dlnRho_dlnT_const_Pgas
+    real(dp) :: rho_guess, logRho_guess, gamma
 
     ! compute composition info
     real(dp) :: Y, Z, X, abar, zbar, z2bar, z53bar, ye, mass_correction, sumx
diff --git a/star/private/eps_grav.f90 b/star/private/eps_grav.f90
index 8b424720c..32df776e8 100644
--- a/star/private/eps_grav.f90
+++ b/star/private/eps_grav.f90
@@ -89,7 +89,7 @@ subroutine eval1_eps_grav_and_partials(s, k, eps_grav, ierr)
          include 'formats'
          ierr = 0
 
-         using_PC = (s% eos_frac_PC(k) .gt. 0)
+         using_PC = (s% eos_frac_PC(k) > 0)
 
          if (using_PC .and. s% gam_start(k) >= s% Gamma_lnS_eps_grav_full_on) then
             call do_lnS_eps_grav(s, k, eps_grav, ierr)
@@ -98,9 +98,9 @@ subroutine eval1_eps_grav_and_partials(s, k, eps_grav, ierr)
             alfa = (Gamma - s% Gamma_lnS_eps_grav_full_off) / &
                (s% Gamma_lnS_eps_grav_full_on - s% Gamma_lnS_eps_grav_full_off)
             call do_lnS_eps_grav(s, k, eps_grav_lnS, ierr)
-            if (ierr .ne. 0) return
+            if (ierr /= 0) return
             call do_std_eps_grav(s, k, eps_grav_std, ierr)
-            if (ierr .ne. 0) return
+            if (ierr /= 0) return
             ! the derivative of the blending function is missing
             ! but historically we've been able to get away with that
             ! because the two forms should match in the blend region
@@ -223,7 +223,7 @@ subroutine do_lnS_eps_grav(s, k, eps_grav, ierr)
          integer, intent(out) :: ierr
 
          real(dp) :: entropy_start
-         type(auto_diff_real_star_order1) :: entropy, T, eps_grav_composition_term
+         type(auto_diff_real_star_order1) :: entropy, T
 
          include 'formats'
          ierr = 0
@@ -274,7 +274,7 @@ subroutine eval_eps_grav_composition(s, k, eps_grav_composition_term, ierr)
          integer, intent(in) :: k
          type(auto_diff_real_star_order1), intent(out) :: eps_grav_composition_term
          integer, intent(out) :: ierr
-         real(dp) :: Rho, logRho, &
+         real(dp) :: &
             e, e_start, de, d_de_dlnd, d_de_dlnT, &
             e_with_xa_start, d_e_with_xa_start_dlnd, d_e_with_xa_start_dlnT, &
             e_with_DT_start, Pgas_with_DT_start
diff --git a/star/private/eps_mdot.f90 b/star/private/eps_mdot.f90
index 1ad360f35..a43fcedb4 100644
--- a/star/private/eps_mdot.f90
+++ b/star/private/eps_mdot.f90
@@ -55,7 +55,7 @@ subroutine find_mass_flux(nz, change_in_dm, mass_flux)
          integer, intent(in) :: nz
 
          ! Intermediates
-         integer j
+         integer :: j
 
          real(qp), dimension(:), intent(out) :: mass_flux
 
@@ -72,7 +72,7 @@ real(dp) function interpolate_onto_faces(vec, dm, nz, j)
          ! Inputs
          real(dp), dimension(:) :: vec
          real(qp), dimension(:) :: dm
-         integer nz, j
+         integer :: nz, j
 
          ! Intermediates
          real(dp) alpha, beta, dmbar1
@@ -133,10 +133,10 @@ subroutine set_leak_frac(nz, L, dm, dt, thermal_energy, grad_r_sub_grad_a, mass_
          real(dp), dimension(:) :: L, grad_r_sub_grad_a, thermal_energy, leak_frac
          real(dp) eps_mdot_leak_frac_factor
          real(dp) dt
-         integer nz
+         integer :: nz
 
          ! Intermediates
-         integer k, km1
+         integer :: k, km1
          real(dp) mass_flux_bar
 
          !!! High-level explanation
@@ -178,21 +178,18 @@ subroutine leak_control(nz, mass_flux, dm, mesh_intersects, ranges,&
                               total_mass_through_cell, eps_mdot_per_total_mass,&
                               accumulated, mdot_adiabatic_surface, leak_frac)
          ! Inputs
-         integer nz
+         integer :: nz
          integer, dimension(:,:) :: ranges
          real(dp) mdot_adiabatic_surface
          real(qp), dimension(:) :: mass_flux, dm, mesh_intersects, total_mass_through_cell
          real(dp), dimension(:) :: eps_mdot_per_total_mass, accumulated, leak_frac
 
          ! Intermediates
-         integer i, j, k
-         integer i0, i1
-         integer i_start, i_end
+         integer :: j
+         integer :: i_start, i_end
          integer, dimension(:), allocatable :: i_min, i_max, j_min, j_max
-         logical do_now
          real(qp) delta_m
          real(dp) sgn
-         real(dp), dimension(:), allocatable :: excess
          type(non_rect_array), dimension(:), allocatable :: pf
 
          !!! High-level explanation
@@ -335,7 +332,7 @@ subroutine leak(nz, i_start, i_end, i_min, i_max, j_min, j_max, pf,&
                       total_mass_through_cell, mdot_adiabatic_surface)
 
          ! Inputs
-         integer nz, i_start, i_end
+         integer :: nz, i_start, i_end
          integer, dimension(:) :: i_min, i_max, j_min, j_max
          type(non_rect_array), dimension(:) :: pf
          real(qp) delta_m
@@ -345,7 +342,7 @@ subroutine leak(nz, i_start, i_end, i_min, i_max, j_min, j_max, pf,&
 
 
          ! Intermediates
-         integer i, j, k, direction, ii
+         integer :: i, j, direction
          real(qp) pass_frac, next, pass_mass
          real(dp), dimension(:), allocatable :: excess
 
@@ -465,23 +462,22 @@ subroutine calculate_eps_mdot(s, dt, ierr)
 
          ! Inputs
          type (star_info), pointer :: s
-         real(dp) dt
-         integer ierr
+         real(dp) :: dt
+         integer :: ierr
          
          ! Intermediates
          logical :: dbg = .false.
-         integer nz, j, k, l, n
-         real(dp) delta_m, sgn, change_sum, leak_sum, err, abs_err, mdot_adiabatic_surface, gradT_mid
+         integer :: nz, j
+         real(dp) delta_m, change_sum, leak_sum, err, abs_err, mdot_adiabatic_surface, gradT_mid
          real(dp), dimension(:), allocatable :: &
-            p_bar, rho_bar, te_bar, te, curr_m, &
+            p_bar, rho_bar, te_bar, te, &
             leak_frac, thermal_energy, density_weighted_flux, eps_mdot_per_total_mass,&
             accumulated, grad_r_sub_grad_a
          real(qp), dimension(:), allocatable :: change_in_dm, mass_flux, dm, prev_mesh_dm,&
              total_mass_through_cell
          type(accurate_real) sum
          integer, dimension(:,:), allocatable :: ranges
-         real(qp), dimension(:), allocatable :: remainders, mesh_intersects
-         real(qp) m
+         real(qp), dimension(:), allocatable :: mesh_intersects
 
          if (s% mstar_dot == 0d0 .or. dt <= 0d0) then
             s% eps_mdot(1:s%nz) = 0d0
diff --git a/star/private/evolve.f90 b/star/private/evolve.f90
index 0ac2e7fa8..f2890c3f2 100644
--- a/star/private/evolve.f90
+++ b/star/private/evolve.f90
@@ -297,7 +297,7 @@ integer function do_step_part1(id, first_try)
          integer, intent(in) :: id
 
          type (star_info), pointer :: s
-         integer :: ierr, j, k, nz
+         integer :: ierr, k, nz
          integer(8) :: time0, clock_rate
          real(dp) :: total_radiation
 
@@ -525,22 +525,20 @@ integer function do_step_part2(id, first_try)
 
          type (star_info), pointer :: s
          integer :: ierr, &
-            j, k, j_cnt, mdot_redo_cnt, max_mdot_redo_cnt, cnt, max_cnt, nz
+            k, mdot_redo_cnt, max_mdot_redo_cnt, nz
          integer(8) :: time0, clock_rate
-         logical :: okay, trace, skip_global_corr_coeff_limit, &
+         logical :: trace, skip_global_corr_coeff_limit, &
             have_too_large_wind_mdot, have_too_small_wind_mdot, &
             ignored_first_step, was_in_implicit_wind_limit
-         real(dp) :: J_tot1, J_tot2, rel_error, &
-            w_div_w_crit, w_div_w_crit_prev, mstar_dot, mstar_dot_prev, abs_mstar_delta, &
+         real(dp) :: w_div_w_crit, w_div_w_crit_prev, mstar_dot, mstar_dot_prev, abs_mstar_delta, &
             explicit_mdot, max_wind_mdot, wind_mdot, r_phot, kh_timescale, dmskhf, dmsfac, &
-            too_large_wind_mdot, too_small_wind_mdot, boost, mstar_dot_nxt, total, &
-            surf_omega_div_omega_crit_limit, dt, time, max_dt, total_energy
+            too_large_wind_mdot, too_small_wind_mdot, boost, mstar_dot_nxt, &
+            surf_omega_div_omega_crit_limit, dt
             
          integer :: ph_k, mdot_action
-         real(dp) :: r, m, xm, v, L, cs, kap, ysum, &
-            implicit_mdot, ph_x, ph_L, iwind_tolerance, iwind_lambda, total_nuclear_heating, &
-            total_radiation
-         integer :: k_phot, iwind_redo_cnt, iwind_max_redo_cnt
+         real(dp) :: implicit_mdot, ph_L, iwind_tolerance, iwind_lambda
+         real(dp) :: dummy1, dummy2, dummy3, dummy4, dummy5, dummy6, dummy7, dummy8
+         integer :: iwind_redo_cnt, iwind_max_redo_cnt
          integer, parameter :: exit_loop = 1, cycle_loop = 0
 
          logical, parameter :: dbg = .false.
@@ -801,7 +799,7 @@ integer function select_mdot_action(ierr)
             
             if (iwind_redo_cnt < iwind_max_redo_cnt .and. iwind_lambda > 0d0) then
                ! check mdot calculated at end of step
-               call get_phot_info(s, ph_x, ph_x, ph_x, ph_L, ph_x, ph_x, ph_x, ph_x, ph_x, ph_k)
+               call get_phot_info(s, dummy1, dummy2, dummy3, ph_L, dummy4, dummy5, dummy6, dummy7, dummy8, ph_k)
                call set_mdot(s, ph_L, s% mstar, s% Teff, ierr)
                if (ierr /= 0) then
                   do_step_part2 = retry
@@ -1104,12 +1102,12 @@ end subroutine show_debug
 
          logical function okay_energy_conservation()
             use rsp, only: rsp_total_energy_integrals
-            integer :: nz, k, ierr
+            integer :: nz, k
             real(dp) :: phase1_sources_and_sinks, phase2_sources_and_sinks, phase2_work, &
                phase1_total_energy_from_mdot, phase2_total_energy_from_mdot, &
                expected_sum_cell_others, expected_sum_cell_sources, L_theta, &
                diff_total_gravitational_energy, diff_total_internal_energy, diff_total_kinetic_energy, &
-               diff_total_rotational_kinetic_energy, diff_total_turbulent_energy, &
+               diff_total_turbulent_energy, &
                virial, total_radiation, L_surf, sum_cell_de, sum_cell_detrb, &
                sum_cell_dke, sum_cell_dpe, sum_cell_dL, sum_cell_ergs_error, sum_cell_others, &
                sum_cell_sources, sum_cell_terms, sum_cell_work, total_energy_from_pre_mixing,&
@@ -1639,7 +1637,7 @@ subroutine check_for_extra_heat(s, ierr)
          real(dp) :: start_time, end_time, left_to_inject, &
             q00, qp1, qmin, qmax, qtop, qbot, extra, dt, &
             target_injection_time, target_injection_ergs, &
-            kap_gamma, tau_gamma_sum, expect_to_inject
+            kap_gamma, tau_gamma_sum
          integer :: k, nz, k1
 
          include 'formats'
@@ -1764,8 +1762,7 @@ subroutine set_start_of_step_info(s, str, ierr)
          integer, intent(out) :: ierr
 
          logical :: trace
-         integer :: nz, k
-         real(dp) :: total_radiation
+         integer :: nz
 
          include 'formats'
 
@@ -1824,10 +1821,8 @@ integer function prepare_for_new_step(s)
 
          type (star_info), pointer :: s
 
-         integer :: ierr, k, j, k0_old, k1_old, k0_new, k1_new
-         real(dp) :: total_energy, force_timestep_min, delta_E, sum_delta_E, &
-            force_timestep, total_radiation
-         real(dp), pointer :: energy_profile_after_remesh(:)
+         integer :: ierr, k
+         real(dp) :: force_timestep_min, force_timestep
          logical :: trace
 
          include 'formats'
@@ -1973,8 +1968,7 @@ integer function do_mesh(s)
          use adjust_mesh_split_merge, only: remesh_split_merge
          use star_utils, only: start_time, update_time
          type (star_info), pointer :: s
-         integer(8) :: time0, clock_rate
-         integer :: ierr, k
+         integer(8) :: time0
          real(dp) :: total
          include 'formats'
          do_mesh = keep_going
@@ -2009,7 +2003,7 @@ integer function prepare_for_new_try(s)
 
          type (star_info), pointer :: s
 
-         integer :: ierr, i, j, k
+         integer :: ierr
          real(dp) :: screening
 
          include 'formats'
@@ -2309,10 +2303,7 @@ integer function finish_step(id, ierr)
 
          type (star_info), pointer :: s
          integer, parameter :: nvals = 1, n_ivals = 0
-         integer :: j, k, nz, &
-            current_num_iounits_in_use, prev_num_iounits_in_use
-         integer :: ivals(n_ivals)
-         real(dp) :: vals(nvals)
+         integer :: nz, current_num_iounits_in_use, prev_num_iounits_in_use
          logical :: trace, will_do_photo
 
          include 'formats'
diff --git a/star/private/evolve_support.f90 b/star/private/evolve_support.f90
index 973f43fa1..28e4fecef 100644
--- a/star/private/evolve_support.f90
+++ b/star/private/evolve_support.f90
@@ -157,7 +157,6 @@ subroutine set_current_to_old(s)
          use hydro_rotation, only: use_xh_to_update_i_rot
          use utils_lib
          type (star_info), pointer :: s
-         real(dp), pointer :: p1(:)
          integer :: j, k, ierr
 
          include 'formats'
@@ -287,7 +286,7 @@ subroutine output_to_file(filename, id, ierr)
          integer, intent(in) :: id
          integer, intent(out) :: ierr
 
-         integer :: iounit, k
+         integer :: iounit
          type (star_info), pointer :: s
          character(len=strlen) :: iomsg
 
diff --git a/star/private/history.f90 b/star/private/history.f90
index 4b6379a92..1cacb1b50 100644
--- a/star/private/history.f90
+++ b/star/private/history.f90
@@ -64,7 +64,6 @@ subroutine do_history_info(s, write_flag, ierr)
       use utils_lib, only : integer_dict_create_hash, integer_dict_free, mkdir, folder_exists
       use chem_def, only : category_name
       use math_lib, only : math_backend
-      use rates_def, only : rates_reaction_id_max
       use net_def, only : Net_General_Info, get_net_ptr
       type (star_info), pointer :: s
 
@@ -477,7 +476,6 @@ end subroutine dealloc
 
       subroutine do_extra_col(pass, j, col_offset)
          integer, intent(in) :: pass, j, col_offset
-         integer :: int_val
          include 'formats'
          if (pass == 1) then
             if (write_flag) write(io, fmt = int_fmt, advance = 'no') j + col_offset
@@ -815,7 +813,7 @@ real(dp) function interpolate_burn_bdy_r(k) result(val)
          use num_lib, only : find0
          integer, intent(in) :: k
          integer :: bv, bv0, bv1
-         real(dp) :: eps, eps0, eps1, d0, d1, q0, q1
+         real(dp) :: eps, eps0, eps1, d0, d1
          include 'formats'
          if (k <= 0) then
             val = -1; return
@@ -1007,7 +1005,7 @@ subroutine do_col_pass3(c) ! get the column value
          integer, intent(in) :: c
          integer :: i, ii, k, int_val
          logical :: is_int_val
-         real(dp) :: val, val1, Ledd, power_photo, frac
+         real(dp) :: val, frac
          int_val = 0; val = 0; is_int_val = .false.
 
          if (c > burn_relr_offset) then
@@ -1188,8 +1186,7 @@ subroutine history_getval(&
       integer, intent(out) :: ierr
 
       integer :: k, i, min_k, k2
-      real(dp) :: Ledd, L_rad, phi_Joss, power_photo, tmp, r, m_div_h, w_div_w_Kep, &
-         min_gamma1, deltam
+      real(dp) :: Ledd, phi_Joss, power_photo, tmp, r, m_div_h, w_div_w_Kep, deltam
       real(dp), pointer :: v(:)
       logical :: v_flag
 
@@ -2951,7 +2948,6 @@ subroutine history_getval(&
 
       real(dp) function max_eps_nuc_log_x(j)
          integer, intent(in) :: j
-         real(dp) :: sum_x, sum_dq
          integer :: k
          max_eps_nuc_log_x = 0
          if (j == 0) return
@@ -2963,7 +2959,6 @@ end function max_eps_nuc_log_x
 
       real(dp) function cz_top_max_log_x(j)
          integer, intent(in) :: j
-         real(dp) :: sum_x, sum_dq
          integer :: k
          cz_top_max_log_x = 0
          if (s% largest_conv_mixing_region == 0) return
@@ -2975,7 +2970,6 @@ end function cz_top_max_log_x
 
       real(dp) function cz_max_log_x(j)
          integer, intent(in) :: j
-         real(dp) :: sum_x, sum_dq
          integer :: k
          cz_max_log_x = 0
          if (s% largest_conv_mixing_region == 0) return
@@ -3022,7 +3016,7 @@ real(dp) function get_int_k_r_dr(s, el, nu_factor)
       real(dp), intent(in) :: nu_factor
 
       real(dp) :: integral, cs2, r2, n2, sl2, omega2, &
-         L2, kr2, dr, r0_outer, r0_inner, sl2_next, xh1
+         L2, kr2, dr, r0_outer, r0_inner, xh1
       integer :: k, k1, k_inner, k_outer, h1
 
       logical :: dbg
@@ -3282,10 +3276,8 @@ subroutine get_history_values(s, num, specs, &
       real(dp), intent(inout) :: values(:)
       logical, intent(out) :: failed_to_find_value(:)
 
-      integer :: i, c, int_val, ierr, n, t, j, iounit
-      real(dp) :: val, epsnuc_out(12), v_surf, csound_surf, envelope_fraction_left
-      logical :: is_int_val, special_case
-      character (len = strlen) :: buffer, string
+      integer :: i, c, ierr
+      real(dp) :: epsnuc_out(12), v_surf, csound_surf, envelope_fraction_left
 
       include 'formats'
       ierr = 0
diff --git a/star/private/history_specs.f90 b/star/private/history_specs.f90
index 17e5392cf..a686f686e 100644
--- a/star/private/history_specs.f90
+++ b/star/private/history_specs.f90
@@ -95,10 +95,10 @@ recursive subroutine add_history_columns( &
          logical, intent(in) :: report
          integer, intent(out) :: ierr
 
-         integer :: iounit, n, i, t, id, j, k, cnt, ii, nxt_spec, spec_err
+         integer :: iounit, n, i, t, j, cnt, ii, nxt_spec, spec_err
          character (len=strlen) :: buffer, string, filename
          integer, parameter :: max_level = 20
-         logical :: bad_item, special_case, exists
+         logical :: special_case, exists
          logical, parameter :: dbg = .false.
 
          include 'formats'
diff --git a/star/private/hydro_alpha_rti_eqns.f90 b/star/private/hydro_alpha_rti_eqns.f90
index 8ce28d762..b157b003e 100644
--- a/star/private/hydro_alpha_rti_eqns.f90
+++ b/star/private/hydro_alpha_rti_eqns.f90
@@ -41,7 +41,6 @@ module hydro_alpha_rti_eqns
 
       subroutine do1_dalpha_RTI_dt_eqn(s, k, nvar, ierr)
          use star_utils, only: em1, e00, ep1
-         use chem_def, only: ih1, ihe4
 
          type (star_info), pointer :: s
          integer, intent(in) :: k, nvar
@@ -52,13 +51,12 @@ subroutine do1_dalpha_RTI_dt_eqn(s, k, nvar, ierr)
          type(auto_diff_real_4var_order1) :: source_minus, source_plus, dadt_source, dadt_actual
          type(auto_diff_real_4var_order1) :: dadt_mix, dadt_expected, resid
 
-         integer :: nz, i_alpha_RTI, i_dalpha_RTI_dt, j, kk
+         integer :: nz, i_alpha_RTI, i_dalpha_RTI_dt
          real(dp), pointer, dimension(:) :: sig
-         logical :: okay
          real(dp) :: &
-            dq, dm, dr, d_dadt_mix_dap1, sig00, sigp1, &
+            dq, dm, sig00, sigp1, &
             eqn_scale, dPdr_drhodr, instability2, instability, RTI_B, &
-            r00, rp1, drho, rho, rmid, cs, fac
+            r00, rho, rmid, cs, fac
          logical :: test_partials
 
          include 'formats'
diff --git a/star/private/hydro_chem_eqns.f90 b/star/private/hydro_chem_eqns.f90
index 15e1d90b1..98385ad1c 100644
--- a/star/private/hydro_chem_eqns.f90
+++ b/star/private/hydro_chem_eqns.f90
@@ -60,24 +60,23 @@ subroutine do1_chem_eqns(s, k, nvar, ierr)
 
          use chem_def
          use net_lib, only: show_net_reactions, show_net_params
-         use rates_def, only: reaction_Name, i_rate
+         use rates_def, only: i_rate
          use star_utils, only: em1, e00, ep1
 
          type (star_info), pointer :: s
          integer, intent(in) :: k, nvar
          integer, intent(out) :: ierr
 
-         integer, pointer :: reaction_id(:) ! maps net reaction number to reaction id
+         !integer, pointer :: reaction_id(:) ! maps net reaction number to reaction id
          integer :: nz, j, i, jj, ii, species
          real(dp) :: &
             dxdt_expected_dxa, dxdt_expected, dxdt_actual, &
-            dxdt_expected_dlnd, dxdt_expected_dlnT, &
             dq, dm, dequ, dxdt_nuc, dxdt_mix, max_abs_residual, &
-            sum_dxdt_nuc, dx_expected_dlnd, dx_expected_dlnT, &
+            sum_dxdt_nuc, &
             d_dxdt_mix_dx00, d_dxdt_mix_dxm1, d_dxdt_mix_dxp1, &
             sum_dx_burning, sum_dx_mixing, residual, &
-            dxdt_factor, alpha, eqn_scale, d_dxdt_dx, &
-            dequ_dlnd, dequ_dlnT, dequ_dlnPgas_const_T, dequ_dlnT_const_Pgas
+            dxdt_factor, eqn_scale, &
+            dequ_dlnd, dequ_dlnT
          logical :: test_partials, doing_op_split_burn
          logical, parameter :: checking = .false.
 
diff --git a/star/private/hydro_energy.f90 b/star/private/hydro_energy.f90
index 9748eb218..41c1c8525 100644
--- a/star/private/hydro_energy.f90
+++ b/star/private/hydro_energy.f90
@@ -275,7 +275,7 @@ subroutine setup_sources_and_others(ierr) ! sources_ad, others_ad
 
             drag_energy = 0d0
             s% FdotV_drag_energy(k) = 0
-            if (k .ne. s% nz) then
+            if (k /= s% nz) then
                if ((s% q(k) > s% min_q_for_drag) .and. &
                     (s% drag_coefficient > 0) .and. &
                     s% use_drag_energy) then
@@ -544,12 +544,11 @@ subroutine eval_dwork(s, k, skip_P, dwork_ad, dwork, &
             d_dwork_dxam1, d_dwork_dxa00, d_dwork_dxap1
          integer, intent(out) :: ierr
             
-         real(dp) :: work_00, work_p1, dm, dV
+         real(dp) :: work_00, work_p1
          real(dp), dimension(s% species) :: &
             d_work_00_dxa00, d_work_00_dxam1, &
-            d_work_p1_dxap1, d_work_p1_dxa00, d_Ptot_dxa
-         type(auto_diff_real_star_order1) :: work_00_ad, work_p1_ad, &
-            Ptot_ad, dV_ad, rho_ad
+            d_work_p1_dxap1, d_work_p1_dxa00
+         type(auto_diff_real_star_order1) :: work_00_ad, work_p1_ad
          logical :: test_partials
          integer :: j
          include 'formats'
@@ -597,12 +596,12 @@ subroutine eval1_work(s, k, skip_Peos, &
          real(dp), dimension(s% species), intent(out) :: &
             d_work_dxa00, d_work_dxam1
          integer, intent(out) :: ierr
-         real(dp) :: alfa, beta, P_theta, Peos_face, Av_face
+         real(dp) :: alfa, beta, P_theta, Av_face
          real(dp), dimension(s% species) :: d_Pface_dxa00, d_Pface_dxam1
          type(auto_diff_real_star_order1) :: &
             P_face_ad, A_times_v_face_ad, mlt_Pturb_ad, &
             PtrbR_ad, PtrbL_ad, PvscL_ad, PvscR_ad, Ptrb_div_etrb, PL_ad, PR_ad, &
-            Peos_ad, Ptrb_ad, Pvsc_ad, inv_R2, extra_P
+            Peos_ad, Ptrb_ad, Pvsc_ad, extra_P
          logical :: test_partials
          integer :: j
          include 'formats'
diff --git a/star/private/hydro_eqns.f90 b/star/private/hydro_eqns.f90
index 4e01f5045..931d48be5 100644
--- a/star/private/hydro_eqns.f90
+++ b/star/private/hydro_eqns.f90
@@ -23,7 +23,6 @@
 !
 ! ***********************************************************************
 
-
       module hydro_eqns
 
       use star_private_def
@@ -71,16 +70,16 @@ subroutine eval_equ_for_solver(s, nvar, nzlo, nzhi, ierr)
          integer, intent(out) :: ierr
 
          integer :: &
-            i_dv_dt, i_du_dt, i_du_dk, i_equL, i_dlnd_dt, i_dlnE_dt, i_dlnR_dt, &
+            i_dv_dt, i_du_dt, i_equL, i_dlnd_dt, i_dlnE_dt, i_dlnR_dt, &
             i_dalpha_RTI_dt, i_equ_w_div_wc, i_dj_rot_dt, i_detrb_dt, &
             i, k, j, nvar_hydro, nz, op_err
          integer :: &
-            i_lnd, i_lnR, i_lnT, i_lum, i_v, i_u, i_du, i_w_div_wc, i_j_rot, &
-            i_alpha_RTI, i_xh1, i_xhe4, kmax_equ(nvar), species
-         real(dp) :: max_equ(nvar), L_phot_old
+            i_lnd, i_lnR, i_lnT, i_lum, i_v, i_u, i_w_div_wc, i_j_rot, &
+            i_alpha_RTI, i_xh1, i_xhe4, species
+         real(dp) :: L_phot_old
          real(dp), dimension(:), pointer :: &
             L, lnR, lnP, lnT, energy
-         logical :: v_flag, u_flag, cv_flag, w_div_wc_flag, j_rot_flag, dump_for_debug, &
+         logical :: v_flag, u_flag, dump_for_debug, &
             do_chem, do_mix, do_dlnd_dt, do_dv_dt, do_du_dt, do_dlnR_dt, &
             do_alpha_RTI, do_w_div_wc, do_j_rot, do_dlnE_dt, do_equL, do_detrb_dt
 
@@ -318,7 +317,7 @@ subroutine eval_equ_for_solver(s, nvar, nzlo, nzhi, ierr)
          contains
 
          subroutine dump_equ
-            integer :: k, j, k0, k1
+            integer :: k, j
             include 'formats'
             do k=1,s% nz
                do j=1,nvar
@@ -427,14 +426,14 @@ subroutine fix_d_eos_dxa_partials(s, k, ierr)
 
             if (k == s% solver_test_partials_k .and. s% solver_iter == s% solver_test_partials_iter_number) then
                i_var = lookup_nameofvar(s, s% solver_test_partials_var_name)
-               if (i_var .gt. s% nvar_hydro) then
+               if (i_var > s% nvar_hydro) then
                   i_var_sink = lookup_nameofvar(s, s% solver_test_partials_sink_name)
                end if
             end if
 
             ! if we're on an EOS where there aren't composition partials,
             ! approximate derivatives with finite differences
-            if (frac_without_dxa .gt. 0) then
+            if (frac_without_dxa > 0) then
 
                do j=1, s% species
                   dxa = s% xa(j,k) - s% xa_start(j,k)
@@ -443,7 +442,7 @@ subroutine fix_d_eos_dxa_partials(s, k, ierr)
                         s% solver_iter == s% solver_test_partials_iter_number) &
                      write(*,2) 'dxa', j, dxa
 
-                  if (abs(dxa) .ge. dxa_threshold) then
+                  if (abs(dxa) >= dxa_threshold) then
 
                      ! first, get eos with xa_start
 
@@ -513,11 +512,11 @@ subroutine fix_d_eos_dxa_partials(s, k, ierr)
                      if (k == s% solver_test_partials_k .and. s% solver_iter == s% solver_test_partials_iter_number) then
                         if (i_var_sink > 0 .and. i_var > s% nvar_hydro) then
                            if (dxa < dxa_threshold) then
-                              if (j .eq. i_var - s% nvar_hydro) then
+                              if (j == i_var - s% nvar_hydro) then
                                  write(*,*) 'fix_d_eos_dxa_partials: skipping dxa derivative fix for ', trim (s% solver_test_partials_var_name), &
                                     ' (dxa < dxa_threshold): ', abs(dxa), ' < ', dxa_threshold
                               endif
-                              if (j .eq. i_var_sink - s% nvar_hydro) then
+                              if (j == i_var_sink - s% nvar_hydro) then
                                  write(*,*) 'fix_d_eos_dxa_partials: skipping dxa derivative fix for ', trim (s% solver_test_partials_sink_name), &
                                     ' (dxa < dxa_threshold): ', abs(dxa), ' < ', dxa_threshold
                               end if
@@ -602,7 +601,7 @@ subroutine do1_w_div_wc_eqn(s, k, nvar, ierr)
          integer, intent(in) :: k, nvar
          integer, intent(out) :: ierr
          integer :: i_equ_w_div_wc, i_w_div_wc
-         real(dp) :: wwc, dimless_rphi, dimless_rphi_given_wwc, w1, w2
+         real(dp) :: wwc
          real(dp) :: jr_lim1, jr_lim2, A, C
          type(auto_diff_real_star_order1) :: &
             w_d_wc00, r00, jrot00, resid_ad, A_ad, C_ad, &
@@ -825,11 +824,9 @@ subroutine get_PT_bc_ad(ierr) ! set P_bc_ad and T_bc_ad
                dlnT_bc_dlnd, dlnT_bc_dlnT, dlnT_bc_dlnR, &
                dlnT_bc_dL, dlnP_bc_dlnd, dlnP_bc_dlnT, dlnP_bc_dL, dlnP_bc_dlnR, &
                dlnkap_dlnd, dlnkap_dlnT, dPinv_dlnd, dPinv_dlnT, dP0, dT0, &
-               P_surf, T_surf, dlnP_bc_dlnPsurf, P_rad, &
+               P_surf, T_surf, dlnP_bc_dlnPsurf, &
                dlnT_bc_dlnTsurf, P_bc, T_bc, lnT_bc, lnP_bc, &
                dP0_dlnR, dT0_dlnR, dT0_dlnT, dT0_dlnd, dT0_dL, dlnP_bc_dP0, dlnT_bc_dT0, &
-               dlnT_bc_dlnE_const_Rho, dlnT_dlnE_const_Rho, dlnP_dlnE_c_Rho, &
-               dlnP_bc_dlnE_c_Rho, dlnT_bc_dlnd_c_E, dlnP_bc_dlnd_c_E, &
                d_gradT_dlnR, d_gradT_dlnT00, d_gradT_dlnd00, d_gradT_dL, &
                dlnR00, dlnT00, dlnd00
             logical, parameter :: skip_partials = .false.
@@ -1083,7 +1080,7 @@ end subroutine set_momentum_BC
          subroutine set_compression_BC(ierr)
             integer, intent(out) :: ierr
             type(auto_diff_real_star_order1) :: &
-               rho1, rho2, lnd1, lnd2, dlnd1, dlnd2, drho1, drho2
+               rho1, rho2, dlnd1, dlnd2
             include 'formats'
             ! gradient of compression vanishes fixes density for cell 1
                ! d_dt(1/rho(1)) = d_dt(1/rho(2))  e.g., Grott, Chernigovski, Glatzel, 2005.
@@ -1144,7 +1141,6 @@ subroutine equ_data_for_extra_profile_columns( &
          integer, intent(out) :: ierr
          integer :: i, k
          type (star_info), pointer :: s
-         real(dp), dimension(:, :), pointer :: equ
          include 'formats'
          ierr = 0
          call star_ptr(id, s, ierr)
diff --git a/star/private/hydro_momentum.f90 b/star/private/hydro_momentum.f90
index 43388828b..54b29fddc 100644
--- a/star/private/hydro_momentum.f90
+++ b/star/private/hydro_momentum.f90
@@ -86,7 +86,6 @@ end subroutine do1_momentum_eqn
       subroutine get1_momentum_eqn( &
             s, k, P_surf_ad, nvar, &
             d_dm1, d_d00, d_dp1, ierr)
-         use chem_def, only: chem_isos
          use accurate_sum_auto_diff_star_order1
          use auto_diff_support
 
@@ -101,7 +100,7 @@ subroutine get1_momentum_eqn( &
          real(dp), dimension(s% species) :: &
             d_dPtot_dxam1, d_dPtot_dxa00, d_iPtotavg_dxam1, d_iPtotavg_dxa00, &
             d_residual_dxam1, d_residual_dxa00
-         integer :: nz, j, i_dv_dt, i_lum, i_v
+         integer :: nz, i_dv_dt, i_lum, i_v
          logical :: test_partials
          
          type(auto_diff_real_star_order1) :: resid1_ad, resid_ad, &
@@ -389,7 +388,7 @@ subroutine expected_non_HSE_term( &
          integer, intent(out) :: ierr
          type(auto_diff_real_star_order1) :: extra_ad, v_00, &
             drag
-         real(dp) :: accel, d_accel_dv, fraction_on
+         real(dp) :: accel, d_accel_dv
          logical :: test_partials, local_v_flag
 
          include 'formats'
@@ -553,8 +552,8 @@ subroutine do1_radius_eqn(s, k, nvar, ierr)
          integer, intent(in) :: k, nvar
          integer, intent(out) :: ierr
          type(auto_diff_real_star_order1) :: &
-            v00, r_actual, r_expected, dxh_lnR, resid_ad, &
-            dr_div_r0_actual, dr_div_r0_expected, dr
+            v00, dxh_lnR, resid_ad, &
+            dr_div_r0_actual, dr_div_r0_expected
          logical :: test_partials, force_zero_v
          include 'formats'
          !test_partials = (k == s% solver_test_partials_k)
@@ -606,4 +605,3 @@ end subroutine do1_radius_eqn
 
 
       end module hydro_momentum
-
diff --git a/star/private/hydro_riemann.f90 b/star/private/hydro_riemann.f90
index 22f3a5a1d..3fc78617c 100644
--- a/star/private/hydro_riemann.f90
+++ b/star/private/hydro_riemann.f90
@@ -87,7 +87,7 @@ subroutine do1_dudt_eqn( &
          integer, intent(in) :: nvar
          integer, intent(out) :: ierr
       
-         integer :: j, nz, i_du_dt, i_u
+         integer :: nz, i_du_dt
          type(auto_diff_real_star_order1) :: &
             flux_in_ad, flux_out_ad, diffusion_source_ad, &
             geometry_source_ad, gravity_source_ad, &
diff --git a/star/private/hydro_rotation.f90 b/star/private/hydro_rotation.f90
index 19e4e007e..71be26bf6 100644
--- a/star/private/hydro_rotation.f90
+++ b/star/private/hydro_rotation.f90
@@ -216,7 +216,7 @@ end subroutine eval_i_rot
       subroutine set_i_rot(s, skip_w_div_w_crit_roche)
          type (star_info), pointer :: s
          logical, intent(in) :: skip_w_div_w_crit_roche
-         integer :: k, nz
+         integer :: k
          include 'formats'
 
 !$OMP PARALLEL DO PRIVATE(k) SCHEDULE(dynamic,2)
@@ -292,7 +292,7 @@ end subroutine check_omega
       subroutine update1_i_rot_from_xh(s, k)
          type (star_info), pointer :: s
          integer, intent(in) :: k
-         real(dp) :: r00, r003, rp1, rp13, rm1, rm13, r_in, r_out
+         real(dp) :: r00
          include 'formats'
 
          r00 = get_r_from_xh(s,k)
@@ -477,7 +477,6 @@ subroutine set_rotation_info(s, skip_w_div_w_crit_roche, ierr)
          type (star_info), pointer :: s
          logical, intent(in) :: skip_w_div_w_crit_roche
          integer, intent(out) :: ierr
-         integer :: k
          include 'formats'
          ierr = 0
 
@@ -507,7 +506,7 @@ subroutine set_surf_avg_rotation_info(s)
          real(dp) :: &
             dm, dmsum, omega_sum, omega_crit_sum, omega_div_omega_crit_sum, &
             v_rot_sum, v_crit_sum, v_div_v_crit_sum, Lrad_div_Ledd_sum, &
-            kap_face, Ledd, gamma_factor, omega_crit, omega, kap_sum, &
+            gamma_factor, omega_crit, omega, kap_sum, &
             j_rot_sum, j_rot, v_rot, v_crit, Lrad_div_Ledd, dtau, tau, &
             cgrav, kap, mmid, Lmid, rmid, logT_sum, logRho_sum
          integer :: k, ierr
@@ -682,8 +681,7 @@ subroutine eval_fp_ft( &
 
          logical :: dbg
 
-         type(auto_diff_real_1var_order1) :: A_omega,fp_numerator, ft_numerator, w, w2, w3, w4, w5, w6, lg_one_sub_w4, &
-            d_A_omega_dw, d_fp_numerator_dw, d_ft_numerator_dw, fp_temp, ft_temp
+         type(auto_diff_real_1var_order1) :: A_omega,fp_numerator, ft_numerator, w, w2, w3, w4, w5, w6, lg_one_sub_w4, fp_temp, ft_temp
 
          include 'formats'
 
diff --git a/star/private/hydro_rsp2.f90 b/star/private/hydro_rsp2.f90
index 139afea33..3f040ebea 100644
--- a/star/private/hydro_rsp2.f90
+++ b/star/private/hydro_rsp2.f90
@@ -235,7 +235,6 @@ function Hp_face_for_rsp2_eqn(s, k, ierr) result(Hp_face) ! cm
             r_00, Peos_00, d_00, Peos_m1, d_m1, Peos_div_rho, &
             d_face, Peos_face, alt_Hp_face, A
          real(dp) :: alfa, beta
-         integer :: j
          include 'formats'         
          ierr = 0
          if (k > s% nz) then
@@ -289,15 +288,14 @@ subroutine do1_turbulent_energy_eqn(s, k, nvar, ierr)
          type (star_info), pointer :: s
          integer, intent(in) :: k, nvar
          integer, intent(out) :: ierr         
-         integer :: j
          ! for OLD WAY
          type(auto_diff_real_star_order1) :: &
             d_turbulent_energy_ad, Ptrb_dV_ad, dt_C_ad, dt_Eq_ad
-         type(auto_diff_real_star_order1) :: xi0, xi1, xi2, A0, Af, w_00
+         type(auto_diff_real_star_order1) :: w_00
          type(auto_diff_real_star_order1) :: tst, resid_ad, dt_dLt_dm_ad
          type(accurate_auto_diff_real_star_order1) :: esum_ad
          logical :: non_turbulent_cell, test_partials
-         real(dp) :: residual, atol, rtol, scal
+         real(dp) :: residual, scal
          include 'formats'
          !test_partials = (k == s% solver_test_partials_k)
          test_partials = .false.
@@ -374,8 +372,8 @@ end subroutine setup_Ptrb_dV_ad
 
          subroutine setup_dt_dLt_dm_ad(ierr) ! erg g^-1
             integer, intent(out) :: ierr            
-            type(auto_diff_real_star_order1) :: Lt_00, Lt_p1, dLt_ad
-            real(dp) :: Lt_00_start, Lt_p1_start, L_theta
+            type(auto_diff_real_star_order1) :: Lt_00, Lt_p1
+            real(dp) :: L_theta
             include 'formats'
             ierr = 0
             if (s% using_velocity_time_centering .and. &
@@ -629,10 +627,8 @@ function Hp_cell_for_Chi(s, k, ierr) result(Hp_cell) ! cm
          integer, intent(in) :: k
          integer, intent(out) :: ierr
          type(auto_diff_real_star_order1) :: Hp_cell
-         type(auto_diff_real_star_order1) :: &
-            d_00, Peos_00, rmid
+         type(auto_diff_real_star_order1) :: d_00, Peos_00, rmid
          real(dp) :: mmid, cgrav_mid
-         integer :: j
          include 'formats'         
          ierr = 0
          
@@ -769,7 +765,7 @@ function compute_Source(s, k, ierr) result(Source) ! erg g^-1 s^-1
          type(auto_diff_real_star_order1) :: &
             w_00, T_00, d_00, Peos_00, Cp_00, chiT_00, chiRho_00, QQ_00, &
             Hp_face_00, Hp_face_p1, PII_face_00, PII_face_p1, PII_div_Hp_cell, &
-            grad_ad_00, P_QQ_div_Cp
+            P_QQ_div_Cp
          include 'formats'
          ierr = 0
          w_00 = wrap_w_00(s, k)
@@ -922,7 +918,6 @@ subroutine compute_L_terms(s, k, L, Lr, Lc, Lt, ierr)
          type (star_info), pointer, intent(in) :: s
          integer, intent(in) :: k
          type(auto_diff_real_star_order1), intent(out) :: L, Lr, Lc, Lt
-         real(dp) :: L_val
          integer, intent(out) :: ierr         
          include 'formats'
          ierr = 0
@@ -1115,7 +1110,7 @@ end function compute_Lt
       subroutine set_etrb_start_vars(s, ierr)
          type (star_info), pointer :: s
          integer, intent(out) :: ierr         
-         integer :: k, op_err
+         integer :: k
          type(auto_diff_real_star_order1) :: Y_face, Lt
          include 'formats'
          ierr = 0
@@ -1138,8 +1133,8 @@ subroutine RSP2_adjust_vars_before_call_solver(s, ierr) ! replaces check_omega i
          type (star_info), pointer :: s
          integer, intent(out) :: ierr    
          real(dp) :: PII_div_Hp, QQ, SOURCE, Hp_cell, DAMP, POM, POM2, DAMPR, del, soln
-         type(auto_diff_real_star_order1) :: x
-         integer :: k, op_err
+         !type(auto_diff_real_star_order1) :: x
+         integer :: k
          include 'formats'         
          ierr = 0
          if (s% mixing_length_alpha == 0d0) return
diff --git a/star/private/hydro_rsp2_support.f90 b/star/private/hydro_rsp2_support.f90
index 695916cab..9c4baf1d6 100644
--- a/star/private/hydro_rsp2_support.f90
+++ b/star/private/hydro_rsp2_support.f90
@@ -52,8 +52,7 @@ subroutine remesh_for_RSP2(s,ierr)
          type (star_info), pointer :: s      
          integer, intent(out) :: ierr    
          integer :: k, j, nz_old, nz
-         real(dp) :: xm_anchor, P_surf, T_surf, &
-            old_logT_cntr, old_logT_1, old_L1, old_r1
+         real(dp) :: xm_anchor, P_surf, T_surf, old_L1, old_r1
          real(dp), allocatable, dimension(:) :: &
             xm_old, xm, xm_mid_old, xm_mid, v_old, v_new
          real(dp), pointer :: work1(:) ! =(nz_old+1, pm_work_size)
@@ -197,7 +196,7 @@ subroutine find_xm_anchor
          end subroutine find_xm_anchor         
          
          subroutine set_xm_new ! sets xm, dm, m, dq, q
-            integer :: nz_outer, n_inner, iter, k, j
+            integer :: nz_outer, k
             real(dp) :: dq_1_factor, dxm_outer, lnx, dlnx
             include 'formats'
             nz_outer = s% RSP2_nz_outer
@@ -335,10 +334,9 @@ end subroutine rescale_xa
          
          subroutine revise_lnT_for_QHSE(P_surf, ierr)
             use eos_def, only: num_eos_basic_results, num_eos_d_dxa_results
-            use chem_lib
-            use chem_def
+            use chem_def, only: chem_isos
             use eos_support, only: solve_eos_given_DP
-            use eos_def
+            use eos_def, only: i_eta, i_lnfree_e
             use kap_def, only: num_kap_fracs
             use kap_support, only: get_kap
             real(dp), intent(in) :: P_surf
@@ -348,7 +346,7 @@ subroutine revise_lnT_for_QHSE(P_surf, ierr)
                kap_fracs(num_kap_fracs), kap, dlnkap_dlnRho, dlnkap_dlnT, &
                old_kap, new_P_surf, new_T_surf
             real(dp), dimension(num_eos_basic_results) :: &
-               res, d_dlnd, d_dlnT, d_dabar, d_dzbar
+               res, d_dlnd, d_dlnT
             real(dp) :: dres_dxa(num_eos_d_dxa_results,s% species)
             include 'formats'
             ierr = 0
diff --git a/star/private/hydro_temperature.f90 b/star/private/hydro_temperature.f90
index 0fe83f09c..ea5c2307d 100644
--- a/star/private/hydro_temperature.f90
+++ b/star/private/hydro_temperature.f90
@@ -59,7 +59,7 @@ subroutine do1_alt_dlnT_dm_eqn(s, k, nvar, ierr)
             kap_00, kap_m1, kap_face, d_P_rad_expected_ad, T_m1, T4_m1, T_00, T4_00, &
             P_rad_m1, P_rad_00, d_P_rad_actual_ad, resid
          
-         integer :: i_equL, i
+         integer :: i_equL
          logical :: dbg
          logical :: test_partials
 
diff --git a/star/private/hydro_vars.f90 b/star/private/hydro_vars.f90
index bb1a2fab7..bd01ddcfb 100644
--- a/star/private/hydro_vars.f90
+++ b/star/private/hydro_vars.f90
@@ -108,7 +108,7 @@ subroutine set_final_vars(s, dt, ierr)
             skip_mixing_info, &
             skip_set_cz_bdy_mass, &
             skip_mlt
-         integer :: nz, ierr1, k, i
+         integer :: nz, k
          
          include 'formats'
          
@@ -178,8 +178,6 @@ subroutine set_some_vars( &
          real(dp), intent(in) :: dt
          integer, intent(out) :: ierr
 
-         integer(8) :: time0, clock_rate
-         real(dp) :: total
          logical, parameter :: skip_other_cgrav = .false.
          logical, parameter :: skip_basic_vars = .false.
          logical, parameter :: skip_micro_vars = .false.
@@ -387,22 +385,27 @@ end subroutine set_Teff
 
 
       subroutine set_Teff_info_for_eqns(s, skip_partials, &
-            need_atm_Psurf, need_atm_Tsurf, r_surf, L_surf, Teff, &
+            need_atm_Psurf_in, need_atm_Tsurf_in, r_surf, L_surf, Teff, &
             lnT_surf, dlnT_dL, dlnT_dlnR, dlnT_dlnM, dlnT_dlnkap, &
             lnP_surf, dlnP_dL, dlnP_dlnR, dlnP_dlnM, dlnP_dlnkap, &
             ierr)
          use star_utils, only: set_phot_info
          use atm_lib, only: atm_Teff
+         use starspots, only: starspot_tweak_PT, starspot_restore_PT
          type (star_info), pointer :: s
          logical, intent(in) :: skip_partials, &
-            need_atm_Psurf, need_atm_Tsurf
+            need_atm_Psurf_in, need_atm_Tsurf_in
          real(dp), intent(out) :: r_surf, L_surf, Teff, &
             lnT_surf, dlnT_dL, dlnT_dlnR, dlnT_dlnM, dlnT_dlnkap, &
             lnP_surf, dlnP_dL, dlnP_dlnR, dlnP_dlnM, dlnP_dlnkap
          integer, intent(out) :: ierr
+         logical :: need_atm_Psurf, need_atm_Tsurf
 
          include 'formats'
 
+         need_atm_Psurf = need_atm_Psurf_in
+         need_atm_Tsurf = need_atm_Tsurf_in
+
          ierr = 0
          
          r_surf = s% r(1)
@@ -435,11 +438,21 @@ subroutine set_Teff_info_for_eqns(s, skip_partials, &
                lnP_surf, dlnP_dL, dlnP_dlnR, dlnP_dlnM, dlnP_dlnkap, &
                ierr)
          else
+            ! starspot YREC routine
+            if (s% do_starspots) then
+               need_atm_Psurf = .true.
+               need_atm_Tsurf = .true.
+               call starspot_tweak_PT(s)
+            end if
             call get_surf_PT( &
                s, skip_partials, need_atm_Psurf, need_atm_Tsurf, &
                lnT_surf, dlnT_dL, dlnT_dlnR, dlnT_dlnM, dlnT_dlnkap, &
                lnP_surf, dlnP_dL, dlnP_dlnR, dlnP_dlnM, dlnP_dlnkap, &
                ierr)
+            ! starspot YREC routine
+            if (s% do_starspots) then
+               call starspot_restore_PT(s)
+            end if
          end if
          if (ierr /= 0) then
             if (s% report_ierr) then
@@ -481,7 +494,7 @@ subroutine set_hydro_vars( &
             skip_mixing_info, skip_set_cz_bdy_mass, skip_mlt
          integer, intent(out) :: ierr
 
-         integer :: nz, num_nse, k, T_tau_id
+         integer :: nz, k, T_tau_id
          integer(8) :: time0
          logical, parameter :: dbg = .false.
          real(dp) :: total
@@ -668,13 +681,12 @@ end subroutine check_rs
 
 
       subroutine set_basic_vars(s, nzlo, nzhi, ierr)
-         use chem_def, only: ini56
          use star_utils, only: set_rv_info, set_rmid
          type (star_info), pointer :: s
          integer, intent(in) :: nzlo, nzhi
          integer, intent(out) :: ierr
          integer :: j, k, species, nz
-         real(dp) :: twoGmrc2, r2, alfa, beta, sum_xa, v, u00, um1, du
+         real(dp) :: twoGmrc2, sum_xa
 
          include 'formats'
 
@@ -785,7 +797,6 @@ subroutine get_surf_PT( &
          real(dp) :: kap_surf
          real(dp) :: M_surf
 
-
          include 'formats'
 
          ! Set up stellar surface parameters
@@ -1101,7 +1112,6 @@ subroutine compute_smoothed_brunt_B
             use star_utils, only: weighed_smoothing, threshold_smoothing
             logical, parameter :: preserve_sign = .false.
             real(dp), pointer, dimension(:) :: work
-            integer :: k
             include 'formats'
             ierr = 0
             work => dlnd
diff --git a/star/private/init.f90 b/star/private/init.f90
index 04021fe57..47ca40b9a 100644
--- a/star/private/init.f90
+++ b/star/private/init.f90
@@ -117,8 +117,6 @@ subroutine do_star_init( &
          character (len=*), intent(in) :: color_file_names(:)
          integer , intent(in):: color_num_colors(:)
          integer, intent(out) :: ierr
-         integer :: iam, nprocs, nprow, npcol, i, n
-         integer, dimension(:), allocatable :: seed
          include 'formats'
          ierr = 0
          if (have_done_starlib_init) return
@@ -176,7 +174,6 @@ end subroutine do_starlib_shutdown
 
 
       subroutine alloc_star_data(id, ierr)
-         use rates_def, only: rates_reaction_id_max
          use chem_def, only: num_categories
          use net, only: default_set_rate_factors, &
             default_set_op_mono_factors
@@ -849,12 +846,11 @@ subroutine model_builder( &
          integer, intent(out) :: ierr
 
          type (star_info), pointer :: s
-         real(dp) :: initial_mass, initial_z, dlgm_per_step
+         real(dp) :: initial_mass, initial_z
          real(dp), parameter :: lg_max_abs_mdot = -1000 ! use default
          real(dp), parameter :: change_mass_years_for_dt = 1
          real(dp), parameter :: min_mass_for_create_pre_ms = 0.03d0
-         logical :: restore_at_end
-         real(dp) :: xm, total_radiation, warning_limit_for_max_residual
+         real(dp) :: total_radiation, warning_limit_for_max_residual
          integer :: k, num_trace_history_values
          real(dp) :: save_Pextra_factor
          character (len=256):: save_atm_option, &
diff --git a/star/private/init_model.f90 b/star/private/init_model.f90
index 49cd27a74..196ca85e0 100644
--- a/star/private/init_model.f90
+++ b/star/private/init_model.f90
@@ -273,7 +273,6 @@ subroutine read_zams_header
             use read_model, only: read_properties
             integer :: year_month_day_when_created, iprop
             real(dp) :: dprop, initial_z, initial_y
-            character (len=net_name_len) :: net_name
             read(iounit, *, iostat=ierr) ! skip blank line before property list
             include 'formats'
             if (ierr /= 0) return
diff --git a/star/private/kap_support.f90 b/star/private/kap_support.f90
index fb4262480..2031eee4a 100644
--- a/star/private/kap_support.f90
+++ b/star/private/kap_support.f90
@@ -236,7 +236,7 @@ subroutine get_kap( &
          get_op_mono_args, kap_get_op_mono, kap_get, &
          call_compute_kappa_mombarg
 
-    use chem_def, only: ih1, ihe3, ihe4, chem_isos
+    use chem_def, only: chem_isos
     use star_utils, only: get_XYZ, lookup_nameofvar
 
     type (star_info), pointer :: s
@@ -256,22 +256,19 @@ subroutine get_kap( &
     type(auto_diff_real_2var_order1) :: beta, lnkap, lnkap_op
     real(dp) :: kap_op, dlnkap_op_dlnRho, dlnkap_op_dlnT, &
        Z, xh, xhe, xc, xn, xo, xne, &
-       kap_ross_cell, log_kap_rad, fk(17), delta
+       log_kap_rad, fk(17)
 
     character(len=4) :: e_name
 
-    !real(dp), pointer :: xa(:)
     integer, pointer :: net_iso(:)
     real, pointer :: &
          umesh(:), semesh(:), ff(:,:,:,:), rs(:,:,:)
     integer :: nel, izzp(s% species)
-    real(dp) :: fap(s% species), fac(s% species), gp1(s% species)
+    real(dp) :: fap(s% species), fac(s% species)
     logical :: screening
     real(dp), parameter :: &
          eps = 1d-6, minus_eps = -eps, one_plus_eps = 1d0 + eps
 
-    integer :: i_var
-
     include 'formats'
 
     if (s% doing_timing) s% timing_num_get_kap_calls = s% timing_num_get_kap_calls + 1
diff --git a/star/private/mass_utils.f90 b/star/private/mass_utils.f90
index 7250c858f..255b42f13 100644
--- a/star/private/mass_utils.f90
+++ b/star/private/mass_utils.f90
@@ -186,7 +186,7 @@ subroutine make_compressed_intersect(dm1, dm2, nz, mesh_intersects, ranges)
          integer side
          real(qp), dimension(:), allocatable :: remainders1, remainders2
          type(accurate_real) diff, dBottom, dTop, dBottomTop, dTopBottom
-         integer i, j, k, counter
+         integer :: i, j, k, counter
 
          allocate(remainders1(nz), remainders2(nz))
 
@@ -340,7 +340,7 @@ subroutine find_i_ranges(nz, ranges, i_min, i_max)
          integer, dimension(0:nz) :: i_min, i_max
 
          ! Intermediates
-         integer i, j, counter
+         integer :: i, j, counter
 
          ! Ensures that anything is less than initial i_min
          ! and anything is morre than initial i_max.
@@ -379,9 +379,7 @@ subroutine prepare_pass_fraction(nz, delta_m, dm, mesh_intersects, ranges, i_min
          type(non_rect_array), dimension(0:nz) :: pf
 
          ! Intermediates
-         integer i, j, l, counter, start, end, direction
-         logical work_backwards
-         real(qp), dimension(:), allocatable :: test
+         integer :: i, j, l, counter
 
          ! Outputs
          call find_i_ranges(nz, ranges, i_min, i_max)
@@ -432,7 +430,7 @@ end subroutine prepare_pass_fraction
       ! inside cell i.
       real(qp) function compute_pass_fraction(i, j, i_min, i_max, pf)
          ! Inputs
-         integer i, j
+         integer :: i, j
          integer, dimension(0:) :: i_min, i_max
          type(non_rect_array), dimension(0:) :: pf
 
@@ -457,7 +455,7 @@ subroutine find_j_ranges(nz, ranges, mass_flux, j_min, j_max)
          real(qp), dimension(:) :: mass_flux
 
          ! Intermediates
-         integer i, j, counter
+         integer :: i, j, counter
 
          ! Ensures that anything is less than initial i_min
          ! and anything is morre than initial i_max.
@@ -538,7 +536,7 @@ subroutine integrate_conserved(vals_new, vals_old, vals_outside, dm_new, dm_old,
          real(qp), intent(in), dimension(:) :: dm_new, dm_old
 
          ! Intermediates
-         integer i, j, k, l
+         integer :: i, j, k, l
          real(qp) :: mesh_intersects(2*nz)
          integer :: ranges(2*nz,2)
 
diff --git a/star/private/mesh_adjust.f90 b/star/private/mesh_adjust.f90
index 5a227e10f..60661cce5 100644
--- a/star/private/mesh_adjust.f90
+++ b/star/private/mesh_adjust.f90
@@ -68,7 +68,7 @@ subroutine do_mesh_adjust( &
          integer, dimension(:) :: cell_type, comes_from
          real(dp), dimension(:), pointer :: &
             dq_old, xq_old, dq, xq, energy_old, eta_old, &
-            lnd_old, lnPgas_old, mlt_vc_old, lnT_old, w_old, Hp_face_old, &
+            lnd_old, lnPgas_old, mlt_vc_old, lnT_old, w_old, &
             specific_PE_old, specific_KE_old, &
             old_m, old_r, old_rho, dPdr_dRhodr_info_old, &
             j_rot_old, omega_old, D_omega_old, D_mix_old
@@ -77,11 +77,10 @@ subroutine do_mesh_adjust( &
          real(dp), dimension(:,:), pointer :: xh, xa
          integer, intent(out) :: ierr
 
-         real(dp) :: dxa, xmstar, mstar, sumx, remove1, remove2, &
+         real(dp) :: dxa, xmstar, mstar, sumx, &
             total_internal_energy1, total_internal_energy2, err
          character (len=strlen) :: message
-         integer :: k, from_k, j, op_err, nzlo, nzhi, nzlo_old, nzhi_old, species
-         logical :: found_bad_one
+         integer :: k, j, op_err, nzlo, nzhi, nzlo_old, nzhi_old, species
          real(dp), pointer :: work(:)
          real(dp), dimension(:), allocatable :: &
             dqbar, dqbar_old, new_r, Vol_new, xq_old_plus1, &
@@ -895,7 +894,7 @@ subroutine do_interp_cell_val( &
 
          real(dp), pointer, dimension(:) :: &
             mid_xq_new, mid_xq_old_plus1
-         integer :: n, i, j, k
+         integer :: n, i, k
 
          ierr = 0
          n = nzhi - nzlo + 1
@@ -993,7 +992,7 @@ subroutine do_lnR_and_lnd( &
             interp_Vol_new, interp_xq, density_init
          integer, intent(out) :: ierr
 
-         integer :: k, from_k, kk, n, interp_lo, interp_hi, interp_n, num_revise
+         integer :: k, from_k, n, interp_lo, interp_hi, interp_n
          real(dp) :: Vol_min, Vol_max, cell_Vol, Vol_center, Vm1, V00, Vp1
 
          logical, parameter :: dbg = .false., trace_PE_residual = .false.
@@ -1350,13 +1349,12 @@ subroutine do1_lnT( &
             specific_PE_old, specific_KE_old, w_old, density_new, energy_new
          integer, intent(out) :: ierr
 
-         integer :: k_old, k_old_last, lnT_order, energy_order
+         integer :: k_old
          real(dp) :: &
             Rho, logRho, xq_outer, cell_dq, avg_energy, avg_PE, avg_KE, &
             new_PE, new_KE, max_delta_energy, delta_energy, revised_energy, &
             sum_lnT, avg_lnT, new_lnT, sum_energy, new_xa(species), &
             d_dlnR00, d_dlnRp1, d_dv00, d_dvp1
-         logical :: dbg_get_integral
 
          include 'formats'
 
@@ -1661,11 +1659,10 @@ subroutine set_lnT_for_energy_with_tol( &
          integer, intent(out) :: ierr
 
          real(dp) :: &
-            X, Y, Z, T, logT, res(num_eos_basic_results), &
+            logT, res(num_eos_basic_results), &
             d_dlnd(num_eos_basic_results), d_dlnT(num_eos_basic_results), &
             d_dxa(num_eos_d_dxa_results, s% species), &
             logT_tol, logE_tol
-         integer :: j
 
          include 'formats'
 
@@ -1947,8 +1944,7 @@ subroutine adjust_omega(s, nz, nz_old, comes_from, &
             xout_old, xout_new, old_dqbar, new_dqbar
          real(dp), intent(in) :: xh(:,:)
          integer, intent(out) :: ierr
-         integer :: k, op_err, old_k, new_k
-         real(dp) :: old_j_tot, new_j_tot
+         integer :: k, op_err
          include 'formats'
          ierr = 0
 
@@ -1977,7 +1973,7 @@ subroutine adjust1_omega(s, k, nz, nz_old, comes_from, &
          integer, intent(out) :: ierr
 
          real(dp) :: xq_outer, xq_inner, j_tot, xq0, xq1, new_point_dqbar, dq_sum, dq, r00
-         integer :: kk, k_outer, j
+         integer :: kk, k_outer
 
          integer, parameter :: k_dbg = -1
 
@@ -2139,7 +2135,7 @@ subroutine do_v( &
          real(dp), dimension(:,:) :: xh, xh_old
          integer, intent(out) :: ierr
 
-         integer :: k, j, op_err, old_k, new_k, i_v
+         integer :: k, op_err, i_v
          real(dp) :: old_ke_tot, new_ke_tot, xmstar, err
 
          include 'formats'
@@ -2208,7 +2204,7 @@ subroutine adjust1_v( &
 
          real(dp) :: xq_outer, xq_inner, ke_sum, &
             xq0, xq1, new_point_dqbar, dq_sum, dq
-         integer :: kk, k_outer, j
+         integer :: kk, k_outer
 
          integer, parameter :: k_dbg = -1
 
@@ -2396,7 +2392,7 @@ subroutine do_u( &
          real(dp), dimension(:,:) :: xh, xh_old
          integer, intent(out) :: ierr
 
-         integer :: k, j, op_err, old_k, new_k, i_u
+         integer :: k, op_err, i_u
          real(dp) :: old_ke_tot, new_ke_tot, xmstar, err
 
          include 'formats'
@@ -2457,7 +2453,7 @@ subroutine adjust1_u( &
 
          real(dp) :: xq_outer, xq_inner, ke_sum, &
             xq0, xq1, new_cell_dq, dq_sum, dq
-         integer :: kk, k_outer, j
+         integer :: kk, k_outer
 
          integer, parameter :: k_dbg = -1
 
@@ -2688,7 +2684,7 @@ subroutine do_etrb( & ! same logic as do_u
          real(dp), dimension(:,:) :: xh, xh_old
          integer, intent(out) :: ierr
 
-         integer :: k, j, op_err, old_k, new_k, i_w
+         integer :: k, op_err, i_w
          real(dp) :: old_eturb_tot, new_eturb_tot, xmstar, err
 
          include 'formats'
@@ -2749,7 +2745,7 @@ subroutine adjust1_etrb( &
 
          real(dp) :: xq_outer, xq_inner, eturb_sum, &
             xq0, xq1, new_cell_dq, dq_sum, dq
-         integer :: kk, k_outer, j
+         integer :: kk, k_outer
 
          integer, parameter :: k_dbg = -1
 
diff --git a/star/private/mesh_plan.f90 b/star/private/mesh_plan.f90
index ec897ad1b..d0ef6d420 100644
--- a/star/private/mesh_plan.f90
+++ b/star/private/mesh_plan.f90
@@ -86,7 +86,7 @@ subroutine do_mesh_plan( &
          integer :: j, k, k_old, k_new, nz, new_capacity, iounit, species, &
             max_num_merge_surface_cells, max_k_old_for_split, min_k_old_for_split
          real(dp) :: D_mix_cutoff, next_xq, next_dq, max_dq_cntr, &
-            dq_sum, tmp, min_dq, min_dq_for_xa, min_dq_for_logT
+            dq_sum, min_dq, min_dq_for_xa, min_dq_for_logT
 
          logical, parameter :: write_plan_debug = .false.
 
@@ -473,7 +473,7 @@ end subroutine split1
          logical function okay_to_split1(k_old, dq_new, remaining_dq_old)
             integer, intent(in) :: k_old
             real(dp), intent(in) :: dq_new, remaining_dq_old
-            real(dp) :: dlnR_old, dr_old, min_dr, rR, rL, dlnR_new
+            real(dp) :: dr_old, min_dr, rR, rL, dlnR_new
             logical :: dbg
 
             include 'formats'
@@ -612,7 +612,7 @@ subroutine pick_new_points(s, ierr)
             integer, intent(out) :: ierr
 
             logical :: dbg, force_merge_with_one_more
-            real(dp) :: dqsum, prev_dq, dq_limit, maxval_delta_xa, next_dq_max, beta_limit, &
+            real(dp) :: maxval_delta_xa, next_dq_max, beta_limit, &
                remaining_dq_old, min_dr
             integer :: kk, k_old_init, k_old_next, k_old_next_max, j00, jm1, i, max_merge
 
diff --git a/star/private/micro.f90 b/star/private/micro.f90
index 393e9e039..aed3c989c 100644
--- a/star/private/micro.f90
+++ b/star/private/micro.f90
@@ -73,7 +73,7 @@ subroutine set_micro_vars( &
     logical, intent(in) :: skip_eos, skip_net, skip_neu, skip_kap
     integer, intent(out) :: ierr
 
-    integer :: j, k, op_err, k_bad, res, i
+    integer :: k, op_err, i
     integer(8) :: time0
     real(dp) :: total, alfa, beta
     character(len=4) :: e_name
@@ -323,14 +323,11 @@ subroutine do_eos_for_cell(s,k,ierr)
     integer, intent(in) :: k
     integer, intent(out) :: ierr
 
-    real(dp), dimension(num_eos_basic_results) :: &
-         res, res_a, res_b, d_dlnd, d_dlnT
+    real(dp), dimension(num_eos_basic_results) :: res, d_dlnd, d_dlnT
     real(dp), dimension(num_eos_d_dxa_results,s% species) :: d_dxa
-    real(dp) :: &
-         sumx, dx, dxh_a, dxh_b, &
-         Rho, logRho, lnd, lnE, logT, T, logPgas, energy, logQ, frac
+    real(dp) :: sumx, logRho, logT, logPgas
     integer, pointer :: net_iso(:)
-    integer :: j, species, i_var, i_var_sink
+    integer :: species
     real(dp), parameter :: epsder = 1d-4, Z_limit = 0.5d0
     real(dp), parameter :: LOGRHO_TOL = 1d-8, LOGPGAS_TOL = 1d-8
 
@@ -588,22 +585,13 @@ subroutine do_kap_for_cell(s,k,ierr)
     integer, intent(in) :: k
     integer, intent(out) :: ierr
 
-    integer, pointer :: net_iso(:)
-    integer :: i, iz, kh
     real(dp) :: &
-         log10_rho, log10_T, dlnkap_dlnd, dlnkap_dlnT, &
-         opacity_max, opacity_max0, opacity_max1, zbar, &
+         log10_rho, log10_T, dlnkap_dlnd, dlnkap_dlnT, zbar, &
          lnfree_e, d_lnfree_e_dlnRho, d_lnfree_e_dlnT, &
-         eta, d_eta_dlnRho, d_eta_dlnT, &
-         log_r, log_r_in, log_r_out, log_r_frac, frac, min_cno_for_kap_limit, &
-         P, Prad, Pgas, Ledd_factor, Ledd_kap, Ledd_log, &
-         a, b, da_dlnd, da_dlnT, db_dlnd, db_dlnT, opacity_factor
-         !kap_ross_cell, log_kap_rad, fk(17), delta
+         eta, d_eta_dlnRho, d_eta_dlnT, opacity_factor
 
     real(dp), dimension(num_kap_fracs) :: kap_fracs
-    !character(len=4) :: e_name
 
-    character (len=100) :: message
     real(dp), pointer :: xa(:)
     logical :: test_partials
 
diff --git a/star/private/mix_info.f90 b/star/private/mix_info.f90
index b27f174fb..23f0f6985 100644
--- a/star/private/mix_info.f90
+++ b/star/private/mix_info.f90
@@ -56,8 +56,8 @@ subroutine set_mixing_info(s, skip_set_cz_bdy_mass, ierr)
          logical, intent(in) :: skip_set_cz_bdy_mass
          integer, intent(out) :: ierr
 
-         integer :: nz, i, k, max_conv_bdy, max_mix_bdy, k_Tmax, i_h1, i_he4, i_c12
-         real(dp) :: c, rho_face, f, Tmax, conv_vel, min_conv_vel_for_convective_mixing_type, &
+         integer :: nz, k, max_conv_bdy, max_mix_bdy, k_Tmax, i_h1, i_he4, i_c12
+         real(dp) :: rho_face, f, Tmax, min_conv_vel_for_convective_mixing_type, &
             region_bottom_q, region_top_q, L_val
          real(dp), allocatable, dimension(:) :: eps_h, eps_he, eps_z, cdc_factor
 
@@ -426,7 +426,7 @@ subroutine set_cz_boundary_info(s, ierr)
          type (star_info), pointer :: s
          integer, intent(out) :: ierr
 
-         integer :: k, mt, mt1, mt2, nz
+         integer :: k, mt1, mt2, nz
          real(dp) :: dg0, dg1
 
          include 'formats'
@@ -537,8 +537,7 @@ subroutine locate_convection_boundaries( &
 
          logical :: in_convective_region
          integer :: k, k_bot, i, j, iounit, max_conv_bdy
-         real(dp) :: dgrad00, dgradp1, turnover_time, &
-            bot_Hp, bot_r, top_Hp, top_r, dr
+         real(dp) :: turnover_time, bot_Hp, bot_r, top_Hp, top_r, dr
 
          logical :: dbg
          logical, parameter :: write_debug = .false.
@@ -584,7 +583,7 @@ subroutine locate_convection_boundaries( &
             if (in_convective_region) then
                if (s% mixing_type(k) /= convective_mixing) then
                   call end_of_convective_region
-               else if(s% conv_vel(k) .ne. 0d0) then
+               else if(s% conv_vel(k) /= 0d0) then
                   turnover_time = turnover_time + (s% rmid(k-1) - s% rmid(k))/s% conv_vel(k)
                end if
             else ! in non-convective region
@@ -654,7 +653,7 @@ subroutine locate_convection_boundaries( &
 
 
          subroutine end_of_convective_region()
-            integer :: max_logT_loc, kk, op_err, mix_type
+            integer :: max_logT_loc, kk
             real(dp) :: max_logT, max_X, max_Y, Hp, max_eps
             logical :: end_dbg
 
@@ -800,7 +799,7 @@ subroutine locate_mixing_boundaries(s, eps_h, eps_he, eps_z, ierr)
          integer, intent(out) :: ierr
 
          logical :: in_mixing_region
-         integer :: k, k_bot, i, j, iounit, max_mix_bdy, nz
+         integer :: k, k_bot, i, max_mix_bdy, nz
 
          logical, parameter :: dbg = .false.
 
@@ -1113,7 +1112,7 @@ subroutine close_gaps(s, mix_type, min_gap, ierr)
          real(dp), intent(in) :: min_gap
          integer, intent(out) :: ierr
 
-         integer :: k, kk, nz
+         integer :: k, nz
          logical :: in_region, dbg
          real(dp) :: rtop, rbot, Hp
          integer :: ktop, kbot ! k's for gap
@@ -1279,7 +1278,7 @@ subroutine remove_embedded_semiconvection(s, ierr)
 
 
          subroutine clean_region
-            integer :: kbot1, ktop1, kk
+            integer :: kbot1, ktop1
             include 'formats'
             if (dbg) write(*,3) 'clean_region semiconvective', kbot, ktop
             ! move top to below top convective region
@@ -1380,7 +1379,6 @@ end subroutine do_mix_envelope
 
 
       subroutine get_convection_sigmas(s, dt, ierr)
-         use chem_def, only: chem_isos
          type (star_info), pointer :: s
          real(dp), intent(in) :: dt
          integer, intent(out) :: ierr
@@ -1389,10 +1387,8 @@ subroutine get_convection_sigmas(s, dt, ierr)
          real(dp) :: sig_term_limit ! sig_term_limit is used to help convergence
 
          real(dp) :: siglim, xmstar, dq00, dqm1, cdcterm, dmavg, rho_face, &
-            cdc, max_sig, D, xm1, x00, xp1, dm, dX, X, cushion, limit, &
-            Tc, full_off, full_on, X_lim, dX_lim, qbot, qtop, &
-            f1, f, df_dlnd00, df_dlndm1, df_dlnR, df_d_rho_face, alfa, beta
-         logical :: in_convective_region
+            cdc, max_sig, D, xm1, x00, dm, dX, X, cushion, limit, &
+            Tc, full_off, full_on, qbot, qtop, f1, f, alfa
          real(dp), dimension(:), pointer :: sig, D_mix
 
          include 'formats'
@@ -1564,7 +1560,7 @@ subroutine update_rotation_mixing_info(s, ierr)
          type (star_info), pointer :: s
          integer, intent(out) :: ierr
 
-         integer :: k, nz, k0
+         integer :: k, nz
          logical :: set_min_am_nu_non_rot, okay
          real(dp) :: &
             am_nu_visc_factor, &
@@ -1943,13 +1939,13 @@ end subroutine update_rotation_mixing_info
 
 
       subroutine set_RTI_mixing_info(s, ierr)
-         use chem_def, only: ih1, ihe4
+         use chem_def, only: ih1
          use star_utils, only: get_shock_info
          type (star_info), pointer :: s
          integer, intent(out) :: ierr
          real(dp) :: &
             C, alpha_face, f, v, &
-            am1, a00, ap1, min_dm, alfa0, alfa, cs, r, shock_mass_start, &
+            min_dm, alfa, cs, r, shock_mass_start, &
             log_max_boost, m_full_boost, m_no_boost, max_boost, &
             dm_for_center_eta_nondecreasing, min_eta
          integer :: k, nz, i_h1
@@ -2115,11 +2111,10 @@ end subroutine get_RTI_sigmas
       subroutine set_dPdr_dRhodr_info(s, ierr)
          type (star_info), pointer :: s
          integer, intent(out) :: ierr
-         real(dp) :: rho, r00, alfa00, beta00, P_face00, rho_face00, &
-            rp1, alfap1, betap1, dr_m1, dr_00, &
-            c, d, am1, a00, ap1, v, rmid
+         real(dp) :: rho, r00, alfa00, beta00, &
+            dr_m1, dr_00, c, d, am1, a00, ap1, v, rmid
          real(dp), allocatable, dimension(:) :: dPdr, drhodr, P_face, rho_face
-         integer :: k, nz, width
+         integer :: k, nz
          logical, parameter :: do_slope_limiting = .false.
          include 'formats'
          ierr = 0
@@ -2236,7 +2231,7 @@ subroutine do_smoothing_by_mass( &
          integer, intent(in) :: number_iterations
          real(dp) :: val(:)
          integer, intent(out) :: ierr
-         integer :: nz, iter, k_center, k_inner, k_outer, j, k
+         integer :: nz, iter, k_center, k_inner, k_outer, k
          real(dp) :: mlo, mhi, mmid, smooth_m, v, dm_half, mtotal, mass_from_cell
          real(dp), allocatable :: work(:)
          include 'formats'
diff --git a/star/private/net.f90 b/star/private/net.f90
index 6d73ace29..96304dcbc 100644
--- a/star/private/net.f90
+++ b/star/private/net.f90
@@ -50,10 +50,9 @@ subroutine do_net(s, nzlo, nzhi, ierr)
          integer, intent(out) :: ierr
 
          logical, parameter :: use_omp = .true.
-         integer :: k, op_err, j, jj, cnt, kmax
-         integer(8) :: time0, clock_rate
+         integer :: k, op_err
+         integer(8) :: time0
          real(dp) :: total
-         integer, pointer :: ks(:)
          logical, parameter :: only_dlnT = .false.
          logical :: okay, check_op_split_burn
 
@@ -134,14 +133,13 @@ end subroutine do_net
 
       subroutine do1_net(s, k, species, &
             num_reactions, check_op_split_burn, ierr)
-         use rates_def, only: std_reaction_Qs, std_reaction_neuQs, i_rate, &
-            star_debugging_rates_flag, rates_test_partials_val, rates_test_partials_dval_dx
+         use rates_def, only: std_reaction_Qs, std_reaction_neuQs, i_rate
          use net_def, only: Net_Info, net_test_partials, &
             net_test_partials_val, net_test_partials_dval_dx, net_test_partials_i, &
             net_test_partials_iother, get_net_ptr
          use net_lib, only: net_get
          use star_utils, only: lookup_nameofvar
-         use chem_def, only: chem_isos, category_name, i_ni56_co56, i_co56_fe56, &
+         use chem_def, only: category_name, i_ni56_co56, i_co56_fe56, &
             num_categories, iphoto, category_name
          use eos_def, only : i_eta
          use utils_lib,only: realloc_double, realloc_double3
@@ -151,10 +149,9 @@ subroutine do1_net(s, k, species, &
          integer, intent(out) :: ierr
 
          integer :: i, j, kk, screening_mode, sz, i_var, i_var_sink
-         real(dp) :: log10_rho, log10_T, T, alfa, beta, eps_nuc_factor, &
-            d_eps_nuc_dRho, d_eps_nuc_dT, cat_factor, tau_gamma, eps_cat_sum
+         real(dp) :: log10_rho, log10_T, T, alfa, eps_nuc_factor, &
+            d_eps_nuc_dRho, d_eps_nuc_dT, tau_gamma, eps_cat_sum
          type (Net_Info) :: n
-         character (len=100) :: message
          real(dp), pointer :: reaction_neuQs(:)
          logical :: clipped_T
 
@@ -441,9 +438,7 @@ subroutine show_stuff(s,k)
          real(dp) :: log10_Rho, log10_T
          real(dp), pointer :: v(:)
          integer, pointer :: index(:)
-         real(dp), pointer, dimension(:) :: &
-            rate_screened, rate_screened_dT, rate_screened_dRho, &
-            rate_raw, rate_raw_dT, rate_raw_dRho
+         real(dp), pointer, dimension(:) :: rate_screened, rate_raw
 
          include 'formats'
 
@@ -605,10 +600,8 @@ subroutine set_net(s, new_net_name, ierr)
          character (len=*), intent(in) :: new_net_name
          integer, intent(out) :: ierr
 
-         integer :: i, ir
          integer :: old_num_reactions, old_nvar_chem, old_species
          integer, parameter :: num_lowT_rates = 10
-         integer, pointer :: net_reaction_ptr(:)
 
          include 'formats'
 
diff --git a/star/private/neu.f90 b/star/private/neu.f90
index 32a50d611..8d191866c 100644
--- a/star/private/neu.f90
+++ b/star/private/neu.f90
@@ -38,8 +38,6 @@ module neu
       contains
 
 
-
-
       subroutine do_clear_neu_for_cell(s,k,ierr)
          type (star_info), pointer :: s
          integer, intent(in) :: k
@@ -59,8 +57,7 @@ end subroutine do_clear_neu_for_cell
       subroutine do_neu_for_cell(s,k,ierr)
          use neu_def
          use neu_lib
-         use chem_def, only: chem_isos
-         use const_def,only:ln10
+         use const_def, only:ln10
          type (star_info), pointer :: s
          integer, intent(in) :: k
          integer, intent(out) :: ierr
@@ -70,7 +67,6 @@ subroutine do_neu_for_cell(s,k,ierr)
          real(dp) :: log10_rho, log10_T
          real(dp), parameter :: log10_Tlim = 7.5d0
          logical :: flags(num_neu_types) ! true if should include the type of loss
-         integer :: j
 
          include 'formats'
 
@@ -139,6 +135,5 @@ subroutine do_neu_for_cell(s,k,ierr)
       end subroutine do_neu_for_cell
 
 
-
       end module neu
 
diff --git a/star/private/overshoot_utils.f90 b/star/private/overshoot_utils.f90
index 5aadc334c..98298f5da 100644
--- a/star/private/overshoot_utils.f90
+++ b/star/private/overshoot_utils.f90
@@ -134,7 +134,6 @@ subroutine eval_conv_bdy_Hp (s, i, Hp, ierr)
 
     integer  :: k
     real(dp) :: r
-    real(dp) :: w
     real(dp) :: x0
     real(dp) :: x1
     real(dp) :: x2
diff --git a/star/private/paquette_coeffs.f90 b/star/private/paquette_coeffs.f90
index ac2a71e5b..d6738d11f 100644
--- a/star/private/paquette_coeffs.f90
+++ b/star/private/paquette_coeffs.f90
@@ -61,7 +61,7 @@ subroutine paquette_coefficients(rho, T, NN, CAN1, KZN1, NA1, Ddiff, Kdiff, Zdif
 ! Local variables
       real(dp) :: PSI_ST, EPS_ST, GAMMA_ST2, A, E_PSI_ST
       real(dp) :: AA, BB, CC, EE, Ps, Pt, Pst, Qs, Qt, Qst, Ss, &
-           St, Ms, Mt, Xs, Xt, Xe, Me, Pe, Se, DELTA
+           St, Ms, Mt, Xs, Xt, DELTA
       real(dp) :: DPSI_N1, DPSI_N
       integer :: i, J, N, K, NREF
       real(dp) :: NZZ, NE
@@ -96,7 +96,7 @@ subroutine paquette_coefficients(rho, T, NN, CAN1, KZN1, NA1, Ddiff, Kdiff, Zdif
          E_PSI_ST = log(1.0D0+GAMMA_ST2)
          PSI_ST = log(E_PSI_ST)
 ! Evaluate the collision integral
-         if (PSI_ST.le.3.0D0) then
+         if (PSI_ST<=3.0D0) then
 ! if PSI_ST falls outside range of Paquette's fit, then just take border value
             PSI_ST = MAX(-7.D0, PSI_ST)
 ! Use spline interpolation to evaluate the collision integrals
@@ -188,7 +188,7 @@ subroutine paquette_coefficients(rho, T, NN, CAN1, KZN1, NA1, Ddiff, Kdiff, Zdif
                   F1(3) = 1.99814D0*E_PSI_ST - 0.64413D0
                   F22   = 1.99016D0*E_PSI_ST - 4.56958D0
                endif
-            elseif (PSI_ST.ge.4.0D0) then
+            elseif (PSI_ST>=4.0D0) then
 ! repulsive and attractive coeffcients are the same in this range
                F1(1) = 1.00141D0*E_PSI_ST - 3.18209D0
                F1(2) = 0.99559D0*E_PSI_ST - 1.29553D0
diff --git a/star/private/pgstar_abundance.f90 b/star/private/pgstar_abundance.f90
index b4217600b..f3d52cce3 100644
--- a/star/private/pgstar_abundance.f90
+++ b/star/private/pgstar_abundance.f90
@@ -100,11 +100,10 @@ subroutine do_abundance_panel(s, id, device_id, &
             xaxis_reversed, panel_flag, xaxis_numeric_labels_flag
          integer, intent(out) :: ierr
 
-         character (len=strlen) :: str
          real, allocatable, dimension(:) :: xvec, yvec
          real :: xmin, xmax, xleft, xright, dx, dylbl, chScale, windy, xmargin, &
             ymin, ymax, legend_xmin, legend_xmax, legend_ymin, legend_ymax
-         integer :: lw, lw_sav, grid_min, grid_max, npts, i, nz
+         integer :: lw, lw_sav, grid_min, grid_max, npts, nz
          integer, parameter :: num_colors = 14
          integer :: colors(num_colors)
          integer, parameter :: max_num_labels = 30
@@ -153,11 +152,10 @@ subroutine plot(ierr)
             use rates_def
             integer, intent(out) :: ierr
 
-            integer :: ii, jj, i, k, xaxis_id
+            integer :: i, k
             logical, parameter :: dbg = .false.
-            logical :: found_shock
-            real(dp) :: xshock, photosphere_logxm
-            real :: lgz, x, y, ybot
+            real(dp) :: photosphere_logxm
+            real :: lgz, x, ybot
 
             include 'formats'
             ierr = 0
@@ -281,7 +279,7 @@ end subroutine plot
 
          subroutine do_all(legend_flag)
             logical, intent(in) :: legend_flag
-            integer :: cnt, num_to_show, i, j, k, jmax
+            integer :: cnt, num_to_show, i, j, jmax
             real(dp) :: max_abund(s% species)
             include 'formats'
             cnt = 0
@@ -309,7 +307,7 @@ end subroutine do_all
 
 
          integer function do1(cnt, str, legend_flag)
-            use chem_lib
+            use chem_lib, only: chem_get_iso_id
             integer, intent(in) :: cnt
             character (len=*), intent(in) :: str
             logical, intent(in) :: legend_flag
@@ -386,8 +384,8 @@ end function abundance_line
          integer function abundance_line_legend(cnt, str)
             integer, intent(in) :: cnt
             character (len=*), intent(in) :: str
-            real :: ymx, dx, dyline, ypos, xpts(2), ypts(2)
-            integer :: iclr, max_cnt
+            real :: dx, dyline, ypos, xpts(2), ypts(2)
+            integer :: max_cnt
             max_cnt = min(max_num_labels, s% pg% Abundance_legend_max_cnt)
             if (cnt >= max_cnt) then
                abundance_line_legend = cnt
diff --git a/star/private/pgstar_color_magnitude.f90 b/star/private/pgstar_color_magnitude.f90
index 4cb7e3a8f..307093df6 100644
--- a/star/private/pgstar_color_magnitude.f90
+++ b/star/private/pgstar_color_magnitude.f90
@@ -635,24 +635,21 @@ subroutine do_Color_Magnitude_plot( &
          integer, intent(out) :: ierr
          procedure(pgstar_decorator_interface), pointer :: color_pgstar_decorator
 
-         character (len=strlen) :: yname, other_yname
          character (len=strlen) :: yname1,yname2, &
             other_yname1,other_yname2
          real, allocatable, dimension(:) :: xvec1,xvec2, yvec1,yvec2,&
             other_yvec1,other_yvec2
          real, allocatable, dimension(:) :: xvec, yvec, other_yvec
 
-         integer :: i, ii, n, j, k, max_width, step_min, step_max, &
-            y_color, other_y_color, yaxis_id, other_yaxis_id, &
-            clr_sav, npts, yfile_data_len, other_yfile_data_len
-         real :: color_xmin, xmin, xmax, dx, xleft, xright, &
+         integer :: i, n, j, step_min, step_max, &
+            y_color, other_y_color
+         real :: color_xmin, xleft, xright, &
             ymargin, panel_dy, panel_ytop, panel_ybot, &
-            ymin, ymax, dy, ybot, ytop, &
-            other_ymin, other_ymax, other_ybot, other_ytop
+            ybot, ytop, &
+            other_ybot, other_ytop
          logical :: have_yaxis1, have_other_yaxis1,have_yaxis2, have_other_yaxis2,have_xaxis2
          logical :: have_yaxis,have_other_yaxis
 
-         integer :: grid_min,grid_max
          integer :: ix1,ix2
 
          include 'formats'
diff --git a/star/private/pgstar_ctrls_io.f90 b/star/private/pgstar_ctrls_io.f90
index 79fd68a7e..b343bea73 100644
--- a/star/private/pgstar_ctrls_io.f90
+++ b/star/private/pgstar_ctrls_io.f90
@@ -3092,7 +3092,6 @@ recursive subroutine read_pgstar_file(s, filename, level, ierr)
          integer, intent(in) :: level
          integer, intent(out) :: ierr
          logical, dimension(max_extra_inlists) :: read_extra
-         character (len=strlen) :: message
          character (len=strlen), dimension(max_extra_inlists) :: extra
          integer :: unit, i
 
diff --git a/star/private/pgstar_dynamo.f90 b/star/private/pgstar_dynamo.f90
index 1c0d753a0..9b4ed745f 100644
--- a/star/private/pgstar_dynamo.f90
+++ b/star/private/pgstar_dynamo.f90
@@ -128,8 +128,8 @@ subroutine Dyn_plot(s, device_id, &
             Dyn_reverse_xaxis, panel_flag, xaxis_numeric_labels_flag
          integer, intent(out) :: ierr
 
-         real :: windy, xmargin
-         real :: xmin, xmax, xleft, xright, dx, tmp, ymin, ymax, ymin2, ymax2, dy
+         real :: xmargin
+         real :: xmin, xmax, xleft, xright, dx, ymin, ymax, ymin2, ymax2, dy
          integer :: grid_min, grid_max, npts, nz
          real, allocatable, dimension(:) :: xvec, yvec, yvec2, yvec3
 
@@ -169,10 +169,9 @@ subroutine plot(ierr)
             integer, intent(out) :: ierr
 
             integer :: lw, lw_sav, k
-            real :: ybot, eps, &
+            real :: ybot, &
                default_ymax_left, default_ymin_left, &
                default_ymax_right, default_ymin_right
-            character (len=128) :: str
 
             include 'formats'
             ierr = 0
diff --git a/star/private/pgstar_full.f90 b/star/private/pgstar_full.f90
index a38c64dd3..fda43ebdb 100644
--- a/star/private/pgstar_full.f90
+++ b/star/private/pgstar_full.f90
@@ -1289,7 +1289,6 @@ subroutine do_pgstar_plots(&
       logical, intent(in) :: must_write_files
       integer, intent(out) :: ierr
 
-      integer :: i
       integer(8) :: time0, time1, clock_rate
       logical :: pause
 
@@ -1353,7 +1352,6 @@ subroutine onScreen_Plots(s, must_write_files_in, ierr)
       use chem_def
       use net_def
       use net_lib, only : get_net_reaction_table
-      use rates_def, only : rates_reaction_id_max
       use const_def, only : Msun, Rsun
 
       type (star_info), pointer :: s
@@ -1476,7 +1474,7 @@ subroutine update_pgstar_history_file(s, ierr)
       type (star_info), pointer :: s
       integer, intent(out) :: ierr
 
-      integer :: iounit, i, n
+      integer :: iounit, n
       character (len = 1024) :: fname
       type (pgstar_hist_node), pointer :: pg
 
@@ -1523,7 +1521,7 @@ subroutine read_pgstar_data(s, ierr)
       integer, intent(out) :: ierr
 
       logical :: fexist
-      integer :: iounit, i, n
+      integer :: iounit, n
       character (len = 1024) :: fname
       type (pgstar_hist_node), pointer :: pg
 
@@ -1583,7 +1581,7 @@ subroutine update_pgstar_data(s, ierr)
       type (star_info), pointer :: s
       integer, intent(out) :: ierr
 
-      integer :: num, i
+      integer :: num
       type (pgstar_hist_node), pointer :: pg
 
       include 'formats'
diff --git a/star/private/pgstar_hist_track.f90 b/star/private/pgstar_hist_track.f90
index a43524d5e..fce694473 100644
--- a/star/private/pgstar_hist_track.f90
+++ b/star/private/pgstar_hist_track.f90
@@ -648,11 +648,10 @@ end subroutine decorate
          integer, intent(out) :: ierr
          procedure(pgstar_decorator_interface), pointer :: pgstar_decorator
 
-         real :: xmin, xmax, ymin, ymax, xleft, xright, ybot, ytop
-         integer :: i, j, j_min, j_max, step_min, step_max
+         real :: xleft, xright, ybot, ytop
+         integer :: j, j_min, j_max, step_min, step_max
          real :: dx, dy, xplus, xminus, yplus, yminus
          real, dimension(:), allocatable :: xvec, yvec
-         character (len=strlen) :: str
          integer :: k, n
          integer :: ix, iy
          integer :: file_data_len
diff --git a/star/private/pgstar_history_panels.f90 b/star/private/pgstar_history_panels.f90
index 9b403c4b3..09ec4521b 100644
--- a/star/private/pgstar_history_panels.f90
+++ b/star/private/pgstar_history_panels.f90
@@ -615,7 +615,6 @@ subroutine do_history_panels_plot( &
          use chem_def
          use net_def
          use net_lib, only: get_net_reaction_table
-         use rates_def, only: rates_reaction_id_max
          use const_def, only: Msun, Rsun
 
          type (star_info), pointer :: s
@@ -643,15 +642,14 @@ subroutine do_history_panels_plot( &
          real, allocatable, dimension(:) :: yfile_xdata, other_yfile_xdata
          real, allocatable, dimension(:) :: yfile_ydata, other_yfile_ydata
          integer :: i, ii, n, j, k, max_width, step_min, step_max, &
-            y_color, other_y_color, yaxis_id, other_yaxis_id, &
-            clr_sav, npts, yfile_data_len, other_yfile_data_len
-         real :: hist_xmin, xmin, xmax, dx, xleft, xright, &
+            y_color, other_y_color, &
+            yfile_data_len, other_yfile_data_len
+         real :: hist_xmin, xleft, xright, &
             ymargin, panel_dy, panel_ytop, panel_ybot, &
-            ymin, ymax, dy, ybot, ytop, xpt, ypt, errpt, &
-            other_ymin, other_ymax, other_ybot, other_ytop
+            ybot, ytop, xpt, ypt, errpt, &
+            other_ybot, other_ytop
          logical :: have_yaxis, have_other_yaxis
 
-         integer :: grid_min, grid_max
          integer :: ix, iounit, ishape, num_pts
 
          include 'formats'
diff --git a/star/private/pgstar_kipp.f90 b/star/private/pgstar_kipp.f90
index 22093d102..2d5f81997 100644
--- a/star/private/pgstar_kipp.f90
+++ b/star/private/pgstar_kipp.f90
@@ -73,7 +73,7 @@ subroutine do_Kipp_Plot(s, id, device_id, &
          character (len=*), intent(in) :: title
          integer, intent(out) :: ierr
 
-         integer :: i, ii, n, step_min, step_max
+         integer :: i, n, step_min, step_max
          real :: xmin, xmax, ymin_L_axis, ymax_L_axis, &
             ymin_mass_axis, ymax_mass_axis, dx, burn_type_cutoff
          real, allocatable, dimension(:) :: xvec, &
@@ -517,7 +517,7 @@ end subroutine draw_burn_for_step
 
 
          subroutine plot_L_lines
-            integer :: i, cnt, n
+            integer :: cnt, n
             real :: coords(4), fjusts(4)
 
             logical, parameter :: dbg = .false.
@@ -607,7 +607,6 @@ end subroutine plot_total_mass_line
 
 
          subroutine plot_mass_lines
-            integer :: i
 
             include 'formats'
 
diff --git a/star/private/pgstar_mixing_ds.f90 b/star/private/pgstar_mixing_ds.f90
index d784d16d8..164a416ca 100644
--- a/star/private/pgstar_mixing_ds.f90
+++ b/star/private/pgstar_mixing_ds.f90
@@ -150,8 +150,8 @@ subroutine MixDs_plot(s, device_id, &
             MixDs_xaxis_reversed, panel_flag, xaxis_numeric_labels_flag
          integer, intent(out) :: ierr
 
-         real :: chScale, windy, xmargin
-         real :: xmin, xmax, xleft, xright, dx, tmp, ymin, ymax, ymin2, ymax2, dy, &
+         real :: chScale, xmargin
+         real :: xmin, xmax, xleft, xright, dx, ymin, ymax, ymin2, ymax2, dy, &
             legend_xmin, legend_xmax, legend_ymin, legend_ymax
          integer :: grid_min, grid_max, npts, nz, number_of_legend_lines
          real, allocatable, dimension(:) :: &
@@ -197,8 +197,7 @@ subroutine plot(ierr)
 
             integer :: lw, lw_sav
             real :: val
-            character (len=128) :: str
-            integer :: i, ii, k, cnt
+            integer :: k, cnt
             logical :: rotation
             real(dp) :: &
                D_visc_factor, &
diff --git a/star/private/pgstar_mode_prop.f90 b/star/private/pgstar_mode_prop.f90
index 7add83394..dd8c2c601 100644
--- a/star/private/pgstar_mode_prop.f90
+++ b/star/private/pgstar_mode_prop.f90
@@ -97,11 +97,10 @@ subroutine do_mode_propagation_panel(s, id, device_id, &
             xaxis_reversed, panel_flag, xaxis_numeric_labels_flag
          integer, intent(out) :: ierr
 
-         character (len=strlen) :: str
          real, allocatable, dimension(:) :: xvec, log_brunt_nu, &
             log_lamb_Sl1, log_lamb_Sl2, log_lamb_Sl3, temp_vec
          real :: xmin, xmax, xleft, xright, dx, chScale, windy, &
-            ymin, ymax, exp10_ymin, xmargin, &
+            ymin, ymax, xmargin, &
             legend_xmin, legend_xmax, legend_ymin, legend_ymax
          integer :: lw, lw_sav, grid_min, grid_max, npts, nz
          integer, parameter :: num_colors = 20
@@ -157,7 +156,7 @@ subroutine plot(ierr)
             use rates_def
             integer, intent(out) :: ierr
 
-            integer :: ii, jj, i, cnt, k
+            integer :: cnt, k
             logical, parameter :: dbg = .false.
             real :: ybot, nu_max, lg_nu_max, lg_2pt0_nu_max, lg_0pt5_nu_max, lg_nu_max_obs
             real, parameter :: teff_sun = 5777.0, nu_max_sun = 3100.0
diff --git a/star/private/pgstar_network.f90 b/star/private/pgstar_network.f90
index e6d9fefbe..dea0bd988 100644
--- a/star/private/pgstar_network.f90
+++ b/star/private/pgstar_network.f90
@@ -94,10 +94,7 @@ subroutine do_network_panel(s, id, device_id, &
          logical, intent(in) :: subplot
          integer, intent(out) :: ierr
 
-         character (len=strlen) :: str
-         real :: xmin, xmax, xleft, xright, dx, dylbl, chScale, windy, xmargin, &
-            ymin, ymax
-         integer :: lw, lw_sav, grid_min, grid_max, npts, i, nz
+         real :: xleft, xright, chScale, xmargin
 
          include 'formats'
          ierr = 0
@@ -114,13 +111,12 @@ subroutine plot(ierr)
             use chem_def
             integer, intent(out) :: ierr
 
-            integer :: lw, lw_sav, k,i,j
-            real :: ybot, eps
+            integer :: i, j
 
             integer :: z,n,zmax,zmin,nmin,nmax
-            integer :: base_z,base_n,clr,mid_map
+            integer :: clr,mid_map
             real :: abun,xhigh,xlow
-            real :: ymin,ymax,r,g,b,log10_min_abun,log10_max_abun
+            real :: ymin,ymax,log10_min_abun,log10_max_abun
             real,parameter :: pad=2.5,step=0.5
 
             include 'formats'
@@ -200,7 +196,7 @@ subroutine plot(ierr)
 
                abun=safe_log10(dble(abun))
 
-               if(z.lt.ymin .or. z.gt.ymax .or. n.lt.xleft .or.n.gt.xright)CYCLE
+               if(z<ymin .or. z>ymax .or. n<xleft .or.n>xright)CYCLE
 
                if (s% pg% Network_show_element_names) THEN
                   call pgsci(1)
@@ -247,7 +243,7 @@ subroutine network_colorbar_legend(winxmin, winxmax, winymin, winymax,abun_min,a
          real,intent(in) :: winxmin, winxmax, winymin, winymax,abun_min,abun_max
          real :: legend_xmin,legend_xmax,legend_ymin,legend_ymax
          real :: xmin,xmax,ymin,ymax
-         real :: ymx, dx, dyline, ypos, xpts(2),yt,yb,text
+         real :: dx, dyline, xpts(2),yt,yb,text
          character(len=16) :: str
          
          integer :: i,j,clr,mid_map,num_cms
diff --git a/star/private/pgstar_power.f90 b/star/private/pgstar_power.f90
index 50e61364a..9e31de192 100644
--- a/star/private/pgstar_power.f90
+++ b/star/private/pgstar_power.f90
@@ -101,7 +101,6 @@ subroutine do_power_panel(s, id, device_id, &
             xaxis_reversed, panel_flag, xaxis_numeric_labels_flag
          integer, intent(out) :: ierr
 
-         character (len=strlen) :: str
          real, allocatable, dimension(:) :: xvec, yvec
          real :: xmin, xmax, xleft, xright, dx, chScale, windy, &
             ymin, ymax, exp10_ymin, xmargin, &
@@ -152,7 +151,7 @@ subroutine plot(ierr)
             use rates_def
             integer, intent(out) :: ierr
 
-            integer :: ii, jj, i, j, cnt
+            integer :: i, j, cnt
             logical, parameter :: dbg = .false.
             real(dp) :: max_power(num_categories), max_power_copy(num_categories)
             real :: ybot
@@ -241,7 +240,7 @@ end subroutine plot
 
          integer function power_line(cnt, icat)
             integer, intent(in) :: cnt, icat
-            real :: ymx, xpos, dx, ypos, xpts(2), ypts(2)
+            real :: ymx
             integer :: iclr, k
             power_line = cnt
             ymx = maxval(s% eps_nuc_categories(icat,grid_min:grid_max))
diff --git a/star/private/pgstar_production.f90 b/star/private/pgstar_production.f90
index 605345fd5..11871e8bf 100644
--- a/star/private/pgstar_production.f90
+++ b/star/private/pgstar_production.f90
@@ -88,17 +88,13 @@ subroutine do_production_panel(s, id, device_id, &
 
          type (star_info), pointer :: s
          integer, intent(in) :: id, device_id
-         real, intent(in) :: &
-            winxmin, winxmax, winymin, winymax
+         real, intent(in) :: winxmin, winxmax, winymin, winymax
          character (len=*), intent(in) :: title
          real, intent(in) :: txt_scale
          logical, intent(in) :: subplot
          integer, intent(out) :: ierr
 
-         character (len=strlen) :: str
-         real :: xmin, xmax, xleft, xright, dx, dylbl, chScale, windy, xmargin, &
-            ymin, ymax
-         integer :: lw, lw_sav, grid_min, grid_max, npts, i, nz
+         real :: xleft, xright, chScale, xmargin
          integer, parameter :: num_colors = 14
          integer :: colors(num_colors)
 
@@ -124,18 +120,16 @@ subroutine plot(ierr)
             use adjust_xyz, only: get_xa_for_standard_metals
             integer, intent(out) :: ierr
 
-            integer :: lw, lw_sav, k,i,j
-            real :: ybot, eps
+            integer :: i, j
 
-            integer :: amin,amax,z,n,a,plot_a,zmin,zmax
-            integer :: min_zone,max_zone,alternate,skip_cnt
-            real :: xhigh,xlow,extra_pad
+            integer :: amin,amax,z,n,a,zmin,zmax
+            integer :: min_zone,max_zone,alternate
+            real :: extra_pad
             real :: min_mass,max_mass,yloc
             real,parameter :: point_size=0.1
-            real :: ymin,ymax,r,g,b,log10_min_abun,log10_max_abun
+            real :: ymin, ymax
             real,parameter :: pad=1.0
-            real :: last_x,last_y,log_sa
-            logical :: z_in_use
+            real :: last_x,last_y
             real(dp),dimension(1:solsiz) :: scaled_abun,scaled_abun_init
             real(dp),dimension(:),allocatable :: init_comp,abun
 
@@ -173,14 +167,14 @@ subroutine plot(ierr)
             max_zone=s%nz
 
             do i=1,s%nz
-               if(s%m(i).le.max_mass) then
+               if(s%m(i)<=max_mass) then
                   min_zone=i-1
                   exit
                end if
             end do
 
             do i=min_zone,s%nz
-               if(s%m(i).le.min_mass) then
+               if(s%m(i)<=min_mass) then
                   max_zone=i-1
                   exit
                end if
@@ -231,7 +225,7 @@ subroutine plot(ierr)
                lac=safe_log10(scaled_abun_init(i))
    
                !Remove low abundance isotopes, low in star and low in solar can lead to large production factor
-               if(la .lt.s% pg%production_min_mass_frac .or. lac .lt.s% pg%production_min_mass_frac) then
+               if(la <s% pg%production_min_mass_frac .or. lac <s% pg%production_min_mass_frac) then
                   scaled_abun(i)=-HUGE(ymin)
                else
                   scaled_abun(i)=real(la-lac)
@@ -290,17 +284,17 @@ subroutine plot(ierr)
             alternate=-1
             i=1
             outer: do 
-               if(i.gt.solsiz) exit outer
+               if(i>solsiz) exit outer
       
                ! Z is greater than zmax
-               if(izsol(i).gt.zmax) exit outer
+               if(izsol(i)>zmax) exit outer
 
                !Sets color
                call set_line_style(izsol(i))
 
                !Shows element name, alternates between two levels to spread them out
                if (s% pg% Production_show_element_names &
-                  .and.(iasol(i).le.xright).and.(iasol(i).ge.xleft)) THEN
+                  .and.(iasol(i)<=xright).and.(iasol(i)>=xleft)) THEN
                      yloc=(ymax*1.0)+abs(0.75+(alternate)/2.0)
                      call pgtext(iasol(i)*1.0,yloc,el_name(izsol(i)))
                      alternate=alternate*(-1.0)
@@ -313,9 +307,9 @@ subroutine plot(ierr)
 
                inner: do j=i,solsiz
                
-                  if(izsol(j).eq.izsol(i))then
-                     if((scaled_abun(j).ge. ymin) .and. (scaled_abun(j) .le. ymax)&
-                        .and.(iasol(j).le.xright).and.(iasol(j).ge.xleft)) then
+                  if(izsol(j)==izsol(i))then
+                     if((scaled_abun(j)>= ymin) .and. (scaled_abun(j) <= ymax)&
+                        .and.(iasol(j)<=xright).and.(iasol(j)>=xleft)) then
                         a=iasol(j)
 
                         !Draw point at values
diff --git a/star/private/pgstar_profile_panels.f90 b/star/private/pgstar_profile_panels.f90
index 05c05eb44..0f9e6b976 100644
--- a/star/private/pgstar_profile_panels.f90
+++ b/star/private/pgstar_profile_panels.f90
@@ -588,16 +588,16 @@ subroutine Pro_panels_plot(s, device_id, &
          procedure(pgstar_decorator_interface), pointer :: pgstar_decorator
 
          integer :: &
-            j, k, k0, k_max, i, nz, kmin, kmax, cnt, y_color, clr_sav, id, &
+            j, k, nz, y_color, clr_sav, id, &
             other_y_color, grid_min, grid_max, npts, yaxis_id, other_yaxis_id, ishape
-         real :: del, xpos, ypos, panel_dy, panel_ybot, panel_ytop, &
-            dx, dy, xpos0, dxpos, dypos, dxval, other_ytop, other_ybot, &
-            ybot, ytop, xmin, xmax, xleft, xright, xwidth, panels_xmargin, &
+         real :: panel_dy, panel_ybot, panel_ytop, &
+            dx, other_ytop, other_ybot, &
+            ybot, ytop, xmin, xmax, xleft, xright, panels_xmargin, &
             panels_xmin, panels_xmax, xwidth_left_frac, xwidth_right_frac, &
             xwidth_left_of_shock, xwidth_right_of_shock, shock_xmin, shock_xmax, &
             xshock_sp
-         real(dp) :: cs, x00, xp1, ms, photosphere_logxm, xshock
-         character (len=strlen) :: str, xname, yname, other_yname
+         real(dp) :: photosphere_logxm, xshock
+         character (len=strlen) :: xname, yname, other_yname
          logical :: found_shock
          real, allocatable, dimension(:) :: xvec, yvec, other_yvec, unshifted_xvec
          real, allocatable, dimension(:) :: yfile_xdata, other_yfile_xdata
diff --git a/star/private/pgstar_summary_burn.f90 b/star/private/pgstar_summary_burn.f90
index 4bec78cdb..8cffae1b1 100644
--- a/star/private/pgstar_summary_burn.f90
+++ b/star/private/pgstar_summary_burn.f90
@@ -74,7 +74,7 @@ subroutine do_summary_burn_plot(s, id, device_id, &
          real, intent(in) :: txt_scale
          integer, intent(out) :: ierr
 
-         character (len=strlen) :: yname, xaxis_name, str
+         character (len=strlen) :: xaxis_name, str
          logical :: xaxis_reversed
          real, allocatable, dimension(:) :: xvec, yvec, yvec2, yvec3
          real :: xmin, xmax, xleft, xright, dx, windy, dy, &
@@ -129,7 +129,7 @@ subroutine plot(ierr)
 
             integer :: j, ii, jj, i, cnt, k
             logical, parameter :: dbg = .false.
-            real :: ybot, yvec_min, yvec_max
+            real :: ybot
 
             include 'formats'
 
diff --git a/star/private/pgstar_summary_history.f90 b/star/private/pgstar_summary_history.f90
index 4aee13f0a..110cc6125 100644
--- a/star/private/pgstar_summary_history.f90
+++ b/star/private/pgstar_summary_history.f90
@@ -78,7 +78,7 @@ subroutine do_summary_history_plot(s, id, device_id, &
 
          character (len=strlen) :: yname
          real, allocatable, dimension(:) :: xvec, yvec
-         real :: xmin, xmax, windy, ymin, ymax, xmargin, &
+         real :: xmin, xmax, windy, ymin, ymax, &
             legend_xmin, legend_xmax, legend_ymin, legend_ymax
          integer :: lw, lw_sav, num_lines, &
             npts, step_min, step_max
@@ -148,7 +148,7 @@ subroutine plot(ierr)
             use rates_def
             integer, intent(out) :: ierr
 
-            integer :: j, ii, jj, i, cnt, k, yaxis_id
+            integer :: j, cnt, k
             logical :: show(num_lines)
             logical, parameter :: dbg = .false.
             real :: ybot, yvec_min, yvec_max
diff --git a/star/private/pgstar_summary_profile.f90 b/star/private/pgstar_summary_profile.f90
index 9329a47a0..6a94865d8 100644
--- a/star/private/pgstar_summary_profile.f90
+++ b/star/private/pgstar_summary_profile.f90
@@ -156,7 +156,7 @@ subroutine plot(ierr)
             use profile_getval, only : get_profile_val,get_profile_id
             integer, intent(out) :: ierr
 
-            integer :: j, ii, jj, i, cnt, k, yaxis_id
+            integer :: j, cnt, k, yaxis_id
             logical :: show(num_lines)
             logical, parameter :: dbg = .false.
             real :: ybot, yvec_min, yvec_max
diff --git a/star/private/pgstar_support.f90 b/star/private/pgstar_support.f90
index 8fba02f7b..3da1c7341 100644
--- a/star/private/pgstar_support.f90
+++ b/star/private/pgstar_support.f90
@@ -72,7 +72,7 @@ module pgstar_support
    subroutine add_to_pgstar_hist(s, pg_hist_new)
       type (star_info), pointer :: s
       type (pgstar_hist_node), pointer :: pg_hist_new
-      type (pgstar_hist_node), pointer :: pg_hist => null(), next => null()
+      type (pgstar_hist_node), pointer :: next => null()
       integer :: step
       step = pg_hist_new% step
       do
@@ -97,7 +97,7 @@ end subroutine add_to_pgstar_hist
 
    subroutine pgstar_clear(s)
       type (star_info), pointer :: s
-      integer :: i, id, num
+      integer :: i
       type (pgstar_win_file_data), pointer :: p
       type (pgstar_hist_node), pointer :: pg_hist => null(), next => null()
       pg_hist => s% pg% pgstar_hist
@@ -244,8 +244,8 @@ subroutine open_device(s, p, is_file, dev, id, ierr)
       integer, intent(out) :: id
       integer, intent(out) :: ierr
 
-      integer :: pgopen, system
-      character (len = strlen) :: dir, cmd
+      integer :: pgopen
+      character (len = strlen) :: dir
       logical :: white_on_black_flag
       real :: width, ratio
 
@@ -922,7 +922,7 @@ subroutine set_hist_points_steps(&
       integer, intent(in) :: step_min, step_max, numpts
       real, intent(out) :: vec(:)
       integer, intent(out) :: ierr
-      integer :: i, n
+      integer :: i
       type (pgstar_hist_node), pointer :: pg
       ierr = 0
       if (numpts == 0) return
@@ -969,7 +969,7 @@ subroutine get_hist_points(&
       integer, intent(in) :: step_min, step_max, numpts, index
       real, intent(out) :: vec(:)
       integer, intent(out) :: ierr
-      integer :: i, n
+      integer :: i
       type (pgstar_hist_node), pointer :: pg => null()
       include 'formats'
       if (numpts == 0) return
@@ -1187,7 +1187,6 @@ subroutine set_ytop_ybot(&
       real, intent(in) :: dymin
       real, intent(out) :: ybot, ytop
 
-      integer :: k
       real :: dy, ymax, ymin, ymargin
       logical :: use_given_ymin, use_given_ymax
       real, parameter :: dymin_min = 1d-34
@@ -1310,7 +1309,6 @@ subroutine set_xaxis_bounds(&
 
       integer :: k, nz, xaxis_id
       real :: win_xmin, win_xmax
-      real(dp) :: dmsum
 
       include 'formats'
 
@@ -1959,7 +1957,7 @@ subroutine show_age_pgstar(s)
       character (len = 32) :: age_str, units_str
       real(dp) :: age
       real :: ch
-      integer :: len, i, j, iE, n
+      integer :: len, i, j, iE
       if (.not. s% pg% pgstar_show_age) return
       age = s% star_age
       if (s% pg% pgstar_show_age_in_seconds) then
diff --git a/star/private/pgstar_trho_profile.f90 b/star/private/pgstar_trho_profile.f90
index 55c97a9f5..e99eb2bce 100644
--- a/star/private/pgstar_trho_profile.f90
+++ b/star/private/pgstar_trho_profile.f90
@@ -72,9 +72,8 @@ subroutine do_TRho_Profile_plot(s, id, device_id, &
 
          integer :: nz, k
          real :: xmin, xmax, ymin, ymax, xpos, ypos, dx, dy, &
-            txt_scale, vpxmin, vpxmax, vpymin, vpymax, vpymargin, vpwinheight, lgT1, lgT2
+            txt_scale, lgT1, lgT2
          real, allocatable, dimension(:) :: xvec, yvec
-         character (len=128) :: str
          real, parameter :: lgrho1 = -8, lgrho2 = 5
 
          include 'formats'
@@ -264,7 +263,7 @@ end subroutine show_label
 
 
          subroutine do_kap_regions
-            real :: logT_lo, logT_hi, logT_max, logR, logRho_lo, logRho_hi, logRho_min
+            real :: logT_lo, logT_hi, logT_max
             real, parameter :: min_logR_for_freedman = 1
             real, parameter :: freg_blend_logT2 = 4.10
             real, parameter :: freg_blend_logT1 = 3.93
@@ -329,7 +328,6 @@ end subroutine do_kap_regions
 
 
          subroutine do_eos_regions
-            integer :: ierr
             real :: logRho0, logRho1, logRho2, logRho3, logRho4, logRho5, logRho6
             real :: logT1, logT2, logT3, logT4, logT5, logT6
 
diff --git a/star/private/phase_separation.f90 b/star/private/phase_separation.f90
index 01b4a5e84..223377d21 100644
--- a/star/private/phase_separation.f90
+++ b/star/private/phase_separation.f90
@@ -58,7 +58,7 @@ subroutine do_phase_separation(s, dt, ierr)
       end subroutine do_phase_separation
 
       subroutine do_2component_phase_separation(s, dt, components, ierr)
-         use chem_def, only: chem_isos, ic12, io16, ine20
+         use chem_def, only: ic12, io16, ine20
          use chem_lib, only: chem_get_iso_id
          type (star_info), pointer :: s
          real(dp), intent(in) :: dt
@@ -150,7 +150,7 @@ subroutine do_2component_phase_separation(s, dt, components, ierr)
       end subroutine do_2component_phase_separation
 
       subroutine move_one_zone(s,k,components)
-        use chem_def, only: chem_isos, ic12, io16, ine20
+        use chem_def, only: ic12, io16, ine20
         use chem_lib, only: chem_get_iso_id
         type(star_info), pointer :: s
         integer, intent(in) :: k
diff --git a/star/private/photo_in.f90 b/star/private/photo_in.f90
index 5560ee9c0..53d7ca870 100644
--- a/star/private/photo_in.f90
+++ b/star/private/photo_in.f90
@@ -46,9 +46,8 @@ subroutine read_star_photo(s, fname, ierr)
          integer, intent(out) :: ierr
 
          integer :: iounit, i, j, k, version, part_number, &
-            len_history_col_spec, nz, kk
+            len_history_col_spec, nz
          logical, parameter :: dbg = .false.
-         real(dp) :: xx
 
          include 'formats'
 
diff --git a/star/private/predictive_mix.f90 b/star/private/predictive_mix.f90
index fc768195c..08e0ef06e 100644
--- a/star/private/predictive_mix.f90
+++ b/star/private/predictive_mix.f90
@@ -96,7 +96,7 @@ subroutine add_predictive_mixing (s, ierr)
 
        criteria_loop : do j = 1, NUM_PREDICTIVE_PARAM_SETS
 
-          if (.NOT. s%predictive_mix(j)) cycle criteria_loop
+          if (.NOT. s% predictive_mix(j)) cycle criteria_loop
 
           ! Check if the criteria match the current boundary
 
@@ -170,11 +170,16 @@ subroutine add_predictive_mixing (s, ierr)
 
           ! Perform the predictive mixing for this boundary
 
-          if (s%do_conv_premix) then
+          if (s% do_conv_premix) then
              call mesa_error(__FILE__,__LINE__,'Predictive mixing and convective premixing cannot be enabled at the same time')
              stop
           end if
 
+          !if (s% MLT_option == 'TDC') then
+          !   call mesa_error(__FILE__,__LINE__,'Predictive mixing and TDC cannot be enabled at the same time')
+          !   stop
+          !end if
+
           call do_predictive_mixing(s, i, j, ierr, mix_mask)
           if (ierr /= 0) return
 
@@ -370,6 +375,13 @@ subroutine do_predictive_mixing (s, i, j, ierr, mix_mask)
           k_bot_mz = k_bot_mz + 1
        endif
 
+       ! Exit search if the mixed region has gone out of bounds
+
+       if ((      outward .AND. k_top_mz < 1) .OR. &
+           (.NOT. outward .AND. k_bot_mz > s%nz)) then
+          exit search_loop
+       endif
+
        ! Evaluate average abundance in the mixed zone
 
        call eval_abundances(s, k_bot_mz, k_top_mz, xa_mz, xa_mz_burn)
@@ -485,13 +497,6 @@ subroutine do_predictive_mixing (s, i, j, ierr, mix_mask)
           exit search_loop
        endif
 
-       ! See if the mixed region has reached the center or surface
-
-       if ((      outward .AND. k_top_mz == 1) .OR. &
-           (.NOT. outward .AND. k_bot_mz == s%nz-1)) then
-          exit search_loop
-       endif
-
     end do search_loop
 
     ! If necessary, dump out the mixing prediction for this boundary
diff --git a/star/private/profile.f90 b/star/private/profile.f90
index f8e7df6c4..253507b83 100644
--- a/star/private/profile.f90
+++ b/star/private/profile.f90
@@ -60,7 +60,7 @@ recursive subroutine add_profile_columns( &
          logical, intent(in) :: report
          integer, intent(out) :: ierr
 
-         integer :: iounit, n, i, t, id, j, k, num, nxt_spec, spec_err
+         integer :: iounit, n, i, t, j, k, nxt_spec, spec_err
          character (len=strlen) :: buffer, string, filename
          integer, parameter :: max_level = 20
 
@@ -379,9 +379,9 @@ subroutine do_profile_info(s, fname, &
          logical, pointer :: is_int(:)
          integer, intent(out) :: ierr
 
-         real(dp) :: msum, mstar, dt, Lnuc, frac
+         real(dp) :: mstar, dt
          integer :: io, i, j, jj, nz, col, k, kk, n, species, &
-            h1, he4, num_specs, numcols, num_extra_cols, num_extra_header_items, num_digits
+            num_specs, numcols, num_extra_cols, num_extra_header_items, num_digits
          integer, pointer :: chem_id(:)
          logical, parameter :: dbg = .false.
          character (len=strlen) :: fname1, dbl_fmt, int_fmt, txt_fmt, fname_out, fstring, str
@@ -807,7 +807,7 @@ subroutine do_col(pass, j, jj, k)
             use profile_getval, only: getval_for_profile
             integer, intent(in) :: pass, j, jj, k
             integer :: i, c, int_val, ir
-            real(dp) :: val, cno, z, dr, eps, eps_alt
+            real(dp) :: val
             logical :: int_flag
             character (len=128) :: col_name
             logical, parameter :: dbg = .false.
@@ -911,7 +911,7 @@ end subroutine do_col
          subroutine do_abundance_col(pass, j, jj, k)
             integer, intent(in) :: pass, j, jj, k
             real(dp) :: val
-            logical :: int_flag, log_abundance
+            logical :: log_abundance
             character (len=128) :: col_name
             logical, parameter :: dbg = .false.
             include 'formats'
@@ -952,7 +952,7 @@ subroutine do_save_profiles( &
          integer, intent(out) :: ierr
 
          integer, pointer, dimension(:) :: model_numbers, model_priorities, model_logs
-         integer :: nz, max_num_mods, num_models, model_profile_number, k
+         integer :: nz, max_num_mods, num_models, model_profile_number
          character (len=strlen) :: fname
          integer :: model_priority
 
@@ -1169,8 +1169,7 @@ subroutine get_model_profile_filename(s, model_profile_number)
          ! sets s% model_profile_filename and s% model_controls_filename
          type (star_info), pointer :: s
          integer, intent(in) :: model_profile_number
-         character (len=strlen) :: &
-            profile_prefix, controls_prefix, model_prefix, num_str, fstring
+         character (len=strlen) :: profile_prefix, controls_prefix, model_prefix, fstring
          integer :: num_digits
 
          profile_prefix = trim(s% log_directory) // '/' // trim(s% profile_data_prefix)
diff --git a/star/private/profile_getval.f90 b/star/private/profile_getval.f90
index 630fa841c..76a4c8931 100644
--- a/star/private/profile_getval.f90
+++ b/star/private/profile_getval.f90
@@ -252,7 +252,7 @@ end function get_profile_id
       real(dp) function get_profile_val(s, id, k)
          type (star_info), pointer :: s
          integer, intent(in) :: id, k
-         integer :: ii, int_val
+         integer :: int_val
          logical :: int_flag
          if (id > max_profile_offset) then ! get from extras
             get_profile_val = s% extra_profile_col_vals(k, id - max_profile_offset)
@@ -276,13 +276,12 @@ subroutine getval_for_profile(s, c, k, val, int_flag, int_val)
          integer, intent(out) :: int_val
          logical, intent(inout) :: int_flag
 
-         real(dp) :: cno, z, x, frac, eps, eps_alt, L_rad, L_edd, Pbar_00, Pbar_p1, &
-            P_face, rho_face, dr, v, r00, rp1, v00, vp1, A00, Ap1, Amid, &
-            r00_start, rp1_start, dr3, dr3_start, d_drL, d_drR, flxR, mmid, &
+         real(dp) :: cno, z, x, L_rad, L_edd, &
+            r00, rp1, v00, vp1, Ap1, &
+            r00_start, rp1_start, dr3, dr3_start, &
             d_dlnR00, d_dlnRp1, d_dv00, d_dvp1
-         integer :: j, nz, ionization_k, klo, khi, i, ii, kk, ierr
-         real(dp) :: ionization_res(num_ion_vals)
-         real(dp) :: f, lgT, full_on, full_off, am_nu_factor, Lconv, conv_vel
+         integer :: j, nz, ionization_k, klo, khi, i, ii
+         real(dp) :: f, lgT, full_on, full_off, am_nu_factor
          logical :: rsp_or_w
          include 'formats'
 
@@ -2358,7 +2357,7 @@ end function get_brunt_N_div_r_integral
          real(dp) function get_dlogX_dlogP(j, k)
             integer, intent(in) :: j, k
             integer :: ii, i
-            real(dp) :: val, x00, xm1, dlogP, dlogX
+            real(dp) :: x00, xm1, dlogP, dlogX
             include 'formats'
             get_dlogx_dlogp = 0
             if (k > 1) then
@@ -2381,7 +2380,7 @@ end function get_dlogX_dlogP
          real(dp) function get_dlog_eps_dlogP(cat, k)
             integer, intent(in) :: cat, k
             integer :: ii
-            real(dp) :: val, eps, epsm1, dlogP, dlog_eps
+            real(dp) :: eps, epsm1, dlogP, dlog_eps
             get_dlog_eps_dlogP = 0
             if (k > 1) then
                ii = k
diff --git a/star/private/pulse_cafein.f90 b/star/private/pulse_cafein.f90
index db3521d38..c7b0fcb54 100644
--- a/star/private/pulse_cafein.f90
+++ b/star/private/pulse_cafein.f90
@@ -299,7 +299,6 @@ subroutine store_point_data_atm (j, k)
       real(dp) :: rho
       real(dp) :: P
       real(dp) :: T
-      real(dp) :: g
       real(dp) :: kap_rho
       real(dp) :: kap_T
       real(dp) :: kap_ad
diff --git a/star/private/pulse_fgong.f90 b/star/private/pulse_fgong.f90
index 1b26e0b23..7f6c35b4e 100644
--- a/star/private/pulse_fgong.f90
+++ b/star/private/pulse_fgong.f90
@@ -537,8 +537,6 @@ subroutine store_point_data_ctr (j, k_a, k_b)
       integer, intent(in) :: j
       integer, intent(in) :: k_a
       integer, intent(in) :: k_b
-
-      real(dp) :: dq_center
       
       ! Store data for the center into the point_data array at position j
 
diff --git a/star/private/pulse_gsm.f90 b/star/private/pulse_gsm.f90
index cd5fd62ca..82dbe15fc 100644
--- a/star/private/pulse_gsm.f90
+++ b/star/private/pulse_gsm.f90
@@ -28,7 +28,7 @@ module pulse_gsm
   ! Uses
 
   use star_private_def
-  use hdf5io_lib
+  use forum_m, only: hdf5io_t, CREATE_FILE
 
   ! No implicit typing
 
diff --git a/star/private/read_model.f90 b/star/private/read_model.f90
index f92c47f4f..ff62eff99 100644
--- a/star/private/read_model.f90
+++ b/star/private/read_model.f90
@@ -88,8 +88,7 @@ subroutine finish_load_model(s, restart, ierr)
          type (star_info), pointer :: s
          logical, intent(in) :: restart
          integer, intent(out) :: ierr
-         integer :: k, i, j,  nz
-         real(dp) :: u00, um1, xm, total_radiation
+         integer :: k, nz
          include 'formats'
          ierr = 0
          nz = s% nz
@@ -218,12 +217,12 @@ subroutine do_read_saved_model(s, filename, ierr)
          character (len=*), intent(in) :: filename
          integer, intent(out) :: ierr
 
-         integer :: iounit, n, i, k, t, file_type, &
+         integer :: iounit, n, i, t, file_type, &
             year_month_day_when_created, nz, species, nvar, count
          logical :: do_read_prev, no_L
          real(dp) :: initial_mass, initial_z, initial_y, &
             tau_factor, Tsurf_factor, opacity_factor, mixing_length_alpha
-         character (len=strlen) :: buffer, string, message
+         character (len=strlen) :: buffer, string
          character (len=net_name_len) :: net_name
          character(len=iso_name_length), pointer :: names(:) ! (species)
          integer, pointer :: perm(:) ! (species)
@@ -469,7 +468,6 @@ end subroutine read_prev
          subroutine read_prev_properties
             character (len=132) :: line
             real(dp) :: tmp, skip_val
-            integer :: i
             include 'formats'
             
             ierr = 0
@@ -540,7 +538,6 @@ subroutine read1_model( &
             i_Et_RSP, i_erad_RSP, i_Fr_RSP, i_v, i_u, i_alpha_RTI, ii
          real(dp), target :: vec_ary(species + nvar_hydro + max_increment)
          real(dp), pointer :: vec(:)
-         real(dp) :: r00, rm1
          integer :: nvec
 
          include 'formats'
diff --git a/star/private/relax.f90 b/star/private/relax.f90
index 22ae07a8b..62ac99ea3 100644
--- a/star/private/relax.f90
+++ b/star/private/relax.f90
@@ -477,7 +477,7 @@ subroutine adjust_xa(species, num_pts, avg_err, ierr)
                ! if the abundance switches back and forth between 0 and 1d-99,
                ! then small negative abundances ~ -1d-115 can be generated
                do k = 1, nz
-                  if (vals(j,k) .lt. 0d0) vals(j,k) = 0d0
+                  if (vals(j,k) < 0d0) vals(j,k) = 0d0
                end do
                if (op_err /= 0) ierr = op_err
                s% xa(j,1:nz) = (1d0-lambda)*s% xa(j,1:nz) + lambda*vals(j,1:nz)
@@ -496,7 +496,7 @@ integer function relax_composition_check_model(s, id, lipar, ipar, lrpar, rpar)
          integer, intent(inout), pointer :: ipar(:) ! (lipar)
          real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
 
-         integer :: num_steps_to_use, starting_model_number, ierr
+         integer :: num_steps_to_use, starting_model_number
 
          include 'formats'
 
@@ -539,7 +539,7 @@ subroutine do_relax_to_xaccrete(id, num_steps_to_use, ierr)
          real(dp) :: starting_dt_next, mix_factor, dxdt_nuc_factor
          logical :: do_element_diffusion
          type (star_info), pointer :: s
-         real(dp), pointer :: xa(:), f1(:), f(:,:,:)
+         real(dp), pointer :: xa(:)
          integer, target :: ipar_ary(lipar)
          integer, pointer :: ipar(:)
          ipar => ipar_ary
@@ -813,7 +813,7 @@ integer function relax_entropy_check_model(s, id, lipar, ipar, lrpar, rpar)
          real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
 
          integer :: num_pts, ierr, max_model_number
-         real(dp) :: lambda, avg_err
+         real(dp) :: avg_err
          real(dp), pointer :: x(:) ! =(num_pts)
          real(dp), pointer :: f1(:) ! =(4, num_pts)
 
@@ -901,7 +901,7 @@ subroutine entropy_relax_other_energy(id, ierr)
          integer, intent(in) :: id
          integer, intent(out) :: ierr
          type (star_info), pointer :: s
-         integer :: k, nz, num_pts, op_err
+         integer :: k, nz, num_pts
          real(dp), pointer :: vals(:), xq(:), x(:), f(:)
          ierr = 0
          call star_ptr(id, s, ierr)
@@ -1069,7 +1069,7 @@ integer function relax_angular_momentum_check_model(s, id, lipar, ipar, lrpar, r
          real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
 
          integer :: num_pts, ierr, max_model_number
-         real(dp) :: lambda, avg_err
+         real(dp) :: avg_err
          real(dp), pointer :: x(:) ! =(num_pts)
          real(dp), pointer :: f1(:) ! =(4, num_pts)
 
@@ -1859,14 +1859,13 @@ subroutine do_relax_mass_change( &
          integer, intent(out) :: ierr
 
          integer, parameter ::  lipar=2, lrpar=2
-         integer :: max_model_number, i
+         integer :: max_model_number
          real(dp) :: max_years_for_timestep
          type (star_info), pointer :: s
          integer, target :: ipar_ary(lipar)
          integer, pointer :: ipar(:)
          real(dp), target :: rpar_ary(lrpar)
          real(dp), pointer :: rpar(:)
-         logical :: adding_mass
 
          rpar => rpar_ary
          ipar => ipar_ary
@@ -1936,7 +1935,7 @@ integer function relax_mass_change_check_model(s, id, lipar, ipar, lrpar, rpar)
          real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
 
          integer :: adjust_model, max_num_steps, num_steps
-         real(dp) :: init_mass_change, final_mass_change, mass_change, frac
+         real(dp) :: init_mass_change, final_mass_change, frac
          logical, parameter :: dbg = .false.
 
          include 'formats'
@@ -2694,7 +2693,6 @@ integer function relax_v_center_check_model(s, id, lipar, ipar, lrpar, rpar)
          integer, intent(in) :: id, lipar, lrpar
          integer, intent(inout), pointer :: ipar(:) ! (lipar)
          real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
-         integer :: ierr
          real(dp) :: new_v_center, dv_per_step, relax_v_center_dt, next
          logical, parameter :: dbg = .false.
 
@@ -2946,7 +2944,6 @@ integer function relax_dxdt_nuc_factor_check_model(s, id, lipar, ipar, lrpar, rp
          integer, intent(in) :: id, lipar, lrpar
          integer, intent(inout), pointer :: ipar(:) ! (lipar)
          real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
-         integer :: ierr
          real(dp) :: new_value, per_step_multiplier
          logical, parameter :: dbg = .false.
 
@@ -3051,7 +3048,6 @@ integer function relax_eps_nuc_factor_check_model(s, id, lipar, ipar, lrpar, rpa
          integer, intent(in) :: id, lipar, lrpar
          integer, intent(inout), pointer :: ipar(:) ! (lipar)
          real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
-         integer :: ierr
          real(dp) :: new_value, per_step_multiplier
          logical, parameter :: dbg = .false.
 
@@ -3386,9 +3382,6 @@ integer function relax_num_steps_check_model(s, id, lipar, ipar, lrpar, rpar)
          integer, intent(in) :: id, lipar, lrpar
          integer, intent(inout), pointer :: ipar(:) ! (lipar)
          real(dp), intent(inout), pointer :: rpar(:) ! (lrpar)
-         integer :: ierr, klo, khi
-         real(dp) :: lnbc_target, new_pre_ms, new_lnbc, dlnbc, lnbc, &
-            current_pre_ms, next_pre_ms
 
          logical, parameter :: dbg = .false.
 
diff --git a/star/private/remove_shells.f90 b/star/private/remove_shells.f90
index 746595a66..0562f79fa 100644
--- a/star/private/remove_shells.f90
+++ b/star/private/remove_shells.f90
@@ -166,7 +166,7 @@ subroutine do_remove_center_to_reduce_co56_ni56(id, x, ierr)
          integer, intent(out) :: ierr
          type (star_info), pointer :: s
          integer :: j, jj, k, species, nz, co56, ni56
-         real(dp) :: mtotal, dm56, alfa_co56, dm56_new, dm56_old, x56_new, x56_old, xsum
+         real(dp) :: mtotal, dm56, alfa_co56, dm56_new, dm56_old, x56_new, x56_old
          include 'formats'
          call get_star_ptr(id, s, ierr)
          if (ierr /= 0) then
@@ -245,7 +245,7 @@ subroutine do_remove_fallback(id, ierr)
          integer, intent(in) :: id
          integer, intent(out) :: ierr
          type (star_info), pointer :: s
-         integer :: k, k0, k1, nz
+         integer :: k, k0, nz
          real(dp) :: ie, ke, pe, rR, rL, rC, m_cntr, &
             sum_total_energy, speed_limit
          real(dp), pointer :: v(:)
@@ -385,7 +385,7 @@ subroutine do_limit_center_logP(id, logP_limit, ierr)
          real(dp), intent(in) :: logP_limit
          integer, intent(out) :: ierr
          type (star_info), pointer :: s
-         integer :: k, k0
+         integer :: k
          real(dp) :: lnP_limit
          include 'formats'
          call get_star_ptr(id, s, ierr)
@@ -554,7 +554,6 @@ subroutine do_remove_fe_core(id, ierr)
          integer, intent(in) :: id
          integer, intent(out) :: ierr
          type (star_info), pointer :: s
-         integer :: k
          call get_star_ptr(id, s, ierr)
          if (ierr /= 0) then
             write(*,*) 'do_remove_fe_core: get_star_ptr ierr', ierr
@@ -833,7 +832,7 @@ subroutine do_remove_surface_by_v_surf_div_v_escape(id, v_surf_div_v_escape, ier
          integer, intent(out) :: ierr
          type (star_info), pointer :: s
          integer :: k, k_vesc
-         real(dp) :: vesc, vesc_m1
+         real(dp) :: vesc
          real(dp), dimension(:), pointer :: v
          include 'formats'
          call get_star_ptr(id, s, ierr)
@@ -888,8 +887,6 @@ subroutine do_remove_surface_by_density(id, density, ierr)
          real(dp), intent(in) :: density
          integer, intent(out) :: ierr
          type (star_info), pointer :: s
-         integer :: k
-         real(dp) :: avg_rho
          ierr = 0
          include 'formats'
          call get_star_ptr(id, s, ierr)
@@ -1158,10 +1155,9 @@ subroutine do_relax_to_star_cut( &
             initial_z, initial_y, initial_mass, &
             cumulative_energy_error, cumulative_extra_heating
 
-         real(dp), pointer :: interp_work(:), conv_vel_interp(:)
          real(dp), pointer :: q(:), xq(:), xa(:,:), j_rot(:), entropy(:)
-         real(dp) :: conv_vel_temp, time
-         integer :: num_pts, k, k0, species
+         real(dp) :: time
+         integer :: num_pts, k0, species
          logical :: save_have_mlt_vc
          logical :: dbg = .false.
 
diff --git a/star/private/report.f90 b/star/private/report.f90
index 06fcdda31..751a26d45 100644
--- a/star/private/report.f90
+++ b/star/private/report.f90
@@ -145,20 +145,14 @@ end subroutine set_power_info
 
       subroutine do_report(s, ierr)
          use rates_def, only: &
-            i_rate, i_rate_dRho, i_rate_dT, std_reaction_Qs, std_reaction_neuQs
+            i_rate, i_rate_dRho, i_rate_dT
          use star_utils, only: get_phot_info
          use hydro_rotation, only: set_surf_avg_rotation_info
          type (star_info), pointer :: s
          integer, intent(out) :: ierr
 
-         integer :: k, i, j, ic, nz, kcore, &
-            h1, h2, he3, he4, c12, n14, o16, ne20, si28, co56, ni56, k_min
-         real(dp) :: w1, radius, dr, dm, hpc, cur_m, cur_r, prev_r, tau_conv, &
-            twoGmrc2, cur_h, prev_h, cur_he, non_fe_core_mass, nu_for_delta_Pg, &
-            prev_he, cur_c, prev_c, v, mstar, pdg, pdg_prev, luminosity, &
-            prev_m, cell_mass, wf, conv_time, mv, bminv, uminb, eps_nuc_sum, eps_cat_sum,&
-            mass_sum
-         logical, parameter :: new_only = .false.
+         integer :: k, nz, h1, h2, he3, he4, c12, n14, o16, ne20, si28, co56, ni56, k_min
+         real(dp) :: radius, dr, non_fe_core_mass, nu_for_delta_Pg, v, mstar, luminosity, mass_sum
          integer, pointer :: net_iso(:)
          real(dp), pointer :: velocity(:) => null()
 
@@ -500,7 +494,6 @@ real(dp) function volume_at_q(q)
             use interp_1d_def
             use interp_1d_lib
             real(dp), intent(in) :: q
-            real(dp) :: vp2, vp1, v00, vm1
             integer, parameter :: n_old = 4, n_new = 1, nwork = pm_work_size
             real(dp) :: qlo, x_old(n_old), v_old(n_old), x_new(n_new), v_new(n_new)
             integer :: k, nz, k00, ierr
@@ -767,7 +760,7 @@ subroutine find_epsnuc_zone( &
          ierr = 0
          bzm_1 = null_zone; bzm_2 = null_zone; bzm_3 = null_zone; bzm_4 = null_zone
          burn_zone = 0 ! haven't entered the zone yet
-         if (i_start .ne. s% nz) then
+         if (i_start /= s% nz) then
             i = i_start+1
             prev_m = s% m(i)
             prev_x = s% eps_nuc(i)
@@ -780,16 +773,16 @@ subroutine find_epsnuc_zone( &
             cur_x = s% eps_nuc(i)
             select case (burn_zone)
                case (0)
-                  if ( cur_x .gt. burn_min2 ) then
-                     if ( i .eq. s% nz ) then ! use star center as start of zone
+                  if ( cur_x > burn_min2 ) then
+                     if ( i == s% nz ) then ! use star center as start of zone
                         bzm_2 = 0d0
                      else ! interpolate to estimate where rate reached burn_min1
                         bzm_2 = find0(prev_m, prev_x-burn_min2, cur_m, cur_x-burn_min2)
                      end if
                      bzm_1 = bzm_2
                      burn_zone = 2
-                  elseif ( cur_x .gt. burn_min1 ) then
-                     if ( i .eq. s% nz ) then ! use star center as start of zone
+                  elseif ( cur_x > burn_min1 ) then
+                     if ( i == s% nz ) then ! use star center as start of zone
                         bzm_1 = 0d0
                      else ! interpolate to estimate where rate reached burn_min1
                         bzm_1 = find0(prev_m, prev_x-burn_min1, cur_m, cur_x-burn_min1)
@@ -797,27 +790,27 @@ subroutine find_epsnuc_zone( &
                      burn_zone = 1
                   end if
                case (1) ! in the initial eps > burn_min1 region
-                  if ( cur_x .gt. burn_min2 ) then
+                  if ( cur_x > burn_min2 ) then
                      bzm_2 = find0(prev_m, prev_x-burn_min2, cur_m, cur_x-burn_min2)
                      burn_zone = 2
-                  else if ( cur_x .lt. burn_min1 ) then
+                  else if ( cur_x < burn_min1 ) then
                      bzm_4 = find0(prev_m, prev_x-burn_min1, cur_m, cur_x-burn_min1)
                      i_start = i
                      return
                   end if
                case (2) ! in the initial eps > burn_min2 region
-                  if ( cur_x .lt. burn_min1 ) then
+                  if ( cur_x < burn_min1 ) then
                      bzm_4 = find0(prev_m, prev_x-burn_min1, cur_m, cur_x-burn_min1)
                      bzm_3 = bzm_4
                      i_start = i
                      return
                   end if
-                  if ( cur_x .lt. burn_min2 ) then
+                  if ( cur_x < burn_min2 ) then
                      bzm_3 = find0(prev_m, prev_x-burn_min2, cur_m, cur_x-burn_min2)
                      burn_zone = 3
                   end if
                case (3) ! in the final eps > burn_min1 region
-                  if ( cur_x .lt. burn_min1 ) then
+                  if ( cur_x < burn_min1 ) then
                      bzm_4 = find0(prev_m, prev_x-burn_min1, cur_m, cur_x-burn_min1)
                      i_start = i
                      return
@@ -853,7 +846,7 @@ subroutine get_mass_info(s, cell_masses, ierr)
          real(dp), pointer, intent(in) :: cell_masses(:)
          integer, intent(out) :: ierr
 
-         integer :: k, nz, j, nzlo, nzhi, kbdy, nzlo_prev
+         integer :: k, nz, j
          real(dp) :: cell_mass
          integer, pointer :: net_iso(:)
 
@@ -1216,7 +1209,7 @@ subroutine set_core_info(s, k, &
             core_m, core_r, core_lgT, core_lgRho, core_L, core_v, &
             core_omega, core_omega_div_omega_crit
 
-         integer :: j, jm1, j00
+         integer :: jm1, j00
          real(dp) :: dm1, d00, qm1, q00, core_q, &
             core_lgP, core_g, core_X, core_Y, &
             core_scale_height, core_dlnX_dr, core_dlnY_dr, core_dlnRho_dr
@@ -1271,8 +1264,8 @@ subroutine get_info_at_q(s, bdy_q, &
             bdy_scale_height, bdy_dlnX_dr, bdy_dlnY_dr, bdy_dlnRho_dr, &
             bdy_omega, bdy_omega_div_omega_crit
 
-         real(dp) :: x, x0, x1, x2, alfa, beta, bdy_omega_crit
-         integer :: k, ii, klo, khi
+         real(dp) :: x, x0, x1, x2, alfa, bdy_omega_crit
+         integer :: k, klo, khi
 
          include 'formats'
 
diff --git a/star/private/rotation_mix_info.f90 b/star/private/rotation_mix_info.f90
index b8a43387c..f5341c0d3 100644
--- a/star/private/rotation_mix_info.f90
+++ b/star/private/rotation_mix_info.f90
@@ -79,10 +79,9 @@ subroutine set_rotation_mixing_info(s, ierr)
          real(dp), allocatable :: smooth_work(:,:), saved(:,:)
          logical, allocatable :: unstable(:,:) ! (num_instabilities, nz)
 
-         integer :: nz, i, j, k, k0, which, op_err
-         real(dp) :: alfa, beta, growth_limit, age_fraction, &
-            D_omega_source, max_replacement_factor, &
-            dgtau, angsml, angsmt, out_q, prev_out_q, prev_out_q_m1, prev_q, prev_q_m1
+         integer :: nz, k, k0, which, op_err
+         real(dp) :: alfa, growth_limit, age_fraction, &
+            D_omega_source, dgtau, angsml, angsmt, prev_out_q, prev_out_q_m1, prev_q, prev_q_m1
 
          include 'formats'
 
@@ -447,7 +446,7 @@ subroutine setup(ierr)
                eps_nucm1, eps_nuc00, scale_height2, dlnRho_dlnP, dlnT_dlnP, &
                kap, dlnkap_dlnRho, dlnkap_dlnT
 
-            integer :: i, k, j
+            integer :: i, k
 
             include 'formats'
 
@@ -836,7 +835,7 @@ subroutine set_D_SSI(ierr)
             use chem_def
             integer, intent(out) :: ierr
             integer :: i, k, kbot, ktop
-            real(dp) :: qe3, qe4, lambda, dynvisc, Prandtl, radcon, D
+            real(dp) :: qe3, qe4, dynvisc, Prandtl, radcon, D
             include 'formats'
 
             ierr = 0
@@ -921,7 +920,7 @@ end subroutine set_D_SSI
          subroutine set_D_ES(ierr)
             integer, intent(out) :: ierr
             integer :: i, k, kbot, ktop
-            real(dp) :: instability_height, D, v, dln_v_es
+            real(dp) :: instability_height, D, v
             include 'formats'
             ierr = 0
 
@@ -1154,9 +1153,9 @@ subroutine set_ST(s, &
             N2, N2_mu, opacity, kap_cond, scale_height
          integer, intent(out) :: ierr
 
-         integer :: nz, k, j, kk
+         integer :: nz, k, kk
          real(dp) :: xmagfmu, xmagft, xmagfdif, xmagfnu, &
-            xkap, xgamma, xlg, xsig1, xsig2, xsig3, xxx, ffff, xsig, &
+            xkap, xgamma, xsig, &
             xeta, xmagn, xmagnmu, xmagnt, xmagw, xmagdn, xmagtn, xmagrn, xmag4pd, &
             dlnomega_dlnr, xmagq, xmager2w, &
             xmagnn, xmagwn, xmagq0, xmagwa0, xmags0, xmagbphi0, xmagbr0, xmageta0, &
@@ -1316,7 +1315,7 @@ subroutine set_ST(s, &
             !..... From Kippenhahn&Weigert, Eqs. (7.6) and (7.7), the convective
             !..... velocity can be computed.  Now assume \nu=1/3 l_mix v and assume
             !..... that l_mix = H_p.
-            if ((xmagnt .LE. 0.D0) .AND. (xmagnmu .GT. 0.D0) .AND. (xmagn .GT. 0.D0)) &
+            if ((xmagnt <= 0.D0) .AND. (xmagnmu > 0.D0) .AND. (xmagn > 0.D0)) &
                xmagnu = &
                   sqrt(xmagnu*scale_height(k)*(one_third)* &
                   pow(grav(k)*delta(k)*scale_height(k)*MAX(0.D0,L(k))/ &
diff --git a/star/private/rsp.f90 b/star/private/rsp.f90
index d66eba337..796b8ad86 100644
--- a/star/private/rsp.f90
+++ b/star/private/rsp.f90
@@ -79,7 +79,6 @@ subroutine build_rsp_model(s,ierr)
          use const_def, only: Lsun, Rsun, Msun
          type (star_info), pointer :: s
          integer, intent(out) :: ierr
-         integer :: i, j, k
          include 'formats'
          NSTART = 1
          s% nz = s% RSP_nz         
@@ -231,11 +230,8 @@ subroutine rsp_setup_part1(s,restart,ierr)
          type (star_info), pointer :: s
          logical, intent(in) :: restart
          integer, intent(out) :: ierr
-         type (star_info), target :: copy_info
-         type (star_info), pointer :: c, prv
          real(dp) :: tau_surf, kap_guess, T_surf, Psurf, kap_surf, Teff_atm, Y
-         integer :: i, k
-         logical :: okay
+         integer :: k
          include 'formats'
          ierr = 0
          if (s% RSP_use_atm_grey_with_kap_for_Psurf .and. &
@@ -311,13 +307,7 @@ subroutine rsp_setup_part2(s, restart, ierr)
          type (star_info), pointer :: s
          logical, intent(in) :: restart
          integer, intent(out) :: ierr
-         integer :: i, j, k, species, nz, op_err
-         real(dp), allocatable :: w_avg(:)
-         real(dp) :: &
-            dFr_dr_out, dFr_dr_in, dFr_dr_00, &
-            dFr_dT_out, dFr_dT_00, dFr_dVol_00, &
-            Lr, Lc, POM
-         logical :: okay
+         integer :: nz
          include 'formats'
          if (restart) then
             call finish_rsp_photo_in(s)
@@ -422,7 +412,7 @@ subroutine rsp_one_step(s,ierr)
          type (star_info), pointer :: s      
          integer, intent(out) :: ierr    
          integer :: k, j, k_max_abs_rel_hse_err
-         real(dp) :: rand, hse_err, max_abs_rel_hse_err
+         real(dp) :: hse_err, max_abs_rel_hse_err
          logical :: restart
          
          include 'formats'
@@ -513,14 +503,14 @@ subroutine rsp_one_step(s,ierr)
          subroutine add_to_map
             use profile_getval, only: get_profile_val
             integer :: i, k, NPCH1, NPCH2, IP, n, io
-            real(dp) :: ph_x, FASE
+            real(dp) :: FASE
             character (len=256) :: fname
             include 'formats'
             NPCH1 = s% RSP_map_first_period
             NPCH2 = s% RSP_map_last_period
             IP = s% RSP_num_periods
             io = 77
-            if (IP+1.ge.NPCH1.and.IP+1.le.NPCH2) then
+            if (IP+1>=NPCH1.and.IP+1<=NPCH2) then
                if(.not. writing_map) then
                   call read_map_specs(s,ierr)
                   if (ierr /= 0) then
@@ -552,7 +542,7 @@ subroutine add_to_map
                !write(*,4) 'add to map', s% model_number, IP, NPCH2, FASE
                do k=1,NZN,s% RSP_map_zone_interval ! gnuplot pm3d map
                   I = NZN+1 - k
-                  if(I.gt.IBOTOM.and.I.lt.NZN) then
+                  if(I>IBOTOM.and.I<NZN) then
                      write(io,'(d18.10,1x,i4)',advance='no') FASE, k
                      do n=1,num_map_cols
                         write(io,'(1x,d18.10)',advance='no') &
@@ -569,7 +559,7 @@ subroutine add_to_map
                enddo
                !write(io,*)
             end if
-            if(IP.eq.NPCH2 .and. .not. done_writing_map) then
+            if(IP==NPCH2 .and. .not. done_writing_map) then
                close(io)
                fname = trim(s% log_directory) // '/' // trim(s% RSP_map_filename)
                write(*,*) '  close ' // trim(fname)
@@ -780,10 +770,9 @@ subroutine gather_pulse_statistics(s) ! assumes have set EKMAX and EKMIN
          !     s% rsp_GREKM, s% rsp_GREKM_avg_abs, s% rsp_DeltaR, s% rsp_DeltaMAG
          type (star_info), pointer :: s
          logical :: cycle_complete
-         integer :: i, k
          include 'formats'
-         if(s% L(1)/SUNL.gt.LMAX) LMAX=s% L(1)/SUNL
-         if(s% L(1)/SUNL.lt.LMIN) LMIN=s% L(1)/SUNL      
+         if(s% L(1)/SUNL>LMAX) LMAX=s% L(1)/SUNL
+         if(s% L(1)/SUNL<LMIN) LMIN=s% L(1)/SUNL      
          INSIDE=0      
          call check_cycle_completed(s,cycle_complete)
          ULL=UN
@@ -845,7 +834,7 @@ subroutine begin_calculation(s,restart,ierr)
          INSIDE = 1 ! for initial call
          !s% mstar = M(1)
          call set_star_vars(s,ierr)
-         if(s% rsp_num_periods.eq.1)s% rsp_GREKM=0.d0
+         if(s% rsp_num_periods==1)s% rsp_GREKM=0.d0
          EKDEL  = EKMAX-EKMIN
          EKMAXL = EKMAX
          EKMAX  =-10.d50
@@ -878,7 +867,7 @@ subroutine calculate_work_integrals(s)
          character (len=256) :: fname
          dt = s% dt
          ! LAST STEP OF PdV
-         if(INSIDE.eq.1.and.IWORK.eq.1) then  
+         if(INSIDE==1.and.IWORK==1) then  
             IWORK=0
             do I=1,NZN
                k = NZN+1-i
@@ -921,8 +910,8 @@ subroutine calculate_work_integrals(s)
          endif
 
          ! INITIAL STEP OF PdV:
-         if((INSIDE.eq.1.and.IWORK.eq.0).or. &
-            (s% rsp_num_periods.eq.0.and.IWORK.eq.0))then
+         if((INSIDE==1.and.IWORK==0).or. &
+            (s% rsp_num_periods==0.and.IWORK==0))then
             IWORK=1 
             do I=1,NZN
                k = NZN+1-i
@@ -935,7 +924,7 @@ subroutine calculate_work_integrals(s)
          endif
 
          ! FIRST AND NEXT STEPS of PdV:
-         if(IWORK.eq.1)then
+         if(IWORK==1)then
             do I=1,NZN
                k = NZN+1-i
                dm = s% dm(k)
@@ -986,22 +975,22 @@ subroutine check_cycle_completed(s,cycle_complete)
          TET = s% time
          cycle_complete = .false.
          UN=s% v(1)
-         if(UN.gt.0.d0.and.ULL.le.0.d0) then
+         if(UN>0.d0.and.ULL<=0.d0) then
             RMIN=s% r(1)/SUNR
          end if
-         if (s% model_number.eq.1) return
+         if (s% model_number==1) return
          if (.not. s% RSP_have_set_velocities) return
          if (s% r(1)/SUNR < s% RSP_min_max_R_for_periods) return
          if (UN/s% csound(1) > VMAX) then
             VMAX = UN/s% csound(1)
          end if
-         if(UN*ULL.gt.0.0d0.or.UN.gt.0.d0) return
+         if(UN*ULL>0.0d0.or.UN>0.d0) return
          T0=TET
          min_PERIOD = PERIODLIN*s% RSP_min_PERIOD_div_PERIODLIN
-         if (abs(UN-ULL).gt.1.0d-10) T0=TE_start-(TE_start-TET)*ULL/(ULL-UN)
+         if (abs(UN-ULL)>1.0d-10) T0=TE_start-(TE_start-TET)*ULL/(ULL-UN)
          if (min_PERIOD > 0d0 .and. T0-TT1 < min_PERIOD) return
          if (s% r(1)/SUNR - RMIN < s% RSP_min_deltaR_for_periods) return
-         if(FIRST.eq.1)then   
+         if(FIRST==1)then   
             cycle_complete = .true.
             s% rsp_num_periods=s% rsp_num_periods+1
             s% rsp_period=T0-TT1
diff --git a/star/private/rsp_build.f90 b/star/private/rsp_build.f90
index 17d0ce1e4..3b3159a27 100644
--- a/star/private/rsp_build.f90
+++ b/star/private/rsp_build.f90
@@ -39,7 +39,7 @@ module rsp_build
       public :: do_rsp_build
 
       real(dp) :: PREC,FSUB,TIN,CFIDDLE,ALF, &
-         HHFAC,DdmFAC,SVEL,EFL02,EMR,ELR, &
+         HHFAC,DdmFAC,EFL02,EMR,ELR, &
          E_0,E_1,T_0,T_1,V_0,V_1,P_0,P_1,QQ_0,QQ_1, &
          CP_0,CP_1,OP_0,OP_1,R_1,M_0,dm_bar_0
       real(dp), dimension(15) :: PERS,ETO
@@ -60,28 +60,17 @@ subroutine do_rsp_build(s,ierr)
       real(dp) :: H,dmN
       integer :: NMODES            ! ilosc modow rozwazanych (N=NMODES)
       integer :: NDIM1,NDIM2       ! maks. ilosc modow/warstw 
-      real(dp) :: VEL0(15)
-      character (len=10) PARA
-      character (len=30) HEAD
-      character (len=72) HEAD2      
-      integer :: I,J,kk,NSEQ,NIT
-      real(dp) ::  GEFF,MBOL,DU,TET
-      integer :: IARG
-      character (len=8) II1,II2,II3,II4,II5
-      character (len=15) PROGNAME
+      real(dp) :: VEL0(15) 
+      integer :: I,J,kk,NSEQ
+      real(dp) ::  GEFF,MBOL
       character (len=250) FILENAME
-      integer :: IFROZEN,IRELAX,ICASTOR
       
-      integer :: IO,II,IX,iter
-      real(dp) :: SS,AA,BB,XX
+      integer :: IO,II
+      real(dp) :: SS, AA, BB
       real(dp), allocatable :: TA(:), VEL(:,:), TEMP(:)
-      real(dp) :: TAUTEFF,TAUATTEFF
+      real(dp) :: TAUTEFF, TAUATTEFF
       logical RELAX
-      complex(8) xC
-      real(dp) :: X1,X2,Y1,Y2,amix1,amix2
-      integer :: ISTAT
-      type (star_info), target :: copy_info
-      type (star_info), pointer :: c, prv
+      real(dp) :: amix1, amix2
       
       ierr = 0
    
@@ -180,7 +169,7 @@ subroutine do_rsp_build(s,ierr)
 !        (DERIVATIVES ~1/sqrt(E_T) AND WITH w=0, LAPACK
 !         PROBLEM ARISES; NO SUCH PROBLEM WHEN E_T^2 IS USED
 !         AND LINE BELOW IS NOT NECESSARY THEN)
-         if(w(I).le.EFL02) w(I)=EFL02
+         if(w(I)<=EFL02) w(I)=EFL02
          !write(*,*) NZN-I+1, sqrt(w(i))
       enddo
       
@@ -202,7 +191,7 @@ subroutine do_rsp_build(s,ierr)
       enddo
       II=0; IO=0
       do I=NZN,1,-1
-         if(TA(I).gt.2.d0/3.d0)then
+         if(TA(I)>2.d0/3.d0)then
             II=I
             IO=I+1
             goto 77
@@ -219,7 +208,7 @@ subroutine do_rsp_build(s,ierr)
       TAUTEFF=AA*2.d0/3.d0+BB
 
       do I=NZN,1,-1
-         if(T(I).gt.TE)then
+         if(T(I)>TE)then
             II=I
             IO=I+1
             goto 78
@@ -237,7 +226,7 @@ subroutine do_rsp_build(s,ierr)
       GEFF=G*Mass/R(NZN)**2
       MBOL=-2.5d0*dlog10(ELR)+4.79d0    
       
-      if(NMODES.eq.0) goto 11 ! jesli masz liczyc tylko static envelope
+      if(NMODES==0) goto 11 ! jesli masz liczyc tylko static envelope
       
       if (.not. (s% use_RSP_new_start_scheme .or. s% use_other_RSP_linear_analysis)) then          
          if (s% RSP_trace_RSP_build_model) write(*,*) '*** linear analysis ***'
@@ -294,7 +283,7 @@ subroutine do_rsp_build(s,ierr)
          s% v(kk)=0d0
       end do
       s% L_center=L
-      if(ALFA.eq.0.d0) EFL0=0.d0          
+      if(ALFA==0.d0) EFL0=0.d0          
       s% rsp_period=s% RSP_default_PERIODLIN
       if (is_bad(s% rsp_period)) then
          write(*,1) 'rsp_period', s% rsp_period
@@ -302,7 +291,7 @@ subroutine do_rsp_build(s,ierr)
       end if
       amix1 = s% RSP_fraction_1st_overtone
       amix2 = s% RSP_fraction_2nd_overtone
-      if((AMIX1+AMIX2).gt.1.d0) write(*,*) 'AMIX DO NOT ADD UP RIGHT' 
+      if((AMIX1+AMIX2)>1.d0) write(*,*) 'AMIX DO NOT ADD UP RIGHT' 
       if (.not. s% use_RSP_new_start_scheme) then      
          PERIODLIN=PERS(s% RSP_mode_for_setting_PERIODLIN+1)         
          s% rsp_period=PERIODLIN            
@@ -333,14 +322,12 @@ subroutine STAH(s,MX,L,TE,H0,dmN0,TH0,NZT,NZN,ierr)
          integer, intent(out) :: ierr
       
          real(dp) :: dmN,dm_0,H,Psurf,DDT
-         real(dp) :: OPVV,OPTT,POM
          real(dp) :: GPF
-         real(dp) :: DTN,DTLAST,RS00,RIN
-         real(dp) :: F2,F1,D,HH,TT,RAMA,dmL
-         real(dp) :: T4_1,RM,T4_0,WE,TNL,dmNL
+         real(dp) :: F2,F1,D,HH,TT,dmL
+         real(dp) :: T4_1,RM,T4_0,WE,dmNL
          real(dp) :: FACQ,HH1,HH2
-         integer :: N,N1,N2,I,ITIN,dmN_cnt,NCHANG,IG,H_cnt
-         real(dp) :: HP_0,HP_1,IGR_0,IGR_1,PII,w_0
+         integer :: N,N1,I,ITIN,dmN_cnt,NCHANG,IG,H_cnt
+         real(dp) :: HP_0,HP_1,IGR_0,IGR_1,w_0
          real(dp) :: Lr_0,Lc_0,SVEL_0,HSTART,tau_sum,TH0_tol,TIN_tol, &
             dmN_too_large, dmN_too_small, H_too_large, H_too_small
          logical :: adjusting_dmN, in_photosphere, in_outer_env, &
@@ -383,10 +370,10 @@ subroutine STAH(s,MX,L,TE,H0,dmN0,TH0,NZT,NZN,ierr)
                R_1=pow(R_1**3-3.d0*V_0*dm_0/P4,1.d0/3.d0)
                N=N-1  
                if (s% RSP_trace_RSP_build_model) write(*,*) 'zone_loop', N, T_0, TIN
-               if (N.eq.0 .or. T_0 >= TIN) then
+               if (N==0 .or. T_0 >= TIN) then
                   if (s% RSP_trace_RSP_build_model) write(*,*) 'call next_H'
                   call next_H ! sets HH
-                  if (N.eq.0 .and. abs(T(1)-TIN).lt.TIN*TIN_tol) then
+                  if (N==0 .and. abs(T(1)-TIN)<TIN*TIN_tol) then
                      s% M_center = M_0 - dm_0
                      s% star_mass = s% RSP_mass
                      s% mstar = s% star_mass*SUNM
@@ -425,7 +412,7 @@ subroutine STAH(s,MX,L,TE,H0,dmN0,TH0,NZT,NZN,ierr)
                if (s% RSP_trace_RSP_build_model) write(*,*) 'call get_V'
                call get_V(ierr)
                if (ierr /= 0) return
-               if((NZN-N+1.eq.NZT .or. T_0 >= TH0) &
+               if((NZN-N+1==NZT .or. T_0 >= TH0) &
                      .and. adjusting_dmN) then
                   if (s% RSP_trace_RSP_build_model) &
                      write(*,*) 'call next_dmN', dmN_cnt, NZN-N+1, T_0, TH0, abs(T_0-TH0), TH0_tol*TH0
@@ -437,7 +424,7 @@ subroutine STAH(s,MX,L,TE,H0,dmN0,TH0,NZT,NZN,ierr)
                      !call mesa_error(__FILE__,__LINE__)
                   end if
                   call next_dmN
-                  if(NZN-N+1.eq.NZT.and.abs(T_0-TH0).lt.TH0_tol*TH0) then
+                  if(NZN-N+1==NZT.and.abs(T_0-TH0)<TH0_tol*TH0) then
                      adjusting_dmN = .false.
                      if (s% RSP_trace_RSP_build_model) &
                         write(*,*) '           outer dm/Msun', dmN/SUNM
@@ -452,7 +439,7 @@ subroutine STAH(s,MX,L,TE,H0,dmN0,TH0,NZT,NZN,ierr)
          end do start_from_top_loop
          
          s% R_center=R_1; H0=H; dmN0=dmN     
-         if(N.ne.0) call change_NZN
+         if(N/=0) call change_NZN
       
       contains
       
@@ -525,9 +512,9 @@ subroutine get_V(ierr)
          call EOP(s,N,T_0,P_0,V_0, &
                   E_0,CP_0,QQ_0,SVEL_0,OP_0,ierr)
          if (ierr /= 0) return
-         if(N.ne.NZN)then
+         if(N/=NZN)then
             call CFLUX(HP_0,IGR_0,Lc_0,w_0,GPF,N)
-            if(Lc_0.ge.L) then 
+            if(Lc_0>=L) then 
                write(*,*) 'trouble!',I
                stop
             endif
@@ -634,7 +621,7 @@ subroutine setup_next_zone
          T_1 = sqrt(sqrt(T4_1))
          E_1 = E_0
          !     RESET dm FOR THE INNNER ZONES
-         if(N.eq.NZN-1) then
+         if(N==NZN-1) then
             dm_0=dmN
          else if (T_1 > TH0) then
             if (in_outer_env) then
@@ -680,10 +667,8 @@ logical function get_T_estimate()
          use num_lib, only: safe_root_with_brackets
          real(dp) :: Tmax, epsx, epsy, residual, lnT, &
             lnT_min, lnT_max, resid_T_min, resid_T_max, dfdx
-         integer :: i, n, ierr
+         integer :: n, ierr
          integer, parameter :: lrpar=1, lipar=1, imax=50
-         real(dp), target :: rpar_target(lrpar)
-         integer, target :: ipar_target(lipar)
          real(dp), pointer :: rpar(:)
          integer, pointer :: ipar(:)
          include 'formats'
@@ -741,7 +726,7 @@ logical function get_T(ierr)
                T_0,P_0,V_0,E_0,CP_0,QQ_0,SVEL_0,OP_0,ierr)  
             if (ierr /= 0) return    
             call CFLUX(HP_0,IGR_0,Lc_0,w_0,GPF,N)
-            if(Lc_0.lt.L) exit Lc_loop1
+            if(Lc_0<L) exit Lc_loop1
             T_0=T_0-10.d0*(Lc_0/L) 
             if (T_0 <= 0) then
                ierr = -1
@@ -760,7 +745,7 @@ logical function get_T(ierr)
          I=0
          T1_loop: do ! adjust T to make Lr + Lc = L
             I=I+1
-            if(I.gt.10000) then
+            if(I>10000) then
                get_T = .false.
                if (s% RSP_testing) then
                   write(*,*) 'failed get_T', N, T_0
@@ -768,7 +753,7 @@ logical function get_T(ierr)
                end if
                return
             end if
-            do while (abs(D/T4_0).gt.0.5d0) 
+            do while (abs(D/T4_0)>0.5d0) 
                D=(T4_0/2.d0)*(D/abs(D))
             end do
             T4_0 = T4_0-D
@@ -778,7 +763,7 @@ logical function get_T(ierr)
                    T_0,P_0,V_0,E_0,CP_0,QQ_0,SVEL_0,OP_0,ierr)
                if (ierr /= 0) return
                call CFLUX(HP_0,IGR_0,Lc_0,w_0,GPF,N)
-               if (Lc_0.lt.L) exit Lc_loop
+               if (Lc_0<L) exit Lc_loop
                T_0=T_0-10.d0*(Lc_0/L)
                if (T_0 <= 0) then
                   ierr = -1
@@ -790,7 +775,7 @@ logical function get_T(ierr)
             Lr_0=TT*(T4_0/OP_0-T4_1/OP_1)/ &
                   (1.d0-dlog(OP_0/OP_1)/dlog(T4_0/T4_1))*L
             F2=(Lr_0+Lc_0)/L-1.d0  
-            if(ABS(F2).lt.PREC .or. F2.eq.F1) exit T1_loop
+            if(ABS(F2)<PREC .or. F2==F1) exit T1_loop
             D=F2*(T4_0-T4_0)/(F2-F1)
             F1=F2
             T4_0=T4_0
@@ -802,7 +787,7 @@ end function get_T
       
       subroutine failed
          write(*,*) 'NO CONVERGENCE IN STA INNER LOOP',I
-         if((.not.adjusting_dmN) .OR. dmN_cnt.gt.1 .or. IG > 54) then
+         if((.not.adjusting_dmN) .OR. dmN_cnt>1 .or. IG > 54) then
             write(*,*) 'zone ',N,'IGR= ',IGR_0 
             stop
          end if
@@ -861,9 +846,9 @@ end subroutine STAH
       subroutine ZNVAR(s,H,dmN,L,TE,M,ierr)
       type (star_info), pointer :: s
       integer, intent(out) :: ierr
-      real(dp) :: H,dmN,L,TE,M,ha,Psurf
-      real(dp) :: T0,R,TAU0,Pdm,CKP,P,PZ,V,OP,DU1,DU2,CP,QQ, &
-         dtau, kap, alfa, G_M_dtau_div_R2, Prad, Pgas_0, Pgas_1, &
+      real(dp) :: H,dmN,L,TE,M,Psurf
+      real(dp) :: T0,R,TAU0,P,V, &
+         dtau, kap, alfa, G_M_dtau_div_R2, Prad, Pgas_0, &
          dP_dV, dkap_dV, xx, residual, d_residual_dlnV, &
          dkap_dlnV, dlnV, dP_dlnV, lnV
       integer :: I
@@ -949,7 +934,7 @@ subroutine CFLUX(HP_0,IGR_0,Lc_0,OMEGA_0,GPF,N)
       real(dp) :: AA,BB,CC,DELTA
       integer :: N
 !-
-      if(ALFA.eq.0.d0) then
+      if(ALFA==0.d0) then
          OMEGA_0=0.d0
          Lc_0=0.d0
          return
@@ -973,13 +958,13 @@ subroutine CFLUX(HP_0,IGR_0,Lc_0,OMEGA_0,GPF,N)
    
 
 !     BOTTOM BOUNDARY CONDITION FOR CONVECTION
-      if(N.le.IBOTOM)then 
+      if(N<=IBOTOM)then 
          Lc_0=0.d0
          OMEGA_0=0.d0
          return
       endif
-      if(IGR_0.gt.0.d0)then
-         if(.true. .or. GAMMAR.eq.0.d0)then   ! gammar breaks Cep 11.5M model  BP
+      if(IGR_0>0.d0)then
+         if(.true. .or. GAMMAR==0.d0)then   ! gammar breaks Cep 11.5M model  BP
            OMEGA_0=sqrt(ALFA/CEDE*FF*GPF* &
              (T_0*P_0*QQ_0/CP_0+T_1*P_1*QQ_1/CP_1)*0.5d0)
          else
@@ -991,7 +976,7 @@ subroutine CFLUX(HP_0,IGR_0,Lc_0,OMEGA_0,GPF,N)
             CC=-(T_0*P_0*QQ_0/CP_0 &
                      +T_1*P_1*QQ_1/CP_1)*0.5d0*FF*GPF
             DELTA=BB**2-4.d0*AA*CC
-            if(DELTA.le.0.d0) then
+            if(DELTA<=0.d0) then
                write(*,*) 'CFLUX: Error! : Y>0, but no solution found'
                stop
             endif
diff --git a/star/private/rsp_def.f90 b/star/private/rsp_def.f90
index 3ebe7905d..66ff8a63c 100644
--- a/star/private/rsp_def.f90
+++ b/star/private/rsp_def.f90
@@ -406,7 +406,7 @@ subroutine rsp_photo_in(s, iounit, ierr)
          type (star_info), pointer :: s
          integer, intent(in) :: iounit
          integer, intent(out) :: ierr
-         integer :: n, k, i
+         integer :: n
          include 'formats'
          call init_def(s) 
          ierr = 0
@@ -447,7 +447,7 @@ end subroutine rsp_photo_in
       
       subroutine finish_after_build_model(s)
          type (star_info), pointer :: s
-         integer :: k, ierr
+         integer :: k
          ! restore bit-for-bit erad = crad*T**4*Vol
          include 'formats'
          do k = 1, NZN
@@ -522,7 +522,7 @@ subroutine set_star_vars(s, ierr)
          type (star_info), pointer :: s
          integer, intent(out) :: ierr
          real(dp) :: sum_dm
-         integer :: i, k
+         integer :: k
          include 'formats'
          ierr = 0
          sum_dm = 0d0         
@@ -658,7 +658,6 @@ subroutine check_R(s,str)
          type (star_info), pointer :: s      
          character (len=*), intent(in) :: str
          integer :: k
-         real(dp) :: V
          include 'formats'
          do k=s% nz,1,-1
             if (k == s% nz) then
diff --git a/star/private/rsp_eval_eos_and_kap.f90 b/star/private/rsp_eval_eos_and_kap.f90
index 60a17f362..1ef81b9ef 100644
--- a/star/private/rsp_eval_eos_and_kap.f90
+++ b/star/private/rsp_eval_eos_and_kap.f90
@@ -48,7 +48,6 @@ module rsp_eval_eos_and_kap
       
       subroutine restart_rsp_eos_and_kap(s)
          type (star_info), pointer :: s
-         integer :: ierr
          eos_handle = s% eos_handle
          kap_handle = s% kap_handle
          net_iso => s% net_iso
@@ -60,7 +59,7 @@ subroutine init_for_rsp_eos_and_kap(s)
          use adjust_xyz, only: get_xa_for_standard_metals
          type (star_info), pointer :: s
          
-         integer :: i, k, j, iz, ierr
+         integer :: i, iz, ierr
          real(dp) :: initial_z, initial_y, initial_x, &
             initial_h1, initial_h2, initial_he3, initial_he4, &
             xsol_he3, xsol_he4, z2bar, ye, mass_correction, sumx
@@ -207,15 +206,11 @@ subroutine eval1_mesa_eos_and_kap( &
          integer, intent(out) :: ierr
          
          integer :: j
-         real(dp) :: logT, logRho, T, Rho, energy, entropy, &
-            dlnRho_dlnPgas_const_T, dlnRho_dlnT_const_Pgas, &
-            d_dlnRho_const_T, d_dlnT_const_Rho, E, dE_dV, dE_dT, &
+         real(dp) :: logT, logRho, T, Rho, E, dE_dV, dE_dT, &
             lnfree_e, d_lnfree_e_dlnRho, d_lnfree_e_dlnT, &
-            frac_Type2, opacity, dlnkap_dlnd, dlnkap_dlnT, &
             dlnd_dV, chiRho, chiT, dchiRho_dlnd, dchiRho_dlnT, &
-            dchiT_dlnd, dchiT_dlnT, dQ_dlnd, dQ_dlnT, opacity_factor
-         real(dp), dimension(num_eos_basic_results) :: &
-            res, d_dlnd, d_dlnT, d_dabar, d_dzbar
+            dchiT_dlnd, dchiT_dlnT, dQ_dlnd, dQ_dlnT
+         real(dp), dimension(num_eos_basic_results) :: res, d_dlnd, d_dlnT
          real(dp) :: d_dxa(num_eos_d_dxa_results,s% species)
 
          include 'formats'
@@ -826,7 +821,6 @@ subroutine get_surf_P_T_kap(s, &
          real(dp) :: &
             lnT, dlnT_dL, dlnT_dlnR, dlnT_dlnM, dlnT_dlnkap, &
             lnP, dlnP_dL, dlnP_dlnR, dlnP_dlnM, dlnP_dlnkap
-         integer :: iter
          
          ierr = 0
 
@@ -871,7 +865,7 @@ subroutine set_Rho_for_new_Pgas(s,kk,ierr)
          real(dp), dimension(num_eos_basic_results) :: &
             res, d_dlnd, d_dlnT
          real(dp), dimension(num_eos_d_dxa_results, species) :: d_dxa
-         integer :: max_iter, which_other, eos_calls, iter
+         integer :: max_iter, which_other, eos_calls
             
          include 'formats'
          ierr = 0         
@@ -917,7 +911,7 @@ subroutine set_T_for_new_egas(s,kk,ierr)  ! uses s% T(kk), s% egas(kk) and s% ln
          real(dp), dimension(num_eos_basic_results) :: &
             res, d_dlnd, d_dlnT
          real(dp) :: d_dxa(num_eos_d_dxa_results, species)
-         integer :: max_iter, which_other, eos_calls, iter
+         integer :: max_iter, eos_calls
             
          include 'formats'
          ierr = 0         
@@ -989,7 +983,7 @@ subroutine set_T_for_new_Pgas(s,kk,ierr)
          real(dp), dimension(num_eos_basic_results) :: &
             res, d_dlnd, d_dlnT
          real(dp), dimension(num_eos_d_dxa_results, species) :: d_dxa
-         integer :: max_iter, which_other, eos_calls, iter
+         integer :: max_iter, which_other, eos_calls
             
          include 'formats'
          ierr = 0         
@@ -1032,7 +1026,7 @@ subroutine set_T_for_new_energy(s,kk,logT_tol,other_tol,ierr)
          real(dp), dimension(num_eos_basic_results) :: &
             res, d_dlnd, d_dlnT
          real(dp), dimension(num_eos_d_dxa_results, species) :: d_dxa
-         integer :: max_iter, which_other, eos_calls, iter
+         integer :: max_iter, which_other, eos_calls
          ierr = 0         
          max_iter = 100
          which_other = i_lnE
diff --git a/star/private/rsp_lina.f90 b/star/private/rsp_lina.f90
index df22da843..f9a2f79ba 100644
--- a/star/private/rsp_lina.f90
+++ b/star/private/rsp_lina.f90
@@ -102,21 +102,20 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
       real(dp) :: GGXM,GGX0,GGXP,GGY0,GGYP,GG,GPF
       real(dp) :: DFCX0,DFCXM,DFCXP,DFCY0,DFCYP,DFCZ0,DFCZP
       real(dp) :: DFCMX0,DFCMXM,DFCMXP,DFCMY0,DFCMYP,DFCMZ0,DFCMZP
-      real(dp) :: FLIM,FLD
       real(dp) :: T1,DLR,DLRP,DLRM,DLT,DLTP,DLMR,DLMRP,DLMRM,DLMT,DLMTP
       real(dp) :: W_00,W_out,BW,BK,T2,T3,DLK,DLKP,MINI
-      real(dp) :: T4,T5,P2,P3,P5,P6,P7,P8,P9,P10,POM3,POM2,POM,POM4
+      real(dp) :: T4,POM3,POM2,POM,POM4
       integer :: I,J,NZN3,IG,IE,IR,IC,INFO,IMI,LD_VL,LD_VR,n,op_err
-      real(dp) :: RES(12),VRRS(15),Q(15)
+      real(dp) :: VRRS(15),Q(15)
       character (len=250) FILENAME
       character (len=1) NUMER1
       character (len=2) NUMER2
-      complex(8):: DP_0,DV_0,VTTS(15),SCALE(15),CPOM,DPEV,dP_dT_00URB
+      complex(8):: DP_0,DV_0,VTTS(15),SCALE(15),DPEV,dP_dT_00URB
       real(dp) :: SGRP,SGRM
       real(dp) :: PSIG,TEMI,TEMM,TEM1
       real(dp) :: NORMC
       real(dp) :: QCHECK(15),ETOIEV(15),QWKPT(1000,15),ETOIPT(15),SGR(15)
-      real(dp) :: TT4,TT4P,EFL02   
+      real(dp) :: EFL02   
       real(dp) :: ETOI(15)
       
       !write(*,'(a55,i12,99(1pd26.16))') 'start LINA s% w(2)**2', &
@@ -191,7 +190,7 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
 
 !     SET ALL NECESSARY DERIVATIVES AND VALUES EQUAL 0
 !     FOR FROZEN-IN APPROXIMATION, OR IN CASE ALFA=0 (RADIATIVE)
-      if(ALFA.eq.0.d0)then
+      if(ALFA==0.d0)then
          do I=1,NZN
             Et(I)=0.d0
             EFL02=0.d0
@@ -231,7 +230,7 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
       !$OMP PARALLEL DO PRIVATE(I,T1,op_err) SCHEDULE(dynamic,2)
       do 1 I=1,NZN
 
-         if(Et(I).le.EFL02) Et(I)=EFL02
+         if(Et(I)<=EFL02) Et(I)=EFL02
 
          call mesa_eos_kap(s,0, &
               T(I),Vol(I),P(I),DPV(I),dP_dT_00(I), &
@@ -242,7 +241,7 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
 
          T1=P43/dm(I)
          DVR(I)=3.d0*T1*R(I)**2    
-         if(I.eq.1) goto 2        
+         if(I==1) goto 2        
          DVRM(I)=-3.d0*T1*R(max(1,I-1))**2 
              ! bp: max(1,i-1) to prevent bogus warning from gfortran
          goto 3
@@ -261,7 +260,7 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
 
 !     SKIP ALL DERIVATIVE CALCULATIONS IN CASE OF FROZEN-IN
 !     APPROXIMATION OR ALFA=0 (RADIATIVE CASE)
-      if(ALFA.eq.0.d0) goto 999
+      if(ALFA==0.d0) goto 999
 
 !     SET E_T (NOW =w) BELOW AND ABOVE BOUNDARIES
       Et(NZN) = 0.d0
@@ -411,8 +410,8 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
 !       THIS IS FORMULATION USED IN BUDAPEST-FLORIDA CODE
 !       IT REQUIRES E_T AS MAIN VARIABLE - OTHERWISE CONVERGENCE
 !       IS EXTREMELY SLOW, AND POSSIBLE ONLY IF LOW ACCURACY
-!       FOR CONVERGENCE CONDITION, DXXC.LT. 1d-2 - 1.d-4, IS SET
-!        if(SOURCE(I).le.0.d0)then
+!       FOR CONVERGENCE CONDITION, DXXC< 1d-2 - 1.d-4, IS SET
+!        if(SOURCE(I)<=0.d0)then
 !           SOURCE(I) = 0.d0
 !           dsrc_dr_out(I) = 0.d0
 !           dsrc_dr_00(I) = 0.d0
@@ -439,7 +438,7 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
          d_damp_dw_00(I) =1.5d0*(CEDE/ALFA)/POM2*sqrt(Et(I))
 
 !        RADIATIVE DAMP TERM
-         if(GAMMAR.eq.0.d0)then
+         if(GAMMAR==0.d0)then
             DAMPR(I)   = 0.d0
             d_dampR_dr_out(I) = 0.d0
             d_dampR_dr_00(I) = 0.d0
@@ -523,9 +522,9 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
          DLCY0(I)=POM*dPII_dT_00(I)+POM2/Vol(I)
          DLCYP(I)=POM*dPII_dT_out(I)+POM2/Vol(I+1)
 
-         if(I.eq.IBOTOM) DLCZ0(I)=0.d0
-         if(I.eq.NZN-1)  DLCZP(I)=0.d0
-         if(Et(I).lt.EFL02*1d-10)then
+         if(I==IBOTOM) DLCZ0(I)=0.d0
+         if(I==NZN-1)  DLCZP(I)=0.d0
+         if(Et(I)<EFL02*1d-10)then
             Lc(I)=0.d0
             DLCX0(I)=0.d0
             DLCXM(I)=0.d0
@@ -536,7 +535,7 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
             DLCZP(I)=0.d0
          endif
 
-!         if(PII(I).lt.0.d0.or.ALFA.eq.0.d0)then
+!         if(PII(I)<0.d0.or.ALFA==0.d0)then
 !            Lc(I)=0.d0
 !            DLCX0(I)=0.d0
 !            DLCXM(I)=0.d0
@@ -548,7 +547,7 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
 !         endif
 
 !        TURBULENT LUMINOSITY
-         if(ALFAT.eq.0.d0.or.ALFA.eq.0.d0)then
+         if(ALFAT==0.d0.or.ALFA==0.d0)then
             Lt(I)=0.d0
             DLTX0(I)=0.d0
             DLTXM(I)=0.d0
@@ -580,7 +579,7 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
 
 !     TURBULENT PRESSURE (ZONE)
       do I=IBOTOM+1,NZN-1
-         if(ALFAP.eq.0.d0)then
+         if(ALFAP==0.d0)then
             PTURB(I) = 0.d0
             dPtrb_dw_00(I) = 0.d0
             dPtrb_dr_00(I) = 0.d0
@@ -596,7 +595,7 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
 
 !     EDDY VISCOSITY
       do I=IBOTOM+1,NZN-1
-         if(ALFAM.ge.0d0) then
+         if(ALFAM>=0d0) then
 !           Kuhfuss (1986) tensor EDDY VISCOSITY
             POM=16.d0/3.d0*PI*ALFA*ALFAM*sqrt(Et(I))
             POM1=1.d0/Vol(I)**2/dm(I)
@@ -713,7 +712,7 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
          DFCMYP = DFCYP
          DFCMZ0 = DFCZ0
          DFCMZP = DFCZP
-         if(I.eq.NZN) goto 6
+         if(I==NZN) goto 6
 !        Lr(I)=Eq. A.4, Stellingwerf 1975, Appendix A
 !        CALC LUM(I)
          W_00=T(I)**4
@@ -776,7 +775,7 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
          EZ10(I) =                             -T4*(     -DFCMZ0)
          EZ00(I) =                  -dC_dw_00(I)  -T4*(DFCZ0-DFCMZP)
          EZ01(I) =                             -T4*(DFCZP       )
-         if(I.eq.1) then
+         if(I==1) then
             EU10(I) =  T3*s% R_center**2
          else
             EU10(I) =  T3*R(max(1,I-1))**2
@@ -807,7 +806,7 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
          CY01(I) = dC_dT_out(I)  -T4*(DLTYP(I)           )
          CX01(I) = dC_dr_out(I)  -T4*(DLTXP(I)           )
          CZ01(I) =           -T4*(DLTZP(I)           )
-         if(I.eq.1) then
+         if(I==1) then
             CU10(I) =  T3*s% R_center**2
          else
             CU10(I) =  T3*R(max(1,I-1))**2
@@ -817,13 +816,13 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
 
 !        CALC MOMENTUM EQUATION(I)
          T1=P4*R(I)**2/dm_bar(I)
-         if(ALFAM.ge.0.d0) T4=P4/(dm_bar(I)*R(I))
-         if(ALFAM.lt.0.d0) T4=-T1
+         if(ALFAM>=0.d0) T4=P4/(dm_bar(I)*R(I))
+         if(ALFAM<0.d0) T4=-T1
          MU10(I) =  T4*(-EVUUM(I))
          MZ00(I) = -T1*(-dPtrb_dw_00(I))
          MX10(I) = -T1*(-dP_dr_in(I)-dPtrb_dr_in(I))
          MY00(I) = -T1*(-dP_dT_00(I))
-         if(I.ne.NZN)then
+         if(I/=NZN)then
             MX00(I) =  4.d0*G*M(I)/R(I)**3 &
                       -T1*(dP_dr_in(I+1)-dP_dr_00(I)+dPtrb_dr_in(I+1)-dPtrb_dr_00(I))
             MX01(I) = -T1*(dP_dr_00(I+1)        +dPtrb_dr_00(I+1))
@@ -867,12 +866,12 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
 ! ENERGY EQ. IN ROWS IE
 ! TURBULENT ENERGY EQ. IN ROWS IC
 ! NAMING SCHEME FOR ELEMENTS OF LLL:
-! EX00(I) - d(energy.eq.)/dR_i
-! EX01(I) - d(energy.eq.)/dR_i+1
-! EX10(I) - d(energy.eq.)/dR_i-1
-! EY00(I) - d(energy.eq.)/dT_i
-! EU00(I) - d(energy.eq.)/dU_i
-! MY00(I) - d(moment.eq.)/dT_i
+! EX00(I) - d(energy==)/dR_i
+! EX01(I) - d(energy==)/dR_i+1
+! EX10(I) - d(energy==)/dR_i-1
+! EY00(I) - d(energy==)/dT_i
+! EU00(I) - d(energy==)/dU_i
+! MY00(I) - d(moment==)/dT_i
 ! e.t.c.
 ! VELOCITY DEF. AND MOMENTUM EQ. AT THE INTERFACE 1....NZN
 ! ENERGY EQUATIONS IN THE ZONE 1....NZN
@@ -884,56 +883,56 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
          IE=4*I-1
          IC=4*I
 
-         if(IG+1.le.NZN3) LLL(IG,IG+1) = 1.d0
+         if(IG+1<=NZN3) LLL(IG,IG+1) = 1.d0
 !---------------------------------------
-         if(IR-4.ge.1)    LLL(IR,IR-4)  = MU10(I)
+         if(IR-4>=1)    LLL(IR,IR-4)  = MU10(I)
                           LLL(IR,IR)    = MU00(I)
-         if(IR+4.le.NZN3) LLL(IR,IR+4)  = MU01(I)
+         if(IR+4<=NZN3) LLL(IR,IR+4)  = MU01(I)
 
-         if(IR-5.ge.1)    LLL(IR,IR-5)  = MX10(I)
-         if(IR-1.ge.1)    LLL(IR,IR-1)  = MX00(I)
-         if(IR+3.le.NZN3) LLL(IR,IR+3)  = MX01(I)
+         if(IR-5>=1)    LLL(IR,IR-5)  = MX10(I)
+         if(IR-1>=1)    LLL(IR,IR-1)  = MX00(I)
+         if(IR+3<=NZN3) LLL(IR,IR+3)  = MX01(I)
 
-         if(IR+1.le.NZN3) LLL(IR,IR+1)  = MY00(I)
-         if(IR+5.le.NZN3) LLL(IR,IR+5)  = MY01(I)
+         if(IR+1<=NZN3) LLL(IR,IR+1)  = MY00(I)
+         if(IR+5<=NZN3) LLL(IR,IR+5)  = MY01(I)
 
-         if(IR+2.le.NZN3) LLL(IR,IR+2)  = MZ00(I)
-         if(IR+6.le.NZN3) LLL(IR,IR+6)  = MZ01(I)
+         if(IR+2<=NZN3) LLL(IR,IR+2)  = MZ00(I)
+         if(IR+6<=NZN3) LLL(IR,IR+6)  = MZ01(I)
 !---------------------------------------
-         if(IE-5.ge.1)    LLL(IE,IE-5)  = EU10(I)/dE_dT_00(I)
-         if(IE-1.ge.1)    LLL(IE,IE-1)  = EU00(I)/dE_dT_00(I)
+         if(IE-5>=1)    LLL(IE,IE-5)  = EU10(I)/dE_dT_00(I)
+         if(IE-1>=1)    LLL(IE,IE-1)  = EU00(I)/dE_dT_00(I)
 
-         if(IE-10.ge.1)   LLL(IE,IE-10) = EX20(I)/dE_dT_00(I)
-         if(IE-6.ge.1)    LLL(IE,IE-6)  = EX10(I)/dE_dT_00(I)
-         if(IE-2.ge.1)    LLL(IE,IE-2)  = EX00(I)/dE_dT_00(I)
-         if(IE+2.le.NZN3) LLL(IE,IE+2)  = EX01(I)/dE_dT_00(I)
+         if(IE-10>=1)   LLL(IE,IE-10) = EX20(I)/dE_dT_00(I)
+         if(IE-6>=1)    LLL(IE,IE-6)  = EX10(I)/dE_dT_00(I)
+         if(IE-2>=1)    LLL(IE,IE-2)  = EX00(I)/dE_dT_00(I)
+         if(IE+2<=NZN3) LLL(IE,IE+2)  = EX01(I)/dE_dT_00(I)
 
-         if(IE-4.ge.1)    LLL(IE,IE-4)  = EY10(I)/dE_dT_00(I)
+         if(IE-4>=1)    LLL(IE,IE-4)  = EY10(I)/dE_dT_00(I)
                           LLL(IE,IE)    = EY00(I)/dE_dT_00(I)
-         if(IE+4.le.NZN3) LLL(IE,IE+4)  = EY01(I)/dE_dT_00(I)
+         if(IE+4<=NZN3) LLL(IE,IE+4)  = EY01(I)/dE_dT_00(I)
 
-         if(IE-3.ge.1)    LLL(IE,IE-3)  = EZ10(I)/dE_dT_00(I)
-         if(IE+1.le.NZN3) LLL(IE,IE+1)  = EZ00(I)/dE_dT_00(I)
-         if(IE+5.le.NZN3) LLL(IE,IE+5)  = EZ01(I)/dE_dT_00(I)
+         if(IE-3>=1)    LLL(IE,IE-3)  = EZ10(I)/dE_dT_00(I)
+         if(IE+1<=NZN3) LLL(IE,IE+1)  = EZ00(I)/dE_dT_00(I)
+         if(IE+5<=NZN3) LLL(IE,IE+5)  = EZ01(I)/dE_dT_00(I)
 !---------------------------------------
-         if(IC-11.ge.1)   LLL(IC,IC-11) = CX20(I)
-         if(IC-7.ge.1)    LLL(IC,IC-7)  = CX10(I)
-         if(IC-3.ge.1)    LLL(IC,IC-3)  = CX00(I)
-         if(IC+1.le.NZN3) LLL(IC,IC+1)  = CX01(I)
+         if(IC-11>=1)   LLL(IC,IC-11) = CX20(I)
+         if(IC-7>=1)    LLL(IC,IC-7)  = CX10(I)
+         if(IC-3>=1)    LLL(IC,IC-3)  = CX00(I)
+         if(IC+1<=NZN3) LLL(IC,IC+1)  = CX01(I)
   
-         if(IC-6.ge.1)    LLL(IC,IC-6)  = CU10(I) 
-         if(IC-2.ge.1)    LLL(IC,IC-2)  = CU00(I) 
+         if(IC-6>=1)    LLL(IC,IC-6)  = CU10(I) 
+         if(IC-2>=1)    LLL(IC,IC-2)  = CU00(I) 
 
-         if(IC-5.ge.1)    LLL(IC,IC-5)  = CY10(I) 
-         if(IC-1.ge.1)    LLL(IC,IC-1)  = CY00(I) 
-         if(IC+3.le.NZN3) LLL(IC,IC+3)  = CY01(I)
+         if(IC-5>=1)    LLL(IC,IC-5)  = CY10(I) 
+         if(IC-1>=1)    LLL(IC,IC-1)  = CY00(I) 
+         if(IC+3<=NZN3) LLL(IC,IC+3)  = CY01(I)
 
-         if(IC-4.ge.1)    LLL(IC,IC-4)  = CZ10(I) 
+         if(IC-4>=1)    LLL(IC,IC-4)  = CZ10(I) 
                           LLL(IC,IC)    = CZ00(I)
-         if(IC+4.le.NZN3) LLL(IC,IC+4)  = CZ01(I)
+         if(IC+4<=NZN3) LLL(IC,IC+4)  = CZ01(I)
          
          IF (IE+4 <= NZN3) then
-            if(LLL(IE,IE+4).lt.0.d0)then
+            if(LLL(IE,IE+4)<0.d0)then
                !write(*,*) 'rerrrrrrrrrrrrrrrrrrrrrrrr',i
             endif
          endif
@@ -943,7 +942,7 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
          write(*,*) 'waiting for DGEEV to solve eigenvalue problem....'
       call DGEEV('n','v',NZN3,LLL,LD_LLL,WRx,WIx,VLx,LD_VL,VRx,LD_VR, &
                  WORKx,4*NZN3,INFO)         
-      if(INFO.ne.0)then
+      if(INFO/=0)then
          write(*,*) 'FAILED!'
          write(*,*) 'LAPACK/DGEEV error, ier= ',INFO
          ierr = -1
@@ -967,9 +966,9 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
       IMI=0
       !write(15,'(a)') '     I                R              PERIOD'
       do I=1,NZN3
-!         if(WIx(I).lt.MINI.and.WIx(I).gt.1d-9)then
-         if((WIx(I).lt.MINI) .and.(WIx(I).gt.1.d-9))then
-            if(P4*WRx(I)/WIx(I).gt.-.3d+1)then
+!         if(WIx(I)<MINI.and.WIx(I)>1d-9)then
+         if((WIx(I)<MINI) .and.(WIx(I)>1.d-9))then
+            if(P4*WRx(I)/WIx(I)>-.3d+1)then
                MINI=WIx(I)
                IMI=I
             end if
@@ -986,7 +985,7 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
 
       do J=1,NMODES
  444     continue
-         if(P4*WRx(IMI+J-1)/WIx(IMI+J-1).lt.-.5d+1)then
+         if(P4*WRx(IMI+J-1)/WIx(IMI+J-1)<-.5d+1)then
             IMI=IMI+1
             goto 444
          endif
@@ -1035,7 +1034,7 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
 !           DVRC(I,J) IS SCALED dOMEGA/OMEGA EIGENVECTOR OF THE MODE (J)
 !           (dOMEGA_i/OMEGA_i)/(dR_NZN/R_NZN)
             DVRC(I,J)=VRC(I,J)
-            if(NORMC.lt.abs(DVRC(I,J))) NORMC=abs(DVRC(I,J))
+            if(NORMC<abs(DVRC(I,J))) NORMC=abs(DVRC(I,J))
             PHC(I,J)=datan2(aimag(DVRC(I,J)),dble(DVRC(I,J)))
 
 !           VRU(I,J) IS THE dU EIGENVECTOR OF THE MODE J 
@@ -1048,7 +1047,7 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
             EK(J)=EK(J)+0.5d0*dm_bar(I)*(OMEG(J)*abs(VRR(I,J)*SCALE(J)))**2
 
 !           WORK DONE IN ZONE I (FOR THE MODE J)
-            if(I.eq.1) then
+            if(I==1) then
                DV_0=DVR(I)*VRR(I,J)*SCALE(J)
             else
                DV_0=(DVR(I)*VRR(I,J)+DVRM(I)*VRR(I-1,J))*SCALE(J)
@@ -1056,37 +1055,37 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
             DP_0=(DPV(I)*DV_0+dP_dT_00(I)*VRT(I,J)*SCALE(J))
 
             DPEV=EVUU0(I)*VRU(I,J)
-            if(I.ge.2)DPEV=DPEV+EVUUM(I)*VRU(I-1,J)
+            if(I>=2)DPEV=DPEV+EVUUM(I)*VRU(I-1,J)
             DPEV=DPEV*SCALE(J)
 
             dP_dT_00URB=dPtrb_dr_00(I)*VRR(I,J)
-            if(I.ge.2) dP_dT_00URB=dP_dT_00URB+dPtrb_dr_in(I)*VRR(I-1,J)
+            if(I>=2) dP_dT_00URB=dP_dT_00URB+dPtrb_dr_in(I)*VRR(I-1,J)
             dP_dT_00URB=dP_dT_00URB+dPtrb_dw_00(I)*VRC(I,J)
             dP_dT_00URB=dP_dT_00URB*SCALE(J)
 
             QWK(I,J)=-PI*dm(I)*aimag(conjg(DP_0)*DV_0) 
-            if(ALFAM.lt.0.d0)QWKEV(I,J)=-PI*dm(I)*aimag(conjg(DPEV)*DV_0) 
+            if(ALFAM<0.d0)QWKEV(I,J)=-PI*dm(I)*aimag(conjg(DPEV)*DV_0) 
             QWKPT(I,J)=-PI*dm(I)*aimag(conjg(dP_dT_00URB)*DV_0) 
-            if(ALFAM.gt.0.d0)then
+            if(ALFAM>0.d0)then
                QWKEV(I,J)=PI*dm(I)*aimag(conjg(DPEV)*(DV_0/R(I)**3- &
                         3.d0*Vol(I)/R(I)**4*VRR(I,J)*SCALE(J)))
             endif
 
-            if(QWK(I,J)+QWKEV(I,J)+QWKPT(I,J).ge.0.d0) &
+            if(QWK(I,J)+QWKEV(I,J)+QWKPT(I,J)>=0.d0) &
               SGRP=SGRP+QWK(I,J)+QWKEV(I,J)+QWKPT(I,J)
-            if(QWK(I,J)+QWKEV(I,J)+QWKPT(I,J).lt.0.d0) &
+            if(QWK(I,J)+QWKEV(I,J)+QWKPT(I,J)<0.d0) &
               SGRM=SGRM+abs(QWK(I,J)+QWKEV(I,J)+QWKPT(I,J))
         
             VEL(I,J)=abs(VRR(I,J))/VRRS(J)
-            if(abs(PHR(I,J)).gt.1.57d0)VEL(I,J)=-VEL(I,J)
+            if(abs(PHR(I,J))>1.57d0)VEL(I,J)=-VEL(I,J)
          enddo
 
 !        WRITE WORK-INTEGRALS INTO FILE
-         if(J.le.9)then
+         if(J<=9)then
             write(NUMER1,'(I1)') J
             FILENAME=trim(s% log_directory) // '/' // 'LINA_work'//NUMER1//'.data'
          endif
-         if(J.ge.10)then
+         if(J>=10)then
             write(NUMER2,'(I2)') J
             FILENAME=trim(s% log_directory) // '/' // 'LINA_work'//NUMER2//'.data'
          endif
@@ -1118,8 +1117,8 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
             VRL(I,J)= ELT(I)*VRT(I,J) &
                      +ELR(I)*VRR(I,J) &
                      +ELZ0(I)*VRC(I,J)
-            if(I.ne.1)   VRL(I,J)=VRL(I,J)+ELRM(I)*VRR(I-1,J)
-            if(I.ne.NZN) VRL(I,J)=VRL(I,J)+ELTP(I)*VRT(I+1,J) &
+            if(I/=1)   VRL(I,J)=VRL(I,J)+ELRM(I)*VRR(I-1,J)
+            if(I/=NZN) VRL(I,J)=VRL(I,J)+ELTP(I)*VRT(I+1,J) &
                                           +ELRP(I)*VRR(I+1,J) &
                                           +ELZP(I)*VRC(I+1,J)
 !           DVRL(I,J) IS SCALED dL/L EIGENVECTOR OF THE MODE (J)
@@ -1129,11 +1128,11 @@ subroutine do_LINA(s, L0, NZN, NMODES, VEL, PERS, ETO, &
          enddo
 
 !        WRITE EIGENVECTORS TO FILE
-         if(J.le.9)then
+         if(J<=9)then
             write(NUMER1,'(I1)') J
             FILENAME=trim(s% log_directory) // '/' // 'LINA_eigen'//NUMER1//'.data'
          endif
-         if(J.ge.10)then
+         if(J>=10)then
             write(NUMER2,'(I2)') J
             FILENAME=trim(s% log_directory) // '/' // 'LINA_eigen'//NUMER2//'.data'
          endif
@@ -1234,7 +1233,7 @@ subroutine SORT(N,RA,RB,ISORT)
       L=N/2+1
       IR=N
 10    continue
-        if(L.gt.1)then
+        if(L>1)then
            L=L-1
            RRA=RA(L)
            RRB=RB(L)
@@ -1247,7 +1246,7 @@ subroutine SORT(N,RA,RB,ISORT)
            RB(IR)=RB(1)
            ISORT(IR)=ISORT(1)
            IR=IR-1
-           if(IR.eq.1)then
+           if(IR==1)then
               RA(1)=RRA
               RB(1)=RRB
               ISORT(1)=RRI
@@ -1256,11 +1255,11 @@ subroutine SORT(N,RA,RB,ISORT)
         endif
         I=L
         J=L+L
- 20     if(J.le.IR)then
-           if(J.lt.IR)then
-              if(RA(J).lt.RA(J+1))J=J+1
+ 20     if(J<=IR)then
+           if(J<IR)then
+              if(RA(J)<RA(J+1))J=J+1
            endif
-           if(RRA.lt.RA(J))then
+           if(RRA<RA(J))then
               RA(I)=RA(J)
               RB(I)=RB(J)
               ISORT(I)=ISORT(J)
diff --git a/star/private/rsp_relax_env.f90 b/star/private/rsp_relax_env.f90
index 389278655..b76d479ef 100644
--- a/star/private/rsp_relax_env.f90
+++ b/star/private/rsp_relax_env.f90
@@ -45,16 +45,15 @@ subroutine EOP(s,k,T,P,V,E,CP,QQ,SVEL,OP,ierr)
          eval1_mesa_Rho_given_PT, eval1_gamma_PT_getRho
       type (star_info), pointer :: s
       integer, intent(out) :: ierr
-      real(dp) :: T,V,P1,DPV,E,OP,F2,P,U,SVEL,CP,QQ
-      real(dp) :: DU1,DU2,DU3,DU4,DU5,DU6,DU7,DU8,DU9,DU10,DU11,DU12
-      integer :: k,I
-      real(dp) :: RES(12)
+      real(dp) :: T,V,P1,DPV,E,OP,F2,P,SVEL,CP,QQ
+      real(dp) :: DU1,DU2,DU3,DU4,DU5,DU6,DU7,DU8,DU9
+      integer :: k,i
 
       real(dp) :: R,A,PRECEQ,rho_guess,rho,Prad,P_test
       data R,A/8.317d7,7.5641d-15/
       data PRECEQ/5.d-13/
 
-      if(P.le.0.d0) goto 100 !negative pressure, stop
+      if(P<=0.d0) goto 100 !negative pressure, stop
       
       ierr = 0
       Prad = Radiation_Pressure(T)
@@ -98,7 +97,7 @@ subroutine EOP(s,k,T,P,V,E,CP,QQ,SVEL,OP,ierr)
         T,V,P1,DPV,DU1,E,DU2,DU3,CP,DU4,DU5,QQ,DU6,DU7,OP &
            ,DU8,DU9,ierr)
       if (ierr /= 0) return
-      if(I.gt.25) goto 2 !no convergence, stop
+      if(I>25) goto 2 !no convergence, stop
       F2=P1/P-1.d0
       V=V-F2*P/DPV
       if (is_bad(V)) then
@@ -114,7 +113,7 @@ subroutine EOP(s,k,T,P,V,E,CP,QQ,SVEL,OP,ierr)
       
          !write(*,*) 'V', I, V
          
-      if(abs(F2).lt.PRECEQ) goto 3
+      if(abs(F2)<PRECEQ) goto 3
       goto 1
  3    continue
        if (abs(P - P_test) > 1d-10*P) then
@@ -174,9 +173,9 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
       
       real(dp) :: T1,DLR,DLRP,DLRM,DLT,DLTP,DLMR,DLMRP,DLMRM,DLMT,DLMTP
       real(dp) :: W_00,W_out,BW,BK,T2,T3,DLK,DLKP,SVEL,T_0
-      real(dp) :: DU1,DU2,POM3,POM2,POM,MAXFLUXD
+      real(dp) :: POM3,POM2,POM
       integer :: I,J,IW,IR,IC, IMAXR, IMAXW, IMAXC
-      real(dp) :: MAXR,MAXW,MAXC,PB,PPB,ELB,ELMB,RES(12)
+      real(dp) :: MAXR,MAXW,MAXC,PB,PPB,ELB,ELMB
       
       integer :: INFO,II,ITROUBC,ITROUBT,IZIP
       real(dp) :: XXR,XXC,XXT,EZH,DXH,DXXC,DXXT,DXKC,DXKT, &
@@ -185,7 +184,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
       
       real(dp) :: FFXM,FFX0,FFXP,FFY0,FFYP,FF
       real(dp) :: GGXM,GGX0,GGXP,GGY0,GGYP,GG,GPF
-      real(dp) :: FLIM,FLD,EFL02
+      real(dp) :: EFL02
 
       real(dp) :: POM4,DXXR,TEM1,TEMI,TEMM
 
@@ -201,7 +200,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
       integer :: NDIVAA, NDIVAP, NDIVAT, dmN_cnt, max_dmN_cnt
       logical :: ok_to_adjust_mass, ok_to_adjust_Tsurf
       real(dp) :: EDFAC, Psurf, CFIDDLE, FSUB, EMR, ELR
-      real(dp) :: PREC1, SOL, DAMPS,DAMPRS,DELTA,SOURS
+      real(dp) :: PREC1
 
       real(dp) :: XX_max, XX_max_val, XX_max_dx
       integer :: i_XX_max, var_XX_max, n, op_err
@@ -282,7 +281,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
          SUMM=SUMM+dm(I)
       enddo
 
-!     IF BOTH ALFAP NAD ALFAT .ne. 0, IT IS NECESSARY TO ITERATE WITHOUT
+!     IF BOTH ALFAP NAD ALFAT /= 0, IT IS NECESSARY TO ITERATE WITHOUT
 !     TURBULENT FLUX, WITH TURBULENT PRESSURE ONLY, AND AFTER
 !     CONVERGENCE TURBULENT FLUX IS ITERATED
       AALFA = -1 ! turn off ALFA relax
@@ -299,7 +298,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
       ICAA=1
       
 !     SET ITERATIONS FOR ALFAP
-      if(AALFAP.ne.0.d0)then
+      if(AALFAP/=0.d0)then
          do I=1,NDIVAP
             AAP(I)=AALFAP*I/dble(NDIVAP)
          enddo
@@ -307,7 +306,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
       endif
 
 !     SET ITERATIONS FOR ALFAT
-      if(AALFAT.ne.0.d0)then
+      if(AALFAT/=0.d0)then
          do I=1,NDIVAT
             AAT(I)=AALFAT*I/dble(NDIVAT)
          enddo
@@ -323,15 +322,15 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
  999  continue
 
       IZIP = 0
-      if(IOP.eq.0) goto 100
+      if(IOP==0) goto 100
 
 !------ MASS TRICKS ---
-!     dmN = dm(NZN) ! THIS IS NOT WORKING IF FSUB.ne.1
+!     dmN = dm(NZN) ! THIS IS NOT WORKING IF FSUB/=1
       dmN = dm(NZN-1) !THIS IS WORKING FOR ALL FSUB VALUES
       
       TT  = T(NZN-NZT+1)-TH0
 
-      if(IOP.eq.1) goto 24
+      if(IOP==1) goto 24
 
       DDT = TT*(dmN-dmNL)/(TT-TNL)
       !if (is_bad(DDT)) then
@@ -345,10 +344,10 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
       !   call mesa_error(__FILE__,__LINE__,'failed in RELAX_ENV')
       !end if
       CFIDDLE=0.1d0
-      if(abs(DDT/dmN).gt.CFIDDLE) DDT=CFIDDLE*dmN*(DDT/abs(DDT))
+      if(abs(DDT/dmN)>CFIDDLE) DDT=CFIDDLE*dmN*(DDT/abs(DDT))
 
 !     CHECK IF ALFA ITERATION IS FINISHED 
-      if(abs(DDT/dmN).lt.PREC1.and.ALFA.ne.AALFA) then
+      if(abs(DDT/dmN)<PREC1.and.ALFA/=AALFA) then
          ALFA=AAA(ICAA)
          ICAA=ICAA+1
 !        APPLY ARTIFICIAL ZONE MASS CHANGE TO ALLOW ITERATIONS
@@ -356,7 +355,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
          write(*,*) 'ALFA =',ALFA
          goto 24
       endif
-      if(abs(DDT/dmN).lt.PREC1.and.ICAA.eq.NDIVAA+1)then
+      if(abs(DDT/dmN)<PREC1.and.ICAA==NDIVAA+1)then
          write(*,*) '***** ALFA ITERATION FINISHED *****'
          write(*,*) 'final ALFA =', ALFA, s% RSP_alfa
          dmN_cnt = 0
@@ -366,7 +365,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
       if (s% RSP_relax_alfap_before_alfat) then
       
          ! CHECK IF ALFAP ITERATION IS FINISHED 
-         if(abs(DDT/dmN).lt.PREC1.and.ALFAP.ne.AALFAP) then
+         if(abs(DDT/dmN)<PREC1.and.ALFAP/=AALFAP) then
             ALFAP=AAP(ICAP)
             ICAP=ICAP+1
             ! APPLY ARTIFICIAL ZONE MASS CHANGE TO ALLOW ITERATIONS
@@ -374,14 +373,14 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
             write(*,*) 'ALFAP=',ALFAP
             goto 24
          endif
-         if(abs(DDT/dmN).lt.PREC1.and.ICAP.eq.NDIVAP+1)then
+         if(abs(DDT/dmN)<PREC1.and.ICAP==NDIVAP+1)then
             write(*,*) '***** ALFAP ITERATION FINISHED *****'
             dmN_cnt = 0
             NDIVAP=-99
          endif
 
          ! CHECK IF ALFAT ITERATION IS FINISHED 
-         if(abs(DDT/dmN).lt.PREC1.and.ALFAT.ne.AALFAT) then
+         if(abs(DDT/dmN)<PREC1.and.ALFAT/=AALFAT) then
             ALFAT=AAT(ICAT)
             ICAT=ICAT+1
             ! APPLY ARTIFICIAL ZONE MASS CHANGE TO ALLOW ITERATIONS
@@ -389,7 +388,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
             write(*,*) 'ALFAT =',ALFAT
             goto 24
          endif
-         if(abs(DDT/dmN).lt.PREC1.and.ICAT.eq.NDIVAT+1)then
+         if(abs(DDT/dmN)<PREC1.and.ICAT==NDIVAT+1)then
             write(*,*) '***** ALFAT ITERATION FINISHED *****'
             dmN_cnt = 0
             NDIVAT=-99
@@ -398,7 +397,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
       else
 
          ! CHECK IF ALFAT ITERATION IS FINISHED 
-         if(abs(DDT/dmN).lt.PREC1.and.ALFAT.ne.AALFAT) then
+         if(abs(DDT/dmN)<PREC1.and.ALFAT/=AALFAT) then
             ALFAT=AAT(ICAT)
             ICAT=ICAT+1
             ! APPLY ARTIFICIAL ZONE MASS CHANGE TO ALLOW ITERATIONS
@@ -406,14 +405,14 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
             write(*,*) 'ALFAT =',ALFAT
             goto 24
          endif
-         if(abs(DDT/dmN).lt.PREC1.and.ICAT.eq.NDIVAT+1)then
+         if(abs(DDT/dmN)<PREC1.and.ICAT==NDIVAT+1)then
             write(*,*) '***** ALFAT ITERATION FINISHED *****'
             dmN_cnt = 0
             NDIVAT=-99
          endif
       
          ! CHECK IF ALFAP ITERATION IS FINISHED 
-         if(abs(DDT/dmN).lt.PREC1.and.ALFAP.ne.AALFAP) then
+         if(abs(DDT/dmN)<PREC1.and.ALFAP/=AALFAP) then
             ALFAP=AAP(ICAP)
             ICAP=ICAP+1
             ! APPLY ARTIFICIAL ZONE MASS CHANGE TO ALLOW ITERATIONS
@@ -421,7 +420,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
             write(*,*) 'ALFAP=',ALFAP
             goto 24
          endif
-         if(abs(DDT/dmN).lt.PREC1.and.ICAP.eq.NDIVAP+1)then
+         if(abs(DDT/dmN)<PREC1.and.ICAP==NDIVAP+1)then
             write(*,*) '***** ALFAP ITERATION FINISHED *****'
             dmN_cnt = 0
             NDIVAP=-99
@@ -429,9 +428,9 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
       
       end if
 
-      if(abs(DDT/dmN).lt.PREC1) then
-         if(NEGFLU.ge.1)then
-            if (NEGFLU.eq.2)then
+      if(abs(DDT/dmN)<PREC1) then
+         if(NEGFLU>=1)then
+            if (NEGFLU==2)then
                !write(*,*) '*** ENVELOPE IS RELAXED ***'
                ending=.true.
                goto 100
@@ -449,7 +448,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
       
       !write(*,*) 'abs(DDT/dmN), PREC1', DDT, dmN, abs(DDT/dmN), PREC1
 
-      if(abs(DDT/dmN).lt.PREC1) then
+      if(abs(DDT/dmN)<PREC1) then
          !write(*,*) '*** ENVELOPE IS RELAXED ***'
          ending=.true.
          goto 100
@@ -470,14 +469,14 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
       
          dmN  = dmN-DDT
 
-         if(IOP.ge.1) then
+         if(IOP>=1) then
    !        CALCULATE HAHA - ZONE MASS RATIO BELOW ANCHOR
    !        TOTAL MASS BELOW ANCHOR: SUMM, FIRST ZONE MASS: AONE
             AONE=dmN
             HAHA=1.01d0
             do I=1,100
                POM=1.d0/(NZN-NZT+1)*dlog10(1.d0-SUMM/AONE*(1.d0-HAHA))
-               if(dabs(HAHA-10.d0**POM).lt.1d-10) goto 22
+               if(dabs(HAHA-10.d0**POM)<1d-10) goto 22
                HAHA=10.d0**POM         
             enddo
             write(*,*) 'NO CONVERGENCE IN RELAX_ENV ITERATION FOR H'
@@ -486,14 +485,14 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
             HAHA=10.d0**POM  
    !        SET NEW MASS DISTRIBUTION
             do I=NZN,1,-1
-               if(I.eq.NZN) then
+               if(I==NZN) then
    !              SPECIAL DEFINITIONS FOR THE OUTER ZONE
                   M(I)=MSTAR
                   dm(I)=dmN*FSUB
                   dm_bar(I)=dm(I)*0.5d0
                else
-                  if(I.ge.NZN-NZT+1) dm(I)=dmN !DEFINITION DOWN TO ANCHOR
-                  if(I.lt.NZN-NZT+1.and.ok_to_adjust_mass)  &
+                  if(I>=NZN-NZT+1) dm(I)=dmN !DEFINITION DOWN TO ANCHOR
+                  if(I<NZN-NZT+1.and.ok_to_adjust_mass)  &
                                      dm(I)=AONE*pow(HAHA,(NZN-NZT+1)-I)
                   dm_bar(I)=(dm(I)+dm(I+1))*0.5d0
                   M(I)=M(I+1)-dm(I+1)             
@@ -515,7 +514,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
          DVRM(I) = -3.d0*T1*R(I-1)**2
          DVR(I)  =  3.d0*T1*R(I)**2
 
-         if(I.eq.NZN.and.ok_to_adjust_Tsurf)then
+         if(I==NZN.and.ok_to_adjust_Tsurf)then
             if(RSP_eddi)then
                EDFAC=1.d0/2.d0
             else
@@ -640,9 +639,9 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
 !     PROTECT FROM 'ALWAYS ZERO' SOLUTION WHEN (Y>0)
 !     (SEEMS UNNECESSARY)
       do I=IBOTOM+1,NZN-1
-!         if((Y_face(I)+Y_face(I-1)).gt.0.d0.and.Et(I).eq.0.d0) 
+!         if((Y_face(I)+Y_face(I-1))>0.d0.and.Et(I)==0.d0) 
 !     x                    Et(I)=1.d+6!1.d-6
-         if(ALFA.eq.0.d0) Et(I)=0.d0
+         if(ALFA==0.d0) Et(I)=0.d0
       enddo
 
       do I=1,NZN-1
@@ -728,8 +727,8 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
 !       THIS IS FORMULATION USED IN BUDAPEST-FLORIDA CODE
 !       IT REQUIRES E_T AS MAIN VARIABLE - OTHERWISE CONVERGENCE
 !       IS EXTREMELY SLOW, AND POSSIBLE ONLY IF LOW ACCURACY
-!       FOR CONVERGENCE CONDITION, DXXC.LT. 1d-2 - 1.d-4, IS SET
-!        if(SOURCE(I).le.0.d0)then
+!       FOR CONVERGENCE CONDITION, DXXC< 1d-2 - 1.d-4, IS SET
+!        if(SOURCE(I)<=0.d0)then
 !           SOURCE(I) = 0.d0
 !           dsrc_dr_out(I) = 0.d0
 !           dsrc_dr_00(I) = 0.d0
@@ -756,7 +755,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
          d_damp_dw_00(I) =1.5d0*(CEDE/ALFA)/POM2*sqrt(Et(I))
 
 !        RADIATIVE DAMP TERM
-         if(GAMMAR.eq.0.d0)then
+         if(GAMMAR==0.d0)then
             DAMPR(I)   = 0.d0
             d_dampR_dr_out(I) = 0.d0
             d_dampR_dr_00(I) = 0.d0
@@ -819,7 +818,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
 
       do I=1,NZN
 !        CONVECTIVE LUMINOSITY
-         if(I.lt.IBOTOM.or.I.ge.NZN.or.alfa.eq.0d0) then
+         if(I<IBOTOM.or.I>=NZN.or.alfa==0d0) then
             Lc(I)=0.d0
             DLCX0(I)=0.d0
             DLCXM(I)=0.d0
@@ -847,10 +846,10 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
             DLCY0(I)=POM*dPII_dT_00(I)+POM2/Vol(I)
             DLCYP(I)=POM*dPII_dT_out(I)+POM2/Vol(I+1)
 
-            if(I.eq.IBOTOM) DLCZ0(I)=0.d0
-            if(I.eq.NZN-1)  DLCZP(I)=0.d0
+            if(I==IBOTOM) DLCZ0(I)=0.d0
+            if(I==NZN-1)  DLCZP(I)=0.d0
 
-            if(NEGFLU.eq.0.and.PII(I).lt.0.d0)then
+            if(NEGFLU==0.and.PII(I)<0.d0)then
                Lc(I)=0.d0
                DLCX0(I)=0.d0
                DLCXM(I)=0.d0
@@ -860,8 +859,8 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
                DLCZ0(I)=0.d0
                DLCZP(I)=0.d0
             endif
-            if(NEGFLU.eq.1.and.PII(I).lt.0.d0)then
-               if(II.gt.300)then
+            if(NEGFLU==1.and.PII(I)<0.d0)then
+               if(II>300)then
                   DLCZ0(I)=0.d0
                   DLCZP(I)=0.d0
                endif
@@ -869,8 +868,8 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
          end if
  
 !        TURBULENT LUMINOSITY
-         if(I.lt.IBOTOM.or.I.ge.NZN.or. &
-            ALFAT.eq.0.d0.or.ALFA.eq.0.d0)then
+         if(I<IBOTOM.or.I>=NZN.or. &
+            ALFAT==0.d0.or.ALFA==0.d0)then
             Lt(I)=0.d0
             DLTX0(I)=0.d0
             DLTXM(I)=0.d0
@@ -909,7 +908,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
 
 !     TURBULENT PRESSURE (ZONE)
       do I=IBOTOM+1,NZN-1
-         if(ALFAP.eq.0.d0)then
+         if(ALFAP==0.d0)then
             PTURB(I) = 0.d0
             dPtrb_dw_00(I) = 0.d0
             dPtrb_dr_00(I) = 0.d0
@@ -980,7 +979,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
       dC_dT_out(NZN) = 0.d0
       dC_dw_00(NZN) = 0.d0
       
-      if(ALFA.eq.0.d0) then     !RADIATIVE CASE
+      if(ALFA==0.d0) then     !RADIATIVE CASE
          SOURCE(I) = 0.d0
          DAMP(I)   = 0.d0
          DAMPR(I)  = 0.d0
@@ -1019,7 +1018,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
          DLMRM = DLRM
          DLMT  = DLT
          DLMTP = DLTP
-         if(I.eq.NZN) goto 6
+         if(I==NZN) goto 6
 !        Lr(I)=Eq. A.4, Stellingwerf 1975, Appendix A
 !        CALC LUM(I)
          W_00=T(I)**4
@@ -1066,7 +1065,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
          HD(10,IW) = (     DLCZP(I)+DLTZP(I))/L0     !Z(i+1) 
 !        CALC MOMEMTUM EQUATION(I)
          T1=-P4*(R(I)**2)/dm_bar(I)
-         if(I.eq.NZN) then
+         if(I==NZN) then
             HR(IR) = -T1*(Psurf-P(I)-PTURB(I))+G*M(I)/R(I)**2
          else
             HR(IR)=-T1*(P(I+1)-P(I)+PTURB(I+1)-PTURB(I))+G*M(I)/R(I)**2
@@ -1079,7 +1078,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
          HD(5,IR) = +T1*(-dPtrb_dw_00(I))          !Z(i)
          HD(8,IR) = +T1*(dPtrb_dw_00(I+1))         !Z(i+1)
 
-         if(I.eq.NZN) goto 111
+         if(I==NZN) goto 111
          HD(6,IR) = +T1*(dP_dr_in(I+1)-dP_dr_00(I)+dPtrb_dr_in(I+1)-dPtrb_dr_00(I))+ &
                     4.d0*G*M(I)/(R(I)**3)    !X(i)
          HD(7,IR) = +T1*(dP_dT_00(I+1))           !Y(i+1)
@@ -1091,7 +1090,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
  112     continue
  
 !        CALC CONVECTIVE ENERGY EQUATION
-         if(I.le.IBOTOM.or.I.eq.NZN.or.ALFA.eq.0.d0)then
+         if(I<=IBOTOM.or.I==NZN.or.ALFA==0.d0)then
             do J=1,11
                HD(J,IC)=0.d0
             enddo
@@ -1122,7 +1121,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
          end if
 
 !        SET ANCHOR T(NZN)=CONST
-         if(I.eq.NZN) then
+         if(I==NZN) then
             do j=1,11
                HD(J,IW) = 0.d0 
             enddo
@@ -1133,7 +1132,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
             HD(4,IR) = 0.d0 
             HD(5,IC) = 0.d0 
          endif   
-         if(I.eq.NZN-1)then
+         if(I==NZN-1)then
 !           SET DERIVATIVES d(*)/dT(NZN)=0 IN ZONE/ITERFACE NZN-1
             HD(9,IW)  = 0.d0
             HD(7,IR)  = 0.d0
@@ -1161,7 +1160,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
 
 !-    LAPACK
       call DGBTRF(3*NZN,3*NZN,5,5,ABB,LD_ABB,IPVT,INFO)
-      if(INFO.ne.0) then
+      if(INFO/=0) then
          write(*,*) 'hyd: LAPACK/dgbtrf problem no., iter.',INFO,II
          open(61,file='x.dat',status='unknown')
          write(61,'(F6.3,tr2,f8.2,tr2,f7.2,tr2,d9.3)')EMR,ELR,TE-0.5d0, &
@@ -1173,7 +1172,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
          stop
       endif
       call DGBTRS('n',3*NZN,5,5,1,ABB,LD_ABB,IPVT,HR,3*NZN,INFO)
-      if(INFO.ne.0) then
+      if(INFO/=0) then
          write(*,*) 'hyd: LAPACK/dgbtrs problem no., iter.',INFO,II
          stop
       endif            
@@ -1195,7 +1194,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
          IR = 3+3*(I-1)
          IC = IR-1
          IW = IR-2
-         if(Et(I).gt.(1.d-20)*EFL02) XXC=dabs(DX(IC)/Et(I))
+         if(Et(I)>(1.d-20)*EFL02) XXC=dabs(DX(IC)/Et(I))
          XXR=((DX(IR-3)-DX(IR))/(R(I)-R(I-1)))/DXH
          XXT=dabs(DX(IW)/T(I))/DXH
          
@@ -1237,24 +1236,24 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
          T(I)      = T(I)     +EZH*DX(IW)/2d0
          R(I)      = R(I)     +EZH*DX(IR)/2d0
          Et(I) = Et(I)+EZH*DX(IC)/2d0
-         if(Et(I).le.0.d0) then
+         if(Et(I)<=0.d0) then
             Et(I)=EFL02*1d-4*rand(s)
          end if
          DXKT=DXXT
          DXKC=DXXC
          DXXR=dmax1(DXXR,dabs(DX(IR)/R(I)))
          DXXT=dmax1(DXXT,dabs(DX(IW)/T(I)))
-         if(Et(I).gt.(1.d-20)*EFL02)  &
+         if(Et(I)>(1.d-20)*EFL02)  &
             DXXC=dmax1(DXXC,dabs(DX(IC)/Et(I)))
-         if(DXXC.gt.DXKC) ITROUBC=I
-         if(DXXT.gt.DXKT) ITROUBT=I
+         if(DXXC>DXKC) ITROUBC=I
+         if(DXXT>DXKT) ITROUBT=I
  103  continue
       !write(*,*) 'apply corr', II,dabs(DXXC),dabs(DXXR),dabs(DXXT),ITROUBC, &
       !      Et(ITROUBC),EZH
       !call mesa_error(__FILE__,__LINE__,'debug')
       !write(*,*) 'DXXC/PRECR', ITROUBC, DXXC/PRECR, DXXC
-      if(dabs(DXXC).lt.PRECR.and.dabs(DXXR).lt.PRECR.and. &
-         dabs(DXXT).lt.PRECR) then
+      if(dabs(DXXC)<PRECR.and.dabs(DXXR)<PRECR.and. &
+         dabs(DXXT)<PRECR) then
          IZIP=1
          IOP=IOP+1
          goto 999
@@ -1275,7 +1274,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
 
       !MAXFLUXD=-2d10
       !do I=1,NZN
-      !   if(abs(HR(1+3*(I-1))).gt.MAXFLUXD) &
+      !   if(abs(HR(1+3*(I-1)))>MAXFLUXD) &
       !      MAXFLUXD=abs(HR(1+3*(I-1)))
       !enddo
       !write(*,*) 'MAXFLUXD= ',MAXFLUXD
@@ -1306,7 +1305,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
             T1=P4*(R(J)**2)
             T2=(PPB-PB)/dm_bar(J)
             T3=G*M(J)/(R(J)**2)
-            if (dabs((T3+T1*T2)/T3).gt.MAXR)then
+            if (dabs((T3+T1*T2)/T3)>MAXR)then
                MAXR=dabs((T3+T1*T2)/T3)
                IMAXR=J
             endif
@@ -1316,7 +1315,7 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
             else
                ELMB=Lc(J-1)+Lr(J-1)+Lt(J-1)
             end if
-            if (dabs((ELB-L0)/L0).gt.MAXW)then
+            if (dabs((ELB-L0)/L0)>MAXW)then
                MAXW=dabs((ELB-L0)/L0)
                IMAXW=J
             endif
@@ -1325,8 +1324,8 @@ subroutine RELAX_ENV(s, L0, TH0, TE, NZT, NZN, &
                ELMB=Lt(J-1) 
                T1=(ELB-ELMB)/dm(J)            
                T2=SOURCE(J)-DAMP(J)-DAMPR(J)
-               if ((T2.ne.0.d0).and.(T1.ne.0.d0))then
-                  if (dabs(T1-T2)/max(T1,T2).gt.MAXC)then
+               if ((T2/=0.d0).and.(T1/=0.d0))then
+                  if (dabs(T1-T2)/max(T1,T2)>MAXC)then
                      MAXC=dabs(T1-T2)/max(T1,T2)
                      IMAXC=J
                   endif
diff --git a/star/private/rsp_step.f90 b/star/private/rsp_step.f90
index d577acae0..05325d478 100644
--- a/star/private/rsp_step.f90
+++ b/star/private/rsp_step.f90
@@ -43,8 +43,6 @@ module rsp_step
       
       logical, parameter :: call_is_bad = .false.
       
-      real(dp) :: x_dbg
-      
       integer, parameter :: i_var_Vol = 99 ! for remeshing tests with dfridr
       
       integer, parameter :: &
@@ -195,11 +193,10 @@ subroutine HYD(s,ierr)
          use star_utils, only: start_time, update_time
          type (star_info), pointer :: s
          integer, intent(out) :: ierr
-         real(dp) :: DXXT, DXXC, DXXE, DXXL, PREC2, DXH, EZH, rel_err_energy, &
-            T_surf, P_surf, kap_surf, kap_guess, Teff_atm, &
-            R_center_start, dt_max, total
+         real(dp) :: DXXT, DXXC, DXXE, DXXL, PREC2, DXH, EZH, &
+            P_surf, R_center_start, dt_max, total
          integer :: &
-            i_min, i_max, num_tries, max_retries, max_iters, i, IT, k, nz, &
+            i_min, i_max, num_tries, max_retries, max_iters, k, nz, &
             kT_max, kW_max, kE_max, kL_max, iter_for_dfridr, test_partials_k
          integer(8) :: time0
          logical :: converged, dbg_msg, trace
@@ -327,7 +324,6 @@ subroutine set_min_k_for_turbulent_flux
          end subroutine set_min_k_for_turbulent_flux
                
          subroutine doing_retry
-            integer :: i
             include 'formats'
             if (num_tries  ==  max_retries+1) then
                write(*,*) 'NO CONVERGENCE IN HYD, TIME STEP num tries, max allowed', &
@@ -346,7 +342,6 @@ subroutine doing_retry
          end subroutine doing_retry
          
          subroutine write_msg
-            integer :: i, k
             include 'formats'
             !if (EZH < 1d0) write(*,3) 'undercorrection factor', s% model_number, iter, EZH
             write(*,'(i6, 2x, i3, 4(4x, a, 1x, i4, 1x, 1pe11.4, 1x, 1pe11.4))') &
@@ -628,8 +623,6 @@ end subroutine rsp_set_Teff
       subroutine set_f_Edd(s, ierr)
          type (star_info), pointer :: s
          integer, intent(out) :: ierr
-         real(dp) :: lim_f_Edd, lim_g_Edd
-         integer :: k, j
          include 'formats'
          ierr = 0
          s% g_Edd = 0.5d0
@@ -697,7 +690,7 @@ subroutine eval_vars(s,iter,i_min,i_max,ierr)
          type (star_info), pointer :: s
          integer, intent(in) :: iter,i_min,i_max
          integer, intent(out) :: ierr
-         integer :: i, k, op_err
+         integer :: i, op_err
          integer(8) :: time0
          real(dp) :: total
          include 'formats'
@@ -741,11 +734,11 @@ end subroutine eval_vars
       subroutine eval_eqns(s,P_surf)
          type (star_info), pointer :: s
          real(dp), intent(in) :: P_surf
-         integer :: i, k
+         integer :: i
          include 'formats'
          !$OMP PARALLEL DO PRIVATE(I) SCHEDULE(dynamic,2)
-         do I = 1,NZN
-            call calc_equations(s, I, P_surf)
+         do i = 1,NZN
+            call calc_equations(s, i, P_surf)
          end do
          !$OMP END PARALLEL DO
       end subroutine eval_eqns
@@ -760,22 +753,22 @@ subroutine do1_specific_volume(s,i)
          include 'formats'
          k = NZN+1-i
          T1 = P43/s% dm(k)
-         if (I /= 1) then
+         if (i /= 1) then
             q1 = T1
             q2 = s% r(k)
             q3 = s% r(k+1)
             q4 = q1*(q2**3 - q3**3)
             s% Vol(k) = dble(q4)
-            dVol_dr_in(I) = - 3.0d0*T1*s% r(k+1)**2
+            dVol_dr_in(i) = - 3.0d0*T1*s% r(k+1)**2
          else
             s% Vol(k) = T1*(s% r(k)**3 - s% R_center**3)
-            dVol_dr_in(I) = 0d0
+            dVol_dr_in(i) = 0d0
          end if
          if (s% Vol(k) <= 0d0) then
             write(*,2) 'bad Vol', k, s% Vol(k)
             call mesa_error(__FILE__,__LINE__,'do1_specific_volume')
          end if
-         dVol_dr_00(I) = 3.d0*T1*s% r(k)**2
+         dVol_dr_00(i) = 3.d0*T1*s% r(k)**2
       end subroutine do1_specific_volume
       
       
@@ -947,7 +940,7 @@ subroutine apply_corrections(s, &
          real(dp), intent(in) :: DXH
          real(dp), intent(out) :: XXT, XXC, XXE, XXL, EZH
          integer, intent(out) :: kT_max,kW_max,kE_max,kL_max
-         integer :: i, k, IR, IT, IW, IU, IE, IL, kEZH, &
+         integer :: i, k, IR, IT, IW, IE, IL, kEZH, &
             iTM, kTM, iRM, kRM, iEM, kEM, iCM, kCM, iLM, kLM
          real(dp) :: old_w, XXR, DXXT, DXXC, DXXE, DXXL, DXRM, DXR, &
             EZH1, XXTM, XXCM, XXRM, XXEM, XXLM, DXKT, DXKC, DXKE, DXKL
@@ -1739,7 +1732,7 @@ subroutine calc_Eq(s,i)
          integer, intent(in) :: I      
          real(dp) :: RRI, RRM, UUI, UUM, POM, POM2
          integer :: k
-         logical :: test_partials, smoothed
+         logical :: test_partials
          include 'formats'
          k = NZN+1-i
          if (ALFA == 0d0 .or. I <= IBOTOM .or. I >= NZN) then
@@ -2147,8 +2140,7 @@ subroutine calc_Lt(s,i,Lt_00, &
             dLt_der_00, dLt_der_out, &
             dLt_dw_00, dLt_dw_out
          real(dp) :: POM, POM2, POM3, TEM1, TEM2, &
-            d_POM2_dVol_00, d_POM2_dVol_out, rho2_face, &
-            d_rho2_face_dVol_00, d_rho2_face_dVol_out
+            d_POM2_dVol_00, d_POM2_dVol_out, rho2_face
          integer :: k
          logical :: test_partials
          include 'formats'
@@ -2331,8 +2323,8 @@ subroutine calc_Fr(s, i, Fr_00, & !rs Stellingwerf 1975, Appendix A
             dFr_dT_out, dFr_dT_00, &
             dFr_der_out, dFr_der_00
          real(dp) :: &
-            Vol_00, W_00, d_W_00_dr_in, d_W_00_dr_00, d_W_00_dVol_00, d_W_00_der_00, &
-            Vol_out, W_out, d_W_out_dr_00, d_W_out_dr_out, d_W_out_dVol_out, d_W_out_der_out, &
+            W_00, d_W_00_dr_in, d_W_00_dr_00, d_W_00_dVol_00, d_W_00_der_00, &
+            W_out, d_W_out_dr_00, d_W_out_dr_out, d_W_out_dVol_out, d_W_out_der_out, &
             Prad_factor, Fr2a, d_Fr2a_dW_00, d_Fr2a_dW_out, &
             Fr2b, d_Fr2b_dW_00, d_Fr2b_dW_out, &
             BW, kap_00, kap_out, BK, Fr1, Fr2, Fr3, &
@@ -3568,19 +3560,6 @@ subroutine erad_eqn(s, i)
          use const_def, only: crad, clight
          type (star_info), pointer :: s
          integer, intent(in) :: i
-         integer :: IE, k
-         real(dp) :: time_scale, residual, XP, d_XP_der, &
-            d_XP_dVol_00, d_XP_dr_00, d_XP_dr_in, &
-            area_00, area_00_start, area_in, area_in_start, &
-            Lr_00, Lr_00_start, d_Lr_00_dFr_00, d_Lr_00_dr_00, &
-            Lr_in, Lr_in_start, d_Lr_in_dFr_in, d_Lr_in_dr_in, &
-            L_00, L_in, dt, dm, dt_div_dm, DV, opacity, &
-            erad, erad_tw, Vol, T, COUPL_factor, COUPL, COUPL1, &
-            d_COUPL_dVol, d_COUPL_dT, d_COUPL_der, d_COUPL_dr_in, d_COUPL_dr_00, &
-            heat_exchange_time_scale, kE_fac, kP_fac, dt_term, &
-            d_dt_term_dT, d_dt_term_dr_in, d_dt_term_dr_00, &
-            u_div_r, d_u_div_r_dr_00, d_u_div_r_dr_in, u_div_r_factor
-         logical :: test_partials
          include 'formats'
          
          call T_form_of_erad_eqn(s, i)
@@ -3593,30 +3572,7 @@ subroutine Fr_eqn(s, i)
          type (star_info), pointer :: s
          integer, intent(in) :: i
          integer :: IL, k
-         real(dp) :: residual, &
-            XP_00, d_XP_00_dVol_00, d_XP_00_der_00, d_XP_00_dr_00, d_XP_00_dr_in, &
-            XP_out, d_XP_out_der_out, d_XP_out_dr_out, d_XP_out_dr_00, &
-            u_div_r, d_u_div_r_dr_00, &
-            d_lnV, d_dlnV_dVol_00, d_dlnV_dr_in, d_dlnV_dr_00, d_dlnV_dr_out, &
-            Vol_out, d_Vol_out_dr_00, d_Vol_out_dr_out, &
-            rho_out, d_rho_out_dr_out, d_rho_out_dr_00, &
-            Vol_00, d_Vol_00_dr_in, d_Vol_00_dr_00, &
-            rho_00, d_rho_00_dVol_00, d_rho_00_dr_00, d_rho_00_dr_in, &
-            rho_face, d_rho_dVol_00, d_rho_dr_in, d_rho_dr_00, d_rho_dr_out, &
-            r, dt, dm_bar, dt_div_dm_bar, d_dXP_factor_dr_in, d_dXP_factor_dr_00, &
-            d_dXP_factor_dr_out, Fr, Fr_start, Fr_tw, &
-            kap_00, kap_out, kap_rho_face, rho_face_start, d_dlnV_drho_face, &
-            d_kap_00_dVol_00, d_kap_00_dT_00, d_kap_00_dr_00, d_kap_00_dr_in, &
-            d_kap_out_dT_out, d_kap_out_dr_00, d_kap_out_dr_out, &
-            area, d_area_dr_00, d_kaprho_dVol_00, d_kaprho_dT_00, d_kaprho_dT_out, &
-            d_kaprho_dr_in, d_kaprho_dr_00, d_kaprho_dr_out, &
-            dXP, dXP_factor, Fr_factor, d_dXP_factor_dVol_00, &
-            d_Fr_factor_dVol_00, d_Fr_factor_dT_00, d_Fr_factor_dT_out, &
-            d_Fr_factor_dr_in, d_Fr_factor_dr_00, d_Fr_factor_dr_out, &
-            erad_00, erad_out, erad_tw, erad_factor1, erad_factor, &
-            d_erad_factor_dVol_00, d_erad_factor_dr_in, &
-            d_erad_factor_dr_00, d_erad_factor_dr_out
-         logical :: test_partials, okay
+         real(dp) :: residual
 
          include 'formats'
          
@@ -3867,6 +3823,3 @@ end subroutine T_form_of_Fr_eqn
 
 
       end module rsp_step
-      
-      
-            
diff --git a/star/private/set_flags.f90 b/star/private/set_flags.f90
index 1fdf16555..c31f86fc5 100644
--- a/star/private/set_flags.f90
+++ b/star/private/set_flags.f90
@@ -41,7 +41,6 @@ subroutine set_v_flag(id, v_flag, ierr)
          integer, intent(out) :: ierr
          type (star_info), pointer :: s
          integer :: nvar_hydro_old, k, nz, i_v, i_u
-         real(dp) :: cs
          logical, parameter :: dbg = .false.
 
          include 'formats'
@@ -133,7 +132,6 @@ subroutine set_u_flag(id, u_flag, ierr)
          integer, intent(out) :: ierr
          type (star_info), pointer :: s
          integer :: nvar_hydro_old, k, nz, i_u, i_v
-         real(dp) :: cs
          logical, parameter :: dbg = .false.
 
          integer :: num_u_vars
@@ -232,8 +230,7 @@ subroutine set_RTI_flag(id, RTI_flag, ierr)
          logical, intent(in) :: RTI_flag
          integer, intent(out) :: ierr
          type (star_info), pointer :: s
-         integer :: nvar_hydro_old, k, nz
-         real(dp) :: cs
+         integer :: nvar_hydro_old, nz
          logical, parameter :: dbg = .false.
 
          include 'formats'
@@ -307,7 +304,7 @@ subroutine set_RSP2_flag(id, RSP2_flag, ierr)
          logical, intent(in) :: RSP2_flag
          integer, intent(out) :: ierr
          type (star_info), pointer :: s
-         integer :: nvar_hydro_old, i, k, j, nz, iounit
+         integer :: nvar_hydro_old, i, k, nz
          logical, parameter :: dbg = .false.
 
          include 'formats'
@@ -556,8 +553,7 @@ subroutine set_w_div_wc_flag(id, w_div_wc_flag, ierr)
          logical, intent(in) :: w_div_wc_flag
          integer, intent(out) :: ierr
          type (star_info), pointer :: s
-         integer :: nvar_hydro_old, k, nz
-         real(dp) :: cs
+         integer :: nvar_hydro_old, nz
          logical, parameter :: dbg = .false.
 
          include 'formats'
@@ -627,8 +623,7 @@ subroutine set_j_rot_flag(id, j_rot_flag, ierr)
          logical, intent(in) :: j_rot_flag
          integer, intent(out) :: ierr
          type (star_info), pointer :: s
-         integer :: nvar_hydro_old, k, nz
-         real(dp) :: cs
+         integer :: nvar_hydro_old, nz
          logical, parameter :: dbg = .false.
 
          include 'formats'
diff --git a/star/private/solve_omega_mix.f90 b/star/private/solve_omega_mix.f90
index 139d36d2f..f8e31675f 100644
--- a/star/private/solve_omega_mix.f90
+++ b/star/private/solve_omega_mix.f90
@@ -43,9 +43,9 @@ integer function do_solve_omega_mix(s, dt_total)
          type (star_info), pointer :: s
          real(dp), intent(in) :: dt_total
 
-         integer :: ierr, nz, i, j, k, max_iters_per_substep, &
+         integer :: ierr, nz, k, max_iters_per_substep, &
             max_iters_total, total_num_iters, num_iters
-         integer(8) :: time0, clock_rate
+         integer(8) :: time0
          integer :: steps_used, max_steps, min_steps
          real(qp) :: remaining_time, total_time, time, dt, &
             J_tot0, J_tot1, max_del, avg_del, &
@@ -418,7 +418,7 @@ subroutine solve_tridiag(sub, diag, sup, rhs, x, n, ierr)
             integer, intent(out) :: ierr
 
             real(qp) :: m
-            integer i
+            integer :: i
 
             ierr = 0
 
diff --git a/star/private/solver_support.f90 b/star/private/solver_support.f90
index e76ff8d22..bcc59a195 100644
--- a/star/private/solver_support.f90
+++ b/star/private/solver_support.f90
@@ -28,7 +28,6 @@ module solver_support
       use star_private_def
       use utils_lib, only: is_bad
       use const_def
-
       use num_def
 
       implicit none
@@ -43,9 +42,8 @@ subroutine set_xscale_info(s, nvar, ierr)
          integer, intent(in) :: nvar
          integer, intent(out) :: ierr
 
-         integer :: i, j, k, nz, nvar_hydro
+         integer :: i, k, nz, nvar_hydro
          real(dp), parameter :: xscale_min = 1
-         real(dp) :: var_scale, lum_scale, vel_scale, omega_scale
 
          include 'formats'
 
@@ -71,7 +69,7 @@ subroutine set_xscale_info(s, nvar, ierr)
          contains
 
          subroutine dump_xscale
-            integer :: k, j, k0, k1
+            integer :: k, j
             include 'formats'
             !write(*,1) 's% xa_scale', s% xa_scale
             do k=1,s% nz
@@ -95,8 +93,7 @@ subroutine eval_equations(s,  nvar, ierr)
          integer, intent(out) :: ierr
 
          integer :: cnt, i, j, k, nz
-         integer :: id
-         real(dp) :: dt, theta_dt
+         real(dp) :: dt
          include 'formats'
 
          ierr = 0
@@ -168,7 +165,7 @@ subroutine eval_equations(s,  nvar, ierr)
 
 
          subroutine dump_eval_equ
-            integer :: k, j, k0, k1
+            integer :: k, j
             include 'formats'
             do k=1,s% nz
                do j=1,nvar
@@ -189,9 +186,8 @@ subroutine sizequ(s, nvar, equ_norm, equ_max, k_max, j_max, ierr) ! equ = residu
          real(dp), intent(out) :: equ_norm, equ_max
          integer, intent(out) :: k_max, j_max, ierr
 
-         integer :: j, k, num_terms, n, nz, nvar_hydro, nvar_chem, &
-            max_loc, skip_eqn1, skip_eqn2, skip_eqn3
-         real(dp) :: sumequ, absq, max_energy_resid, avg_energy_resid
+         integer :: j, k, num_terms, n, nz, nvar_hydro, nvar_chem, skip_eqn1, skip_eqn2, skip_eqn3
+         real(dp) :: sumequ, absq
          
          logical :: dbg
 
@@ -300,7 +296,7 @@ subroutine sizequ(s, nvar, equ_norm, equ_max, k_max, j_max, ierr) ! equ = residu
          contains
 
          subroutine dump_equ
-            integer :: k, j, k0, k1
+            integer :: k, j
             include 'formats'
             do k=1,s% nz
                do j=1,nvar
@@ -326,7 +322,7 @@ subroutine sizeB(s, nvar, B, max_correction, correction_norm, max_zone, max_var,
          integer :: k, i, nz, num_terms, j, n, nvar_hydro, jmax, num_xa_terms, &
             skip1, skip2, skip3, skip4, skip5
          real(dp) :: abs_corr, sum_corr, sum_xa_corr, x_limit, &
-            max_abs_correction, max_abs_correction_cv, max_abs_corr_for_k, max_abs_xa_corr_for_k
+            max_abs_correction, max_abs_corr_for_k, max_abs_xa_corr_for_k
          logical :: found_NaN, found_bad_num, report
          real(dp), parameter :: frac = 0.1d0
          logical, parameter :: dbg = .false.
@@ -604,7 +600,7 @@ end subroutine show_stuff
 
 
          subroutine dump_B
-            integer :: k, j, k0, k1
+            integer :: k, j
             include 'formats'
             do k=1,s% nz
                do j=1,nvar
@@ -626,18 +622,13 @@ subroutine Bdomain(s, nvar, B, correction_factor, ierr)
          use const_def, only: dp
          use chem_def, only: chem_isos
          use star_utils, only: current_min_xa_hard_limit, rand
-         use rsp_def, only: EFL0
          type (star_info), pointer :: s
          integer, intent(in) :: nvar
          real(dp), pointer, dimension(:,:) :: B ! (nvar, nz)
          real(dp), intent(inout) :: correction_factor
          integer, intent(out) :: ierr
-         integer :: id, i, j, k, nz, species, bad_j, bad_k, &
-            i_alpha_RTI, i_w_div_wc
+         integer :: i, j, k, nz, species, bad_j, bad_k
          real(dp) :: alpha, min_alpha, new_xa, old_xa, dxa, eps, min_xa_hard_limit, &
-            old_E, dE, new_E, old_lnd, dlnd, new_lnd, dw, new_w, &
-            dw_div_wc, old_w_div_wc, new_w_div_wc, dconv_vel, old_conv_vel, new_conv_vel, &
-            dalpha_RTI, new_alpha_RTI, old_alpha_RTI, log_conv_vel_v0, &
             dlum_surf, old_lum_surf, new_lum_surf
          include 'formats'
          ierr = 0
@@ -743,7 +734,6 @@ subroutine inspectB(s, nvar, B, ierr)
          real(dp), pointer, dimension(:,:) :: B ! (nvar, nz)
          integer, intent(out) :: ierr
 
-         integer :: id
          integer, parameter :: inspectB_iter_stop = -1
          include 'formats'
 
@@ -757,7 +747,7 @@ subroutine inspectB(s, nvar, B, ierr)
          contains
 
          subroutine dumpB
-            integer :: k, j, k0, k1
+            integer :: k, j
             include 'formats'
             do k=1,s% nz
                do j=1,nvar
@@ -782,8 +772,6 @@ integer function force_another_iteration(s, iter, itermin)
          integer, intent(in) :: iter ! have finished this many iterations and have converged
          integer, intent(in) :: itermin ! this is the requested minimum.  iter may be < itermin.
 
-         integer :: k, res
-
          include 'formats'
 
          if (iter < itermin) then
@@ -846,15 +834,15 @@ subroutine set_vars_for_solver(s, nvar, nzlo, nzhi, dt, ierr)
             skip_set_cz_bdy_mass = .true., &
             skip_other_cgrav = .true.
          logical :: do_chem, try_again, do_edit_lnR, report_dx
-         integer :: i, j, k, kk, klo, khi, i_var, &
+         integer :: j, k, kk, klo, khi, i_var, &
             i_lnd, i_lnT, i_lnR, i_lum, i_w, i_Hp, i_v, &
             i_u, i_alpha_RTI, i_w_div_wc, i_j_rot, &
             fe56, nvar_chem, species, nz, nvar_hydro
          real(dp), dimension(:, :), pointer :: xh_start, xa_start
          integer :: op_err, kbad, &
-            cnt, max_fixes, loc(2), k_lo, k_hi, k_const_mass
-         real(dp) :: r2, xavg, du, u00, um1, dx_for_i_var, x_for_i_var, &
-            dq_sum, xa_err_norm, d_dxdt_dx, min_xa_hard_limit, sum_xa_hard_limit
+            cnt, max_fixes, loc(2), k_lo, k_hi
+         real(dp) :: xavg, dx_for_i_var, x_for_i_var, &
+            dq_sum, d_dxdt_dx, min_xa_hard_limit, sum_xa_hard_limit
          logical :: do_lnd, do_lnT, do_lnR, do_lum, do_w, &
             do_u, do_v, do_alpha_RTI, do_w_div_wc, do_j_rot
 
@@ -1122,7 +1110,7 @@ subroutine set_vars_for_solver(s, nvar, nzlo, nzhi, dt, ierr)
 
 
          subroutine set1(k,report,ierr)
-            use chem_def, only: chem_isos
+            !use chem_def, only: chem_isos
             integer, intent(in) :: k
             logical, intent(in) :: report
             integer, intent(out) :: ierr
@@ -1131,9 +1119,8 @@ subroutine set1(k,report,ierr)
             ! setting x = xh_start + dx is necessary because of numerical issues.
             ! we want to ensure that we've calculated the variables using exactly the
             ! same values for x as will be returned as the final result.
-            real(dp) :: r2, sum_xa
-            integer :: j, i, k_below_just_added
-            real(dp) :: del_t, starting_value, alfa, beta, v, theta
+            integer :: j, k_below_just_added
+            real(dp) :: v
 
             include 'formats'
             ierr = 0
@@ -1401,8 +1388,8 @@ subroutine check1_chem( &
          logical, intent(in) :: report
          integer, intent(out) :: ierr
 
-         integer :: j, species, jmax
-         real(dp) :: sum_xa, xsum
+         integer :: j, species
+         real(dp) :: sum_xa
          logical :: okay
 
          include 'formats'
@@ -1490,7 +1477,7 @@ end subroutine check1_chem
 
       subroutine dump_struct(s)
          type (star_info), pointer :: s
-         integer :: k, j, i
+         integer :: k, j
 
          include 'formats'
 
@@ -1548,7 +1535,7 @@ end subroutine edit_lnR
       subroutine edit_dlnR_dt_above_k_below_just_added(s, xh_start)
          type (star_info), pointer :: s
          real(dp), dimension(:, :) :: xh_start
-         integer :: k, k_below_just_added
+         integer :: k_below_just_added
          real(dp) :: lnR_start
          k_below_just_added = s% k_below_just_added
          if (k_below_just_added == 1) return
diff --git a/star/private/star_bcyclic.f90 b/star/private/star_bcyclic.f90
index a7e7d1888..a114f5fd6 100644
--- a/star/private/star_bcyclic.f90
+++ b/star/private/star_bcyclic.f90
@@ -22,6 +22,7 @@
 
       module star_bcyclic
 
+      !use caliper_mod  ! timing with caliper
       use star_private_def
       use const_def, only: dp, ln10
       use utils_lib, only: set_nan
@@ -52,8 +53,8 @@ subroutine bcyclic_factor ( &
          integer, intent(in) :: iter ! solver iteration number for debugging output
          integer, intent(out) :: ierr
 
-         integer, pointer :: iptr(:,:), nslevel(:), ipivot(:)
-         integer :: neq, ncycle, nstemp, maxlevels, nlevel, i, j, k
+         integer, pointer :: nslevel(:), ipivot(:)
+         integer :: neq, ncycle, nstemp, maxlevels, nlevel, i, k
          logical :: have_odd_storage
          real(dp), pointer, dimension(:,:) :: dmat, dmatF
          real(dp), pointer, dimension(:) :: row_scale_factors, col_scale_factors
@@ -75,12 +76,13 @@ subroutine bcyclic_factor ( &
 
          ierr = 0
          neq = nvar*nz
-         !$omp simd
+         !$OMP PARALLEL DO SIMD
          do i = 1,nvar*neq
             lblkF1(i) = lblk1(i)
             dblkF1(i) = dblk1(i)
             ublkF1(i) = ublk1(i)
          end do
+         !$OMP END PARALLEL DO SIMD
 
          if (dbg) write(*,*) 'start bcyclic_factor'
 
@@ -121,6 +123,7 @@ subroutine bcyclic_factor ( &
 
          if (dbg) write(*,*) 'start factor_cycle'
 
+         !call cali_begin_phase('factor_cycle')
          factor_cycle: do ! perform cyclic-reduction factorization
 
             nslevel(nlevel) = nstemp
@@ -147,6 +150,7 @@ subroutine bcyclic_factor ( &
             if (nlevel > maxlevels) exit
 
          end do factor_cycle
+         !call cali_end_phase('factor_cycle')
 
          if (dbg) write(*,*) 'done factor_cycle'
 
@@ -217,7 +221,7 @@ subroutine cycle_onestep( &
          real(dp), pointer, dimension(:,:) :: lnext, unext, lprev, uprev
          real(dp), pointer, dimension(:) :: mat1
          integer :: i, j, shift, min_sz, new_sz, shift1, shift2, nvar2, &
-            ns, op_err, nmin, kcount, k, ii, jj, kk
+            ns, op_err, nmin, kcount, k
          real(dp), pointer, dimension(:) :: row_scale_factors, col_scale_factors
          character (len=1) :: equed
 
@@ -243,17 +247,20 @@ subroutine cycle_onestep( &
             end if
          end if
 
-!$OMP PARALLEL DO private(ns,kcount,shift,shift2,i) SCHEDULE(static,3)
+!call cali_begin_phase('co.loop1')
+!$OMP PARALLEL DO PRIVATE(ns, shift, shift2, i) COLLAPSE(2)
          do ns = nmin, nblk, 2  ! copy umat and lmat
-            kcount = (ns-nmin)/2 + 1
-            shift = nvar2*(kcount-1)
-            shift2 = nvar2*ncycle*(ns-1)
-            do i=1,nvar2
+            do i = 1, nvar2
+               ! kcount = (ns-nmin)/2 + 1
+               ! shift = nvar2*(kcount-1)
+               shift = nvar2*(ns-nmin)/2
+               shift2 = nvar2*ncycle*(ns-1)
                s% bcyclic_odd_storage(nlevel)% umat1(shift+i) = ublkF1(shift2+i)
                s% bcyclic_odd_storage(nlevel)% lmat1(shift+i) = lblkF1(shift2+i)
             end do
          end do
 !$OMP END PARALLEL DO
+!call cali_end_phase('co.loop1')
 
          if (nvar2*kcount > s% bcyclic_odd_storage(nlevel)% ul_size) then
             write(*,*) 'nvar2*kcount > ul_size in cycle_onestep'
@@ -264,8 +271,8 @@ subroutine cycle_onestep( &
          if (dbg) write(*,*) 'start lu factorization'
          ! compute lu factorization of even diagonal blocks
          nmin = 2
-!$OMP PARALLEL DO SCHEDULE(static,3) &
-!$OMP PRIVATE(ipivot,dmat,dmatF,ns,op_err,shift1,shift2,i,j,k,row_scale_factors,col_scale_factors,equed)
+!call cali_begin_phase('co.loop2')
+!$OMP PARALLEL DO PRIVATE(ipivot,dmat,dmatF,ns,op_err,shift1,shift2,k,row_scale_factors,col_scale_factors,equed)
          do ns = nmin, nblk, 2
 
             k = ncycle*(ns-1) + 1
@@ -289,6 +296,7 @@ subroutine cycle_onestep( &
 
          end do
 !$OMP END PARALLEL DO
+!call cali_end_phase('co.loop2')
          if (ierr /= 0) then
             !write(*,*) 'factorization failed in bcyclic'
             return
@@ -296,6 +304,7 @@ subroutine cycle_onestep( &
 
          if (dbg) write(*,*) 'done lu factorization; start solve'
 
+!call cali_begin_phase('co.loop3')
 !$OMP PARALLEL DO SCHEDULE(static,3) &
 !$OMP PRIVATE(ns,k,shift1,shift2,ipivot,dmat,dmatF,umat,lmat,mat1,i,j,row_scale_factors,col_scale_factors,equed,op_err)
          do ns = nmin, nblk, 2
@@ -320,6 +329,7 @@ subroutine cycle_onestep( &
             end if
 
             do j=1,nvar
+               !$OMP SIMD
                do i=1,nvar
                   lmat(i,j) = -lmat(i,j)
                end do
@@ -335,6 +345,7 @@ subroutine cycle_onestep( &
             end if
 
             do j=1,nvar
+               !$OMP SIMD
                do i=1,nvar
                   umat(i,j) = -umat(i,j)
                end do
@@ -342,6 +353,7 @@ subroutine cycle_onestep( &
 
          end do
 !$OMP END PARALLEL DO
+!call cali_end_phase('co.loop3')
          if (dbg) write(*,*) 'done solve'
 
          if (ierr /= 0) return
@@ -349,9 +361,10 @@ subroutine cycle_onestep( &
          ! compute new odd blocks in terms of even block factors
          ! compute odd hatted matrix elements except at boundaries
          nmin = 1
+!call cali_begin_phase('co.loop4')
 !$OMP PARALLEL DO SCHEDULE(static,3) &
-!$OMP PRIVATE(i,ns,shift2,dmat,umat,lmat,lnext,unext,lprev,uprev,kcount,shift,umat0,lmat0,k)
-         do i= 1, 3*(1+(nblk-nmin)/2)
+!$OMP PRIVATE(i,ns,shift2,dmat,umat,lmat,lnext,unext,lprev,uprev,shift,umat0,lmat0,k)
+         do i = 1, 3*(1+(nblk-nmin)/2)
 
             ns = 2*((i-1)/3) + nmin
             k = ncycle*(ns-1) + 1
@@ -376,8 +389,9 @@ subroutine cycle_onestep( &
                uprev(1:nvar,1:nvar) => ublkF1(shift2+1:shift2+nvar2)
             end if
 
-            kcount = 1+(ns-nmin)/2
-            shift = nvar2*(kcount-1)
+            !kcount = 1+(ns-nmin)/2
+            !shift = nvar2*(kcount-1)
+            shift = nvar2*(ns-nmin)/2
             lmat0(1:nvar,1:nvar) => &
                s% bcyclic_odd_storage(nlevel)% lmat1(shift+1:shift+nvar2)
             umat0(1:nvar,1:nvar) => &
@@ -411,6 +425,7 @@ subroutine cycle_onestep( &
 
          end do
 !$OMP END PARALLEL DO
+!call cali_end_phase('co.loop4')
          if (dbg) write(*,*) 'done cycle_onestep'
 
       end subroutine cycle_onestep
@@ -420,7 +435,7 @@ subroutine cycle_rhs( &
             s, nz, nblk, nvar, ncycle, nlevel, &
             dblk1, dblkF1, soln1, ipivot1, &
             row_scale_factors1, col_scale_factors1, equed1, ierr)
-         use chem_def, only: chem_isos
+         !use chem_def, only: chem_isos
          type (star_info), pointer :: s
          integer, intent(in) :: nz, nblk, nvar, ncycle, nlevel
          real(dp), pointer, intent(in), dimension(:) :: &
@@ -430,13 +445,12 @@ subroutine cycle_rhs( &
          character (len=nz) :: equed1
          integer, intent(out) :: ierr
 
-         integer :: i, k, ns, op_err, nmin, kcount, shift, shift1, shift2, nvar2
+         integer :: k, ns, op_err, nmin, kcount, shift, shift1, shift2, nvar2
          integer, pointer :: ipivot(:)
          real(dp), pointer, dimension(:,:) :: dmatF, dmat, umat, lmat
          real(dp), pointer, dimension(:) :: X, Xprev, Xnext
          real(dp), pointer, dimension(:) :: row_scale_factors, col_scale_factors
          character (len=1) :: equed
-         logical :: okay
 
          include 'formats'
 
@@ -445,8 +459,9 @@ subroutine cycle_rhs( &
          ! compute dblk[-1]*brhs for even indices and store in brhs(even)
          nmin = 2
          op_err = 0
-!$OMP PARALLEL DO SCHEDULE(static,3) &
-!$OMP PRIVATE(ns,shift1,ipivot,shift2,k,dmat,dmatF,X,row_scale_factors,col_scale_factors,equed,i,okay,op_err)
+!call cali_begin_phase('cr.loop1')
+!$OMP PARALLEL DO &
+!$OMP PRIVATE(ns,shift1,ipivot,shift2,k,dmat,dmatF,X,row_scale_factors,col_scale_factors,equed,op_err)
          do ns = nmin, nblk, 2
             k = ncycle*(ns-1) + 1
             shift1 = nvar*(k-1)
@@ -467,19 +482,21 @@ subroutine cycle_rhs( &
 
          end do
 !$OMP END PARALLEL DO
+!call cali_end_phase('cr.loop1')
 
         if (ierr /= 0) return
 
         ! compute odd (hatted) sources (b-hats) for interior rows
          nmin = 1
          kcount = 0
-!$OMP PARALLEL DO SCHEDULE(static,3) &
-!$OMP PRIVATE(ns,shift1,X,kcount,shift,umat,lmat,Xnext,Xprev)
+!call cali_begin_phase('cr.loop2')
+!$OMP PARALLEL DO PRIVATE(ns,shift1,X,shift,umat,lmat,Xnext,Xprev)
          do ns = nmin, nblk, 2
             shift1 = nvar*ncycle*(ns-1)
             X(1:nvar) => soln1(shift1+1:shift1+nvar)
-            kcount = 1+(ns-nmin)/2
-            shift = nvar2*(kcount-1)
+            !kcount = 1+(ns-nmin)/2
+            !shift = nvar2*(kcount-1)
+            shift = nvar2*(ns-nmin)/2
             umat(1:nvar,1:nvar) => &
                s% bcyclic_odd_storage(nlevel)% umat1(shift+1:shift+nvar2)
             lmat(1:nvar,1:nvar) => &
@@ -504,6 +521,7 @@ subroutine cycle_rhs( &
             end if
          end do
 !$OMP END PARALLEL DO
+!call cali_end_phase('cr.loop2')
 
          if (nvar2*kcount > s% bcyclic_odd_storage(nlevel)% ul_size) then
             write(*,*) 'nvar2*kcount > ul_size in cycle_rhs'
@@ -529,21 +547,21 @@ subroutine cycle_solve( &
          real(dp), pointer, intent(inout) :: soln1(:)
 
          real(dp), pointer :: umat(:,:), lmat(:,:), bprev(:), bnext(:), bptr(:)
-         real(dp), pointer, dimension(:) :: bprevr, bnextr
-         integer :: shift1, shift2, nvar2, ns, ierr, nmin, i, j
+         integer :: shift1, shift2, nvar2, ns, nmin
 
          include 'formats'
 
          nvar2 = nvar*nvar
          nmin = 2
+!call cali_begin_phase('cycle_solve')
 !$OMP PARALLEL DO SCHEDULE(static,3) &
 !$OMP PRIVATE(ns,shift1,bptr,shift2,lmat,bprev,umat,bnext)
          do ns = nmin, nblk, 2
             shift1 = ncycle*nvar*(ns-1)
             bptr(1:nvar) => soln1(shift1+1:shift1+nvar)
             shift2 = nvar*shift1
-            lmat(1:nvar,1:nvar) => lblkF1(shift2+1:shift2+nvar2)
             if (ns > 1) then
+               lmat(1:nvar,1:nvar) => lblkF1(shift2+1:shift2+nvar2)
                shift1 = ncycle*nvar*(ns-2)
                bprev(1:nvar) => soln1(shift1+1:shift1+nvar)
             end if
@@ -564,6 +582,7 @@ subroutine cycle_solve( &
             end if
          end do
 !$OMP END PARALLEL DO
+!call cali_end_phase('cycle_solve')
 
       end subroutine cycle_solve
 
@@ -581,11 +600,6 @@ subroutine dense_factor(s, k, nvar, mtx, mtxF, ipivot, &
          real(dp) :: min_rcond_from_DGESVX, rpgfac
          integer :: k_min_rcond_from_DGESVX
          integer, intent(out) :: ierr
-         logical :: singular
-         integer :: i, j
-         real(dp), pointer :: work(:)
-         integer, pointer :: iwork(:)
-         real(dp) :: anorm, rcond
          include 'formats'
          ierr = 0
          
@@ -655,11 +669,11 @@ subroutine factor_with_DGESVX
             end do
             
             if (s% report_min_rcond_from_DGESXV .and. rcond < min_rcond_from_DGESVX) then
-               !$OMP critical (bcyclic_dense_factor_crit)
+               !$OMP CRITICAL (bcyclic_dense_factor_crit)
                min_rcond_from_DGESVX = rcond
                k_min_rcond_from_DGESVX = k
                rpgfac = work(1)
-               !$OMP end critical (bcyclic_dense_factor_crit)
+               !$OMP END CRITICAL (bcyclic_dense_factor_crit)
             end if
 
          end subroutine factor_with_DGESVX
@@ -680,12 +694,11 @@ subroutine bcyclic_solve ( &
          character (len=nz) :: equed1
          integer, intent(out) :: ierr
 
-         integer, pointer :: iptr(:,:), nslevel(:), ipivot(:)
+         integer, pointer :: nslevel(:), ipivot(:)
          integer :: ncycle, nstemp, maxlevels, nlevel, nvar2, i
          real(dp), pointer, dimension(:,:) :: dmat, dmatF
          real(dp), pointer, dimension(:) :: row_scale_factors, col_scale_factors
          character (len=1) :: equed
-         logical :: okay
 
          include 'formats'
 
@@ -693,9 +706,11 @@ subroutine bcyclic_solve ( &
          if (dbg) write(*,*) 'start bcyclic_solve'
          
          ! copy B to soln
+         !$OMP PARALLEL DO SIMD
          do i=1,nvar*nz
             soln1(i) = B1(i)
          end do
+         !$OMP END PARALLEL DO SIMD
 
          ierr = 0
 
@@ -841,6 +856,7 @@ subroutine solve_with_DGESVX
             nrhs = nvar
 
             do i=1,nvar
+               !$OMP SIMD
                do j=1,nvar
                   a(i,j) = mtx(i,j)
                   af(i,j) = mtxF(i,j)
@@ -867,6 +883,7 @@ subroutine solve_with_DGESVX
             end if
             
             do i=1,nvar
+               !$OMP SIMD
                do j=1,nvar
                   X_mtx(i,j) = x(i,j)
                end do
@@ -917,6 +934,7 @@ subroutine solve1_with_DGESVX
             include 'formats'
 
             do i=1,nvar
+               !$OMP SIMD
                do j=1,nvar
                   a(i,j) = mtx(i,j)
                   af(i,j) = mtxF(i,j)
@@ -939,6 +957,7 @@ subroutine solve1_with_DGESVX
                         equed, r, c, b, nvar, x, nvar, rcond, ferr, berr, &
                         work, iwork, ierr)
             
+            !$OMP SIMD
             do i=1,nvar
                X_vec(i) = x(i,1)
             end do
diff --git a/star/private/star_job_ctrls_io.f90 b/star/private/star_job_ctrls_io.f90
index 2d2dfce59..fffee3165 100644
--- a/star/private/star_job_ctrls_io.f90
+++ b/star/private/star_job_ctrls_io.f90
@@ -565,7 +565,6 @@ recursive subroutine read_star_job_file(s, filename, level, ierr)
          integer, intent(in) :: level
          integer, intent(out) :: ierr
          logical, dimension(max_extra_inlists) :: read_extra
-         character (len=strlen) :: message
          character (len=strlen), dimension(max_extra_inlists) :: extra
          integer :: unit, i
 
diff --git a/star/private/star_profile_def.f90 b/star/private/star_profile_def.f90
index 8f3e58563..f50e1df2e 100644
--- a/star/private/star_profile_def.f90
+++ b/star/private/star_profile_def.f90
@@ -1431,7 +1431,7 @@ end subroutine profile_column_names_shutdown
 
 
       integer function do_get_profile_id(cname)
-         use utils_lib
+         use utils_lib, only: integer_dict_lookup
          character (len=*), intent(in)  :: cname
          ! returns id for the profile column if there is a matching name
          ! returns 0 otherwise.
diff --git a/star/private/star_solver.f90 b/star/private/star_solver.f90
index 333db6ed1..0d435bf01 100644
--- a/star/private/star_solver.f90
+++ b/star/private/star_solver.f90
@@ -121,10 +121,9 @@ subroutine do_solver( &
          real(dp), dimension(:,:), pointer :: dxsave=>null(), ddxsave=>null(), B=>null(), grad_f=>null(), soln=>null()
          real(dp), dimension(:), pointer :: dxsave1=>null(), ddxsave1=>null(), B1=>null(), grad_f1=>null(), &
             row_scale_factors1=>null(), col_scale_factors1=>null(), soln1=>null(), save_ublk1=>null(), save_dblk1=>null(), save_lblk1=>null()
-         real(dp), dimension(:,:), pointer ::  rhs=>null()
+         real(dp), dimension(:,:), pointer :: rhs=>null()
          integer, dimension(:), pointer :: ipiv1=>null()
-         real(dp), dimension(:,:), pointer :: &
-            ddx=>null(), xgg=>null(), ddxd=>null(), ddxdd=>null(), xder=>null(), equsave=>null()
+         real(dp), dimension(:,:), pointer :: ddx=>null(), xder=>null()
 
          integer, dimension(:), pointer :: ipiv_blk1=>null()
          character (len=s%nz) :: equed1
@@ -136,19 +135,19 @@ subroutine do_solver( &
          real(dp)  ::  &
             coeff, f, slope, residual_norm, max_residual, &
             corr_norm_min, resid_norm_min, correction_factor, temp_correction_factor, &
-            correction_norm, corr_norm_initial, max_correction, slope_extra, &
+            correction_norm, max_correction, &
             tol_residual_norm, tol_max_residual, &
             tol_residual_norm2, tol_max_residual2, &
             tol_residual_norm3, tol_max_residual3, &
             tol_abs_slope_min, tol_corr_resid_product, &
             min_corr_coeff, max_corr_min, max_resid_min, max_abs_correction
-         integer :: nz, iter, max_tries, zone, tiny_corr_cnt, i, j, k, &
+         integer :: nz, iter, max_tries, tiny_corr_cnt, i, &
             force_iter_value, iter_for_resid_tol2, iter_for_resid_tol3, &
             max_corr_k, max_corr_j, max_resid_k, max_resid_j
-         integer(8) :: test_time1, time0, time1, clock_rate
+         integer(8) :: time0
          character (len=strlen) :: err_msg
          logical :: first_try, dbg_msg, passed_tol_tests, &
-            doing_extra, okay, disabled_resid_tests, pass_resid_tests, &
+            doing_extra, disabled_resid_tests, pass_resid_tests, &
             pass_corr_tests_without_coeff, pass_corr_tests_with_coeff
 
          integer, parameter :: num_tol_msgs = 15
@@ -632,10 +631,8 @@ subroutine solver_test_partials(nvar, xder, ierr)
             real(dp), pointer, dimension(:,:) :: xder ! (nvar, nz)
             integer, intent(out) :: ierr
             
-            integer :: j, k, i_var, i_var_sink, i_equ, k_off, cnt_00, cnt_m1, cnt_p1, k_lo, k_hi
+            integer :: j, k, k_lo, k_hi
             real(dp), dimension(:,:), pointer :: save_equ, save_dx
-            real(dp) :: dvar, dequ, dxtra, &
-               dx_0, dvardx, dvardx_0, xdum, err
             logical :: testing_partial
 
             include 'formats'
@@ -732,7 +729,7 @@ subroutine prepare_solver_matrix(nvar, xder, ierr)
             integer, intent(in) :: nvar
             real(dp), pointer, dimension(:,:) :: xder ! (nvar, nz)
             integer, intent(out) :: ierr
-            integer :: i, j, nz, neqns
+            integer :: nz, neqns
             include 'formats'
             ierr = 0
             nz = s% nz
@@ -760,12 +757,11 @@ subroutine adjust_correction( &
             character (len=*), intent(out) :: err_msg
             integer, intent(out) :: ierr
 
-            integer :: i, j, k, iter, k_max_corr, i_max_corr
-            character (len=strlen) :: message
+            integer :: i, k, iter
             logical :: first_time
-            real(dp) :: a1, alam, alam2, alamin, a2, disc, f2, &
-               rhs1, rhs2, temp, test, tmplam, max_corr, fold, min_corr_coeff
-            real(dp) :: frac, f_target
+            real(dp) :: a1, alam, alam2, a2, disc, f2, &
+               rhs1, rhs2, tmplam, fold, min_corr_coeff
+            real(dp) :: f_target
             logical :: skip_eval_f, dbg_adjust
 
             real(dp), parameter :: alf = 1d-2 ! ensures sufficient decrease in f
@@ -1005,8 +1001,8 @@ end subroutine apply_coeff
          logical function solve_equ()
             use star_utils, only: start_time, update_time
             use rsp_def, only: NV, MAX_NZN
-            integer ::  i, k, ierr
-            real(dp) :: ferr, berr, total_time
+            integer ::  i, ierr
+            real(dp) :: total_time
 
             include 'formats'
             ierr = 0
@@ -1016,30 +1012,33 @@ logical function solve_equ()
                call start_time(s, time0, total_time)
             end if
             
-            !$omp simd
+            !$OMP PARALLEL DO SIMD
             do i=1,neq
                b1(i) = -equ1(i)
             end do
+            !$OMP END PARALLEL DO SIMD
             
             if (s% use_DGESVX_in_bcyclic) then
-               !$omp simd
+               !$OMP PARALLEL DO SIMD
                do i = 1, nvar*nvar*nz
                   save_ublk1(i) = ublk1(i)
                   save_dblk1(i) = dblk1(i)
                   save_lblk1(i) = lblk1(i)
                end do
+               !$OMP END PARALLEL DO SIMD
             end if
             
             call factor_mtx(ierr)
             if (ierr == 0) call solve_mtx(ierr)
             
             if (s% use_DGESVX_in_bcyclic) then
-               !$omp simd
+               !$OMP PARALLEL DO SIMD
                do i = 1, nvar*nvar*nz
                   ublk1(i) = save_ublk1(i)
                   dblk1(i) = save_dblk1(i)
                   lblk1(i) = save_lblk1(i)
                end do
+               !$OMP END PARALLEL DO SIMD
             end if
 
             if (s% doing_timing) then
@@ -1148,7 +1147,6 @@ subroutine test_equ_partials(s, &
                i_equ, i_var, i_var_sink, i_var_xa_index, i_var_sink_xa_index, k
             real(dp), pointer, dimension(:,:) :: save_dx, save_equ
             integer, intent(out) :: ierr
-            real(dp) :: dvardx_0
             integer :: i, j_var_xa_index, j_var_sink_xa_index
             include 'formats'
             if (i_equ /= 0) then
@@ -1615,7 +1613,7 @@ real(dp) function dfridr(s, &
             !  an estimate of the error in the first derivative is returned in err.
             integer, parameter :: ntab = 20
             integer :: i,j
-            real(dp) :: x,errt,fac,hh,a(ntab,ntab),xdum,ydum,f1,f2
+            real(dp) :: errt,fac,hh,a(ntab,ntab),f1,f2
             real(dp), parameter :: con2=2d0, con=sqrt(con2), big=1d50, safe=2d0
             include 'formats'
             dfridr = 0d0
@@ -1801,8 +1799,7 @@ subroutine pointers(ierr)
 
             integer, intent(out) :: ierr
 
-            integer :: i, j
-            character (len=strlen) :: err_msg
+            integer :: i
 
             ierr = 0
 
@@ -1920,7 +1917,7 @@ end subroutine cleanup
          real(dp) function eval_slope(nvar, nz, grad_f, B)
             integer, intent(in) :: nvar, nz
             real(dp), intent(in), dimension(:,:) :: grad_f, B
-            integer :: k, i
+            integer :: i
             eval_slope = 0
             do i=1,nvar
                eval_slope = eval_slope + dot_product(grad_f(i,1:nz),B(i,1:nz))
diff --git a/star/private/star_utils.f90 b/star/private/star_utils.f90
index 289b781b3..365b16f92 100644
--- a/star/private/star_utils.f90
+++ b/star/private/star_utils.f90
@@ -280,7 +280,7 @@ subroutine set_m_grav_and_grav(s) ! using mass_corrections
             s% grav(k) = s% cgrav(k)*s% m_grav(k)/(r*r)
          end do
       end subroutine set_m_grav_and_grav
-      
+
       
       subroutine get_r_and_lnR_from_xh(s, k, r, lnR, xh_in)
          type (star_info), pointer :: s
@@ -296,7 +296,7 @@ subroutine get_r_and_lnR_from_xh(s, k, r, lnR, xh_in)
          lnR = xh(s% i_lnR,k)
          r = exp(lnR)
       end subroutine get_r_and_lnR_from_xh
-      
+
       
       real(dp) function get_r_from_xh(s, k, xh_in) result(r)
          type (star_info), pointer :: s
@@ -310,7 +310,7 @@ real(dp) function get_r_from_xh(s, k, xh_in) result(r)
          end if
          r = exp(xh(s% i_lnR,k))
       end function get_r_from_xh
-      
+
       
       real(dp) function get_lnR_from_xh(s, k, xh_in) result(lnR)
          type (star_info), pointer :: s
@@ -324,7 +324,7 @@ real(dp) function get_lnR_from_xh(s, k, xh_in) result(lnR)
          end if
          lnR = xh(s% i_lnR,k)
       end function get_lnR_from_xh      
-      
+
       subroutine store_r_in_xh(s, k, r, xh_in)
          type (star_info), pointer :: s
          integer, intent(in) :: k
@@ -338,7 +338,7 @@ subroutine store_r_in_xh(s, k, r, xh_in)
          end if
          xh(s% i_lnR,k) = log(r)
       end subroutine store_r_in_xh
-      
+
       
       subroutine store_lnR_in_xh(s, k, lnR, xh_in)
          type (star_info), pointer :: s
@@ -353,7 +353,7 @@ subroutine store_lnR_in_xh(s, k, lnR, xh_in)
          end if
          xh(s% i_lnR,k) = lnR
       end subroutine store_lnR_in_xh
-      
+
       
       subroutine get_T_and_lnT_from_xh(s, k, T, lnT, xh_in)
          type (star_info), pointer :: s
@@ -369,7 +369,7 @@ subroutine get_T_and_lnT_from_xh(s, k, T, lnT, xh_in)
          lnT = xh(s% i_lnT,k)
          T =  exp(lnT)
       end subroutine get_T_and_lnT_from_xh
-      
+
       
       real(dp) function get_T_from_xh(s, k, xh_in) result(T)
          type (star_info), pointer :: s
@@ -383,7 +383,7 @@ real(dp) function get_T_from_xh(s, k, xh_in) result(T)
          end if
          T =  exp(xh(s% i_lnT,k))
       end function get_T_from_xh
-      
+
       
       real(dp) function get_lnT_from_xh(s, k, xh_in) result(lnT)
          type (star_info), pointer :: s
@@ -397,7 +397,7 @@ real(dp) function get_lnT_from_xh(s, k, xh_in) result(lnT)
          end if
          lnT = xh(s% i_lnT,k)
       end function get_lnT_from_xh
-      
+
       
       subroutine store_T_in_xh(s, k, T, xh_in)
          type (star_info), pointer :: s
@@ -412,7 +412,7 @@ subroutine store_T_in_xh(s, k, T, xh_in)
          end if
          xh(s% i_lnT,k) = log(T)
       end subroutine store_T_in_xh
-      
+
       
       subroutine store_lnT_in_xh(s, k, lnT, xh_in)
          type (star_info), pointer :: s
@@ -427,7 +427,7 @@ subroutine store_lnT_in_xh(s, k, lnT, xh_in)
          end if
          xh(s% i_lnT,k) = lnT
       end subroutine store_lnT_in_xh
-      
+
       
       subroutine get_rho_and_lnd_from_xh(s, k, rho, lnd, xh_in)
          type (star_info), pointer :: s
@@ -444,7 +444,7 @@ subroutine get_rho_and_lnd_from_xh(s, k, rho, lnd, xh_in)
          rho =  exp(lnd)
       end subroutine get_rho_and_lnd_from_xh
             
-      
+
       subroutine store_rho_in_xh(s, k, rho, xh_in)
          type (star_info), pointer :: s
          integer, intent(in) :: k
@@ -458,7 +458,7 @@ subroutine store_rho_in_xh(s, k, rho, xh_in)
          end if
          xh(s% i_lnd,k) = log(rho)
       end subroutine store_rho_in_xh
-      
+
       
       subroutine store_lnd_in_xh(s, k, lnd, xh_in)
          type (star_info), pointer :: s
@@ -479,7 +479,7 @@ subroutine use_xh_to_set_rho_to_dm_div_dV(s, ierr)
          type (star_info), pointer :: s
          integer, intent(out) :: ierr
          integer :: k, nz, i_lnR, i_lnd
-         real(dp) :: rL, rR, dm, dV, rho, old_lnd, new_lnd
+         real(dp) :: rL, rR, dm, dV, rho
          include 'formats'
          ierr = 0
          i_lnR = s% i_lnR
@@ -719,7 +719,7 @@ real(dp) function get_dtau1(s, ierr)
          type (star_info), pointer :: s
          integer, intent(out) :: ierr
          integer :: k
-         real(dp) :: kap, kap_min
+         real(dp) :: kap
          include 'formats'
          ierr = 0
          k = 1
@@ -744,7 +744,7 @@ subroutine get_tau(s, ierr)
          type (star_info), pointer :: s
          integer, intent(out) :: ierr
          ! tau(k) is optical depth at outer boundary of cell k
-         real(dp) :: dtau, dr, Z, kap_min, kap, dm_sum, L_sum
+         real(dp) :: dtau, kap, dm_sum, L_sum
          integer :: k
          logical, parameter :: dbg = .true.
          include 'formats'
@@ -900,7 +900,7 @@ real(dp) function get_tau_at_r(s, r, ierr)
          type (star_info), pointer :: s
          real(dp), intent(in) :: r
          integer, intent(out) :: ierr
-         real(dp) :: dtau, dr, tau_m1, tau_00
+         real(dp) :: dtau, tau_m1, tau_00
          integer :: k
          logical, parameter :: dbg = .false.
          include 'formats'
@@ -921,7 +921,7 @@ real(dp) function get_tau_at_r(s, r, ierr)
             dtau = s% dm(k)*s% opacity(k)/(pi4*s% rmid(k)*s% rmid(k))
          end do
       end function get_tau_at_r
-      
+
       
       subroutine set_phot_info(s)
          use atm_lib, only: atm_black_body_T
@@ -1153,9 +1153,8 @@ subroutine set_abs_du_div_cs(s)
                s% abs_du_div_cs(k) = 1d99
             end do
          end if
-      
-      end subroutine set_abs_du_div_cs
 
+      end subroutine set_abs_du_div_cs
 
 
       subroutine get_shock_info(s)
@@ -1321,9 +1320,8 @@ end subroutine get_shock_location_info
       real(dp) function min_dr_div_cs(s,min_k) ! seconds
          type (star_info), pointer :: s
          integer, intent(out) :: min_k
-         integer :: k, nz, j, k_min
-         real(dp) :: dr, dt, D, abs_du, cs, min_q, max_q, &
-            min_abs_u_div_cs, min_abs_du_div_cs, r00, rp1, dr_div_cs, remnant_mass
+         integer :: k, nz, k_min
+         real(dp) :: dr, dt, min_q, max_q, min_abs_u_div_cs, min_abs_du_div_cs, r00, rp1, dr_div_cs, remnant_mass
          include 'formats'
          nz = s% nz
          min_k = nz
@@ -1373,7 +1371,7 @@ real(dp) function min_dr_div_cs(s,min_k) ! seconds
             end if
          end do
       end function min_dr_div_cs
-      
+
 
       subroutine reset_epsnuc_vectors(s)
          type (star_info), pointer :: s
@@ -1446,7 +1444,7 @@ subroutine save_eqn_residual_info(s, k, nvar, i_eqn, resid, str, ierr)
          call store_partials( &
             s, k, i_eqn, nvar, d_dm1, d_d00, d_dp1, str, ierr)
       end subroutine save_eqn_residual_info
-      
+
 
 
       subroutine unpack_residual_partials(s, k, nvar, i_eqn, &
@@ -1467,7 +1465,6 @@ subroutine unpack_residual_partials(s, k, nvar, i_eqn, &
             djrot_m1, djrot_00, djrot_p1, &
             dxtra1_m1, dxtra1_00, dxtra1_p1, &
             dxtra2_m1, dxtra2_00, dxtra2_p1
-         integer :: j
 
          include 'formats'
 
@@ -1504,7 +1501,7 @@ subroutine unpack1(j, dvar_m1, dvar_00, dvar_p1)
          end subroutine unpack1         
          
       end subroutine unpack_residual_partials
-      
+
       subroutine store_partials(s, k, i_eqn, nvar, d_dm1, d_d00, d_dp1, str, ierr)
          type (star_info), pointer :: s
          integer, intent(in) :: k, i_eqn, nvar
@@ -1607,7 +1604,7 @@ end function tau_eff
       real(dp) function eval_Ledd(s, ierr)
          type (star_info), pointer :: s
          integer, intent(out) :: ierr
-         real(dp) :: dtau1, dtau, dr, tau, dqsum, Ledd_sum
+         real(dp) :: dtau1, dtau, tau, dqsum, Ledd_sum
          integer :: k
          logical, parameter :: dbg = .false.
          include 'formats'
@@ -1750,12 +1747,12 @@ real(dp) function total_times(s)
             s% time_set_mixing_info
       end function total_times
 
-      
+
       real(dp) function get_remnant_mass(s)
          type (star_info), pointer :: s
          get_remnant_mass = s% m(1) - get_ejecta_mass(s)
       end function get_remnant_mass
-      
+
       
       real(dp) function get_ejecta_mass(s)
          use num_lib, only: find0
@@ -1971,15 +1968,14 @@ real(dp) function get_Lrad_div_Ledd(s,k) result(L_rad_div_Ledd)
          L_rad_div_Ledd = &
             -(area*area*crad*(del_T4/del_m)/3)/(pi4*s% cgrav(j)*s% m_grav(j))
       end function get_Lrad_div_Ledd
-      
+
       
       real(dp) function cell_start_specific_KE(s,k)
          type (star_info), pointer :: s
          integer, intent(in) :: k
-         real(dp) :: ke
          cell_start_specific_KE = cell_start_specific_KE_qp(s,k)
       end function cell_start_specific_KE
-      
+
       
       real(qp) function cell_start_specific_KE_qp(s,k)
          ! for consistency with dual cells at faces, use <v**2> instead of <v>**2
@@ -2008,16 +2004,15 @@ real(qp) function cell_start_specific_KE_qp(s,k)
             cell_start_specific_KE_qp = 0d0
          end if
       end function cell_start_specific_KE_qp
-      
+
       
       real(dp) function cell_specific_KE(s,k,d_dv00,d_dvp1)
          type (star_info), pointer :: s
          integer, intent(in) :: k
          real(dp), intent(out) :: d_dv00, d_dvp1
-         real(dp) :: v2, dv2_dv00, dv2_dvp1
          cell_specific_KE = cell_specific_KE_qp(s,k,d_dv00,d_dvp1)
       end function cell_specific_KE
-      
+
       
       real(qp) function cell_specific_KE_qp(s,k,d_dv00,d_dvp1)
          ! for consistency with dual cells at faces, use <v**2> instead of <v>**2
@@ -2057,7 +2052,7 @@ real(qp) function cell_specific_KE_qp(s,k,d_dv00,d_dvp1)
             d_dvp1 = 0d0
          end if
       end function cell_specific_KE_qp
-      
+
       
       real(dp) function cell_specific_PE(s,k,d_dlnR00,d_dlnRp1)
          type (star_info), pointer :: s
@@ -2065,7 +2060,7 @@ real(dp) function cell_specific_PE(s,k,d_dlnR00,d_dlnRp1)
          real(dp), intent(out) :: d_dlnR00,d_dlnRp1
          cell_specific_PE = cell_specific_PE_qp(s,k,d_dlnR00,d_dlnRp1)
       end function cell_specific_PE
-      
+
       
       real(qp) function cell_specific_PE_qp(s,k,d_dlnR00,d_dlnRp1)
          ! for consistency with dual cells at faces, <m/r>_cntr => (m(k)/r(k) + m(k+1)/r(k+1))/2 /= m_cntr/r_cntr
@@ -2113,14 +2108,14 @@ real(qp) function cell_specific_PE_qp(s,k,d_dlnR00,d_dlnRp1)
             call mesa_error(__FILE__,__LINE__,'cell_specific_PE')
          end if
       end function cell_specific_PE_qp
-      
+
       
       real(dp) function cell_start_specific_PE(s,k)
          type (star_info), pointer :: s
          integer, intent(in) :: k
          cell_start_specific_PE = cell_start_specific_PE_qp(s,k)
       end function cell_start_specific_PE
-      
+
       
       real(dp) function cell_start_specific_PE_qp(s,k)
          ! for consistency with dual cells at faces, <m/r>_cntr => (m(k)/r(k) + m(k+1)/r(k+1))/2 /= m_cntr/r_cntr
@@ -2161,7 +2156,7 @@ real(dp) function cell_start_specific_PE_qp(s,k)
             call mesa_error(__FILE__,__LINE__,'cell_start_specific_PE_qp')
          end if
       end function cell_start_specific_PE_qp
-      
+
       
       real(dp) function cell_specific_rotational_energy(s,k)
          type (star_info), pointer :: s
@@ -2176,7 +2171,7 @@ real(dp) function cell_specific_rotational_energy(s,k)
          cell_specific_rotational_energy = 0.5d0*(e_p1 + e_00)
       end function cell_specific_rotational_energy
 
-      
+
       subroutine get_dke_dt_dpe_dt(s, k, dt, &
             dke_dt, d_dkedt_dv00, d_dkedt_dvp1, &
             dpe_dt, d_dpedt_dlnR00, d_dpedt_dlnRp1, ierr)
@@ -2189,7 +2184,6 @@ subroutine get_dke_dt_dpe_dt(s, k, dt, &
          integer, intent(out) :: ierr
          real(dp) :: PE_start, PE_new, KE_start, KE_new, q1
          real(dp) :: dpe_dlnR00, dpe_dlnRp1, dke_dv00, dke_dvp1
-         integer :: nz
          include 'formats'
          ierr = 0
          ! rate of change in specific PE (erg/g/s)
@@ -2207,7 +2201,7 @@ subroutine get_dke_dt_dpe_dt(s, k, dt, &
          d_dkedt_dv00 = dke_dv00/dt
          d_dkedt_dvp1 = dke_dvp1/dt   
       end subroutine get_dke_dt_dpe_dt
-      
+
       
       real(dp) function eval_deltaM_total_from_profile( &
             deltaM, premesh_dm, profile)
@@ -2231,7 +2225,7 @@ real(dp) function eval_deltaM_total_from_profile( &
          end do
          eval_deltaM_total_from_profile = total
       end function eval_deltaM_total_from_profile
-      
+
       
       real(dp) function cell_specific_total_energy(s, k) result(cell_total)
          type (star_info), pointer :: s
@@ -2247,7 +2241,7 @@ real(dp) function cell_specific_total_energy(s, k) result(cell_total)
          if (s% RSP2_flag) cell_total = cell_total + pow2(s% w(k))
          if (s% rsp_flag) cell_total = cell_total + s% RSP_Et(k)
       end function cell_specific_total_energy
-      
+
       
       subroutine eval_integrated_total_energy_profile(s, arr, direction, ierr)
          type (star_info), pointer :: s
@@ -2291,8 +2285,7 @@ subroutine eval_deltaM_total_energy_integrals( &
             total_radial_kinetic_energy, total_rotational_kinetic_energy, &
             total_turbulent_energy, sum_total
          integer :: k
-         real(dp) :: rR, rL, rC, dVR, dV, dm, m_cntr, rho, egas, v, sum_dm, &
-            cell_total, cell1, d_dv00, d_dvp1, d_dlnR00, d_dlnRp1
+         real(dp) :: dm, sum_dm, cell_total, cell1, d_dv00, d_dvp1, d_dlnR00, d_dlnRp1
          include 'formats'
          
          total_internal_energy = 0d0
@@ -2356,8 +2349,7 @@ subroutine eval_total_energy_profile(s, total_energy_profile)
          real(dp), intent(out), dimension(:) :: total_energy_profile
 
          integer :: k
-         real(dp) :: rR, rL, rC, dVR, dV, dm, m_cntr, rho, egas, v, &
-            cell_total, cell1, d_dv00, d_dvp1, d_dlnR00, d_dlnRp1
+         real(dp) :: dm, cell_total, cell1, d_dv00, d_dvp1, d_dlnR00, d_dlnRp1
          include 'formats'
          
          do k=1, s%nz
@@ -2388,7 +2380,7 @@ subroutine eval_total_energy_profile(s, total_energy_profile)
          end do
             
       end subroutine eval_total_energy_profile
-      
+
       
       real(dp) function eval_cell_section_total_energy( &
             s, klo, khi) result(sum_total)
@@ -2549,7 +2541,7 @@ logical function after_C_burn(s, c12_limit)
              s% xa(c12,nz) > c12_limit) return
          after_C_burn = .true.
       end function after_C_burn
-      
+
       
       integer function lookup_nameofvar(s, namestr)
          type (star_info), pointer :: s
@@ -2563,7 +2555,7 @@ integer function lookup_nameofvar(s, namestr)
             end if
          end do
       end function lookup_nameofvar
-      
+
       
       integer function lookup_nameofequ(s, namestr)
          type (star_info), pointer :: s
@@ -2659,7 +2651,7 @@ subroutine weighed_smoothing(dd, n, ns, preserve_sign, ddold)
 
       end subroutine weighed_smoothing
 
-      
+
       subroutine threshold_smoothing (dd, dd_thresh, n, ns, preserve_sign, ddold)
 
         ! Same as weighed_smoothing, but only smooth contiguous regions where |dd| >= dd_thresh
@@ -2717,7 +2709,7 @@ subroutine threshold_smoothing (dd, dd_thresh, n, ns, preserve_sign, ddold)
         return
 
       end subroutine threshold_smoothing
-      
+
 
       real(dp) function eval_kh_timescale(G,M,R,L) result(kh)
          real(dp), intent(in) :: G,M,R,L
@@ -2729,7 +2721,6 @@ real(dp) function eval_kh_timescale(G,M,R,L) result(kh)
       end function eval_kh_timescale
 
 
-
       real(dp) function yrs_for_init_timestep(s)
          type (star_info), pointer :: s
          if (s% initial_mass <= 1) then
@@ -2744,8 +2735,7 @@ subroutine set_phase_of_evolution(s) ! from evolve after call do_report
          use rates_def, only: i_rate
          use chem_def
          type (star_info), pointer :: s
-         real(dp) :: power_he_burn, power_c_burn, power_neutrinos, &
-            center_h1, center_he4
+         real(dp) :: center_h1, center_he4
          integer :: nz, j
          include 'formats'
          nz = s% nz
@@ -2753,7 +2743,6 @@ subroutine set_phase_of_evolution(s) ! from evolve after call do_report
          s% phase_of_evolution = phase_starting
          if (s%doing_first_model_of_run) return
 
-         
          j = s% net_iso(ih1)
          if (j > 0) then
             center_h1 = center_avg_x(s,j)
@@ -2803,8 +2792,7 @@ subroutine set_phase_of_evolution(s) ! from evolve after call do_report
          
       end subroutine set_phase_of_evolution
 
-      
-      
+
       subroutine set_rv_info(s,k)
          type (star_info), pointer :: s
          integer, intent(in) :: k
@@ -2819,7 +2807,7 @@ subroutine set_rv_info(s,k)
             s% vc(k) = 0d0
          end if
       end subroutine set_rv_info
-      
+
       
       subroutine show_matrix(s, dmat, nvar)
          type (star_info), pointer :: s
@@ -2850,9 +2838,6 @@ subroutine e00(s,i,j,k,nvar,v)
          type (star_info), pointer :: s
          integer, intent(in) :: i, j, k, nvar
          real(dp), intent(in) :: v
-         integer :: b, q, v00
-         real(qp) :: q1, q2
-         !logical, parameter :: dbg = .true.
          logical, parameter :: dbg = .false.
          include 'formats'
          
@@ -2908,9 +2893,6 @@ subroutine em1(s,i,j,k,nvar,v)
          type (star_info), pointer :: s
          integer, intent(in) :: i, j, k, nvar
          real(dp), intent(in) :: v
-         integer :: b, q, vm1
-         real(qp) :: q1, q2
-         !logical, parameter :: dbg = .true.
          logical, parameter :: dbg = .false.
          if (k == 1) return
          include 'formats'
@@ -2963,9 +2945,6 @@ subroutine ep1(s,i,j,k,nvar,v)
          type (star_info), pointer :: s
          integer, intent(in) :: i, j, k, nvar
          real(dp), intent(in) :: v
-         integer :: b, q, vp1
-         real(qp) :: q1, q2
-         !logical, parameter :: dbg = .true.
          logical, parameter :: dbg = .false.
          include 'formats'
          
@@ -3078,7 +3057,6 @@ end subroutine no_data_for_extra_profile_columns
          ! c0 holds a's, c1 holds b's, and c2 holds c's.
 
 
-
       subroutine get1_lpp(k, nz, &
             dm1, d00, dp1, vm1, v00, vp1, quadratic, monotonic, dbg, c0, c1, c2)
          integer, intent(in) :: k, nz
@@ -3287,7 +3265,7 @@ subroutine calc_Ptot_ad_tw( &
          if (s% use_other_pressure) Ptot_ad = Ptot_ad + s% extra_pressure(k)
 
       end subroutine calc_Ptot_ad_tw
-      
+
       
       subroutine get_Pvsc_ad(s, k, Pvsc, ierr)
          use auto_diff
@@ -3318,7 +3296,7 @@ subroutine get_Pvsc_ad(s, k, Pvsc, ierr)
          s% Pvsc(k) = Pvsc%val
          if (Pvsc_start < 0d0) s% Pvsc_start(k) = s% Pvsc(k)
       end subroutine get_Pvsc_ad
-      
+
       
       ! marsaglia and zaman random number generator. period is 2**43 with
       ! 900 million different sequences. the state of the generator (for restarts)
@@ -3342,7 +3320,7 @@ subroutine init_random(s)
                j = k
                k = m
                l = mod(53*l + 1, 169)
-               if (mod(l*m,64) .ge. 32) x = x + t
+               if (mod(l*m,64) >= 32) x = x + t
                t = 0.5d0 * t
             enddo
             s% rand_u(ii) = x
@@ -3353,22 +3331,22 @@ subroutine init_random(s)
          s% rand_i97 = 97
          s% rand_j97 = 33
       end subroutine init_random
-      
+
       
       real(dp) function rand(s)
          type (star_info), pointer :: s      
          real(dp) :: uni
          uni = s% rand_u(s% rand_i97) - s% rand_u(s% rand_j97)
-         if (uni .lt. 0.0d0) uni = uni + 1.0d0
+         if (uni < 0.0d0) uni = uni + 1.0d0
          s% rand_u(s% rand_i97) = uni
          s% rand_i97 = s% rand_i97 - 1
-         if (s% rand_i97 .eq. 0) s% rand_i97 = 97
+         if (s% rand_i97 == 0) s% rand_i97 = 97
          s% rand_j97 = s% rand_j97 - 1
-         if (s% rand_j97 .eq. 0) s% rand_j97 = 97
+         if (s% rand_j97 == 0) s% rand_j97 = 97
          s% rand_c = s% rand_c - s% rand_cd
-         if (s% rand_c .lt. 0.0d0) s% rand_c = s% rand_c + s% rand_cm
+         if (s% rand_c < 0.0d0) s% rand_c = s% rand_c + s% rand_cm
          uni = uni - s% rand_c
-         if (uni .lt. 0.0d0) uni = uni + 1.0d0
+         if (uni < 0.0d0) uni = uni + 1.0d0
          rand = uni
       end function rand
 
@@ -3377,7 +3355,7 @@ subroutine write_to_extra_terminal_output_file(s, str, advance)
          type (star_info), pointer :: s
          character(len=*), intent(in) :: str
          logical, intent(in) :: advance
-         integer :: id, ierr, io
+         integer :: ierr, io
          if (len_trim(s% extra_terminal_output_file) > 0) then
             ierr = 0
             open(newunit=io, file=trim(s% extra_terminal_output_file), &
@@ -3395,7 +3373,7 @@ subroutine write_to_extra_terminal_output_file(s, str, advance)
             end if
          end if
       end subroutine write_to_extra_terminal_output_file
-      
+
       
       subroutine write_eos_call_info(s,k)
          use chem_def
@@ -3460,7 +3438,6 @@ end subroutine write_eos_call_info
 
 
       real(dp) function surface_avg_x(s,j)
-         use chem_def, only: chem_isos
          type (star_info), pointer :: s
          integer, intent(in) :: j
          real(dp) :: sum_x, sum_dq
@@ -3505,7 +3482,7 @@ real(dp) function center_avg_x(s,j)
          end do
          center_avg_x = sum_x/sum_dq
       end function center_avg_x
-      
+
       
       subroutine get_area_info_opt_time_center(s, k, area, inv_R2, ierr)
          use auto_diff_support
@@ -3525,7 +3502,7 @@ subroutine get_area_info_opt_time_center(s, k, area, inv_R2, ierr)
             inv_R2 = 1d0/r2_00
          end if
       end subroutine get_area_info_opt_time_center
-      
+
       
       subroutine set_energy_eqn_scal(s, k, scal, ierr) ! 1/(erg g^-1 s^-1)
          type (star_info), pointer :: s
@@ -3547,7 +3524,7 @@ subroutine set_energy_eqn_scal(s, k, scal, ierr) ! 1/(erg g^-1 s^-1)
          end if
          scal = scal*s% dt/s% energy_start(k)
       end subroutine set_energy_eqn_scal
-      
+
       
       real(dp) function conv_time_scale(s,k_in) result(tau_conv)
          type (star_info), pointer :: s
@@ -3578,7 +3555,7 @@ real(dp) function conv_time_scale(s,k_in) result(tau_conv)
             tau_conv = 0d0
          end if
       end function conv_time_scale
-      
+
       
       subroutine set_conv_time_scales(s)
          type (star_info), pointer :: s
@@ -3601,7 +3578,7 @@ subroutine set_conv_time_scales(s)
          if (s% max_conv_time_scale == 0d0) s% max_conv_time_scale = 1d99
          if (s% min_conv_time_scale == 1d99) s% min_conv_time_scale = 0d0
       end subroutine set_conv_time_scales      
-      
+
       
       real(dp) function QHSE_time_scale(s,k) result(tau_qhse)
          type (star_info), pointer :: s
@@ -3616,16 +3593,16 @@ real(dp) function QHSE_time_scale(s,k) result(tau_qhse)
          end if
          tau_qhse = abs_dv/(s% cgrav(k)*s% m_grav(k)/pow2(s% r(k)))
       end function QHSE_time_scale
+
       
-      
-      
+
       
       real(dp) function eps_nuc_time_scale(s,k) result(tau_epsnuc)
          type (star_info), pointer :: s
          integer, intent(in) :: k
          tau_epsnuc = s% Cp(k)*s% T(k)/max(1d-10,abs(s% eps_nuc(k)))
       end function eps_nuc_time_scale
-      
+
       
       real(dp) function cooling_time_scale(s,k) result(tau_cool)
          type (star_info), pointer :: s
@@ -3634,7 +3611,7 @@ real(dp) function cooling_time_scale(s,k) result(tau_cool)
          thermal_conductivity = (4d0*crad*clight*pow3(s% T(k)))/(3d0*s% opacity(k)*s% rho(k)*s% Cp(k))
          tau_cool = pow2(s% scale_height(k)) / thermal_conductivity
       end function cooling_time_scale
-      
+
       
       function get_rho_face(s,k) result(rho_face)
          type (star_info), pointer :: s
@@ -3648,7 +3625,7 @@ function get_rho_face(s,k) result(rho_face)
          call get_face_weights(s, k, alfa, beta)
          rho_face = alfa*wrap_d_00(s,k) + beta*wrap_d_m1(s,k)
       end function get_rho_face
-      
+
       
       real(dp) function get_rho_face_val(s,k) result(rho_face)
          type (star_info), pointer :: s
@@ -3661,7 +3638,7 @@ real(dp) function get_rho_face_val(s,k) result(rho_face)
          call get_face_weights(s, k, alfa, beta)
          rho_face = alfa*s% rho(k) + beta*s% rho(k-1)
       end function get_rho_face_val
-      
+
       
       function get_T_face(s,k) result(T_face)
          type (star_info), pointer :: s
@@ -3675,7 +3652,7 @@ function get_T_face(s,k) result(T_face)
          call get_face_weights(s, k, alfa, beta)
          T_face = alfa*wrap_T_00(s,k) + beta*wrap_T_m1(s,k)
       end function get_T_face
-      
+
       
       function get_Prad_face(s,k) result(Prad_face)
          type (star_info), pointer :: s
@@ -3683,7 +3660,7 @@ function get_Prad_face(s,k) result(Prad_face)
          type(auto_diff_real_star_order1) :: Prad_face
          Prad_face = crad*pow4(get_T_face(s,k))/3d0
       end function get_Prad_face
-      
+
       
       function get_Peos_face(s,k) result(Peos_face)
          type (star_info), pointer :: s
@@ -3697,7 +3674,7 @@ function get_Peos_face(s,k) result(Peos_face)
          call get_face_weights(s, k, alfa, beta)
          Peos_face = alfa*wrap_Peos_00(s,k) + beta*wrap_Peos_m1(s,k)
       end function get_Peos_face
-      
+
       
       function get_Cp_face(s,k) result(Cp_face)
          type (star_info), pointer :: s
@@ -3711,7 +3688,7 @@ function get_Cp_face(s,k) result(Cp_face)
          call get_face_weights(s, k, alfa, beta)
          Cp_face = alfa*wrap_Cp_00(s,k) + beta*wrap_Cp_m1(s,k)
       end function get_Cp_face
-      
+
       
       function get_ChiRho_face(s,k) result(ChiRho_face)
          type (star_info), pointer :: s
@@ -3725,7 +3702,7 @@ function get_ChiRho_face(s,k) result(ChiRho_face)
          call get_face_weights(s, k, alfa, beta)
          ChiRho_face = alfa*wrap_ChiRho_00(s,k) + beta*wrap_ChiRho_m1(s,k)
       end function get_ChiRho_face
-      
+
       
       function get_ChiT_face(s,k) result(ChiT_face)
          type (star_info), pointer :: s
@@ -3739,7 +3716,7 @@ function get_ChiT_face(s,k) result(ChiT_face)
          call get_face_weights(s, k, alfa, beta)
          ChiT_face = alfa*wrap_ChiT_00(s,k) + beta*wrap_ChiT_m1(s,k)
       end function get_ChiT_face
-      
+
       
       function get_kap_face(s,k) result(kap_face)
          type (star_info), pointer :: s
@@ -3753,7 +3730,7 @@ function get_kap_face(s,k) result(kap_face)
          call get_face_weights(s, k, alfa, beta)
          kap_face = alfa*wrap_kap_00(s,k) + beta*wrap_kap_m1(s,k)
       end function get_kap_face
-      
+
       
       function get_grada_face(s,k) result(grada_face)
          type (star_info), pointer :: s
@@ -3767,7 +3744,7 @@ function get_grada_face(s,k) result(grada_face)
          call get_face_weights(s, k, alfa, beta)
          grada_face = alfa*wrap_grad_ad_00(s,k) + beta*wrap_grad_ad_m1(s,k)
       end function get_grada_face
-      
+
       
       function get_gradr_face(s,k) result(gradr)
          type (star_info), pointer :: s
@@ -3781,7 +3758,7 @@ function get_gradr_face(s,k) result(gradr)
          Pr = get_Prad_face(s,k)
          gradr = P*opacity*L/(16d0*pi*clight*s% m_grav(k)*s% cgrav(k)*Pr) 
       end function get_gradr_face
-      
+
       
       function get_scale_height_face(s,k) result(scale_height)
          type (star_info), pointer :: s
@@ -3804,7 +3781,7 @@ function get_scale_height_face(s,k) result(scale_height)
             end if
          end if
       end function get_scale_height_face
-      
+
       
       real(dp) function get_scale_height_face_val(s,k) result(scale_height)
          type (star_info), pointer :: s
@@ -3828,7 +3805,7 @@ real(dp) function get_scale_height_face_val(s,k) result(scale_height)
          end if
       end function get_scale_height_face_val
 
-      
+
       function get_QQ_cell(s,k) result(QQ_cell)
          type (star_info), pointer :: s
          integer, intent(in) :: k
@@ -3841,7 +3818,7 @@ function get_QQ_cell(s,k) result(QQ_cell)
          chiRho_00 = wrap_chiRho_00(s,k)
          QQ_cell = chiT_00/(d_00*T_00*chiRho_00)
       end function get_QQ_cell
-      
+
       
       subroutine get_face_weights(s, k, alfa, beta)
          type (star_info), pointer :: s
@@ -3928,6 +3905,6 @@ subroutine set_zero_alpha_RTI(id, ierr)
          s% alpha_RTI(1:s% nz) = 0d0
          s% need_to_setvars = .true.
       end subroutine set_zero_alpha_RTI
-      
+
 
       end module star_utils
diff --git a/star/private/starspots.f90 b/star/private/starspots.f90
new file mode 100644
index 000000000..12ed5c94c
--- /dev/null
+++ b/star/private/starspots.f90
@@ -0,0 +1,111 @@
+! ***********************************************************************
+!
+!   Copyright (C) 2010-2019  Meridith Joyce & The MESA Team
+!
+!   MESA is free software; you can use it and/or modify
+!   it under the combined terms and restrictions of the MESA MANIFESTO
+!   and the GNU General Library Public License as published
+!   by the Free Software Foundation; either version 2 of the License,
+!   or (at your option) any later version.
+!
+!   You should have received a copy of the MESA MANIFESTO along with
+!   this software; if not, it is available at the mesa website:
+!   http://mesa.sourceforge.net/
+!
+!   MESA is distributed in the hope that it will be useful,
+!   but WITHOUT ANY WARRANTY; without even the implied warranty of
+!   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+!   See the GNU Library General Public License for more details.
+!
+!   You should have received a copy of the GNU Library General Public License
+!   along with this software; if not, write to the Free Software
+!   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+!
+! ***********************************************************************
+
+module starspots
+
+   use star_private_def
+   use const_def
+   use utils_lib
+
+   implicit none
+
+   private
+
+   public :: starspot_tweak_gradr
+   public :: starspot_tweak_PT
+   public :: starspot_restore_PT
+
+   real(dp) :: L_init
+
+contains
+
+! -------------
+! parameterized YREC routines
+! MESA models a pressure contrast rather than temperature contrast
+! -------------
+
+   subroutine starspot_tweak_gradr(s, P, gradr, gradr_spot)
+      ! adjusts the gradient of the radius to account for starspots.
+      ! This subroutine is called at the beginning of Get_results()
+      ! in turb_support.f90
+      ! ------------------------------------------------------------
+      use auto_diff_support
+      type(star_info), pointer :: s
+      type(auto_diff_real_star_order1), intent(in) :: P
+      type(auto_diff_real_star_order1), intent(in) :: gradr
+      type(auto_diff_real_star_order1), intent(out) :: gradr_spot
+
+      real(dp) :: mu_ideal_gas, R2, Teff_local, PB_i
+      type(auto_diff_real_star_order1) :: xspot_of_r ! xspot4
+
+      if (.not. s%doing_relax .and. .not. s%doing_first_model_of_run) then
+         mu_ideal_gas = s%mu(1)  !1.00794d0 ! for hydrogen, 1 gram per mole
+         R2 = pow2(s%R(1))
+         Teff_local = pow(s%L(1)/(pi4*boltz_sigma*R2), 0.25d0)
+         PB_i = (cgas*s%rho(1)/mu_ideal_gas)*(1.0d0 - s%xspot)*Teff_local
+         xspot_of_r = (P - PB_i)/P
+         gradr_spot = gradr/(s%fspot*pow4(xspot_of_r) + 1.0d0 - s%fspot)
+      else
+         gradr_spot = gradr
+      end if
+   end subroutine starspot_tweak_gradr
+
+   subroutine starspot_tweak_PT(s)
+      ! saves the surface luminosity and adjusts it and the effective
+      ! temperature to account for starspots.
+      ! This subroutine is called at the beginning of get_surf_PT()
+      ! in hydro_vars.f90
+      ! ------------------------------------------------------------
+
+      type(star_info), pointer :: s
+
+      real(dp) :: alp
+
+      alp = 1d0 - s%fspot + s%fspot*pow4(s%xspot)
+
+      ! This is the surface-average value for luminosity
+      L_init = s%L(1)
+
+      ! Set the surface L to the unspotted, ambient L
+      s%L(1) = s%L(1)/alp
+
+      ! Now, set the Teff. Used in atm table lookup to set boundary conditions
+      s%Teff = pow(s%L(1)/(pi4*pow2(s%r(1))*boltz_sigma), 0.25_dp)
+
+   end subroutine starspot_tweak_PT
+
+   subroutine starspot_restore_PT(s)
+      ! restores the surface luminosity effective temeperature.
+      ! Called at the end of get_surf_PT()
+      ! ------------------------------------------------------------
+
+      type(star_info), pointer :: s
+      
+      s%Teff = pow(L_init/(pi4*pow2(s%r(1))*boltz_sigma), 0.25_dp)
+      s%L(1) = L_init
+
+   end subroutine starspot_restore_PT
+
+end module starspots
diff --git a/star/private/struct_burn_mix.f90 b/star/private/struct_burn_mix.f90
index dd3eaaa93..a6d0b2950 100644
--- a/star/private/struct_burn_mix.f90
+++ b/star/private/struct_burn_mix.f90
@@ -46,7 +46,7 @@ integer function do_struct_burn_mix(s, skip_global_corr_coeff_limit)
          type (star_info), pointer :: s
          logical, intent(in) :: skip_global_corr_coeff_limit
 
-         integer :: nz, nvar, species, ierr, j, k, k_bad
+         integer :: nz, nvar, species, ierr, k
          integer(8) :: time0
          logical :: do_chem
          real(dp) :: dt, tol_correction_norm, tol_max_correction, total
@@ -238,8 +238,6 @@ integer function do_mix_omega(s, dt)
          type (star_info), pointer :: s
          real(dp), intent(in) :: dt
 
-         integer :: ierr
-
          do_mix_omega = keep_going
 
          if (s% rotation_flag) then
@@ -275,13 +273,11 @@ end function do_rsp_step
 
 
       subroutine save_start_values(s, ierr)
-         use chem_def, only: num_categories
          use hydro_rsp2, only: set_etrb_start_vars
          use star_utils, only: eval_total_energy_integrals, set_luminosity_by_category
-         use chem_def, only: ih1
          type (star_info), pointer :: s
          integer, intent(out) :: ierr
-         integer :: k, j, i_h1
+         integer :: k, j
          include 'formats'
          ierr = 0
 
@@ -380,7 +376,7 @@ integer function do_solver_converge( &
          logical, intent(in) :: skip_global_corr_coeff_limit
          real(dp), intent(in) :: tol_correction_norm, tol_max_correction
 
-         integer :: ierr, nz, k, n
+         integer :: ierr, nz, n
          logical :: report
 
          include 'formats'
@@ -514,8 +510,8 @@ integer function do_solver( &
          real(dp), intent(in) :: tol_correction_norm, tol_max_correction
 
          logical :: converged
-         integer :: i, k, species, ierr, alph, j1, j2, gold_tolerances_level
-         real(dp) :: varscale, r003, rp13, dV, frac, maxT
+         integer :: k, species, ierr, j1, j2, gold_tolerances_level
+         real(dp) :: maxT
 
          include 'formats'
 
@@ -749,9 +745,8 @@ subroutine hydro_solver_step( &
          logical, intent(out) :: converged
          integer, intent(out) :: ierr
 
-         integer :: i, k, j, matrix_type, neq
+         integer :: k, j, neq
          logical :: failure
-         real(dp) :: varscale
          logical, parameter :: dbg = .false.
 
          include 'formats'
@@ -794,7 +789,6 @@ subroutine newt(ierr)
             use star_solver, only: solver
             use rates_def, only: warn_rates_for_high_temp
             integer, intent(out) :: ierr
-            integer :: k, j
             logical :: save_warn_rates_flag
             include 'formats'
             s% doing_solver_iterations = .true.
@@ -823,11 +817,11 @@ integer function do_burn(s, dt)
 
          integer :: &
             k_bad, ierr, max_num_iters_k, nz, op_err, &
-            i, j, k, num_iters, species, max_num_iters_used, &
+            k, num_iters, species, max_num_iters_used, &
             screening_mode, kmin
-         integer(8) :: time0, clock_rate
+         integer(8) :: time0
          real(dp) :: total, avg_epsnuc, min_T_for_const_density_solver
-         logical :: trace, dbg, okay, skip_burn
+         logical :: trace, dbg, skip_burn
          logical, parameter :: burn_dbg = .false.
 
          include 'formats'
@@ -971,7 +965,7 @@ subroutine burn1_zone( &
          use net_lib, only: net_1_zone_burn_const_density, net_1_zone_burn, &
             show_net_reactions_and_info
          use rates_def, only: std_reaction_Qs, std_reaction_neuQs
-         use chem_def, only: chem_isos, num_categories, category_name
+         use chem_def, only: num_categories
          use net, only: do1_net
          use star_utils, only: store_lnT_in_xh, get_T_and_lnT_from_xh
          type (star_info), pointer :: s
@@ -1189,12 +1183,11 @@ end subroutine get_eos_info_for_burn_at_const_density
 
 
          subroutine burn_finish_substep(nstp, time, y, ierr)
-            use chem_def, only: category_name
             integer,intent(in) :: nstp
             real(dp), intent(in) :: time, y(:)
             integer, intent(out) :: ierr
-            real(dp) :: frac, step_time
-            integer :: j, i
+            !real(dp) :: frac, step_time
+            !integer :: j, i
             include 'formats'
             ierr = 0
             ! This routine does nothing other than set ierr = 0,
diff --git a/star/private/timestep.f90 b/star/private/timestep.f90
index 35f935a1e..11e335109 100644
--- a/star/private/timestep.f90
+++ b/star/private/timestep.f90
@@ -101,7 +101,7 @@ integer function do_timestep_limits(s, dt)
          type (star_info), pointer :: s
          real(dp), intent(in) :: dt ! timestep just completed
 
-         real(dp) :: dt_limit_ratio(numTlim), dt_limit, limit, order, max_timestep_factor
+         real(dp) :: dt_limit_ratio(numTlim), order, max_timestep_factor
          integer :: i_limit, nz, ierr
          logical :: skip_hard_limit
          integer :: num_mix_boundaries ! boundaries of regions with mixing_type /= no_mixing
@@ -375,7 +375,6 @@ integer function do_timestep_limits(s, dt)
 
          logical function return_now(i_limit)
             integer, intent(in) :: i_limit
-            integer :: k
             if (do_timestep_limits == keep_going) then
                return_now = .false.
                return
@@ -420,7 +419,7 @@ integer function check_burn_steps_limit(s, skip_hard_limit, dt, dt_limit_ratio)
          logical, intent(in) :: skip_hard_limit
          real(dp), intent(in) :: dt
          real(dp), intent(inout) :: dt_limit_ratio
-         integer :: max_steps, i
+         integer :: max_steps
          check_burn_steps_limit = keep_going
          if (.not. s% op_split_burn .or. maxval(s% T_start(1:s%nz)) < s% op_split_burn_min_T) return
  
@@ -2189,9 +2188,9 @@ integer function check_dX_nuc_drop(s, skip_hard_limit, dt, dt_limit_ratio)
          subroutine do1(k)
             integer, intent(in) :: k
 
-            integer :: j, jj, ii
+            integer :: j
             real(dp) :: dx, dx_drop, dm, dt_dm, dx_burning, dx_inflow, dxdt_nuc
-            real(dp) ::dx00, dxp1, sig00, sigp1, flux00, fluxp1
+            real(dp) :: dx00, dxp1, sig00, sigp1, flux00, fluxp1
 
             include 'formats'
 
@@ -2320,7 +2319,7 @@ real(dp) function eval_varcontrol(s, ierr) result(varcontrol)
          type (star_info), pointer :: s
          integer, intent(out) :: ierr
 
-         integer :: j, nterms, nvar_hydro, nz, k, kk
+         integer :: j, nterms, nvar_hydro, nz, k
          real(dp) :: sumj, sumvar, sumscales, sumterm(s% nvar_total)
          real(dp), parameter :: xscale_min = 1
 
diff --git a/star/private/turb_info.f90 b/star/private/turb_info.f90
index a1dabbef9..42a4889db 100644
--- a/star/private/turb_info.f90
+++ b/star/private/turb_info.f90
@@ -83,7 +83,6 @@ subroutine do1_mlt_2(s, k, &
          use star_utils
          use turb_support, only: do1_mlt_eval
          use eos_def
-         use chem_def, only: ih1
          use auto_diff_support
          type (star_info), pointer :: s
          integer, intent(in) :: k
@@ -93,10 +92,9 @@ subroutine do1_mlt_2(s, k, &
             mixing_length_alpha_in, gradL_composition_term_in
 
          type(auto_diff_real_star_order1) :: gradr_factor
-         real(dp) :: v, f, xh_face, &
-            gradL_composition_term, abs_du_div_cs, cs, mixing_length_alpha
+         real(dp) :: f, gradL_composition_term, abs_du_div_cs, cs, mixing_length_alpha
          real(dp), pointer :: vel(:)
-         integer :: i, mixing_type, h1, nz, k_T_max
+         integer :: i, mixing_type, nz, k_T_max
          real(dp), parameter :: conv_vel_mach_limit = 0.9d0
          real(dp) :: crystal_pad
          logical :: no_mix
@@ -425,7 +423,7 @@ subroutine set_gradT_excess_alpha(s, ierr)
          use chem_def, only: ih1, ihe4
          type (star_info), pointer :: s
          integer, intent(out) :: ierr
-         real(dp) :: beta, lambda, phi, tmp, alpha, alpha2, &
+         real(dp) :: beta, lambda, tmp, alpha, &
             beta_limit, lambda1, beta1, lambda2, beta2, dlambda, dbeta
          integer :: k, k_beta, k_lambda, nz, h1, he4
          include 'formats'
@@ -541,7 +539,7 @@ subroutine check_for_redo_MLT(s, nzlo, nzhi, ierr)
          include 'formats'
          ! check_for_redo_MLT assumes that nzlo = 1, nzhi = nz
          ! that is presently true; make sure that assumption doesn't change
-         if (.not. ((nzlo.eq.1).and.(nzhi.eq.s%nz))) then
+         if (.not. ((nzlo==1).and.(nzhi==s%nz))) then
             write(*,*) 'nzlo != 1 or nzhi != nz'
             call mesa_error(__FILE__,__LINE__)
          endif
@@ -575,7 +573,7 @@ subroutine check_for_redo_MLT(s, nzlo, nzhi, ierr)
          contains
 
          subroutine end_of_convective_region()
-            integer :: kk, op_err, mix_type
+            integer :: kk, op_err
             real(dp) :: Hp
             logical :: end_dbg
             9 format(a40, 3i7, 99(1pd26.16))
diff --git a/star/private/turb_support.f90 b/star/private/turb_support.f90
index 8b0a09296..c99508b69 100644
--- a/star/private/turb_support.f90
+++ b/star/private/turb_support.f90
@@ -105,24 +105,27 @@ end subroutine get_gradT
       
    subroutine do1_mlt_eval( &
          s, k, MLT_option, gradL_composition_term, &
-         gradr, grada, scale_height, mixing_length_alpha, &
+         gradr_in, grada, scale_height, mixing_length_alpha, &
          mixing_type, gradT, Y_face, mlt_vc, D, Gamma, ierr)
       use chem_def, only: ih1
+      use starspots, only: starspot_tweak_gradr
       type (star_info), pointer :: s
       integer, intent(in) :: k
       character (len=*), intent(in) :: MLT_option
-      type(auto_diff_real_star_order1), intent(in) :: gradr, grada, scale_height
+      type(auto_diff_real_star_order1), intent(in) :: gradr_in, grada, scale_height
       real(dp), intent(in) :: gradL_composition_term, mixing_length_alpha
       integer, intent(out) :: mixing_type
       type(auto_diff_real_star_order1), intent(out) :: &
          gradT, Y_face, mlt_vc, D, Gamma
       integer, intent(out) :: ierr 
               
-      real(dp) :: cgrav, m, XH1, gradL_old, grada_face_old
-      integer :: iso, old_mix_type
-      type(auto_diff_real_star_order1) :: r, L, T, P, opacity, rho, dV, chiRho, chiT, Cp
+      real(dp) :: cgrav, m, XH1
+      integer :: iso
+      type(auto_diff_real_star_order1) :: gradr, r, L, T, P, opacity, rho, dV, chiRho, chiT, Cp
       include 'formats'
       ierr = 0
+
+      gradr = gradr_in
       
       cgrav = s% cgrav(k)
       m = s% m_grav(k)
@@ -145,7 +148,12 @@ subroutine do1_mlt_eval( &
             iso, XH1, cgrav, m, gradL_composition_term, mixing_length_alpha, &
             s% alpha_semiconvection, s% thermohaline_coeff, &
             mixing_type, gradT, Y_face, mlt_vc, D, Gamma, ierr)
-      else         
+      else
+         ! starspot YREC routine
+         if (s% do_starspots) then
+            !dV = 0d0 ! dV = 1/rho - 1/rho_start and we assume rho = rho_start.
+            call starspot_tweak_gradr(s, P, gradr_in, gradr)
+         end if
          call Get_results(s, k, MLT_option, &
             r, L, T, P, opacity, rho, dV, chiRho, chiT, Cp, gradr, grada, scale_height, &
             iso, XH1, cgrav, m, gradL_composition_term, mixing_length_alpha, &
@@ -182,8 +190,7 @@ subroutine Get_results(s, k, MLT_option, &  ! NOTE: k=0 is a valid arg
       real(dp) :: Gamma_limit, scale_value1, scale_value2, diff_grads_limit, reduction_limit, lambda_limit
       type(auto_diff_real_star_order1) :: Lrad_div_Ledd, Gamma_inv_threshold, Gamma_factor, alfa0, &
          diff_grads_factor, Gamma_term, exp_limit, grad_scale, gradr_scaled
-
-      character (len=256) :: message        
+     
       logical ::  test_partials, using_TDC
       logical, parameter :: report = .false.
       include 'formats'
@@ -216,7 +223,7 @@ subroutine Get_results(s, k, MLT_option, &  ! NOTE: k=0 is a valid arg
 
       !test_partials = (k == s% solver_test_partials_k)
       test_partials = .false.
-      ierr = 0          
+      ierr = 0
       if (k > 0) then
          s% tdc_num_iters(k) = 0
       end if
@@ -228,7 +235,6 @@ subroutine Get_results(s, k, MLT_option, &  ! NOTE: k=0 is a valid arg
       end if
 
 
-
       ! check if this particular k can be done with TDC
       using_TDC = .false.
       if (s% MLT_option == 'TDC') using_TDC = .true.
@@ -337,7 +343,7 @@ subroutine Get_results(s, k, MLT_option, &  ! NOTE: k=0 is a valid arg
                if (s% report_ierr) write(*,*) 'ierr from set_semiconvection'
                return
             end if
-         end if         
+         end if
       end if 
 
       ! If there's too-little mixing to bother, or we hit a bad value, fall back on no mixing.
@@ -348,7 +354,7 @@ subroutine Get_results(s, k, MLT_option, &  ! NOTE: k=0 is a valid arg
          Y_face = gradT - gradL
          conv_vel = 0d0
          D = 0d0
-         Gamma = 0d0            
+         Gamma = 0d0
       end if
 
       contains
diff --git a/star/private/winds.f90 b/star/private/winds.f90
index af50dba7d..7c3ae7ea2 100644
--- a/star/private/winds.f90
+++ b/star/private/winds.f90
@@ -64,15 +64,15 @@ subroutine do_set_mdot(s, L_phot, M_phot, T_phot, ierr)
          real(dp), intent(in) :: L_phot, M_phot, T_phot ! photosphere values (cgs)
          integer, intent(out) :: ierr
 
-         integer :: k, j, h1, he4, nz, base
-         real(dp) :: max_ejection_mass, wind_mdot, wind, alfa, total_H, &
+         integer :: h1, he4, nz
+         real(dp) :: wind_mdot, wind, alfa, &
             X, Y, Z, w1, w2, T_high, T_low, L1, M1, R1, T1, &
-            log_dtyr, log_dtyr_full_off, log_dtyr_full_on, beta, divisor, &
+            beta, divisor, &
             center_h1, center_he4, surface_h1, surface_he4, mdot, xfer_ratio, &
             L_div_Ledd, full_off, full_on, max_boost, super_eddington_boost, &
             hot_wind, cool_wind, H_env_mass, H_He_env_mass, He_layer_mass
-         character (len=strlen) :: message, cool_wind_scheme, hot_wind_scheme, scheme
-         logical :: is_infalling, using_wind_scheme_mdot, use_other
+         character (len=strlen) :: scheme
+         logical :: using_wind_scheme_mdot, use_other
          real(dp), parameter :: Zsolar = 0.019d0 ! for Vink et al formula
 
          logical, parameter :: dbg = .false.
@@ -425,7 +425,7 @@ subroutine rotation_enhancement(ierr)
             !       Osurf_crit^2 = (1 - Gamma_edd)*G*M/R_equatorial^3
             !       Gamma_edd = kappa*L/(4 pi c G M), Eddington factor
             real(dp) :: enhancement, wind_mdot, wind_mdot_lim, &
-               kh_timescale, mdot_lim, wind_mdot_prev, dmsfac, dmskhf
+               kh_timescale, wind_mdot_prev, dmsfac, dmskhf
 
             include 'formats'
 
diff --git a/star/private/write_model.f90 b/star/private/write_model.f90
index 04fcecad4..36819d5f9 100644
--- a/star/private/write_model.f90
+++ b/star/private/write_model.f90
@@ -189,7 +189,7 @@ subroutine do_write_model(id, filename, ierr)
             write(iounit, fmt='(i5, 1x)', advance='no') k
             call write1(s% lnd(k),ierr); if (ierr /= 0) exit
             call write1(s% lnT(k),ierr); if (ierr /= 0) exit
-            call write1(s% lnR(k),ierr); if (ierr /= 0) exit            
+            call write1(s% lnR(k),ierr); if (ierr /= 0) exit
             if (RSP_flag) then
                call write1(s% RSP_Et(k),ierr); if (ierr /= 0) exit
                call write1(s% erad(k),ierr); if (ierr /= 0) exit
@@ -198,7 +198,7 @@ subroutine do_write_model(id, filename, ierr)
                call write1(s% w(k),ierr); if (ierr /= 0) exit
                call write1(s% Hp_face(k),ierr)
                if (ierr /= 0) exit
-            end if            
+            end if
             call write1(s% L(k),ierr); if (ierr /= 0) exit
             call write1(s% dq(k),ierr); if (ierr /= 0) exit
             if (v_flag) then
diff --git a/star/public/star_def.f90 b/star/public/star_def.f90
index bbd599b99..cdd3660bc 100644
--- a/star/public/star_def.f90
+++ b/star/public/star_def.f90
@@ -23,13 +23,10 @@
 !
 ! ***********************************************************************
 
-      module star_def
-      
-      use star_data_def
+module star_def
 
-      
-      implicit none      
-      
-      
-      end module star_def
+   use star_data_def
 
+   implicit none
+
+end module star_def
diff --git a/star/public/star_lib.f90 b/star/public/star_lib.f90
index 101a77959..722b09bee 100644
--- a/star/public/star_lib.f90
+++ b/star/public/star_lib.f90
@@ -77,12 +77,11 @@ module star_lib ! this is the procedure interface to mesa/star.
 
       implicit none
 
-      
+
       contains
 
 
-      
-      
+
       ! allocate data structures for a star and returns a handle.
       subroutine alloc_star(id, ierr)
          use init, only: alloc_star_data
@@ -90,30 +89,30 @@ subroutine alloc_star(id, ierr)
          call alloc_star_data(id, ierr)
       end subroutine alloc_star
 
-      
+
       subroutine init_starting_star_data(s, ierr) ! this is done when alloc_star
          ! but if you are reusing the star data (and not calling alloc_star)
          ! then call this to get things initialized.
          use init, only: set_starting_star_data
-         
+
          type (star_info), pointer :: s
          integer, intent(out) :: ierr
          call set_starting_star_data(s, ierr)
       end subroutine init_starting_star_data
-      
+
       ! call this when you are finished with the star.
       subroutine free_star(id, ierr)
          use alloc, only: free_star_data
          ! frees the handle and all associated data
          integer, intent(in) :: id
          integer, intent(out) :: ierr
-         
+
          call star_shutdown_pgstar(id, ierr)
          call star_dealloc_extras(id)
          call free_star_data(id, ierr)
       end subroutine free_star
 
-      
+
       subroutine read_star_job(s, filename, ierr)
          use star_private_def
          use star_job_ctrls_io, only: do_read_star_job
@@ -122,7 +121,7 @@ subroutine read_star_job(s, filename, ierr)
          integer, intent(out) :: ierr
          call do_read_star_job(s, filename, ierr)
       end subroutine read_star_job
-      
+
       subroutine read_star_job_id(id, filename, ierr)
          use star_private_def
          use star_job_ctrls_io, only: do_read_star_job
@@ -144,7 +143,7 @@ subroutine write_star_job(s, filename, ierr)
          integer, intent(out) :: ierr
          call do_write_star_job(s, filename, ierr)
       end subroutine write_star_job
-      
+
       subroutine write_star_job_id(id, filename, ierr)
          use star_private_def
          use star_job_ctrls_io, only: do_write_star_job
@@ -224,8 +223,8 @@ subroutine do_starlib_init( &
             color_num_files,color_file_names,color_num_colors,&
             ierr)
       end subroutine do_starlib_init
-      
-      
+
+
       ! call this when you are done.
       subroutine starlib_shutdown
          use init, only: do_starlib_shutdown
@@ -237,14 +236,14 @@ end subroutine starlib_shutdown
       ! if you want direct access to the star data structure, 
       ! then you need to convert the handle to a pointer.
       ! use the routine star_ptr defined in star_def.
-      
-            
+
+
       ! once you've allocated a star, you need to initialize it.
       ! this is done in two stages: first you set the various control parameters
       ! (using star_setup), and then you actually create the model
       ! (using star_load).
-      
-      
+
+
       ! logs and profiles are by default written to the directory named "logs_and_profiles", 
       ! but you can change that if you'd like by calling this routine before calling star_setup.
       subroutine set_dir_for_logs_and_profiles(id, dir_name, ierr)
@@ -256,8 +255,8 @@ subroutine set_dir_for_logs_and_profiles(id, dir_name, ierr)
          if (ierr /= 0) return
          s% log_directory = dir_name
       end subroutine set_dir_for_logs_and_profiles
-      
-      
+
+
       subroutine star_set_history_columns(id, history_columns_file, report, ierr)
          use history_specs, only: set_history_columns
          integer, intent(in) :: id
@@ -267,7 +266,7 @@ subroutine star_set_history_columns(id, history_columns_file, report, ierr)
          call set_history_columns(id, history_columns_file, report, ierr)
       end subroutine star_set_history_columns
 
-      
+
       integer function star_get_history_column_id(cname)
          ! returns id for the history column if there is a matching name
          ! returns 0 otherwise.
@@ -275,8 +274,8 @@ integer function star_get_history_column_id(cname)
          character (len=*), intent(in)  :: cname 
          star_get_history_column_id = do_get_history_id(cname)
       end function star_get_history_column_id
-      
-      
+
+
       subroutine star_set_profile_columns(id, profile_columns_file, report, ierr)
          use profile, only: set_profile_columns
          integer, intent(in) :: id
@@ -285,8 +284,8 @@ subroutine star_set_profile_columns(id, profile_columns_file, report, ierr)
          integer, intent(out) :: ierr
          call set_profile_columns(id, profile_columns_file, report, ierr)
       end subroutine star_set_profile_columns
-      
-      
+
+
       ! read a "namelist" file and setup parameters for the star.
       subroutine star_setup(id, inlist, ierr)
          use ctrls_io, only: do_one_setup
@@ -295,8 +294,8 @@ subroutine star_setup(id, inlist, ierr)
          integer, intent(out) :: ierr ! 0 means AOK.
          call do_one_setup(id, inlist, ierr)
       end subroutine star_setup
-      
-      
+
+
       ! okay to call this more than once; only 1st call does the work.
       subroutine star_set_kap_and_eos_handles(id, ierr)
          use init, only: set_kap_and_eos_handles
@@ -304,8 +303,8 @@ subroutine star_set_kap_and_eos_handles(id, ierr)
          integer, intent(out) :: ierr ! 0 means AOK.
          call set_kap_and_eos_handles(id, ierr)
       end subroutine star_set_kap_and_eos_handles
-      
-      
+
+
       subroutine star_set_net(id, new_net_name, ierr)
          use net, only: set_net
          integer, intent(in) :: id
@@ -317,8 +316,8 @@ subroutine star_set_net(id, new_net_name, ierr)
          s% net_name = new_net_name
          call set_net(s, new_net_name, ierr)
       end subroutine star_set_net
-      
-      
+
+
       subroutine star_set_var_info(id, ierr)
          use alloc, only: set_var_info
          integer, intent(in) :: id
@@ -328,8 +327,8 @@ subroutine star_set_var_info(id, ierr)
          if (ierr /= 0) return
          call set_var_info(s, ierr)
       end subroutine star_set_var_info
-      
-      
+
+
       subroutine star_set_chem_names(id, ierr)
          use alloc, only: set_chem_names
          integer, intent(in) :: id
@@ -339,8 +338,8 @@ subroutine star_set_chem_names(id, ierr)
          if (ierr /= 0) return
          call set_chem_names(s)
       end subroutine star_set_chem_names
-      
-      
+
+
       subroutine star_allocate_arrays(id, ierr)
          use alloc, only: allocate_star_info_arrays
          integer, intent(in) :: id
@@ -350,8 +349,8 @@ subroutine star_allocate_arrays(id, ierr)
          if (ierr /= 0) return
          call allocate_star_info_arrays(s, ierr)
       end subroutine star_allocate_arrays
-      
-      
+
+
       ! if there is a file called 'restart_photo', then it will be used to restart.
       ! otherwise, create a new model with arbitrary mass and metallicity
       ! as determined by initial_mass and initial_z in the star_info structure.
@@ -362,12 +361,12 @@ end subroutine star_allocate_arrays
       subroutine star_load_zams(id, ierr)
          use init, only: load_zams_model
          integer, intent(in) :: id
-         integer, intent(out) :: ierr      
+         integer, intent(out) :: ierr
          ierr = 0
-         call load_zams_model(id, ierr)      
+         call load_zams_model(id, ierr)
       end subroutine star_load_zams
-      
-      
+
+
       ! you can create a "pre-main-sequence" approximation
       ! that has not started nuclear burning yet.
       ! the following routine will construct a protostar
@@ -383,7 +382,7 @@ subroutine star_create_pre_ms_model( &
             change_net, new_net_name, &
             pre_ms_relax_num_steps, ierr)
          use init, only: create_pre_ms_model
-         
+
          integer, intent(in) :: id
          real(dp), intent(in) :: T_c 
             ! optional initial center temperature
@@ -420,7 +419,7 @@ subroutine star_create_pre_ms_model( &
          call create_pre_ms_model(id, ierr)
          if (ierr /= 0) return
       end subroutine star_create_pre_ms_model
-      
+
       ! you can create an initial model for given mass and radius.
       subroutine star_create_initial_model(id, &
             radius_in_cm_for_create_initial_model, &
@@ -429,7 +428,7 @@ subroutine star_create_initial_model(id, &
             entropy_1st_try_for_create_initial_model, &
             max_tries_for_create_initial_model, &
             abs_e01_tolerance_for_create_initial_model, &
-            abs_e02_tolerance_for_create_initial_model, &            
+            abs_e02_tolerance_for_create_initial_model, &
             initial_zfracs, dump_missing_metals_into_heaviest, change_net, new_net_name, &
             initial_model_relax_num_steps, initial_model_eps, ierr)
          use init, only: create_initial_model
@@ -460,7 +459,7 @@ subroutine star_create_initial_model(id, &
          s% abs_e01_tolerance_for_create_initial_model = &
             abs_e01_tolerance_for_create_initial_model
          s% abs_e02_tolerance_for_create_initial_model = &
-            abs_e02_tolerance_for_create_initial_model         
+            abs_e02_tolerance_for_create_initial_model
          s% initial_zfracs_for_create_initial_model = initial_zfracs
          s% initial_model_relax_num_steps = initial_model_relax_num_steps
          s% initial_model_eps = initial_model_eps
@@ -483,42 +482,42 @@ subroutine star_load_restart_photo(id, restart_filename, ierr)
          use init, only: load_restart_photo
          integer, intent(in) :: id
          character (len=*), intent(in) :: restart_filename
-         integer, intent(out) :: ierr      
-         call load_restart_photo(id, restart_filename, ierr)      
+         integer, intent(out) :: ierr
+         call load_restart_photo(id, restart_filename, ierr)
       end subroutine star_load_restart_photo
-      
-      
+
+
       subroutine star_write_model(id, filename, ierr)
          use write_model, only: do_write_model
          integer, intent(in) :: id
          character (len=*), intent(in) :: filename
          integer, intent(out) :: ierr
-         call do_write_model(id, filename, ierr)      
+         call do_write_model(id, filename, ierr)
       end subroutine star_write_model
-      
-      
+
+
       subroutine star_write_photo(id, fname, ierr)
          use evolve_support, only: output, output_to_file
          integer, intent(in) :: id
          character (len=*), intent(in) :: fname
          integer, intent(out) :: ierr
          if (len_trim(fname) == 0) then
-            call output(id, ierr)      
+            call output(id, ierr)
          else
-            call output_to_file(fname, id, ierr)      
+            call output_to_file(fname, id, ierr)
          end if
       end subroutine star_write_photo
-      
-      
+
+
       subroutine star_read_model(id, model_fname, ierr)
          use init, only: load_saved_model
          integer, intent(in) :: id
          character (len=*), intent(in) :: model_fname
-         integer, intent(out) :: ierr      
-         call load_saved_model(id, model_fname, ierr)     
+         integer, intent(out) :: ierr
+         call load_saved_model(id, model_fname, ierr)
       end subroutine star_read_model
-      
-      
+
+
       subroutine star_number_from_saved_model(fname, model_number, ierr)
          use read_model, only: do_read_saved_model_number
          character (len=*), intent(in) :: fname ! filename for the saved model
@@ -527,8 +526,8 @@ subroutine star_number_from_saved_model(fname, model_number, ierr)
          integer, intent(out) :: ierr
          call do_read_saved_model_number(fname, model_number, ierr)
       end subroutine star_number_from_saved_model
-      
-      
+
+
       subroutine star_age_from_saved_model(fname, star_age, ierr)
          use read_model, only: do_read_saved_model_age
          character (len=*), intent(in) :: fname ! filename for the saved model
@@ -537,14 +536,14 @@ subroutine star_age_from_saved_model(fname, star_age, ierr)
          integer, intent(out) :: ierr
          call do_read_saved_model_age(fname, star_age, ierr)
       end subroutine star_age_from_saved_model
+
       
-      
-      
-            
+
+
       ! after you've created a starting model, you're ready to evolve it.
       ! this process is done one step at a time by calling star_evolve_step.
-      
-      
+
+
       ! this routine takes one step in the evolution.
       ! when it returns successfully (i.e, with value = keep_going), the data
       ! describing the new model can be found in the variables defined in star_def.
@@ -558,7 +557,7 @@ integer function star_evolve_step(id, first_try)
             ! false if this is a repeat for a retry
          type (star_info), pointer :: s
          integer :: ierr
-         integer(8) :: time0, clock_rate
+         integer(8) :: time0
          real(dp) :: total
          star_evolve_step = terminate
          ierr = 0
@@ -568,7 +567,7 @@ integer function star_evolve_step(id, first_try)
          star_evolve_step = star_evolve_step_part1(id, first_try)
          if (star_evolve_step == keep_going) &
             star_evolve_step = star_evolve_step_part2(id, first_try)
-         if (s% doing_timing) call update_time(s, time0, total, s% time_evolve_step)         
+         if (s% doing_timing) call update_time(s, time0, total, s% time_evolve_step)
       end function star_evolve_step
 
       ! individual functions to evolve each of the parts of star_evolve_step
@@ -599,12 +598,12 @@ integer function star_evolve_step_part2(id, first_try)
          if (ierr /= 0) return
          star_evolve_step_part2 = do_evolve_step_part2(id, first_try)
       end function star_evolve_step_part2
-      
-      
+
+
       ! once the step is completed, call the following routines to check the
       ! new model and pick the next timestep.
-      
-      
+
+
       ! this is the standard routine for checking the model after each step.
       ! it takes care of things such as writing logs and profiles.
       integer function star_check_model(id)
@@ -613,8 +612,8 @@ integer function star_check_model(id)
          integer, intent(in) :: id
          star_check_model = do_one_check_model(id)
       end function star_check_model
-      
-      
+
+
       ! this is the standard routine for checking if have reached some limit
       ! such as max_age, max_model_number, psi_center_limit, h1_center_limit, etc.
       integer function star_check_limits(id)
@@ -623,8 +622,8 @@ integer function star_check_limits(id)
          integer, intent(in) :: id
          star_check_limits = do_check_limits(id)
       end function star_check_limits
-      
-      
+
+
       ! this routine inspects the new model and picks a new timestep.
       ! if it decides that the changes in the new model are too great, 
       integer function star_pick_next_timestep(id)
@@ -633,8 +632,8 @@ integer function star_pick_next_timestep(id)
          integer, intent(in) :: id
          star_pick_next_timestep = pick_next_timestep(id)
       end function star_pick_next_timestep
-      
-      
+
+
       ! at the end of a successful step, call this routine to take care of
       ! things such as writing log files or saving a "snapshot" for restarts.
       integer function star_finish_step(id, ierr)
@@ -645,7 +644,7 @@ integer function star_finish_step(id, ierr)
          star_finish_step = finish_step(id, ierr)
       end function star_finish_step
 
-      
+
       ! this routine needs to be called before you do a redo.
       integer function star_prepare_to_redo(id)
          ! returns either keep_going, retry, or terminate.
@@ -653,12 +652,12 @@ integer function star_prepare_to_redo(id)
          integer, intent(in) :: id
          star_prepare_to_redo = prepare_to_redo(id)
       end function star_prepare_to_redo
-      
-      
+
+
       ! once in a while an attempted step will fail, and you'll need to retry it 
       ! with a smaller timestep or resort to backing up to a previous model.
-      
-      
+
+
       ! this routine needs to be called before you do a retry.
       integer function star_prepare_to_retry(id)
          ! returns either keep_going, or terminate.
@@ -669,7 +668,7 @@ end function star_prepare_to_retry
 
       ! typically, after the namelist controls file has been read by the star setup routine, 
       ! you won't need to do anything else with it.   But in case you want
-      ! to read or write a control file at other times, here are the routines to do it.      
+      ! to read or write a control file at other times, here are the routines to do it.
       subroutine star_read_controls(id, filename, ierr)
          use ctrls_io, only: read_controls
          integer, intent(in) :: id
@@ -677,8 +676,8 @@ subroutine star_read_controls(id, filename, ierr)
          integer, intent(out) :: ierr
          call read_controls(id, filename, ierr)
       end subroutine star_read_controls
-            
-      
+
+
       subroutine star_write_controls(id, filename, ierr)
          use ctrls_io, only: write_controls
          integer, intent(in) :: id
@@ -699,10 +698,10 @@ subroutine star_build_atm(s, L, R, Teff, M, cgrav, ierr)
          call build_atm(s, L, R, Teff, M, cgrav, ierr)
        end subroutine star_build_atm
 
-      
+
       ! normally, "snapshots" for restarts will be saved automatically according
       ! to the value of the photo_interval parameter.  but if you want to 
-      ! do it yourself, you can call the following routine.      
+      ! do it yourself, you can call the following routine.
       subroutine star_save_for_restart(id, filename, ierr)
          use evolve_support, only: output_to_file
          integer, intent(in) :: id
@@ -710,14 +709,14 @@ subroutine star_save_for_restart(id, filename, ierr)
          integer, intent(out) :: ierr
          call output_to_file(filename, id, ierr)
       end subroutine star_save_for_restart
-      
-      
+
+
       integer function num_standard_history_columns(s) ! not inluding any extra columns
          type (star_info), pointer :: s
          num_standard_history_columns = size(s% history_column_spec, dim=1)
       end function num_standard_history_columns
-      
-      
+
+
       ! set "history info" in star data
       subroutine get_data_for_history_columns(s, &
             ierr)
@@ -728,15 +727,15 @@ subroutine get_data_for_history_columns(s, &
             s, &
             ierr)
       end subroutine get_data_for_history_columns
-      
-      
+
+
       integer function num_standard_profile_columns(s) ! not inluding extra profile columns
          use profile, only: do_get_num_standard_profile_columns
          type (star_info), pointer :: s
          num_standard_profile_columns = do_get_num_standard_profile_columns(s)
       end function num_standard_profile_columns
-      
-      
+
+
       subroutine get_data_for_profile_columns(s, &
             nz, names, vals, is_int, ierr)
          use profile, only: do_get_data_for_profile_columns
@@ -744,7 +743,7 @@ subroutine get_data_for_profile_columns(s, &
          integer, intent(in) :: nz
          ! note: it is the caller's job to allocate names and vals before calling
          ! and deallocate them when done.
-         ! see num_standard_profile_columns function  
+         ! see num_standard_profile_columns function
          character (len=maxlen_profile_column_name), pointer :: names(:) ! (num_columns)
          real(dp), pointer :: vals(:,:) ! (nz,num_columns)
          logical, pointer :: is_int(:) ! (num_columns) true iff the values in the column are integers
@@ -752,9 +751,9 @@ subroutine get_data_for_profile_columns(s, &
          call do_get_data_for_profile_columns(s, nz, &
             names, vals, is_int, ierr)
       end subroutine get_data_for_profile_columns
+
       
-      
-      
+
       ! you may want to have some data automatically saved and restored along with
       ! the rest of the information in a snapshot.  you can do it by using the following routines.
       ! for example, you can check the model_number after star_load returns to see if you
@@ -776,8 +775,8 @@ subroutine star_alloc_extras(id, len_extra_iwork, len_extra_work, ierr)
          integer, intent(out) :: ierr
          call alloc_extras(id, len_extra_iwork, len_extra_work, ierr)
       end subroutine star_alloc_extras
-      
-      
+
+
       ! if for some reason, you're no longer interested in having extra arrays, you can call this.
       ! it is called automatically when you call free_star, so for normal use, you don't need to
       ! worry about deallocating extra arrays when you are finished with a star.
@@ -790,8 +789,8 @@ subroutine star_dealloc_extras(id)
          if (ierr /= 0) return
          call dealloc_extras(s)
       end subroutine star_dealloc_extras
-      
-      
+
+
       subroutine star_set_age(id, age, ierr)
          use evolve, only: set_age
          integer, intent(in) :: id
@@ -799,8 +798,8 @@ subroutine star_set_age(id, age, ierr)
          integer, intent(out) :: ierr
          call set_age(id, age, ierr)
       end subroutine star_set_age
-      
-      
+
+
       ! this routine is for changing use of Rayleigh-Taylor instabilities.
       ! simply changes variables; doesn't reconverge the model.
       subroutine star_set_RTI_flag(id, RTI_flag, ierr)
@@ -850,7 +849,7 @@ subroutine star_set_RSP_flag(id, RSP_flag, ierr)
          call set_RSP_flag(id, RSP_flag, ierr)
       end subroutine star_set_RSP_flag
 
-      
+
       subroutine star_set_D_omega_flag(id, D_omega_flag, ierr)
          use set_flags, only: set_D_omega_flag
          integer, intent(in) :: id
@@ -858,8 +857,8 @@ subroutine star_set_D_omega_flag(id, D_omega_flag, ierr)
          integer, intent(out) :: ierr
          call set_D_omega_flag(id, D_omega_flag, ierr)
       end subroutine star_set_D_omega_flag
-      
-      
+
+
       subroutine star_set_am_nu_rot_flag(id, am_nu_rot_flag, ierr)
          use set_flags, only: set_am_nu_rot_flag
          integer, intent(in) :: id
@@ -868,7 +867,7 @@ subroutine star_set_am_nu_rot_flag(id, am_nu_rot_flag, ierr)
          call set_am_nu_rot_flag(id, am_nu_rot_flag, ierr)
       end subroutine star_set_am_nu_rot_flag
 
-      
+
       ! this routine is for adding or removing velocity variables.
       ! simply adds or removes; doesn't reconverge the model.
       subroutine star_set_v_flag(id, v_flag, ierr)
@@ -879,7 +878,7 @@ subroutine star_set_v_flag(id, v_flag, ierr)
          call set_v_flag(id, v_flag, ierr)
       end subroutine star_set_v_flag
 
-      
+
       ! this routine is for adding or removing velocity variables.
       ! simply adds or removes; doesn't reconverge the model.
       subroutine star_set_u_flag(id, u_flag, ierr)
@@ -889,8 +888,8 @@ subroutine star_set_u_flag(id, u_flag, ierr)
          integer, intent(out) :: ierr
          call set_u_flag(id, u_flag, ierr)
       end subroutine star_set_u_flag
-      
-      
+
+
       ! this routine is for adding or removing rotation variables.
       ! simply adds or removes; doesn't reconverge the model.
       subroutine star_set_rotation_flag(id, rotation_flag, ierr)
@@ -914,11 +913,11 @@ subroutine star_set_rotation_flag(id, rotation_flag, ierr)
             call set_rotation_info(s, .false., ierr)
          end if
       end subroutine star_set_rotation_flag
-      
-      
+
+
       ! you can change the nuclear net at the start or between steps
       ! added species are given initial abundances based on solar scaled by initial_z
-      
+
       subroutine star_change_to_new_net( &
             id, adjust_abundances_for_new_isos, new_net_name, ierr)
          use adjust_xyz, only: change_net
@@ -930,7 +929,7 @@ subroutine star_change_to_new_net( &
             id, adjust_abundances_for_new_isos, new_net_name, ierr)
       end subroutine star_change_to_new_net
 
-      
+
       subroutine star_change_to_new_small_net( &
             id, adjust_abundances_for_new_isos, new_small_net_name, ierr)
          use adjust_xyz, only: change_small_net
@@ -941,8 +940,8 @@ subroutine star_change_to_new_small_net( &
          call change_small_net( &
             id, adjust_abundances_for_new_isos, new_small_net_name, ierr)
       end subroutine star_change_to_new_small_net
-      
-      
+
+
       ! Heger-style adaptive network (Woosley, Heger, et al, ApJSS, 151:75-102, 2004)
       subroutine star_adjust_net(id, &
             min_x_for_keep, min_x_for_n, min_x_for_add, max_Z, max_N, max_A, ierr)
@@ -958,8 +957,8 @@ subroutine star_adjust_net(id, &
             min_x_for_keep, min_x_for_n, min_x_for_add, &
             max_Z, max_N, max_A, ierr)
       end subroutine star_adjust_net
-            
-      
+
+
       logical function is_included_in_net(id, species, ierr)
          integer, intent(in) :: id
          integer, intent(in) :: species ! a chem_id such as ihe3.  see chem_def.
@@ -972,11 +971,11 @@ logical function is_included_in_net(id, species, ierr)
          end if
          is_included_in_net = (s% net_iso(species) /= 0)
       end function is_included_in_net
-            
-      
+
+
       ! here are some routines for doing special adjustments to the star's composition
 
-      
+
       ! set uniform composition with one of the standard metal z fractions from chem_def
       subroutine star_set_standard_composition(id, h1, h2, he3, he4, &
             which_zfracs, dump_missing_metals_into_heaviest, ierr)
@@ -1011,8 +1010,8 @@ subroutine star_set_uniform_composition(id, species, xa, ierr)
          integer, intent(out) :: ierr
          call set_uniform_composition(id, species, xa, ierr)
       end subroutine star_set_uniform_composition
-      
-      
+
+
       subroutine star_set_composition(id, species, xa, ierr)
          use adjust_xyz, only: set_composition
          integer, intent(in) :: id
@@ -1024,8 +1023,8 @@ subroutine star_set_composition(id, species, xa, ierr)
          if (ierr /= 0) return
          call set_composition(id, 1, s% nz, species, xa, ierr)
       end subroutine star_set_composition
-      
-      
+
+
       subroutine set_composition_in_section(id, nzlo, nzhi, species, xa, ierr)
          use adjust_xyz, only: set_composition
          integer, intent(in) :: id
@@ -1035,8 +1034,8 @@ subroutine set_composition_in_section(id, nzlo, nzhi, species, xa, ierr)
          integer, intent(out) :: ierr
          call set_composition(id, nzlo, nzhi, species, xa, ierr)
       end subroutine set_composition_in_section
-      
-      
+
+
       subroutine change_to_xa_for_accretion(id, nzlo, nzhi, ierr)
          use adjust_xyz, only: do_change_to_xa_for_accretion
          integer, intent(in) :: id
@@ -1044,8 +1043,8 @@ subroutine change_to_xa_for_accretion(id, nzlo, nzhi, ierr)
          integer, intent(out) :: ierr
          call do_change_to_xa_for_accretion(id, nzlo, nzhi, ierr)
       end subroutine change_to_xa_for_accretion
-      
-      
+
+
       subroutine star_set_abundance_ratio(id, i1, i2, ratio, ierr)
          use adjust_xyz, only: set_abundance_ratio
          integer, intent(in) :: id
@@ -1057,8 +1056,8 @@ subroutine star_set_abundance_ratio(id, i1, i2, ratio, ierr)
          if (ierr /= 0) return
          call set_abundance_ratio(id, i1, i2, ratio, 1, s% nz, ierr)
       end subroutine star_set_abundance_ratio
-      
-      
+
+
       subroutine set_abundance_ratio_in_section(id, i1, i2, ratio, nzlo, nzhi, ierr)
          use adjust_xyz, only: set_abundance_ratio
          integer, intent(in) :: id
@@ -1068,16 +1067,16 @@ subroutine set_abundance_ratio_in_section(id, i1, i2, ratio, nzlo, nzhi, ierr)
          integer, intent(out) :: ierr
          call set_abundance_ratio(id, i1, i2, ratio, nzlo, nzhi, ierr)
       end subroutine set_abundance_ratio_in_section
-      
-      
+
+
       subroutine star_zero_alpha_RTI(id, ierr)
          use star_utils, only: set_zero_alpha_RTI
          integer, intent(in) :: id
          integer, intent(out) :: ierr
          call set_zero_alpha_RTI(id, ierr)
       end subroutine star_zero_alpha_RTI
-      
-      
+
+
       subroutine star_set_y(id, y, ierr)
          ! changes abundances of h1 and he4 only
          ! adjust ratio of h1 to he4 to be (1-y-z)/y at each point
@@ -1090,8 +1089,8 @@ subroutine star_set_y(id, y, ierr)
          if (ierr /= 0) return
          call set_y(s, y, 1, s% nz, ierr)
       end subroutine star_set_y
-      
-      
+
+
       subroutine set_y_in_section(id, y, nzlo, nzhi, ierr)
          ! change abundances of h1 and he4
          use adjust_xyz, only: set_y
@@ -1104,8 +1103,8 @@ subroutine set_y_in_section(id, y, nzlo, nzhi, ierr)
          if (ierr /= 0) return
          call set_y(s, y, nzlo, nzhi, ierr)
       end subroutine set_y_in_section
-      
-      
+
+
       subroutine star_set_z(id, new_z, ierr)
          ! NOTE: this routine simply changes abundances; it doesn't reconverge the model.
          ! to make large changes in z, you'll need to spread it out over a number of steps
@@ -1119,8 +1118,8 @@ subroutine star_set_z(id, new_z, ierr)
          if (ierr /= 0) return
          call set_z(s, new_z, 1, s% nz, ierr)
       end subroutine star_set_z
-      
-      
+
+
       subroutine set_z_in_section(id, new_z, nzlo, nzhi, ierr)
          ! NOTE: this routine simply changes abundances; it doesn't reconverge the model.
          ! to make large changes in z, you'll need to spread it out over a number of steps
@@ -1136,8 +1135,8 @@ subroutine set_z_in_section(id, new_z, nzlo, nzhi, ierr)
          if (ierr /= 0) return
          call set_z(s, new_z, nzlo, nzhi, ierr)
       end subroutine set_z_in_section
-      
-      
+
+
       subroutine star_replace_element(id, chem1, chem2, ierr)
          ! replaces chem1 by chem2.
          ! NOTE: this routine simply changes abundances; it doesn't reconverge the model.
@@ -1149,8 +1148,8 @@ subroutine star_replace_element(id, chem1, chem2, ierr)
          if (ierr /= 0) return
          call replace_element_in_section(id, chem1, chem2, 1, s% nz, ierr)
       end subroutine star_replace_element
-      
-      
+
+
       subroutine replace_element_in_section(id, chem1, chem2, nzlo, nzhi, ierr)
          ! replaces chem1 by chem2.
          ! NOTE: this routine simply changes abundances; it doesn't reconverge the model.
@@ -1164,8 +1163,8 @@ subroutine replace_element_in_section(id, chem1, chem2, nzlo, nzhi, ierr)
          if (ierr /= 0) return
          call do_replace(s, chem1, chem2, nzlo, nzhi, ierr)
       end subroutine replace_element_in_section
-      
-      
+
+
       subroutine star_set_abundance(id, chem_id, new_frac, ierr)
          ! set mass fraction of species to new_frac uniformly in cells nzlo to nzhi
          ! 
@@ -1179,8 +1178,8 @@ subroutine star_set_abundance(id, chem_id, new_frac, ierr)
          if (ierr /= 0) return
          call set_abundance_in_section(id, chem_id, new_frac, 1, s% nz, ierr)
       end subroutine star_set_abundance
-      
-      
+
+
       subroutine set_abundance_in_section(id, chem_id, new_frac, nzlo, nzhi, ierr)
          ! set mass fraction of species to new_frac uniformly in cells nzlo to nzhi
          ! NOTE: this routine simply changes abundances; it doesn't reconverge the model.
@@ -1195,8 +1194,8 @@ subroutine set_abundance_in_section(id, chem_id, new_frac, nzlo, nzhi, ierr)
          if (ierr /= 0) return
          call do_set_abundance(s, chem_id, new_frac, nzlo, nzhi, ierr)
       end subroutine set_abundance_in_section
-      
-      
+
+
       subroutine uniform_mix_section(id, nzlo, nzhi, ierr)
          ! uniformly mix abundances in cells nzlo to nzhi
          ! NOTE: this routine simply changes abundances; it doesn't reconverge the model.
@@ -1210,8 +1209,8 @@ subroutine uniform_mix_section(id, nzlo, nzhi, ierr)
          if (ierr /= 0) return
          call do_uniform_mix_section(s, s% species, nzlo, nzhi, ierr)
       end subroutine uniform_mix_section
-      
-      
+
+
       subroutine uniform_mix_envelope_down_to_T(id, T, ierr)
          ! uniformly mix abundances in cells from surface down to given temperature
          ! NOTE: this routine simply changes abundances; it doesn't reconverge the model.
@@ -1228,13 +1227,13 @@ end subroutine uniform_mix_envelope_down_to_T
 
  
       ! access to the value of the next timestep
-      
+
       subroutine get_dt_next(id, dt, ierr)
          use star_private_def
          integer, intent(in) :: id
          real(dp) , intent(out) :: dt
          integer, intent(out) :: ierr
-         type (star_info), pointer :: s         
+         type (star_info), pointer :: s
          call star_ptr(id, s, ierr)
          if (ierr /= 0) then
             dt = -1
@@ -1242,14 +1241,14 @@ subroutine get_dt_next(id, dt, ierr)
          end if
          dt = s% dt_next
       end subroutine get_dt_next
-      
-      
+
+
       subroutine set_dt_next(id, dt, ierr)
          use star_private_def
          integer, intent(in) :: id
          real(dp), intent(in) :: dt
          integer, intent(out) :: ierr
-         type (star_info), pointer :: s         
+         type (star_info), pointer :: s
          call star_ptr(id, s, ierr)
          if (ierr /= 0) return
          s% dt_next = dt
@@ -1258,7 +1257,7 @@ end subroutine set_dt_next
 
 
       ! relaxation routines (for "pseudo-evolution" of the model)
-      
+
       subroutine star_relax_mass(id, new_mass, lg_max_abs_mdot, ierr) ! also resets initial_mass
          ! acts like accretion or wind to change star mass
          use relax, only: do_relax_mass
@@ -1267,10 +1266,10 @@ subroutine star_relax_mass(id, new_mass, lg_max_abs_mdot, ierr) ! also resets in
          real(dp), intent(in) :: lg_max_abs_mdot ! in log10(Msun/year)
             ! e.g., -8.0 for mdot of -10^-8 Msun/year
          integer, intent(out) :: ierr
-         call do_relax_mass(id, new_mass, lg_max_abs_mdot, ierr)      
+         call do_relax_mass(id, new_mass, lg_max_abs_mdot, ierr)
       end subroutine star_relax_mass
-      
-      
+
+
       subroutine star_relax_mass_to_remove_H_env( &
             id, extra_mass, lg_max_abs_mdot, ierr) ! also resets initial_mass
          use relax, only: do_relax_mass
@@ -1286,10 +1285,10 @@ subroutine star_relax_mass_to_remove_H_env( &
          if (ierr /= 0) return
          call get_mass_info(s, s% dm, ierr)
          if (ierr /= 0) return
-         call do_relax_mass(id, s% he_core_mass + extra_mass, lg_max_abs_mdot, ierr)      
+         call do_relax_mass(id, s% he_core_mass + extra_mass, lg_max_abs_mdot, ierr)
       end subroutine star_relax_mass_to_remove_H_env
-      
-      
+
+
       subroutine star_relax_mass_scale( &
             id, new_mass, dlgm_per_step, change_mass_years_for_dt, ierr) ! also resets initial_mass
          ! rescales star mass without changing composition as function of m/mstar
@@ -1299,10 +1298,10 @@ subroutine star_relax_mass_scale( &
          real(dp), intent(in) :: dlgm_per_step, change_mass_years_for_dt
          integer, intent(out) :: ierr
          call do_relax_mass_scale( &
-            id, new_mass, dlgm_per_step, change_mass_years_for_dt, ierr)      
+            id, new_mass, dlgm_per_step, change_mass_years_for_dt, ierr)
       end subroutine star_relax_mass_scale
-      
-      
+
+
       subroutine star_relax_core( &
             id, new_core_mass, dlg_core_mass_per_step, &
             relax_core_years_for_dt, core_avg_rho, core_avg_eps, ierr)
@@ -1316,10 +1315,10 @@ subroutine star_relax_core( &
          integer, intent(out) :: ierr
          call do_relax_core( &
             id, new_core_mass, dlg_core_mass_per_step, &
-            relax_core_years_for_dt, core_avg_rho, core_avg_eps, ierr)      
+            relax_core_years_for_dt, core_avg_rho, core_avg_eps, ierr)
       end subroutine star_relax_core
-      
-      
+
+
       subroutine star_relax_M_center( &
             id, new_mass, dlgm_per_step, relax_M_center_dt, ierr)
          use relax, only: do_relax_M_center
@@ -1328,10 +1327,10 @@ subroutine star_relax_M_center( &
          real(dp), intent(in) :: dlgm_per_step, relax_M_center_dt
          integer, intent(out) :: ierr
          call do_relax_M_center( &
-            id, new_mass, dlgm_per_step, relax_M_center_dt, ierr)      
+            id, new_mass, dlgm_per_step, relax_M_center_dt, ierr)
       end subroutine star_relax_M_center
-      
-      
+
+
       subroutine star_relax_R_center( &
             id, new_R_center, dlgR_per_step, relax_R_center_dt, ierr)
          use relax, only: do_relax_R_center
@@ -1340,10 +1339,10 @@ subroutine star_relax_R_center( &
          real(dp), intent(in) :: dlgR_per_step, relax_R_center_dt
          integer, intent(out) :: ierr
          call do_relax_R_center( &
-            id, new_R_center, dlgR_per_step, relax_R_center_dt, ierr)      
+            id, new_R_center, dlgR_per_step, relax_R_center_dt, ierr)
       end subroutine star_relax_R_center
-      
-      
+
+
       subroutine star_relax_v_center( &
             id, new_v_center, dv_per_step, relax_v_center_dt, ierr)
          use relax, only: do_relax_v_center
@@ -1352,10 +1351,10 @@ subroutine star_relax_v_center( &
          real(dp), intent(in) :: dv_per_step, relax_v_center_dt
          integer, intent(out) :: ierr
          call do_relax_v_center( &
-            id, new_v_center, dv_per_step, relax_v_center_dt, ierr)      
+            id, new_v_center, dv_per_step, relax_v_center_dt, ierr)
       end subroutine star_relax_v_center
-      
-      
+
+
       subroutine star_relax_L_center( &
             id, new_L_center, dlgL_per_step, relax_L_center_dt, ierr)
          use relax, only: do_relax_L_center
@@ -1364,50 +1363,50 @@ subroutine star_relax_L_center( &
          real(dp), intent(in) :: dlgL_per_step, relax_L_center_dt
          integer, intent(out) :: ierr
          call do_relax_L_center( &
-            id, new_L_center, dlgL_per_step, relax_L_center_dt, ierr)      
+            id, new_L_center, dlgL_per_step, relax_L_center_dt, ierr)
       end subroutine star_relax_L_center
-      
-      
+
+
       subroutine star_relax_dxdt_nuc_factor(id, new_value, per_step_multiplier, ierr)
          use relax, only: do_relax_dxdt_nuc_factor
          integer, intent(in) :: id
          real(dp), intent(in) :: new_value
          real(dp), intent(in) :: per_step_multiplier
          integer, intent(out) :: ierr
-         call do_relax_dxdt_nuc_factor(id, new_value, per_step_multiplier, ierr)      
+         call do_relax_dxdt_nuc_factor(id, new_value, per_step_multiplier, ierr)
       end subroutine star_relax_dxdt_nuc_factor
-      
-      
+
+
       subroutine star_relax_eps_nuc_factor(id, new_value, per_step_multiplier, ierr)
          use relax, only: do_relax_eps_nuc_factor
          integer, intent(in) :: id
          real(dp), intent(in) :: new_value
          real(dp), intent(in) :: per_step_multiplier
          integer, intent(out) :: ierr
-         call do_relax_eps_nuc_factor(id, new_value, per_step_multiplier, ierr)      
+         call do_relax_eps_nuc_factor(id, new_value, per_step_multiplier, ierr)
       end subroutine star_relax_eps_nuc_factor
-      
-      
+
+
       subroutine star_relax_opacity_max(id, new_value, per_step_multiplier, ierr)
          use relax, only: do_relax_opacity_max
          integer, intent(in) :: id
          real(dp), intent(in) :: new_value
          real(dp), intent(in) :: per_step_multiplier
          integer, intent(out) :: ierr
-         call do_relax_opacity_max(id, new_value, per_step_multiplier, ierr)      
+         call do_relax_opacity_max(id, new_value, per_step_multiplier, ierr)
       end subroutine star_relax_opacity_max
-      
-      
+
+
       subroutine star_relax_max_surf_dq(id, new_value, per_step_multiplier, ierr)
          use relax, only: do_relax_max_surf_dq
          integer, intent(in) :: id
          real(dp), intent(in) :: new_value
          real(dp), intent(in) :: per_step_multiplier
          integer, intent(out) :: ierr
-         call do_relax_max_surf_dq(id, new_value, per_step_multiplier, ierr)      
+         call do_relax_max_surf_dq(id, new_value, per_step_multiplier, ierr)
       end subroutine star_relax_max_surf_dq
-      
-      
+
+
       subroutine star_relax_composition( &
             id, num_steps_to_use, num_pts, species, xa, xq, ierr)
          ! with normal composition changes turned off,
@@ -1426,7 +1425,7 @@ subroutine star_relax_composition( &
          integer, intent(out) :: ierr
          call do_relax_composition(id, num_steps_to_use, num_pts, species, xa, xq, ierr) 
       end subroutine star_relax_composition
-      
+
       subroutine star_relax_angular_momentum( &
             id, max_steps_to_use, num_pts, angular_momentum, xq, ierr)
          ! with normal composition changes turned off,
@@ -1443,7 +1442,7 @@ subroutine star_relax_angular_momentum( &
          integer, intent(out) :: ierr
          call do_relax_angular_momentum(id, max_steps_to_use, num_pts, angular_momentum, xq, ierr) 
       end subroutine star_relax_angular_momentum
-      
+
       subroutine star_relax_entropy( &
             id, max_steps_to_use, num_pts, entropy, xq, ierr)
          ! with normal composition changes turned off,
@@ -1460,7 +1459,7 @@ subroutine star_relax_entropy( &
          integer, intent(out) :: ierr
          call do_relax_entropy(id, max_steps_to_use, num_pts, entropy, xq, ierr) 
       end subroutine star_relax_entropy
-      
+
       subroutine star_relax_to_xaccrete(id, num_steps_to_use, ierr)
          ! with normal composition changes turned off,
          ! incrementally revise composition to get uniform match to current accretion specs
@@ -1471,7 +1470,7 @@ subroutine star_relax_to_xaccrete(id, num_steps_to_use, ierr)
          call do_relax_to_xaccrete(id, num_steps_to_use, ierr) 
       end subroutine star_relax_to_xaccrete
 
-      
+
       subroutine star_relax_Y(id, new_Y, dY, minq, maxq, ierr) ! also resets initial_y
          use relax, only: do_relax_Y
          integer, intent(in) :: id
@@ -1479,10 +1478,10 @@ subroutine star_relax_Y(id, new_Y, dY, minq, maxq, ierr) ! also resets initial_y
          real(dp), intent(in) :: dY ! change Y by this amount per step
          real(dp), intent(in) :: minq, maxq ! change in this q range
          integer, intent(out) :: ierr
-         call do_relax_Y(id, new_Y, dY, minq, maxq, ierr)      
+         call do_relax_Y(id, new_Y, dY, minq, maxq, ierr)
       end subroutine star_relax_Y
 
-      
+
       subroutine star_relax_Z(id, new_z, dlnz, minq, maxq, ierr) ! also resets initial_z
          use relax, only: do_relax_Z
          integer, intent(in) :: id
@@ -1490,10 +1489,10 @@ subroutine star_relax_Z(id, new_z, dlnz, minq, maxq, ierr) ! also resets initial
          real(dp), intent(in) :: dlnz ! change lnz by this amount per step
          real(dp), intent(in) :: minq, maxq ! change in this q range
          integer, intent(out) :: ierr
-         call do_relax_Z(id, new_z, dlnz, minq, maxq, ierr)      
+         call do_relax_Z(id, new_z, dlnz, minq, maxq, ierr)
       end subroutine star_relax_Z
 
-      
+
       ! the optical depth of the outermost cell is tau_factor*tau_photosphere
       ! for normal hydrostatic stellar evolution, tau_factor = 1
       ! but in general, the limits are 0 < tau_factor <= 1,
@@ -1505,10 +1504,10 @@ subroutine star_relax_tau_factor(id, new_tau_factor, dlogtau_factor, ierr)
          real(dp), intent(in) :: dlogtau_factor
             ! change log10(tau_factor) by at most this amount per step
          integer, intent(out) :: ierr
-         call do_relax_tau_factor(id, new_tau_factor, dlogtau_factor, ierr)      
+         call do_relax_tau_factor(id, new_tau_factor, dlogtau_factor, ierr)
       end subroutine star_relax_tau_factor      
 
-      
+
       ! for normal stellar evolution, opacity_factor = 1
       ! but for post-breakout CCSN, the expansion effects can be approximated by increasing kap.
       subroutine star_relax_opacity_factor(id, new_opacity_factor, dopacity_factor, ierr)
@@ -1518,10 +1517,10 @@ subroutine star_relax_opacity_factor(id, new_opacity_factor, dopacity_factor, ie
          real(dp), intent(in) :: dopacity_factor
             ! change opacity_factor by at most this amount per step
          integer, intent(out) :: ierr
-         call do_relax_opacity_factor(id, new_opacity_factor, dopacity_factor, ierr)      
+         call do_relax_opacity_factor(id, new_opacity_factor, dopacity_factor, ierr)
       end subroutine star_relax_opacity_factor      
 
-      
+
       subroutine star_relax_Tsurf_factor(id, new_Tsurf_factor, dlogTsurf_factor, ierr)
          use relax, only: do_relax_Tsurf_factor
          integer, intent(in) :: id
@@ -1529,10 +1528,10 @@ subroutine star_relax_Tsurf_factor(id, new_Tsurf_factor, dlogTsurf_factor, ierr)
          real(dp), intent(in) :: dlogTsurf_factor
             ! change log10(Tsurf_factor) by at most this amount per step
          integer, intent(out) :: ierr
-         call do_relax_Tsurf_factor(id, new_Tsurf_factor, dlogTsurf_factor, ierr)      
-      end subroutine star_relax_Tsurf_factor      
-      
+         call do_relax_Tsurf_factor(id, new_Tsurf_factor, dlogTsurf_factor, ierr)
+      end subroutine star_relax_Tsurf_factor
       
+
       ! kind_of_relax = 0 => target = new_omega 
       ! kind_of_relax = 1 => target = new_omega_div_omega_crit 
       ! kind_of_relax = 2 => target = new_surface_rotation_v 
@@ -1545,10 +1544,10 @@ subroutine star_relax_uniform_omega(id, &
          integer, intent(out) :: ierr
          call do_relax_uniform_omega(id, &
             kind_of_relax, target_value, num_steps_to_relax_rotation, &
-            relax_omega_max_yrs_dt, ierr)      
+            relax_omega_max_yrs_dt, ierr)
       end subroutine star_relax_uniform_omega
-      
-      
+
+
       subroutine star_relax_irradiation(id, &
             min_steps, new_irrad_flux, new_irrad_col_depth, &
             relax_irradiation_max_yrs_dt, ierr)
@@ -1558,10 +1557,10 @@ subroutine star_relax_irradiation(id, &
             new_irrad_flux, new_irrad_col_depth, relax_irradiation_max_yrs_dt
          integer, intent(out) :: ierr
          call do_relax_irradiation(id, &
-            min_steps, new_irrad_flux, new_irrad_col_depth, relax_irradiation_max_yrs_dt, ierr)      
+            min_steps, new_irrad_flux, new_irrad_col_depth, relax_irradiation_max_yrs_dt, ierr)
       end subroutine star_relax_irradiation
-      
-      
+
+
       subroutine star_relax_mass_change( &
             id, min_steps, initial_mass_change, final_mass_change, relax_mass_change_max_yrs_dt, ierr)
          use relax, only: do_relax_mass_change
@@ -1569,16 +1568,16 @@ subroutine star_relax_mass_change( &
          real(dp), intent(in) :: initial_mass_change, final_mass_change, relax_mass_change_max_yrs_dt
          integer, intent(out) :: ierr
          call do_relax_mass_change( &
-            id, min_steps, initial_mass_change, final_mass_change, relax_mass_change_max_yrs_dt, ierr)      
+            id, min_steps, initial_mass_change, final_mass_change, relax_mass_change_max_yrs_dt, ierr)
       end subroutine star_relax_mass_change
-      
-      
+
+
       subroutine star_relax_num_steps(id, num_steps, max_timestep, ierr)
          use relax, only: do_relax_num_steps
          integer, intent(in) :: id, num_steps
          real(dp), intent(in) :: max_timestep
          integer, intent(out) :: ierr
-         call do_relax_num_steps(id, num_steps, max_timestep, ierr)      
+         call do_relax_num_steps(id, num_steps, max_timestep, ierr)
       end subroutine star_relax_num_steps
             
 
@@ -1588,10 +1587,10 @@ subroutine star_evolve_to_limit(id, restore_at_end, ierr)
          integer, intent(in) :: id
          logical, intent(in) :: restore_at_end
          integer, intent(out) :: ierr
-         call do_relax_to_limit(id, restore_at_end, ierr)      
+         call do_relax_to_limit(id, restore_at_end, ierr)
       end subroutine star_evolve_to_limit
-      
-      
+
+
       ! evolve until check_model says to stop.
       ! this is intended for use in special "relax to" operations.
       ! for normal evolution, you will probably want to use the ./rn script.
@@ -1641,10 +1640,10 @@ end function finish_model
          integer, intent(out) :: ierr
          call do_internal_evolve( &
             id, before_evolve, adjust_model, check_model, finish_model, &
-            restore_at_end, lipar, ipar, lrpar, rpar, ierr)      
+            restore_at_end, lipar, ipar, lrpar, rpar, ierr)
       end subroutine star_evolve_to_check_point
-      
-      
+
+
       ! I use this sometimes for debugging.
       subroutine star_special_test(id, ierr)
          integer, intent(in) :: id
@@ -1654,11 +1653,11 @@ subroutine star_special_test(id, ierr)
          call star_ptr(id, s, ierr)
          if (ierr /= 0) return
       end subroutine star_special_test
+
       
-      
-      
+
       ! rotation
-      
+
       ! note: this applies to the current model only; 
       ! subsequenct models may evolve away from solid body rotation. 
       subroutine star_set_uniform_omega(id, omega, ierr)
@@ -1669,10 +1668,10 @@ subroutine star_set_uniform_omega(id, omega, ierr)
          call set_uniform_omega(id, omega, ierr)
       end subroutine star_set_uniform_omega
 
-      
+
       ! a few miscellaneous extra routines for special jobs
 
-      
+
       ! call this if you want a description of the terminal log output
       subroutine show_log_description(id, ierr)
          use do_one_utils, only: do_show_log_description
@@ -1680,8 +1679,8 @@ subroutine show_log_description(id, ierr)
          integer, intent(out) :: ierr
          call do_show_log_description(id, ierr)
       end subroutine show_log_description
-      
-      
+
+
       ! write the terminal header lines
       subroutine show_terminal_header(id, ierr)
          use do_one_utils, only: do_show_terminal_header
@@ -1693,8 +1692,8 @@ subroutine show_terminal_header(id, ierr)
          if (ierr /= 0) return
          call do_show_terminal_header(s)
       end subroutine show_terminal_header
-      
-      
+
+
       ! write the terminal summary lines
       subroutine write_terminal_summary(id, ierr)
          use do_one_utils, only: do_terminal_summary
@@ -1726,8 +1725,8 @@ subroutine star_set_power_info(s)
          type (star_info), pointer :: s
          call set_power_info(s)
       end subroutine star_set_power_info
-      
-      
+
+
       subroutine save_profile(id, priority, ierr)
          use profile, only: do_save_profiles
          integer, intent(in) :: id
@@ -1743,8 +1742,8 @@ subroutine save_profile(id, priority, ierr)
          s% save_profiles_model_priority = priority
          call do_save_profiles(s, ierr)
       end subroutine save_profile
-      
-      
+
+
       subroutine star_write_profile_info(id, fname, ierr)
          use profile, only: write_profile_info
          integer, intent(in) :: id
@@ -1757,14 +1756,14 @@ subroutine star_write_profile_info(id, fname, ierr)
          call write_profile_info(s, fname, ierr)
       end subroutine star_write_profile_info
 
-      
+
       subroutine name_for_restart_file(val, photo_digits, num_string)
          integer, intent(in) :: val, photo_digits
          character (len=*), intent(out) :: num_string
          call string_for_model_number('x', val, photo_digits, num_string)
       end subroutine name_for_restart_file
 
-  
+
       subroutine string_for_model_number(prefix, n, num_digits, num_string)
          use star_utils, only: get_string_for_model_number
          character (len=*), intent(in) :: prefix
@@ -1780,8 +1779,8 @@ integer function bare_bones_check_model(id)
          integer, intent(in) :: id
          bare_bones_check_model = do_bare_bones_check_model(id)
       end function bare_bones_check_model
-      
-      
+
+
       ! get a value using the profile column id to specify
       real(dp) function val_for_profile(s, c, k)
          use profile_getval, only: getval_for_profile
@@ -1793,8 +1792,8 @@ real(dp) function val_for_profile(s, c, k)
          call getval_for_profile(s, c, k, val_for_profile, int_flag, int_val)
          if (int_flag) val_for_profile = dble(int_val)
       end function val_for_profile
-      
-      
+
+
       ! get number of zones in current model
       integer function star_zones(id, ierr)
          integer, intent(in) :: id
@@ -1808,7 +1807,7 @@ integer function star_zones(id, ierr)
          star_zones = s% nz
       end function star_zones
 
-      
+
       real(dp) function get_current_y(id, ierr)
          use star_utils, only: eval_current_y
          integer, intent(in) :: id
@@ -1822,7 +1821,7 @@ real(dp) function get_current_y(id, ierr)
          get_current_y = eval_current_y(s, 1, s% nz, ierr)
       end function get_current_y
 
-      
+
       real(dp) function get_current_y_in_section(id, nzlo, nzhi, ierr)
          use star_utils, only: eval_current_y
          integer, intent(in) :: id
@@ -1837,7 +1836,7 @@ real(dp) function get_current_y_in_section(id, nzlo, nzhi, ierr)
          get_current_y_in_section = eval_current_y(s, nzlo, nzhi, ierr)
       end function get_current_y_in_section
 
-      
+
       real(dp) function get_current_y_at_point(id, k, ierr)
          use star_utils, only: eval_current_y
          integer, intent(in) :: id
@@ -1852,7 +1851,7 @@ real(dp) function get_current_y_at_point(id, k, ierr)
          get_current_y_at_point = eval_current_y(s, k, k, ierr)
       end function get_current_y_at_point
 
-      
+
       real(dp) function get_current_z(id, ierr)
          use star_utils, only: eval_current_z
          integer, intent(in) :: id
@@ -1866,7 +1865,7 @@ real(dp) function get_current_z(id, ierr)
          get_current_z = eval_current_z(s, 1, s% nz, ierr)
       end function get_current_z
 
-      
+
       real(dp) function get_current_z_in_section(id, nzlo, nzhi, ierr)
          use star_utils, only: eval_current_z
          integer, intent(in) :: id
@@ -1881,7 +1880,7 @@ real(dp) function get_current_z_in_section(id, nzlo, nzhi, ierr)
          get_current_z_in_section = eval_current_z(s, nzlo, nzhi, ierr)
       end function get_current_z_in_section
 
-      
+
       real(dp) function get_current_z_at_point(id, k, ierr)
          use star_utils, only: eval_current_z
          integer, intent(in) :: id
@@ -1896,7 +1895,7 @@ real(dp) function get_current_z_at_point(id, k, ierr)
          get_current_z_at_point = eval_current_z(s, k, k, ierr)
       end function get_current_z_at_point
 
-      
+
       real(dp) function get_current_abundance(id, iso, ierr)
          ! returns mass fraction for iso
          use star_utils, only: eval_current_abundance
@@ -1913,7 +1912,7 @@ real(dp) function get_current_abundance(id, iso, ierr)
             eval_current_abundance(s, s% net_iso(iso), 1, s% nz, ierr)
       end function get_current_abundance
 
-      
+
       real(dp) function current_abundance_in_section(id, iso, nzlo, nzhi, ierr)
          ! returns mass fraction for iso
          use star_utils, only: eval_current_abundance
@@ -1931,7 +1930,7 @@ real(dp) function current_abundance_in_section(id, iso, nzlo, nzhi, ierr)
             eval_current_abundance(s, s% net_iso(iso), nzlo, nzhi, ierr)
       end function current_abundance_in_section
 
-      
+
       real(dp) function current_abundance_at_point(id, iso, k, ierr)
          ! returns mass fraction for iso
          use star_utils, only: eval_current_abundance
@@ -1941,8 +1940,8 @@ real(dp) function current_abundance_at_point(id, iso, k, ierr)
          integer, intent(out) :: ierr
          current_abundance_at_point = current_abundance_in_section(id, iso, k, k, ierr)
       end function current_abundance_at_point
-      
-      
+
+
       subroutine star_get_XYZ(id, xa, X, Y, Z, ierr)
          use star_utils, only: get_XYZ
          integer, intent(in) :: id
@@ -1962,7 +1961,7 @@ subroutine star_xa_for_standard_metals( &
             h1, h2, he3, he4, which_zfracs, &
             dump_missing_metals_into_heaviest, xa, ierr)
          use adjust_xyz, only: get_xa_for_standard_metals
-         type (star_info), pointer :: s         
+         type (star_info), pointer :: s
          integer, intent(in) :: species, chem_id(:), net_iso(:), which_zfracs
          real(dp), intent(in) :: h1, h2, he3, he4 ! mass fractions
          logical, intent(in) :: dump_missing_metals_into_heaviest
@@ -1973,8 +1972,8 @@ subroutine star_xa_for_standard_metals( &
             h1, h2, he3, he4, which_zfracs, &
             dump_missing_metals_into_heaviest, xa, ierr)
       end subroutine star_xa_for_standard_metals
-      
-      
+
+
       subroutine star_info_at_q(s, q, &
             kbdy, m, r, lgT, lgRho, L, v, &
             lgP, g, X, Y, scale_height, dlnX_dr, dlnY_dr, dlnRho_dr, &
@@ -1992,8 +1991,8 @@ subroutine star_info_at_q(s, q, &
             lgP, g, X, Y, scale_height, dlnX_dr, dlnY_dr, dlnRho_dr, &
             omega, omega_div_omega_crit)
       end subroutine star_info_at_q
-      
-      
+
+
       integer function get_model_number(id, ierr)
          integer, intent(in) :: id
          integer, intent(out) :: ierr
@@ -2005,24 +2004,24 @@ integer function get_model_number(id, ierr)
          end if
          get_model_number = s% model_number
       end function get_model_number
-      
-      
+
+
       logical function check_for_after_He_burn(s, he4_limit)
          use star_utils, only: after_He_burn
-         type (star_info), pointer :: s   
-         real(dp), intent(in) :: he4_limit      
+         type (star_info), pointer :: s
+         real(dp), intent(in) :: he4_limit
          check_for_after_He_burn = after_He_burn(s, he4_limit)
       end function check_for_after_He_burn
-      
-      
+
+
       logical function check_for_after_C_burn(s, c12_limit)
          use star_utils, only: after_C_burn
-         type (star_info), pointer :: s   
-         real(dp), intent(in) :: c12_limit      
+         type (star_info), pointer :: s
+         real(dp), intent(in) :: c12_limit
          check_for_after_C_burn = after_C_burn(s, c12_limit)
       end function check_for_after_C_burn
-      
-      
+
+
       ! intrinsic variables like T, Rho, kap, etc. are cell averages
       ! this routine returns an interpolated value at outer boundary of cell k
       real(dp) function star_interp_val_to_pt(v,k,sz,dq,debug_str)
@@ -2043,8 +2042,8 @@ real(dp) function star_interp_xa_to_pt(xa,j,k,sz,dq,debug_str)
          star_interp_xa_to_pt = interp_xa_to_pt(xa,j,k,sz,dq,debug_str)
       end function star_interp_xa_to_pt
       ! misc routines
-      
-      
+
+
       subroutine star_set_xqs(nz, xq, dq, ierr) ! set xq's using dq's
          use star_utils, only: set_xqs
          integer, intent(in) :: nz
@@ -2053,8 +2052,8 @@ subroutine star_set_xqs(nz, xq, dq, ierr) ! set xq's using dq's
          integer, intent(out) :: ierr
          call set_xqs(nz, xq, dq, ierr)
       end subroutine star_set_xqs
-      
-      
+
+
       subroutine star_get_eos( &
             id, k, xa, &
             Rho, logRho, T, logT, & 
@@ -2079,7 +2078,7 @@ subroutine star_get_eos( &
             res, dres_dlnRho, dres_dlnT, &
             dres_dxa, ierr)
       end subroutine star_get_eos
-      
+
       subroutine star_get_peos( &
             id, k, xa, &
             Pgas, logPgas, T, logT, &
@@ -2097,7 +2096,7 @@ subroutine star_get_peos( &
             res, dres_dlnRho, dres_dlnT
          real(dp), intent(out) :: dres_dxa(:,:)
          integer, intent(out) :: ierr
-         type (star_info), pointer :: s
+         !type (star_info), pointer :: s
          !ierr = 0
          !call star_ptr(id, s, ierr)
          !if (ierr /= 0) return
@@ -2110,7 +2109,7 @@ subroutine star_get_peos( &
          write(*,*) 'star_get_peos no longer supported'
          call mesa_error(__FILE__,__LINE__)
       end subroutine star_get_peos
-      
+
       subroutine star_solve_eos_given_PgasT( &
             id, k, xa, &
             logT, logPgas, logRho_guess, logRho_tol, logPgas_tol, &
@@ -2126,7 +2125,7 @@ subroutine star_solve_eos_given_PgasT( &
          real(dp), intent(out) :: logRho
          real(dp), dimension(num_eos_basic_results), intent(out) :: &
             res, dres_dlnRho, dres_dlnT
-         real(dp), dimension(:,:), intent(out) :: dres_dxa         
+         real(dp), dimension(:,:), intent(out) :: dres_dxa
          integer, intent(out) :: ierr
          type (star_info), pointer :: s
          ierr = 0
@@ -2137,8 +2136,8 @@ subroutine star_solve_eos_given_PgasT( &
             logT, logPgas, logRho_guess, logRho_tol, logPgas_tol, &
             logRho, res, dres_dlnRho, dres_dlnT, dres_dxa, &
             ierr)
-      end subroutine star_solve_eos_given_PgasT      
-      
+      end subroutine star_solve_eos_given_PgasT
+
       subroutine star_solve_eos_given_PgasT_auto( &
             id, k, xa, &
             logT, logPgas, logRho_tol, logPgas_tol, &
@@ -2147,7 +2146,7 @@ subroutine star_solve_eos_given_PgasT_auto( &
          use eos_def, only: num_eos_basic_results, num_eos_d_dxa_results
          use eos_support, only: solve_eos_given_PgasT_auto
          use star_def
-         integer, intent(in) :: id ! id for star         
+         integer, intent(in) :: id ! id for star
          integer, intent(in) :: k ! 0 indicates not for a particular cell.
          real(dp), intent(in) :: &
             xa(:), logT, logPgas, &
@@ -2157,9 +2156,9 @@ subroutine star_solve_eos_given_PgasT_auto( &
             res, dres_dlnRho, dres_dlnT
          real(dp), dimension(:,:), intent(out) :: dres_dxa
          integer, intent(out) :: ierr
-         type (star_info), pointer :: s         
+         type (star_info), pointer :: s
          call star_ptr(id, s, ierr)
-         if (ierr /= 0) return                  
+         if (ierr /= 0) return
          call solve_eos_given_PgasT_auto( &
             s, k, xa, &
             logT, logPgas, logRho_tol, logPgas_tol, &
@@ -2193,7 +2192,7 @@ subroutine star_get_kap( &
             eta, deta_dlnRho, deta_dlnT, &
             kap_fracs, kap, dlnkap_dlnRho, dlnkap_dlnT, ierr)
        end subroutine star_get_kap
-       
+ 
        subroutine star_do_eos_for_cell(id, k, ierr)
           use micro, only: do_eos_for_cell
          integer, intent(in) :: id
@@ -2206,7 +2205,7 @@ subroutine star_do_eos_for_cell(id, k, ierr)
          call do_eos_for_cell(s, k, ierr)
        end subroutine star_do_eos_for_cell
 
-       
+ 
        subroutine star_do_kap_for_cell(id, k, ierr)
           use micro, only: do_kap_for_cell
          integer, intent(in) :: id
@@ -2219,7 +2218,7 @@ subroutine star_do_kap_for_cell(id, k, ierr)
          call do_kap_for_cell(s, k, ierr)
        end subroutine star_do_kap_for_cell
 
-       
+ 
        subroutine star_get_atm_PT( &
              id, tau_surf, L, R, M, cgrav, skip_partials, Teff, &
              lnT_surf, dlnT_dL, dlnT_dlnR, dlnT_dlnM, dlnT_dlnkap, &
@@ -2246,7 +2245,7 @@ subroutine star_get_atm_PT( &
              ierr)
        end subroutine star_get_atm_PT
 
-       
+ 
        subroutine star_get_surf_PT( &
             id, skip_partials, need_atm_Psurf, need_atm_Tsurf, &
             lnT_surf, dlnT_dL, dlnT_dlnR, dlnT_dlnM, dlnT_dlnkap, &
@@ -2268,8 +2267,8 @@ subroutine star_get_surf_PT( &
             lnT_surf, dlnT_dL, dlnT_dlnR, dlnT_dlnM, dlnT_dlnkap, &
             lnP_surf, dlnP_dL, dlnP_dlnR, dlnP_dlnM, dlnP_dlnkap, &
             ierr)
-       end subroutine star_get_surf_PT       
-      
+       end subroutine star_get_surf_PT 
+
       integer function get_result_reason(id, ierr)
          integer, intent(in) :: id
          integer, intent(out) :: ierr
@@ -2281,7 +2280,7 @@ integer function get_result_reason(id, ierr)
          end if
          get_result_reason = s% result_reason
       end function get_result_reason
-      
+
       real(dp) function eval_tau_at_r(id, r, ierr)
          ! optical depth tau at radius r (cm)
          ! r should be <= s% r(1) and >= s% Rcenter
@@ -2298,8 +2297,8 @@ real(dp) function eval_tau_at_r(id, r, ierr)
          end if
          eval_tau_at_r = get_tau_at_r(s, r, ierr)
       end function eval_tau_at_r
-      
-      
+
+
       real(dp) function eval_total_times(id, ierr)
          use star_utils, only: total_times
          integer, intent(in) :: id
@@ -2312,15 +2311,15 @@ real(dp) function eval_total_times(id, ierr)
          end if
          eval_total_times = total_times(s)
       end function eval_total_times
-      
-      
+
+
       subroutine star_total_energy_integrals(id, &
             total_internal_energy, total_gravitational_energy, &
             total_radial_kinetic_energy, total_rotational_kinetic_energy, &
             total_turbulent_energy, sum_total, ierr)
          use star_utils, only: eval_total_energy_integrals
          integer, intent(in) :: id
-         real(dp), intent(out) :: &      
+         real(dp), intent(out) :: &
             total_internal_energy, total_gravitational_energy, &
             total_radial_kinetic_energy, total_rotational_kinetic_energy, &
             total_turbulent_energy, sum_total
@@ -2333,8 +2332,8 @@ subroutine star_total_energy_integrals(id, &
             total_radial_kinetic_energy, total_rotational_kinetic_energy, &
             total_turbulent_energy, sum_total)
       end subroutine star_total_energy_integrals
-      
-      
+
+
       real(dp) function star_surface_omega_crit(id, ierr)
          use hydro_rotation, only: set_surf_avg_rotation_info
          integer, intent(in) :: id
@@ -2348,8 +2347,8 @@ real(dp) function star_surface_omega_crit(id, ierr)
          call set_surf_avg_rotation_info(s)
          star_surface_omega_crit = s% omega_crit_avg_surf
       end function star_surface_omega_crit
-      
-      
+
+
       ! some routines for "stellar engineering"
 
       subroutine star_normalize_dqs(id, nz, dq, ierr)
@@ -2379,8 +2378,8 @@ subroutine star_set_qs(id, nz, q, dq, ierr) ! set q's using normalized dq's
          if (ierr /= 0) return
          call set_qs(s, nz, q, dq, ierr)
       end subroutine star_set_qs
-      
-      
+
+
       subroutine star_set_m_and_dm(id, ierr)
          use star_utils, only: set_m_and_dm
          integer, intent(in) :: id
@@ -2391,8 +2390,8 @@ subroutine star_set_m_and_dm(id, ierr)
          if (ierr /= 0) return
          call set_m_and_dm(s)
       end subroutine star_set_m_and_dm
-      
-      
+
+
       subroutine star_set_dm_bar(id, ierr)
          use star_utils, only: set_dm_bar
          integer, intent(in) :: id
@@ -2403,137 +2402,137 @@ subroutine star_set_dm_bar(id, ierr)
          if (ierr /= 0) return
          call set_dm_bar(s, s% nz, s% dm, s% dm_bar)
       end subroutine star_set_dm_bar
-      
-      
+
+
       subroutine star_remove_center_at_cell_k(id, k, ierr)
          use remove_shells, only: do_remove_center_at_cell_k
          integer, intent(in) :: id, k
          integer, intent(out) :: ierr
-         call do_remove_center_at_cell_k(id, k, ierr)      
+         call do_remove_center_at_cell_k(id, k, ierr)
       end subroutine star_remove_center_at_cell_k
-      
-      
+
+
       subroutine star_remove_center_by_temperature(id, temperature, ierr)
          use remove_shells, only: do_remove_center_by_temperature
          integer, intent(in) :: id
          real(dp), intent(in) :: temperature
          integer, intent(out) :: ierr
-         call do_remove_center_by_temperature(id, temperature, ierr)      
+         call do_remove_center_by_temperature(id, temperature, ierr)
       end subroutine star_remove_center_by_temperature
-      
-      
+
+
       subroutine star_remove_center_by_radius_cm(id, r_cm, ierr)
          use remove_shells, only: do_remove_center_by_radius_cm
          integer, intent(in) :: id
          real(dp), intent(in) :: r_cm
          integer, intent(out) :: ierr
-         call do_remove_center_by_radius_cm(id, r_cm, ierr)      
+         call do_remove_center_by_radius_cm(id, r_cm, ierr)
       end subroutine star_remove_center_by_radius_cm
-      
-      
+
+
       subroutine star_remove_center_by_mass_fraction_q(id, q, ierr)
          use remove_shells, only: do_remove_inner_fraction_q
          integer, intent(in) :: id
          real(dp), intent(in) :: q
          integer, intent(out) :: ierr
-         call do_remove_inner_fraction_q(id, q, ierr)      
+         call do_remove_inner_fraction_q(id, q, ierr)
       end subroutine star_remove_center_by_mass_fraction_q
-      
-      
+
+
       subroutine star_remove_center_by_he4(id, x, ierr)
          use remove_shells, only: do_remove_center_by_he4
          integer, intent(in) :: id
          real(dp), intent(in) :: x ! mass fraction
          integer, intent(out) :: ierr
-         call do_remove_center_by_he4(id, x, ierr)      
+         call do_remove_center_by_he4(id, x, ierr)
       end subroutine star_remove_center_by_he4
-      
-      
+
+
       subroutine star_remove_center_by_c12_o16(id, x, ierr)
          use remove_shells, only: do_remove_center_by_c12_o16
          integer, intent(in) :: id
          real(dp), intent(in) :: x ! mass fraction
          integer, intent(out) :: ierr
-         call do_remove_center_by_c12_o16(id, x, ierr)      
+         call do_remove_center_by_c12_o16(id, x, ierr)
       end subroutine star_remove_center_by_c12_o16
-      
-      
+
+
       subroutine star_remove_center_by_si28(id, x, ierr)
          use remove_shells, only: do_remove_center_by_si28
          integer, intent(in) :: id
          real(dp), intent(in) :: x ! mass fraction
          integer, intent(out) :: ierr
-         call do_remove_center_by_si28(id, x, ierr)      
+         call do_remove_center_by_si28(id, x, ierr)
       end subroutine star_remove_center_by_si28
-      
-      
+
+
       subroutine star_remove_center_to_reduce_co56_ni56(id, x, ierr)
          use remove_shells, only: do_remove_center_to_reduce_co56_ni56
          integer, intent(in) :: id
          real(dp), intent(in) :: x ! mass fraction
          integer, intent(out) :: ierr
-         call do_remove_center_to_reduce_co56_ni56(id, x, ierr)      
+         call do_remove_center_to_reduce_co56_ni56(id, x, ierr)
       end subroutine star_remove_center_to_reduce_co56_ni56
-      
-      
+
+
       subroutine star_remove_center_by_ye(id, ye, ierr)
          use remove_shells, only: do_remove_center_by_ye
          integer, intent(in) :: id
          real(dp), intent(in) :: ye
          integer, intent(out) :: ierr
-         call do_remove_center_by_ye(id, ye, ierr)      
+         call do_remove_center_by_ye(id, ye, ierr)
       end subroutine star_remove_center_by_ye
-      
-      
+
+
       subroutine star_remove_center_by_entropy(id, entropy, ierr)
          use remove_shells, only: do_remove_center_by_entropy
          integer, intent(in) :: id
          real(dp), intent(in) :: entropy
          integer, intent(out) :: ierr
-         call do_remove_center_by_entropy(id, entropy, ierr)      
+         call do_remove_center_by_entropy(id, entropy, ierr)
       end subroutine star_remove_center_by_entropy
-      
-      
+
+
       subroutine star_remove_center_by_infall_kms(id, infall_kms, ierr)
          use remove_shells, only: do_remove_center_by_infall_kms
          integer, intent(in) :: id
          real(dp), intent(in) :: infall_kms
          integer, intent(out) :: ierr
-         call do_remove_center_by_infall_kms(id, infall_kms, ierr)      
+         call do_remove_center_by_infall_kms(id, infall_kms, ierr)
       end subroutine star_remove_center_by_infall_kms
-      
-      
+
+
       subroutine star_remove_center_at_inner_max_abs_v(id, ierr)
          use remove_shells, only: do_remove_center_at_inner_max_abs_v
          integer, intent(in) :: id
          integer, intent(out) :: ierr
-         call do_remove_center_at_inner_max_abs_v(id, ierr)      
+         call do_remove_center_at_inner_max_abs_v(id, ierr)
       end subroutine star_remove_center_at_inner_max_abs_v
-      
-      
+
+
       subroutine star_remove_fe_core(id, ierr)
          use remove_shells, only: do_remove_fe_core
          integer, intent(in) :: id
          integer, intent(out) :: ierr
-         call do_remove_fe_core(id, ierr)      
+         call do_remove_fe_core(id, ierr)
       end subroutine star_remove_fe_core
-      
-      
+
+
       subroutine star_remove_center_by_mass_gm(id, m, ierr)
          use remove_shells, only: do_remove_center_by_mass_gm
          integer, intent(in) :: id
          real(dp), intent(in) :: m
          integer, intent(out) :: ierr
-         call do_remove_center_by_mass_gm(id, m, ierr)      
+         call do_remove_center_by_mass_gm(id, m, ierr)
       end subroutine star_remove_center_by_mass_gm
-      
-      
+
+
       subroutine star_zero_inner_v_by_mass_gm(id, m, ierr)
          use remove_shells, only: do_zero_inner_v_by_mass_gm
          integer, intent(in) :: id
          real(dp), intent(in) :: m
          integer, intent(out) :: ierr
-         call do_zero_inner_v_by_mass_gm(id, m, ierr)      
+         call do_zero_inner_v_by_mass_gm(id, m, ierr)
       end subroutine star_zero_inner_v_by_mass_gm
       
 
@@ -2546,134 +2545,134 @@ subroutine star_relax_to_star_cut(&
          logical, intent(in) :: turn_off_energy_sources_and_sinks ! determines if we turn off non_nuc_neu and eps_nuc for entropy relax
          integer, intent(out) :: ierr
 
-         call do_relax_to_star_cut(id, k_remove, do_jrot, do_entropy, turn_off_energy_sources_and_sinks, ierr)      
+         call do_relax_to_star_cut(id, k_remove, do_jrot, do_entropy, turn_off_energy_sources_and_sinks, ierr)
       end subroutine star_relax_to_star_cut
-      
-      
+
+
       subroutine star_remove_surface_by_v_surf_km_s(id, v_surf_km_s, ierr)
          use remove_shells, only: do_remove_surface_by_v_surf_km_s
          integer, intent(in) :: id
          real(dp), intent(in) :: v_surf_km_s
          integer, intent(out) :: ierr
-         call do_remove_surface_by_v_surf_km_s(id, v_surf_km_s, ierr)      
+         call do_remove_surface_by_v_surf_km_s(id, v_surf_km_s, ierr)
       end subroutine star_remove_surface_by_v_surf_km_s
-      
-      
+
+
       subroutine star_remove_surface_by_v_surf_div_cs(id, v_surf_div_cs, ierr)
          use remove_shells, only: do_remove_surface_by_v_surf_div_cs
          integer, intent(in) :: id
          real(dp), intent(in) :: v_surf_div_cs
          integer, intent(out) :: ierr
-         call do_remove_surface_by_v_surf_div_cs(id, v_surf_div_cs, ierr)      
+         call do_remove_surface_by_v_surf_div_cs(id, v_surf_div_cs, ierr)
       end subroutine star_remove_surface_by_v_surf_div_cs
-      
-      
+
+
       subroutine star_remove_surface_by_v_surf_div_v_escape(id, v_surf_div_v_escape, ierr)
          use remove_shells, only: do_remove_surface_by_v_surf_div_v_escape
          integer, intent(in) :: id
          real(dp), intent(in) :: v_surf_div_v_escape
          integer, intent(out) :: ierr
-         call do_remove_surface_by_v_surf_div_v_escape(id, v_surf_div_v_escape, ierr)      
+         call do_remove_surface_by_v_surf_div_v_escape(id, v_surf_div_v_escape, ierr)
       end subroutine star_remove_surface_by_v_surf_div_v_escape
-      
-      
+
+
       subroutine star_remove_surface_at_cell_k(id, k, ierr)
          use remove_shells, only: do_remove_surface_at_cell_k
          integer, intent(in) :: id, k
          integer, intent(out) :: ierr
-         call do_remove_surface_at_cell_k(id, k, ierr)      
+         call do_remove_surface_at_cell_k(id, k, ierr)
       end subroutine star_remove_surface_at_cell_k
-      
-      
+
+
       subroutine star_remove_surface_at_he_core_boundary(id, h1_fraction, ierr)
          use remove_shells, only: do_remove_surface_at_he_core_boundary
          integer, intent(in) :: id
          real(dp), intent(in) :: h1_fraction
          integer, intent(out) :: ierr
-         call do_remove_surface_at_he_core_boundary(id, h1_fraction, ierr)      
+         call do_remove_surface_at_he_core_boundary(id, h1_fraction, ierr)
       end subroutine star_remove_surface_at_he_core_boundary
-      
-      
+
+
       subroutine star_remove_surface_by_optical_depth(id, optical_depth, ierr)
          use remove_shells, only: do_remove_surface_by_optical_depth
          integer, intent(in) :: id
          real(dp), intent(in) :: optical_depth
          integer, intent(out) :: ierr
-         call do_remove_surface_by_optical_depth(id, optical_depth, ierr)      
+         call do_remove_surface_by_optical_depth(id, optical_depth, ierr)
       end subroutine star_remove_surface_by_optical_depth
 
-      
+
       subroutine star_remove_surface_by_density(id, density, ierr)
          use remove_shells, only: do_remove_surface_by_density
          integer, intent(in) :: id
          real(dp), intent(in) :: density
          integer, intent(out) :: ierr
-         call do_remove_surface_by_density(id, density, ierr)      
+         call do_remove_surface_by_density(id, density, ierr)
       end subroutine star_remove_surface_by_density
-      
-      
+
+
       subroutine star_remove_surface_by_pressure(id, pressure, ierr)
          use remove_shells, only: do_remove_surface_by_pressure
          integer, intent(in) :: id
          real(dp), intent(in) :: pressure
          integer, intent(out) :: ierr
-         call do_remove_surface_by_pressure(id, pressure, ierr)      
+         call do_remove_surface_by_pressure(id, pressure, ierr)
       end subroutine star_remove_surface_by_pressure
-      
-      
+
+
       subroutine star_remove_surface_by_radius_cm(id, r_cm, ierr)
          use remove_shells, only: do_remove_surface_by_radius_cm
          integer, intent(in) :: id
          real(dp), intent(in) :: r_cm
          integer, intent(out) :: ierr
-         call do_remove_surface_by_radius_cm(id, r_cm, ierr)      
+         call do_remove_surface_by_radius_cm(id, r_cm, ierr)
       end subroutine star_remove_surface_by_radius_cm
-      
-      
+
+
       subroutine star_remove_surface_by_mass_fraction_q(id, q, ierr)
          use remove_shells, only: do_remove_surface_by_q
          integer, intent(in) :: id
          real(dp), intent(in) :: q
          integer, intent(out) :: ierr
-         call do_remove_surface_by_q(id, q, ierr)      
+         call do_remove_surface_by_q(id, q, ierr)
       end subroutine star_remove_surface_by_mass_fraction_q
-      
-      
+
+
       subroutine star_remove_surface_by_mass_gm(id, m, ierr)
          use remove_shells, only: do_remove_surface_by_mass_gm
          integer, intent(in) :: id
          real(dp), intent(in) :: m
          integer, intent(out) :: ierr
-         call do_remove_surface_by_mass_gm(id, m, ierr)      
+         call do_remove_surface_by_mass_gm(id, m, ierr)
       end subroutine star_remove_surface_by_mass_gm
-      
-      
+
+
       subroutine star_limit_center_logP(id, logP_limit, ierr)
          use remove_shells, only: do_limit_center_logP
          integer, intent(in) :: id
          real(dp), intent(in) :: logP_limit
          integer, intent(out) :: ierr
-         call do_limit_center_logP(id, logP_limit, ierr)      
+         call do_limit_center_logP(id, logP_limit, ierr)
       end subroutine star_limit_center_logP
-      
-      
+
+
       subroutine star_remove_center_by_logRho(id, logRho_limit, ierr)
          use remove_shells, only: do_remove_center_by_logRho
          integer, intent(in) :: id
          real(dp), intent(in) :: logRho_limit
          integer, intent(out) :: ierr
-         call do_remove_center_by_logRho(id, logRho_limit, ierr)      
+         call do_remove_center_by_logRho(id, logRho_limit, ierr)
       end subroutine star_remove_center_by_logRho
-      
-      
+
+
       subroutine star_remove_fallback(id, ierr)
          use remove_shells, only: do_remove_fallback
          integer, intent(in) :: id
          integer, intent(out) :: ierr
-         call do_remove_fallback(id, ierr)      
+         call do_remove_fallback(id, ierr)
       end subroutine star_remove_fallback
 
-      
+
       subroutine smooth_abundances_in_section(id, cnt, nzlo, nzhi, ierr)
          ! purely for cosmetic purposes.  doesn't even try to conserve abundances.
          use star_utils, only: smooth_abundances
@@ -2720,7 +2719,7 @@ subroutine smooth_values_by_mass( &
             s, boxcar_mass, number_iterations, val, ierr)
       end subroutine smooth_values_by_mass
 
-      
+
       ! PGSTAR interface
       subroutine start_new_run_for_pgstar(s, ierr) ! reset logs
          use pgstar
@@ -2728,8 +2727,8 @@ subroutine start_new_run_for_pgstar(s, ierr) ! reset logs
          integer, intent(out) :: ierr
          call do_start_new_run_for_pgstar(s, ierr)
       end subroutine start_new_run_for_pgstar
-      
-      
+
+
       subroutine restart_run_for_pgstar(s, ierr)
          use pgstar
          type (star_info), pointer :: s
@@ -2766,8 +2765,8 @@ subroutine update_pgstar_plots( &
             s, must_write_files, &
             ierr)
       end subroutine update_pgstar_plots
-      
-      
+
+
       subroutine create_pgstar_file_name(s, dir, prefix, name)
          use pgstar, only: do_create_file_name
          type (star_info), pointer :: s
@@ -2786,8 +2785,8 @@ subroutine pgstar_write_plot_to_file(s, p, filename, ierr)
          integer, intent(out) :: ierr
          call do_write_plot_to_file(s, p, filename, ierr)
       end subroutine pgstar_write_plot_to_file
-      
-      
+
+
       subroutine set_pgstar_xaxis_bounds( &
             s, xaxis_by, win_xmin_in, win_xmax_in, xmargin, &
             xvec, xmin, xmax, xleft, xright, dx, &
@@ -2805,8 +2804,8 @@ subroutine set_pgstar_xaxis_bounds( &
             xvec, xmin, xmax, xleft, xright, dx, &
             grid_min, grid_max, npts, ierr)
       end subroutine set_pgstar_xaxis_bounds
-      
-      
+
+
       subroutine show_pgstar_xaxis_by(s,by,ierr)
          use pgstar, only: do_show_xaxis_by
          type (star_info), pointer :: s
@@ -2814,8 +2813,8 @@ subroutine show_pgstar_xaxis_by(s,by,ierr)
          integer, intent(out) :: ierr
          call do_show_xaxis_by(s,by,ierr)
       end subroutine show_pgstar_xaxis_by
-      
-      
+
+
       subroutine show_pgstar_annotations( &
             s, show_annotation1, show_annotation2, show_annotation3)
          use pgstar, only: do_show_pgstar_annotations
@@ -2824,17 +2823,17 @@ subroutine show_pgstar_annotations( &
             show_annotation1, show_annotation2, show_annotation3
          call do_show_pgstar_annotations( &
             s, show_annotation1, show_annotation2, show_annotation3)
-      end subroutine show_pgstar_annotations      
-      
+      end subroutine show_pgstar_annotations
       
+
       subroutine pgstar_show_box(s, str1, str2)
          use pgstar, only: show_box_pgstar
          type (star_info), pointer :: s
          character (len=*), intent(in) :: str1, str2
          call show_box_pgstar(s, str1, str2)
       end subroutine pgstar_show_box
-      
-      
+
+
       subroutine pgstar_show_title(s, title, pad)
          use pgstar, only: show_title_pgstar
          type (star_info), pointer :: s
@@ -2846,8 +2845,8 @@ subroutine pgstar_show_title(s, title, pad)
          if (present(pad)) pad_arg = pad
          call show_title_pgstar(s, title, pad_arg)
       end subroutine pgstar_show_title
-      
-      
+
+
       subroutine pgstar_show_xaxis_label(s, label, pad)
          use pgstar, only: show_xaxis_label_pgstar
          type (star_info), pointer :: s
@@ -2859,8 +2858,8 @@ subroutine pgstar_show_xaxis_label(s, label, pad)
          if (present(pad)) pad_arg = pad
          call show_xaxis_label_pgstar(s, label, pad_arg)
       end subroutine pgstar_show_xaxis_label
-      
-      
+
+
       subroutine pgstar_show_left_yaxis_label(s, label, pad)
          use pgstar, only: show_left_yaxis_label_pgstar
          type (star_info), pointer :: s
@@ -2872,8 +2871,8 @@ subroutine pgstar_show_left_yaxis_label(s, label, pad)
          if (present(pad)) pad_arg = pad
          call show_left_yaxis_label_pgstar(s, label, pad_arg)
       end subroutine pgstar_show_left_yaxis_label
-      
-      
+
+
       subroutine pgstar_show_right_yaxis_label(s, label, pad)
          use pgstar, only: show_right_yaxis_label_pgstar
          type (star_info), pointer :: s
@@ -2885,8 +2884,8 @@ subroutine pgstar_show_right_yaxis_label(s, label, pad)
          if (present(pad)) pad_arg = pad
          call show_right_yaxis_label_pgstar(s, label, pad_arg)
       end subroutine pgstar_show_right_yaxis_label
-      
-      
+
+
       subroutine pgstar_show_left_axis_label_pgmtxt( &
             s, coord, fjust, label, pad)
          use pgstar, only: show_left_yaxis_label_pgmtxt_pgstar
@@ -2900,8 +2899,8 @@ subroutine pgstar_show_left_axis_label_pgmtxt( &
          call show_left_yaxis_label_pgmtxt_pgstar( &
             s, coord, fjust, label, pad)
       end subroutine pgstar_show_left_axis_label_pgmtxt
-      
-      
+
+
       subroutine pgstar_show_right_axis_label_pgmtxt( &
             s, coord, fjust, label, pad)
          use pgstar, only: show_right_yaxis_label_pgmtxt_pgstar
@@ -2915,15 +2914,15 @@ subroutine pgstar_show_right_axis_label_pgmtxt( &
          call show_right_yaxis_label_pgmtxt_pgstar( &
             s, coord, fjust, label, pad)
       end subroutine pgstar_show_right_axis_label_pgmtxt
-      
-      
+
+
       subroutine pgstar_show_model_number(s)
          use pgstar, only: show_model_number_pgstar
          type (star_info), pointer :: s
          call show_model_number_pgstar(s)
       end subroutine pgstar_show_model_number
-      
-      
+
+
       subroutine pgstar_show_age(s)
          use pgstar, only: show_age_pgstar
          type (star_info), pointer :: s
@@ -2940,8 +2939,8 @@ subroutine star_history_specs(s, num, names, specs, report)
          logical, intent(in) :: report
          call get_history_specs(s, num, names, specs, report)
       end subroutine star_history_specs
-      
-      
+
+
       subroutine star_history_values(s, num, specs, &
             is_int_value, int_values, values, failed_to_find_value)
          use history, only: get_history_values
@@ -3019,7 +3018,7 @@ end function star_get1_history_value
       real(dp) function star_get_history_output(s, name, ierr)
          ! If error return -huge(double) and ierr = 1, if provided
          use history, only: get_history_specs, get_history_values, get1_hist_value
-         type (star_info), pointer :: s   
+         type (star_info), pointer :: s
          character(len=*), intent(in) :: name
          integer, intent(out), optional :: ierr
          integer, parameter :: num_rows = 1
@@ -3059,21 +3058,21 @@ real(dp) function star_get_history_output_by_id(id, name, ierr_opt)
          star_get_history_output_by_id = star_get_history_output(s, name, ierr)
          if (present(ierr_opt)) ierr_opt = ierr
       end function star_get_history_output_by_id
-      
-      
+
+
       subroutine star_set_mlt_vars(id, nzlo, nzhi, ierr)
          use turb_info, only: set_mlt_vars
          use star_def
-         integer, intent(in) :: id ! id for star         
-         integer, intent(in) :: nzlo, nzhi ! range of cell numbers   
+         integer, intent(in) :: id ! id for star
+         integer, intent(in) :: nzlo, nzhi ! range of cell numbers
          integer, intent(inout) :: ierr
-         type (star_info), pointer :: s         
+         type (star_info), pointer :: s
          call star_ptr(id, s, ierr)
-         if (ierr /= 0) return                  
+         if (ierr /= 0) return
          call set_mlt_vars(s, nzlo, nzhi, ierr)
       end subroutine star_set_mlt_vars
 
-      
+
       subroutine star_mlt_gradT(id, MLT_option, & ! can be useful when creating models
             r, L, T, P, opacity, rho, chiRho, chiT, Cp, gradr, grada, scale_height, &
             iso, XH1, cgrav, m, gradL_composition_term, mixing_length_alpha, &
@@ -3088,13 +3087,13 @@ subroutine star_mlt_gradT(id, MLT_option, & ! can be useful when creating models
          integer, intent(in) :: iso
          real(dp), intent(out) :: gradT, Y_face, conv_vel, D, Gamma
          integer, intent(out) :: mixing_type, ierr 
-         type (star_info), pointer :: s         
+         type (star_info), pointer :: s
          call star_ptr(id, s, ierr)
-         if (ierr /= 0) return  
+         if (ierr /= 0) return
          call get_gradT(s, MLT_option, &
             r, L, T, P, opacity, rho, chiRho, chiT, Cp, gradr, grada, scale_height, &
             iso, XH1, cgrav, m, gradL_composition_term, mixing_length_alpha, &
-            mixing_type, gradT, Y_face, conv_vel, D, Gamma, ierr)         
+            mixing_type, gradT, Y_face, conv_vel, D, Gamma, ierr)
       end subroutine star_mlt_gradT
 
 
@@ -3120,9 +3119,9 @@ subroutine star_mlt_results(id, k, MLT_option, &  ! NOTE: k=0 is a valid arg
             gradT, Y_face, conv_vel, D, Gamma
          integer, intent(out) :: ierr
          type(auto_diff_real_star_order1) :: dV
-         type (star_info), pointer :: s         
+         type (star_info), pointer :: s
          call star_ptr(id, s, ierr)
-         if (ierr /= 0) return  
+         if (ierr /= 0) return
          dV = 0d0 ! dV = 1/rho - 1/rho_start and we assume rho = rho_start.
          call Get_results(s, k, MLT_option, &
             r, L, T, P, opacity, rho, dV, chiRho, chiT, Cp, gradr, grada, scale_height, &
@@ -3136,26 +3135,26 @@ subroutine star_do_garbage_collection(id, ierr)
          use init, only: do_garbage_collection
          integer, intent(in) :: id
          integer, intent(inout) :: ierr
-         type (star_info), pointer :: s         
+         type (star_info), pointer :: s
          call star_ptr(id, s, ierr)
-         if (ierr /= 0) return                  
+         if (ierr /= 0) return
          call do_garbage_collection(s% job% eosDT_cache_dir, ierr)
-         if (ierr /= 0) return               
+         if (ierr /= 0) return
       end subroutine star_do_garbage_collection
-            
-            
+
+
       subroutine star_shutdown_pgstar(id, ierr)
          use pgstar, only: shutdown_pgstar
          integer, intent(in) :: id ! id for star 
          integer, intent(out) :: ierr
-         type (star_info), pointer :: s         
-         ierr = 0         
+         type (star_info), pointer :: s
+         ierr = 0
          call star_ptr(id, s, ierr)
-         if (ierr /= 0) return      
-         call shutdown_pgstar(s)      
+         if (ierr /= 0) return
+         call shutdown_pgstar(s)
       end subroutine star_shutdown_pgstar
 
-      
+
       subroutine star_create_RSP_model(id, ierr)
          use init, only: create_RSP_model
          integer, intent(in) :: id
@@ -3163,7 +3162,7 @@ subroutine star_create_RSP_model(id, ierr)
          call create_RSP_model(id, ierr)
       end subroutine star_create_RSP_model
 
-      
+
       subroutine star_create_RSP2_model(id, ierr)
          use init, only: create_RSP2_model
          integer, intent(in) :: id
@@ -3171,7 +3170,7 @@ subroutine star_create_RSP2_model(id, ierr)
          call create_RSP2_model(id, ierr)
       end subroutine star_create_RSP2_model
 
-      
+
       subroutine star_do1_rsp_build(s,ierr)
          ! call from other_rsp_build_model after changing params.
          ! can change rsp_* params; but cannot change nz or net.
@@ -3181,8 +3180,8 @@ subroutine star_do1_rsp_build(s,ierr)
          integer, intent(out) :: ierr
          call do1_rsp_build(s,ierr)
       end subroutine star_do1_rsp_build
-      
-      
+
+
       subroutine rsp_do1_eos_and_kap(s,k,ierr)
          use rsp_step, only : do1_eos_and_kap
          type (star_info), pointer :: s
@@ -3190,8 +3189,8 @@ subroutine rsp_do1_eos_and_kap(s,k,ierr)
          integer, intent(out) :: ierr
          call do1_eos_and_kap(s,s% nz+1-k,ierr)
       end subroutine rsp_do1_eos_and_kap
-      
-      
+
+
       integer function check_change_timestep_limit( &
             id, delta_value, lim, hard_lim, i, msg, &
             skip_hard_limit, dt_limit_ratio, relative_excess)
@@ -3217,8 +3216,8 @@ integer function check_change_timestep_limit( &
             s, delta_value, lim, hard_lim, i, msg, &
             skip_hard_limit, dt_limit_ratio, relative_excess)
       end function check_change_timestep_limit
-      
-      
+
+
       integer function check_change_integer_timestep_limit( &
             id, limit, hard_limit, value, msg, skip_hard_limit, dt, dt_limit_ratio)
          use const_def, only:ln10
@@ -3241,8 +3240,8 @@ integer function check_change_integer_timestep_limit( &
          check_change_integer_timestep_limit = check_integer_limit( &
             s, limit, hard_limit, value, msg, skip_hard_limit, dt, dt_limit_ratio)
       end function check_change_integer_timestep_limit
-      
-      
+
+
       real(dp) function star_remnant_mass(id)
          use star_utils, only: get_remnant_mass
          integer, intent(in) :: id
@@ -3252,8 +3251,8 @@ real(dp) function star_remnant_mass(id)
          call star_ptr(id, s, ierr)
          star_remnant_mass = get_remnant_mass(s)
       end function star_remnant_mass
-      
-      
+
+
       real(dp) function star_ejecta_mass(id)
          use star_utils, only: get_ejecta_mass
          integer, intent(in) :: id
@@ -3276,8 +3275,8 @@ subroutine star_init_star_handles()
          use star_private_def, only: init_star_handles
          call init_star_handles()
       end subroutine star_init_star_handles
-      
-      
+
+
       subroutine star_get_control_namelist(id, name, val, ierr)
          use ctrls_io, only: get_control
          integer, intent(in) :: id
diff --git a/star/test/make/makefile_base b/star/test/make/makefile_base
index 9e4a8ee80..99e2f53d4 100644
--- a/star/test/make/makefile_base
+++ b/star/test/make/makefile_base
@@ -49,9 +49,7 @@ nodeps : $(.DEFAULT_GOAL)
 #
 # COMPILATION RULES
 
-#################################################################
-
-%.o: %.f
+%.o: %.f90
 ifneq ($(QUIET),)
 	@echo TEST_COMPILE $<
 	@$(TEST_COMPILE) $(FCfree) $<
@@ -59,22 +57,12 @@ else
 	$(TEST_COMPILE) $(FCfree) $<
 endif
 
-%.o: %.f90
-ifneq ($(QUIET),)
-	@echo TEST_COMPILE $<
-	@$(TEST_COMPILE) $<
-else
-	$(TEST_COMPILE) $<
-endif
-
-
 #################################################################
 #
 # DEPENDENCIES
 
 SRC_PATH = $(TEST_SRC_DIR):$(MESA_DIR)/star/job
 
-vpath %.f $(SRC_PATH)
 vpath %.f90 $(SRC_PATH)
 
 vpath %.mod $(LOCAL_LIB_DIR):$(MESA_DIR)/include
diff --git a/star/test/src/run.f90 b/star/test/src/run.f90
index a2de6786d..ef298fec2 100644
--- a/star/test/src/run.f90
+++ b/star/test/src/run.f90
@@ -23,20 +23,20 @@
 !
 ! ***********************************************************************
 
-      program run
+program run
 
-      use run_star_support, only: do_read_star_job
-      use run_star, only: do_run_star
-      use star_def
-      
-      implicit none
-      
-      integer :: ierr
-      
-      ierr = 0
-      call do_read_star_job('inlist', ierr)
-      if (ierr /= 0) stop 'run'
-      
-      call do_run_star
+   use run_star_support, only: do_read_star_job
+   use run_star, only: do_run_star
+   use star_def
 
-      end program
+   implicit none
+
+   integer :: ierr
+
+   ierr = 0
+   call do_read_star_job('inlist', ierr)
+   if (ierr /= 0) stop 'run'
+
+   call do_run_star
+
+end program
diff --git a/star/test/src/run_star_extras.f90 b/star/test/src/run_star_extras.f90
index 70bec69ef..28e21377c 100644
--- a/star/test/src/run_star_extras.f90
+++ b/star/test/src/run_star_extras.f90
@@ -9,7 +9,7 @@
 !   by the free software foundation; either version 2 of the license, or
 !   (at your option) any later version.
 !
-!   mesa is distributed in the hope that it will be useful, 
+!   mesa is distributed in the hope that it will be useful,
 !   but without any warranty; without even the implied warranty of
 !   merchantability or fitness for a particular purpose.  see the
 !   gnu library general public license for more details.
@@ -20,18 +20,18 @@
 !
 ! ***********************************************************************
 
-      module run_star_extras
+module run_star_extras
 
-      use star_lib
-      use star_def
-      use const_def
-      use math_lib
+   use star_lib
+   use star_def
+   use const_def
+   use math_lib
 
-      implicit none
+   implicit none
 
-      ! these routines are called by the standard run_star
-      contains
+   ! these routines are called by the standard run_star
+contains
 
-      include '../../job/standard_run_star_extras.inc'
+   include '../../job/standard_run_star_extras.inc'
 
-      end module run_star_extras
+end module run_star_extras
diff --git a/star/test_suite/1.3M_ms_high_Z/README.rst b/star/test_suite/1.3M_ms_high_Z/README.rst
index a482735f5..825b66871 100644
--- a/star/test_suite/1.3M_ms_high_Z/README.rst
+++ b/star/test_suite/1.3M_ms_high_Z/README.rst
@@ -5,7 +5,7 @@
 **************
 
 The test checks the evolution of metal-rich low-mass stars by evolving 
-a 1.3 Msun, metal-rich Z=0.04 model from the pre-main sequence to core hydrogen depletion.
+a 1.3 |Msun|, metal-rich Z=0.04 model from the pre-main sequence to core hydrogen depletion.
 
 
 This test case has two parts.
@@ -17,8 +17,8 @@ This test case has two parts.
 
 The final model, click on the image for a larger version, shows
 
-.. image:: ../../../star/test_suite/1.3M_ms_high_Z/docs/grid1_221.svg
-   :scale: 100%
+.. image:: ../../../star/test_suite/1.3M_ms_high_Z/docs/grid1000219.svg
+  :width: 100%
 
 The left plot shows the HR diagram. The yellow curve is a precalculated 
 HR track loaded  from ``HR_OPAL.dat``, while the green curve is the model calculated.
@@ -28,109 +28,23 @@ as core hydrogen depletes.
 
 pgstar commands used for the plots above:
 
-.. code-block:: console
+.. literalinclude:: ../../../star/test_suite/1.3M_ms_high_Z/inlist_pgstar
+  :language: console
 
- &pgstar
+The figures can also be created in Python with ``matplotlib`` and reading in data with the ``mesa_reader`` package:
 
-   pgstar_interval = 10
+.. image:: ../../../star/test_suite/1.3M_ms_high_Z/docs/HR_diagram.svg
+  :width: 100%
 
- ! device
+.. image:: ../../../star/test_suite/1.3M_ms_high_Z/docs/z_mass_fraction_metals.svg
+  :width: 100%
 
-   file_white_on_black_flag = .true. ! white_on_black flags -- true means white foreground color on black background
-   file_device = 'png'            ! png
-   file_extension = 'png'           
-
-   !file_device = 'vcps'          ! postscript
-   !file_extension = 'ps'           
-
- ! build grid
-  Grid1_title = '1.3M_ms_high_Z'
-  Grid1_win_flag = .true.
-
-  Grid1_win_width = 15
-  Grid1_win_aspect_ratio = 0.4 ! aspect_ratio = height/width
-
-  Grid1_xleft = 0.05 ! fraction of full window width for margin on left
-  Grid1_xright = 0.95 ! fraction of full window width for margin on right
-  Grid1_ybot = 0.08 ! fraction of full window width for margin on bottom
-  Grid1_ytop = 0.92 ! fraction of full window width for margin on top
-
-  Grid1_num_cols = 5 ! divide plotting region into this many equal width cols
-  Grid1_num_rows = 1 ! divide plotting region into this many equal height rows
-  Grid1_num_plots = 2 ! <= 10
-
-  Grid1_plot_name(1) = 'HR'
-  Grid1_plot_row(1) = 1 ! number from 1 at top
-  Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows
-  Grid1_plot_col(1) =  1 ! number from 1 at left
-  Grid1_plot_colspan(1) = 2 ! plot spans this number of columns
-  Grid1_plot_pad_left(1) = 0.025 ! fraction of full window width for padding on left
-  Grid1_plot_pad_right(1) = 0.05 ! fraction of full window width for padding on right
-  Grid1_plot_pad_top(1) = 0.05 ! fraction of full window height for padding at top
-  Grid1_plot_pad_bot(1) = 0.05 ! fraction of full window height for padding at bottom
-  Grid1_txt_scale_factor(1) = 1.0 ! multiply txt_scale for subplot by this
-
-  Grid1_plot_name(2) = 'Profile_Panels1'
-  Grid1_plot_row(2) = 1 ! number from 1 at top
-  Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows
-  Grid1_plot_col(2) = 3 ! number from 1 at left
-  Grid1_plot_colspan(2) = 3 ! plot spans this number of columns
-  Grid1_plot_pad_left(2) = 0.05 ! fraction of full window width for padding on left
-  Grid1_plot_pad_right(2) = 0.025 ! fraction of full window width for padding on right
-  Grid1_plot_pad_top(2) = 0.05 ! fraction of full window height for padding at top
-  Grid1_plot_pad_bot(2) = 0.05 ! fraction of full window height for padding at bottom
-  Grid1_txt_scale_factor(2) = 1.0 ! multiply txt_scale for subplot by this
-
-  ! file output
-  Grid1_file_flag = .true.
-  Grid1_file_dir = 'png'
-  Grid1_file_prefix = 'grid1'
-  Grid1_file_interval = 1000000 ! output when mod(model_number,Grid1_file_interval)==0
-  Grid1_file_width = 15 ! negative means use same value as for window
-  Grid1_file_aspect_ratio = -1 ! negative means use same value as for window
-
-   pgstar_model_scale = 1.4
-   pgstar_model_disp = 1.5
-   pgstar_model_coord = 0.98
-   pgstar_model_fjust = 1.0
-
-   pgstar_age_scale = 1.4
-   pgstar_age_disp = 1.5
-   pgstar_age_coord = -0.04
-   pgstar_age_fjust = 0.0
-
-  ! HR diagram
-  HR_win_flag = .false.
-  HR_win_aspect_ratio = 1.0
-
-  ! set static plot bounds
-  HR_logT_min = 3.55
-  HR_logT_max = 3.85
-  HR_logL_min = 0.1
-  HR_logL_max = 1.0
-
-  ! show OPAL results
-  HR_fname = 'HR_OPAL.dat' ! file name for extra HR data
-
-
- ! profile 
-  Profile_Panels1_win_flag = .false.
-
-  Profile_Panels1_num_panels = 1
-
-  Profile_Panels1_xaxis_name = 'mass'
-  Profile_Panels1_xmin = -101d0 ! only used if /= -101d0
-  Profile_Panels1_xmax = -101d0 ! only used if /= -101d0
-
-  Profile_Panels1_yaxis_name(1) = 'z_mass_fraction_metals'
-  Profile_Panels1_ymin(1) = 0.038 ! only used if /= -101d0
-  Profile_Panels1_ymax(1) = 0.042 ! only used if /= -101d0
-
-  Profile_Panels1_other_yaxis_name(:) = ''
-
- / ! end of pgstar namelist
+The Python script used to create the figures above:
 
+.. literalinclude:: ../../../star/test_suite/1.3M_ms_high_Z/plot.py
+  :language: python
 
 
 Last-Updated: 27May2021 (MESA ebecc10) by fxt
 
+Last-Run: 26Jul2024 (MESA afd04d7d) by pmocz on C916PXT6XW in 159 seconds using 8 threads.
diff --git a/star/test_suite/1.3M_ms_high_Z/docs/HR_diagram.svg b/star/test_suite/1.3M_ms_high_Z/docs/HR_diagram.svg
new file mode 100644
index 000000000..4620fa164
--- /dev/null
+++ b/star/test_suite/1.3M_ms_high_Z/docs/HR_diagram.svg
@@ -0,0 +1,1463 @@
+<?xml version="1.0" encoding="utf-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<svg xmlns:xlink="http://www.w3.org/1999/xlink" width="308.660426pt" height="310.232497pt" viewBox="0 0 308.660426 310.232497" xmlns="http://www.w3.org/2000/svg" version="1.1">
+ <metadata>
+  <rdf:RDF xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:cc="http://creativecommons.org/ns#" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#">
+   <cc:Work>
+    <dc:type rdf:resource="http://purl.org/dc/dcmitype/StillImage"/>
+    <dc:date>2024-07-26T16:50:37.403272</dc:date>
+    <dc:format>image/svg+xml</dc:format>
+    <dc:creator>
+     <cc:Agent>
+      <dc:title>Matplotlib v3.8.4, https://matplotlib.org/</dc:title>
+     </cc:Agent>
+    </dc:creator>
+   </cc:Work>
+  </rdf:RDF>
+ </metadata>
+ <defs>
+  <style type="text/css">*{stroke-linejoin: round; stroke-linecap: butt}</style>
+ </defs>
+ <g id="figure_1">
+  <g id="patch_1">
+   <path d="M 0 310.232497 
+L 308.660426 310.232497 
+L 308.660426 0 
+L 0 0 
+z
+" style="fill: #ffffff"/>
+  </g>
+  <g id="axes_1">
+   <g id="patch_2">
+    <path d="M 33.692719 280.41418 
+L 299.804719 280.41418 
+L 299.804719 14.30218 
+L 33.692719 14.30218 
+z
+" style="fill: #ffffff"/>
+   </g>
+   <g id="matplotlib.axis_1">
+    <g id="xtick_1">
+     <g id="line2d_1">
+      <defs>
+       <path id="m9a25bb1fa2" d="M 0 0 
+L 0 3.5 
+" style="stroke: #000000; stroke-width: 0.8"/>
+      </defs>
+      <g>
+       <use xlink:href="#m9a25bb1fa2" x="299.804719" y="280.41418" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_1">
+      <!-- $\mathdefault{3.55}$ -->
+      <g transform="translate(290.949012 294.332678) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-33" d="M 1414 2176 
+C 1984 2176 2234 1673 2234 1094 
+C 2234 322 1824 25 1453 25 
+C 1114 25 563 193 390 691 
+C 422 678 454 678 486 678 
+C 640 678 755 780 755 947 
+C 755 1132 614 1216 486 1216 
+C 378 1216 211 1164 211 927 
+C 211 335 787 -128 1466 -128 
+C 2176 -128 2720 432 2720 1087 
+C 2720 1718 2208 2176 1600 2246 
+C 2086 2347 2554 2776 2554 3353 
+C 2554 3856 2048 4224 1472 4224 
+C 890 4224 378 3862 378 3347 
+C 378 3123 544 3084 627 3084 
+C 762 3084 877 3167 877 3334 
+C 877 3500 762 3584 627 3584 
+C 602 3584 570 3584 544 3571 
+C 730 3999 1235 4076 1459 4076 
+C 1683 4076 2106 3966 2106 3347 
+C 2106 3167 2080 2851 1862 2574 
+C 1670 2329 1453 2316 1242 2297 
+C 1210 2297 1062 2284 1037 2284 
+C 992 2278 966 2272 966 2227 
+C 966 2182 973 2176 1101 2176 
+L 1414 2176 
+z
+" transform="scale(0.015625)"/>
+        <path id="CMMI12-3a" d="M 1178 307 
+C 1178 492 1024 620 870 620 
+C 685 620 557 467 557 313 
+C 557 128 710 0 864 0 
+C 1050 0 1178 153 1178 307 
+z
+" transform="scale(0.015625)"/>
+        <path id="CMR17-35" d="M 730 3750 
+C 794 3724 1056 3641 1325 3641 
+C 1920 3641 2246 3961 2432 4140 
+C 2432 4191 2432 4224 2394 4224 
+C 2387 4224 2374 4224 2323 4198 
+C 2099 4102 1837 4032 1517 4032 
+C 1325 4032 1037 4055 723 4191 
+C 653 4224 640 4224 634 4224 
+C 602 4224 595 4217 595 4090 
+L 595 2231 
+C 595 2113 595 2080 659 2080 
+C 691 2080 704 2093 736 2139 
+C 941 2435 1222 2560 1542 2560 
+C 1766 2560 2246 2415 2246 1293 
+C 2246 1087 2246 716 2054 422 
+C 1894 159 1645 25 1370 25 
+C 947 25 518 319 403 812 
+C 429 806 480 793 506 793 
+C 589 793 749 838 749 1036 
+C 749 1209 627 1280 506 1280 
+C 358 1280 262 1190 262 1011 
+C 262 454 704 -128 1382 -128 
+C 2042 -128 2669 441 2669 1267 
+C 2669 2054 2170 2662 1549 2662 
+C 1222 2662 947 2540 730 2304 
+L 730 3750 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-33" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-35" transform="translate(72.787654 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-35" transform="translate(118.478131 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_2">
+     <g id="line2d_2">
+      <g>
+       <use xlink:href="#m9a25bb1fa2" x="255.452719" y="280.41418" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_2">
+      <!-- $\mathdefault{3.60}$ -->
+      <g transform="translate(246.597012 294.332678) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-36" d="M 678 2198 
+C 678 3712 1395 4076 1811 4076 
+C 1946 4076 2272 4049 2400 3782 
+C 2298 3782 2106 3782 2106 3558 
+C 2106 3385 2246 3328 2336 3328 
+C 2394 3328 2566 3353 2566 3571 
+C 2566 3987 2246 4224 1805 4224 
+C 1043 4224 243 3411 243 2011 
+C 243 257 966 -128 1478 -128 
+C 2099 -128 2688 431 2688 1295 
+C 2688 2101 2170 2688 1517 2688 
+C 1126 2688 838 2430 678 1979 
+L 678 2198 
+z
+M 1478 25 
+C 691 25 691 1212 691 1450 
+C 691 1914 909 2585 1504 2585 
+C 1613 2585 1926 2585 2138 2140 
+C 2253 1889 2253 1624 2253 1302 
+C 2253 954 2253 696 2118 438 
+C 1978 173 1773 25 1478 25 
+z
+" transform="scale(0.015625)"/>
+        <path id="CMR17-30" d="M 2688 2038 
+C 2688 2430 2682 3099 2413 3613 
+C 2176 4063 1798 4224 1466 4224 
+C 1158 4224 768 4082 525 3620 
+C 269 3137 243 2539 243 2038 
+C 243 1671 250 1112 448 623 
+C 723 -39 1216 -128 1466 -128 
+C 1760 -128 2208 -7 2470 604 
+C 2662 1048 2688 1568 2688 2038 
+z
+M 1466 -26 
+C 1056 -26 813 328 723 816 
+C 653 1196 653 1749 653 2109 
+C 653 2604 653 3015 736 3407 
+C 858 3954 1216 4121 1466 4121 
+C 1728 4121 2067 3947 2189 3420 
+C 2272 3054 2278 2623 2278 2109 
+C 2278 1691 2278 1176 2202 797 
+C 2067 96 1690 -26 1466 -26 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-33" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-36" transform="translate(72.787654 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(118.478131 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_3">
+     <g id="line2d_3">
+      <g>
+       <use xlink:href="#m9a25bb1fa2" x="211.100719" y="280.41418" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_3">
+      <!-- $\mathdefault{3.65}$ -->
+      <g transform="translate(202.245012 294.332678) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-33" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-36" transform="translate(72.787654 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-35" transform="translate(118.478131 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_4">
+     <g id="line2d_4">
+      <g>
+       <use xlink:href="#m9a25bb1fa2" x="166.748719" y="280.41418" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_4">
+      <!-- $\mathdefault{3.70}$ -->
+      <g transform="translate(157.893012 294.332678) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-37" d="M 2886 3955 
+L 2886 4096 
+L 1382 4096 
+C 634 4096 621 4166 595 4288 
+L 480 4288 
+L 294 3104 
+L 410 3104 
+C 429 3226 474 3552 550 3673 
+C 589 3724 1062 3724 1171 3724 
+L 2579 3724 
+L 1869 2670 
+C 1395 1961 1069 1003 1069 166 
+C 1069 89 1069 -128 1299 -128 
+C 1530 -128 1530 89 1530 172 
+L 1530 466 
+C 1530 1514 1709 2204 2003 2644 
+L 2886 3955 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-33" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-37" transform="translate(72.787654 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(118.478131 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_5">
+     <g id="line2d_5">
+      <g>
+       <use xlink:href="#m9a25bb1fa2" x="122.396719" y="280.41418" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_5">
+      <!-- $\mathdefault{3.75}$ -->
+      <g transform="translate(113.541012 294.332678) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-33" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-37" transform="translate(72.787654 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-35" transform="translate(118.478131 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_6">
+     <g id="line2d_6">
+      <g>
+       <use xlink:href="#m9a25bb1fa2" x="78.044719" y="280.41418" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_6">
+      <!-- $\mathdefault{3.80}$ -->
+      <g transform="translate(69.189012 294.332678) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-38" d="M 1741 2289 
+C 2144 2494 2554 2803 2554 3298 
+C 2554 3884 1990 4224 1472 4224 
+C 890 4224 378 3800 378 3215 
+C 378 3054 416 2777 666 2533 
+C 730 2469 998 2276 1171 2154 
+C 883 2006 211 1652 211 945 
+C 211 282 838 -128 1459 -128 
+C 2144 -128 2720 366 2720 1022 
+C 2720 1607 2330 1877 2074 2051 
+L 1741 2289 
+z
+M 902 2855 
+C 851 2887 595 3086 595 3388 
+C 595 3781 998 4076 1459 4076 
+C 1965 4076 2336 3716 2336 3298 
+C 2336 2700 1670 2359 1638 2359 
+C 1632 2359 1626 2359 1574 2398 
+L 902 2855 
+z
+M 2080 1536 
+C 2176 1466 2483 1253 2483 861 
+C 2483 385 2010 25 1472 25 
+C 890 25 448 443 448 951 
+C 448 1459 838 1884 1280 2083 
+L 2080 1536 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-33" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-38" transform="translate(72.787654 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(118.478131 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_7">
+     <g id="line2d_7">
+      <g>
+       <use xlink:href="#m9a25bb1fa2" x="33.692719" y="280.41418" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_7">
+      <!-- $\mathdefault{3.85}$ -->
+      <g transform="translate(24.837012 294.332678) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-33" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-38" transform="translate(72.787654 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-35" transform="translate(118.478131 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="text_8">
+     <!-- $\log_{10}(T_{\rm eff})$ -->
+     <g transform="translate(144.647509 307.741837) scale(0.1 -0.1)">
+      <defs>
+       <path id="CMR17-6c" d="M 979 4416 
+L 218 4345 
+L 218 4179 
+C 595 4179 653 4141 653 3835 
+L 653 439 
+C 653 198 627 166 218 166 
+L 218 0 
+C 371 12 653 12 813 12 
+C 979 12 1261 12 1414 0 
+L 1414 166 
+C 1005 166 979 191 979 439 
+L 979 4416 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-6f" d="M 2758 1356 
+C 2758 2176 2163 2816 1466 2816 
+C 768 2816 173 2176 173 1356 
+C 173 550 768 -64 1466 -64 
+C 2163 -64 2758 550 2758 1356 
+z
+M 1466 51 
+C 1165 51 909 230 762 480 
+C 602 768 582 1126 582 1408 
+C 582 1676 595 2009 762 2297 
+C 890 2508 1139 2713 1466 2713 
+C 1754 2713 1997 2553 2150 2329 
+C 2349 2028 2349 1606 2349 1408 
+C 2349 1158 2336 774 2163 467 
+C 1984 172 1709 51 1466 51 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-67" d="M 710 1165 
+C 832 1068 1043 960 1299 960 
+C 1805 960 2240 1359 2240 1895 
+C 2240 2063 2189 2321 1997 2521 
+C 2176 2713 2438 2777 2586 2777 
+C 2611 2777 2650 2777 2682 2758 
+C 2656 2751 2598 2726 2598 2623 
+C 2598 2540 2656 2483 2739 2483 
+C 2835 2483 2886 2547 2886 2630 
+C 2886 2751 2790 2880 2586 2880 
+C 2330 2880 2106 2758 1926 2591 
+C 1734 2764 1504 2828 1299 2828 
+C 794 2828 358 2431 358 1895 
+C 358 1527 570 1294 634 1230 
+C 442 1004 442 742 442 710 
+C 442 544 506 300 723 166 
+C 390 82 128 -184 128 -517 
+C 128 -996 736 -1344 1466 -1344 
+C 2170 -1344 2803 -1009 2803 -510 
+C 2803 384 1856 384 1363 384 
+C 1216 384 954 384 922 390 
+C 723 422 589 601 589 825 
+C 589 883 589 1024 710 1165 
+z
+M 1299 1068 
+C 736 1068 736 1766 736 1895 
+C 736 2024 736 2719 1299 2719 
+C 1862 2719 1862 2024 1862 1895 
+C 1862 1766 1862 1068 1299 1068 
+z
+M 1466 -1236 
+C 826 -1236 384 -883 384 -517 
+C 384 -311 493 -118 634 -11 
+C 794 102 858 102 1293 102 
+C 1818 102 2547 102 2547 -517 
+C 2547 -883 2106 -1236 1466 -1236 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-31" d="M 1702 4083 
+C 1702 4217 1696 4224 1606 4224 
+C 1357 3927 979 3833 621 3820 
+C 602 3820 570 3820 563 3808 
+C 557 3795 557 3782 557 3648 
+C 755 3648 1088 3686 1344 3839 
+L 1344 467 
+C 1344 243 1331 166 781 166 
+L 589 166 
+L 589 0 
+C 896 6 1216 12 1523 12 
+C 1830 12 2150 6 2458 0 
+L 2458 166 
+L 2266 166 
+C 1715 166 1702 236 1702 467 
+L 1702 4083 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-28" d="M 1958 -1562 
+C 1958 -1556 1958 -1543 1939 -1524 
+C 1645 -1223 858 -403 858 1596 
+C 858 3595 1632 4408 1946 4729 
+C 1946 4735 1958 4748 1958 4767 
+C 1958 4787 1939 4800 1914 4800 
+C 1843 4800 1299 4325 986 3620 
+C 666 2909 576 2218 576 1603 
+C 576 1141 621 360 1005 -467 
+C 1312 -1133 1837 -1600 1914 -1600 
+C 1946 -1600 1958 -1588 1958 -1562 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMMI12-54" d="M 2669 3886 
+C 2707 4038 2720 4096 2816 4121 
+C 2867 4134 3078 4134 3213 4134 
+C 3853 4134 4154 4109 4154 3612 
+C 4154 3516 4128 3274 4090 3038 
+L 4083 2962 
+C 4083 2937 4109 2898 4147 2898 
+C 4211 2898 4211 2930 4230 3032 
+L 4416 4159 
+C 4429 4217 4429 4230 4429 4249 
+C 4429 4319 4390 4319 4262 4319 
+L 762 4319 
+C 614 4319 608 4313 570 4198 
+L 179 3051 
+C 173 3038 154 2968 154 2962 
+C 154 2930 179 2898 218 2898 
+C 269 2898 282 2924 307 3007 
+C 576 3777 710 4134 1562 4134 
+L 1990 4134 
+C 2144 4134 2208 4134 2208 4064 
+C 2208 4045 2208 4032 2176 3917 
+L 1318 497 
+C 1254 249 1242 185 563 185 
+C 403 185 358 185 358 64 
+C 358 0 429 0 461 0 
+C 621 0 787 12 947 12 
+L 1946 12 
+C 2106 12 2278 0 2438 0 
+C 2509 0 2573 0 2573 121 
+C 2573 185 2528 185 2362 185 
+C 1786 185 1786 242 1786 338 
+C 1786 344 1786 389 1811 491 
+L 2669 3886 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-65" d="M 2438 1503 
+C 2464 1529 2464 1542 2464 1606 
+C 2464 2251 2118 2816 1389 2816 
+C 710 2816 173 2175 173 1394 
+C 173 554 781 -64 1459 -64 
+C 2176 -64 2458 619 2458 755 
+C 2458 800 2419 800 2406 800 
+C 2362 800 2355 787 2330 709 
+C 2189 270 1837 51 1504 51 
+C 1229 51 954 206 781 490 
+C 582 819 582 1200 582 1503 
+L 2438 1503 
+z
+M 589 1600 
+C 634 2511 1126 2713 1382 2713 
+C 1818 2713 2112 2308 2118 1600 
+L 589 1600 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-b" d="M 2554 2585 
+L 3283 2585 
+L 3283 2752 
+L 2541 2752 
+L 2541 3520 
+C 2541 4047 2810 4377 3085 4377 
+C 3168 4377 3264 4352 3328 4307 
+C 3277 4294 3142 4250 3142 4091 
+C 3142 3926 3270 3875 3360 3875 
+C 3450 3875 3578 3926 3578 4091 
+C 3578 4333 3347 4480 3091 4480 
+C 2842 4480 2637 4358 2477 4206 
+C 2330 4415 2086 4480 1837 4480 
+C 1338 4480 634 4193 634 3494 
+L 634 2752 
+L 122 2752 
+L 122 2585 
+L 634 2585 
+L 634 441 
+C 634 198 608 166 198 166 
+L 198 0 
+C 352 12 634 12 794 12 
+C 960 12 1242 12 1395 0 
+L 1395 166 
+C 986 166 960 192 960 441 
+L 960 2585 
+L 2227 2585 
+L 2227 441 
+C 2227 198 2202 166 1792 166 
+L 1792 0 
+C 1946 12 2240 12 2406 12 
+C 2592 12 2918 12 3091 0 
+L 3091 166 
+C 2630 166 2554 166 2554 454 
+L 2554 2585 
+z
+M 947 2752 
+L 947 3494 
+C 947 4072 1395 4377 1824 4377 
+C 1920 4377 2170 4358 2323 4218 
+C 2208 4212 2099 4161 2099 4002 
+C 2099 3837 2246 3793 2259 3793 
+C 2227 3679 2227 3552 2227 3507 
+L 2227 2752 
+L 947 2752 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-29" d="M 1683 1596 
+C 1683 2057 1638 2839 1254 3665 
+C 947 4332 422 4800 346 4800 
+C 326 4800 301 4793 301 4761 
+C 301 4748 307 4742 314 4729 
+C 621 4408 1402 3595 1402 1603 
+C 1402 -396 627 -1210 314 -1530 
+C 307 -1543 301 -1549 301 -1562 
+C 301 -1594 326 -1600 346 -1600 
+C 416 -1600 960 -1127 1274 -422 
+C 1594 289 1683 981 1683 1596 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMR17-6c" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-6f" transform="translate(24.871058 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-67" transform="translate(70.561536 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-31" transform="translate(117.553179 -22.865092) scale(0.697382)"/>
+      <use xlink:href="#CMR17-30" transform="translate(149.536361 -22.865092) scale(0.697382)"/>
+      <use xlink:href="#CMR17-28" transform="translate(182.017675 0) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-54" transform="translate(217.298443 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(274.473486 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-b" transform="translate(302.813318 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-29" transform="translate(344.086385 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+   <g id="matplotlib.axis_2">
+    <g id="ytick_1">
+     <g id="line2d_8">
+      <defs>
+       <path id="m783a30a9c7" d="M 0 0 
+L -3.5 0 
+" style="stroke: #000000; stroke-width: 0.8"/>
+      </defs>
+      <g>
+       <use xlink:href="#m783a30a9c7" x="33.692719" y="280.41418" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_9">
+      <!-- $\mathdefault{0.1}$ -->
+      <g transform="translate(13.96264 283.873429) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-31" transform="translate(72.787654 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_2">
+     <g id="line2d_9">
+      <g>
+       <use xlink:href="#m783a30a9c7" x="33.692719" y="250.84618" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_10">
+      <!-- $\mathdefault{0.2}$ -->
+      <g transform="translate(13.96264 254.305429) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-32" d="M 2669 990 
+L 2554 990 
+C 2490 537 2438 460 2413 422 
+C 2381 371 1920 371 1830 371 
+L 602 371 
+C 832 620 1280 1073 1824 1596 
+C 2214 1966 2669 2400 2669 3033 
+C 2669 3788 2067 4224 1395 4224 
+C 691 4224 262 3603 262 3027 
+C 262 2777 448 2745 525 2745 
+C 589 2745 781 2783 781 3007 
+C 781 3206 614 3264 525 3264 
+C 486 3264 448 3257 422 3244 
+C 544 3788 915 4057 1306 4057 
+C 1862 4057 2227 3616 2227 3033 
+C 2227 2477 1901 1998 1536 1583 
+L 262 147 
+L 262 0 
+L 2515 0 
+L 2669 990 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-32" transform="translate(72.787654 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_3">
+     <g id="line2d_10">
+      <g>
+       <use xlink:href="#m783a30a9c7" x="33.692719" y="221.27818" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_11">
+      <!-- $\mathdefault{0.3}$ -->
+      <g transform="translate(13.96264 224.737429) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-33" transform="translate(72.787654 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_4">
+     <g id="line2d_11">
+      <g>
+       <use xlink:href="#m783a30a9c7" x="33.692719" y="191.71018" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_12">
+      <!-- $\mathdefault{0.4}$ -->
+      <g transform="translate(13.96264 195.169429) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-34" d="M 2150 4147 
+C 2150 4281 2144 4288 2029 4288 
+L 128 1254 
+L 128 1088 
+L 1779 1088 
+L 1779 460 
+C 1779 230 1766 166 1318 166 
+L 1197 166 
+L 1197 0 
+C 1402 12 1747 12 1965 12 
+C 2182 12 2528 12 2733 0 
+L 2733 166 
+L 2611 166 
+C 2163 166 2150 230 2150 460 
+L 2150 1088 
+L 2803 1088 
+L 2803 1254 
+L 2150 1254 
+L 2150 4147 
+z
+M 1798 3723 
+L 1798 1254 
+L 256 1254 
+L 1798 3723 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-34" transform="translate(72.787654 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_5">
+     <g id="line2d_12">
+      <g>
+       <use xlink:href="#m783a30a9c7" x="33.692719" y="162.14218" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_13">
+      <!-- $\mathdefault{0.5}$ -->
+      <g transform="translate(13.96264 165.601429) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-35" transform="translate(72.787654 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_6">
+     <g id="line2d_13">
+      <g>
+       <use xlink:href="#m783a30a9c7" x="33.692719" y="132.57418" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_14">
+      <!-- $\mathdefault{0.6}$ -->
+      <g transform="translate(13.96264 136.033429) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-36" transform="translate(72.787654 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_7">
+     <g id="line2d_14">
+      <g>
+       <use xlink:href="#m783a30a9c7" x="33.692719" y="103.00618" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_15">
+      <!-- $\mathdefault{0.7}$ -->
+      <g transform="translate(13.96264 106.465429) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-37" transform="translate(72.787654 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_8">
+     <g id="line2d_15">
+      <g>
+       <use xlink:href="#m783a30a9c7" x="33.692719" y="73.43818" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_16">
+      <!-- $\mathdefault{0.8}$ -->
+      <g transform="translate(13.96264 76.897429) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-38" transform="translate(72.787654 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_9">
+     <g id="line2d_16">
+      <g>
+       <use xlink:href="#m783a30a9c7" x="33.692719" y="43.87018" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_17">
+      <!-- $\mathdefault{0.9}$ -->
+      <g transform="translate(13.96264 47.329429) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-39" d="M 2253 1871 
+C 2253 448 1670 25 1190 25 
+C 1043 25 685 43 538 281 
+C 704 256 826 345 826 505 
+C 826 678 685 736 595 736 
+C 538 736 365 710 365 492 
+C 365 68 742 -128 1203 -128 
+C 1939 -128 2688 665 2688 2090 
+C 2688 3857 1971 4224 1485 4224 
+C 851 4224 243 3664 243 2800 
+C 243 2000 762 1408 1414 1408 
+C 1952 1408 2189 1910 2253 2122 
+L 2253 1871 
+z
+M 1427 1510 
+C 1254 1510 1011 1542 813 1929 
+C 678 2181 678 2477 678 2793 
+C 678 3174 678 3438 858 3722 
+C 947 3857 1114 4076 1485 4076 
+C 2240 4076 2240 2909 2240 2651 
+C 2240 2193 2035 1510 1427 1510 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-39" transform="translate(72.787654 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_10">
+     <g id="line2d_17">
+      <g>
+       <use xlink:href="#m783a30a9c7" x="33.692719" y="14.30218" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_18">
+      <!-- $\mathdefault{1.0}$ -->
+      <g transform="translate(13.96264 17.761429) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(72.787654 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="text_19">
+     <!-- $\log_{10}(L/L_{\odot})$ -->
+     <g transform="translate(7.47198 174.520284) rotate(-90) scale(0.1 -0.1)">
+      <defs>
+       <path id="CMMI12-4c" d="M 2349 3860 
+C 2406 4102 2426 4166 2989 4166 
+C 3162 4166 3206 4166 3206 4287 
+C 3206 4352 3136 4352 3110 4352 
+C 2982 4352 2835 4339 2707 4339 
+L 1850 4339 
+C 1728 4339 1587 4352 1466 4352 
+C 1414 4352 1344 4352 1344 4230 
+C 1344 4166 1402 4166 1498 4166 
+C 1888 4166 1888 4115 1888 4045 
+C 1888 4032 1888 3994 1862 3898 
+L 998 472 
+C 941 249 928 185 480 185 
+C 358 185 294 185 294 70 
+C 294 0 333 0 461 0 
+L 3328 0 
+C 3469 0 3475 6 3520 121 
+L 4013 1478 
+C 4026 1510 4038 1548 4038 1567 
+C 4038 1605 4006 1631 3974 1631 
+C 3968 1631 3936 1631 3923 1605 
+C 3910 1599 3910 1586 3859 1465 
+C 3654 905 3366 185 2285 185 
+L 1670 185 
+C 1581 185 1568 185 1530 191 
+C 1459 198 1453 211 1453 262 
+C 1453 306 1466 344 1478 402 
+L 2349 3860 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMMI12-3d" d="M 2746 4563 
+C 2746 4569 2784 4665 2784 4678 
+C 2784 4755 2720 4800 2669 4800 
+C 2637 4800 2579 4800 2528 4659 
+L 384 -1364 
+C 384 -1370 346 -1466 346 -1479 
+C 346 -1556 410 -1600 461 -1600 
+C 499 -1600 557 -1594 602 -1460 
+L 2746 4563 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSY10-c" d="M 4621 1606 
+C 4621 2787 3661 3744 2490 3744 
+C 1299 3744 352 2774 352 1606 
+C 352 419 1312 -545 2483 -545 
+C 3674 -545 4621 432 4621 1606 
+z
+M 2490 -384 
+C 1389 -384 512 516 512 1606 
+C 512 2709 1408 3584 2483 3584 
+C 3584 3584 4461 2690 4461 1606 
+C 4461 497 3565 -384 2490 -384 
+z
+M 2925 1606 
+C 2925 1849 2726 2048 2490 2048 
+C 2234 2048 2048 1836 2048 1606 
+C 2048 1363 2246 1164 2483 1164 
+C 2739 1164 2925 1375 2925 1606 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMR17-6c" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-6f" transform="translate(24.871058 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-67" transform="translate(70.561536 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-31" transform="translate(117.553179 -22.865092) scale(0.697382)"/>
+      <use xlink:href="#CMR17-30" transform="translate(149.536361 -22.865092) scale(0.697382)"/>
+      <use xlink:href="#CMR17-28" transform="translate(182.017675 0) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-4c" transform="translate(217.298443 0) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-3d" transform="translate(283.669318 0) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-4c" transform="translate(332.444237 0) scale(0.996264)"/>
+      <use xlink:href="#CMSY10-c" transform="translate(398.815112 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-29" transform="translate(453.554238 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+   <g id="line2d_18">
+    <path d="M 100.125645 238.415149 
+L 101.167057 242.339243 
+L 101.234898 242.363041 
+L 99.974815 238.572618 
+L 96.35645 231.399898 
+L 91.641517 222.149716 
+L 88.106498 215.669112 
+L 85.989529 213.836599 
+L 84.643891 213.04724 
+L 83.589152 211.877978 
+L 83.06718 210.387117 
+L 82.920817 207.24797 
+L 83.46769 200.554593 
+L 85.097273 194.043065 
+L 87.302589 189.353779 
+L 89.382533 186.660462 
+L 89.930292 186.108321 
+L 92.715701 183.68114 
+L 95.779539 182.181935 
+L 98.980159 181.205871 
+L 101.981991 180.037543 
+L 102.610614 174.172033 
+L 91.958854 146.149531 
+L 91.906882 139.782767 
+L 92.546493 138.913989 
+L 92.999143 138.517792 
+L 93.412932 138.214786 
+L 93.827575 137.899018 
+L 94.243682 137.575712 
+L 94.64157 137.260165 
+L 95.012708 136.962499 
+L 95.406014 136.65368 
+L 95.764307 136.359485 
+L 96.176519 136.013184 
+L 97.159339 135.169171 
+L 99.271911 133.140191 
+L 101.691638 130.297457 
+L 104.14137 127.358047 
+L 106.718571 125.004508 
+L 109.48723 123.551776 
+L 112.422185 122.998424 
+L 115.524898 123.302379 
+L 118.773093 124.397923 
+L 122.084337 126.123084 
+L 124.781935 127.905651 
+L 125.463099 128.401757 
+L 128.883964 131.115995 
+L 132.323174 134.132105 
+L 135.745173 137.294469 
+L 139.155118 140.487246 
+L 142.5435 143.583653 
+L 145.871616 146.428732 
+L 149.109703 148.898831 
+L 152.199711 150.862286 
+L 155.127964 152.239799 
+L 157.846305 152.959649 
+L 160.319447 152.999232 
+L 162.554959 152.393268 
+L 164.574395 151.177793 
+L 166.368138 149.384879 
+L 167.978279 147.09309 
+L 169.397412 144.329565 
+L 170.673177 141.178201 
+L 171.791933 137.69104 
+L 172.765967 134.087254 
+L 173.565613 130.489265 
+L 174.259854 126.948187 
+L 174.889346 123.464238 
+L 175.441029 120.047875 
+L 175.929217 116.697013 
+L 176.355768 113.43638 
+L 176.77174 110.218412 
+L 177.150366 107.126147 
+L 177.504148 104.065697 
+L 177.62922 102.874237 
+" clip-path="url(#pba3c452ce2)" style="fill: none; stroke: #ff7f0e; stroke-width: 1.5; stroke-linecap: square"/>
+   </g>
+   <g id="line2d_19">
+    <path d="M 98.017863 230.930271 
+L 98.069818 233.780808 
+L 97.130431 232.384715 
+L 92.839334 223.970134 
+L 89.762334 218.356865 
+L 87.057679 213.945969 
+L 85.409543 211.909293 
+L 83.220817 210.01433 
+L 82.791018 209.315043 
+L 82.539706 208.540089 
+L 82.349619 206.927673 
+L 82.327936 204.318261 
+L 82.523546 200.981708 
+L 82.86851 198.357956 
+L 83.471153 195.410458 
+L 84.127644 193.140256 
+L 85.212098 190.288892 
+L 86.748039 187.438099 
+L 87.164213 186.663323 
+L 89.705811 183.521076 
+L 91.428849 182.08407 
+L 94.158085 180.378806 
+L 95.878979 179.657837 
+L 99.226228 178.605657 
+L 101.536229 177.835256 
+L 102.557383 177.250406 
+L 102.988155 176.825688 
+L 103.331762 176.271733 
+L 103.54789 175.564274 
+L 103.611164 174.68162 
+L 103.517285 173.629471 
+L 102.878305 171.018594 
+L 101.736027 167.801376 
+L 98.652034 160.264501 
+L 95.341071 151.992215 
+L 93.23571 146.064189 
+L 91.477644 140.372937 
+L 90.962606 138.040176 
+L 91.09699 137.683264 
+L 91.443079 137.413734 
+L 91.939214 136.561066 
+L 92.563372 135.539822 
+L 93.229076 134.960205 
+L 97.356337 132.001998 
+L 99.216997 130.583521 
+L 100.77813 129.189839 
+L 104.887861 125.027301 
+L 107.471864 122.916251 
+L 110.301225 121.489808 
+L 113.524345 121.037471 
+L 117.134004 121.71964 
+L 121.098652 123.564583 
+L 125.305976 126.444378 
+L 129.525304 129.982793 
+L 137.221296 137.287122 
+L 143.67315 143.432054 
+L 146.613755 145.996378 
+L 149.373475 148.16712 
+L 151.90346 149.873472 
+L 154.229844 151.153781 
+L 156.309367 151.99678 
+L 158.184359 152.465938 
+L 159.859179 152.594097 
+L 161.363463 152.432003 
+L 162.738219 152.044571 
+L 163.982771 151.443305 
+L 165.090264 150.654204 
+L 166.092415 149.719123 
+L 167.863895 147.541979 
+L 169.287469 145.008559 
+L 170.497116 142.290557 
+L 171.972023 138.044554 
+L 173.135271 133.724724 
+L 174.097225 129.440194 
+L 175.363743 122.528769 
+L 176.525989 114.718545 
+L 177.719544 105.103367 
+L 177.958958 102.866354 
+L 177.958958 102.866354 
+" clip-path="url(#pba3c452ce2)" style="fill: none; stroke: #1f77b4; stroke-width: 1.5; stroke-linecap: square"/>
+   </g>
+   <g id="line2d_20">
+    <defs>
+     <path id="m21068e8305" d="M 0 3 
+C 0.795609 3 1.55874 2.683901 2.12132 2.12132 
+C 2.683901 1.55874 3 0.795609 3 0 
+C 3 -0.795609 2.683901 -1.55874 2.12132 -2.12132 
+C 1.55874 -2.683901 0.795609 -3 0 -3 
+C -0.795609 -3 -1.55874 -2.683901 -2.12132 -2.12132 
+C -2.683901 -1.55874 -3 -0.795609 -3 0 
+C -3 0.795609 -2.683901 1.55874 -2.12132 2.12132 
+C -1.55874 2.683901 -0.795609 3 0 3 
+z
+" style="stroke: #ff0000"/>
+    </defs>
+    <g clip-path="url(#pba3c452ce2)">
+     <use xlink:href="#m21068e8305" x="177.958958" y="102.866354" style="fill: #ff0000; stroke: #ff0000"/>
+    </g>
+   </g>
+   <g id="patch_3">
+    <path d="M 33.692719 280.41418 
+L 33.692719 14.30218 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_4">
+    <path d="M 299.804719 280.41418 
+L 299.804719 14.30218 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_5">
+    <path d="M 33.692719 280.41418 
+L 299.804719 280.41418 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_6">
+    <path d="M 33.692719 14.30218 
+L 299.804719 14.30218 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="text_20">
+    <!-- HR Diagram -->
+    <g transform="translate(136.193532 8.30218) scale(0.12 -0.12)">
+     <defs>
+      <path id="CMSS17-48" d="M 3674 4416 
+L 3136 4416 
+L 3136 2496 
+L 1101 2496 
+L 1101 4416 
+L 563 4416 
+L 563 0 
+L 1101 0 
+L 1101 2105 
+L 3136 2105 
+L 3136 0 
+L 3674 0 
+L 3674 4416 
+z
+" transform="scale(0.015625)"/>
+      <path id="CMSS17-52" d="M 2522 2099 
+L 2534 2105 
+C 3533 2450 3539 3125 3539 3244 
+C 3539 3838 2925 4416 2003 4416 
+L 570 4416 
+L 570 0 
+L 1094 0 
+L 1094 2041 
+L 2035 2041 
+L 3168 0 
+L 3706 0 
+L 2522 2099 
+z
+M 1094 2432 
+L 1094 4057 
+L 1933 4057 
+C 2746 4057 3034 3607 3034 3244 
+C 3034 2907 2778 2432 1933 2432 
+L 1094 2432 
+z
+" transform="scale(0.015625)"/>
+      <path id="CMSS17-44" d="M 570 4416 
+L 570 0 
+L 2144 0 
+C 3194 0 4000 981 4000 2169 
+C 4000 3396 3194 4416 2144 4416 
+L 570 4416 
+z
+M 1094 358 
+L 1094 4057 
+L 2003 4057 
+C 2861 4057 3475 3275 3475 2169 
+C 3475 1108 2867 358 2003 358 
+L 1094 358 
+z
+" transform="scale(0.015625)"/>
+      <path id="CMSS17-69" d="M 979 4224 
+L 442 4224 
+L 442 3686 
+L 979 3686 
+L 979 4224 
+z
+M 947 2752 
+L 474 2752 
+L 474 0 
+L 947 0 
+L 947 2752 
+z
+" transform="scale(0.015625)"/>
+      <path id="CMSS17-61" d="M 2406 1789 
+C 2406 2399 1978 2816 1402 2816 
+C 1120 2816 813 2764 461 2559 
+L 499 2133 
+C 659 2250 934 2438 1395 2438 
+C 1722 2438 1920 2185 1920 1782 
+L 1920 1536 
+C 896 1504 256 1209 256 711 
+C 256 452 416 -64 947 -64 
+C 1043 -64 1562 -52 1933 224 
+L 1933 -13 
+L 2406 -13 
+L 2406 1789 
+z
+M 1920 824 
+C 1920 711 1920 559 1728 446 
+C 1562 339 1350 326 1261 326 
+C 941 326 723 503 723 723 
+C 723 1165 1722 1209 1920 1216 
+L 1920 824 
+z
+" transform="scale(0.015625)"/>
+      <path id="CMSS17-67" d="M 2848 2816 
+C 2483 2809 2170 2739 1914 2617 
+C 1702 2783 1485 2816 1338 2816 
+C 781 2816 358 2356 358 1824 
+C 358 1481 550 1222 563 1209 
+C 448 1049 384 876 384 684 
+C 384 460 474 300 544 211 
+C 211 6 166 -308 166 -429 
+C 166 -896 749 -1280 1498 -1280 
+C 2253 -1280 2835 -896 2835 -423 
+C 2835 460 1856 467 1587 467 
+L 1069 467 
+C 973 467 717 467 717 793 
+C 717 921 774 1004 781 1011 
+C 877 940 1075 832 1338 832 
+C 1869 832 2310 1279 2310 1824 
+C 2310 2128 2170 2349 2112 2425 
+L 2131 2425 
+C 2150 2425 2419 2444 2515 2444 
+C 2720 2444 2739 2438 2918 2419 
+L 2848 2816 
+z
+M 1338 1184 
+C 1120 1184 813 1317 813 1824 
+C 813 2375 1165 2463 1331 2463 
+C 1549 2463 1856 2330 1856 1824 
+C 1856 1272 1504 1184 1338 1184 
+z
+M 1581 0 
+C 1734 0 2381 0 2381 -436 
+C 2381 -711 1984 -928 1504 -928 
+C 1018 -928 621 -717 621 -429 
+C 621 -397 621 0 1062 0 
+L 1581 0 
+z
+" transform="scale(0.015625)"/>
+      <path id="CMSS17-72" d="M 954 1369 
+C 954 1974 1395 2379 1958 2392 
+L 1958 2816 
+C 1549 2809 1165 2604 934 2270 
+L 934 2783 
+L 480 2783 
+L 480 0 
+L 954 0 
+L 954 1369 
+z
+" transform="scale(0.015625)"/>
+      <path id="CMSS17-6d" d="M 4288 1878 
+C 4288 2309 4179 2816 3462 2816 
+C 2982 2816 2694 2515 2566 2328 
+C 2451 2668 2182 2816 1798 2816 
+C 1363 2816 1088 2566 941 2386 
+L 941 2783 
+L 474 2783 
+L 474 0 
+L 960 0 
+L 960 1556 
+C 960 1936 1101 2425 1555 2425 
+C 2138 2425 2138 2013 2138 1826 
+L 2138 0 
+L 2624 0 
+L 2624 1556 
+C 2624 1936 2765 2425 3219 2425 
+C 3802 2425 3802 2013 3802 1826 
+L 3802 0 
+L 4288 0 
+L 4288 1878 
+z
+" transform="scale(0.015625)"/>
+     </defs>
+     <use xlink:href="#CMSS17-48" transform="scale(0.996264)"/>
+     <use xlink:href="#CMSS17-52" transform="translate(66.061519 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-44" transform="translate(157.706787 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-69" transform="translate(225.249628 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-61" transform="translate(247.430352 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-67" transform="translate(292.352272 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-72" transform="translate(339.195896 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-61" transform="translate(371.105668 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-6d" transform="translate(416.027589 0) scale(0.996264)"/>
+    </g>
+   </g>
+   <g id="legend_1">
+    <g id="patch_7">
+     <path d="M 219.598053 50.176536 
+L 292.804719 50.176536 
+Q 294.804719 50.176536 294.804719 48.176536 
+L 294.804719 21.30218 
+Q 294.804719 19.30218 292.804719 19.30218 
+L 219.598053 19.30218 
+Q 217.598053 19.30218 217.598053 21.30218 
+L 217.598053 48.176536 
+Q 217.598053 50.176536 219.598053 50.176536 
+z
+" style="fill: #ffffff; opacity: 0.8; stroke: #cccccc; stroke-linejoin: miter"/>
+    </g>
+    <g id="line2d_21">
+     <path d="M 221.598053 26.80218 
+L 231.598053 26.80218 
+L 241.598053 26.80218 
+" style="fill: none; stroke: #ff7f0e; stroke-width: 1.5; stroke-linecap: square"/>
+    </g>
+    <g id="text_21">
+     <!-- OPAL.dat -->
+     <g transform="translate(249.598053 30.30218) scale(0.1 -0.1)">
+      <defs>
+       <path id="CMSS17-4f" d="M 4096 2201 
+C 4096 3541 3219 4544 2214 4544 
+C 1210 4544 333 3535 333 2201 
+C 333 855 1222 -128 2214 -128 
+C 3206 -128 4096 855 4096 2201 
+z
+M 2214 275 
+C 1510 275 870 1067 870 2285 
+C 870 3470 1549 4140 2214 4140 
+C 2880 4140 3558 3470 3558 2285 
+C 3558 1061 2912 275 2214 275 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSS17-50" d="M 2106 1856 
+C 2874 1856 3501 2447 3501 3139 
+C 3501 3818 2899 4416 2067 4416 
+L 570 4416 
+L 570 0 
+L 1107 0 
+L 1107 1856 
+L 2106 1856 
+z
+M 1926 4057 
+C 2669 4057 2995 3598 2995 3139 
+C 2995 2711 2694 2227 1926 2227 
+L 1094 2227 
+L 1094 4057 
+L 1926 4057 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSS17-41" d="M 2272 4416 
+L 1722 4416 
+L 166 0 
+L 653 0 
+L 1101 1280 
+L 2816 1280 
+L 3270 0 
+L 3827 0 
+L 2272 4416 
+z
+M 2694 1638 
+L 1222 1638 
+C 1530 2530 1914 3638 1958 3924 
+L 1965 3924 
+C 2010 3663 2138 3281 2246 2956 
+L 2694 1638 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSS17-4c" d="M 1670 416 
+C 1594 416 1517 409 1440 409 
+L 1101 409 
+L 1101 4416 
+L 563 4416 
+L 563 0 
+L 3002 0 
+L 3002 416 
+L 1670 416 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSS17-2e" d="M 1088 512 
+L 576 512 
+L 576 0 
+L 1088 0 
+L 1088 512 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSS17-64" d="M 2611 4416 
+L 2138 4416 
+L 2138 2495 
+C 1939 2662 1613 2816 1254 2816 
+C 672 2816 211 2179 211 1375 
+C 211 572 666 -64 1235 -64 
+C 1677 -64 1971 172 2125 307 
+L 2125 -13 
+L 2611 -13 
+L 2611 4416 
+z
+M 2125 851 
+C 2125 760 2125 663 1926 488 
+C 1798 378 1645 326 1498 326 
+C 1152 326 698 585 698 1369 
+C 698 2185 1210 2425 1562 2425 
+C 1798 2425 1990 2308 2125 2114 
+L 2125 851 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSS17-74" d="M 1069 2380 
+L 1901 2380 
+L 1901 2752 
+L 1069 2752 
+L 1069 3520 
+L 614 3520 
+L 614 2752 
+L 109 2752 
+L 109 2380 
+L 602 2380 
+L 602 751 
+C 602 384 685 -64 1107 -64 
+C 1427 -64 1722 25 2003 172 
+L 1901 551 
+C 1747 416 1562 339 1363 339 
+C 1082 339 1069 699 1069 860 
+L 1069 2380 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMSS17-4f" transform="scale(0.996264)"/>
+      <use xlink:href="#CMSS17-50" transform="translate(69.024255 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-41" transform="translate(120.952586 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-4c" transform="translate(183.170441 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-2e" transform="translate(233.857547 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-64" transform="translate(259.881751 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-61" transform="translate(308.086695 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-74" transform="translate(353.008615 0) scale(0.996264)"/>
+     </g>
+    </g>
+    <g id="line2d_22">
+     <path d="M 221.598053 40.739358 
+L 231.598053 40.739358 
+L 241.598053 40.739358 
+" style="fill: none; stroke: #1f77b4; stroke-width: 1.5; stroke-linecap: square"/>
+    </g>
+    <g id="text_22">
+     <!-- MESA -->
+     <g transform="translate(249.598053 44.239358) scale(0.1 -0.1)">
+      <defs>
+       <path id="CMSS17-4d" d="M 3194 2373 
+L 2886 1476 
+C 2835 1311 2662 795 2624 592 
+L 2618 592 
+C 2598 719 2560 853 2458 1177 
+C 2400 1368 2336 1565 2272 1743 
+L 1325 4416 
+L 576 4416 
+L 576 0 
+L 1075 0 
+L 1075 3899 
+L 1082 3899 
+C 1082 3893 1139 3613 1530 2500 
+L 2374 102 
+L 2848 102 
+L 3610 2233 
+C 3661 2379 3821 2843 3891 3066 
+C 3955 3257 4115 3728 4154 3912 
+L 4160 3912 
+L 4160 0 
+L 4666 0 
+L 4666 4416 
+L 3923 4416 
+L 3194 2373 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSS17-45" d="M 1958 435 
+C 1446 435 1216 435 1101 428 
+L 1101 2105 
+L 3085 2105 
+L 3085 2496 
+L 1101 2496 
+L 1101 3993 
+L 1926 3993 
+C 2003 3993 2080 3987 2157 3987 
+L 3251 3987 
+L 3251 4403 
+L 563 4403 
+L 563 0 
+L 3334 0 
+L 3334 441 
+L 1958 435 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSS17-53" d="M 2797 4230 
+C 2515 4396 2208 4544 1690 4544 
+C 864 4544 333 3934 333 3309 
+C 333 3064 403 2787 653 2504 
+C 902 2220 1184 2143 1542 2053 
+C 1690 2014 1939 1943 1984 1924 
+C 2342 1782 2515 1454 2515 1144 
+C 2515 738 2202 307 1645 307 
+C 1453 307 890 339 358 829 
+L 269 320 
+C 794 -64 1363 -128 1651 -128 
+C 2438 -128 3002 494 3002 1202 
+C 3002 1460 2925 1789 2656 2092 
+C 2394 2381 2163 2446 1638 2588 
+C 1338 2665 1146 2717 986 2916 
+C 877 3058 819 3193 819 3367 
+C 819 3728 1126 4121 1690 4121 
+C 1971 4121 2336 4063 2707 3715 
+L 2797 4230 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMSS17-4d" transform="scale(0.996264)"/>
+      <use xlink:href="#CMSS17-45" transform="translate(81.67603 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-53" transform="translate(137.568043 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-41" transform="translate(189.616559 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+  </g>
+ </g>
+ <defs>
+  <clipPath id="pba3c452ce2">
+   <rect x="33.692719" y="14.30218" width="266.112" height="266.112"/>
+  </clipPath>
+ </defs>
+</svg>
diff --git a/star/test_suite/1.3M_ms_high_Z/docs/grid1000219.svg b/star/test_suite/1.3M_ms_high_Z/docs/grid1000219.svg
new file mode 100644
index 000000000..7b62001fb
--- /dev/null
+++ b/star/test_suite/1.3M_ms_high_Z/docs/grid1000219.svg
@@ -0,0 +1 @@
+<svg xmlns="http://www.w3.org/2000/svg" width="1440" height="576.03"><path fill-rule="evenodd" d="M.016 576.014H1439.98V.028H.016z"/><g fill="none" stroke-linecap="round" stroke-linejoin="round" stroke-miterlimit="10"><g stroke="#fff"><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M1322.1 6.55v4.993M1322.1 7.99l1.056-1.055M1323.154 6.938l.768-.384M1323.914 6.55h1.056M1324.98 6.55l.672.385M1325.647 6.938l.384 1.056M1326.034 7.99v3.553M1326.034 7.99l1.055-1.055M1327.087 6.938l.672-.384M1327.753 6.55h1.056M1328.82 6.55l.768.385M1329.58 6.938l.288 1.056M1329.873 7.99v3.553M1334.233 6.55l-.773.385M1333.433 6.938l-.669.672M1332.753 7.618l-.384 1.056M1332.367 8.67v.769M1332.367 9.43l.384 1.057M1332.753 10.497l.67.672M1333.433 11.164l.774.384M1334.233 11.55h1.054M1335.3 11.55l.667-.383M1335.967 11.164l.68-.672M1336.633 10.497l.387-1.056M1337.033 9.43v-.767M1337.033 8.67l-.386-1.055M1336.633 7.618l-.68-.672M1335.967 6.938l-.667-.384M1335.3 6.55h-1.053M1343.433 4.058v7.487M1343.433 7.618l-.773-.672M1342.633 6.938l-.667-.384M1341.966 6.55h-1.053M1340.9 6.55l-.774.385M1340.1 6.938l-.667.672M1339.433 7.618l-.386 1.056M1339.033 8.67v.769M1339.033 9.43l.387 1.057M1339.433 10.497l.667.672M1340.1 11.164l.773.384M1340.9 11.55h1.053M1341.966 11.55l.667-.383M1342.633 11.164l.773-.672M1345.833 8.67h4.32M1350.1 8.67V8M1350.1 7.99l-.387-.671M1349.7 7.324l-.387-.384M1349.3 6.938l-.667-.384M1348.633 6.55h-1.053M1347.7 6.55l-.68.385M1346.9 6.938l-.76.672M1346.233 7.618l-.387 1.056M1345.833 8.67v.769M1345.833 9.43l.387 1.057M1346.233 10.497l.76.672M1346.9 11.164l.68.384M1347.7 11.55h1.053M1348.633 11.55l.667-.383M1349.3 11.164l.773-.672M1352.633 4.058v7.487M1361.033 5.884V5.5M1361.033 5.498l.386-.672M1361.433 4.83l.373-.383M1361.833 4.444l.68-.384M1362.5 4.058h1.44M1363.966 4.058l.667.384M1364.633 4.444l.386.384M1365.033 4.83l.386.673M1365.433 5.498v.768M1365.433 6.27l-.387.673M1365.033 6.938l-.774 1.056M1364.233 7.99l-3.454 3.553M1360.766 11.55h4.893M1368.9 5.498l.772-.288M1369.566 5.218l1.053-1.152M1370.632 4.058v7.487M1379.432 6.55l-.28 1.057M1379.166 7.618l-.774.768M1378.499 8.378l-1.053.288M1377.432 8.67h-.386M1377.032 8.67l-1.053-.287M1375.966 8.378l-.68-.768M1375.299 7.618l-.373-1.056M1374.899 6.55v-.287M1374.899 6.27l.373-1.055M1375.299 5.218l.68-.768M1375.966 4.444l1.053-.384M1377.032 4.058h.387M1377.432 4.058l1.054.384M1378.499 4.444l.773.768M1379.166 5.218l.28 1.344M1379.432 6.55v1.825M1379.432 8.378l-.28 1.727M1379.166 10.11l-.774 1.057M1378.499 11.164l-1.053.384M1377.432 11.55h-.68M1376.766 11.55l-1.054-.385M1375.699 11.164l-.387-.67M25.455 6.55v4.993M25.455 7.618l-.672-.672M24.783 6.938l-.671-.384M24.111 6.55h-1.055M23.055 6.55l-.768.385M22.287 6.938l-.671.672M21.615 7.618l-.384 1.056M21.231 8.67v.769M21.231 9.43l.385 1.057M21.615 10.497l.672.672M22.287 11.164l.769.384M23.055 11.55h1.056M24.111 11.55l.672-.383M24.783 11.164l.673-.672M32.271 6.55v5.665M32.271 12.217l-.384 1.056M31.887 13.27l-.384.385M31.503 13.657l-.672.384M30.831 14.044h-1.055M29.775 14.044l-.768-.384M32.271 7.618l-.768-.672M31.503 6.938l-.672-.384M30.831 6.55h-1.055M29.775 6.55l-.768.385M29.007 6.938l-.672.672M28.335 7.618l-.384 1.056M27.951 8.67v.769M27.951 9.43l.384 1.057M28.335 10.497l.672.672M29.007 11.164l.768.384M29.775 11.55h1.056M30.831 11.55l.673-.383M31.503 11.164l.768-.672M34.671 8.67h4.32M38.991 8.67V8M38.991 7.99l-.384-.671M38.607 7.324l-.384-.384M38.223 6.938l-.672-.384M37.551 6.55h-1.056M36.495 6.55l-.768.385M35.727 6.938l-.672.672M35.055 7.618l-.384 1.056M34.671 8.67v.769M34.671 9.43l.385 1.057M35.055 10.497l.672.672M35.727 11.164l.768.384M36.495 11.55h1.056M37.551 11.55l.672-.383M38.223 11.164l.768-.672M50.319 4.058 46.767 9.05M46.767 9.058h5.28M50.319 4.058v7.487M54.543 10.87l-.384.289M54.159 11.164l.384.384M54.543 11.55l.384-.383M54.927 11.164l-.385-.288M62.03 5.218l-.383-.768M61.646 4.444l-1.055-.384M60.59 4.058h-.672M59.919 4.058l-1.152.384M58.767 4.444 58.094 5.5M58.095 5.498l-.384 1.824M57.71 7.324v1.728M57.71 9.058l.384 1.44M58.095 10.497l.672.672M58.767 11.164l1.151.384M59.919 11.55h.288M60.206 11.55l1.057-.383M61.262 11.164l.768-.672M62.03 10.497l.288-1.056M62.318 9.43v-.383M62.318 9.058l-.288-1.056M62.03 7.99l-.768-.671M61.262 7.324l-1.056-.384M60.206 6.938h-.288M59.919 6.938l-1.152.384M58.767 7.324l-.673.672M58.095 7.99l-.384 1.057M65.198 4.058h3.936M69.134 4.058l-2.208 2.88M66.926 6.938h1.056M67.982 6.938l.769.384M68.75 7.324l.384.288M69.134 7.618l.288 1.056M69.422 8.67v.769M69.422 9.43l-.288 1.057M69.134 10.497l-.767.672M68.366 11.164l-1.056.384M67.31 11.55h-1.055M66.254 11.55l-1.056-.383M65.198 11.164l-.383-.288M64.814 10.87l-.288-.767M76.142 5.218l-.287-.768M75.854 4.444l-1.056-.384M74.798 4.058h-.768M74.03 4.058l-1.056.384M72.974 4.444 72.302 5.5M72.302 5.498l-.384 1.824M71.918 7.324v1.728M71.918 9.058l.385 1.44M72.302 10.497l.672.672M72.974 11.164l1.056.384M74.03 11.55h.385M74.414 11.55l1.056-.383M75.47 11.164l.672-.672M76.142 10.497l.384-1.056M76.526 9.43v-.383M76.526 9.058l-.384-1.056M76.142 7.99l-.672-.671M75.47 7.324l-1.056-.384M74.414 6.938h-.384M74.03 6.938l-1.056.384M72.974 7.324l-.672.672M72.302 7.99l-.384 1.057M80.75 4.058l-1.056.384M79.694 4.444 79.022 5.5M79.022 5.498l-.384 1.824M78.638 7.324V8.38M78.638 8.378l.384 1.727M79.022 10.11l.672 1.057M79.694 11.164l1.056.384M80.75 11.55h.768M81.518 11.55l1.056-.383M82.574 11.164l.672-1.056M83.246 10.11l.384-1.727M83.63 8.378V7.322M83.63 7.324 83.246 5.5M83.246 5.498l-.672-1.056M82.574 4.444l-1.056-.384M81.518 4.058h-.768M86.798 5.498l.768-.288M87.566 5.218l1.056-1.152M88.622 4.058v7.487M93.518 4.058h3.936M97.454 4.058l-2.113 2.88M95.342 6.938h1.056M96.398 6.938l.671.384M97.07 7.324l.384.288M97.454 7.618l.383 1.056M97.838 8.67v.769M97.838 9.43l-.384 1.057M97.454 10.497l-.673.672M96.782 11.164l-1.153.384M95.63 11.55h-1.056M94.574 11.55l-1.057-.383M93.518 11.164l-.288-.288M93.23 10.87l-.385-.767M99.95 8.67h4.223M104.173 8.67V8M104.173 7.99l-.383-.671M103.79 7.324l-.289-.384M103.501 6.938l-.768-.384M102.733 6.55h-1.055M101.677 6.55l-.672.385M101.005 6.938l-.767.672M100.237 7.618l-.287 1.056M99.95 8.67v.769M99.95 9.43l.287 1.057M100.237 10.497l.768.672M101.005 11.164l.673.384M101.677 11.55h1.056M102.733 11.55l.769-.383M103.501 11.164l.672-.672M110.893 6.55l-.288 1.057M110.605 7.618l-.767.768M109.837 8.378l-1.056.288M108.781 8.67h-.384M108.397 8.67l-1.056-.287M107.341 8.378l-.672-.768M106.67 7.618l-.385-1.056M106.285 6.55v-.287M106.285 6.27l.384-1.055M106.67 5.218l.671-.768M107.341 4.444l1.057-.384M108.397 4.058h.384M108.781 4.058l1.057.384M109.837 4.444l.768.768M110.605 5.218l.288 1.344M110.893 6.55v1.825M110.893 8.378l-.288 1.727M110.605 10.11l-.767 1.057M109.837 11.164l-1.056.384M108.781 11.55h-.672M108.11 11.55l-1.056-.385M107.053 11.164l-.384-.67M118.669 6.55l2.208 4.993M122.989 6.55l-2.112 4.993M120.877 11.55l-.768 1.44M120.109 12.99l-.672.673M119.437 13.657l-.768.384M118.669 14.044h-.288M125.1 6.55v4.993M125.1 8.67l.385-1.055M125.485 7.618l.672-.672M126.157 6.938l.672-.384M126.829 6.55h1.056M133.26 7.618l-.383-.672M132.877 6.938l-1.057-.384M131.82 6.55h-1.055M130.765 6.55l-1.057.385M129.709 6.938l-.384.672M129.325 7.618l.384.768M129.709 8.378l.672.288M130.38 8.67l1.825.385M132.205 9.058l.672.383M132.877 9.43l.383.673M133.26 10.11v.385M133.26 10.497l-.383.672M132.877 11.164l-1.057.384M131.82 11.55h-1.055M130.765 11.55l-1.057-.383M129.709 11.164l-.384-.672M653.277 5.978l1.056-.576M654.33 5.404l1.632-1.536M655.97 3.871v11.136M663.357 13.95l-.48.48M662.877 14.43l.48.577M663.357 15.004l.576-.576M663.93 14.43l-.576-.48M668.73 3.871h5.76M674.49 3.871l-3.168 4.224M671.33 8.098h1.632M672.957 8.098l1.055.576M674.01 8.67l.48.48M674.49 9.15l.576 1.633M675.076 10.777v1.056M675.076 11.83l-.576 1.537M674.49 13.377l-1.056 1.056M673.436 14.43l-1.535.577M671.903 15.004h-1.632M670.277 15.004l-1.536-.576M668.73 14.43l-.576-.48M668.157 13.95l-.576-1.055M678.81 3.871v11.136M678.81 3.871l4.224 11.136M687.263 3.871l-4.224 11.136M687.263 3.871v11.136M689.476 16.057h9.504M701.662 7.51V15M701.662 9.724l1.632-1.632M703.29 8.098l1.055-.576M704.356 7.51h1.536M705.889 7.51l1.056.577M706.942 8.098l.576 1.631M707.516 9.724v5.28M707.516 9.724l1.536-1.632M709.049 8.098l1.152-.576M710.209 7.51h1.536M711.742 7.51l1.056.577M712.796 8.098l.575 1.631M713.369 9.724v5.28M722.875 9.15l-.48-1.055M722.395 8.098l-1.632-.576M720.769 7.51h-1.536M719.235 7.51l-1.632.577M717.595 8.098l-.48 1.056M717.115 9.15l.48 1.057M717.595 10.204l1.056.576M718.649 10.777l2.688.48M721.342 11.257l1.056.576M722.395 11.83l.48 1.057M722.875 12.897v.48M722.875 13.377l-.48 1.056M722.395 14.43l-1.632.577M720.769 15.004h-1.536M719.235 15.004l-1.632-.576M717.595 14.43l-.48-1.055M724.515 16.057h9.6M736.702 3.871v11.136M736.702 9.724l1.632-1.632M738.328 8.098l1.056-.576M739.395 7.51h1.632M741.021 7.51l1.056.577M742.075 8.098l.48 1.631M742.555 9.724v5.28M746.301 3.871l.576.48M746.875 4.351l.48-.48M747.355 3.871l-.48-.576M746.875 3.298l-.576.576M746.875 7.51V15M756.954 7.51v8.545M756.954 16.057l-.576 1.632M756.381 17.697l-.48.48M755.901 18.177l-1.056.576M754.848 18.75h-1.632M753.208 18.75l-1.056-.575M756.954 9.15l-1.056-1.055M755.901 8.098l-1.056-.576M754.848 7.51h-1.632M753.208 7.51l-1.056.577M752.155 8.098l-1.056 1.056M751.101 9.15l-.576 1.633M750.528 10.777v1.056M750.528 11.83l.576 1.537M751.101 13.377l1.056 1.056M752.155 14.43l1.056.577M753.208 15.004h1.632M754.848 15.004l1.056-.576M755.901 14.43l1.056-1.055M761.181 3.871v11.136M761.181 9.724l1.632-1.632M762.808 8.098l1.056-.576M763.874 7.51h1.632M765.5 7.51l1.057.577M766.554 8.098l.48 1.631M767.034 9.724v5.28M769.154 16.057h9.6M788.354 3.871l-7.488 11.136M780.86 3.871h7.488M780.86 15.004h7.488M108.013 501.136h410.39M518.4 501.136V74.906M518.4 74.91H108.01M108.013 74.91v426.229M121.741 501.136v-4.032M149.103 501.136v-4.032M176.462 501.136v-7.968M203.822 501.136v-4.032M231.18 501.136v-4.032M258.54 501.136v-4.032M285.9 501.136v-4.032M313.259 501.136v-7.968M340.618 501.136v-4.032M367.977 501.136v-4.032M395.337 501.136v-4.032M422.696 501.136v-4.032M450.055 501.136v-7.968M477.415 501.136v-4.032M504.774 501.136v-4.032M121.741 78.936v-4.032M149.103 78.936v-4.032M176.462 82.869v-7.968M203.822 78.936v-4.032M231.18 78.936v-4.032M258.54 78.936v-4.032M285.9 78.936v-4.032M313.259 82.869v-7.968M340.618 78.936v-4.032M367.977 78.936v-4.032M395.337 78.936v-4.032M422.696 78.936v-4.032M450.055 82.869v-7.968M477.415 78.936v-4.032M504.774 78.936v-4.032M165.81 510.736h5.855M171.662 510.736l-3.264 4.224M168.396 514.96h1.632M170.022 514.96l1.056.576M171.09 515.536l.575.48M171.662 516.016l.48 1.632M172.142 517.647v1.056M172.142 518.703l-.48 1.536M171.662 520.24l-1.056 1.056M170.61 521.295l-1.633.576M168.97 521.871h-1.633M167.342 521.871l-1.535-.576M165.81 521.295l-.577-.48M165.223 520.815l-.48-1.055M176.462 520.815l-.576.48M175.889 521.295l.576.576M176.462 521.871l.48-.576M176.942 521.295l-.48-.48M183.369 510.736l-1.632.48M181.742 511.216l-.576 1.056M181.169 512.272v1.055M181.169 513.328l.576 1.056M181.742 514.384l1.056.576M182.795 514.96l2.112.576M184.902 515.536l1.632.48M186.542 516.016l1.056 1.056M187.595 517.071l.48 1.056M188.075 518.127v1.633M188.075 519.76l-.48 1.055M187.595 520.815l-.576.48M187.022 521.295l-1.536.576M185.489 521.871h-2.112M183.369 521.871l-1.632-.576M181.742 521.295l-.576-.48M181.169 520.815l-.48-1.055M180.689 519.76v-1.633M180.689 518.127l.48-1.055M181.169 517.071l1.056-1.056M182.222 516.016l1.632-.48M183.849 515.536l2.112-.576M185.969 514.96l1.056-.576M187.022 514.384l.576-1.057M187.595 513.328v-1.056M187.595 512.272l-.576-1.057M187.022 511.216l-1.536-.48M185.489 510.736h-2.112M302.606 510.736h5.856M308.459 510.736l-3.264 4.224M305.192 514.96h1.632M306.819 514.96l1.056.576M307.886 515.536l.576.48M308.459 516.016l.48 1.632M308.939 517.647v1.056M308.939 518.703l-.48 1.536M308.459 520.24l-1.056 1.056M307.406 521.295l-1.632.576M305.766 521.871h-1.632M304.14 521.871l-1.537-.576M302.606 521.295l-.576-.48M302.02 520.815l-.48-1.055M313.259 520.815l-.576.48M312.686 521.295l.576.576M313.259 521.871l.48-.576M313.739 521.295l-.48-.48M324.872 510.736l-5.28 11.135M317.485 510.736h7.392M439.402 510.736h5.856M445.256 510.736l-3.264 4.224M441.989 514.96h1.632M443.616 514.96l1.056.576M444.682 515.536l.576.48M445.256 516.016l.48 1.632M445.736 517.647v1.056M445.736 518.703l-.48 1.536M445.256 520.24l-1.056 1.056M444.202 521.295l-1.632.576M442.562 521.871h-1.632M440.936 521.871l-1.536-.576M439.402 521.295l-.576-.48M438.816 520.815l-.48-1.055M450.055 520.815l-.576.48M449.482 521.295l.576.576M450.055 521.871l.48-.576M450.535 521.295l-.48-.48M461.188 512.272l-.576-1.057M460.615 511.216l-1.536-.48M459.082 510.736h-1.056M458.015 510.736l-1.632.48M456.389 511.216l-1.056 1.632M455.335 512.848l-.576 2.688M454.762 515.536v2.591M454.762 518.127l.576 2.112M455.335 520.24l1.056 1.056M456.389 521.295l1.632.576M458.015 521.871h.48M458.495 521.871l1.632-.576M460.135 521.295l1.056-1.056M461.188 520.24l.48-1.537M461.668 518.703v-.576M461.668 518.127l-.48-1.536M461.188 516.591l-1.056-1.055M460.135 515.536l-1.632-.576M458.495 514.96h-.48M458.015 514.96l-1.632.576M456.389 515.536l-1.056 1.055M455.335 516.591l-.576 1.536M108.013 501.136h4.032M108.013 453.81h7.968M108.013 406.38h4.032M108.013 359.062h7.968M108.013 311.73h4.032M108.013 264.304h7.968M108.013 216.986h4.032M108.013 169.653h7.968M108.013 122.228h4.032M108.013 74.91h7.968M514.374 501.136h4.032M510.44 453.81h7.968M514.374 406.38h4.032M510.44 359.062h7.968M514.374 311.73h4.032M510.44 264.304h7.968M514.374 216.986h4.032M510.44 169.653h7.968M514.374 122.228h4.032M510.44 74.91h7.968M74.126 447.761l-1.632.576M72.494 448.337l-1.056 1.632M71.438 449.97l-.48 2.591M70.958 452.561v1.632M70.958 454.193l.48 2.688M71.438 456.881l1.056 1.536M72.494 458.417l1.632.576M74.126 458.993h1.056M75.182 458.993l1.632-.576M76.814 458.417l1.056-1.536M77.87 456.881l.48-2.688M78.35 454.193v-1.632M78.35 452.561l-.48-2.592M77.87 449.97l-1.056-1.633M76.814 448.337l-1.632-.576M75.182 447.761h-1.056M82.67 457.937l-.576.48M82.094 458.417l.576.576M82.67 458.993l.48-.576M83.15 458.417l-.48-.48M87.374 450.45v-.481M87.374 449.97l.576-1.153M87.95 448.817l.48-.48M88.43 448.337l1.152-.576M89.582 447.761h2.112M91.694 447.761l1.056.576M92.75 448.337l.48.48M93.23 448.817l.576 1.152M93.806 449.97v1.055M93.806 451.025l-.576 1.056M93.23 452.081l-1.056 1.536M92.174 453.617l-5.28 5.376M86.894 458.993h7.392M74.126 353.102l-1.632.48M72.494 353.582l-1.056 1.632M71.438 355.222l-.48 2.688M70.958 357.902v1.536M70.958 359.449l.48 2.688M71.438 362.129l1.056 1.536M72.494 363.662l1.632.576M74.126 364.249h1.056M75.182 364.249l1.632-.576M76.814 363.662l1.056-1.536M77.87 362.129l.48-2.688M78.35 359.449v-1.536M78.35 357.902l-.48-2.688M77.87 355.222l-1.056-1.632M76.814 353.582l-1.632-.48M75.182 353.102h-1.056M82.67 363.182l-.576.48M82.094 363.662l.576.576M82.67 364.249l.48-.576M83.15 363.662l-.48-.48M92.174 353.102l-5.28 7.392M86.894 360.502h7.968M92.174 353.102v11.136M74.126 258.358l-1.632.576M72.494 258.931l-1.056 1.536M71.438 260.465l-.48 2.687M70.958 263.158v1.536M70.958 264.691l.48 2.688M71.438 267.384l1.056 1.632M72.494 269.011l1.632.48M74.126 269.491h1.056M75.182 269.491l1.632-.48M76.814 269.011l1.056-1.632M77.87 267.384l.48-2.688M78.35 264.691v-1.536M78.35 263.158l-.48-2.688M77.87 260.465l-1.056-1.536M76.814 258.931l-1.632-.576M75.182 258.358h-1.056M82.67 268.438l-.576.576M82.094 269.011l.576.48M82.67 269.491l.48-.48M83.15 269.011l-.48-.576M93.806 259.985l-.576-1.056M93.23 258.931l-1.536-.576M91.694 258.358h-1.056M90.638 258.358l-1.632.576M89.006 258.931l-1.056 1.536M87.95 260.465l-.576 2.687M87.374 263.158v2.688M87.374 265.851l.576 2.112M87.95 267.958l1.056 1.056M89.006 269.011l1.632.48M90.638 269.491h.48M91.118 269.491l1.632-.48M92.75 269.011l1.055-1.056M93.806 267.958l.48-1.632M94.286 266.331v-.48M94.286 265.851l-.48-1.632M93.806 264.211l-1.056-1.056M92.75 263.158l-1.633-.576M91.118 262.585h-.48M90.638 262.585l-1.632.575M89.006 263.158l-1.056 1.056M87.95 264.211l-.576 1.632M74.126 163.614l-1.632.576M72.494 164.187l-1.056 1.632M71.438 165.814l-.48 2.592M70.958 168.414v1.631M70.958 170.04l.48 2.688M71.438 172.733l1.056 1.536M72.494 174.267l1.632.576M74.126 174.84h1.056M75.182 174.84l1.632-.576M76.814 174.267l1.056-1.536M77.87 172.733l.48-2.688M78.35 170.04v-1.632M78.35 168.414l-.48-2.592M77.87 165.814l-1.056-1.632M76.814 164.187l-1.632-.576M75.182 163.614h-1.056M82.67 173.787l-.576.48M82.094 174.267l.576.576M82.67 174.84l.48-.576M83.15 174.267l-.48-.48M89.582 163.614l-1.632.576M87.95 164.187l-.576 1.056M87.374 165.24v1.056M87.374 166.294l.576 1.056M87.95 167.347l1.056.576M89.006 167.934l2.112.48M91.118 168.414l1.632.576M92.75 168.987l1.055 1.056M93.806 170.04l.48 1.056M94.286 171.093v1.632M94.286 172.733l-.48 1.056M93.806 173.787l-.576.48M93.23 174.267l-1.536.576M91.694 174.84h-2.112M89.582 174.84l-1.632-.576M87.95 174.267l-.576-.48M87.374 173.787l-.48-1.056M86.894 172.733v-1.632M86.894 171.093l.48-1.056M87.374 170.04l1.056-1.056M88.43 168.987l1.632-.576M90.062 168.414l2.112-.48M92.174 167.934l1.055-.576M93.23 167.347l.576-1.056M93.806 166.294v-1.056M93.806 165.24l-.576-1.056M93.23 164.187l-1.536-.576M91.694 163.614h-2.112M88.43 71.07l1.152-.577M89.582 70.496l1.536-1.536M91.118 68.95v11.135"/></g><g stroke-width="14.4"><path stroke-width="1.919952" d="M276.006 534.735v13.92M283.98 539.343l-1.344.672M282.633 540.015l-1.344 1.344M281.286 541.359l-.672 2.015M280.62 543.375v1.248M280.62 544.623l.672 2.015M281.286 546.639l1.344 1.344M282.633 547.983l1.344.672M283.98 548.655h2.016M285.993 548.655l1.248-.672M287.246 547.983l1.344-1.345M288.58 546.639l.671-2.016M289.26 544.623v-1.249M289.26 543.375l-.673-2.016M288.58 541.359l-1.345-1.344M287.246 540.015l-1.248-.672M285.993 539.343h-2.016M301.26 539.343v10.656M301.26 549.999l-.673 2.015M300.58 552.015l-.673.672M299.913 552.687l-1.344.575M298.566 553.263h-2.016M296.553 553.263l-1.248-.576M301.26 541.359l-1.345-1.344M299.913 540.015l-1.344-.672M298.566 539.343h-2.016M296.553 539.343l-1.248.672M295.3 540.015l-1.345 1.344M293.966 541.359l-.672 2.015M293.286 543.375v1.248M293.286 544.623l.672 2.015M293.966 546.639l1.344 1.344M295.3 547.983l1.247.672M296.553 548.655h2.016M298.566 548.655l1.344-.672M299.913 547.983l1.343-1.345M319.885 534.735v13.92M315.179 534.735h9.312M327.178 543.375h7.968M335.138 543.375v-1.344M335.138 542.03l-.672-1.343M334.472 540.687l-.672-.672M333.805 540.015l-1.344-.672M332.458 539.343h-2.016M330.445 539.343l-1.248.672M329.192 540.015l-1.344 1.344M327.845 541.359l-.672 2.016M327.178 543.375v1.248M327.178 544.623l.672 2.015M327.845 546.639l1.344 1.344M329.192 547.983l1.248.672M330.445 548.655h2.016M332.458 548.655l1.344-.672M333.805 547.983l1.344-1.345M343.778 534.735h-1.344M342.445 534.735l-1.344.672M341.098 535.407l-.672 1.92M340.418 537.327v11.328M338.498 539.343h4.608M351.751 534.735h-1.344M350.405 534.735l-1.344.672M349.058 535.407l-.672 1.92M348.391 537.327v11.328M346.471 539.343h4.608M27.087 329.97h14.016M31.791 322.01l.672 1.344M32.463 323.343l1.248 1.248M33.711 324.596l2.016.672M35.727 325.263h1.344M37.071 325.263l2.016-.672M39.087 324.596l1.344-1.248M40.431 323.343l.672-1.344M41.103 322.01v-2.016M41.103 319.983l-.672-1.344M40.431 318.65l-1.344-1.344M39.087 317.303l-2.016-.672M37.071 316.623h-1.344M35.727 316.623l-2.016.672M33.711 317.303l-1.248 1.344M32.463 318.65l-.672 1.344M31.791 319.983V322M31.791 304.73h10.56M42.35 304.73l2.017.672M44.367 305.397l.672.672M45.039 306.063l.672 1.248M45.71 307.317v2.016M45.71 309.33l-.671 1.344M33.711 304.73l-1.248 1.344M32.463 306.063l-.672 1.248M31.791 307.317v2.016M31.791 309.33l.672 1.344M32.463 310.677l1.248 1.344M33.711 312.023l2.016.672M35.727 312.69h1.344M37.071 312.69l2.016-.672M39.087 312.023l1.344-1.344M40.431 310.677l.672-1.344M41.103 309.33v-2.016M41.103 307.317l-.672-1.248M40.431 306.063l-1.344-1.344M27.087 288.784h14.016M41.103 288.784v-7.968M24.4 266.811l21.31 12M27.087 262.864h14.016M41.103 262.864v-7.967M38.607 248.185l.48 1.536M39.087 249.718l.96 1.44M40.047 251.158l1.536 1.056M41.583 252.211l1.44.48M43.023 252.691h1.536M44.559 252.691l1.44-.48M45.999 252.211l1.536-1.056M47.535 251.158l.96-1.44M48.495 249.718l.576-1.536M49.07 248.185v-1.44M49.07 246.745l-.575-1.536M48.495 245.212l-.96-1.44M47.535 243.772l-1.536-1.056M45.999 242.705l-1.44-.48M44.559 242.225h-1.536M43.023 242.225l-1.44.48M41.583 242.705l-1.536 1.056M40.047 243.772l-.96 1.44M39.087 245.212l-.48 1.536M38.607 246.745v1.44M43.023 247.705l.48.48M43.503 248.185h.576M44.079 248.185l.48-.48M44.559 247.705v-.48M44.559 247.225l-.48-.48M44.079 246.745h-.576M43.503 246.745l-.48.48M43.023 247.225v.48M43.503 247.705h.576M44.079 247.705v-.48M44.079 247.225h-.576M43.503 247.225v.48"/></g><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M303.086 42.177v12.095M311.139 42.177v12.095M303.086 47.937h8.064M315.752 42.177v12.095M315.752 42.177h5.184M320.939 42.177l1.728.576M322.659 42.75l.576.576M323.245 43.323l.576 1.152M323.819 44.47v1.152M323.819 45.63l-.576 1.152M323.245 46.777l-.576.576M322.659 47.35l-1.728.576M320.939 47.937h-5.184M319.779 47.937l4.032 6.335"/></g></g><g stroke="#daa520" stroke-width="28.8"><path stroke-width="3.839904" d="m210.448 433.847 1.632 6.336M212.075 440.18h.096M212.168 440.18l-1.92-6.048M210.248 434.127l-5.568-11.52M204.688 422.607l-7.296-14.783M197.382 407.82l-5.472-10.367M191.915 397.461l-3.264-2.976M188.649 394.488l-2.016-1.248M186.635 393.235l-1.632-1.92M185.009 391.315l-.864-2.304M184.142 389.008l-.192-5.088M183.942 383.928l.864-10.656M184.809 373.262l2.496-10.464M187.302 362.809l3.36-7.488M190.662 355.316l3.264-4.32M193.928 350.996l.768-.864M194.702 350.129l4.32-3.936M199.022 346.196l4.704-2.4M203.728 343.796l4.992-1.536M208.715 342.263l4.608-1.92M213.328 340.343l.96-9.408M214.288 330.93l-16.416-44.831M197.862 286.104l-.096-10.176M197.768 275.93l.96-1.44M198.728 274.49l.768-.575M199.502 273.904l.576-.576M200.075 273.33l.672-.48M200.742 272.85l.672-.48M201.422 272.37l.576-.48M201.995 271.89l.576-.48M202.568 271.41l.576-.575M203.142 270.838l.576-.48M203.728 270.358l.672-.48M204.395 269.878l1.536-1.344M205.928 268.531l3.264-3.264M209.195 265.264l3.648-4.607M212.848 260.665l3.84-4.704M216.688 255.958l3.936-3.744M220.621 252.211l4.32-2.304M224.941 249.905l4.512-.864M229.448 249.052l4.8.48M234.247 249.531l4.992 1.728M239.247 251.251l5.088 2.784M244.327 254.038l4.128 2.784M248.46 256.825l1.056.864M249.514 257.691l5.28 4.32M254.794 262.011l5.28 4.8M260.073 266.811l5.28 5.088M265.353 271.89l5.28 5.089M270.633 276.984l5.28 4.992M275.913 281.97l5.088 4.513M281.006 286.49l4.992 4.034M285.993 290.517l4.8 3.07M290.793 293.584l4.512 2.208M295.3 295.797l4.127 1.152M299.433 296.944l3.84.097M303.272 297.05l3.456-.961M306.726 296.09l3.168-1.92M309.899 294.17l2.688-2.88M312.579 291.29l2.496-3.647M315.085 287.637l2.208-4.512M317.285 283.13l2.016-4.99M319.299 278.13l1.728-5.568M321.032 272.57l1.44-5.758M322.472 266.811l1.248-5.76M323.725 261.051l1.056-5.76M324.779 255.291l.96-5.568M325.739 249.718l.864-5.472M326.605 244.252l.768-5.376M327.365 238.865l.672-5.184M328.045 233.692l.672-5.185M328.712 228.505l.576-4.894M329.285 223.612l.48-4.896M329.765 218.706l.192-1.922"/></g><g stroke="teal" stroke-width="28.8"><path stroke-width="3.839904" d="m207.181 421.847.096 4.608M207.275 426.447l-1.44-2.208M205.835 424.247l-2.688-5.664M203.142 418.58l-3.936-7.871M199.208 410.7l-4.704-8.927M194.502 401.781l-4.224-7.104M190.289 394.675l-2.496-3.264M187.782 391.408l-1.44-1.152M186.342 390.261l-.864-.672M185.489 389.581l-.576-.672M184.902 388.915l-.48-.576M184.422 388.341l-.384-.48M184.049 387.861l-.288-.576M183.755 387.288l-.288-.576M183.462 386.701l-.096-.672M183.369 386.035l-.192-.768M183.182 385.261l-.096-.864M183.089 384.408v-.96M183.089 383.448l-.096-1.152M182.982 382.288v-1.44M182.982 380.848v-1.632M182.982 379.222l.096-1.92M183.089 377.302l.096-1.728M183.182 375.568l.096-1.632M183.275 373.942l.288-1.92M183.569 372.022l.288-2.304M183.849 369.715l.288-1.824M184.142 367.889l.288-1.44M184.422 366.449l.384-1.44M184.809 365.009l.384-1.728M185.195 363.289l.576-1.92M185.769 361.369l.576-1.536M186.342 359.822l.48-1.44M186.822 358.382l.672-1.632M187.502 356.755l.864-1.823M188.369 354.929l.672-1.536M189.035 353.396l.768-1.152M189.809 352.249l.672-1.248M190.475 350.996l.96-1.248M191.435 349.742l1.056-1.632M192.489 348.116l1.055-1.056M193.542 347.062l.864-1.152M194.408 345.902l1.152-.96M195.568 344.942l1.536-1.344M197.102 343.61l1.248-.865M198.342 342.742l.96-.671M199.302 342.063l1.056-.576M200.368 341.49l.864-.577M201.222 340.916l1.248-.576M202.475 340.343l1.44-.576M203.915 339.77l1.248-.48M205.168 339.29l1.056-.289M206.222 338.996l.96-.384M207.181 338.61l.96-.289M208.141 338.33l.96-.289M209.101 338.036l.864-.288M209.968 337.743l.96-.288M210.928 337.463l.864-.288M211.781 337.17l.864-.289M212.648 336.89l.768-.48M213.421 336.41l.768-.48M214.181 335.93l.672-.673M214.861 335.25l.576-.96M215.435 334.29l.288-1.057M215.728 333.236l.096-1.44M215.821 331.796l-.096-1.728M215.728 330.063l-.384-1.92M215.341 328.143l-.672-2.208M214.661 325.943l-.768-2.496M213.901 323.45l-.96-2.688M212.941 320.756l-1.056-2.784M211.888 317.97l-1.152-2.976M210.728 314.997l-1.248-3.072M209.488 311.93l-1.248-3.264M208.235 308.663l-1.344-3.264M206.888 305.397l-1.344-3.36M205.542 302.037l-1.248-3.36M204.302 298.677l-1.248-3.264M203.048 295.41l-1.152-3.264M201.902 292.144l-1.056-3.168M200.848 288.984l-.96-3.072M199.888 285.904l-.96-2.688M198.928 283.224l-.672-2.496M198.248 280.73l-.672-2.111M197.582 278.61l-.48-1.823M197.102 276.784l-.288-1.344M196.808 275.45l-.288-1.055M196.528 274.384l-.096-.768M196.422 273.624l-.096-.48M196.328 273.144v-.384M196.328 272.758l.096-.096M196.422 272.664l.096-.096M196.528 272.57l.192-.095M196.715 272.464l.096-.192M196.808 272.278l.288-.192M197.102 272.09l.192-.383M197.288 271.704l.288-.48M197.582 271.224l.288-.48M197.862 270.744l.192-.384M198.062 270.358l.192-.384M198.248 269.971l.192-.384M198.448 269.584l.192-.288M198.635 269.304l.192-.192M198.822 269.104l.096-.192M198.928 268.918l.192-.192M199.115 268.731l.192-.096M199.302 268.624l.096-.096M199.408 268.531l.096-.096M199.502 268.438l.192-.192M199.688 268.251l.096-.096M199.782 268.144l.192-.096M199.982 268.051l.096-.096M200.075 267.958l.096-.096M200.168 267.864l.192-.096M200.368 267.771l.192-.096M200.555 267.664l.096-.096M200.648 267.571l.096-.096M200.742 267.478l.096-.096M200.848 267.384l.192-.096M201.035 267.291l.192-.192M201.222 267.091l.096-.096M201.328 266.998l.096-.096M201.422 266.904l.192-.094M201.608 266.811l.096-.097M201.702 266.704l.096-.096M201.808 266.611l.192-.095M201.995 266.518l.096-.098M202.088 266.424l.192-.096M202.288 266.331l.096-.095M202.382 266.224l.096-.097M202.475 266.131l.192-.096M202.662 266.038l.096-.095M202.768 265.944l.096-.096M202.862 265.851l.096-.097M202.955 265.744l.192-.096M203.142 265.651l.192-.095M203.342 265.558l.096-.098M203.435 265.464l.096-.096M203.528 265.371l.192-.095M203.728 265.264l.096-.096M203.822 265.171l.096-.097M203.915 265.078l.096-.095M204.008 264.984l.192-.096M204.208 264.891l.096-.097M204.302 264.784l.192-.094M204.488 264.691l.288-.193M204.782 264.504l.288-.19M205.062 264.304l.288-.288M205.355 264.024l.384-.288M205.742 263.731l.48-.288M206.222 263.451l.48-.384M206.701 263.064l.672-.575M207.368 262.491l.768-.576M208.141 261.905l.96-.768M209.101 261.145l1.056-.96M210.155 260.185l1.344-1.248M211.501 258.931l1.536-1.632M213.035 257.305l2.112-2.208M215.141 255.091l2.688-2.88M217.835 252.211l3.935-3.36M221.768 248.852l4.416-2.304M226.181 246.545l4.896-.672M231.088 245.878l5.567 1.056M236.647 246.932l6.144 2.975M242.794 249.905l6.528 4.608M249.327 254.518l6.528 5.664M255.847 260.185l6.144 6.047M261.993 266.224l5.664 5.664M267.66 271.89l5.184 5.185M272.847 277.077l4.8 4.608M277.646 281.69l4.512 4.129M282.153 285.81l4.224 3.457M286.38 289.264l3.935 2.784M290.313 292.05l3.552 2.016M293.86 294.064l3.263 1.344M297.126 295.41l2.88.768M300.006 296.184l2.592.192M302.606 296.37l2.304-.192M304.899 296.184l2.112-.672M307.019 295.504l1.92-.96M308.939 294.544l1.728-1.248M310.659 293.304l1.536-1.536M312.206 291.77l1.44-1.632M313.645 290.13l1.248-1.823M314.885 288.304l1.152-2.016M316.045 286.29l1.056-2.015M317.099 284.277l.96-2.208M318.059 282.064l.96-2.208M319.019 279.864l.768-2.208M319.779 277.65l.768-2.303M320.552 275.344l.672-2.208M321.219 273.144l.672-2.304M321.899 270.838l.576-2.304M322.472 268.531l.576-2.304M323.045 266.224l.576-2.304M323.619 263.931l.48-2.304M324.099 261.625l.48-2.304M324.579 259.318l.384-2.208M324.965 257.105l.384-2.304M325.352 254.811l.384-2.208M325.739 252.598l.384-2.208M326.125 250.385l.384-2.112M326.499 248.278l.287-2.208M326.792 246.065l.384-2.112M327.178 243.958l.288-2.016M327.458 241.945l.288-2.112M327.752 239.825l.288-2.112M328.045 237.718l.288-2.015M328.325 235.705l.192-1.92M328.525 233.785l.288-2.016M328.805 231.772l.192-1.92M329.005 229.852l.288-2.016M329.285 227.825l.192-1.92M329.485 225.905l.192-1.824M329.672 224.092l.192-1.824M329.858 222.266l.288-1.92M330.152 220.346l.192-1.824M330.338 218.519l.192-1.728"/></g><g stroke="#c03" stroke-width="28.8"><path stroke-width="3.839904" d="m329.285 210.546-2.496 1.248M326.792 211.8l-1.248 1.247M325.539 213.052l-1.248 2.496M324.299 215.546v2.496M324.299 218.039l1.248 2.4M325.539 220.439l1.247 1.248M326.792 221.692l2.496 1.248M329.285 222.932h2.496M331.778 222.932l2.4-1.248M334.178 221.692l1.248-1.248M335.432 220.439l1.248-2.4M336.685 218.039v-2.496M336.685 215.546l-1.248-2.496M335.432 213.052l-1.248-1.248M334.178 211.8l-2.4-1.249M331.778 210.546h-2.496"/></g><g stroke="#fff" stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M931.283 34.684v12.095M931.283 34.684h5.184M936.47 34.684l1.728.576M938.203 35.257l.576.576M938.777 35.83l.576 1.152M939.35 36.99v1.728M939.35 38.71l-.576 1.152M938.777 39.87l-.576.576M938.203 40.443l-1.728.576M936.47 41.017h-5.184M943.39 38.71v8.064M943.39 42.177l.576-1.728M943.963 40.443l1.152-1.152M945.11 39.297l1.152-.576M946.27 38.71h1.728M953.176 38.71l-1.152.576M952.03 39.297l-1.152 1.152M950.87 40.443l-.576 1.728M950.296 42.177v1.152M950.296 43.323l.576 1.728M950.87 45.057l1.152 1.152M952.03 46.203l1.152.576M953.176 46.777h1.728M954.91 46.777l1.151-.576M956.056 46.203l1.152-1.152M957.203 45.057l.576-1.728M957.79 43.323v-1.152M957.79 42.177l-.577-1.728M957.203 40.443l-1.152-1.152M956.056 39.297l-1.152-.576M954.91 38.71h-1.728M965.27 34.684h-1.153M964.123 34.684l-1.152.576M962.963 35.257l-.576 1.728M962.39 36.99v9.792M960.67 38.71h4.031M968.15 34.684l.575.576M968.722 35.257l.576-.576M969.31 34.684l-.577-.576M968.722 34.11l-.576.576M968.722 38.71v8.064M973.336 34.684v12.095M977.362 42.177h6.912M984.282 42.177v-1.152M984.282 41.017l-.576-1.152M983.709 39.87l-.576-.576M983.122 39.297l-1.152-.576M981.975 38.71h-1.728M980.242 38.71l-1.152.576M979.096 39.297l-1.152 1.152M977.949 40.443l-.576 1.728M977.362 42.177v1.152M977.362 43.323l.576 1.728M977.949 45.057l1.152 1.152M979.096 46.203l1.151.576M980.242 46.777h1.728M981.975 46.777l1.152-.576M983.122 46.203l1.152-1.152M997.522 34.684v12.095M997.522 34.684h5.184M1002.708 34.684l1.728.576M1004.442 35.257l.576.576M1005.015 35.83l.576 1.152M1005.588 36.99v1.728M1005.588 38.71l-.576 1.152M1005.015 39.87l-.576.576M1004.442 40.443l-1.728.576M1002.708 41.017h-5.184M1015.961 38.71v8.064M1015.961 40.443l-1.152-1.152M1014.801 39.297l-1.152-.576M1013.655 38.71h-1.728M1011.921 38.71l-1.152.576M1010.775 39.297l-1.152 1.152M1009.628 40.443l-.576 1.728M1009.041 42.177v1.152M1009.041 43.323l.576 1.728M1009.628 45.057l1.152 1.152M1010.775 46.203l1.152.576M1011.921 46.777h1.728M1013.655 46.777l1.152-.576M1014.801 46.203l1.152-1.152M1020.561 38.71v8.064M1020.561 41.017l1.728-1.728M1022.294 39.297l1.152-.576M1023.441 38.71h1.728M1025.174 38.71l1.152.576M1026.321 39.297l.576 1.728M1026.908 41.017v5.76M1030.934 42.177h6.912M1037.84 42.177v-1.152M1037.84 41.017l-.575-1.152M1037.267 39.87l-.576-.576M1036.694 39.297l-1.152-.576M1035.547 38.71h-1.728M1033.814 38.71l-1.152.576M1032.668 39.297l-1.152 1.152M1031.508 40.443l-.576 1.728M1030.934 42.177v1.152M1030.934 43.323l.576 1.728M1031.508 45.057l1.152 1.152M1032.668 46.203l1.151.576M1033.814 46.777h1.728M1035.547 46.777l1.152-.576M1036.694 46.203l1.152-1.152M1041.88 34.684v12.095M1052.24 40.443l-.576-1.152M1051.667 39.297l-1.728-.576M1049.947 38.71h-1.728M1048.214 38.71l-1.728.576M1046.48 39.297l-.575 1.152M1045.907 40.443l.576 1.152M1046.48 41.59l1.152.576M1047.64 42.177l2.88.576M1050.52 42.75l1.152.576M1051.667 43.323l.576 1.152M1052.24 44.47v.576M1052.24 45.057l-.576 1.152M1051.667 46.203l-1.728.576M1049.947 46.777h-1.728M1048.214 46.777l-1.728-.576M1046.48 46.203l-.575-1.152M1057.427 36.99l1.152-.576M1058.587 36.417l1.728-1.728M1060.307 34.684v12.095M662.397 501.136h669.583M1331.98 501.136V74.906M1331.98 74.91H662.397M662.397 74.91v426.229M713.955 501.136v-4.032M765.408 501.136v-7.968M816.953 501.136v-4.032M868.405 501.136v-7.968M919.964 501.136v-4.032M971.416 501.136v-7.968M1022.961 501.136v-4.032M1074.426 501.136v-7.968M1125.972 501.136v-4.032M1177.424 501.136v-7.968M1228.983 501.136v-4.032M1280.435 501.136v-7.968M713.955 78.936v-4.032M765.408 82.869v-7.968M816.953 78.936v-4.032M868.405 82.869v-7.968M919.964 78.936v-4.032M971.416 82.869v-7.968M1022.961 78.936v-4.032M1074.426 82.869v-7.968M1125.972 78.936v-4.032M1177.424 82.869v-7.968M1228.983 78.936v-4.032M1280.435 82.869v-7.968M756.861 510.736l-1.536.48M755.328 511.216l-1.056 1.632M754.274 512.848l-.576 2.688M753.688 515.536v1.535M753.688 517.071l.576 2.688M754.274 519.76l1.056 1.535M755.328 521.295l1.536.576M756.861 521.871h1.152M758.008 521.871l1.536-.576M759.554 521.295l1.056-1.535M760.608 519.76l.576-2.689M761.181 517.071v-1.535M761.181 515.536l-.576-2.688M760.608 512.848l-1.056-1.633M759.554 511.216l-1.536-.48M758.008 510.736h-1.152M765.408 520.815l-.48.48M764.928 521.295l.48.576M765.408 521.871l.576-.576M765.98 521.295l-.575-.48M770.207 513.328v-.48M770.207 512.848l.48-1.057M770.687 511.792l.576-.576M771.26 511.216l1.057-.48M772.314 510.736h2.112M774.434 510.736l1.056.48M775.487 511.216l.576.576M776.06 511.792l.48 1.056M776.54 512.848v1.055M776.54 513.904l-.48 1.056M776.06 514.96l-1.055 1.631M775.007 516.591l-5.376 5.28M769.634 521.871h7.488M859.965 510.736l-1.632.48M858.325 511.216l-1.056 1.632M857.272 512.848l-.576 2.688M856.699 515.536v1.535M856.699 517.071l.576 2.688M857.272 519.76l1.056 1.535M858.325 521.295l1.632.576M859.965 521.871h1.056M861.018 521.871l1.536-.576M862.552 521.295l1.056-1.535M863.605 519.76l.576-2.689M864.192 517.071v-1.535M864.192 515.536l-.576-2.688M863.605 512.848l-1.056-1.633M862.552 511.216l-1.536-.48M861.018 510.736h-1.055M868.405 520.815l-.48.48M867.925 521.295l.48.576M868.405 521.871l.576-.576M868.992 521.295l-.576-.48M878.005 510.736l-5.376 7.391M872.632 518.127h8.063M878.005 510.736v11.135M962.963 510.736l-1.632.48M961.336 511.216l-1.056 1.632M960.283 512.848l-.576 2.688M959.71 515.536v1.535M959.71 517.071l.575 2.688M960.283 519.76l1.056 1.535M961.336 521.295l1.632.576M962.963 521.871h1.056M964.03 521.871l1.535-.576M965.563 521.295l1.056-1.535M966.616 519.76l.576-2.689M967.19 517.071v-1.535M967.19 515.536l-.577-2.688M966.616 512.848l-1.056-1.633M965.563 511.216l-1.536-.48M964.03 510.736h-1.057M971.416 520.815l-.48.48M970.936 521.295l.48.576M971.416 521.871l.576-.576M971.989 521.295l-.576-.48M982.642 512.272l-.576-1.057M982.069 511.216l-1.632-.48M980.442 510.736h-1.056M979.389 510.736l-1.536.48M977.842 511.216l-1.056 1.632M976.789 512.848l-.576 2.688M976.216 515.536v2.591M976.216 518.127l.576 2.112M976.789 520.24l1.056 1.056M977.842 521.295l1.536.576M979.389 521.871h.576M979.962 521.871l1.536-.576M981.495 521.295l1.152-1.056M982.642 520.24l.48-1.537M983.122 518.703v-.576M983.122 518.127l-.48-1.536M982.642 516.591l-1.152-1.055M981.495 515.536l-1.535-.576M979.962 514.96h-.576M979.389 514.96l-1.536.576M977.842 515.536l-1.056 1.055M976.789 516.591l-.576 1.536M1065.973 510.736l-1.632.48M1064.347 511.216l-1.056 1.632M1063.28 512.848l-.576 2.688M1062.707 515.536v1.535M1062.707 517.071l.576 2.688M1063.28 519.76l1.056 1.535M1064.347 521.295l1.632.576M1065.973 521.871h1.056M1067.027 521.871l1.536-.576M1068.56 521.295l1.056-1.535M1069.627 519.76l.576-2.689M1070.2 517.071v-1.535M1070.2 515.536l-.576-2.688M1069.627 512.848l-1.056-1.633M1068.56 511.216l-1.536-.48M1067.027 510.736h-1.056M1074.426 520.815l-.48.48M1073.946 521.295l.48.576M1074.426 521.871l.576-.576M1075 521.295l-.576-.48M1081.333 510.736l-1.536.48M1079.8 511.216l-.576 1.056M1079.226 512.272v1.055M1079.226 513.328l.576 1.056M1079.8 514.384l1.056.576M1080.853 514.96l2.112.576M1082.96 515.536l1.632.48M1084.6 516.016l1.056 1.056M1085.653 517.071l.48 1.056M1086.133 518.127v1.633M1086.133 519.76l-.48 1.055M1085.653 520.815l-.576.48M1085.08 521.295l-1.632.576M1083.44 521.871h-2.112M1081.333 521.871l-1.536-.576M1079.8 521.295l-.576-.48M1079.226 520.815l-.48-1.055M1078.746 519.76v-1.633M1078.746 518.127l.48-1.055M1079.226 517.071l1.056-1.056M1080.28 516.016l1.632-.48M1081.906 515.536l2.112-.576M1084.026 514.96l1.056-.576M1085.08 514.384l.576-1.057M1085.653 513.328v-1.056M1085.653 512.272l-.576-1.057M1085.08 511.216l-1.632-.48M1083.44 510.736h-2.112M1175.317 512.848l1.056-.576M1176.37 512.272l1.633-1.536M1177.997 510.736v11.135M1270.355 512.848l1.056-.576M1271.408 512.272l1.632-1.536M1273.035 510.736v11.135M1280.435 520.815l-.48.48M1279.955 521.295l.48.576M1280.435 521.871l.576-.576M1281.008 521.295l-.576-.48M1285.235 513.328v-.48M1285.235 512.848l.576-1.057M1285.808 511.792l.48-.576M1286.288 511.216l1.056-.48M1287.341 510.736h2.208M1289.554 510.736l1.056.48M1290.608 511.216l.48.576M1291.088 511.792l.576 1.056M1291.661 512.848v1.055M1291.661 513.904l-.576 1.056M1291.088 514.96l-1.056 1.631M1290.034 516.591l-5.28 5.28M1284.755 521.871h7.391M662.397 479.824h4.032M662.397 458.513h4.032M662.397 437.207h4.032M662.397 415.887h4.032M662.397 394.581h7.968M662.397 373.262h4.032M662.397 351.956h4.032M662.397 330.65h4.032M662.397 309.33h4.032M662.397 288.024h7.968M662.397 266.704h4.032M662.397 245.398h4.032M662.397 224.092h4.032M662.397 202.773h4.032M662.397 181.467h7.968M662.397 160.147h4.032M662.397 138.84h4.032M662.397 117.535h4.032M662.397 96.215h4.032M662.397 74.91h7.968M1327.953 479.824h4.032M1327.953 458.513h4.032M1327.953 437.207h4.032M1327.953 415.887h4.032M1324.02 394.581h7.968M1327.953 373.262h4.032M1327.953 351.956h4.032M1327.953 330.65h4.032M1327.953 309.33h4.032M1324.02 288.024h7.968M1327.953 266.704h4.032M1327.953 245.398h4.032M1327.953 224.092h4.032M1327.953 202.773h4.032M1324.02 181.467h7.968M1327.953 160.147h4.032M1327.953 138.84h4.032M1327.953 117.535h4.032M1327.953 96.215h4.032M1324.02 74.91h7.968M607.198 495.184l-1.536.48M605.665 495.664l-1.056 1.632M604.612 497.296l-.576 2.688M604.038 499.984v1.536M604.038 501.52l.576 2.688M604.612 504.208l1.056 1.536M605.665 505.744l1.536.576M607.198 506.32h1.056M608.251 506.32l1.632-.576M609.891 505.744l1.056-1.536M610.945 504.208l.576-2.688M611.518 501.52v-1.536M611.518 499.984l-.576-2.688M610.945 497.296l-1.056-1.632M609.891 495.664l-1.633-.48M608.251 495.184h-1.054M615.745 505.264l-.576.48M615.171 505.744l.576.576M615.745 506.32l.576-.576M616.318 505.744l-.576-.48M623.238 495.184l-1.632.48M621.598 495.664l-1.056 1.632M620.544 497.296l-.575 2.688M619.971 499.984v1.536M619.971 501.52l.576 2.688M620.544 504.208l1.056 1.536M621.598 505.744l1.632.576M623.238 506.32h1.056M624.291 506.32l1.536-.576M625.824 505.744l1.056-1.536M626.878 504.208l.576-2.688M627.451 501.52v-1.536M627.451 499.984l-.576-2.688M626.878 497.296l-1.056-1.632M625.824 495.664l-1.536-.48M624.291 495.184h-1.056M631.678 495.184h5.855M637.53 495.184l-3.167 4.224M634.37 499.408h1.537M635.904 499.408l1.152.576M637.05 499.984l.48.48M637.53 500.464l.577 1.632M638.117 502.096v1.056M638.117 503.152l-.576 1.536M637.53 504.688l-1.055 1.056M636.477 505.744l-1.632.576M634.85 506.32h-1.535M633.318 506.32l-1.632-.576M631.678 505.744l-.48-.48M631.198 505.264l-.576-1.056M643.97 495.184l-1.631.48M642.33 495.664l-.575 1.056M641.757 496.72v1.056M641.757 497.776l.576 1.056M642.33 498.832l1.057.576M643.397 499.408l2.112.576M645.504 499.984l1.632.48M647.13 500.464l1.056 1.056M648.197 501.52l.48 1.056M648.677 502.576v1.632M648.677 504.208l-.48 1.056M648.197 505.264l-.576.48M647.61 505.744l-1.535.576M646.077 506.32h-2.112M643.97 506.32l-1.631-.576M642.33 505.744l-.575-.48M641.757 505.264l-.48-1.056M641.277 504.208v-1.632M641.277 502.576l.48-1.056M641.757 501.52l1.056-1.056M642.81 500.464l1.633-.48M644.45 499.984l2.113-.576M646.557 499.408l1.057-.576M647.61 498.832l.576-1.056M648.197 497.776v-1.056M648.197 496.72l-.576-1.056M647.61 495.664l-1.535-.48M646.077 495.184h-2.112M1348.9 495.184l-1.627.48M1347.3 495.664l-1.054 1.632M1346.233 497.296l-.48 2.688M1345.7 499.984v1.536M1345.7 501.52l.48 2.688M1346.233 504.208l1.053 1.536M1347.3 505.744l1.626.576M1348.9 506.32h1.066M1349.966 506.32l1.627-.576M1351.566 505.744l1.054-1.536M1352.633 504.208l.48-2.688M1353.033 501.52v-1.536M1353.033 499.984l-.48-2.688M1352.633 497.296l-1.053-1.632M1351.566 495.664l-1.626-.48M1349.966 495.184h-1.066M1357.3 505.264l-.48.48M1356.9 505.744l.48.576M1357.3 506.32l.573-.576M1357.833 505.744l-.574-.48M1364.766 495.184l-1.64.48M1363.166 495.664l-1.053 1.632M1362.1 497.296l-.48 2.688M1361.7 499.984v1.536M1361.7 501.52l.48 2.688M1362.1 504.208l1.053 1.536M1363.166 505.744l1.64.576M1364.766 506.32h1.053M1365.833 506.32l1.626-.576M1367.432 505.744l1.054-1.536M1368.5 504.208l.48-2.688M1369.032 501.52v-1.536M1369.032 499.984l-.48-2.688M1368.5 497.296l-1.054-1.632M1367.432 495.664l-1.626-.48M1365.833 495.184h-1.054M1373.299 495.184h5.867M1379.166 495.184l-3.267 4.224M1375.966 499.408h1.626M1377.566 499.408l1.053.576M1378.632 499.984l.587.48M1379.166 500.464l.48 1.632M1379.699 502.096v1.056M1379.699 503.152l-.48 1.536M1379.166 504.688l-1.16 1.056M1378.099 505.744l-1.533.576M1376.499 506.32h-1.627M1374.899 506.32l-1.547-.576M1373.299 505.744l-.573-.48M1372.766 505.264l-.48-1.056M1385.565 495.184l-1.64.48M1383.965 495.664l-.48 1.056M1383.432 496.72v1.056M1383.432 497.776l.48 1.056M1383.965 498.832l1.067.576M1385.032 499.408l2.2.576M1387.165 499.984l1.534.48M1388.765 500.464l1.067 1.056M1389.832 501.52l.573 1.056M1390.365 502.576v1.632M1390.365 504.208l-.573 1.056M1389.832 505.264l-.48.48M1389.299 505.744l-1.64.576M1387.699 506.32h-2.107M1385.565 506.32l-1.64-.576M1383.965 505.744l-.48-.48M1383.432 505.264l-.573-1.056M1382.899 504.208v-1.632M1382.899 502.576l.573-1.056M1383.432 501.52l1.067-1.056M1384.499 500.464l1.626-.48M1386.099 499.984l2.106-.576M1388.232 499.408l1.067-.576M1389.299 498.832l.48-1.056M1389.832 497.776v-1.056M1389.832 496.72l-.48-1.056M1389.299 495.664l-1.64-.48M1387.699 495.184h-2.107M607.198 388.621l-1.536.48M605.665 389.101l-1.056 1.632M604.612 390.741l-.576 2.688M604.038 393.421v1.536M604.038 394.968l.576 2.688M604.612 397.648l1.056 1.536M605.665 399.181l1.536.576M607.198 399.768h1.056M608.251 399.768l1.632-.576M609.891 399.181l1.056-1.536M610.945 397.648l.576-2.688M611.518 394.968v-1.536M611.518 393.421l-.576-2.688M610.945 390.741l-1.056-1.632M609.891 389.101l-1.633-.48M608.251 388.621h-1.054M615.745 398.701l-.576.48M615.171 399.181l.576.576M615.745 399.768l.576-.576M616.318 399.181l-.576-.48M623.238 388.621l-1.632.48M621.598 389.101l-1.056 1.632M620.544 390.741l-.575 2.688M619.971 393.421v1.536M619.971 394.968l.576 2.688M620.544 397.648l1.056 1.536M621.598 399.181l1.632.576M623.238 399.768h1.056M624.291 399.768l1.536-.576M625.824 399.181l1.056-1.536M626.878 397.648l.576-2.688M627.451 394.968v-1.536M627.451 393.421l-.576-2.688M626.878 390.741l-1.056-1.632M625.824 389.101l-1.536-.48M624.291 388.621h-1.056M631.678 388.621h5.855M637.53 388.621l-3.167 4.224M634.37 392.848h1.537M635.904 392.848l1.152.576M637.05 393.421l.48.48M637.53 393.901l.577 1.632M638.117 395.541v1.056M638.117 396.594l-.576 1.536M637.53 398.128l-1.055 1.056M636.477 399.181l-1.632.576M634.85 399.768h-1.535M633.318 399.768l-1.632-.576M631.678 399.181l-.48-.48M631.198 398.701l-.576-1.056M648.197 392.275l-.576 1.632M647.61 393.901l-1.055 1.056M646.557 394.968l-1.536.576M645.024 395.541h-.576M644.45 395.541l-1.631-.576M642.81 394.968l-1.055-1.056M641.757 393.901l-.48-1.632M641.277 392.275v-.48M641.277 391.795l.48-1.632M641.757 390.168l1.056-1.056M642.81 389.101l1.633-.48M644.45 388.621h.577M645.024 388.621l1.536.48M646.557 389.101l1.056 1.056M647.61 390.168l.576 2.112M648.197 392.275v2.688M648.197 394.968l-.576 2.688M647.61 397.648l-1.055 1.536M646.557 399.181l-1.536.576M645.024 399.768h-1.056M643.97 399.768l-1.631-.576M642.33 399.181l-.575-1.056M1348.9 388.621l-1.627.48M1347.3 389.101l-1.054 1.632M1346.233 390.741l-.48 2.688M1345.7 393.421v1.536M1345.7 394.968l.48 2.688M1346.233 397.648l1.053 1.536M1347.3 399.181l1.626.576M1348.9 399.768h1.066M1349.966 399.768l1.627-.576M1351.566 399.181l1.054-1.536M1352.633 397.648l.48-2.688M1353.033 394.968v-1.536M1353.033 393.421l-.48-2.688M1352.633 390.741l-1.053-1.632M1351.566 389.101l-1.626-.48M1349.966 388.621h-1.066M1357.3 398.701l-.48.48M1356.9 399.181l.48.576M1357.3 399.768l.573-.576M1357.833 399.181l-.574-.48M1364.766 388.621l-1.64.48M1363.166 389.101l-1.053 1.632M1362.1 390.741l-.48 2.688M1361.7 393.421v1.536M1361.7 394.968l.48 2.688M1362.1 397.648l1.053 1.536M1363.166 399.181l1.64.576M1364.766 399.768h1.053M1365.833 399.768l1.626-.576M1367.432 399.181l1.054-1.536M1368.5 397.648l.48-2.688M1369.032 394.968v-1.536M1369.032 393.421l-.48-2.688M1368.5 390.741l-1.054-1.632M1367.432 389.101l-1.626-.48M1365.833 388.621h-1.054M1373.299 388.621h5.867M1379.166 388.621l-3.267 4.224M1375.966 392.848h1.626M1377.566 392.848l1.053.576M1378.632 393.421l.587.48M1379.166 393.901l.48 1.632M1379.699 395.541v1.056M1379.699 396.594l-.48 1.536M1379.166 398.128l-1.16 1.056M1378.099 399.181l-1.533.576M1376.499 399.768h-1.627M1374.899 399.768l-1.547-.576M1373.299 399.181l-.573-.48M1372.766 398.701l-.48-1.056M1389.832 392.275l-.48 1.632M1389.299 393.901l-1.067 1.056M1388.232 394.968l-1.627.576M1386.632 395.541h-.48M1386.099 395.541l-1.627-.576M1384.499 394.968l-1.067-1.056M1383.432 393.901l-.573-1.632M1382.899 392.275v-.48M1382.899 391.795l.573-1.632M1383.432 390.168l1.067-1.056M1384.499 389.101l1.626-.48M1386.099 388.621h.48M1386.632 388.621l1.627.48M1388.232 389.101l1.067 1.056M1389.299 390.168l.48 2.112M1389.832 392.275v2.688M1389.832 394.968l-.48 2.688M1389.299 397.648l-1.067 1.536M1388.232 399.181l-1.627.576M1386.632 399.768h-1.053M1385.565 399.768l-1.64-.576M1383.965 399.181l-.48-1.056M617.851 282.064l-1.536.48M616.318 282.544l-1.152 1.632M615.171 284.184l-.48 2.688M614.691 286.864v1.536M614.691 288.41l.48 2.688M615.171 291.09l1.152 1.536M616.318 292.624l1.536.576M617.851 293.21h1.056M618.918 293.21l1.632-.576M620.544 292.624l1.056-1.536M621.598 291.09l.48-2.687M622.078 288.41v-1.535M622.078 286.864l-.48-2.688M621.598 284.184l-1.056-1.632M620.544 282.544l-1.631-.48M618.918 282.064h-1.056M626.398 292.144l-.576.48M625.824 292.624l.576.576M626.398 293.21l.48-.576M626.878 292.624l-.48-.48M633.797 282.064l-1.535.48M632.25 282.544l-1.055 1.632M631.198 284.184l-.576 2.688M630.624 286.864v1.536M630.624 288.41l.576 2.688M631.198 291.09l1.056 1.536M632.25 292.624l1.537.576M633.797 293.21h1.056M634.85 293.21l1.633-.576M636.477 292.624l1.056-1.536M637.53 291.09l.577-2.687M638.117 288.41v-1.535M638.117 286.864l-.576-2.688M637.53 284.184l-1.055-1.632M636.477 282.544l-1.632-.48M634.85 282.064h-1.055M646.557 282.064l-5.28 7.392M641.277 289.464h7.968M646.557 282.064V293.2M1348.9 282.064l-1.627.48M1347.3 282.544l-1.054 1.632M1346.233 284.184l-.48 2.688M1345.7 286.864v1.536M1345.7 288.41l.48 2.688M1346.233 291.09l1.053 1.536M1347.3 292.624l1.626.576M1348.9 293.21h1.066M1349.966 293.21l1.627-.576M1351.566 292.624l1.054-1.536M1352.633 291.09l.48-2.687M1353.033 288.41v-1.535M1353.033 286.864l-.48-2.688M1352.633 284.184l-1.053-1.632M1351.566 282.544l-1.626-.48M1349.966 282.064h-1.066M1357.3 292.144l-.48.48M1356.9 292.624l.48.576M1357.3 293.21l.573-.576M1357.833 292.624l-.574-.48M1364.766 282.064l-1.64.48M1363.166 282.544l-1.053 1.632M1362.1 284.184l-.48 2.688M1361.7 286.864v1.536M1361.7 288.41l.48 2.688M1362.1 291.09l1.053 1.536M1363.166 292.624l1.64.576M1364.766 293.21h1.053M1365.833 293.21l1.626-.576M1367.432 292.624l1.054-1.536M1368.5 291.09l.48-2.687M1369.032 288.41v-1.535M1369.032 286.864l-.48-2.688M1368.5 284.184l-1.054-1.632M1367.432 282.544l-1.626-.48M1365.833 282.064h-1.054M1377.566 282.064l-5.28 7.392M1372.232 289.464h7.973M1377.566 282.064V293.2M607.198 175.507l-1.536.48M605.665 175.987l-1.056 1.632M604.612 177.627l-.576 2.688M604.038 180.307v1.536M604.038 181.853l.576 2.688M604.612 184.533l1.056 1.536M605.665 186.066l1.536.576M607.198 186.653h1.056M608.251 186.653l1.632-.576M609.891 186.066l1.056-1.536M610.945 184.533l.576-2.688M611.518 181.853v-1.536M611.518 180.307l-.576-2.688M610.945 177.627l-1.056-1.632M609.891 175.987l-1.633-.48M608.251 175.507h-1.054M615.745 185.586l-.576.48M615.171 186.066l.576.576M615.745 186.653l.576-.576M616.318 186.066l-.576-.48M623.238 175.507l-1.632.48M621.598 175.987l-1.056 1.632M620.544 177.627l-.575 2.688M619.971 180.307v1.536M619.971 181.853l.576 2.688M620.544 184.533l1.056 1.536M621.598 186.066l1.632.576M623.238 186.653h1.056M624.291 186.653l1.536-.576M625.824 186.066l1.056-1.536M626.878 184.533l.576-2.688M627.451 181.853v-1.536M627.451 180.307l-.576-2.688M626.878 177.627l-1.056-1.632M625.824 175.987l-1.536-.48M624.291 175.507h-1.056M635.904 175.507l-5.28 7.391M630.624 182.906h7.968M635.904 175.507v11.135M642.81 177.627l1.153-.576M643.97 177.053l1.537-1.536M645.504 175.507v11.135M1348.9 175.507l-1.627.48M1347.3 175.987l-1.054 1.632M1346.233 177.627l-.48 2.688M1345.7 180.307v1.536M1345.7 181.853l.48 2.688M1346.233 184.533l1.053 1.536M1347.3 186.066l1.626.576M1348.9 186.653h1.066M1349.966 186.653l1.627-.576M1351.566 186.066l1.054-1.536M1352.633 184.533l.48-2.688M1353.033 181.853v-1.536M1353.033 180.307l-.48-2.688M1352.633 177.627l-1.053-1.632M1351.566 175.987l-1.626-.48M1349.966 175.507h-1.066M1357.3 185.586l-.48.48M1356.9 186.066l.48.576M1357.3 186.653l.573-.576M1357.833 186.066l-.574-.48M1364.766 175.507l-1.64.48M1363.166 175.987l-1.053 1.632M1362.1 177.627l-.48 2.688M1361.7 180.307v1.536M1361.7 181.853l.48 2.688M1362.1 184.533l1.053 1.536M1363.166 186.066l1.64.576M1364.766 186.653h1.053M1365.833 186.653l1.626-.576M1367.432 186.066l1.054-1.536M1368.5 184.533l.48-2.688M1369.032 181.853v-1.536M1369.032 180.307l-.48-2.688M1368.5 177.627l-1.054-1.632M1367.432 175.987l-1.626-.48M1365.833 175.507h-1.054M1377.566 175.507l-5.28 7.391M1372.232 182.906h7.973M1377.566 175.507v11.135M1384.499 177.627l1.053-.576M1385.565 177.053l1.627-1.536M1387.165 175.507v11.135M607.198 68.95l-1.536.48M605.665 69.43l-1.056 1.631M604.612 71.07l-.576 2.687M604.038 73.75v1.535M604.038 75.296l.576 2.688M604.612 77.976l1.056 1.536M605.665 79.51l1.536.575M607.198 80.096h1.056M608.251 80.096l1.632-.576M609.891 79.51l1.056-1.537M610.945 77.976l.576-2.688M611.518 75.296V73.76M611.518 73.75l-.576-2.689M610.945 71.07l-1.056-1.633M609.891 69.43l-1.633-.48M608.251 68.95h-1.054M615.745 79.03l-.576.48M615.171 79.51l.576.575M615.745 80.096l.576-.576M616.318 79.51l-.576-.48M623.238 68.95l-1.632.48M621.598 69.43l-1.056 1.631M620.544 71.07l-.575 2.687M619.971 73.75v1.535M619.971 75.296l.576 2.688M620.544 77.976l1.056 1.536M621.598 79.51l1.632.575M623.238 80.096h1.056M624.291 80.096l1.536-.576M625.824 79.51l1.056-1.537M626.878 77.976l.576-2.688M627.451 75.296V73.76M627.451 73.75l-.576-2.689M626.878 71.07l-1.056-1.633M625.824 69.43l-1.536-.48M624.291 68.95h-1.056M635.904 68.95l-5.28 7.391M630.624 76.35h7.968M635.904 68.95v11.135M641.757 71.55v-.48M641.757 71.07l.576-1.057M642.33 70.016l.48-.576M642.81 69.43l1.153-.48M643.97 68.95h2.113M646.077 68.95l1.056.48M647.13 69.43l.48.575M647.61 70.016l.576 1.056M648.197 71.07v1.055M648.197 72.123l-.576 1.056M647.61 73.176l-1.055 1.632M646.557 74.816l-5.28 5.28M641.277 80.096h7.392M1348.9 68.95l-1.627.48M1347.3 69.43l-1.054 1.631M1346.233 71.07l-.48 2.687M1345.7 73.75v1.535M1345.7 75.296l.48 2.688M1346.233 77.976l1.053 1.536M1347.3 79.51l1.626.575M1348.9 80.096h1.066M1349.966 80.096l1.627-.576M1351.566 79.51l1.054-1.537M1352.633 77.976l.48-2.688M1353.033 75.296V73.76M1353.033 73.75l-.48-2.689M1352.633 71.07l-1.053-1.633M1351.566 69.43l-1.626-.48M1349.966 68.95h-1.066M1357.3 79.03l-.48.48M1356.9 79.51l.48.575M1357.3 80.096l.573-.576M1357.833 79.51l-.574-.48M1364.766 68.95l-1.64.48M1363.166 69.43l-1.053 1.631M1362.1 71.07l-.48 2.687M1361.7 73.75v1.535M1361.7 75.296l.48 2.688M1362.1 77.976l1.053 1.536M1363.166 79.51l1.64.575M1364.766 80.096h1.053M1365.833 80.096l1.626-.576M1367.432 79.51l1.054-1.537M1368.5 77.976l.48-2.688M1369.032 75.296V73.76M1369.032 73.75l-.48-2.689M1368.5 71.07l-1.054-1.633M1367.432 69.43l-1.626-.48M1365.833 68.95h-1.054M1377.566 68.95l-5.28 7.391M1372.232 76.35h7.973M1377.566 68.95v11.135M1383.432 71.55v-.48M1383.432 71.07l.48-1.057M1383.965 70.016l.587-.576M1384.499 69.43l1.053-.48M1385.565 68.95h2.107M1387.699 68.95l1.053.48M1388.765 69.43l.587.575M1389.299 70.016l.48 1.056M1389.832 71.07v1.055M1389.832 72.123l-.48 1.056M1389.299 73.176l-1.067 1.632M1388.232 74.816l-5.373 5.28M1382.899 80.096h7.493"/></g><g stroke="#daa520"><g stroke-width="14.4"><path stroke-width="1.919952" d="m586.172 405.328 9.312 7.295M586.172 412.62v-7.295M595.492 412.62v-7.295M596.732 403.314v-11.903M586.172 388.048h9.312M588.772 388.048l-1.92-2.016M586.852 386.035l-.672-1.344M586.172 384.688v-1.92M586.172 382.768l.672-1.344M586.852 381.422l1.92-.672M588.772 380.755h6.72M588.772 380.755l-1.92-2.016M586.852 378.742l-.672-1.344M586.172 377.395v-2.016M586.172 375.382l.672-1.248M586.852 374.128l1.92-.672M588.772 373.462h6.72M586.172 360.782h9.312M588.092 360.782l-1.248 1.344M586.852 362.129l-.672 1.344M586.172 363.475v2.016M586.172 365.489l.672 1.248M586.852 366.742l1.248 1.344M588.092 368.089l2.016.672M590.119 368.755h1.344M591.452 368.755l2.016-.672M593.478 368.089l1.344-1.344M594.812 366.742l.672-1.248M595.492 365.489v-2.016M595.492 363.475l-.672-1.344M594.812 362.129l-1.344-1.344M588.092 348.782l-1.248.672M586.852 349.462l-.672 2.016M586.172 351.476v2.016M586.172 353.489l.672 2.016M586.852 355.502l1.248.672M588.092 356.182l1.344-.672M589.439 355.502l.672-1.344M590.119 354.169l.672-3.36M590.785 350.809l.672-1.344M591.452 349.462l1.344-.672M592.799 348.782h.671M593.478 348.782l1.344.672M594.812 349.462l.672 2.016M595.492 351.476v2.016M595.492 353.489l-.672 2.016M594.812 355.502l-1.344.672M588.092 337.556l-1.248.672M586.852 338.223l-.672 1.92M586.172 340.143v2.016M586.172 342.17l.672 2.015M586.852 344.182l1.248.672M588.092 344.85l1.344-.673M589.439 344.182l.672-1.344M590.119 342.836l.672-3.264M590.785 339.57l.672-1.345M591.452 338.223l1.344-.672M592.799 337.556h.671M593.478 337.556l1.344.672M594.812 338.223l.672 1.92M595.492 340.143v2.016M595.492 342.17l-.672 2.015M594.812 344.182l-1.344.672M596.732 335.543v-12M581.479 316.25v1.344M581.479 317.583l.672 1.344M582.145 318.93l2.016.672M584.159 319.61h11.327M586.172 321.623v-4.704M586.172 312.303h9.312M590.119 312.303l-2.016-.672M588.092 311.637l-1.248-1.344M586.852 310.29l-.672-1.344M586.172 308.943v-2.016M586.172 296.37h9.312M588.092 296.37l-1.248 1.248M586.852 297.624l-.672 1.344M586.172 298.97v2.016M586.172 300.984l.672 1.344M586.852 302.33l1.248 1.344M588.092 303.663l2.016.672M590.119 304.343h1.344M591.452 304.343l2.016-.672M593.478 303.663l1.344-1.343M594.812 302.33l.672-1.344M595.492 300.984v-2.016M595.492 298.97l-.672-1.344M594.812 297.624l-1.344-1.248M588.092 283.704l-1.248 1.344M586.852 285.05l-.672 1.345M586.172 286.384v1.92M586.172 288.304l.672 1.344M586.852 289.65l1.248 1.344M588.092 290.997l2.016.672M590.119 291.664h1.344M591.452 291.664l2.016-.672M593.478 290.997l1.344-1.344M594.812 289.65l.672-1.343M595.492 288.304v-1.92M595.492 286.384l-.672-1.344M594.812 285.05l-1.344-1.343M581.479 278.424h11.328M592.799 278.424l2.015-.672M594.812 277.744l.672-1.344M595.492 276.41v-1.343M586.172 280.344v-4.608M581.479 271.704l.672-.672M582.145 271.024l-.672-.576M581.479 270.451l-.672.576M580.799 271.024l.672.672M586.172 271.024h9.312M586.172 263.064l.672 1.344M586.852 264.411l1.248 1.344M588.092 265.744l2.016.672M590.119 266.424h1.344M591.452 266.424l2.016-.672M593.478 265.744l1.344-1.344M594.812 264.411l.672-1.344M595.492 263.064v-1.92M595.492 261.145l-.672-1.344M594.812 259.798l-1.344-1.344M593.478 258.451l-2.015-.672M591.452 257.785h-1.344M590.119 257.785l-2.016.672M588.092 258.451l-1.248 1.344M586.852 259.798l-.672 1.344M586.172 261.145v1.92M586.172 253.171h9.312M588.772 253.171l-1.92-2.016M586.852 251.158l-.672-1.344M586.172 249.811v-2.015M586.172 247.798l.672-1.344M586.852 246.452l1.92-.672M588.772 245.785h6.72M596.732 243.185v-12M586.172 227.825h9.312M588.772 227.825l-1.92-1.92M586.852 225.905l-.672-1.344M586.172 224.572v-2.016M586.172 222.546l.672-1.344M586.852 221.212l1.92-.672M588.772 220.532h6.72M588.772 220.532l-1.92-1.92M586.852 218.612l-.672-1.344M586.172 217.266v-2.016M586.172 215.252l.672-1.344M586.852 213.906l1.92-.672M588.772 213.24h6.72M590.119 208.626v-7.968M590.119 200.666h-1.344M588.772 200.666l-1.344.672M587.425 201.333l-.576.576M586.852 201.906l-.672 1.344M586.172 203.253v2.016M586.172 205.266l.672 1.344M586.852 206.613l1.248 1.344M588.092 207.96l2.016.671M590.119 208.626h1.344M591.452 208.626l2.016-.672M593.478 207.96l1.344-1.345M594.812 206.613l.672-1.344M595.492 205.266v-2.016M595.492 203.253l-.672-1.344M594.812 201.906l-1.344-1.248M581.479 195.293h11.328M592.799 195.293l2.015-.672M594.812 194.613l.672-1.344M595.492 193.266v-1.248M586.172 197.306v-4.608M586.172 180.693h9.312M588.092 180.693l-1.248 1.344M586.852 182.04l-.672 1.344M586.172 183.386v1.92M586.172 185.306l.672 1.344M586.852 186.653l1.248 1.344M588.092 187.986l2.016.672M590.119 188.666h1.344M591.452 188.666l2.016-.672M593.478 187.986l1.344-1.344M594.812 186.653l.672-1.344M595.492 185.306v-1.92M595.492 183.386l-.672-1.343M594.812 182.04l-1.344-1.344M581.479 175.413h14.015M588.092 163.414l-1.248.672M586.852 164.094l-.672 2.016M586.172 166.107v1.92M586.172 168.027l.672 2.016M586.852 170.04l1.248.672M588.092 170.707l1.344-.672M589.439 170.04l.672-1.344M590.119 168.694l.672-3.264M590.785 165.427l.672-1.344M591.452 164.094l1.344-.672M592.799 163.414h.671M593.478 163.414l1.344.672M594.812 164.094l.672 2.016M595.492 166.107v1.92M595.492 168.027l-.672 2.016M594.812 170.04l-1.344.672"/></g><g stroke-width="28.8"><path stroke-width="3.839904" d="M1331.98 277.37h-.096M1331.887 277.37h-.096M1331.793 277.37h-.096M1331.7 277.37h-.096M1331.593 277.37h-.096M1331.5 277.37h-.096M1331.407 277.37h-.096M1331.313 277.37h-.096M1331.22 277.37h-.096M1331.113 277.37h-.096M1331.02 277.37h-.096M1330.927 277.37h-.096M1330.833 277.37h-.096M1330.74 277.37h-.097M1330.633 277.37h-.096M1330.54 277.37h-.095M1330.447 277.37h-.098M1330.353 277.37h-.097M1330.26 277.37h-.095M1330.153 277.37h-.096M1330.06 277.37h-.097M1329.967 277.37h-.096M1329.873 277.37h-.096M1329.78 277.37h-.096M1329.673 277.37h-.096M1329.58 277.37h-.096M1329.487 277.37h-.096M1329.393 277.37h-.096M1329.3 277.37h-.096M1329.193 277.37h-.096M1329.1 277.37h-.096M1329.007 277.37h-.096M1328.913 277.37h-.096M1328.82 277.37h-.096M1328.713 277.37h-.096M1328.62 277.37h-.096M1328.527 277.37h-.192M1328.34 277.37h-.096M1328.233 277.37h-.096M1328.14 277.37h-.096M1328.047 277.37h-.192M1327.86 277.37h-.096M1327.753 277.37h-.192M1327.567 277.37h-.096M1327.473 277.37h-.192M1327.287 277.37h-.098M1327.18 277.37h-.19M1326.993 277.37h-.193M1326.793 277.37h-.094M1326.7 277.37h-.193M1326.514 277.37h-.191M1326.327 277.37h-.193M1326.127 277.37h-.192M1325.94 277.37h-.192M1325.74 277.37h-.193M1325.554 277.37h-.191M1325.367 277.37h-.192M1325.167 277.37h-.288M1324.887 277.37h-.193M1324.687 277.37h-.192M1324.5 277.37h-.288M1324.207 277.37h-.288M1323.927 277.37h-.193M1323.727 277.37h-.288M1323.447 277.37h-.288M1323.154 277.37h-.288M1322.86 277.37h-.288M1322.58 277.37h-.288M1322.287 277.37h-.288M1322.007 277.37h-.288M1321.714 277.37h-.384M1321.327 277.37h-.288M1321.047 277.37h-.384M1320.66 277.37h-.384M1320.274 277.37h-.288M1319.98 277.37h-.384M1319.607 277.37h-.384M1319.22 277.37h-.48M1318.74 277.37h-.384M1318.354 277.37h-.384M1317.967 277.37h-.48M1317.487 277.37h-.48M1317.007 277.37h-.48M1316.527 277.37h-.384M1316.14 277.37h-.576M1315.567 277.37h-.48M1315.087 277.37h-.48M1314.607 277.37h-.576M1314.034 277.37h-.576M1313.46 277.37h-.575M1312.887 277.37h-.576M1312.314 277.37h-.576M1311.727 277.37h-.576M1311.154 277.37h-.672M1310.487 277.37h-.673M1309.807 277.37h-.672M1309.14 277.37h-.671M1308.474 277.37h-.672M1307.794 277.37h-.768M1307.034 277.37h-.768M1306.26 277.37h-.767M1305.487 277.37h-.576M1304.914 277.37h-.576M1304.34 277.37h-.863M1303.474 277.37h-.864M1302.607 277.37h-.864M1301.754 277.37h-.864M1300.887 277.37h-.96M1299.928 277.37h-.96M1298.968 277.37h-.96M1298.008 277.37h-.96M1297.048 277.37h-1.056M1295.994 277.37h-1.056M1294.928 277.37h-1.056M1293.874 277.37h-1.056M1292.821 277.37h-1.152M1291.674 277.37h-1.152M1290.514 277.37h-1.248M1289.274 277.37h-1.248M1288.021 277.37h-1.248M1286.768 277.37h-1.248M1285.528 277.37h-1.344M1284.181 277.37h-1.344M1282.835 277.37h-1.44M1281.395 277.37h-1.344M1280.048 277.37h-1.536M1278.515 277.37h-1.44M1277.075 277.37h-1.536M1275.541 277.37h-1.248M1274.288 277.37h-1.152M1273.142 277.37h-1.632M1271.515 277.37h-1.247M1270.262 277.37h-1.346M1268.915 277.37h-1.728M1267.195 277.37h-1.825M1265.368 277.37h-1.825M1263.542 277.37h-1.826M1261.715 277.37h-1.921M1259.795 277.37h-.958M1258.835 277.37h-1.056M1257.782 277.37h-2.016M1255.769 277.37h-2.016M1253.755 277.37h-2.112M1251.635 277.37h-2.208M1249.435 277.37h-1.152M1248.275 277.37h-1.056M1247.222 277.37h-2.304M1244.916 277.37h-2.304M1242.609 277.37h-2.4M1240.209 277.37h-2.496M1237.716 277.37h-1.248M1236.476 277.37h-1.248M1235.222 277.37h-2.495M1232.73 277.37h-2.689M1230.036 277.37h-2.688M1227.356 277.37h-2.688M1224.663 277.37h-1.44M1223.223 277.37h-1.344M1221.876 277.37h-2.88M1218.996 277.37h-1.536M1217.463 277.37h-1.44M1216.023 277.37h-2.976M1213.05 277.37h-3.168M1209.876 277.37h-1.536M1208.343 277.37h-1.536M1206.81 277.37h-3.264M1203.543 277.37h-1.632M1201.917 277.37h-1.632M1200.277 277.37h-3.36M1196.917 277.37h-3.458M1193.463 277.37h-1.823M1191.637 277.37h-3.552M1188.09 277.37h-1.728M1186.357 277.37h-3.745M1182.61 277.37h-1.824M1180.797 277.37h-1.918M1178.877 277.37h-3.841M1175.037 277.37h-3.934M1171.09 277.37h-4.033M1167.064 277.37h-2.016M1165.05 277.37h-2.016M1163.038 277.37h-4.223M1158.811 277.37h-4.224M1154.584 277.37h-4.415M1150.171 277.37h-2.208M1147.958 277.37h-2.208M1145.758 277.37h-4.512M1141.238 277.37h-4.608M1136.638 277.37h-2.4M1134.238 277.37h-2.4M1131.838 277.37h-4.8M1127.038 277.37h-4.895M1122.132 277.37h-2.496M1119.639 277.37h-5.088M1114.559 277.37h-2.496M1112.052 277.37h-2.688M1109.372 277.37h-3.84M1105.532 277.37h-2.688M1102.84 277.37h-4.033M1098.813 277.37h-4.128M1094.68 277.37h-4.129M1090.546 277.37h-2.784M1087.76 277.37h-2.784M1084.986 277.37h-4.32M1080.666 277.37h-4.32M1076.346 277.37h-2.88M1073.466 277.37h-4.415M1069.04 277.37h-3.072M1065.973 277.37h-4.512M1061.467 277.37h-2.976M1058.48 277.37h-3.168M1055.32 277.37h-3.072M1052.24 277.37h-3.168M1049.08 277.37h-3.071M1046 277.37h-4.8M1041.2 277.37h-4.895M1036.307 277.37h-3.263M1033.04 277.37h-3.263M1029.788 277.37h-3.36M1026.428 277.37h-3.264M1023.161 277.37h-3.36M1019.801 277.37h-3.456M1016.348 277.37h-3.36M1012.988 277.37h-3.456M1009.521 277.37h-3.551M1005.975 277.37h-3.456M1002.522 277.37h-3.552M998.962 277.37h-3.552M995.415 277.37h-3.552M991.869 277.37h-3.648M988.215 277.37h-3.552M984.669 277.37h-3.744M980.922 277.37h-3.648M977.269 277.37h-3.648M973.629 277.37h-3.744M969.882 277.37h-3.743M966.136 277.37h-3.84M962.296 277.37h-3.744M958.55 277.37h-3.84M954.71 277.37h-3.936M950.776 277.37h-3.84M946.936 277.37H943M943.003 277.37h-3.84M939.163 277.37h-4.032M935.123 277.37h-3.936M931.19 277.37h-4.032M927.163 277.37h-1.92M925.244 277.37h-4.032M921.204 277.37h-4.128M917.084 277.37h-4.032M913.044 277.37h-2.016M911.03 277.37h-4.127M906.91 277.37h-4.127M902.777 277.37h-4.127M898.644 277.37h-4.128M894.524 277.37h-2.112M892.404 277.37h-2.112M890.298 277.37h-4.128M886.165 277.37h-4.224M881.951 277.37h-2.112M879.831 277.37h-2.112M877.725 277.37l-4.32-104.157M873.405 173.213l-2.112-1.632M871.285 171.573l-2.112-1.92M869.178 169.653l-4.224-1.343M864.952 168.307l-2.208-.768M862.752 167.547l-2.112-.672M860.632 166.867l-4.32-.48M856.312 166.387l-2.112-.096M854.205 166.294l-2.208-.096M851.992 166.2l-2.112-.096M849.885 166.107l-2.208-.096M847.672 166.014h-4.32M843.352 166.014h-2.208M841.152 166.014h-2.112M839.032 166.014l-2.208.096M836.832 166.107h-2.208M834.62 166.107h-2.113M832.513 166.107h-2.208M830.3 166.107h-2.209M828.086 166.107h-2.207M825.886 166.107h-2.113M823.766 166.107h-2.21M821.566 166.107l-2.208.096M819.353 166.2h-2.208M817.153 166.2h-1.056M816.086 166.2h-1.152M814.94 166.2h-2.112M812.833 166.2h-1.152M811.673 166.2l-1.056.096M810.62 166.294h-2.207M808.406 166.294h-2.209M806.207 166.294h-1.055M805.153 166.294l-1.152.096M803.993 166.387h-2.209M801.793 166.387h-1.056M800.727 166.387l-1.056.096M799.673 166.494h-1.15M798.527 166.494l-1.058.096M797.473 166.587h-2.206M795.26 166.587l-1.057.096M794.207 166.68h-1.152M793.047 166.68l-1.055.096M791.994 166.774h-.578M791.42 166.774h-.576M790.847 166.774l-1.056.096M789.794 166.867h-.576M789.207 166.867h-.481M788.727 166.867l-1.152.096M787.58 166.974l-1.056.096M786.527 167.067l-1.152.096M785.367 167.16h-.481M784.887 167.16l-.576.096M784.314 167.254l-1.055.096M783.26 167.347l-1.153.096M782.114 167.454l-1.056.096M781.047 167.547h-.576M780.474 167.547l-.48.192M779.994 167.734l-1.153.096M778.847 167.827h-.478M778.367 167.827l-.576.192M777.794 168.027l-1.057.096M776.727 168.12l-.576.096M776.154 168.214l-.576.096M775.58 168.307l-.48.096M775.1 168.414l-.575.096M774.527 168.507l-.576.096M773.954 168.6l-.48.096M773.474 168.694l-.576.192M772.887 168.894l-.576.096M772.314 168.987l-.48.096M771.834 169.08l-.576.192M771.26 169.267l-.48.096M770.78 169.373l-.575.192M770.207 169.56l-.576.096M769.634 169.653l-.288.096M769.34 169.747l-.191.192M769.154 169.947l-.576.096M768.567 170.04l-.288.096M768.287 170.133l-.288.192M767.994 170.333l-.48.192M767.514 170.52l-.288.096M767.234 170.613l-.288.096M766.94 170.707l-.48.192M766.46 170.907l-.287.096M766.168 171l-.288.096M765.888 171.093l-.288.192M765.594 171.293l-.288.096M765.314 171.387l-.192.192M765.114 171.573l-.288.096M764.834 171.667l-.288.192M764.54 171.867l-.287.096M764.248 171.96l-.288.192M763.968 172.147l-.192.096M763.768 172.253l-.288.192M763.488 172.44l-.192.096M763.288 172.533l-.096.098M763.194 172.627l-.288.19M762.914 172.827l-.288.192M762.62 173.013l-.191.096M762.434 173.107l-.193.097M762.234 173.213l-.096.095M762.14 173.307l-.287.193M761.848 173.493l-.288.191M761.568 173.693l-.095.098M761.474 173.787l-.193.19M761.274 173.973l-.192.192M761.088 174.173l-.288.194M760.794 174.36l-.192.095M760.608 174.453l-.096.194M760.514 174.653l-.288.096M760.221 174.747l-.097.192M760.128 174.933l-.192.096M759.941 175.027l-.193.192M759.741 175.227l-.19.19M759.554 175.413l-.097.098M759.448 175.507l-.191.19M759.261 175.707l-.097.097M759.168 175.8l-.096.096M759.074 175.893l-.192.288M758.874 176.187l-.288.192M758.594 176.373l-.096.096M758.501 176.467l-.096.096M758.394 176.573l-.192.192M758.208 176.76l-.096.096M758.114 176.853l-.192.192M757.914 177.053l-.096.192M757.821 177.24l-.288.288M757.541 177.533l-.096.192M757.434 177.72l-.096.192M757.341 177.907l-.288.288M757.061 178.2l-.192.192M756.861 178.387l-.096.096M756.768 178.493l-.096.192M756.674 178.68l-.192.192M756.474 178.867l-.096.192M756.381 179.067l-.192.288M756.194 179.347l-.192.384M755.994 179.733l-.192.192M755.808 179.933l-.096.192M755.714 180.12l-.192.192M755.514 180.307l-.096.288M755.421 180.6l-.096.096M755.328 180.693l-.096.192M755.234 180.893l-.096.096M755.128 180.987l-.096.288M755.034 181.267l-.096.192M754.941 181.467l-.192.288M754.754 181.747l-.096.192M754.648 181.947l-.192.288M754.461 182.227l-.096.192M754.368 182.427l-.096.192M754.274 182.613l-.096.096M754.168 182.706l-.096.192M754.074 182.906l-.096.288M753.981 183.186l-.192.192M753.794 183.386l-.096.288M753.688 183.666l-.095.288M753.594 183.96l-.193.384M753.408 184.346l-.096.288M753.315 184.626l-.096.192M753.208 184.826l-.097.192M753.115 185.013l-.096.288M753.021 185.306l-.094.288M752.928 185.586l-.193.384M752.728 185.973l-.095.384M752.635 186.36l-.096.288M752.541 186.653l-.097.192M752.448 186.84l-.095.193M752.355 187.026v.191M752.355 187.226l-.096.386M752.248 187.613l-.192.383M752.061 187.986l-.096.384M751.968 188.373l-.096.288M751.875 188.666l-.096.288M751.768 188.946v.288M751.768 189.24l-.096.193M751.675 189.426v.192M751.675 189.626l-.096.191M751.581 189.813v.097M751.581 189.906v.096M751.581 190.013v.095M751.581 190.106l-.096.194M751.488 190.293v.095M751.488 190.386v.194M751.488 190.586l-.096.095M751.395 190.68v.097M751.395 190.773v.19M751.395 190.973v.193M751.395 191.16l-.096.192M751.288 191.346v.192M751.288 191.546v.288M751.288 191.826l-.096.192M751.195 192.026v.192M751.195 192.213v.096M751.195 192.306l-.096.192M751.101 192.506v.192M751.101 192.693v.288M751.101 192.986l-.096.288M751.008 193.266v.288M751.008 193.56v.288M751.008 193.853l-.096.288M750.915 194.133v.288M750.915 194.426v.288M750.915 194.706l-.096.384M750.808 195.093v.384M750.808 195.48v.288M750.808 195.773v.192M750.808 195.96l-.096.287M750.715 196.253v.384M750.715 196.626v.48M750.715 197.106l-.096.48M750.621 197.586v.48M750.621 198.066v.48M750.621 198.546l-.096.576M750.528 199.133v.576M750.528 199.706v.576M750.528 200.28l-.095.671M750.435 200.946v.672M750.435 201.626v.48M750.435 202.106l-.096.384M750.341 202.493v.576M750.341 203.066v.768M750.341 203.826v.768M750.341 204.6l-.097.96M750.235 205.56v.863M750.235 206.426l-.098.96M750.141 207.386v1.056M750.141 208.44v1.055M750.141 209.492l-.094 1.056M750.048 210.546v1.248M750.048 211.8v1.247M750.048 213.052l-.096 1.248M749.955 214.292v1.44M749.955 215.732v1.44M749.955 217.172l-.096 1.536M749.861 218.706v1.536M749.861 220.252v1.632M749.861 221.879l-.096 1.728M749.755 223.612v1.824M749.755 225.425v1.92M749.755 227.345l-.096 1.92M749.661 229.265v2.112M749.661 231.385v2.112M749.661 233.492l-.096 2.208M749.568 235.705v1.728M749.568 237.425v1.152M749.568 238.585v1.728M749.568 240.305l-.096 2.496M749.475 242.812v2.496M749.475 245.305v2.592M749.475 247.892l-.096 2.687M749.381 250.585v2.688M749.381 253.265v2.496M749.381 255.771l-.096 2.112M749.275 257.878v2.113M749.275 259.998v2.207M749.275 262.198l-.096 2.208M749.181 264.411v2.21M749.181 266.611v3.455M749.181 270.064l-.096 3.36M749.088 273.424v2.304M749.088 275.73v3.458M749.088 279.197l-.096 3.36M748.995 282.557v3.455M748.995 286.01v4.416M748.995 290.424l-.096 3.264M748.901 293.69v3.266M748.901 296.957l-.096 4.128M748.795 301.077v4.03M748.795 305.103l-.096 3.746M748.701 308.85v4.512M748.701 313.37l-.097 4.896M748.608 318.263l-.096 4.992M748.515 323.25l-.095 3.84M748.421 327.09v2.783M748.421 329.876l-.097 2.112M748.328 331.996v1.152M748.328 333.143l-.097 1.248M748.221 334.396v1.248M748.221 335.636l-.094.864M748.128 336.503v.766M748.128 337.263l-.096.481M748.035 337.756v.288M748.035 338.036v.192M748.035 338.236v.288M748.035 338.516v.288M748.035 338.81v.478M748.035 339.29l-.096.383M747.941 339.663v.288M747.941 339.956v.288M747.941 340.25l-.096.385M747.848 340.636v.19M747.848 340.823v.193M747.848 341.01v.287M747.848 341.303l-.096.288M747.741 341.596v.095M747.741 341.69v.097M747.741 341.783l-.096.096M747.648 341.876v.192M747.648 342.063v.097M747.648 342.17l-.096.095M747.555 342.263v.094M747.555 342.356l-.096.097M747.461 342.45h-.096M747.368 342.45h-.096M747.261 342.45h-.096M747.168 342.45v-.098M747.168 342.356h-.096M747.075 342.356v-.095M747.075 342.263h-.096M746.981 342.263v-.096M746.981 342.17h-.096M746.888 342.17v-.097M746.888 342.063l-.096-.095M746.781 341.97v-.097M746.781 341.876l-.096-.096M746.688 341.783v-.098M746.688 341.69h-.096M746.595 341.69v-.095M746.595 341.596l-.095-.096M746.501 341.49v-.098M746.501 341.396l-.096-.095M746.408 341.303v-.096M746.408 341.21h-.097M746.301 341.21v-.098M746.301 341.103v-.095M746.301 341.01h-.097M746.208 341.01v-.097M746.208 340.916l-.095-.097M746.115 340.823v-.095M746.115 340.73l-.096-.097M746.021 340.636v-.097M746.021 340.53h-.096M745.928 340.53v-.095M745.928 340.436v-.096M745.928 340.343h-.096M745.821 340.343v-.098M745.821 340.25l-.096-.095M745.728 340.156v-.096M745.728 340.05h-.096M745.635 340.05v-.098M745.635 339.956v-.096M745.635 339.863l-.096-.096M745.528 339.77l-.096-.097M745.435 339.663v-.096M745.435 339.57l-.096-.097M745.341 339.476v-.096M745.341 339.383h-.096M745.248 339.383v-.096M745.248 339.29l-.096-.097M745.155 339.183v-.096M745.155 339.09h-.096M745.048 339.09v-.097M745.048 338.996l-.096-.096M744.955 338.903v-.096M744.955 338.81v-.097M744.955 338.703l-.096-.096M744.861 338.61l-.097-.097M744.768 338.516l-.096-.096M744.675 338.423v-.096M744.675 338.33l-.095-.193M744.568 338.13l-.193-.289M744.381 337.85l-.192-.193M744.195 337.65v-.097M744.195 337.556l-.192-.288M743.995 337.263l-.194-.192M743.808 337.076l-.096-.192M743.715 336.89l-.095-.193M743.608 336.69l-.193-.289M743.421 336.41l-.192-.193M743.235 336.21l-.192-.289M743.035 335.93l-.194-.193M742.848 335.73l-.095-.097M742.755 335.636l-.096-.192M742.648 335.45l-.192-.193M742.461 335.25l-.192-.193M742.275 335.063l-.192-.192M742.075 334.863l-.096-.096M741.981 334.77l-.192-.193M741.795 334.583l-.192-.192M741.595 334.383l-.096-.192M741.501 334.196l-.193-.192M741.315 334.01l-.192-.097M741.115 333.903l-.096-.192M741.021 333.716l-.192-.192M740.835 333.53l-.192-.193M740.635 333.33l-.192-.097M740.448 333.236l-.192-.192M740.248 333.05l-.192-.289M740.061 332.756l-.287-.192M739.768 332.57l-.192-.097M739.582 332.463l-.096-.192M739.488 332.276l-.192-.096M739.288 332.183l-.288-.288M739.008 331.89l-.288-.097M738.715 331.796l-.096-.192M738.622 331.61l-.192-.193M738.435 331.41l-.288-.193M738.142 331.223l-.288-.096M737.848 331.13l-.096-.097M737.755 331.023l-.096-.192M737.662 330.836l-.288-.288M737.368 330.543l-.384-.096M736.995 330.45l-.096-.193M736.888 330.263l-.192-.192M736.702 330.063l-.384-.096M736.315 329.97l-.096-.193M736.222 329.783l-.384-.288M735.835 329.49l-.384-.288M735.448 329.21l-.384-.192M735.075 329.01l-.288-.096M734.782 328.916l-.192-.192M734.595 328.73l-.192-.192M734.395 328.53l-.384-.096M734.008 328.436l-.192-.192M733.822 328.25l-.288-.192M733.528 328.05l-.384-.192M733.155 327.863l-.288-.096M732.862 327.77l-.288-.192M732.568 327.57l-.288-.096M732.288 327.476l-.288-.192M731.995 327.29l-.384-.192M731.608 327.09l-.382-.192M731.235 326.903l-.481-.192M730.755 326.703l-.192-.096M730.555 326.61l-.384-.096M730.168 326.516l-.384-.192M729.795 326.33l-.288-.096M729.502 326.223l-.383-.096M729.115 326.13l-.385-.192M728.742 325.943l-.288-.096M728.448 325.85l-.673-.096M727.768 325.743l-.288-.096M727.488 325.65l-.384-.192M727.102 325.463l-.67-.096M726.435 325.37h-.193M726.235 325.37l-.384-.096M725.849 325.263l-.576-.096M725.275 325.17l-.478-.096M724.795 325.076h-.385M724.409 325.076l-.48-.096M723.942 324.983h-.481M723.449 324.983h-.383M723.075 324.983l-.481-.096M722.595 324.89h-.478M722.115 324.89h-.385M721.729 324.89h-.576M721.155 324.89h-.48M720.675 324.89h-.48M720.195 324.89h-.384M719.809 324.89h-.48M719.329 324.89h-.768M718.555 324.89h-.384M718.182 324.89h-.384M717.795 324.89h-.48M717.315 324.89l-.769-.096M716.542 324.783h-.672M715.875 324.783h-.48M715.395 324.783h-.672M714.715 324.783l-.768-.096M713.955 324.69h-.384M713.569 324.69l-.384-.096M713.182 324.596l-.672-.096M712.516 324.503l-.672-.192M711.836 324.303l-.96-1.056M710.876 323.25l-.384-3.168M710.502 320.09l-.672.384M709.822 320.463l-.672.576M709.156 321.05l-.48-.48M708.676 320.57l-.768 1.248M707.902 321.81l-.96-.096M706.942 321.716h-.48M706.462 321.716l-.48.192M705.982 321.903l-.768.192M705.222 322.103l-.96.288M704.262 322.383l-.672.096M703.582 322.49l-1.056.192M702.53 322.676l-1.057.192M701.476 322.863l-.96.096M700.516 322.97h-.576M699.943 322.97l-.672.192M699.263 323.156l-1.152.192M698.116 323.343h-.672M697.436 323.343h-.672M696.77 323.343l-.673.096M696.103 323.45l-.864.096M695.236 323.543h-.96M694.276 323.543h-.672M693.596 323.543l-.672.096M692.93 323.636h-.769M692.156 323.636l-1.056.096M691.103 323.73h-.96M690.143 323.73h-1.056M689.09 323.73l-.673.096M688.423 323.823h-1.44M686.983 323.823h-.96M686.023 323.823h-.576M685.436 323.823h-1.44M683.996 323.823h-.864M683.143 323.823l-.672.096M682.463 323.93h-1.056M681.41 323.93h-1.152M680.263 323.93h-1.344M678.916 323.93h-.864M678.05 323.93h-1.152M676.903 323.93h-.96M675.943 323.93h-1.056M674.876 323.93h-.576M674.303 323.93h-1.056M673.25 323.93h-.96M672.29 323.93l-.96.096M671.33 324.023l-.576-.096M670.757 323.93l-.672.096M670.077 324.023h-1.344M668.743 324.023h-.768M667.97 324.023h-.576M667.397 324.023h-1.248M666.143 324.023h-.576M665.57 324.023h-.672M664.903 324.023h-.768M664.13 324.023h-.481M663.65 324.023l-.576.096M663.077 324.116h-.384M662.69 324.116h-.095M662.597 324.116h-.098M662.503 324.116h-.096"/></g></g><g stroke="#fff" stroke-width="14.4"><path stroke-width="1.919952" d="M972.282 539.343v9.312M972.282 542.03l2.016-2.015M974.296 540.015l1.344-.672M975.642 539.343h1.92M977.562 539.343l1.344.672M978.909 540.015l.672 2.016M979.576 542.03v6.625M979.576 542.03l2.015-2.015M981.589 540.015l1.344-.672M982.935 539.343h1.92M984.855 539.343l1.344.672M986.202 540.015l.672 2.016M986.869 542.03v6.625M999.548 539.343v9.312M999.548 541.359l-1.344-1.344M998.202 540.015l-1.344-.672M996.855 539.343h-2.016M994.842 539.343l-1.344.672M993.495 540.015l-1.248 1.344M992.242 541.359l-.672 2.015M991.575 543.375v1.248M991.575 544.623l.672 2.015M992.242 546.639l1.248 1.344M993.495 547.983l1.344.672M994.842 548.655h2.016M996.855 548.655l1.344-.672M998.202 547.983l1.344-1.345M1011.441 541.359l-.672-1.344M1010.775 540.015l-1.92-.672M1008.855 539.343h-2.016M1006.841 539.343l-2.015.672M1004.828 540.015l-.672 1.344M1004.148 541.359l.672 1.344M1004.828 542.703l1.344.672M1006.162 543.375l3.36.672M1009.521 544.047l1.248.576M1010.775 544.623l.672 1.344M1011.441 545.967v.672M1011.441 546.639l-.672 1.344M1010.775 547.983l-1.92.672M1008.855 548.655h-2.016M1006.841 548.655l-2.015-.672M1004.828 547.983l-.672-1.345M1022.774 541.359l-.672-1.344M1022.108 540.015l-2.016-.672M1020.081 539.343h-1.92M1018.161 539.343l-2.016.672M1016.148 540.015l-.672 1.344M1015.481 541.359l.672 1.344M1016.148 542.703l1.344.672M1017.495 543.375l3.263.672M1020.761 544.047l1.344.576M1022.108 544.623l.672 1.344M1022.774 545.967v.672M1022.774 546.639l-.672 1.344M1022.108 547.983l-2.016.672M1020.081 548.655h-1.92M1018.161 548.655l-2.016-.672M1016.148 547.983l-.672-1.345"/></g></g></svg>
\ No newline at end of file
diff --git a/star/test_suite/1.3M_ms_high_Z/docs/z_mass_fraction_metals.svg b/star/test_suite/1.3M_ms_high_Z/docs/z_mass_fraction_metals.svg
new file mode 100644
index 000000000..6d1368807
--- /dev/null
+++ b/star/test_suite/1.3M_ms_high_Z/docs/z_mass_fraction_metals.svg
@@ -0,0 +1,1189 @@
+<?xml version="1.0" encoding="utf-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<svg xmlns:xlink="http://www.w3.org/1999/xlink" width="404.649761pt" height="310.232497pt" viewBox="0 0 404.649761 310.232497" xmlns="http://www.w3.org/2000/svg" version="1.1">
+ <metadata>
+  <rdf:RDF xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:cc="http://creativecommons.org/ns#" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#">
+   <cc:Work>
+    <dc:type rdf:resource="http://purl.org/dc/dcmitype/StillImage"/>
+    <dc:date>2024-07-26T15:25:09.200391</dc:date>
+    <dc:format>image/svg+xml</dc:format>
+    <dc:creator>
+     <cc:Agent>
+      <dc:title>Matplotlib v3.8.4, https://matplotlib.org/</dc:title>
+     </cc:Agent>
+    </dc:creator>
+   </cc:Work>
+  </rdf:RDF>
+ </metadata>
+ <defs>
+  <style type="text/css">*{stroke-linejoin: round; stroke-linecap: butt}</style>
+ </defs>
+ <g id="figure_1">
+  <g id="patch_1">
+   <path d="M 0 310.232497 
+L 404.649761 310.232497 
+L 404.649761 0 
+L 0 0 
+z
+" style="fill: #ffffff"/>
+  </g>
+  <g id="axes_1">
+   <g id="patch_2">
+    <path d="M 47.529761 280.41418 
+L 404.649761 280.41418 
+L 404.649761 14.30218 
+L 47.529761 14.30218 
+z
+" style="fill: #ffffff"/>
+   </g>
+   <g id="matplotlib.axis_1">
+    <g id="xtick_1">
+     <g id="line2d_1">
+      <defs>
+       <path id="m463f318652" d="M 0 0 
+L 0 3.5 
+" style="stroke: #000000; stroke-width: 0.8"/>
+      </defs>
+      <g>
+       <use xlink:href="#m463f318652" x="47.529761" y="280.41418" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_1">
+      <!-- $\mathdefault{0.0}$ -->
+      <g transform="translate(41.164722 294.332678) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-30" d="M 2688 2038 
+C 2688 2430 2682 3099 2413 3613 
+C 2176 4063 1798 4224 1466 4224 
+C 1158 4224 768 4082 525 3620 
+C 269 3137 243 2539 243 2038 
+C 243 1671 250 1112 448 623 
+C 723 -39 1216 -128 1466 -128 
+C 1760 -128 2208 -7 2470 604 
+C 2662 1048 2688 1568 2688 2038 
+z
+M 1466 -26 
+C 1056 -26 813 328 723 816 
+C 653 1196 653 1749 653 2109 
+C 653 2604 653 3015 736 3407 
+C 858 3954 1216 4121 1466 4121 
+C 1728 4121 2067 3947 2189 3420 
+C 2272 3054 2278 2623 2278 2109 
+C 2278 1691 2278 1176 2202 797 
+C 2067 96 1690 -26 1466 -26 
+z
+" transform="scale(0.015625)"/>
+        <path id="CMMI12-3a" d="M 1178 307 
+C 1178 492 1024 620 870 620 
+C 685 620 557 467 557 313 
+C 557 128 710 0 864 0 
+C 1050 0 1178 153 1178 307 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(72.787654 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_2">
+     <g id="line2d_2">
+      <g>
+       <use xlink:href="#m463f318652" x="102.4713" y="280.41418" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_2">
+      <!-- $\mathdefault{0.2}$ -->
+      <g transform="translate(96.10626 294.332678) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-32" d="M 2669 990 
+L 2554 990 
+C 2490 537 2438 460 2413 422 
+C 2381 371 1920 371 1830 371 
+L 602 371 
+C 832 620 1280 1073 1824 1596 
+C 2214 1966 2669 2400 2669 3033 
+C 2669 3788 2067 4224 1395 4224 
+C 691 4224 262 3603 262 3027 
+C 262 2777 448 2745 525 2745 
+C 589 2745 781 2783 781 3007 
+C 781 3206 614 3264 525 3264 
+C 486 3264 448 3257 422 3244 
+C 544 3788 915 4057 1306 4057 
+C 1862 4057 2227 3616 2227 3033 
+C 2227 2477 1901 1998 1536 1583 
+L 262 147 
+L 262 0 
+L 2515 0 
+L 2669 990 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-32" transform="translate(72.787654 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_3">
+     <g id="line2d_3">
+      <g>
+       <use xlink:href="#m463f318652" x="157.412838" y="280.41418" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_3">
+      <!-- $\mathdefault{0.4}$ -->
+      <g transform="translate(151.047799 294.332678) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-34" d="M 2150 4147 
+C 2150 4281 2144 4288 2029 4288 
+L 128 1254 
+L 128 1088 
+L 1779 1088 
+L 1779 460 
+C 1779 230 1766 166 1318 166 
+L 1197 166 
+L 1197 0 
+C 1402 12 1747 12 1965 12 
+C 2182 12 2528 12 2733 0 
+L 2733 166 
+L 2611 166 
+C 2163 166 2150 230 2150 460 
+L 2150 1088 
+L 2803 1088 
+L 2803 1254 
+L 2150 1254 
+L 2150 4147 
+z
+M 1798 3723 
+L 1798 1254 
+L 256 1254 
+L 1798 3723 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-34" transform="translate(72.787654 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_4">
+     <g id="line2d_4">
+      <g>
+       <use xlink:href="#m463f318652" x="212.354377" y="280.41418" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_4">
+      <!-- $\mathdefault{0.6}$ -->
+      <g transform="translate(205.989337 294.332678) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-36" d="M 678 2198 
+C 678 3712 1395 4076 1811 4076 
+C 1946 4076 2272 4049 2400 3782 
+C 2298 3782 2106 3782 2106 3558 
+C 2106 3385 2246 3328 2336 3328 
+C 2394 3328 2566 3353 2566 3571 
+C 2566 3987 2246 4224 1805 4224 
+C 1043 4224 243 3411 243 2011 
+C 243 257 966 -128 1478 -128 
+C 2099 -128 2688 431 2688 1295 
+C 2688 2101 2170 2688 1517 2688 
+C 1126 2688 838 2430 678 1979 
+L 678 2198 
+z
+M 1478 25 
+C 691 25 691 1212 691 1450 
+C 691 1914 909 2585 1504 2585 
+C 1613 2585 1926 2585 2138 2140 
+C 2253 1889 2253 1624 2253 1302 
+C 2253 954 2253 696 2118 438 
+C 1978 173 1773 25 1478 25 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-36" transform="translate(72.787654 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_5">
+     <g id="line2d_5">
+      <g>
+       <use xlink:href="#m463f318652" x="267.295915" y="280.41418" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_5">
+      <!-- $\mathdefault{0.8}$ -->
+      <g transform="translate(260.930876 294.332678) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-38" d="M 1741 2289 
+C 2144 2494 2554 2803 2554 3298 
+C 2554 3884 1990 4224 1472 4224 
+C 890 4224 378 3800 378 3215 
+C 378 3054 416 2777 666 2533 
+C 730 2469 998 2276 1171 2154 
+C 883 2006 211 1652 211 945 
+C 211 282 838 -128 1459 -128 
+C 2144 -128 2720 366 2720 1022 
+C 2720 1607 2330 1877 2074 2051 
+L 1741 2289 
+z
+M 902 2855 
+C 851 2887 595 3086 595 3388 
+C 595 3781 998 4076 1459 4076 
+C 1965 4076 2336 3716 2336 3298 
+C 2336 2700 1670 2359 1638 2359 
+C 1632 2359 1626 2359 1574 2398 
+L 902 2855 
+z
+M 2080 1536 
+C 2176 1466 2483 1253 2483 861 
+C 2483 385 2010 25 1472 25 
+C 890 25 448 443 448 951 
+C 448 1459 838 1884 1280 2083 
+L 2080 1536 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-38" transform="translate(72.787654 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_6">
+     <g id="line2d_6">
+      <g>
+       <use xlink:href="#m463f318652" x="322.237454" y="280.41418" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_6">
+      <!-- $\mathdefault{1.0}$ -->
+      <g transform="translate(315.872414 294.332678) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-31" d="M 1702 4083 
+C 1702 4217 1696 4224 1606 4224 
+C 1357 3927 979 3833 621 3820 
+C 602 3820 570 3820 563 3808 
+C 557 3795 557 3782 557 3648 
+C 755 3648 1088 3686 1344 3839 
+L 1344 467 
+C 1344 243 1331 166 781 166 
+L 589 166 
+L 589 0 
+C 896 6 1216 12 1523 12 
+C 1830 12 2150 6 2458 0 
+L 2458 166 
+L 2266 166 
+C 1715 166 1702 236 1702 467 
+L 1702 4083 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(72.787654 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_7">
+     <g id="line2d_7">
+      <g>
+       <use xlink:href="#m463f318652" x="377.178992" y="280.41418" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_7">
+      <!-- $\mathdefault{1.2}$ -->
+      <g transform="translate(370.813953 294.332678) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-32" transform="translate(72.787654 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="text_8">
+     <!-- $\log_{10}(M(r)/M_{\odot})$ -->
+     <g transform="translate(189.516188 307.741837) scale(0.1 -0.1)">
+      <defs>
+       <path id="CMR17-6c" d="M 979 4416 
+L 218 4345 
+L 218 4179 
+C 595 4179 653 4141 653 3835 
+L 653 439 
+C 653 198 627 166 218 166 
+L 218 0 
+C 371 12 653 12 813 12 
+C 979 12 1261 12 1414 0 
+L 1414 166 
+C 1005 166 979 191 979 439 
+L 979 4416 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-6f" d="M 2758 1356 
+C 2758 2176 2163 2816 1466 2816 
+C 768 2816 173 2176 173 1356 
+C 173 550 768 -64 1466 -64 
+C 2163 -64 2758 550 2758 1356 
+z
+M 1466 51 
+C 1165 51 909 230 762 480 
+C 602 768 582 1126 582 1408 
+C 582 1676 595 2009 762 2297 
+C 890 2508 1139 2713 1466 2713 
+C 1754 2713 1997 2553 2150 2329 
+C 2349 2028 2349 1606 2349 1408 
+C 2349 1158 2336 774 2163 467 
+C 1984 172 1709 51 1466 51 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-67" d="M 710 1165 
+C 832 1068 1043 960 1299 960 
+C 1805 960 2240 1359 2240 1895 
+C 2240 2063 2189 2321 1997 2521 
+C 2176 2713 2438 2777 2586 2777 
+C 2611 2777 2650 2777 2682 2758 
+C 2656 2751 2598 2726 2598 2623 
+C 2598 2540 2656 2483 2739 2483 
+C 2835 2483 2886 2547 2886 2630 
+C 2886 2751 2790 2880 2586 2880 
+C 2330 2880 2106 2758 1926 2591 
+C 1734 2764 1504 2828 1299 2828 
+C 794 2828 358 2431 358 1895 
+C 358 1527 570 1294 634 1230 
+C 442 1004 442 742 442 710 
+C 442 544 506 300 723 166 
+C 390 82 128 -184 128 -517 
+C 128 -996 736 -1344 1466 -1344 
+C 2170 -1344 2803 -1009 2803 -510 
+C 2803 384 1856 384 1363 384 
+C 1216 384 954 384 922 390 
+C 723 422 589 601 589 825 
+C 589 883 589 1024 710 1165 
+z
+M 1299 1068 
+C 736 1068 736 1766 736 1895 
+C 736 2024 736 2719 1299 2719 
+C 1862 2719 1862 2024 1862 1895 
+C 1862 1766 1862 1068 1299 1068 
+z
+M 1466 -1236 
+C 826 -1236 384 -883 384 -517 
+C 384 -311 493 -118 634 -11 
+C 794 102 858 102 1293 102 
+C 1818 102 2547 102 2547 -517 
+C 2547 -883 2106 -1236 1466 -1236 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-28" d="M 1958 -1562 
+C 1958 -1556 1958 -1543 1939 -1524 
+C 1645 -1223 858 -403 858 1596 
+C 858 3595 1632 4408 1946 4729 
+C 1946 4735 1958 4748 1958 4767 
+C 1958 4787 1939 4800 1914 4800 
+C 1843 4800 1299 4325 986 3620 
+C 666 2909 576 2218 576 1603 
+C 576 1141 621 360 1005 -467 
+C 1312 -1133 1837 -1600 1914 -1600 
+C 1946 -1600 1958 -1588 1958 -1562 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMMI12-4d" d="M 5811 3886 
+C 5869 4102 5882 4166 6336 4166 
+C 6458 4166 6515 4166 6515 4287 
+C 6515 4352 6470 4352 6349 4352 
+L 5581 4352 
+C 5421 4352 5414 4345 5344 4243 
+L 3008 567 
+L 2528 4211 
+C 2509 4352 2502 4352 2336 4352 
+L 1542 4352 
+C 1421 4352 1363 4352 1363 4230 
+C 1363 4166 1421 4166 1517 4166 
+C 1907 4166 1907 4115 1907 4045 
+C 1907 4032 1907 3994 1882 3898 
+L 1062 650 
+C 986 344 838 204 410 185 
+C 390 185 314 179 314 70 
+C 314 0 371 0 397 0 
+C 525 0 851 12 979 12 
+L 1286 12 
+C 1376 12 1485 0 1574 0 
+C 1619 0 1690 0 1690 121 
+C 1690 179 1626 185 1600 185 
+C 1389 191 1184 230 1184 459 
+C 1184 523 1184 529 1210 618 
+L 2093 4128 
+L 2099 4128 
+L 2630 172 
+C 2650 19 2656 0 2714 0 
+C 2784 0 2816 51 2848 108 
+L 5421 4159 
+L 5427 4159 
+L 4499 472 
+C 4442 249 4429 185 3981 185 
+C 3859 185 3795 185 3795 70 
+C 3795 0 3853 0 3891 0 
+C 4000 0 4128 12 4237 12 
+L 4992 12 
+C 5101 12 5235 0 5344 0 
+C 5395 0 5466 0 5466 121 
+C 5466 185 5408 185 5312 185 
+C 4922 185 4922 236 4922 300 
+C 4922 306 4922 351 4934 402 
+L 5811 3886 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMMI12-72" d="M 2490 2633 
+C 2291 2598 2189 2457 2189 2316 
+C 2189 2163 2310 2111 2400 2111 
+C 2579 2111 2726 2265 2726 2457 
+C 2726 2651 2528 2816 2208 2816 
+C 1952 2816 1658 2700 1389 2335 
+C 1344 2660 1088 2816 832 2816 
+C 582 2816 454 2642 378 2508 
+C 269 2278 173 1892 173 1860 
+C 173 1834 198 1801 243 1801 
+C 294 1801 301 1808 339 1957 
+C 435 2342 557 2687 813 2687 
+C 966 2687 1011 2604 1011 2419 
+C 1011 2278 947 2028 902 1827 
+L 723 1130 
+C 698 1007 627 716 595 600 
+C 550 432 480 128 480 96 
+C 480 6 550 -64 646 -64 
+C 717 -64 838 -20 877 109 
+C 896 160 1133 1136 1171 1285 
+C 1203 1427 1242 1562 1274 1705 
+C 1299 1795 1325 1898 1344 1982 
+C 1363 2040 1536 2355 1696 2495 
+C 1773 2566 1939 2687 2202 2687 
+C 2304 2687 2406 2674 2490 2633 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-29" d="M 1683 1596 
+C 1683 2057 1638 2839 1254 3665 
+C 947 4332 422 4800 346 4800 
+C 326 4800 301 4793 301 4761 
+C 301 4748 307 4742 314 4729 
+C 621 4408 1402 3595 1402 1603 
+C 1402 -396 627 -1210 314 -1530 
+C 307 -1543 301 -1549 301 -1562 
+C 301 -1594 326 -1600 346 -1600 
+C 416 -1600 960 -1127 1274 -422 
+C 1594 289 1683 981 1683 1596 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMMI12-3d" d="M 2746 4563 
+C 2746 4569 2784 4665 2784 4678 
+C 2784 4755 2720 4800 2669 4800 
+C 2637 4800 2579 4800 2528 4659 
+L 384 -1364 
+C 384 -1370 346 -1466 346 -1479 
+C 346 -1556 410 -1600 461 -1600 
+C 499 -1600 557 -1594 602 -1460 
+L 2746 4563 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSY10-c" d="M 4621 1606 
+C 4621 2787 3661 3744 2490 3744 
+C 1299 3744 352 2774 352 1606 
+C 352 419 1312 -545 2483 -545 
+C 3674 -545 4621 432 4621 1606 
+z
+M 2490 -384 
+C 1389 -384 512 516 512 1606 
+C 512 2709 1408 3584 2483 3584 
+C 3584 3584 4461 2690 4461 1606 
+C 4461 497 3565 -384 2490 -384 
+z
+M 2925 1606 
+C 2925 1849 2726 2048 2490 2048 
+C 2234 2048 2048 1836 2048 1606 
+C 2048 1363 2246 1164 2483 1164 
+C 2739 1164 2925 1375 2925 1606 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMR17-6c" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-6f" transform="translate(24.871058 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-67" transform="translate(70.561536 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-31" transform="translate(117.553179 -22.865092) scale(0.697382)"/>
+      <use xlink:href="#CMR17-30" transform="translate(149.536361 -22.865092) scale(0.697382)"/>
+      <use xlink:href="#CMR17-28" transform="translate(182.017675 0) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-4d" transform="translate(217.298443 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-28" transform="translate(322.078521 0) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-72" transform="translate(357.359289 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-29" transform="translate(404.029901 0) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-3d" transform="translate(439.310669 0) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-4d" transform="translate(482.666152 0) scale(0.996264)"/>
+      <use xlink:href="#CMSY10-c" transform="translate(577.039578 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-29" transform="translate(631.778703 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+   <g id="matplotlib.axis_2">
+    <g id="ytick_1">
+     <g id="line2d_8">
+      <defs>
+       <path id="m4f767faf08" d="M 0 0 
+L -3.5 0 
+" style="stroke: #000000; stroke-width: 0.8"/>
+      </defs>
+      <g>
+       <use xlink:href="#m4f767faf08" x="47.529761" y="280.41418" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_9">
+      <!-- $\mathdefault{0.0380}$ -->
+      <g transform="translate(12.855677 283.873429) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-33" d="M 1414 2176 
+C 1984 2176 2234 1673 2234 1094 
+C 2234 322 1824 25 1453 25 
+C 1114 25 563 193 390 691 
+C 422 678 454 678 486 678 
+C 640 678 755 780 755 947 
+C 755 1132 614 1216 486 1216 
+C 378 1216 211 1164 211 927 
+C 211 335 787 -128 1466 -128 
+C 2176 -128 2720 432 2720 1087 
+C 2720 1718 2208 2176 1600 2246 
+C 2086 2347 2554 2776 2554 3353 
+C 2554 3856 2048 4224 1472 4224 
+C 890 4224 378 3862 378 3347 
+C 378 3123 544 3084 627 3084 
+C 762 3084 877 3167 877 3334 
+C 877 3500 762 3584 627 3584 
+C 602 3584 570 3584 544 3571 
+C 730 3999 1235 4076 1459 4076 
+C 1683 4076 2106 3966 2106 3347 
+C 2106 3167 2080 2851 1862 2574 
+C 1670 2329 1453 2316 1242 2297 
+C 1210 2297 1062 2284 1037 2284 
+C 992 2278 966 2272 966 2227 
+C 966 2182 973 2176 1101 2176 
+L 1414 2176 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(72.787654 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-33" transform="translate(118.478131 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-38" transform="translate(164.168608 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(209.859086 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_2">
+     <g id="line2d_9">
+      <g>
+       <use xlink:href="#m4f767faf08" x="47.529761" y="247.15018" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_10">
+      <!-- $\mathdefault{0.0385}$ -->
+      <g transform="translate(12.855677 250.609429) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-35" d="M 730 3750 
+C 794 3724 1056 3641 1325 3641 
+C 1920 3641 2246 3961 2432 4140 
+C 2432 4191 2432 4224 2394 4224 
+C 2387 4224 2374 4224 2323 4198 
+C 2099 4102 1837 4032 1517 4032 
+C 1325 4032 1037 4055 723 4191 
+C 653 4224 640 4224 634 4224 
+C 602 4224 595 4217 595 4090 
+L 595 2231 
+C 595 2113 595 2080 659 2080 
+C 691 2080 704 2093 736 2139 
+C 941 2435 1222 2560 1542 2560 
+C 1766 2560 2246 2415 2246 1293 
+C 2246 1087 2246 716 2054 422 
+C 1894 159 1645 25 1370 25 
+C 947 25 518 319 403 812 
+C 429 806 480 793 506 793 
+C 589 793 749 838 749 1036 
+C 749 1209 627 1280 506 1280 
+C 358 1280 262 1190 262 1011 
+C 262 454 704 -128 1382 -128 
+C 2042 -128 2669 441 2669 1267 
+C 2669 2054 2170 2662 1549 2662 
+C 1222 2662 947 2540 730 2304 
+L 730 3750 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(72.787654 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-33" transform="translate(118.478131 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-38" transform="translate(164.168608 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-35" transform="translate(209.859086 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_3">
+     <g id="line2d_10">
+      <g>
+       <use xlink:href="#m4f767faf08" x="47.529761" y="213.88618" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_11">
+      <!-- $\mathdefault{0.0390}$ -->
+      <g transform="translate(12.855677 217.345429) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-39" d="M 2253 1871 
+C 2253 448 1670 25 1190 25 
+C 1043 25 685 43 538 281 
+C 704 256 826 345 826 505 
+C 826 678 685 736 595 736 
+C 538 736 365 710 365 492 
+C 365 68 742 -128 1203 -128 
+C 1939 -128 2688 665 2688 2090 
+C 2688 3857 1971 4224 1485 4224 
+C 851 4224 243 3664 243 2800 
+C 243 2000 762 1408 1414 1408 
+C 1952 1408 2189 1910 2253 2122 
+L 2253 1871 
+z
+M 1427 1510 
+C 1254 1510 1011 1542 813 1929 
+C 678 2181 678 2477 678 2793 
+C 678 3174 678 3438 858 3722 
+C 947 3857 1114 4076 1485 4076 
+C 2240 4076 2240 2909 2240 2651 
+C 2240 2193 2035 1510 1427 1510 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(72.787654 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-33" transform="translate(118.478131 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-39" transform="translate(164.168608 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(209.859086 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_4">
+     <g id="line2d_11">
+      <g>
+       <use xlink:href="#m4f767faf08" x="47.529761" y="180.62218" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_12">
+      <!-- $\mathdefault{0.0395}$ -->
+      <g transform="translate(12.855677 184.081429) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(72.787654 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-33" transform="translate(118.478131 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-39" transform="translate(164.168608 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-35" transform="translate(209.859086 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_5">
+     <g id="line2d_12">
+      <g>
+       <use xlink:href="#m4f767faf08" x="47.529761" y="147.35818" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_13">
+      <!-- $\mathdefault{0.0400}$ -->
+      <g transform="translate(12.855677 150.817429) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(72.787654 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-34" transform="translate(118.478131 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(164.168608 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(209.859086 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_6">
+     <g id="line2d_13">
+      <g>
+       <use xlink:href="#m4f767faf08" x="47.529761" y="114.09418" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_14">
+      <!-- $\mathdefault{0.0405}$ -->
+      <g transform="translate(12.855677 117.553429) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(72.787654 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-34" transform="translate(118.478131 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(164.168608 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-35" transform="translate(209.859086 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_7">
+     <g id="line2d_14">
+      <g>
+       <use xlink:href="#m4f767faf08" x="47.529761" y="80.83018" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_15">
+      <!-- $\mathdefault{0.0410}$ -->
+      <g transform="translate(12.855677 84.289429) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(72.787654 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-34" transform="translate(118.478131 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-31" transform="translate(164.168608 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(209.859086 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_8">
+     <g id="line2d_15">
+      <g>
+       <use xlink:href="#m4f767faf08" x="47.529761" y="47.56618" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_16">
+      <!-- $\mathdefault{0.0415}$ -->
+      <g transform="translate(12.855677 51.025429) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(72.787654 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-34" transform="translate(118.478131 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-31" transform="translate(164.168608 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-35" transform="translate(209.859086 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_9">
+     <g id="line2d_16">
+      <g>
+       <use xlink:href="#m4f767faf08" x="47.529761" y="14.30218" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_17">
+      <!-- $\mathdefault{0.0420}$ -->
+      <g transform="translate(12.855677 17.761429) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-30" transform="scale(0.996264)"/>
+       <use xlink:href="#CMMI12-3a" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(72.787654 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-34" transform="translate(118.478131 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-32" transform="translate(164.168608 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(209.859086 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="text_18">
+     <!-- metal mass fraction -->
+     <g transform="translate(6.918498 188.288082) rotate(-90) scale(0.1 -0.1)">
+      <defs>
+       <path id="CMSS17-6d" d="M 4288 1878 
+C 4288 2309 4179 2816 3462 2816 
+C 2982 2816 2694 2515 2566 2328 
+C 2451 2668 2182 2816 1798 2816 
+C 1363 2816 1088 2566 941 2386 
+L 941 2783 
+L 474 2783 
+L 474 0 
+L 960 0 
+L 960 1556 
+C 960 1936 1101 2425 1555 2425 
+C 2138 2425 2138 2013 2138 1826 
+L 2138 0 
+L 2624 0 
+L 2624 1556 
+C 2624 1936 2765 2425 3219 2425 
+C 3802 2425 3802 2013 3802 1826 
+L 3802 0 
+L 4288 0 
+L 4288 1878 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSS17-65" d="M 2502 1375 
+C 2502 1587 2490 2001 2285 2347 
+C 2061 2713 1696 2816 1421 2816 
+C 755 2816 192 2184 192 1363 
+C 192 579 774 -64 1510 -64 
+C 1798 -64 2150 19 2470 249 
+C 2470 275 2458 414 2451 421 
+C 2451 433 2432 629 2432 655 
+C 2125 408 1773 326 1517 326 
+C 1107 326 666 667 646 1375 
+L 2502 1375 
+z
+M 698 1728 
+C 781 2086 1062 2425 1421 2425 
+C 1517 2425 1965 2412 2080 1728 
+L 698 1728 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSS17-74" d="M 1069 2380 
+L 1901 2380 
+L 1901 2752 
+L 1069 2752 
+L 1069 3520 
+L 614 3520 
+L 614 2752 
+L 109 2752 
+L 109 2380 
+L 602 2380 
+L 602 751 
+C 602 384 685 -64 1107 -64 
+C 1427 -64 1722 25 2003 172 
+L 1901 551 
+C 1747 416 1562 339 1363 339 
+C 1082 339 1069 699 1069 860 
+L 1069 2380 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSS17-61" d="M 2406 1789 
+C 2406 2399 1978 2816 1402 2816 
+C 1120 2816 813 2764 461 2559 
+L 499 2133 
+C 659 2250 934 2438 1395 2438 
+C 1722 2438 1920 2185 1920 1782 
+L 1920 1536 
+C 896 1504 256 1209 256 711 
+C 256 452 416 -64 947 -64 
+C 1043 -64 1562 -52 1933 224 
+L 1933 -13 
+L 2406 -13 
+L 2406 1789 
+z
+M 1920 824 
+C 1920 711 1920 559 1728 446 
+C 1562 339 1350 326 1261 326 
+C 941 326 723 503 723 723 
+C 723 1165 1722 1209 1920 1216 
+L 1920 824 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSS17-6c" d="M 947 4416 
+L 474 4416 
+L 474 0 
+L 947 0 
+L 947 4416 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSS17-73" d="M 2061 2623 
+C 1683 2803 1389 2816 1197 2816 
+C 742 2816 198 2655 198 2009 
+C 198 1363 902 1222 1094 1183 
+C 1389 1126 1715 1062 1715 742 
+C 1715 339 1254 339 1171 339 
+C 915 339 563 409 243 639 
+L 166 211 
+C 531 0 883 -64 1178 -64 
+C 1965 -64 2163 416 2163 780 
+C 2163 1094 1984 1305 1862 1401 
+C 1651 1567 1574 1587 1050 1695 
+C 960 1708 646 1779 646 2067 
+C 646 2431 1050 2431 1139 2431 
+C 1555 2431 1811 2303 1984 2207 
+L 2061 2623 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSS17-66" d="M 1075 2380 
+L 1722 2380 
+L 1722 2752 
+L 1062 2752 
+L 1062 3563 
+C 1062 4013 1408 4089 1606 4089 
+C 1670 4089 1850 4089 2080 4007 
+L 2080 4428 
+C 1933 4460 1754 4480 1613 4480 
+C 1018 4480 602 3994 602 3366 
+L 602 2752 
+L 160 2752 
+L 160 2380 
+L 602 2380 
+L 602 0 
+L 1075 0 
+L 1075 2380 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSS17-72" d="M 954 1369 
+C 954 1974 1395 2379 1958 2392 
+L 1958 2816 
+C 1549 2809 1165 2604 934 2270 
+L 934 2783 
+L 480 2783 
+L 480 0 
+L 954 0 
+L 954 1369 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSS17-63" d="M 2464 2540 
+C 2464 2585 2170 2713 2093 2739 
+C 1882 2816 1613 2816 1542 2816 
+C 710 2816 211 2092 211 1363 
+C 211 595 768 -64 1517 -64 
+C 1946 -64 2253 76 2502 243 
+L 2464 665 
+C 2189 454 1869 339 1523 339 
+C 1024 339 698 774 698 1369 
+C 698 1830 909 2412 1549 2412 
+C 1901 2412 2099 2342 2394 2143 
+L 2464 2540 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSS17-69" d="M 979 4224 
+L 442 4224 
+L 442 3686 
+L 979 3686 
+L 979 4224 
+z
+M 947 2752 
+L 474 2752 
+L 474 0 
+L 947 0 
+L 947 2752 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSS17-6f" d="M 2829 1356 
+C 2829 2175 2221 2816 1504 2816 
+C 768 2816 173 2156 173 1356 
+C 173 544 787 -64 1498 -64 
+C 2227 -64 2829 563 2829 1356 
+z
+M 1504 339 
+C 1050 339 659 710 659 1407 
+C 659 2150 1114 2425 1498 2425 
+C 1914 2425 2342 2124 2342 1407 
+C 2342 684 1926 339 1504 339 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSS17-6e" d="M 2618 1878 
+C 2618 2283 2522 2816 1798 2816 
+C 1389 2816 1120 2604 941 2386 
+L 941 2783 
+L 474 2783 
+L 474 0 
+L 960 0 
+L 960 1556 
+C 960 1962 1114 2425 1549 2425 
+C 2112 2425 2131 2045 2131 1826 
+L 2131 0 
+L 2618 0 
+L 2618 1878 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMSS17-6d" transform="scale(0.996264)"/>
+      <use xlink:href="#CMSS17-65" transform="translate(74.229254 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-74" transform="translate(115.868077 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-61" transform="translate(149.699643 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-6c" transform="translate(194.621564 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-6d" transform="translate(248.0314 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-61" transform="translate(322.260654 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-73" transform="translate(367.182575 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-73" transform="translate(403.096117 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-66" transform="translate(470.238771 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-72" transform="translate(498.86543 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-61" transform="translate(530.775203 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-63" transform="translate(575.697123 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-74" transform="translate(617.335945 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-69" transform="translate(651.167512 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-6f" transform="translate(673.348235 0) scale(0.996264)"/>
+      <use xlink:href="#CMSS17-6e" transform="translate(720.191859 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+   <g id="line2d_17">
+    <path d="M 404.649761 147.35818 
+L 404.649761 147.267948 
+L 404.53896 140.69705 
+L 162.355267 140.697049 
+L 160.091636 75.671617 
+L 158.955713 74.665495 
+L 157.819789 73.479785 
+L 153.252967 71.720623 
+L 148.658032 71.275287 
+L 144.03853 71.20054 
+L 123.644994 71.389615 
+L 114.303963 71.792342 
+L 110.23282 72.23122 
+L 108.203032 72.54793 
+L 105.600613 73.209658 
+L 103.582956 73.97418 
+L 102.147 74.721422 
+L 100.784325 75.673111 
+L 100.284118 76.140731 
+L 98.640929 77.888837 
+L 97.71653 79.231897 
+L 96.792132 81.006199 
+L 95.906236 83.058529 
+L 95.517307 84.309669 
+L 95.022307 86.514651 
+L 94.739449 88.920256 
+L 94.491949 92.985684 
+L 94.244448 101.34944 
+L 93.980474 119.11383 
+L 93.209631 178.716973 
+L 92.979037 181.144273 
+L 92.812131 181.363321 
+L 92.803347 181.359381 
+L 92.645225 181.199001 
+L 90.442783 177.162917 
+L 87.927676 174.340875 
+L 87.236903 173.749684 
+L 86.47614 173.100002 
+L 84.257935 171.636808 
+L 81.082349 170.558013 
+L 79.151237 170.366006 
+L 74.600001 170.178577 
+L 73.882481 169.995031 
+L 73.406854 169.353654 
+L 73.16904 167.379349 
+L 72.467491 167.951412 
+L 72.205896 167.669675 
+L 71.815232 168.449316 
+L 71.056097 168.422914 
+L 70.37688 168.657659 
+L 68.941045 169.016115 
+L 63.804994 169.58592 
+L 56.329021 169.761075 
+L 47.529789 169.888138 
+L 47.529789 169.888138 
+" clip-path="url(#p3bbe739167)" style="fill: none; stroke: #1f77b4; stroke-width: 1.5; stroke-linecap: square"/>
+   </g>
+   <g id="patch_3">
+    <path d="M 47.529761 280.41418 
+L 47.529761 14.30218 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_4">
+    <path d="M 404.649761 280.41418 
+L 404.649761 14.30218 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_5">
+    <path d="M 47.529761 280.41418 
+L 404.649761 280.41418 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_6">
+    <path d="M 47.529761 14.30218 
+L 404.649761 14.30218 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="text_19">
+    <!-- Metal mass fraction profile -->
+    <g transform="translate(160.886413 8.30218) scale(0.12 -0.12)">
+     <defs>
+      <path id="CMSS17-4d" d="M 3194 2373 
+L 2886 1476 
+C 2835 1311 2662 795 2624 592 
+L 2618 592 
+C 2598 719 2560 853 2458 1177 
+C 2400 1368 2336 1565 2272 1743 
+L 1325 4416 
+L 576 4416 
+L 576 0 
+L 1075 0 
+L 1075 3899 
+L 1082 3899 
+C 1082 3893 1139 3613 1530 2500 
+L 2374 102 
+L 2848 102 
+L 3610 2233 
+C 3661 2379 3821 2843 3891 3066 
+C 3955 3257 4115 3728 4154 3912 
+L 4160 3912 
+L 4160 0 
+L 4666 0 
+L 4666 4416 
+L 3923 4416 
+L 3194 2373 
+z
+" transform="scale(0.015625)"/>
+      <path id="CMSS17-70" d="M 966 275 
+C 1178 70 1466 -64 1773 -64 
+C 2368 -64 2880 553 2880 1382 
+C 2880 2147 2496 2816 1946 2816 
+C 1626 2816 1242 2700 954 2470 
+L 954 2764 
+L 480 2764 
+L 480 -1280 
+L 966 -1280 
+L 966 275 
+z
+M 966 2088 
+C 1018 2166 1235 2412 1587 2412 
+C 2035 2412 2394 1946 2394 1382 
+C 2394 741 1958 326 1530 326 
+C 1402 326 1267 358 1139 468 
+C 966 624 966 721 966 812 
+L 966 2088 
+z
+" transform="scale(0.015625)"/>
+      <path id="CMSS17-c" d="M 2752 4480 
+L 2240 4480 
+L 2240 3967 
+L 2752 3967 
+L 2752 4480 
+z
+M 2733 2752 
+L 2259 2752 
+L 2259 0 
+L 2733 0 
+L 2733 2752 
+z
+M 1075 2380 
+L 1773 2380 
+L 1773 2752 
+L 1062 2752 
+L 1062 3613 
+C 1062 3961 1216 4134 1421 4134 
+C 1542 4134 1664 4102 1773 4044 
+L 1773 4473 
+C 1722 4486 1574 4524 1421 4524 
+C 941 4524 602 4038 602 3402 
+L 602 2752 
+L 160 2752 
+L 160 2380 
+L 602 2380 
+L 602 0 
+L 1075 0 
+L 1075 2380 
+z
+" transform="scale(0.015625)"/>
+     </defs>
+     <use xlink:href="#CMSS17-4d" transform="scale(0.996264)"/>
+     <use xlink:href="#CMSS17-65" transform="translate(81.67603 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-74" transform="translate(123.314852 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-61" transform="translate(157.146419 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-6c" transform="translate(202.068339 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-6d" transform="translate(255.478175 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-61" transform="translate(329.70743 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-73" transform="translate(374.62935 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-73" transform="translate(410.542892 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-66" transform="translate(477.685547 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-72" transform="translate(506.312206 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-61" transform="translate(538.221978 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-63" transform="translate(583.143899 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-74" transform="translate(624.782721 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-69" transform="translate(658.614288 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-6f" transform="translate(680.795011 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-6e" transform="translate(727.638634 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-70" transform="translate(807.07269 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-72" transform="translate(852.675179 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-6f" transform="translate(884.584952 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-c" transform="translate(931.428575 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-6c" transform="translate(981.555313 0) scale(0.996264)"/>
+     <use xlink:href="#CMSS17-65" transform="translate(1003.736036 0) scale(0.996264)"/>
+    </g>
+   </g>
+  </g>
+ </g>
+ <defs>
+  <clipPath id="p3bbe739167">
+   <rect x="47.529761" y="14.30218" width="357.12" height="266.112"/>
+  </clipPath>
+ </defs>
+</svg>
diff --git a/star/test_suite/1.3M_ms_high_Z/inlist_1.3M_ms_high_Z b/star/test_suite/1.3M_ms_high_Z/inlist_1.3M_ms_high_Z
index 41e366a2c..03999db41 100644
--- a/star/test_suite/1.3M_ms_high_Z/inlist_1.3M_ms_high_Z
+++ b/star/test_suite/1.3M_ms_high_Z/inlist_1.3M_ms_high_Z
@@ -1,6 +1,6 @@
 &star_job
 
-   show_log_description_at_start = .false. 
+   show_log_description_at_start = .false.
 
    load_saved_model = .true.
    load_model_filename = 'zams_0.040_1.30.mod'
@@ -21,18 +21,19 @@
    pgstar_flag = .true.
    save_pgstar_files_when_terminate = .true.
 
-/ !end of star_job namelist
+/ ! end of star_job namelist
 
-&eos
 
+&eos
 
 / ! end of eos namelist
 
 
 &kap
-  Zbase = 0.04d0
+   Zbase = 0.04d0
 / ! end of kap namelist
 
+
 &controls
 
    energy_eqn_option = 'dedt'
@@ -41,27 +42,26 @@
    trace_history_value_name(1) = 'rel_E_err'
    trace_history_value_name(2) = 'log_rel_run_E_err'
 
-  ! limit max_model_number as part of test_suite
+   ! limit max_model_number as part of test_suite
    max_model_number = 500
    use_gold2_tolerances = .true.
    max_abs_rel_run_E_err = 1d-2
 
-  ! the initial model comes from this thread via Philip Hall
-  ! https://lists.mesastar.org/pipermail/mesa-users/2017-June/007738.html
-  initial_mass = 1.3
-  initial_y = 0.32d0
-  initial_z = 0.04d0
-      
-  ! this stopping condition should get triggered
-  log_L_upper_limit = 0.7
-
-  ! this stopping condition should not get triggered
-  Teff_lower_limit = 4000
-
-      photo_interval = 50
-      profile_interval = 100
-      history_interval = 10
-      terminal_interval = 10
+   ! the initial model comes from this thread via Philip Hall
+   ! https://lists.mesastar.org/pipermail/mesa-users/2017-June/007738.html
+   initial_mass = 1.3
+   initial_y = 0.32d0
+   initial_z = 0.04d0
+   ! this stopping condition should get triggered
+   log_L_upper_limit = 0.7
+
+   ! this stopping condition should not get triggered
+   Teff_lower_limit = 4000
+
+   photo_interval = 50
+   profile_interval = 100
+   history_interval = 1
+   terminal_interval = 10
 
 / ! end of controls namelist
 
diff --git a/star/test_suite/1.3M_ms_high_Z/inlist_1.3M_ms_high_Z_header b/star/test_suite/1.3M_ms_high_Z/inlist_1.3M_ms_high_Z_header
index a55f79f3f..d9ae44d6d 100644
--- a/star/test_suite/1.3M_ms_high_Z/inlist_1.3M_ms_high_Z_header
+++ b/star/test_suite/1.3M_ms_high_Z/inlist_1.3M_ms_high_Z_header
@@ -1,40 +1,38 @@
-
 &star_job
 
-
-      read_extra_star_job_inlist(2) = .true.
-      extra_star_job_inlist_name(2) = 'inlist_1.3M_ms_high_Z'
+   read_extra_star_job_inlist(2) = .true.
+   extra_star_job_inlist_name(2) = 'inlist_1.3M_ms_high_Z'
 
 / ! end of star_job namelist
 
 
 &eos
 
-      read_extra_eos_inlist(1) = .true.
-      extra_eos_inlist_name(1) = 'inlist_1.3M_ms_high_Z'
+   read_extra_eos_inlist(1) = .true.
+   extra_eos_inlist_name(1) = 'inlist_1.3M_ms_high_Z'
 
 / ! end of eos namelist
 
 
 &kap
 
-      read_extra_kap_inlist(1) = .true.
-      extra_kap_inlist_name(1) = 'inlist_1.3M_ms_high_Z'
+   read_extra_kap_inlist(1) = .true.
+   extra_kap_inlist_name(1) = 'inlist_1.3M_ms_high_Z'
 
 / ! end of kap namelist
 
 
 &controls
 
-      read_extra_controls_inlist(1) = .true.
-      extra_controls_inlist_name(1)= 'inlist_1.3M_ms_high_Z'
+   read_extra_controls_inlist(1) = .true.
+   extra_controls_inlist_name(1)= 'inlist_1.3M_ms_high_Z'
 
 / ! end of controls namelist
 
 
 &pgstar
 
-      read_extra_pgstar_inlist(1) = .true.
-      extra_pgstar_inlist_name(1)= 'inlist_pgstar'
+   read_extra_pgstar_inlist(1) = .true.
+   extra_pgstar_inlist_name(1)= 'inlist_pgstar'
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/1.3M_ms_high_Z/inlist_pgstar b/star/test_suite/1.3M_ms_high_Z/inlist_pgstar
index 3ae6e4f74..8ace39dcc 100644
--- a/star/test_suite/1.3M_ms_high_Z/inlist_pgstar
+++ b/star/test_suite/1.3M_ms_high_Z/inlist_pgstar
@@ -1,125 +1,135 @@
 &pgstar
 
-  Grid1_title = '1.3M_ms_high_Z'
-  Grid1_win_flag = .false.
-
-  Grid1_win_width = 12
-  Grid1_win_aspect_ratio = 0.4 ! aspect_ratio = height/width
-
-  Grid1_xleft = 0.05 ! fraction of full window width for margin on left
-  Grid1_xright = 0.95 ! fraction of full window width for margin on right
-  Grid1_ybot = 0.08 ! fraction of full window width for margin on bottom
-  Grid1_ytop = 0.92 ! fraction of full window width for margin on top
-
-  Grid1_num_cols = 5 ! divide plotting region into this many equal width cols
-  Grid1_num_rows = 1 ! divide plotting region into this many equal height rows
-  Grid1_num_plots = 2 ! <= 10
-
-
-  Grid1_plot_name(1) = 'HR'
-  Grid1_plot_row(1) = 1 ! number from 1 at top
-  Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows
-  Grid1_plot_col(1) =  1 ! number from 1 at left
-  Grid1_plot_colspan(1) = 2 ! plot spans this number of columns
-  Grid1_plot_pad_left(1) = 0.025 ! fraction of full window width for padding on left
-  Grid1_plot_pad_right(1) = 0.05 ! fraction of full window width for padding on right
-  Grid1_plot_pad_top(1) = 0.05 ! fraction of full window height for padding at top
-  Grid1_plot_pad_bot(1) = 0.05 ! fraction of full window height for padding at bottom
-  Grid1_txt_scale_factor(1) = 1.0 ! multiply txt_scale for subplot by this
-
-
-  Grid1_plot_name(2) = 'Profile_Panels1'
-  Grid1_plot_row(2) = 1 ! number from 1 at top
-  Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows
-  Grid1_plot_col(2) = 3 ! number from 1 at left
-  Grid1_plot_colspan(2) = 3 ! plot spans this number of columns
-  Grid1_plot_pad_left(2) = 0.05 ! fraction of full window width for padding on left
-  Grid1_plot_pad_right(2) = 0.025 ! fraction of full window width for padding on right
-  Grid1_plot_pad_top(2) = 0.05 ! fraction of full window height for padding at top
-  Grid1_plot_pad_bot(2) = 0.05 ! fraction of full window height for padding at bottom
-  Grid1_txt_scale_factor(2) = 1.0 ! multiply txt_scale for subplot by this
-
-  ! file output
-  Grid1_file_flag = .true.
-  Grid1_file_dir = 'png'
-  Grid1_file_prefix = 'grid1'
-  Grid1_file_interval = 1000000 ! output when mod(model_number,Grid1_file_interval)==0
-  Grid1_file_width = -1 ! negative means use same value as for window
-  Grid1_file_aspect_ratio = -1 ! negative means use same value as for window
-  ! MESA uses PGPLOT for live plotting and gives the user a tremendous
-  ! amount of control of the presentation of the information.
-
-  ! show HR diagram
-  ! this plots the history of L,Teff over many timesteps
-  HR_win_flag = .false.
-
-  ! set static plot bounds
-  HR_logT_min = 3.55
-  HR_logT_max = 3.85
-  HR_logL_min = 0.1
-  HR_logL_max = 1.0
-
-  ! show OPAL results
-  HR_fname = 'HR_OPAL.dat' ! file name for extra HR data
-
-  ! set window size (aspect_ratio = height/width)
-  HR_win_width = 6
-  HR_win_aspect_ratio = 1.0
-
-
-  Profile_Panels1_win_flag = .false.
-
-  Profile_Panels1_win_width = 6
-  Profile_Panels1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width
-
-  Profile_Panels1_xleft = 0.15
-  Profile_Panels1_xright = 0.85
-  Profile_Panels1_ybot = 0.15
-  Profile_Panels1_ytop = 0.85
-  Profile_Panels1_txt_scale = 1.0
-  Profile_Panels1_title = 'Profile Panels1'
-
-  Profile_Panels1_xaxis_name = 'mass'
-  Profile_Panels1_xaxis_reversed = .false.
-  Profile_Panels1_xmin = -101d0 ! only used if /= -101d0
-  Profile_Panels1_xmax = -101d0 ! only used if /= -101d0
-  Profile_Panels1_xmargin = 0d0
-  Profile_Panels1_show_mix_regions_on_xaxis = .false.
-
-  Profile_Panels1_yaxis_name(:) = ''
-  Profile_Panels1_yaxis_reversed(:) = .false.
-  Profile_Panels1_yaxis_log(:) = .false. ! show log10 of abs value
-  Profile_Panels1_ymin(:) = -101d0 ! only used if /= -101d0
-  Profile_Panels1_ymax(:) = -101d0 ! only used if /= -101d0
-  Profile_Panels1_ymargin(:) = 0.1
-  Profile_Panels1_dymin(:) = -1
-
-  Profile_Panels1_other_yaxis_name(:) = ''
-  Profile_Panels1_other_yaxis_reversed(:) = .false.
-  Profile_Panels1_other_yaxis_log(:) = .false. ! show log10 of abs value
-  Profile_Panels1_other_ymin(:) = -101d0 ! only used if /= -101d0
-  Profile_Panels1_other_ymax(:) = -101d0 ! only used if /= -101d0
-  Profile_Panels1_other_ymargin(:) = 0.1
-  Profile_Panels1_other_dymin(:) = -1
-
-  Profile_Panels1_show_grid = .false.
-
-  ! setup default plot
-  Profile_Panels1_num_panels = 1
-  Profile_Panels1_yaxis_name(1) = 'z_mass_fraction_metals'
-  Profile_Panels1_ymin(1) = 0.038 ! only used if /= -101d0
-  Profile_Panels1_ymax(1) = 0.042 ! only used if /= -101d0
-
-  ! Profile_Panels1_other_yaxis_name(1) = 'entropy'
-  ! Profile_Panels1_yaxis_name(2) = 'logRho'
-  ! Profile_Panels1_other_yaxis_name(2) = 'logP'
-
-  ! file output
-  Profile_Panels1_file_flag = .false.
-  Profile_Panels1_file_dir = 'png'
-  Profile_Panels1_file_prefix = 'profile_panels1_'
-  Profile_Panels1_file_interval = 5 ! output when mod(model_number,Profile_Panels1_file_interval)==0
-  Profile_Panels1_file_width = -1 ! (inches) negative means use same value as for window
-  Profile_Panels1_file_aspect_ratio = -1 ! negative means use same value as for window
+   ! MESA uses PGPLOT for live plotting and gives the user a tremendous
+   ! amount of control of the presentation of the information.
+
+   ! device
+   file_white_on_black_flag = .true.
+   file_device = 'vcps'      ! postscript
+   file_extension = 'ps'
+   !file_device = 'png'      ! png
+   !file_extension = 'png'
+
+   pgstar_interval = 10
+
+   Grid1_title = '1.3M_ms_high_Z'
+   Grid1_win_flag = .false.
+
+   Grid1_win_width = 15
+   Grid1_win_aspect_ratio = 0.4 ! aspect_ratio = height/width
+
+   Grid1_xleft = 0.05 ! fraction of full window width for margin on left
+   Grid1_xright = 0.95 ! fraction of full window width for margin on right
+   Grid1_ybot = 0.08 ! fraction of full window width for margin on bottom
+   Grid1_ytop = 0.92 ! fraction of full window width for margin on top
+
+   Grid1_num_cols = 5 ! divide plotting region into this many equal width cols
+   Grid1_num_rows = 1 ! divide plotting region into this many equal height rows
+   Grid1_num_plots = 2 ! <= 10
+
+
+   Grid1_plot_name(1) = 'HR'
+   Grid1_plot_row(1) = 1 ! number from 1 at top
+   Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows
+   Grid1_plot_col(1) =  1 ! number from 1 at left
+   Grid1_plot_colspan(1) = 2 ! plot spans this number of columns
+   Grid1_plot_pad_left(1) = 0.025 ! fraction of full window width for padding on left
+   Grid1_plot_pad_right(1) = 0.05 ! fraction of full window width for padding on right
+   Grid1_plot_pad_top(1) = 0.05 ! fraction of full window height for padding at top
+   Grid1_plot_pad_bot(1) = 0.05 ! fraction of full window height for padding at bottom
+   Grid1_txt_scale_factor(1) = 1.0 ! multiply txt_scale for subplot by this
+
+
+   Grid1_plot_name(2) = 'Profile_Panels1'
+   Grid1_plot_row(2) = 1 ! number from 1 at top
+   Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows
+   Grid1_plot_col(2) = 3 ! number from 1 at left
+   Grid1_plot_colspan(2) = 3 ! plot spans this number of columns
+   Grid1_plot_pad_left(2) = 0.05 ! fraction of full window width for padding on left
+   Grid1_plot_pad_right(2) = 0.025 ! fraction of full window width for padding on right
+   Grid1_plot_pad_top(2) = 0.05 ! fraction of full window height for padding at top
+   Grid1_plot_pad_bot(2) = 0.05 ! fraction of full window height for padding at bottom
+   Grid1_txt_scale_factor(2) = 1.0 ! multiply txt_scale for subplot by this
+
+   ! file output
+   Grid1_file_flag = .true.
+   Grid1_file_dir = 'pgstar_out'
+   Grid1_file_prefix = 'grid1'
+   Grid1_file_interval = 1000000 ! output when mod(model_number,Grid1_file_interval)==0
+   Grid1_file_width = -1 ! negative means use same value as for window
+   Grid1_file_aspect_ratio = -1 ! negative means use same value as for window
+
+   ! show HR diagram
+   ! this plots the history of L,Teff over many timesteps
+   HR_win_flag = .false.
+
+   ! set static plot bounds
+   HR_logT_min = 3.55
+   HR_logT_max = 3.85
+   HR_logL_min = 0.1
+   HR_logL_max = 1.0
+
+   ! show OPAL results
+   HR_fname = 'HR_OPAL.dat' ! file name for extra HR data
+
+   ! set window size (aspect_ratio = height/width)
+   HR_win_width = 6
+   HR_win_aspect_ratio = 1.0
+
+
+   Profile_Panels1_win_flag = .false.
+
+   Profile_Panels1_win_width = 6
+   Profile_Panels1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width
+
+   Profile_Panels1_xleft = 0.15
+   Profile_Panels1_xright = 0.85
+   Profile_Panels1_ybot = 0.15
+   Profile_Panels1_ytop = 0.85
+   Profile_Panels1_txt_scale = 1.0
+   Profile_Panels1_title = 'Profile Panels1'
+
+   Profile_Panels1_xaxis_name = 'mass'
+   Profile_Panels1_xaxis_reversed = .false.
+   Profile_Panels1_xmin = -101d0 ! only used if /= -101d0
+   Profile_Panels1_xmax = -101d0 ! only used if /= -101d0
+   Profile_Panels1_xmargin = 0d0
+   Profile_Panels1_show_mix_regions_on_xaxis = .false.
+
+   Profile_Panels1_yaxis_name(:) = ''
+   Profile_Panels1_yaxis_reversed(:) = .false.
+   Profile_Panels1_yaxis_log(:) = .false. ! show log10 of abs value
+   Profile_Panels1_ymin(:) = -101d0 ! only used if /= -101d0
+   Profile_Panels1_ymax(:) = -101d0 ! only used if /= -101d0
+   Profile_Panels1_ymargin(:) = 0.1
+   Profile_Panels1_dymin(:) = -1
+
+   Profile_Panels1_other_yaxis_name(:) = ''
+   Profile_Panels1_other_yaxis_reversed(:) = .false.
+   Profile_Panels1_other_yaxis_log(:) = .false. ! show log10 of abs value
+   Profile_Panels1_other_ymin(:) = -101d0 ! only used if /= -101d0
+   Profile_Panels1_other_ymax(:) = -101d0 ! only used if /= -101d0
+   Profile_Panels1_other_ymargin(:) = 0.1
+   Profile_Panels1_other_dymin(:) = -1
+
+   Profile_Panels1_show_grid = .false.
+
+   ! setup default plot
+   Profile_Panels1_num_panels = 1
+   Profile_Panels1_yaxis_name(1) = 'z_mass_fraction_metals'
+   Profile_Panels1_ymin(1) = 0.038 ! only used if /= -101d0
+   Profile_Panels1_ymax(1) = 0.042 ! only used if /= -101d0
+
+   ! Profile_Panels1_other_yaxis_name(1) = 'entropy'
+   ! Profile_Panels1_yaxis_name(2) = 'logRho'
+   ! Profile_Panels1_other_yaxis_name(2) = 'logP'
+
+   ! file output
+   Profile_Panels1_file_flag = .false.
+   Profile_Panels1_file_dir = 'pgstar_out'
+   Profile_Panels1_file_prefix = 'profile_panels1_'
+   Profile_Panels1_file_interval = 5 ! output when mod(model_number,Profile_Panels1_file_interval)==0
+   Profile_Panels1_file_width = -1 ! (inches) negative means use same value as for window
+   Profile_Panels1_file_aspect_ratio = -1 ! negative means use same value as for window
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/1.3M_ms_high_Z/inlist_zams b/star/test_suite/1.3M_ms_high_Z/inlist_zams
index b48abee76..0cbc7af26 100644
--- a/star/test_suite/1.3M_ms_high_Z/inlist_zams
+++ b/star/test_suite/1.3M_ms_high_Z/inlist_zams
@@ -2,46 +2,46 @@
 
 &star_job
 
-      show_log_description_at_start = .false. 
+   show_log_description_at_start = .false.
 
-      create_pre_main_sequence_model = .true.
+   create_pre_main_sequence_model = .true.
 
-      save_model_when_terminate = .true.
-      save_model_filename = 'zams_0.040_1.30.mod'
-      required_termination_code_string = 'Lnuc_div_L_zams_limit'
+   save_model_when_terminate = .true.
+   save_model_filename = 'zams_0.040_1.30.mod'
+   required_termination_code_string = 'Lnuc_div_L_zams_limit'
 
 
-      !pgstar_flag = .true.
+   !pgstar_flag = .true.
 
 / ! end of star_job namelist
 
+
 &eos
 / ! end of eos namelist
 
+
 &kap
-      Zbase = 0.04d0
-      kap_file_prefix = 'gs98'
+   Zbase = 0.04d0
+   kap_file_prefix = 'gs98'
 / ! end of kap namelist
 
+
 &controls
 
-      initial_mass = 1.30
-      initial_z = 0.04d0
+   initial_mass = 1.30
+   initial_z = 0.04d0
 
-      stop_near_zams = .true.
-      Lnuc_div_L_zams_limit = 0.9d0
-      
-      ! limit max_model_number as part of test_suite
-      max_model_number = 10000
-      
-      num_trace_history_values = 2
-      trace_history_value_name(1) = 'rel_E_err'
-      trace_history_value_name(2) = 'log_rel_run_E_err'
+   stop_near_zams = .true.
+   Lnuc_div_L_zams_limit = 0.9d0
+   ! limit max_model_number as part of test_suite
+   max_model_number = 10000
+   num_trace_history_values = 2
+   trace_history_value_name(1) = 'rel_E_err'
+   trace_history_value_name(2) = 'log_rel_run_E_err'
 
-      photo_interval = 100
-      profile_interval = 100
-      history_interval = 5
-      terminal_interval = 50
+   photo_interval = 100
+   profile_interval = 100
+   history_interval = 5
+   terminal_interval = 50
 
 / ! end of controls namelist
-
diff --git a/star/test_suite/1.3M_ms_high_Z/inlist_zams_header b/star/test_suite/1.3M_ms_high_Z/inlist_zams_header
index 83e825c58..d17468fd4 100644
--- a/star/test_suite/1.3M_ms_high_Z/inlist_zams_header
+++ b/star/test_suite/1.3M_ms_high_Z/inlist_zams_header
@@ -1,41 +1,38 @@
-
 &star_job
 
-
-      read_extra_star_job_inlist(2) = .true.
-      extra_star_job_inlist_name(2) = 'inlist_zams'
+   read_extra_star_job_inlist(2) = .true.
+   extra_star_job_inlist_name(2) = 'inlist_zams'
 
 / ! end of star_job namelist
 
 
 &eos
 
-      read_extra_eos_inlist(1) = .true.
-      extra_eos_inlist_name(1) = 'inlist_zams'
+   read_extra_eos_inlist(1) = .true.
+   extra_eos_inlist_name(1) = 'inlist_zams'
 
 / ! end of eos namelist
 
 
 &kap
 
-      read_extra_kap_inlist(1) = .true.
-      extra_kap_inlist_name(1) = 'inlist_zams'
+   read_extra_kap_inlist(1) = .true.
+   extra_kap_inlist_name(1) = 'inlist_zams'
 
 / ! end of kap namelist
 
 
-
 &controls
 
-      read_extra_controls_inlist(1) = .true.
-      extra_controls_inlist_name(1)= 'inlist_zams'
+   read_extra_controls_inlist(1) = .true.
+   extra_controls_inlist_name(1)= 'inlist_zams'
 
 / ! end of controls namelist
 
 
 &pgstar
 
-      read_extra_pgstar_inlist(1) = .true.
-      extra_pgstar_inlist_name(1)= 'inlist_zams'
+   read_extra_pgstar_inlist(1) = .true.
+   extra_pgstar_inlist_name(1)= 'inlist_zams'
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/1.3M_ms_high_Z/plot.py b/star/test_suite/1.3M_ms_high_Z/plot.py
new file mode 100644
index 000000000..cabe92c0d
--- /dev/null
+++ b/star/test_suite/1.3M_ms_high_Z/plot.py
@@ -0,0 +1,52 @@
+import matplotlib.pyplot as plt
+import numpy as np
+import os
+import mesa_reader as mr
+
+# if the directory plt_out/ does not exits, make it
+if not os.path.exists("plt_out"):
+    os.makedirs("plt_out")
+
+# enable Latex for figure labels
+plt.rcParams["text.usetex"] = True
+
+# read in the history data from MESA
+history = mr.MesaData("LOGS/history.data")
+
+# load the last profile saved (largest model number)
+load_dir = mr.MesaLogDir("./LOGS")
+profile = load_dir.profile_data()
+
+# load HR_OPAL.dat reference data
+hr_opal = np.genfromtxt("HR_OPAL.dat", delimiter="   ", skip_header=1)
+
+# Plot HR diagram
+HR_logT_min = 3.55
+HR_logT_max = 3.85
+HR_logL_min = 0.1
+HR_logL_max = 1.0
+plt.figure()
+plt.plot(hr_opal[:,0], hr_opal[:,1], label="OPAL.dat", color="tab:orange")
+plt.plot(history.log_Teff, history.log_L, label="MESA", color="tab:blue")
+plt.plot(history.log_Teff[-1], history.log_L[-1], "ro")
+plt.xlabel(r"$\log_{10}(T_{\rm eff})$")
+plt.ylabel(r"$\log_{10}(L/L_{\odot})$")
+plt.title("HR Diagram")
+plt.xlim(HR_logT_min, HR_logT_max)
+plt.ylim(HR_logL_min, HR_logL_max)
+plt.legend()
+plt.gca().set_box_aspect(1)
+plt.gca().invert_xaxis()
+plt.savefig("plt_out/HR_diagram.svg", bbox_inches="tight", pad_inches=0)
+# plt.show()
+
+# Plot Profile of metal mass fraction
+plt.figure()
+plt.plot(profile.mass, profile.z_mass_fraction_metals)
+plt.xlabel(r"$\log_{10}(M(r)/M_{\odot})$")
+plt.ylabel(r"metal mass fraction")
+plt.title("Metal mass fraction profile")
+plt.xlim(0, profile.mass[0])
+plt.ylim(0.038, 0.042)
+plt.savefig("plt_out/z_mass_fraction_metals.svg", bbox_inches="tight", pad_inches=0)
+# plt.show()
diff --git a/star/test_suite/1.4M_ms_op_mono/README.rst b/star/test_suite/1.4M_ms_op_mono/README.rst
index 6abcffe3f..a3afe3ba5 100644
--- a/star/test_suite/1.4M_ms_op_mono/README.rst
+++ b/star/test_suite/1.4M_ms_op_mono/README.rst
@@ -5,7 +5,7 @@
 ***************
 
 The test checks the functionality of OP mono opacities. The test vehicle is a 
-1.4 Msun solar metallicity model.
+1.4 |Msun| solar metallicity model.
 
 
 This test case has three parts. Click to see a larger view of a plot.
@@ -13,7 +13,7 @@ This test case has three parts. Click to see a larger view of a plot.
 * Part 1 (``inlist_1.4M_ms_initial_model``) creates the pre-main-sequence model and evolves the model until the central hydrogen mass fractions falls below 0.5. During this evolution the OP mono opacities are off.
 
 .. image:: ../../../star/test_suite/1.4M_ms_op_mono/docs/initial_model.svg
-   :scale: 100%
+   :width: 100%
 
 
 The upper plot shows the fraction of the opacity that is from OP mono (yellow curve) and the opacity (blue curve)
@@ -24,15 +24,13 @@ The lower plot shows the opacity derivatives.
 * Part 2 (``inlist_1.4M_ms_op_mono``) continues the evolution of ``inlist_1.4M_ms_initial_model`` for 10 timesteps using the OP mono opacities, as shown by the fraction of the opacity that is from OP mono (yellow curve, upper plot)
 
 .. image:: ../../../star/test_suite/1.4M_ms_op_mono/docs/op_mono.svg
-   :scale: 100%
-
+   :width: 100%
 
 
 * Part 3 (``inlist_1.4M_ms_op_mono``) continues the evolution of ``inlist_1.4M_ms_initial_model`` for 10 timesteps using an alternative formulation of the OP mono opacities, as shown by the smoother opacity derivatives in the lower plot. See $MESA_DIR/kap/public/kap_lib.f.90 for the differences between the regular and alternative OP mono formulations.
 
 .. image:: ../../../star/test_suite/1.4M_ms_op_mono/docs/op_mono_alt.svg
-   :scale: 100%
-
+   :width: 100%
 
 
 pgstar commands used for the plots above:
@@ -41,18 +39,14 @@ pgstar commands used for the plots above:
 
  &pgstar
 
-     pgstar_interval = 10
+   pgstar_interval = 10
 
   ! device
 
-   file_white_on_black_flag = .true. ! white_on_black flags -- true means white foreground color on black background
-   !file_device = 'png'            ! png
-   !file_extension = 'png'           
-
-   file_device = 'vcps'          ! postscript
+   file_white_on_black_flag = .true. 
+   file_device = 'vcps'
    file_extension = 'ps'           
 
-
   ! two profile panels
     Profile_Panels1_win_flag = .true.
 
@@ -80,7 +74,7 @@ pgstar commands used for the plots above:
     Profile_Panels1_other_yaxis_name(2) = 'dlnkap_dlnT'
 
     Profile_Panels1_file_flag = .true.
-    Profile_Panels1_file_dir = 'png'
+    Profile_Panels1_file_dir = 'pgstar_out'
     Profile_Panels1_file_prefix = 'profile_panels1_'
     Profile_Panels1_file_interval = 10
     Profile_Panels1_file_width = 15
diff --git a/star/test_suite/1.5M_with_diffusion/README.rst b/star/test_suite/1.5M_with_diffusion/README.rst
index 471e06713..79904265b 100644
--- a/star/test_suite/1.5M_with_diffusion/README.rst
+++ b/star/test_suite/1.5M_with_diffusion/README.rst
@@ -5,53 +5,30 @@
 *******************
 
 The test checks the functionality of element diffusion. 
-The test vehicle is a 1.5 Msun solar metallicity model.
+The test vehicle is a 1.5 |Msun| solar metallicity model.
 
 
 This test case has two parts. Click to see a larger view of a plot.
 
 * Part 1 (``inlist_to_ZAMS``) creates the pre-main-sequence model and evolves it to the main sequence. In the mass fraction plot, note the roughness of the 12C mass fraction profile (orange curve) from convection and that the surface hydrogen profile is flat (yellow curve). 
 
-.. image:: ../../../star/test_suite/1.5M_with_diffusion/docs/zams.svg
-   :scale: 100%
+.. image:: ../../../star/test_suite/1.5M_with_diffusion/docs/abund_zams_0000181.svg
+   :width: 100%
 
 * Part 2 (``1.5M_with_diffusion``) continues the evolution until the central hydrogen mass fraction drops below 0.01. In the mass fraction plot, note the 12C mass fraction profile (orange) has been smoothed by element diffusion and that the surface is nearly pure hydrogen (yellow upwards spike) from heavier elements diffusing inwards (e.g., orange downwards spike in 16O).
 
-.. image:: ../../../star/test_suite/1.5M_with_diffusion/docs/h_depletion.svg
-   :scale: 100%
+.. image:: ../../../star/test_suite/1.5M_with_diffusion/docs/abund_h_depletion_0000430.svg
+   :width: 100%
 
 
-pgstar commands used for the plots above:
-
-.. code-block:: console
-
- &pgstar
-
-     pgstar_interval = 10
-
-  ! device
-
-   file_white_on_black_flag = .true. ! white_on_black flags -- true means white foreground color on black background
-   !file_device = 'png'            ! png
-   !file_extension = 'png'           
-
-   file_device = 'vcps'          ! postscript
-   file_extension = 'ps'           
-
-
-      Grid2_win_width = 15
-      Grid2_win_flag = .true.
-      Grid2_file_flag = .true.
-      file_digits = 7
-      Grid2_file_dir = 'png2'
-      Grid2_file_prefix = 'grid'
-      Grid2_file_interval = 5
-      Grid2_file_width = 15
-
- / ! end of pgstar namelist
-
+pgstar commands used for the plots above, e.g.:
 
+.. literalinclude:: ../../../star/test_suite/1.5M_with_diffusion/inlist_1.5M_with_diffusion
+  :language: console
+  :start-at: &pgstar
+  :end-at: ! end of pgstar namelist
 
 
 Last-Updated: 27May2021 (MESA ebecc10) by fxt
 
+Last-Run: 17Jul2024 (MESA 0cc374fa) by pmocz on C916PXT6XW in 423 seconds using 8 threads.
diff --git a/star/test_suite/1.5M_with_diffusion/docs/abund_h_depletion_0000430.svg b/star/test_suite/1.5M_with_diffusion/docs/abund_h_depletion_0000430.svg
new file mode 100644
index 000000000..28685f0e0
--- /dev/null
+++ b/star/test_suite/1.5M_with_diffusion/docs/abund_h_depletion_0000430.svg
@@ -0,0 +1 @@
+<svg xmlns="http://www.w3.org/2000/svg" width="864.03" height="864.03"><path fill-rule="evenodd" d="M.016 864.014h863.979V.035H.016z"/><g fill="none" stroke-linecap="round" stroke-linejoin="round" stroke-miterlimit="10"><path stroke="gold" stroke-width="3.839904" d="M750.141 144.795h27.84"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="M792.194 137.408v11.136M792.194 143.168l1.535-1.536M793.727 141.635l1.056-.576M794.78 141.061h1.632M796.407 141.061l1.056.576M797.473 141.635l.576 1.536M798.047 143.168v5.376M803.327 139.515l1.056-.576M804.38 138.941l1.632-1.536M806.007 137.408v11.136"/></g><path stroke="#87cefa" stroke-width="3.839904" d="M750.141 182.527h27.84"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="M792.194 175.14v11.232M792.194 180.994l1.535-1.536M793.727 179.46l1.056-.576M794.78 178.874h1.632M796.407 178.874l1.056.576M797.473 179.46l.576 1.536M798.047 180.994v5.376M801.687 182.047h6.431M808.126 182.047v-1.056M808.126 180.994l-.576-1.056M807.553 179.94l-.48-.48M807.073 179.46l-1.056-.576M806.007 178.874h-1.632M804.38 178.874l-1.056.576M803.327 179.46l-1.056 1.056M802.273 180.514l-.576 1.536M801.687 182.047v1.056M801.687 183.1l.576 1.632M802.273 184.74l1.056 1.056M803.327 185.794l1.056.576M804.38 186.367h1.632M806.007 186.367l1.055-.576M807.073 185.794l1.056-1.056M816.673 175.14l-5.376 7.488M811.286 182.62h7.968M816.673 175.14v11.232"/></g><path stroke="#c03" stroke-width="3.839904" d="M750.141 220.353h27.84"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="M792.194 216.7v7.391M792.194 218.82l1.535-1.632M793.727 217.18l1.056-.48M794.78 216.7h1.632M796.407 216.7l1.056.48M797.473 217.18l.576 1.631M798.047 218.82v5.28M803.327 215.073l1.056-.48M804.38 214.593l1.632-1.632M806.007 212.953v11.136M817.726 212.953l-5.376 7.488M812.353 220.446h7.968M817.726 212.953v11.136"/></g><path stroke="#daa520" stroke-width="3.839904" d="M750.141 258.178h27.84"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="m794.3 254.525-1.056.48M793.247 255.005l-1.056 1.056M792.194 256.059l-.576 1.631M791.607 257.698v1.056M791.607 258.752l.576 1.632M792.194 260.378l1.056 1.056M793.247 261.432l1.056.48M794.3 261.912h1.632M795.927 261.912l1.056-.48M796.993 261.432l1.056-1.056M798.047 260.378l.48-1.632M798.527 258.752v-1.056M798.527 257.698l-.48-1.631M798.047 256.059l-1.056-1.056M796.993 255.005l-1.056-.48M795.927 254.525h-1.632M803.327 252.899l1.056-.576M804.38 252.312l1.632-1.536M806.007 250.779v11.135M819.26 252.312l-.48-1.056M818.78 251.259l-1.632-.48M817.153 250.779h-1.056M816.086 250.779l-1.632.48M814.46 251.259l-1.056 1.632M813.406 252.899l-.48 2.688M812.926 255.579v2.591M812.926 258.178l.48 2.208M813.406 260.378l1.056 1.056M814.46 261.432l1.632.48M816.086 261.912h.576M816.673 261.912l1.536-.48M818.206 261.432l1.056-1.056M819.26 260.378l.576-1.632M819.833 258.752v-.576M819.833 258.178l-.576-1.535M819.26 256.632l-1.056-1.056M818.206 255.579l-1.536-.576M816.673 255.005h-.576M816.086 255.005l-1.632.576M814.46 255.579l-1.056 1.056M813.406 256.632l-.48 1.536"/></g><path stroke="#7c68ee" stroke-width="3.839904" d="M750.141 295.99h27.84"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="M792.194 292.258v7.487M792.194 294.364l1.535-1.536M793.727 292.83l1.056-.575M794.78 292.258h1.632M796.407 292.258l1.056.576M797.473 292.83l.576 1.537M798.047 294.364v5.376M798.047 294.364l1.536-1.536M799.58 292.83l1.056-.575M800.633 292.258h1.632M802.273 292.258l1.056.576M803.327 292.83l.576 1.537M803.9 294.364v5.376M813.98 292.258v8.543M813.98 300.79l-.576 1.633M813.406 302.43l-.48.48M812.926 302.91l-1.056.577M811.873 303.484h-1.632M810.233 303.484l-1.056-.576M813.98 293.884l-1.056-1.056M812.926 292.83l-1.056-.575M811.873 292.258h-1.632M810.233 292.258l-1.056.576M809.18 292.83l-1.056 1.057M808.126 293.884l-.576 1.632M807.553 295.51v1.057M807.553 296.578l.576 1.535M808.126 298.11l1.056 1.057M809.18 299.164l1.056.576M810.233 299.737h1.632M811.873 299.737l1.056-.576M812.926 299.164l1.056-1.056M818.206 291.191v-.48M818.206 290.711l.576-1.056M818.78 289.658l.48-.576M819.26 289.084l1.055-.48M820.313 288.604h2.112M822.433 288.604l1.152.48M823.58 289.084l.48.576M824.06 289.658l.575 1.056M824.633 290.711v1.056M824.633 291.778l-.576 1.056M824.06 292.83l-1.057 1.537M823.006 294.364l-5.28 5.376M817.726 299.737h7.392M833.66 288.604l-5.377 7.392M828.286 295.99h7.968M833.66 288.604v11.136"/></g><path stroke="#ff7f4f" stroke-width="3.839904" d="M750.141 333.723h27.84"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="m798.047 331.71-1.056-1.056M796.993 330.657l-1.056-.576M795.927 330.07h-1.632M794.3 330.07l-1.056.576M793.247 330.657l-1.056 1.056M792.194 331.71l-.576 1.536M791.607 333.243v1.056M791.607 334.297l.576 1.632M792.194 335.937l1.056 1.056M793.247 336.99l1.056.576M794.3 337.563h1.632M795.927 337.563l1.056-.576M796.993 336.99l1.056-1.056M802.847 328.443l1.056-.48M803.9 327.963l1.536-1.632M805.433 326.337v11.231M812.353 329.017v-.576M812.353 328.443l.576-1.056M812.926 327.39l.48-.48M813.406 326.91l1.056-.576M814.46 326.337h2.208M816.673 326.337l1.056.576M817.726 326.91l.48.48M818.206 327.39l.576 1.056M818.78 328.443v1.152M818.78 329.59l-.576 1.056M818.206 330.657l-1.056 1.536M817.153 332.19l-5.28 5.376M811.873 337.563h7.392"/></g><path stroke="#20b2aa" stroke-width="3.839904" d="M750.141 371.549h27.84"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="M792.194 367.896v7.392M792.194 370.016l1.535-1.632M793.727 368.376l1.056-.48M794.78 367.896h1.632M796.407 367.896l1.056.48M797.473 368.376l.576 1.632M798.047 370.016v5.28M801.687 371.069h6.431M808.126 371.069v-1.056M808.126 370.016l-.576-1.056M807.553 368.949l-.48-.576M807.073 368.376l-1.056-.48M806.007 367.896h-1.632M804.38 367.896l-1.056.48M803.327 368.376l-1.056 1.056M802.273 369.429l-.576 1.632M801.687 371.069v1.056M801.687 372.122l.576 1.632M802.273 373.749l1.056 1.056M803.327 374.816l1.056.48M804.38 375.296h1.632M806.007 375.296l1.055-.48M807.073 374.816l1.056-1.056M811.873 366.842v-.576M811.873 366.27l.48-1.057M812.353 365.216l.576-.48M812.926 364.736l1.056-.576M813.98 364.15h2.112M816.086 364.15l1.056.575M817.153 364.736l.576.48M817.726 365.216l.48 1.056M818.206 366.27v1.055M818.206 367.322l-.48 1.056M817.726 368.376l-1.056 1.632M816.673 370.016l-5.376 5.28M811.286 375.296h7.488M825.113 364.15l-1.536.575M823.58 364.736l-1.153 1.536M822.433 366.27l-.48 2.687M821.953 368.949v1.632M821.953 370.589l.48 2.592M822.433 373.176l1.152 1.632M823.58 374.816l1.535.48M825.113 375.296h1.056M826.166 375.296l1.632-.48M827.806 374.816l1.056-1.632M828.86 373.176l.48-2.592M829.34 370.589v-1.632M829.34 368.949l-.48-2.688M828.86 366.27l-1.057-1.537M827.806 364.736l-1.632-.576M826.166 364.15h-1.056"/></g><path stroke="#a9a9a9" stroke-width="3.839904" d="M750.141 409.375h27.84"/><g stroke="#fff"><g stroke-width="3.6"><path stroke-width=".479988" d="M792.194 401.975v11.136M792.194 407.828l1.535-1.632M793.727 406.201l1.056-.48M794.78 405.721h1.632M796.407 405.721l1.056.48M797.473 406.201l.576 1.632M798.047 407.828v5.28M801.687 408.895h6.431M808.126 408.895v-1.056M808.126 407.828l-.576-1.056M807.553 406.775l-.48-.576M807.073 406.201l-1.056-.48M806.007 405.721h-1.632M804.38 405.721l-1.056.48M803.327 406.201l-1.056 1.056M802.273 407.255l-.576 1.632M801.687 408.895v1.056M801.687 409.948l.576 1.632M802.273 411.575l1.056 1.056M803.327 412.628l1.056.48M804.38 413.108h1.632M806.007 413.108l1.055-.48M807.073 412.628l1.056-1.056M812.353 401.975h5.856M818.206 401.975l-3.168 4.224M815.033 406.201h1.632M816.673 406.201l1.056.576M817.726 406.775l.48.48M818.206 407.255l.576 1.632M818.78 408.895v1.056M818.78 409.948l-.576 1.632M818.206 411.575l-1.056 1.056M817.153 412.628l-1.632.48M815.513 413.108h-1.536M813.98 413.108l-1.632-.48M812.353 412.628l-.48-.576M811.873 412.055l-.576-1.056"/></g><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M652.224 70.303v7.488M652.224 72.516l1.536-1.632M653.757 70.876l1.056-.575M654.81 70.303h1.632M656.45 70.303l1.056.576M657.504 70.876l.576 1.632M658.077 72.516v5.28M658.077 72.516l1.536-1.632M659.61 70.876l1.056-.575M660.677 70.303h1.632M662.303 70.303l1.056.576M663.357 70.876l.48 1.632M663.837 72.516v5.28M670.277 70.303l-1.056.576M669.21 70.876l-1.056 1.056M668.157 71.943l-.576 1.632M667.583 73.57v1.056M667.583 74.623l.576 1.536M668.157 76.156l1.056 1.056M669.21 77.223l1.056.576M670.277 77.796h1.632M671.903 77.796l1.056-.576M672.957 77.223l1.055-1.056M674.01 76.156l.48-1.536M674.49 74.623v-1.056M674.49 73.57l-.48-1.632M674.01 71.943l-1.056-1.056M672.957 70.876l-1.056-.575M671.903 70.303h-1.632M684.09 66.663V77.8M684.09 71.943l-1.056-1.056M683.036 70.876l-1.056-.575M681.983 70.303h-1.632M680.356 70.303l-1.056.576M679.29 70.876l-1.056 1.056M678.236 71.943l-.576 1.632M677.663 73.57v1.056M677.663 74.623l.576 1.536M678.236 76.156l1.056 1.056M679.29 77.223l1.056.576M680.356 77.796h1.632M681.983 77.796l1.056-.576M683.036 77.223l1.056-1.056M687.836 73.57h6.336M694.17 73.57v-1.056M694.17 72.516l-.48-1.056M693.69 71.463l-.577-.576M693.116 70.876l-1.056-.575M692.063 70.303h-1.632M690.436 70.303l-1.056.576M689.37 70.876l-1.057 1.056M688.316 71.943l-.48 1.632M687.836 73.57v1.056M687.836 74.623l.48 1.536M688.316 76.156l1.056 1.056M689.37 77.223l1.055.576M690.436 77.796h1.632M692.063 77.796l1.056-.576M693.116 77.223l1.056-1.056M697.916 66.663V77.8M715.489 66.663l-5.376 7.392M710.116 74.05h7.967M715.489 66.663V77.8M721.822 66.663h5.856M727.675 66.663l-3.168 4.224M724.515 70.876h1.536M726.049 70.876l1.151.576M727.195 71.463l.48.48M727.675 71.943l.576 1.632M728.248 73.57v1.056M728.248 74.623l-.576 1.536M727.675 76.156l-1.056 1.056M726.622 77.223l-1.632.576M724.995 77.796h-1.536M723.449 77.796l-1.632-.576M721.822 77.223l-.48-.48M721.342 76.743l-.576-1.056M734.595 66.663l-1.632.48M732.955 67.143l-1.056 1.632M731.902 68.77l-.48 2.688M731.422 71.463V73M731.422 72.996l.48 2.688M731.902 75.676l1.056 1.536M732.955 77.223l1.632.576M734.595 77.796h1.056M735.648 77.796l1.632-.576M737.275 77.223l1.056-1.536M738.328 75.676l.48-2.688M738.808 72.996V71.46M738.808 71.463l-.48-2.688M738.328 68.77l-1.056-1.632M737.275 67.143l-1.632-.48M735.648 66.663h-1.056M113.39 70.303v7.488M113.39 71.943l-1.057-1.056M112.333 70.876l-1.056-.575M111.277 70.303h-1.632M109.645 70.303l-1.055.576M108.59 70.876l-1.057 1.056M107.533 71.943l-.48 1.632M107.053 73.57v1.056M107.053 74.623l.48 1.536M107.533 76.156l1.056 1.056M108.59 77.223l1.055.576M109.645 77.796h1.633M111.277 77.796l1.056-.576M112.333 77.223l1.056-1.056M123.469 70.303v8.544M123.469 78.85l-.48 1.632M122.989 80.476l-.576.48M122.413 80.956l-1.056.576M121.357 81.543h-1.536M119.821 81.543l-1.152-.576M123.469 71.943l-1.056-1.056M122.413 70.876l-1.056-.575M121.357 70.303h-1.536M119.821 70.303l-1.152.576M118.669 70.876l-1.056 1.056M117.613 71.943l-.48 1.632M117.133 73.57v1.056M117.133 74.623l.48 1.536M117.613 76.156l1.056 1.056M118.669 77.223l1.152.576M119.821 77.796h1.536M121.357 77.796l1.056-.576M122.413 77.223l1.056-1.056M127.213 73.57h6.432M133.65 73.57v-1.056M133.65 72.516l-.576-1.056M133.069 71.463l-.576-.576M132.493 70.876l-1.056-.575M131.437 70.303H129.9M129.9 70.303l-1.055.576M128.845 70.876l-1.056 1.056M127.789 71.943l-.576 1.632M127.213 73.57v1.056M127.213 74.623l.576 1.536M127.789 76.156l1.056 1.056M128.845 77.223l1.056.576M129.9 77.796h1.537M131.437 77.796l1.055-.576M132.493 77.223l1.152-1.056M145.836 69.25v-.48M145.836 68.77l.48-1.056M146.316 67.717l.576-.576M146.89 67.143l1.056-.48M147.943 66.663h2.112M150.063 66.663l1.056.48M151.116 67.143l.576.576M151.69 67.717l.48 1.056M152.17 68.77v1.056M152.17 69.823l-.48 1.056M151.69 70.876l-1.056 1.632M150.636 72.516l-5.376 5.28M145.263 77.796h7.488M156.97 76.743l-.48.48M156.49 77.223l.48.576M156.97 77.796l.575-.576M157.543 77.223l-.576-.48M162.823 68.77l1.056-.576M163.89 68.197l1.631-1.536M165.516 66.663V77.8M173.489 68.77l1.056-.576M174.542 68.197l1.632-1.536M176.169 66.663V77.8M188.942 66.663h-5.376M183.569 66.663l-.48 4.8M183.089 71.463l.48-.576M183.569 70.876l1.632-.575M185.195 70.303h1.536M186.729 70.303l1.632.576M188.369 70.876l1.056 1.056M189.422 71.943l.576 1.632M189.995 73.57v1.056M189.995 74.623l-.576 1.536M189.422 76.156l-1.056 1.056M188.369 77.223l-1.632.576M186.729 77.796h-1.536M185.195 77.796l-1.632-.576M183.569 77.223l-.48-.48M183.089 76.743l-.576-1.056M200.555 66.663l-5.28 11.136M193.169 66.663h7.391M206.981 66.663l-1.631.48M205.355 67.143l-1.056 1.632M204.302 68.77l-.48 2.688M203.822 71.463V73M203.822 72.996l.48 2.688M204.302 75.676l1.056 1.536M205.355 77.223l1.632.576M206.981 77.796h1.056M208.048 77.796l1.632-.576M209.675 77.223l1.056-1.536M210.728 75.676l.48-2.688M211.208 72.996V71.46M211.208 71.463l-.48-2.688M210.728 68.77l-1.056-1.632M209.675 67.143l-1.632-.48M208.048 66.663h-1.056M220.808 66.663h-5.376M215.435 66.663l-.48 4.8M214.955 71.463l.48-.576M215.435 70.876l1.632-.575M217.061 70.303h1.632M218.701 70.303l1.536.576M220.234 70.876l1.056 1.056M221.288 71.943l.576 1.632M221.861 73.57v1.056M221.861 74.623l-.576 1.536M221.288 76.156l-1.056 1.056M220.234 77.223l-1.535.576M218.701 77.796h-1.632M217.061 77.796l-1.632-.576M215.435 77.223l-.48-.48M214.955 76.743l-.576-1.056M225.034 73.57h6.432M231.46 73.57v-1.056M231.46 72.516l-.575-1.056M230.888 71.463l-.48-.576M230.408 70.876l-1.152-.575M229.26 70.303h-1.535M227.728 70.303l-1.056.576M226.661 70.876l-1.056 1.056M225.608 71.943l-.576 1.632M225.034 73.57v1.056M225.034 74.623l.576 1.536M225.608 76.156l1.056 1.056M226.661 77.223l1.056.576M227.728 77.796h1.536M229.26 77.796l1.153-.576M230.408 77.223l1.056-1.056M241.54 70.303l-.575 1.632M240.967 71.943 239.911 73M239.914 72.996l-1.536.576M238.38 73.57h-.575M237.807 73.57l-1.632-.576M236.167 72.996l-1.056-1.056M235.114 71.943l-.48-1.632M234.634 70.303v-.48M234.634 69.823l.48-1.632M235.114 68.197l1.056-1.056M236.167 67.143l1.632-.48M237.807 66.663h.576M238.38 66.663l1.537.48M239.914 67.143l1.056 1.056M240.967 68.197l.576 2.112M241.54 70.303v2.688M241.54 72.996l-.575 2.688M240.967 75.676l-1.056 1.536M239.914 77.223l-1.536.576M238.38 77.796h-1.055M237.327 77.796l-1.632-.576M235.687 77.223l-.576-1.056M253.26 70.303l3.168 7.488M259.594 70.303l-3.168 7.488M256.42 77.796l-1.056 2.112M255.367 79.903l-1.056 1.056M254.314 80.956l-1.056.576M253.26 81.543h-.576M262.767 70.303v7.488M262.767 73.57l.576-1.632M263.34 71.943l1.056-1.056M264.393 70.876l1.056-.575M265.447 70.303h1.632M275.046 71.943l-.576-1.056M274.473 70.876l-1.536-.575M272.94 70.303h-1.632M271.3 70.303l-1.632.576M269.673 70.876l-.48 1.056M269.193 71.943l.48 1.056M269.673 72.996l1.056.576M270.727 73.57l2.687.48M273.42 74.05l1.056.576M274.473 74.623l.576 1.056M275.046 75.676v.48M275.046 76.156l-.576 1.056M274.473 77.223l-1.536.576M272.94 77.796h-1.632M271.3 77.796l-1.632-.576M269.673 77.223l-.48-1.056M367.204 80.583l-6.912 18.143M367.204 80.583l6.912 18.143M362.884 92.676h8.64M378.444 80.583v18.143M378.444 89.223l1.728-1.728M380.164 87.49l1.728-.865M381.897 86.623h2.592M384.484 86.623l1.728.864M386.217 87.49l1.728 1.727M387.937 89.223l.864 2.592M388.804 91.81v1.727M388.804 93.543l-.864 2.592M387.937 96.13l-1.728 1.727M386.217 97.862l-1.728.864M384.484 98.716h-2.592M381.897 98.716l-1.728-.864M380.164 97.862l-1.728-1.727M394.857 86.623v8.64M394.857 95.263l.864 2.591M395.723 97.862l1.728.864M397.443 98.716h2.592M400.043 98.716l1.728-.864M401.763 97.862l2.592-2.591M404.363 86.623v12.095M411.27 86.623v12.095M411.27 90.076l2.592-2.592M413.856 87.49l1.728-.865M415.59 86.623h2.592M418.176 86.623l1.728.864M419.91 87.49l.863 2.591M420.776 90.076v8.64M437.19 80.583v18.143M437.19 89.223l-1.729-1.728M435.456 87.49l-1.728-.865M433.736 86.623h-2.592M431.136 86.623l-1.728.864M429.416 87.49l-1.728 1.727M427.683 89.223l-.864 2.592M426.816 91.81v1.727M426.816 93.543l.864 2.592M427.683 96.13l1.728 1.727M429.416 97.862l1.728.864M431.136 98.716h2.592M433.736 98.716l1.728-.864M435.456 97.862l1.728-1.727M453.602 86.623v12.095M453.602 89.223l-1.728-1.728M451.882 87.49l-1.728-.865M450.149 86.623h-2.592M447.562 86.623l-1.728.864M445.829 87.49l-1.728 1.727M444.096 89.223l-.864 2.592M443.242 91.81v1.727M443.242 93.543l.864 2.592M444.096 96.13l1.728 1.727M445.829 97.862l1.728.864M447.562 98.716h2.592M450.149 98.716l1.728-.864M451.882 97.862l1.728-1.727M460.522 86.623v12.095M460.522 90.076l2.592-2.592M463.108 87.49l1.728-.865M464.842 86.623h2.592M467.428 86.623l1.728.864M469.162 87.49l.864 2.591M470.015 90.076v8.64M486.441 89.223l-1.728-1.728M484.708 87.49l-1.728-.865M482.975 86.623h-2.592M480.388 86.623l-1.728.864M478.655 87.49l-1.728 1.727M476.935 89.223l-.864 2.592M476.068 91.81v1.727M476.068 93.543l.864 2.592M476.935 96.13l1.728 1.727M478.655 97.862l1.728.864M480.388 98.716h2.592M482.975 98.716l1.728-.864M484.708 97.862l1.728-1.727M491.614 91.81h10.368M501.987 91.81V90.08M501.987 90.076l-.864-1.728M501.12 88.356l-.863-.864M500.254 87.49l-1.728-.865M498.534 86.623h-2.592M495.934 86.623l-1.728.864M494.214 87.49l-1.728 1.727M492.481 89.223l-.864 2.592M491.614 91.81v1.727M491.614 93.543l.864 2.592M492.481 96.13l1.728 1.727M494.214 97.862l1.728.864M495.934 98.716h2.592M498.534 98.716l1.728-.864M500.254 97.862l1.728-1.727"/></g><g stroke-width="14.4"><path stroke-width="1.919952" d="M390.057 791.728v13.92M390.057 795.76l2.976-3.072M393.03 792.688l2.016-.96M395.043 791.728h2.976M398.017 791.728l2.016.96M400.043 792.688l.96 3.072M401.003 795.76v9.887M401.003 795.76l2.976-3.072M403.977 792.688l2.016-.96M405.99 791.728h2.976M408.963 791.728l2.016.96M410.976 792.688l.96 3.072M411.936 795.76v9.887M435.936 780.784l-17.952 31.871M441.896 784.72v20.927M441.896 784.72l7.967 20.927M457.829 784.72l-7.968 20.927M457.829 784.72v20.927M470.788 802l-2.208.671M468.575 802.672l-2.304 1.535M466.282 804.207l-1.44 2.208M464.842 806.415l-.768 2.305M464.068 808.72v2.207M464.068 810.927l.768 2.209M464.842 813.135l1.44 2.304M466.282 815.44l2.304 1.44M468.575 816.88l2.208.767M470.788 817.647h2.208M473.002 817.647l2.303-.768M475.295 816.88l2.208-1.44M477.508 815.44l1.536-2.304M479.041 813.135l.672-2.208M479.721 810.927v-2.207M479.721 808.72l-.672-2.305M479.041 806.415l-1.536-2.207M477.508 804.207l-2.208-1.535M475.295 802.672 472.99 802M473.002 802h-2.208M471.562 808.72l-.768.671M470.788 809.391v.769M470.788 810.16l.768.767M471.562 810.927h.768M472.322 810.927l.672-.767M473.002 810.16v-.769M473.002 809.391l-.672-.671M472.322 808.72h-.768M471.562 809.391v.769M471.562 810.16h.768M472.322 810.16v-.769M472.322 809.391h-.768"/></g><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M129.613 734.417h604.785M734.395 734.417V129.632M734.395 129.635H129.61M129.613 129.635V734.42M169.93 734.417v-5.951M210.248 734.417v-5.951M250.567 734.417v-5.951M290.886 734.417v-5.951M331.205 734.417v-12M371.524 734.417v-5.951M411.843 734.417v-5.951M452.162 734.417v-5.951M492.481 734.417v-5.951M532.8 734.417v-12M573.119 734.417v-5.951M613.438 734.417v-5.951M653.757 734.417v-5.951M694.076 734.417v-5.951M734.395 734.417v-12M169.93 135.582v-5.952M210.248 135.582v-5.952M250.567 135.582v-5.952M290.886 135.582v-5.952M331.205 141.635v-12M371.524 135.582v-5.952M411.843 135.582v-5.952M452.162 135.582v-5.952M492.481 135.582v-5.952M532.8 141.635v-12M573.119 135.582v-5.952M613.438 135.582v-5.952M653.757 135.582v-5.952M694.076 135.582v-5.952M734.395 141.635v-12M318.445 748.817l-2.4.768M316.045 749.585l-1.536 2.4M314.499 751.985l-.864 3.936M313.645 755.92v2.4M313.645 758.32l.864 4.032M314.499 762.353l1.536 2.4M316.045 764.752l2.4.769M318.445 765.52h1.632M320.072 765.52l2.4-.768M322.472 764.752l1.536-2.4M324.005 762.353l.864-4.032M324.872 758.32v-2.4M324.872 755.92l-.864-3.935M324.005 751.985l-1.536-2.4M322.472 749.585l-2.4-.768M320.072 748.817h-1.632M331.205 763.889l-.768.863M330.445 764.752l.768.769M331.205 765.52l.768-.768M331.978 764.752l-.768-.863M347.138 748.817h-7.968M339.178 748.817l-.768 7.104M338.405 755.92l.768-.768M339.178 755.153l2.4-.768M341.578 754.385h2.4M343.978 754.385l2.4.767M346.378 755.153l1.536 1.632M347.911 756.785l.864 2.4M348.778 759.185v1.535M348.778 760.72l-.864 2.4M347.911 763.12l-1.536 1.632M346.378 764.752l-2.4.769M343.978 765.52h-2.4M341.578 765.52l-2.4-.768M339.178 764.752l-.768-.863M338.405 763.889l-.864-1.537M529.64 751.985l1.536-.864M531.173 751.12l2.4-2.303M533.573 748.817v16.703M719.235 751.985l1.632-.864M720.862 751.12l2.4-2.303M723.262 748.817v16.703M734.395 763.889l-.768.863M733.635 764.752l.768.769M734.395 765.52l.768-.768M735.168 764.752l-.768-.863M750.328 748.817h-7.968M742.368 748.817l-.768 7.104M741.595 755.92l.768-.768M742.368 755.153l2.4-.768M744.768 754.385h2.4M747.168 754.385l2.4.767M749.568 755.153l1.536 1.632M751.101 756.785l.864 2.4M751.968 759.185v1.535M751.968 760.72l-.864 2.4M751.101 763.12l-1.536 1.632M749.568 764.752l-2.4.769M747.168 765.52h-2.4M744.768 765.52l-2.4-.768M742.368 764.752l-.768-.863M741.595 763.889l-.864-1.537M129.613 717.807h5.951M129.613 606.836h12M129.613 495.866h5.951M129.613 384.895h12M129.613 273.911h5.951M129.613 162.94h12M728.448 717.807h5.952M722.395 606.836h12M728.448 495.866h5.952M722.395 384.895h12M728.448 273.911h5.952M722.395 162.94h12M77.966 607.41h14.4M105.901 597.81l-7.968 11.136M97.934 608.943h11.903M105.901 597.81v16.8M77.966 385.469h14.4M98.702 379.895v-.864M98.702 379.029l.767-1.536M99.47 377.495l.864-.767M100.333 376.736l1.536-.864M101.87 375.869h3.264M105.133 375.869l1.536.864M106.67 376.736l.768.767M107.437 377.495l.864 1.536M108.301 379.029v1.632M108.301 380.669l-.864 1.632M107.437 382.295l-1.536 2.4M105.901 384.695l-7.968 7.968M97.934 392.668h11.135M102.733 153.914l-2.4.864M100.333 154.781l-1.631 2.4M98.702 157.181l-.769 3.936M97.934 161.114v2.4M97.934 163.514l.768 4.032M98.702 167.554l1.631 2.304M100.333 169.86l2.4.865M102.733 170.714h1.536M104.27 170.714l2.4-.864M106.67 169.86l1.632-2.303M108.301 167.554l.768-4.032M109.07 163.514v-2.4M109.07 161.114l-.768-3.936M108.301 157.181l-1.632-2.4M106.67 154.781l-2.4-.864M104.27 153.914h-1.536"/></g><g stroke-width="14.4"><path stroke-width="1.919952" d="M8.272 568.05h20.927M15.184 556.144l1.056 2.016M16.24 558.171l2.016 1.92M18.256 560.09l2.975 1.057M21.231 561.144h1.92M23.151 561.144l3.072-1.056M26.223 560.09l1.92-1.919M28.143 558.171l1.057-2.016M29.2 556.144v-2.976M29.2 553.171l-1.057-2.016M28.143 551.158l-1.92-2.016M26.223 549.145l-3.071-.96M23.151 548.185h-1.92M21.231 548.185l-2.975.96M18.256 549.145l-2.017 2.015M16.24 551.158l-1.057 2.016M15.184 553.171v2.976M15.184 530.225h16.031M31.215 530.225l2.976.96M34.191 531.185l.96 1.056M35.151 532.252l.96 1.92M36.111 534.172v3.072M36.111 537.238l-.96 1.92M18.256 530.225l-2.017 2.016M16.24 532.252l-1.057 1.92M15.184 534.172v3.072M15.184 537.238l1.056 1.92M16.24 539.158l2.016 2.016M18.256 541.171l2.975.96M21.231 542.131h1.92M23.151 542.131l3.072-.96M26.223 541.171l1.92-2.016M28.143 539.158l1.057-1.92M29.2 537.238v-3.072M29.2 534.172l-1.057-1.92M28.143 532.252l-1.92-2.016M15.184 506.332h14.015M19.216 506.332l-2.976-3.072M16.24 503.252l-1.057-1.92M15.184 501.332v-2.976M15.184 498.36l1.056-2.017M16.24 496.346l2.976-1.056M19.216 495.293h9.983M19.216 495.293l-2.976-2.976M16.24 492.306l-1.057-2.016M15.184 490.293v-2.976M15.184 487.32l1.056-1.92M16.24 485.4l2.976-1.057M19.216 484.346h9.983M15.184 465.427h14.015M18.256 465.427l-2.017 2.016M16.24 467.453l-1.057 1.92M15.184 469.373v3.072M15.184 472.44l1.056 1.92M16.24 474.36l2.016 2.016M18.256 476.373l2.975.96M21.231 477.333h1.92M23.151 477.333l3.072-.96M26.223 476.373l1.92-2.016M28.143 474.36l1.057-1.92M29.2 472.44v-3.072M29.2 469.373l-1.057-1.92M28.143 467.453l-1.92-2.016M18.256 447.48l-2.017.96M16.24 448.44l-1.057 2.976M15.184 451.414v3.072M15.184 454.494l1.056 2.975M16.24 457.467l2.016.96M18.256 458.427l1.92-.96M20.175 457.467l1.056-2.016M21.231 455.454l.96-4.992M22.191 450.454l.96-2.016M23.151 448.44l2.017-.96M25.167 447.48h1.056M26.223 447.48l1.92.96M28.143 448.44l1.057 2.976M29.2 451.414v3.072M29.2 454.494l-1.057 2.975M28.143 457.467l-1.92.96M18.256 430.494l-2.017 1.056M16.24 431.547l-1.057 2.976M15.184 434.52v2.977M15.184 437.494l1.056 2.976M16.24 440.467l2.016 1.056M18.256 441.534l1.92-1.056M20.175 440.467l1.056-2.016M21.231 438.454l.96-4.896M22.191 433.56l.96-2.015M23.151 431.547l2.017-1.055M25.167 430.494h1.056M26.223 430.494l1.92 1.056M28.143 431.547l1.057 2.976M29.2 434.52v2.977M29.2 437.494l-1.057 2.976M28.143 440.467l-1.92 1.056M8.272 401.588v2.016M8.272 403.615l.96 2.016M9.232 405.628l2.975.96M12.208 406.588h16.991M15.184 409.561v-6.911M15.184 395.642h14.015M21.231 395.642l-2.975-.96M18.256 394.682l-2.017-2.016M16.24 392.668l-1.057-2.015M15.184 390.655v-2.976M15.184 371.736h14.015M18.256 371.736l-2.017 1.92M16.24 373.656l-1.057 2.016M15.184 375.669v2.976M15.184 378.655l1.056 2.016M16.24 380.669l2.016 2.016M18.256 382.682l2.975.96M21.231 383.642h1.92M23.151 383.642l3.072-.96M26.223 382.682l1.92-2.016M28.143 380.669l1.057-2.016M29.2 378.655v-2.975M29.2 375.669l-1.057-2.016M28.143 373.656l-1.92-1.92M18.256 352.736l-2.017 2.016M16.24 354.75l-1.057 2.015M15.184 356.763v2.976M15.184 359.736l1.056 2.016M16.24 361.75l2.016 2.015M18.256 363.776l2.975.96M21.231 364.736h1.92M23.151 364.736l3.072-.96M26.223 363.776l1.92-2.016M28.143 361.75l1.057-2.017M29.2 359.736v-2.976M29.2 356.763l-1.057-2.016M28.143 354.75l-1.92-2.017M8.272 344.763h16.895M25.167 344.763l2.976-.96M28.143 343.803l1.057-2.016M29.2 341.79v-2.016M15.184 347.83v-7.008M8.272 334.87l.96-1.056M9.232 333.817l-.96-.96M8.272 332.857l-1.056.96M7.216 333.817l1.056 1.056M15.184 333.817h14.015M15.184 321.817l1.056 2.016M16.24 323.83l2.016 2.016M18.256 325.857l2.975.96M21.231 326.817h1.92M23.151 326.817l3.072-.96M26.223 325.857l1.92-2.016M28.143 323.83l1.057-2.016M29.2 321.817v-2.976M29.2 318.844l-1.057-1.92M28.143 316.924l-1.92-2.016M26.223 314.91l-3.071-1.056M23.151 313.857h-1.92M21.231 313.857l-2.975 1.056M18.256 314.91l-2.017 2.016M16.24 316.924l-1.057 1.92M15.184 318.844v2.976M15.184 306.937h14.015M19.216 306.937l-2.976-2.976M16.24 303.964l-1.057-2.016M15.184 301.95v-2.975M15.184 298.977l1.056-2.015M16.24 296.95l2.976-.96M19.216 295.99h9.983"/></g></g><g stroke="gold"><g stroke-width="28.8"><path stroke-width="3.839904" d="M734.395 163.14v.097M734.395 163.234v.096M734.395 163.328v.096M734.395 163.42v.097M734.395 163.514v.096M734.395 163.62v.097M734.395 163.714v.096M734.395 163.808v.096M734.395 163.9v.097M734.395 163.994v.096M734.395 164.1v.097M734.395 164.194v.096M734.395 164.287v.096M734.395 164.38v.097M734.395 164.474v.096M734.395 164.58v.193M734.395 164.767v.096M734.395 164.86v.097M734.395 164.954v.096M734.395 165.06v.097M734.395 165.154v.096M734.395 165.247v.096M734.395 165.34v.097M734.395 165.434v.288M734.395 165.727v.288M734.395 166.02v.097M734.395 166.114v.288M734.395 166.394v.288M734.395 166.687v.192M734.395 166.874v.193M734.395 167.074v.192M734.395 167.26v.097M734.395 167.354v.383M734.395 167.74v.289M734.395 168.034v.193M734.395 168.22v.289M734.395 168.514h-.096M734.302 168.514v.288M734.302 168.794v.19M734.302 168.994v.288M734.302 169.274v.193M734.302 169.474v.192M734.302 169.66v.193M734.302 169.86v.097M734.302 169.954v.192M734.302 170.14v.194M734.302 170.34v.095M734.302 170.434v.193M734.302 170.62v.097M734.302 170.714v.095M734.302 170.82v.097M734.302 170.914v.192M734.302 171.1v.097M734.302 171.194v.097M734.302 171.3v.095M734.302 171.394v.096M734.302 171.487v.096M734.302 171.58v.193M734.302 171.78v.097M734.302 171.874v.096M734.302 171.967v.096M734.302 172.06v.097M734.302 172.154v.096M734.302 172.26v.097M734.302 172.354v.096M734.302 172.447v.096M734.302 172.54v.097M734.302 172.634v.096M734.302 172.74v.097M734.302 172.834v.096M734.302 172.927v.096M734.302 173.02v.097M734.302 173.114v.096M734.302 173.22v.097M734.302 173.314v.096M734.302 173.407v.096M734.302 173.5v.097M734.302 173.594v.096M734.302 173.7v.097M734.302 173.794v.096M734.302 173.887v.096M734.302 173.98v.097M734.302 174.074v.096M734.302 174.18v.097M734.302 174.274v.096M734.302 174.367v.096M734.302 174.46v.097M734.302 174.554v.096M734.302 174.66l-.096.097M734.208 174.754v.096M734.208 174.847v.096M734.208 174.94v.097M734.208 175.034v.096M734.208 175.14v.097M734.208 175.234v.096M734.208 175.327v.095M734.208 175.42v.098M734.208 175.514v.096M734.208 175.62v.095M734.208 175.714v.096M734.208 175.807v.098M734.208 175.9v.095M734.208 175.994v.096M734.208 176.087v.098M734.208 176.194h-.096M734.115 176.194v.097M734.115 176.287v.095M734.115 176.38v.097M734.115 176.474v.097M734.115 176.58v.095M734.115 176.674v.096M734.115 176.767h-.096M734.008 176.767v.098M734.008 176.86v.097M734.008 176.954v.096M734.008 177.047v.096M734.008 177.154l-.096.096M733.915 177.247v.096M733.915 177.34v.096M733.915 177.434h-.096M733.822 177.434v.096M733.822 177.527v.096M733.822 177.634l-.096.096M733.728 177.727v.096M733.728 177.82h-.097M733.635 177.82v.096M733.635 177.914v.096M733.635 178.007h-.096M733.528 178.007v.096M733.528 178.114h-.094M733.435 178.114v.096M733.435 178.207h-.096M733.342 178.207v.096M733.342 178.3h-.098M733.248 178.3v.096M733.248 178.394h-.096M733.155 178.394l-.096.096M733.048 178.487h-.096M732.955 178.487v.096M732.955 178.594h-.096M732.862 178.594h-.096M732.768 178.594h-.096M732.675 178.594v.096M732.675 178.687h-.096M732.568 178.687h-.096M732.475 178.687h-.096M732.382 178.687v.096M732.382 178.78h-.096M732.288 178.78h-.096M732.195 178.78h-.096M732.088 178.78v.095M732.088 178.874h-.096M731.995 178.874h-.096M731.902 178.874h-.096M731.808 178.874h-.096M731.715 178.874l-.096.096M731.608 178.967h-.096M731.515 178.967h-.096M731.422 178.967h-.096M731.328 178.967h-.096M731.235 178.967h-.096M731.128 178.967h-.096M731.035 178.967l-.096.097M730.942 179.06h-.096M730.848 179.06h-.096M730.755 179.06h-.096M730.648 179.06h-.096M730.555 179.06h-.096M730.462 179.06h-.096M730.368 179.06h-.096M730.275 179.06h-.096M730.168 179.06l-.096.096M730.075 179.167h-.096M729.982 179.167h-.096M729.888 179.167h-.096M729.795 179.167h-.096M729.688 179.167h-.096M729.595 179.167h-.096M729.502 179.167h-.095M729.408 179.167h-.097M729.315 179.167h-.096M729.208 179.167h-.094M729.115 179.167h-.097M729.022 179.167l-.098.096M728.928 179.26h-.094M728.835 179.26h-.096M728.742 179.26h-.098M728.635 179.26h-.096M728.542 179.26h-.095M728.448 179.26h-.097M728.355 179.26h-.097M728.248 179.26h-.094M728.155 179.26h-.096M728.062 179.26h-.098M727.968 179.26h-.096M727.875 179.26h-.096M727.782 179.26h-.096M727.675 179.26h-.096M727.582 179.26h-.192M727.395 179.26l-.096.096M727.288 179.354h-.096M727.195 179.354h-.096M727.102 179.354h-.096M727.008 179.354h-.192M726.808 179.354h-.096M726.715 179.354h-.096M726.622 179.354h-.096M726.529 179.354h-.192M726.329 179.354h-.096M726.235 179.354h-.096M726.142 179.354h-.192M725.955 179.354h-.096M725.849 179.354h-.192M725.662 179.354h-.096M725.569 179.354h-.192M725.369 179.354h-.096M725.275 179.354l-.192.096M725.089 179.46h-.096M724.995 179.46h-.192M724.795 179.46h-.096M724.702 179.46h-.192M724.515 179.46h-.096M724.409 179.46h-.192M724.222 179.46h-.192M724.035 179.46h-.096M723.929 179.46h-.192M723.742 179.46h-.192M723.555 179.46h-.193M723.355 179.46h-.094M723.262 179.46h-.193M723.075 179.46h-.192M722.875 179.46h-.19M722.689 179.46h-.194M722.489 179.46h-.192M722.302 179.46h-.192M722.115 179.46l-.192.096M721.915 179.554h-.192M721.729 179.554h-.194M721.529 179.554h-.192M721.342 179.554h-.19M721.155 179.554h-.193M720.955 179.554h-.192M720.769 179.554h-.288M720.475 179.554h-.192M720.289 179.554h-.194M720.089 179.554h-.191M719.902 179.554h-.288M719.609 179.554h-.194M719.422 179.554h-.288M719.129 179.554h-.192M718.942 179.554h-.288M718.649 179.554h-.192M718.462 179.554h-.288M718.169 179.554h-.194M717.982 179.554h-.288M717.689 179.554h-.192M717.502 179.554h-.288M717.209 179.554h-.288M716.929 179.554l-.288.096M716.635 179.647h-.288M716.355 179.647h-.192M716.155 179.647h-.288M715.875 179.647h-.288M715.582 179.647h-.288M715.289 179.647H715M715.009 179.647h-.288M714.715 179.647h-.288M714.435 179.647h-.384M714.049 179.647h-.288M713.755 179.647h-.288M713.475 179.647h-.287M713.182 179.647h-.384M712.796 179.647h-.288M712.516 179.647h-.384M712.129 179.647h-.288M711.836 179.647h-.384M711.449 179.647h-.288M711.169 179.647h-.384M710.782 179.647h-.384M710.396 179.647h-.288M710.116 179.647h-.384M709.729 179.647h-.384M709.342 179.647h-.384M708.956 179.647h-.384M708.569 179.647h-.384M708.196 179.647h-.384M707.809 179.647l-.384.096M707.422 179.74h-.384M707.036 179.74h-.384M706.649 179.74h-.48M706.169 179.74h-.384M705.796 179.74h-.384M705.409 179.74h-.48M704.929 179.74h-.192M704.729 179.74h-.192M704.542 179.74h-.48M704.062 179.74h-.48M703.582 179.74h-.384M703.196 179.74h-.48M702.716 179.74h-.48M702.236 179.74h-.48M701.756 179.74h-.48M701.276 179.74h-.48M700.796 179.74h-.479M700.316 179.74h-.481M699.836 179.74h-.479M699.356 179.74h-.576M698.783 179.74h-.482M698.303 179.74h-.48M697.823 179.74h-.576M697.25 179.74h-.577M696.676 179.74h-.481M696.196 179.74h-.576M695.61 179.74h-.577M695.036 179.74h-.576M694.463 179.74h-.576M693.89 179.74h-.577M693.316 179.74h-.576M692.743 179.74h-.576M692.156 179.74h-.576M691.583 179.74h-.672M690.916 179.74h-.576M690.343 179.74h-.672M689.663 179.74h-.576M689.09 179.74l-.673.096M688.423 179.834h-.672M687.743 179.834h-.672M687.076 179.834h-.672M686.396 179.834h-.672M685.73 179.834h-.672M685.063 179.834h-.672M684.383 179.834h-.672M683.716 179.834h-.768M682.943 179.834h-.672M682.276 179.834h-.768M681.503 179.834h-.672M680.836 179.834h-.384M680.45 179.834h-.384M680.063 179.834h-.768M679.303 179.834h-.768M678.53 179.834h-.768M677.756 179.834h-.768M676.996 179.834h-.864M676.13 179.834h-.768M675.356 179.834h-.864M674.503 179.834h-.768M673.73 179.834h-.864M672.863 179.834H672M671.997 179.834h-.864M671.143 179.834h-.864M670.277 179.834h-.864M669.41 179.834h-.864M668.543 179.834h-.96M667.583 179.834h-.864M666.717 179.834h-.96M665.757 179.834h-.864M664.903 179.834h-.96M663.943 179.834h-.96M662.983 179.834h-.96M662.023 179.834h-1.056M660.957 179.834h-.96M659.997 179.834h-.96M659.037 179.834h-1.056M657.984 179.834h-1.056M656.93 179.834h-.96M655.97 179.834h-1.056M654.917 179.834h-1.152M653.757 179.834h-1.056M652.704 179.834l-1.056.096M651.65 179.94h-1.152M650.504 179.94h-1.056M649.45 179.94h-1.153M648.29 179.94h-1.152M647.144 179.94h-1.152M645.984 179.94h-1.152M644.837 179.94h-1.248M643.584 179.94h-1.152M642.437 179.94h-1.248M641.184 179.94h-1.248M639.944 179.94h-1.248M638.69 179.94h-.575M638.117 179.94h-.67M637.45 179.94h-1.247M636.197 179.94h-1.248M634.944 179.94H633.6M633.597 179.94h-1.342M632.264 179.94h-.672M631.584 179.94h-.673M630.918 179.94h-1.343M629.57 179.94h-1.344M628.224 179.94h-1.344M626.891 179.94h-1.44M625.451 179.94h-.672M624.771 179.94h-.672M624.104 179.94h-1.44M622.664 179.94h-1.44M621.224 179.94h-1.535M619.691 179.94h-1.44M618.251 179.94h-.768M617.478 179.94h-1.44M616.038 179.94h-.768M615.265 179.94h-.768M614.491 179.94h-.768M613.731 179.94h-1.536M612.198 179.94h-1.536M610.651 179.94h-.864M609.798 179.94h-1.536M608.251 179.94h-1.631M606.625 179.94h-.768M605.852 179.94h-.864M604.998 179.94h-.768M604.225 179.94h-.864M603.358 179.94h-.864M602.492 179.94h-1.632M600.865 179.94h-1.632M599.238 179.94h-.864M598.372 179.94l-.864.096M597.505 180.034h-.864M596.638 180.034h-.864M595.772 180.034h-1.73M594.052 180.034h-1.824M592.225 180.034h-.864M591.359 180.034h-.864M590.492 180.034h-.96M589.532 180.034h-.864M588.679 180.034h-1.824M586.852 180.034h-1.824M585.025 180.034h-.958M584.065 180.034h-.864M583.199 180.034h-1.922M581.279 180.034h-.962M580.319 180.034h-.96M579.359 180.034h-.959M578.399 180.034h-.96M577.439 180.034h-1.921M575.519 180.034h-.961M574.559 180.034h-.959M573.599 180.034h-2.016M571.586 180.034h-.962M570.626 180.034h-1.056M569.572 180.034h-2.016M567.56 180.034h-.96M566.6 180.034h-1.057M565.533 180.034h-1.056M564.48 180.034h-.96M563.52 180.034h-2.113M561.413 180.034h-1.056M560.36 180.034h-1.057M559.293 180.034h-1.056M558.24 180.034h-1.057M557.186 180.034h-1.056M556.133 180.034h-1.056M555.08 180.034h-2.208M552.866 180.034l-1.056.096M551.813 180.127h-1.152M550.653 180.127h-1.056M549.6 180.127h-1.152M548.453 180.127h-1.056M547.4 180.127h-1.152M546.24 180.127h-1.152M545.093 180.127h-1.056M544.04 180.127h-2.304M541.733 180.127h-1.152M540.573 180.127h-1.152M539.427 180.127h-1.152M538.28 180.127h-1.152M537.12 180.127h-1.152M535.973 180.127h-1.248M534.72 180.127h-1.152M533.573 180.127h-1.152M532.413 180.127h-1.248M531.173 180.127h-1.152M530.013 180.127h-1.248M528.773 180.127h-1.152M527.613 180.127h-1.247M526.374 180.127h-1.248M525.12 180.127h-1.152M523.974 180.127h-1.248M522.72 180.127h-1.248M521.48 180.127h-1.248M520.227 180.127h-1.248M518.974 180.127h-1.248M517.734 180.127l-1.248.096M516.48 180.22h-1.248M515.24 180.22h-1.344M513.894 180.22h-1.248M512.64 180.22h-1.247M511.4 180.22h-1.343M510.054 180.22h-1.248M508.8 180.22h-1.343M507.454 180.22h-1.248M506.214 180.22h-1.344M504.867 180.22h-1.344M503.52 180.22h-1.343M502.174 180.22h-1.248M500.934 180.22h-1.345M499.588 180.22h-1.343M498.24 180.22h-1.344M496.894 180.22h-1.342M495.56 180.22h-1.44M494.121 180.22h-1.343M492.774 180.22h-1.345M491.428 180.22h-1.44M489.988 180.22h-1.343M488.641 180.22h-1.345M487.294 180.22l-1.44.096M485.855 180.314h-1.44M484.415 180.314h-1.344M483.081 180.314h-1.44M481.641 180.314h-1.44M480.201 180.314h-1.44M478.761 180.314h-1.44M477.321 180.314h-1.344M475.975 180.314h-1.536M474.441 180.314h-1.44M473.002 180.314h-1.44M471.562 180.314h-1.44M470.122 180.314h-1.44M468.682 180.314h-1.536M467.135 180.314h-1.44M465.695 180.314l-1.536.096M464.162 180.42h-1.44M462.722 180.42h-1.536M461.188 180.42h-1.44M459.749 180.42h-1.536M458.215 180.42h-1.536M456.682 180.42h-1.536M455.135 180.42H453.6M453.602 180.42h-1.536M452.069 180.42h-1.536M450.535 180.42H449M449.002 180.42h-1.536M447.455 180.42l-1.535.096M445.922 180.514h-1.536M444.389 180.514h-1.632M442.762 180.514h-1.536M441.216 180.514h-1.632M439.589 180.514h-1.536M438.056 180.514h-1.632M436.416 180.514h-1.632M434.79 180.514h-1.537M433.256 180.514l-1.632.096M431.616 180.607h-1.632M429.99 180.607h-1.633M428.363 180.607h-1.632M426.723 180.607h-1.632M425.096 180.607h-1.632M423.456 180.607h-1.632M421.83 180.607h-1.633M420.203 180.607l-1.728.096M418.47 180.7h-1.632M416.843 180.7h-1.632M415.203 180.7h-1.728M413.483 180.7h-1.632M411.843 180.7h-1.728M410.123 180.7h-1.632M408.483 180.7l-1.728.098M406.763 180.794h-1.728M405.03 180.794h-1.728M403.297 180.794h-1.728M401.577 180.794h-1.728M399.843 180.794l-1.728.096M398.123 180.9h-1.728M396.39 180.9h-1.728M394.657 180.9h-1.728M392.937 180.9h-1.728M391.204 180.9l-1.728.095M389.484 180.994h-1.824M387.657 180.994h-1.728M385.924 180.994h-1.728M384.204 180.994l-1.824.096M382.377 181.087h-1.824M380.55 181.087h-1.727M378.817 181.087h-1.824M377.004 181.087l-1.728.097M375.27 181.18h-1.823M373.444 181.18h-1.824M371.617 181.18h-1.824M369.804 181.18l-1.824.096M367.977 181.274h-1.823M366.15 181.274h-1.823M364.324 181.274l-1.824.096M362.498 181.38h-1.824M360.684 181.38h-1.824M358.858 181.38l-1.824.096M357.031 181.474h-1.921M355.111 181.474h-1.824M353.285 181.474l-1.823.096M351.458 181.567h-1.92M349.538 181.567h-1.824M347.725 181.567l-1.922.096M345.805 181.66h-1.823M343.978 181.66l-1.92.096M342.058 181.754h-1.921M340.138 181.754h-1.824M338.312 181.754l-1.92.096M336.392 181.86h-1.922M334.472 181.86l-1.919.096M332.552 181.954h-1.922M330.632 181.954l-1.92.096M328.712 182.047h-1.824M326.885 182.047l-1.92.096M324.965 182.14h-1.92M323.045 182.14l-2.016.096M321.032 182.234h-1.92M319.112 182.234l-1.92.096M317.192 182.34h-1.92M315.272 182.34l-1.92.096M313.352 182.434l-1.92.096M311.432 182.527h-2.016M309.419 182.527l-1.92.096M307.499 182.62h-1.92M305.579 182.62l-.96.096M304.62 182.714l-2.017.096M302.606 182.82h-1.92M300.686 182.82l-2.016.096M298.66 182.914h-.96M297.7 182.914l-1.92.096M295.78 183.007l-2.017.096M293.766 183.1l-1.92.096M291.846 183.194h-2.016M289.833 183.194l-1.92.096M287.913 183.3l-2.016.096M285.9 183.394l-2.016.097M283.886 183.487l-1.92.096M281.966 183.58l-2.016.095M279.94 183.674l-1.92.097M278.02 183.78l-2.016.096M276.006 183.874l-2.016.094M273.993 183.967l-1.92.096M272.073 184.06l-2.016.098M270.06 184.154l-2.016.094M268.047 184.26l-2.016.096M266.02 184.354l-1.92.097M264.1 184.447l-2.017.096M262.087 184.54l-.959.096M261.127 184.634l-2.016.192M259.114 184.834l-2.016.096M257.1 184.927l-1.92.096M255.18 185.02l-2.016.096M253.167 185.114l-.961.096M252.207 185.22l-2.015.192M250.18 185.407l-1.056.096M249.127 185.5l-1.92.096M247.207 185.594l-2.016.192M245.194 185.794l-2.016.096M243.18 185.887l-.96.096M242.22 185.98l-1.92.192M240.3 186.18l-2.015.192M238.287 186.367l-2.016.192M236.26 186.554l-1.92.192M234.34 186.754l-2.015.192M232.328 186.94l-1.92.192M230.408 187.14l-2.016.192M228.394 187.327l-.96.096M227.434 187.42l-1.92.288M225.514 187.714l-2.016.192M223.501 187.9l-1.92.288M221.581 188.194l-1.92.192M219.661 188.38l-1.057.192M218.608 188.58l-1.92.192M216.688 188.767l-1.44.288M215.248 189.06l-1.441.192M213.808 189.247l-.96.192M212.848 189.434l-1.92.384M210.928 189.82l-1.921.288M209.008 190.114l-1.92.384M207.088 190.5l-.96.288M206.128 190.78l-1.921.576M204.208 191.353l-1.92.768M202.288 192.127l-1.92.864M200.368 192.993l-1.824 1.248M198.542 194.233l-1.92 1.248M196.622 195.487l-.864 1.44M195.755 196.927l-1.92 1.824M193.835 198.753l-.96 1.344M192.875 200.1l-.864 1.248M192.009 201.34l-.48.768M191.529 202.113l-.48 1.344M191.049 203.46l-.864 1.342M190.182 204.793l-.48 1.537M189.702 206.34l-.96 1.92M188.742 208.26l-.672 1.248M188.075 209.5l-.384 1.152M187.689 210.66l-.48 1.342M187.209 211.993l-.48.961M186.729 212.953l-.288.96M186.449 213.913l-.384 1.344M186.062 215.26l-.48 1.056M185.582 216.313l-.192.672M185.382 216.993l-.288.864M185.102 217.86l-.288 1.054M184.809 218.913l-.384.961M184.422 219.873l-.192.673M184.235 220.54l-.288.575M183.942 221.113l-.096.576M183.849 221.686l-.192.673M183.662 222.366l-.192.672M183.462 223.033l-.192.48M183.275 223.513l-.096.672M183.182 224.193l-.288.672M182.889 224.86l-.192.67M182.702 225.526l-.096.481M182.609 226.02l-.192.766M182.409 226.78l-.288.769M182.129 227.553l-.096.478M182.022 228.033l-.192.576M181.835 228.606l-.096.864M181.742 229.473l-.384 1.152M181.355 230.62l-.192.767M181.169 231.392l-.192.864M180.969 232.246l-.288 1.056M180.689 233.312l-.192.864M180.489 234.166l-.288.96M180.209 235.126l-.192.864M180.009 235.992l-.192 1.056M179.822 237.046l-.288 1.152M179.529 238.206l-.288.96M179.249 239.166l-.192 1.056M179.049 240.219l-.288 1.44M178.769 241.659l-.384 1.248M178.382 242.912l-.192.96M178.182 243.872l-.192 1.536M177.996 245.405l-.48 2.016M177.516 247.419l-.48 2.112M177.036 249.525l-.384 1.536M176.649 251.072l-.288 1.056M176.369 252.125l-.192 1.632M176.169 253.752l-.384 3.36M175.782 257.112l-.864 4.704M174.929 261.818l-.96 6.24M173.969 268.058l-1.248 5.856M172.716 273.911l-.672 7.2M172.049 281.111l-1.44 10.08M170.61 291.191l-1.345 8.544M169.262 299.737l-.768 5.472M168.49 305.204l-.48 3.936M168.01 309.15l-.385 4.032M167.622 313.177l-.48 3.648M167.142 316.83l-.288 3.264M166.862 320.084l-.287 3.264M166.57 323.35l-.289 3.456M166.29 326.803l-.385 5.28M165.903 332.083l-.576 5.28M165.33 337.363l-.289 3.552M165.036 340.923l-.384 4.224M164.65 345.15l-.385 4.704M164.263 349.843l-.384 4.8M163.89 354.643l-.385 3.648M163.503 358.296l-.288 2.4M163.21 360.696l-.193 3.744M163.023 364.442l-.384 4.896M162.636 369.336l-.384 3.36M162.25 372.696l-.193 2.016M162.063 374.709l-.192 2.208M161.863 376.922l-.48 1.344M161.383 378.269l-.384 8.928M161.01 387.189h-.385M160.623 387.189h-.288M160.33 387.189h-.289M160.05 387.189h-.577M159.463 387.189h-.384M159.09 387.189h-.289M158.796 387.189h-.192M158.61 387.189h-.289M158.316 387.189h-.192M158.13 387.189h-.289M157.836 387.189h-.192M157.65 387.189h-.193M157.45 387.189h-.193M157.263 387.189h-.192M157.063 387.189h-.384M156.69 387.189h-.385M156.303 387.189h-.384M155.916 387.189h-.384M155.53 387.189h-.193M155.343 387.189h-.192M155.143 387.189h-.384M154.77 387.189h-.385M154.383 387.189h-.384M153.996 387.189h-.384M153.61 387.189h-.384M153.223 387.189h-.384M152.85 387.189h-.384M152.463 387.189h-.288M152.17 387.189h-.384M151.783 387.189h-.384M151.41 387.189h-.192M151.21 387.189h-.192M151.023 387.189h-.384M150.636 387.189h-.288M150.343 387.189h-.384M149.97 387.189h-.384M149.583 387.189h-.384M149.196 387.189h-.288M148.903 387.189h-.192M148.716 387.189h-.192M148.53 387.189h-.384M148.143 387.189h-.288M147.85 387.189h-.384M147.463 387.189h-.384M147.09 387.189h-.288M146.796 387.189h-.384M146.41 387.189h-.288M146.13 387.189h-.384M145.743 387.189h-.192M145.543 387.189h-.096M145.45 387.189h-.384M145.063 387.189h-.288M144.783 387.189h-.384M144.396 387.189h-.288M144.103 387.189h-.384M143.73 387.189h-.288M143.436 387.189h-.192M143.25 387.189h-.096M143.143 387.189h-.384M142.77 387.189h-.288M142.476 387.189h-.288M142.183 387.189h-.384M141.81 387.189h-.288M141.516 387.189h-.288M141.223 387.189h-.288M140.943 387.189h-.288M140.65 387.189h-.288M140.37 387.189h-.384M139.983 387.189h-.288M139.69 387.189h-.288M139.41 387.189h-.288M139.117 387.189h-.288M138.823 387.189h-.288M138.543 387.189h-.288M138.25 387.189h-.288M137.97 387.189h-.288M137.677 387.189h-.288M137.383 387.189h-.288M137.103 387.189h-.192M136.903 387.189h-.288M136.623 387.189h-.096M136.53 387.189h-.192M136.33 387.189h-.192M136.143 387.189h-.288M135.85 387.189h-.288M135.57 387.189h-.192M135.37 387.189h-.288M135.09 387.189h-.288M134.797 387.189h-.192M134.61 387.189h-.192M134.41 387.189h-.288M134.13 387.189h-.192M133.93 387.189h-.288M133.65 387.189h-.192M133.45 387.189h-.096M133.357 387.189h-.096M133.26 387.189h-.287M132.973 387.189h-.192M132.78 387.189h-.192M132.589 387.189h-.192M132.397 387.189h-.192M132.205 387.189h-.193M132.013 387.189h-.192M131.82 387.189h-.192M131.629 387.189h-.096M131.533 387.189h-.192M131.34 387.189h-.191M131.149 387.189h-.096M131.053 387.189h-.193M130.86 387.189h-.19M130.669 387.189h-.192M130.477 387.189h-.096M130.38 387.189h-.096M130.285 387.189h-.192M130.093 387.189h-.097M129.997 387.189h-.096M129.9 387.189h-.095M129.805 387.189h-.096M129.709 387.189h-.097"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M181.835 184.834v11.135M181.835 190.687l1.632-1.632M183.462 189.06l1.056-.48M184.529 188.58h1.536M186.062 188.58l1.152.48M187.209 189.06l.48 1.632M187.689 190.687v5.28M192.969 186.94l1.151-.48M194.128 186.46l1.536-1.632M195.662 184.834v11.135M302.792 162.368v11.135M302.792 168.22l1.632-1.631M304.42 166.594l1.055-.48M305.486 166.114h1.536M307.019 166.114l1.152.48M308.166 166.594l.48 1.632M308.646 168.22v5.28M313.925 164.474l1.152-.576M315.085 163.9l1.536-1.535M316.619 162.368v11.135M423.75 160.448v11.135M423.75 166.207l1.631-1.536M425.376 164.674l1.056-.576M426.443 164.1h1.536M427.976 164.1l1.152.577M429.123 164.674l.48 1.536M429.603 166.207v5.376M434.882 162.554l1.152-.576M436.042 161.98l1.536-1.535M437.576 160.448v11.135M544.706 159.968v11.135M544.706 165.727l1.632-1.536M546.333 164.194l1.056-.576M547.4 163.62h1.536M548.933 163.62l1.152.577M550.08 164.194l.48 1.536M550.56 165.727v5.376M555.84 162.074l1.151-.576M557 161.5l1.535-1.535M558.533 159.968v11.135M665.663 159.674v11.136M665.663 165.54l1.632-1.631M667.29 163.9l1.056-.48M668.357 163.42h1.536M669.89 163.42l1.152.48M671.037 163.9l.48 1.633M671.517 165.54v5.28M676.796 161.794l1.152-.48M677.956 161.314l1.536-1.632M679.49 159.674v11.136"/></g></g><g stroke="#87cefa"><g stroke-width="28.8"><path stroke-width="3.839904" d="M734.395 432.027v-.192M734.395 431.827v-.096M734.395 431.734v-.096M734.395 431.64v-.095M734.395 431.547v-.096M734.395 431.454v-.096M734.395 431.347v-.096M734.395 431.254v-.096M734.395 431.16v-.095M734.395 431.067v-.096M734.395 430.974v-.192M734.395 430.774v-.288M734.395 430.494v-.384M734.395 430.108v-.48M734.395 429.628v-.768M734.395 428.854v-1.44M734.395 427.414v-1.152M734.395 426.268v-2.112M734.395 424.148v-4.224M734.395 419.934v-5.375M734.395 414.548v-4.896M734.395 409.655v-3.36M734.395 406.295v-2.592M734.395 403.708v-2.304M734.395 401.402v-3.456M734.395 397.948v-3.456M734.395 394.495v-2.784M734.395 391.708v-2.015M734.395 389.695v-1.44M734.395 388.255v-1.632M734.395 386.615v-2.4M734.395 384.215v-3.552M734.395 380.669v-2.976M734.395 377.695V375.2M734.395 375.189V372.5M734.395 372.509v-1.632M734.395 370.869v-.96M734.395 369.909v-1.44M734.395 368.47v-2.017M734.395 366.456v-1.728M734.395 364.736v-1.248M734.395 363.483v-2.112M734.395 361.376v-3.456M734.395 357.91v-3.167M734.395 354.75v-2.306M734.395 352.443v-1.824M734.395 350.616v-1.248M734.395 349.376v-1.344M734.395 348.03v-1.344M734.395 346.683v-1.344M734.395 345.336v-1.438M734.395 343.896v-1.441M734.395 342.456v-2.206M734.395 340.256v-2.304M734.395 337.95v-1.536M734.395 336.417v-1.154M734.395 335.257v-.767M734.395 334.497v-1.151M734.395 333.337v-1.248M734.395 332.097v-.768M734.395 331.323v-1.057M734.395 330.27v-1.439M734.395 328.83v-5.761M734.395 323.07v-.672M734.395 322.39v-.958M734.395 321.43v-1.248M734.395 320.19v-1.536M734.395 318.657v-2.208M734.395 316.444v-2.207M734.395 314.23v-1.153M734.395 313.084v-.864M734.395 312.217v-.864M734.395 311.35v-.96M734.395 310.39v-1.44M734.395 308.95v-4.702M734.395 304.257v-4.32M734.395 299.937v-.766M734.395 299.164v-.384M734.395 298.777v-.19M734.395 298.59v-.097M734.395 298.497v-.096M734.395 298.39v-3.935M734.395 294.458v-4.032M734.395 290.431v-2.208M734.395 288.218v-1.92M734.395 286.298v-1.44M734.395 284.858v-1.056M734.395 283.805v-3.168M734.395 280.631v-2.88M734.395 277.751v-1.248M734.395 276.511v-2.496M734.395 274.018h-.096M734.302 274.018v-2.4M734.302 271.618v-1.728M734.302 269.885v-1.632M734.302 268.258v-1.44M734.302 266.818v-1.344M734.302 265.472v-1.152M734.302 264.312v-1.152M734.302 263.165v-1.056M734.302 262.112v-.96M734.302 261.152v-.864M734.302 260.285v-.864M734.302 259.418v-.768M734.302 258.658v-.672M734.302 257.978v-.767M734.302 257.219v-.672M734.302 256.539v-.576M734.302 255.965v-.672M734.302 255.299v-.576M734.302 254.712v-.576M734.302 254.139v-.48M734.302 253.659v-.576M734.302 253.085v-.48M734.302 252.605v-.576M734.302 252.032v-.48M734.302 251.552v-.48M734.302 251.072v-.48M734.302 250.592v-.48M734.302 250.112v-.48M734.302 249.632v-.384M734.302 249.245v-.48M734.302 248.765v-.384M734.302 248.379v-.48M734.302 247.899v-.384M734.302 247.512v-.384M734.302 247.139v-.384M734.302 246.752v-.384M734.302 246.365v-.384M734.302 245.979v-.384M734.302 245.592v-.384M734.302 245.219v-.288M734.302 244.925v-.385M734.302 244.539v-.288M734.302 244.259v-.288M734.302 243.966v-.288M734.302 243.672v-.382M734.302 243.299v-.288M734.302 243.006v-.194M734.302 242.819v-.288M734.302 242.526v-.288M734.302 242.232v-.288M734.302 241.952v-.19M734.302 241.752v-.288M734.302 241.472v-.193M734.302 241.272v-.192M734.302 241.086v-.287M734.302 240.792v-.19M734.302 240.606v-.194M734.302 240.419v-.192M734.302 240.219l-.096-.288M734.208 239.939v-.192M734.208 239.739v-.192M734.208 239.552v-.192M734.208 239.352v-.192M734.208 239.166v-.192M734.208 238.979v-.192M734.208 238.779v-.192M734.208 238.592v-.192M734.208 238.392v-.096M734.208 238.299v-.192M734.208 238.112v-.192M734.208 237.912v-.192M734.208 237.726v-.192M734.208 237.539v-.192M734.208 237.339v-.096M734.208 237.246v-.192M734.208 237.059v-.192M734.208 236.859v-.096M734.208 236.766v-.192M734.208 236.579v-.192M734.208 236.379v-.096M734.208 236.286v-.192M734.208 236.099v-.096M734.208 235.992v-.192M734.208 235.806v-.096M734.208 235.712v-.096M734.208 235.619v-.192M734.208 235.419v-.096M734.208 235.326v-.096M734.208 235.232l-.096-.192M734.115 235.032v-.096M734.115 234.94v-.097M734.115 234.846v-.096M734.115 234.752v-.192M734.115 234.552v-.096M734.115 234.46v-.097M734.115 234.366v-.096M734.115 234.272v-.096M734.115 234.18v-.097M734.115 234.072v-.096M734.115 233.98v-.097M734.115 233.886v-.096M734.115 233.792v-.096M734.115 233.686v-.096M734.115 233.592v-.094M734.115 233.5v-.098M734.115 233.406v-.096M734.115 233.312v-.094M734.115 233.22l-.096-.098M734.008 233.112v-.096M734.008 233.02v-.097M734.008 232.926v-.096M734.008 232.832v-.096M734.008 232.74v-.097M734.008 232.632v-.096M734.008 232.54v-.097M734.008 232.446v-.096M734.008 232.352v-.096M734.008 232.26v-.097M734.008 232.152v-.096M734.008 232.06v-.097M734.008 231.966l-.096-.096M733.915 231.872v-.096M733.915 231.78v-.097M733.915 231.672v-.096M733.915 231.58v-.097M733.915 231.486v-.096M733.915 231.392v-.094M733.915 231.3v-.097M733.915 231.192l-.096-.097M733.822 231.1v-.096M733.822 231.006v-.096M733.822 230.912v-.097M733.822 230.82v-.096M733.822 230.712v-.095M733.822 230.62v-.097M733.822 230.526h-.096M733.728 230.526v-.096M733.728 230.433v-.096M733.728 230.34v-.097M733.728 230.233v-.096M733.728 230.14l-.096-.097M733.635 230.046v-.096M733.635 229.953v-.096M733.635 229.86v-.097M733.635 229.753l-.096-.096M733.528 229.66v-.097M733.528 229.566v-.096M733.528 229.473l-.096-.096M733.435 229.38v-.097M733.435 229.273v-.096M733.435 229.18h-.096M733.342 229.18v-.097M733.342 229.086v-.096M733.342 228.993v-.096M733.342 228.9h-.096M733.248 228.9v-.097M733.248 228.793v-.096M733.248 228.7h-.094M733.155 228.7v-.097M733.155 228.606v-.096M733.155 228.513h-.097M733.048 228.513v-.096M733.048 228.42l-.097-.097M732.955 228.313v-.096M732.955 228.22h-.095M732.862 228.22v-.097M732.862 228.126h-.096M732.768 228.126v-.096M732.768 228.033h-.096M732.675 228.033v-.096M732.675 227.94h-.096M732.568 227.94v-.097M732.568 227.833h-.096M732.475 227.833v-.096M732.475 227.74h-.096M732.382 227.74l-.096-.097M732.288 227.646h-.096M732.195 227.646v-.095M732.195 227.553h-.096M732.088 227.553v-.096M732.088 227.446h-.096M731.995 227.446l-.096-.096M731.902 227.353h-.096M731.808 227.353l-.096-.095M731.715 227.26h-.096M731.608 227.26v-.097M731.608 227.166h-.096M731.515 227.166h-.096M731.422 227.166v-.096M731.422 227.073h-.096M731.328 227.073h-.096M731.235 227.073h-.096M731.128 227.073l-.096-.096M731.035 226.966h-.096M730.942 226.966h-.096M730.848 226.966l-.096-.096M730.755 226.873h-.096M730.648 226.873h-.096M730.555 226.873l-.096-.096M730.462 226.78h-.096M730.368 226.78h-.096M730.275 226.78h-.097M730.168 226.78l-.096-.097M730.075 226.686h-.095M729.982 226.686h-.098M729.888 226.686h-.096M729.795 226.686h-.095M729.702 226.686l-.096-.096M729.595 226.593h-.097M729.502 226.593h-.095M729.408 226.593h-.096M729.315 226.593l-.097-.096M729.222 226.486h-.096M729.115 226.486h-.096M729.022 226.486h-.096M728.928 226.486h-.096M728.835 226.486l-.096-.096M728.742 226.393h-.096M728.635 226.393h-.097M728.542 226.393h-.096M728.448 226.393h-.096M728.355 226.393h-.096M728.262 226.393h-.096M728.155 226.393l-.096-.096M728.062 226.3h-.096M727.968 226.3h-.096M727.875 226.3h-.096M727.782 226.3h-.096M727.675 226.3h-.096M727.582 226.3l-.192-.095M727.395 226.206h-.096M727.302 226.206h-.096M727.195 226.206h-.096M727.102 226.206h-.096M727.008 226.206h-.192M726.822 226.206h-.096M726.715 226.206l-.096-.096M726.622 226.1h-.096M726.529 226.1h-.192M726.342 226.1h-.096M726.235 226.1h-.096M726.142 226.1h-.192M725.955 226.1h-.096M725.862 226.1l-.192-.097M725.662 226.006h-.096M725.569 226.006h-.192M725.382 226.006h-.096M725.275 226.006h-.192M725.089 226.006h-.096M724.995 226.006h-.192M724.795 226.006l-.096-.095M724.702 225.913h-.192M724.515 225.913h-.096M724.422 225.913h-.192M724.222 225.913h-.192M724.035 225.913h-.096M723.942 225.913h-.192M723.742 225.913l-.19-.096M723.555 225.82h-.193M723.355 225.82h-.094M723.262 225.82h-.193M723.075 225.82h-.192M722.889 225.82h-.194M722.689 225.82h-.192M722.502 225.82h-.19M722.302 225.82l-.193-.097M722.115 225.726h-.192M721.915 225.726h-.19M721.729 225.726h-.194M721.542 225.726h-.192M721.342 225.726h-.192M721.155 225.726h-.193M720.955 225.726h-.19M720.769 225.726h-.288M720.489 225.726l-.194-.096M720.289 225.62h-.192M720.102 225.62h-.19M719.902 225.62h-.288M719.622 225.62h-.193M719.422 225.62h-.288M719.142 225.62h-.19M718.942 225.62h-.288M718.662 225.62h-.192M718.462 225.62l-.29-.097M718.182 225.526h-.192M717.982 225.526h-.288M717.702 225.526h-.192M717.502 225.526h-.288M717.222 225.526h-.288M716.929 225.526h-.288M716.649 225.526h-.288M716.355 225.526h-.192M716.169 225.526h-.288M715.875 225.526l-.288-.096M715.582 225.433h-.288M715.302 225.433h-.288M715.009 225.433h-.288M714.729 225.433h-.288M714.435 225.433h-.384M714.049 225.433h-.288M713.769 225.433h-.288M713.475 225.433h-.287M713.182 225.433h-.384M712.809 225.433h-.288M712.516 225.433l-.384-.096M712.129 225.34h-.288M711.849 225.34h-.384M711.462 225.34h-.288M711.169 225.34h-.384M710.782 225.34h-.384M710.396 225.34h-.288M710.116 225.34h-.384M709.729 225.34h-.384M709.342 225.34h-.384M708.956 225.34h-.384M708.569 225.34h-.384M708.196 225.34l-.384-.097M707.809 225.246h-.384M707.422 225.246h-.384M707.036 225.246h-.384M706.649 225.246h-.48M706.169 225.246h-.384M705.796 225.246h-.384M705.409 225.246h-.48M704.929 225.246h-.192M704.729 225.246h-.192M704.542 225.246h-.48M704.062 225.246h-.48M703.582 225.246h-.384M703.196 225.246h-.48M702.716 225.246h-.48M702.236 225.246l-.48-.096M701.756 225.153h-.48M701.276 225.153h-.48M700.796 225.153h-.48M700.316 225.153h-.48M699.836 225.153h-.48M699.356 225.153h-.576M698.783 225.153h-.48M698.303 225.153h-.48M697.823 225.153h-.576M697.25 225.153h-.577M696.676 225.153h-.48M696.196 225.153h-.576M695.61 225.153h-.577M695.036 225.153h-.576M694.463 225.153l-.576-.096M693.89 225.06h-.578M693.316 225.06h-.576M692.73 225.06h-.577M692.156 225.06h-.576M691.583 225.06h-.672M690.916 225.06h-.576M690.33 225.06h-.671M689.663 225.06h-.576M689.09 225.06h-.673M688.41 225.06h-.673M687.743 225.06h-.672M687.076 225.06h-.672M686.396 225.06h-.672M685.73 225.06h-.672M685.05 225.06h-.672M684.383 225.06h-.673M683.716 225.06l-.768-.097M682.943 224.953h-.672M682.276 224.953h-.768M681.503 224.953h-.672M680.836 224.953h-.384M680.45 224.953h-.384M680.063 224.953h-.768M679.29 224.953h-.768M678.53 224.953h-.768M677.756 224.953h-.768M676.996 224.953h-.864M676.13 224.953h-.768M675.356 224.953h-.864M674.49 224.953h-.768M673.73 224.953h-.864M672.863 224.953H672M671.997 224.953h-.864M671.13 224.953h-.864M670.277 224.953h-.864M669.41 224.953h-.864M668.543 224.953l-.96-.096M667.583 224.86h-.864M666.717 224.86h-.96M665.757 224.86h-.864M664.89 224.86h-.96M663.93 224.86h-.96M662.97 224.86h-.96M662.01 224.86h-1.056M660.957 224.86h-.96M659.997 224.86h-.96M659.037 224.86h-1.056M657.984 224.86h-1.056M656.93 224.86h-.96M655.97 224.86h-1.056M654.917 224.86h-1.152M653.757 224.86h-1.056M652.704 224.86h-1.056M651.65 224.86h-1.152M650.49 224.86h-1.056M649.437 224.86l-1.152-.097M648.29 224.766h-1.152M647.13 224.766h-1.151M645.984 224.766h-1.152M644.837 224.766h-1.25M643.584 224.766h-1.15M642.437 224.766h-1.249M641.184 224.766h-1.248M639.93 224.766h-1.247M638.69 224.766h-.575M638.117 224.766h-.672M637.437 224.766h-1.248M636.197 224.766h-1.248M634.944 224.766H633.6M633.597 224.766h-1.343M632.25 224.766h-.67M631.584 224.766h-.673M630.918 224.766h-1.344M629.57 224.766h-1.342M628.224 224.766h-1.345M626.878 224.766h-1.44M625.438 224.766h-.672M624.771 224.766h-.67M624.104 224.766l-1.44-.095M622.651 224.673h-1.44M621.211 224.673h-1.536M619.678 224.673h-1.44M618.238 224.673h-.768M617.478 224.673h-1.44M616.038 224.673h-.768M615.265 224.673h-.768M614.505 224.673h-.768M613.731 224.673h-1.536M612.198 224.673h-1.536M610.665 224.673h-.864M609.798 224.673h-1.536M608.265 224.673h-1.632M606.625 224.673h-.768M605.865 224.673H605M604.998 224.673h-.768M604.225 224.673h-.864M603.358 224.673h-.864M602.505 224.673h-1.632M600.865 224.673h-1.632M599.238 224.673h-.864M598.372 224.673h-.864M597.505 224.673h-.864M596.638 224.673h-.864M595.785 224.673h-1.728M594.052 224.673h-1.824M592.225 224.673h-.864M591.359 224.673l-.864-.096M590.505 224.58h-.96M589.545 224.58h-.864M588.679 224.58h-1.824M586.852 224.58h-1.824M585.025 224.58h-.96M584.065 224.58h-.864M583.199 224.58h-1.92M581.279 224.58h-.96M580.319 224.58h-.96M579.359 224.58h-.96M578.399 224.58h-.96M577.439 224.58h-1.92M575.519 224.58h-.96M574.559 224.58h-.96M573.599 224.58h-2.016M571.586 224.58h-.96M570.626 224.58h-1.056M569.572 224.58h-2.016M567.56 224.58h-.96M566.6 224.58h-1.057M565.546 224.58h-1.056M564.48 224.58h-.96M563.52 224.58h-2.113M561.413 224.58h-1.056M560.36 224.58h-1.058M559.306 224.58h-1.056M558.253 224.58h-1.058M557.186 224.58h-1.056M556.133 224.58h-1.058M555.08 224.58l-2.207-.097M552.866 224.473h-1.057M551.813 224.473h-1.152M550.666 224.473h-1.056M549.6 224.473h-1.152M548.453 224.473h-1.055M547.4 224.473h-1.152M546.253 224.473H545.1M545.093 224.473h-1.056M544.04 224.473h-2.303M541.733 224.473h-1.153M540.586 224.473h-1.151M539.427 224.473h-1.152M538.28 224.473h-1.152M537.12 224.473h-1.152M535.973 224.473h-1.248M534.72 224.473h-1.152M533.573 224.473h-1.152M532.427 224.473h-1.248M531.173 224.473h-1.152M530.027 224.473h-1.248M528.773 224.473h-1.152M527.627 224.473l-1.248-.095M526.374 224.38h-1.248M525.12 224.38h-1.152M523.974 224.38h-1.248M522.72 224.38h-1.248M521.48 224.38h-1.248M520.227 224.38h-1.248M518.974 224.38h-1.248M517.734 224.38h-1.248M516.48 224.38h-1.248M515.24 224.38h-1.344M513.894 224.38h-1.248M512.64 224.38h-1.247M511.4 224.38l-1.343-.097M510.054 224.286h-1.248M508.8 224.286h-1.343M507.454 224.286h-1.248M506.214 224.286h-1.344M504.867 224.286h-1.344M503.52 224.286h-1.343M502.174 224.286h-1.248M500.934 224.286h-1.344M499.588 224.286l-1.344-.096M498.24 224.193h-1.343M496.894 224.193h-1.344M495.56 224.193h-1.439M494.121 224.193h-1.344M492.774 224.193h-1.344M491.428 224.193h-1.44M489.988 224.193l-1.344-.096M488.641 224.1h-1.343M487.294 224.1h-1.44M485.855 224.1h-1.442M484.415 224.1h-1.343M483.081 224.1h-1.44M481.641 224.1l-1.441-.097M480.201 223.993h-1.44M478.761 223.993h-1.44M477.321 223.993h-1.342M475.975 223.993h-1.536M474.441 223.993h-1.44M473.002 223.993l-1.44-.096M471.562 223.9h-1.44M470.122 223.9h-1.44M468.682 223.9h-1.536M467.135 223.9h-1.44M465.695 223.9l-1.536-.095M464.162 223.806h-1.44M462.722 223.806h-1.536M461.188 223.806h-1.44M459.749 223.806h-1.536M458.215 223.806l-1.536-.096M456.682 223.713h-1.536M455.135 223.713H453.6M453.602 223.713h-1.536M452.069 223.713l-1.536-.096M450.535 223.62H449M449.002 223.62h-1.536M447.455 223.62h-1.535M445.922 223.62l-1.536-.095M444.389 223.513h-1.632M442.762 223.513h-1.536M441.216 223.513h-1.632M439.589 223.513l-1.536-.096M438.056 223.42h-1.632M436.416 223.42h-1.632M434.79 223.42l-1.537-.097M433.256 223.326h-1.632M431.616 223.326h-1.632M429.99 223.326l-1.633-.096M428.363 223.233h-1.632M426.723 223.233h-1.632M425.096 223.233l-1.632-.096M423.456 223.14h-1.632M421.83 223.14h-1.633M420.203 223.14l-1.728-.097M418.47 223.033h-1.632M416.843 223.033h-1.632M415.203 223.033l-1.728-.096M413.483 222.94h-1.632M411.843 222.94h-1.728M410.123 222.94l-1.632-.097M408.483 222.846h-1.728M406.763 222.846l-1.728-.096M405.03 222.753h-1.728M403.297 222.753l-1.728-.096M401.577 222.66h-1.728M399.843 222.66l-1.728-.097M398.123 222.553h-1.728M396.39 222.553l-1.728-.095M394.657 222.46h-1.728M392.937 222.46l-1.728-.097M391.204 222.366h-1.728M389.484 222.366l-1.824-.096M387.657 222.273h-1.728M385.924 222.273l-1.728-.095M384.204 222.18h-1.824M382.377 222.166l-1.824-.096M380.55 222.073h-1.727M378.817 222.073l-1.824-.096M377.004 221.98l-1.728-.097M375.27 221.886h-1.823M373.444 221.886l-1.824-.096M371.617 221.793l-1.824-.096M369.804 221.686h-1.824M367.977 221.686l-1.823-.096M366.15 221.593l-1.823-.096M364.324 221.5H362.5M362.498 221.5l-1.824-.097M360.684 221.406l-1.824-.096M358.858 221.313h-1.824M357.031 221.313l-1.92-.096M355.111 221.206l-1.824-.096M353.285 221.113l-1.824-.096M351.458 221.02l-1.92-.097M349.538 220.926l-1.824-.096M347.725 220.833h-1.92M345.805 220.833l-1.824-.096M343.978 220.726l-1.921-.096M342.058 220.633l-1.919-.096M340.138 220.54l-1.824-.097M338.312 220.446l-1.922-.096M336.392 220.353l-1.919-.096M334.472 220.246l-1.92-.096M332.552 220.153l-1.92-.096M330.632 220.06l-1.92-.097M328.712 219.966l-1.824-.096M326.885 219.873l-1.921-.096M324.965 219.766l-1.918-.096M323.045 219.673l-2.016-.192M321.032 219.486l-1.92-.096M319.112 219.393l-1.921-.096M317.192 219.286l-1.919-.096M315.272 219.193l-1.921-.096M313.352 219.1l-1.918-.191M311.432 218.913l-2.017-.098M309.419 218.806l-1.919-.095M307.499 218.713l-1.921-.194M305.579 218.526l-.96-.095M304.62 218.433l-2.017-.096M302.592 218.326l-1.92-.097M300.672 218.233l-2.015-.19M298.66 218.046l-.96-.096M297.7 217.94l-1.92-.095M295.78 217.846l-2.017-.193M293.766 217.66l-1.92-.097M291.846 217.566l-2.016-.192M289.833 217.366l-1.92-.192M287.913 217.18l-2.016-.192M285.9 216.98l-2.016-.096M283.873 216.886l-1.92-.192M281.953 216.7l-2.016-.192M279.94 216.5l-1.92-.192M278.02 216.313l-2.016-.192M276.006 216.126l-2.016-.192M273.993 215.926l-1.92-.192M272.073 215.74l-2.016-.192M270.06 215.54l-2.016-.192M268.033 215.353l-2.016-.192M266.02 215.166l-1.92-.288M264.1 214.873l-2.016-.096M262.087 214.78l-.96-.192M261.127 214.58l-2.016-.288M259.114 214.3l-2.016-.192M257.1 214.1l-1.92-.192M255.18 213.913l-2.016-.192M253.154 213.726l-.96-.192M252.194 213.526l-2.016-.192M250.18 213.34l-1.056-.192M249.127 213.14l-1.92-.288M247.207 212.86l-2.016-.288M245.194 212.566l-2.016-.192M243.18 212.38l-.96-.192M242.22 212.18l-1.92-.288M240.3 211.9l-2.015-.288M238.274 211.606l-2.016-.384M236.26 211.22l-1.92-.288M234.34 210.94l-2.015-.288M232.328 210.646l-1.92-.384M230.408 210.26l-2.016-.192M228.394 210.073l-.96-.288M227.434 209.78l-1.92-.384M225.514 209.406l-2.016-.384M223.501 209.02l-1.92-.384M221.581 208.633l-1.92-.288M219.661 208.34l-1.056-.288M218.595 208.06l-1.92-.288M216.675 207.766l-1.44-.384M215.235 207.38l-1.44-.288M213.795 207.1l-.96-.288M212.835 206.806l-1.92-.48M210.915 206.326l-1.92-.576M208.995 205.753l-1.92-.384M207.075 205.366l-.96-.48M206.115 204.886l-1.92-.768M204.195 204.126l-1.92-.863M202.275 203.26l-1.92-1.152M200.355 202.1l-1.824-1.44M198.542 200.66l-1.92-1.343M196.622 199.327l-.864-1.44M195.755 197.887l-1.92-1.824M193.835 196.06l-.96-1.248M192.875 194.807l-.864-.96M192.009 193.847l-.48-.767M191.529 193.087l-.48-.96M191.049 192.127l-.864-1.152M190.182 190.98l-.48-1.056M189.702 189.914l-.96-1.248M188.742 188.674l-.672-.864M188.075 187.807l-.384-.672M187.689 187.14l-.48-.864M187.209 186.274l-.48-.48M186.729 185.794l-.288-.576M186.449 185.22l-.384-.768M186.062 184.447l-.48-.48M185.582 183.967l-.192-.384M185.382 183.58l-.288-.48M185.102 183.1l-.288-.48M184.809 182.62l-.384-.48M184.422 182.14l-.192-.384M184.235 181.754l-.288-.192M183.942 181.567l-.096-.288M183.849 181.274l-.192-.288M183.662 180.994l-.192-.288M183.462 180.7l-.192-.288M183.275 180.42l-.096-.192M183.182 180.22l-.288-.288M182.889 179.94l-.192-.288M182.702 179.647l-.096-.193M182.609 179.46l-.192-.288M182.409 179.167l-.288-.288M182.129 178.874l-.096-.19M182.022 178.687l-.192-.192M181.835 178.5l-.096-.288M181.742 178.207l-.384-.481M181.355 177.727l-.192-.19M181.169 177.54l-.192-.286M180.969 177.247l-.288-.286M180.689 176.954l-.192-.287M180.489 176.674l-.288-.287M180.209 176.38l-.192-.286M180.009 176.1l-.192-.286M179.822 175.807l-.288-.286M179.529 175.514l-.288-.288M179.249 175.234l-.192-.288M179.049 174.94l-.288-.383M178.769 174.554l-.384-.288M178.382 174.274l-.192-.192M178.182 174.074l-.192-.384M177.996 173.7l-.48-.48M177.516 173.22l-.48-.383M177.036 172.834l-.384-.384M176.649 172.447l-.288-.192M176.369 172.26l-.192-.287M176.169 171.967l-.384-.576M175.782 171.394l-.864-.768M174.929 170.62l-.96-.863M173.969 169.754l-1.248-.672M172.716 169.087l-.672-.768M172.049 168.314l-1.44-.864M170.61 167.46l-1.345-.575M169.262 166.874l-.768-.384M168.49 166.5l-.48-.191M168.01 166.3l-.385-.191M167.622 166.114l-.48-.192M167.142 165.914l-.288-.096M166.862 165.82l-.287-.191M166.57 165.634l-.289-.096M166.29 165.54l-.385-.191M165.903 165.34l-.576-.095M165.33 165.247l-.289-.096M165.036 165.154l-.384-.192M164.65 164.954l-.385-.096M164.263 164.86l-.384-.095M163.89 164.767h-.385M163.503 164.767l-.288-.096M163.21 164.674h-.193M163.023 164.674l-.384-.096M162.636 164.58l-.384-.095M162.25 164.474h-.193M162.063 164.474h-.192M161.863 164.474h-.48M161.383 164.474l-.384-.096M161.01 164.38h-.385M160.623 164.38h-.288M160.33 164.38h-.289M160.05 164.38h-.577M159.463 164.38h-.384M159.09 164.38h-.289M158.796 164.38h-.192M158.61 164.38h-.289M158.316 164.38h-.192M158.13 164.38h-.289M157.836 164.38h-.192M157.65 164.38h-.193M157.45 164.38h-.193M157.263 164.38h-.192M157.063 164.38h-.384M156.69 164.38h-.385M156.303 164.38h-.384M155.916 164.38h-.384M155.53 164.38h-.193M155.343 164.38h-.192M155.143 164.38h-.384M154.77 164.38h-.385M154.383 164.38h-.384M153.996 164.38h-.384M153.61 164.38h-.384M153.223 164.38h-.384M152.85 164.38h-.384M152.463 164.38h-.288M152.17 164.38h-.384M151.783 164.38h-.384M151.41 164.38h-.192M151.21 164.38h-.192M151.023 164.38h-.384M150.636 164.38h-.288M150.343 164.38h-.384M149.97 164.38h-.384M149.583 164.38h-.384M149.196 164.38h-.288M148.903 164.38h-.192M148.716 164.38h-.192M148.53 164.38h-.384M148.143 164.38h-.288M147.85 164.38h-.384M147.463 164.38h-.384M147.09 164.38h-.288M146.796 164.38h-.384M146.41 164.38h-.288M146.13 164.38h-.384M145.743 164.38h-.192M145.543 164.38h-.096M145.45 164.38h-.384M145.063 164.38h-.288M144.783 164.38h-.384M144.396 164.38h-.288M144.103 164.38h-.384M143.73 164.38h-.288M143.436 164.38h-.192M143.25 164.38h-.096M143.143 164.38h-.384M142.77 164.38h-.288M142.476 164.38h-.288M142.183 164.38h-.384M141.81 164.38h-.288M141.516 164.38h-.288M141.223 164.38h-.288M140.943 164.38h-.288M140.65 164.38h-.288M140.37 164.38h-.385M139.983 164.38h-.288M139.69 164.38h-.288M139.41 164.38h-.288M139.117 164.38h-.288M138.823 164.38h-.288M138.543 164.38h-.288M138.25 164.38h-.288M137.97 164.38h-.288M137.677 164.38h-.288M137.383 164.38h-.288M137.103 164.38h-.193M136.903 164.38h-.288M136.623 164.38h-.096M136.53 164.38h-.192M136.33 164.38h-.19M136.143 164.38h-.288M135.85 164.38h-.288M135.57 164.38h-.193M135.37 164.38h-.288M135.09 164.38h-.288M134.797 164.38h-.191M134.61 164.38h-.192M134.41 164.38h-.29M134.13 164.38h-.192M133.93 164.38h-.288M133.65 164.38h-.19M133.45 164.38h-.097M133.357 164.38h-.096M133.26 164.38h-.287M132.973 164.38h-.192M132.782 164.38h-.192M132.589 164.38h-.192M132.397 164.38h-.192M132.206 164.38h-.192M132.013 164.38h-.192M131.82 164.38h-.191M131.63 164.38h-.096M131.533 164.38h-.192M131.342 164.38h-.192M131.149 164.38h-.096M131.054 164.38h-.192M130.86 164.38h-.19M130.67 164.38h-.192M130.477 164.38h-.096M130.382 164.38h-.096M130.285 164.38h-.192M130.094 164.38h-.096M129.997 164.38h-.096M129.9 164.38h-.095M129.806 164.38h-.096M129.709 164.38h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M177.036 170.714v11.232M177.036 176.58l1.632-1.535M178.662 175.034l1.056-.576M179.729 174.46h1.632M181.355 174.46l1.056.577M182.409 175.034l.48 1.536M182.889 176.58v5.376M186.635 177.634h6.336M192.969 177.634v-1.056M192.969 176.58l-.48-1.055M192.489 175.514l-.576-.48M191.915 175.034l-1.056-.576M190.862 174.46h-1.536M189.329 174.46l-1.056.577M188.262 175.034l-1.056 1.056M187.209 176.1l-.576 1.536M186.635 177.634v1.056M186.635 178.687l.576 1.632M187.209 180.314l1.056 1.056M188.262 181.38l1.056.576M189.329 181.954h1.536M190.862 181.954l1.056-.576M191.915 181.38l1.056-1.056M201.515 170.714l-5.28 7.488M196.235 178.207h7.968M201.515 170.714v11.232M297.993 198.753v11.136M297.993 204.606l1.632-1.631M299.62 202.98l1.055-.48M300.686 202.5h1.632M302.312 202.5l1.056.48M303.366 202.98l.48 1.632M303.846 204.606v5.28M307.592 205.66h6.336M313.925 205.66v-1.056M313.925 204.606l-.48-1.055M313.445 203.553l-.575-.576M312.872 202.98l-1.056-.48M311.819 202.5h-1.536M310.286 202.5l-1.056.48M309.219 202.98l-1.056 1.056M308.166 204.033l-.576 1.632M307.592 205.66v1.056M307.592 206.713l.576 1.632M308.166 208.353l1.056 1.056M309.219 209.406l1.056.48M310.286 209.886h1.536M311.819 209.886l1.056-.48M312.872 209.406l1.056-1.056M322.472 198.753l-5.28 7.488M317.192 206.233h7.968M322.472 198.753v11.136M418.95 203.167v11.231M418.95 209.02l1.631-1.536M420.576 207.486l1.056-.576M421.643 206.913h1.632M423.27 206.913l1.055.576M424.323 207.486l.48 1.536M424.803 209.02v5.376M428.55 210.073h6.335M434.882 210.073v-1.056M434.882 209.02l-.48-1.056M434.402 207.966l-.576-.48M433.83 207.486l-1.057-.576M432.776 206.913h-1.536M431.243 206.913l-1.056.576M430.176 207.486l-1.056 1.056M429.123 208.54l-.576 1.536M428.55 210.073v1.056M428.55 211.14l.575 1.632M429.123 212.766l1.056 1.056M430.176 213.82l1.056.576M431.243 214.393h1.536M432.776 214.393l1.056-.576M433.83 213.82l1.055-1.056M443.429 203.167l-5.28 7.487M438.149 210.66h7.968M443.429 203.167v11.231M539.907 204.42v11.136M539.907 210.18l1.631-1.536M541.533 208.633l1.056-.576M542.6 208.06h1.632M544.226 208.06l1.056.576M545.28 208.633l.48 1.536M545.76 210.18v5.376M549.506 211.326h6.336M555.84 211.326v-1.152M555.84 210.18l-.48-1.056M555.36 209.113l-.577-.48M554.786 208.633l-1.056-.576M553.733 208.06h-1.536M552.2 208.06l-1.056.576M551.133 208.633l-1.056 1.056M550.08 209.7l-.576 1.632M549.506 211.326v1.056M549.506 212.38l.576 1.536M550.08 213.913l1.056 1.056M551.133 214.98l1.056.576M552.2 215.553h1.535M553.733 215.553l1.056-.576M554.786 214.98l1.056-1.056M564.386 204.42l-5.28 7.392M559.106 211.806h7.968M564.386 204.42v11.136M660.863 204.793v11.136M660.863 210.66l1.632-1.632M662.49 209.02l1.056-.48M663.557 208.54h1.632M665.183 208.54l1.056.48M666.237 209.02l.48 1.632M666.717 210.66v5.28M670.463 211.713h6.336M676.796 211.713v-1.056M676.796 210.66l-.48-1.056M676.316 209.593l-.576-.576M675.743 209.02l-1.056-.48M674.69 208.54h-1.536M673.157 208.54l-1.056.48M672.09 209.02l-1.056 1.056M671.037 210.073l-.576 1.632M670.463 211.713v1.056M670.463 212.766l.576 1.632M671.037 214.393l1.056 1.056M672.09 215.46l1.056.48M673.157 215.94h1.535M674.69 215.94l1.056-.48M675.743 215.46l1.056-1.056M685.343 204.793l-5.28 7.392M680.063 212.193h7.968M685.343 204.793v11.136"/></g></g><g stroke="#c03"><g stroke-width="28.8"><path stroke-width="3.839904" d="M734.395 734.417v-.191M734.395 734.225v-2.304M734.395 731.921v-2.688M734.395 729.233v-3.168M734.395 726.06v-3.552M734.395 722.514v-6.048M734.395 716.46v-7.775M734.395 708.687v-5.664M734.395 703.02v-4.607M734.395 698.42v-3.167M734.395 695.248v-4.992M734.395 690.261v-5.568M734.395 684.688v-3.744M734.395 680.941v-5.664M734.395 675.288v-7.872M734.395 667.408v-16.991M734.395 650.422v-.384M734.395 650.035v-.768M734.395 649.262v-.48M734.395 648.782v-.672M734.395 648.115v-1.344M734.395 646.769V643.6M734.395 643.609v-2.592M734.395 641.009v-2.016M734.395 638.996V636.5M734.395 636.502v-2.976M734.395 633.53v-4.993M734.395 628.53v-14.016M734.395 614.516v-10.272M734.395 604.25v-3.84M734.395 600.41v-1.824M734.395 598.583v-.96M734.395 597.623v-.672M734.395 596.943v-.48M734.395 596.463v-7.487M734.395 588.984v-4.512M734.395 584.464v-5.088M734.395 579.384v-5.376M734.395 574.01v-4.895M734.395 569.104v-4.224M734.395 564.89v-6.431M734.395 558.451v-4.704M734.395 553.744v-3.36M734.395 550.385v-4.992M734.395 545.398h-.096M734.302 545.398v-2.976M734.302 542.425v-2.688M734.302 539.731v-2.208M734.302 537.531v-1.823M734.302 535.705v-1.536M734.302 534.172v-1.152M734.302 533.012v-.96M734.302 532.052v-.864M734.302 531.185v-.768M734.302 530.425v-.672M734.302 529.745v-.672M734.302 529.078v-.576M734.302 528.505v-.48M734.302 528.025v-.576M734.302 527.452v-.48M734.302 526.972v-.48M734.302 526.492v-.48M734.302 526.012v-.384M734.302 525.625v-.48M734.302 525.145v-.48M734.302 524.665v-.384M734.302 524.278v-.48M734.302 523.799v-.48M734.302 523.319v-.48M734.302 522.839v-.48M734.302 522.359v-.48M734.302 521.879v-.576M734.302 521.305v-.48M734.302 520.825v-.576M734.302 520.252v-.48M734.302 519.772v-.576M734.302 519.185v-.48M734.302 518.705v-.574M734.302 518.132v-.481M734.302 517.652v-.383M734.302 517.265v-.481M734.302 516.785v-.382M734.302 516.412v-.384M734.302 516.025v-.385M734.302 515.639v-.288M734.302 515.345v-.286M734.302 515.065v-.288M734.302 514.772v-.192M734.302 514.585v-.288M734.302 514.292v-.193M734.302 514.105v-.19M734.302 513.905v-.192M734.302 513.719v-.192M734.302 513.532v-.096M734.302 513.425v-.192M734.302 513.239v-.192M734.302 513.052v-.192M734.302 512.852v-.192M734.302 512.665v-.192M734.302 512.465v-.192M734.302 512.279v-.096M734.302 512.185v-.192M734.302 511.985v-.192M734.302 511.799l-.096-.192M734.208 511.612v-.192M734.208 511.412v-.192M734.208 511.225v-.192M734.208 511.025v-.192M734.208 510.839v-.192M734.208 510.652v-.192M734.208 510.452v-.288M734.208 510.172v-.192M734.208 509.972v-.192M734.208 509.786v-.192M734.208 509.586v-.288M734.208 509.306v-.192M734.208 509.106v-.192M734.208 508.919v-.288M734.208 508.626v-.192M734.208 508.439v-.288M734.208 508.146v-.192M734.208 507.959v-.192M734.208 507.772v-.288M734.208 507.479v-.192M734.208 507.292v-.288M734.208 506.999v-.288M734.208 506.706v-.192M734.208 506.519v-.288M734.208 506.226v-.288M734.208 505.946v-.384M734.208 505.559v-.288M734.208 505.266v-.384M734.208 504.892v-.384M734.208 504.506l-.096-.48M734.115 504.026v-.384M734.115 503.639v-.48M734.115 503.159v-.48M734.115 502.679v-.48M734.115 502.199v-.48M734.115 501.72v-.48M734.115 501.24v-.48M734.115 500.76v-.48M734.115 500.28v-.48M734.115 499.8v-.385M734.115 499.412v-.384M734.115 499.026v-.288M734.115 498.746v-.288M734.115 498.452v-.192M734.115 498.266v-.096M734.115 498.172v-.096M734.115 498.066l-.096.096M734.008 498.172v.096M734.008 498.266v.096M734.008 498.36v.095M734.008 498.452v.192M734.008 498.652v.192M734.008 498.84v.191M734.008 499.026v.192M734.008 499.226v.096M734.008 499.32v.191M734.008 499.506v.096M734.008 499.612v.096M734.008 499.706v.096M734.008 499.8v.095M734.008 499.892v.096M734.008 499.986l-.096.096M733.915 500.092v.096M733.915 500.186v-.096M733.915 500.092v-.096M733.915 499.986v-.096M733.915 499.892l-.096-.096M733.822 499.8v-.193M733.822 499.612v-.096M733.822 499.506v-.192M733.822 499.32v-.192M733.822 499.132v-.193M733.822 498.932v-.19M733.822 498.746v-.192M733.822 498.56v-.289M733.822 498.266v-.194M733.822 498.066l-.096-.19M733.728 497.88v-.289M733.728 497.6v-.194M733.728 497.4v-.191M733.728 497.213v-.192M733.728 497.013v-.096M733.728 496.92v-.098M733.728 496.826v-.095M733.728 496.733h-.097M733.635 496.733v.094M733.635 496.826v.097M733.635 496.92v.095M733.635 497.013v.094M733.635 497.106v.193M733.635 497.306l-.096.192M733.528 497.492v.096M733.528 497.6v.094M733.528 497.692v.194M733.528 497.88v.095M733.528 497.972l-.094.096M733.435 498.08v.095M733.435 498.172v.096M733.435 498.266h-.096M733.342 498.266v-.096M733.342 498.172l-.096-.096M733.248 498.066v-.096M733.248 497.972h-.096M733.155 497.972v-.096M733.155 497.88h-.096M733.048 497.88h-.096M732.955 497.88h-.096M732.862 497.88v-.097M732.862 497.786h-.096M732.768 497.786l-.096-.096M732.675 497.692h-.096M732.568 497.692h-.097M732.475 497.692h-.096M732.382 497.692l-.095.096M732.288 497.786l-.097-.096M732.195 497.692h-.097M732.088 497.692l-.094-.096M731.995 497.586h-.096M731.902 497.586v-.096M731.902 497.492h-.098M731.808 497.492h-.096M731.715 497.492h-.095M731.608 497.492v-.096M731.608 497.4h-.097M731.515 497.4h-.097M731.422 497.4h-.095M731.328 497.4h-.096M731.235 497.4l-.097-.097M731.128 497.306h-.094M731.035 497.306h-.096M730.942 497.306h-.096M730.848 497.306l-.096-.096M730.755 497.213h-.096M730.648 497.213h-.096M730.555 497.213h-.096M730.462 497.213h-.096M730.368 497.213l-.096-.096M730.275 497.106h-.096M730.168 497.106h-.096M730.075 497.106h-.096M729.982 497.106h-.096M729.888 497.106l-.096-.096M729.795 497.013h-.096M729.688 497.013h-.096M729.595 497.013h-.096M729.502 497.013h-.096M729.408 497.013h-.096M729.315 497.013h-.096M729.208 497.013l-.096-.096M729.115 496.92h-.096M729.022 496.92h-.096M728.928 496.92h-.096M728.835 496.92h-.096M728.728 496.92h-.096M728.635 496.92h-.096M728.542 496.92l-.096-.097M728.448 496.826h-.096M728.355 496.826h-.096M728.248 496.826h-.096M728.155 496.826h-.096M728.062 496.826h-.096M727.968 496.826h-.096M727.875 496.826h-.096M727.768 496.826l-.096-.096M727.675 496.733h-.096M727.582 496.733h-.192M727.395 496.733h-.096M727.288 496.733h-.096M727.195 496.733h-.096M727.102 496.733h-.095M727.008 496.733h-.193M726.808 496.733h-.094M726.715 496.733l-.097-.096M726.622 496.626h-.096M726.529 496.626h-.192M726.329 496.626h-.096M726.235 496.626h-.096M726.142 496.626h-.192M725.955 496.626h-.096M725.849 496.626h-.192M725.662 496.626h-.097M725.569 496.626l-.191-.096M725.382 496.533h-.097M725.275 496.533h-.19M725.089 496.533h-.098M724.995 496.533h-.192M724.795 496.533h-.096M724.702 496.533h-.192M724.515 496.533h-.096M724.422 496.533h-.192M724.222 496.533l-.192-.096M724.035 496.44h-.096M723.942 496.44h-.192M723.742 496.44h-.192M723.555 496.44h-.192M723.355 496.44h-.096M723.262 496.44h-.192M723.075 496.44h-.192M722.875 496.44h-.192M722.689 496.44h-.192M722.502 496.44h-.192M722.302 496.44l-.192-.097M722.115 496.346h-.192M721.915 496.346h-.192M721.729 496.346h-.192M721.542 496.346h-.192M721.342 496.346h-.192M721.155 496.346h-.192M720.955 496.346h-.192M720.769 496.346h-.288M720.475 496.346h-.192M720.289 496.346h-.192M720.102 496.346h-.192M719.902 496.346l-.288-.096M719.622 496.253h-.192M719.422 496.253h-.288M719.142 496.253h-.192M718.942 496.253h-.288M718.662 496.253h-.192M718.462 496.253h-.288M718.182 496.253h-.192M717.982 496.253h-.288M717.702 496.253h-.192M717.502 496.253h-.288M717.222 496.253h-.288M716.929 496.253l-.288-.096M716.635 496.146h-.288M716.355 496.146h-.192M716.155 496.146h-.288M715.875 496.146h-.288M715.582 496.146h-.288M715.302 496.146h-.288M715.009 496.146h-.288M714.715 496.146h-.288M714.435 496.146h-.384M714.049 496.146h-.288M713.755 496.146h-.288M713.475 496.146h-.287M713.182 496.146h-.384M712.796 496.146h-.288M712.516 496.146l-.383-.096M712.129 496.053h-.288M711.849 496.053h-.385M711.462 496.053h-.288M711.169 496.053h-.385M710.782 496.053h-.384M710.396 496.053h-.288M710.116 496.053h-.383M709.729 496.053h-.385M709.342 496.053h-.385M708.956 496.053h-.384M708.582 496.053h-.382M708.196 496.053h-.386M707.809 496.053h-.385M707.422 496.053h-.382M707.049 496.053h-.384M706.662 496.053h-.481M706.182 496.053h-.382M705.796 496.053h-.384M705.409 496.053l-.48-.096M704.929 495.96h-.193M704.742 495.96h-.19M704.542 495.96h-.48M704.062 495.96h-.48M703.582 495.96h-.385M703.196 495.96h-.479M702.73 495.96h-.48M702.25 495.96h-.482M701.77 495.96h-.48M701.29 495.96h-.482M700.81 495.96h-.48M700.33 495.96h-.48M699.85 495.96h-.48M699.37 495.96h-.577M698.783 495.96h-.48M698.303 495.96h-.48M697.823 495.96h-.576M697.25 495.96h-.577M696.676 495.96h-.48M696.196 495.96h-.576M695.623 495.96h-.576M695.05 495.96h-.577M694.463 495.96h-.576M693.89 495.96l-.577-.097M693.316 495.866h-.576M692.743 495.866h-.576M692.17 495.866h-.577M691.583 495.866h-.672M690.916 495.866h-.576M690.343 495.866h-.672M689.663 495.866h-.576M689.09 495.866h-.673M688.423 495.866h-.672M687.743 495.866h-.672M687.076 495.866h-.672M686.41 495.866h-.672M685.73 495.866h-.672M685.05 495.866h-.672M684.383 495.866h-.672M683.716 495.866h-.768M682.943 495.866h-.672M682.276 495.866h-.768M681.503 495.866h-.672M680.836 495.866h-.384M680.45 495.866h-.384M680.063 495.866h-.768M679.29 495.866h-.768M678.53 495.866h-.768M677.756 495.866h-.768M676.996 495.866h-.864M676.13 495.866h-.768M675.356 495.866l-.864-.096M674.49 495.773h-.768M673.73 495.773h-.864M672.863 495.773H672M671.997 495.773h-.866M671.13 495.773h-.864M670.277 495.773h-.864M669.41 495.773h-.864M668.543 495.773h-.96M667.583 495.773h-.864M666.717 495.773h-.96M665.757 495.773h-.864M664.89 495.773h-.96M663.93 495.773h-.959M662.97 495.773h-.96M662.01 495.773h-1.057M660.957 495.773h-.959M659.997 495.773h-.96M659.037 495.773h-1.057M657.984 495.773h-1.055M656.93 495.773h-.96M655.97 495.773h-1.057M654.917 495.773h-1.152M653.757 495.773h-1.055M652.704 495.773h-1.058M651.65 495.773h-1.15M650.49 495.773h-1.056M649.437 495.773h-1.152M648.29 495.773h-1.153M647.13 495.773l-1.15-.096M645.984 495.666h-1.152M644.837 495.666h-1.248M643.584 495.666h-1.152M642.437 495.666h-1.248M641.184 495.666h-1.248M639.93 495.666h-1.247M638.69 495.666h-.575M638.117 495.666h-.672M637.437 495.666h-1.248M636.197 495.666h-1.248M634.944 495.666H633.6M633.597 495.666h-1.343M632.25 495.666h-.671M631.584 495.666h-.672M630.918 495.666h-1.344M629.57 495.666h-1.343M628.224 495.666h-1.344M626.878 495.666h-1.44M625.438 495.666h-.672M624.771 495.666h-.672M624.091 495.666h-1.44M622.651 495.666h-1.44M621.211 495.666h-1.536M619.678 495.666h-1.44M618.238 495.666h-.768M617.478 495.666l-1.44-.096M616.038 495.573h-.768M615.265 495.573h-.768M614.491 495.573l-.768.096M613.731 495.666h-1.536M612.198 495.666h-1.536M610.651 495.666h-.864M609.798 495.666h-1.536M608.251 495.666l-1.631-.096M606.625 495.573h-.768M605.852 495.573h-.864M604.998 495.573h-.768M604.225 495.573h-.864M603.358 495.573l-.864.096M602.492 495.666h-1.632M600.865 495.666l-1.632-.096M599.238 495.573h-.864M598.372 495.573h-.864M597.505 495.573h-.864M596.638 495.573h-.864M595.772 495.573h-1.728M594.052 495.573h-1.824M592.225 495.573h-.864M591.359 495.573h-.864M590.492 495.573h-.96M589.532 495.573h-.864M588.679 495.573h-1.824M586.852 495.573h-1.824M585.025 495.573h-.96M584.065 495.573h-.864M583.199 495.573h-1.92M581.279 495.573h-.959M580.319 495.573h-.961M579.359 495.573h-.961M578.399 495.573h-.96M577.439 495.573h-1.919M575.519 495.573h-.96M574.559 495.573h-.961M573.599 495.573h-2.016M571.586 495.573h-.96M570.626 495.573h-1.058M569.572 495.573h-2.014M567.56 495.573h-.962M566.6 495.573h-1.057M565.546 495.573h-1.057M564.48 495.573h-.96M563.52 495.573l-2.113-.096M561.413 495.48h-1.056M560.36 495.48l-1.057.095M559.306 495.573h-1.056M558.24 495.573h-1.057M557.186 495.573h-1.056M556.133 495.573h-1.056M555.08 495.573l-2.208-.096M552.866 495.48h-1.056M551.813 495.48h-1.152M550.666 495.48h-1.056M549.6 495.48h-1.152M548.453 495.48h-1.056M547.4 495.48h-1.152M546.24 495.48h-1.152M545.093 495.48h-1.056M544.04 495.48h-2.304M541.733 495.48h-1.152M540.586 495.48h-1.151M539.427 495.48h-1.152M538.28 495.48h-1.152M537.12 495.48h-1.152M535.973 495.48h-1.248M534.72 495.48h-1.152M533.573 495.48h-1.152M532.427 495.48h-1.248M531.173 495.48h-1.152M530.027 495.48l-1.248-.097M528.773 495.386h-1.152M527.627 495.386h-1.248M526.374 495.386h-1.248M525.12 495.386h-1.152M523.974 495.386h-1.248M522.72 495.386h-1.248M521.48 495.386h-1.248M520.227 495.386h-1.248M518.987 495.386h-1.248M517.734 495.386h-1.248M516.48 495.386l-1.248-.096M515.24 495.293h-1.344M513.894 495.293h-1.248M512.64 495.293h-1.249M511.4 495.293h-1.342M510.054 495.293h-1.248M508.8 495.293h-1.345M507.454 495.293l-1.247-.096M506.214 495.186h-1.345M504.867 495.186h-1.342M503.52 495.186h-1.345M502.174 495.186h-1.248M500.934 495.186l-1.342-.096M499.588 495.093h-1.346M498.24 495.093h-1.342M496.908 495.093l-1.346-.096M495.56 495h-1.439M494.121 495h-1.344M492.774 495l-1.344-.097M491.428 494.906h-1.439M489.988 494.906l-1.346-.096M488.641 494.813h-1.344M487.294 494.813l-1.44-.096M485.855 494.706h-1.44M484.415 494.706l-1.344-.096M483.081 494.613h-1.44M481.641 494.613l-1.44-.096M480.201 494.52l-1.44-.097M478.761 494.426h-1.44M477.321 494.426l-1.344-.096M475.975 494.333l-1.536-.096M474.441 494.226l-1.44-.096M473.002 494.133l-1.44-.096M471.562 494.04l-1.44-.097M470.122 493.946l-1.44-.096M468.682 493.853l-1.536-.096M467.135 493.746l-1.44-.192M465.695 493.56l-1.536-.097M464.162 493.466l-1.44-.192M462.722 493.266l-1.536-.096M461.188 493.173l-1.44-.192M459.749 492.986l-1.536-.192M458.215 492.786l-1.536-.192M456.682 492.6l-1.536-.193M455.135 492.413l-1.536-.192M453.602 492.213l-1.536-.192M452.069 492.026l-1.536-.288M450.535 491.733l-1.536-.288M449.002 491.453l-1.536-.288M447.455 491.16l-1.535-.289M445.922 490.866l-1.536-.288M444.389 490.586l-1.632-.384M442.762 490.2l-1.536-.289M441.216 489.906l-1.632-.48M439.589 489.426l-1.536-.384M438.056 489.053l-1.632-.384M436.416 488.666l-1.632-.48M434.79 488.186l-1.537-.48M433.256 487.706l-1.632-.576M431.616 487.133l-1.632-.576M429.99 486.546l-1.633-.576M428.363 485.973l-1.632-.576M426.723 485.4l-1.632-.673M425.096 484.733l-1.632-.672M423.456 484.053l-1.632-.768M421.83 483.293l-1.633-.768M420.203 482.52l-1.728-.864M418.47 481.653l-1.632-.864M416.843 480.786l-1.632-.864M415.203 479.933l-1.728-.96M413.483 478.973l-1.632-.96M411.843 478.013l-1.728-1.056M410.123 476.946l-1.632-1.152M408.483 475.8l-1.728-1.056M406.763 474.746l-1.728-1.248M405.03 473.493l-1.728-1.152M403.297 472.346l-1.728-1.344M401.577 471l-1.728-1.248M399.843 469.747l-1.728-1.344M398.123 468.413l-1.728-1.44M396.39 466.973l-1.728-1.44M394.657 465.533l-1.728-1.536M392.937 463.987l-1.728-1.44M391.204 462.547l-1.728-1.632M389.484 460.92l-1.824-1.537M387.657 459.387l-1.728-1.632M385.924 457.747l-1.728-1.63M384.204 456.12l-1.824-1.633M382.377 454.494l-1.824-1.728M380.55 452.76l-1.727-1.632M378.817 451.134l-1.824-1.728M377.004 449.4l-1.728-1.728M375.27 447.667l-1.823-1.727M373.444 445.947l-1.824-1.633M371.617 444.307l-1.824-1.726M369.804 442.587l-1.824-1.633M367.977 440.947l-1.823-1.63M366.15 439.32l-1.823-1.633M364.324 437.694l-1.824-1.536M362.498 436.147l-1.824-1.536M360.684 434.614l-1.824-1.536M358.858 433.08l-1.824-1.44M357.031 431.64l-1.921-1.342M355.111 430.294l-1.824-1.345M353.285 428.948l-1.823-1.248M351.458 427.708l-1.92-1.152M349.538 426.548l-1.825-1.152M347.725 425.401l-1.92-.96M345.805 424.441l-1.823-.96M343.978 423.481l-1.92-.864M342.058 422.614l-1.921-.766M340.138 421.854l-1.824-.673M338.312 421.174l-1.92-.574M336.392 420.601l-1.922-.575M334.472 420.028l-1.919-.48M332.552 419.548l-1.922-.384M330.632 419.161l-1.92-.288M328.712 418.868l-1.824-.288M326.885 418.588l-1.92-.194M324.965 418.388l-1.92-.095M323.045 418.294l-2.016-.193M321.032 418.108l-1.92-.095M319.112 418.014h-1.92M317.192 418.014l-1.92-.096M315.272 417.908h-1.92M313.352 417.908h-1.92M311.432 417.908l-2.016-.098M309.419 417.814h-1.92M307.499 417.814h-1.92M305.579 417.814h-.96M304.62 417.814h-2.017M302.606 417.814h-1.92M300.686 417.814h-2.016M298.66 417.814h-.96M297.7 417.814h-1.92M295.78 417.814h-2.017M293.766 417.814h-1.92M291.846 417.814h-2.016M289.833 417.814h-1.92M287.913 417.814h-2.016M285.9 417.814h-2.016M283.886 417.814l-1.92-.094M281.966 417.721h-2.016M279.94 417.721h-1.92M278.02 417.721h-2.016M276.006 417.721h-2.016M273.993 417.721h-1.92M272.073 417.721h-2.016M270.06 417.721h-2.016M268.047 417.721h-2.016M266.02 417.721h-1.92M264.1 417.721l-2.016-.096M262.087 417.628h-.96M261.127 417.628h-2.016M259.114 417.628h-2.016M257.1 417.628h-1.92M255.18 417.628h-2.016M253.167 417.628h-.96M252.207 417.628l-2.016-.096M250.18 417.534h-1.056M249.127 417.534h-1.92M247.207 417.534h-2.016M245.194 417.534l-2.016-.096M243.18 417.428h-.96M242.22 417.428h-1.92M240.3 417.428h-2.015M238.287 417.428l-2.016-.096M236.26 417.335h-1.92M234.34 417.335l-2.015-.096M232.328 417.241h-1.92M230.408 417.241l-2.016-.096M228.394 417.148h-.96M227.434 417.148l-1.92-.096M225.514 417.055l-2.016-.096M223.501 416.948l-1.92-.097M221.581 416.855l-1.92-.095M219.661 416.761h-1.056M218.608 416.761l-1.92-.192M216.688 416.575l-1.44-.096M215.248 416.468l-1.44-.096M213.808 416.375l-.96-.096M212.848 416.281l-1.92-.096M210.928 416.188l-1.92-.288M209.008 415.895l-1.92-.192M207.088 415.708l-.96-.192M206.128 415.508l-1.92-.288M204.208 415.228l-1.92-.48M202.288 414.748l-1.92-.576M200.368 414.175l-1.824-.672M198.542 413.495l-1.92-.768M196.622 412.735l-.864-.768M195.755 411.961l-1.92-1.056M193.835 410.908l-.96-.672M192.875 410.228l-.864-.576M192.009 409.655l-.48-.48M191.529 409.175l-.48-.576M191.049 408.601l-.864-.768M190.182 407.828l-.48-.768M189.702 407.068l-.96-1.152M188.742 405.908l-.672-.864M188.075 405.055l-.384-.96M187.689 404.095l-.48-1.344M187.209 402.748l-.48-1.152M186.729 401.588l-.288-1.152M186.449 400.442l-.384-1.92M186.062 398.522l-.48-1.536M185.582 396.988l-.192-1.056M185.382 395.935l-.288-1.344M185.102 394.588l-.288-1.728M184.809 392.855l-.384-1.248M184.422 391.615l-.192-1.056M184.235 390.549l-.288-.768M183.942 389.789l-.096-.672M183.849 389.109l-.192-.864M183.662 388.255l-.192-.672M183.462 387.575l-.192-.48M183.275 387.095l-.096-.576M183.182 386.522l-.288-.672M182.889 385.855l-.192-.48M182.702 385.375l-.096-.288M182.609 385.082l-.192-.48M182.409 384.602l-.288-.48M182.129 384.122l-.096-.192M182.022 383.935l-.192-.288M181.835 383.642l-.096-.384M181.742 383.255l-.384-.384M181.355 382.869l-.192-.192M181.169 382.682l-.192-.288M180.969 382.389l-.288-.288M180.689 382.109l-.192-.192M180.489 381.909l-.288-.192M180.209 381.722l-.192-.192M180.009 381.535l-.192-.192M179.822 381.335l-.288-.192M179.529 381.149l-.288-.096M179.249 381.055l-.192-.192M179.049 380.855l-.288-.19M178.769 380.669l-.384-.194M178.382 380.469l-.192-.095M178.182 380.375l-.192-.193M177.996 380.189l-.48-.288M177.516 379.895l-.48-.19M177.036 379.709l-.384-.194M176.649 379.509l-.288-.095M176.369 379.415l-.192-.097M176.169 379.322l-.384-.288M175.782 379.029l-.864-.384M174.929 378.655l-.96-.382M173.969 378.269l-1.248-.288M172.716 377.975l-.672-.288M172.049 377.695l-1.44-.288M170.61 377.402l-1.345-.288M169.262 377.109l-.768-.096M168.49 377.016l-.48-.096M168.01 376.922h-.385M167.622 376.922l-.48-.096M167.142 376.829l-.288-.096M166.862 376.736h-.287M166.57 376.736h-.289M166.29 376.736l-.385-.096M165.903 376.629l-.576-.096M165.33 376.536h-.289M165.036 376.536l-.384-.096M164.65 376.442h-.385M164.263 376.442h-.384M163.89 376.442l-.385-.096M163.503 376.349h-.288M163.21 376.349h-.193M163.023 376.349h-.384M162.636 376.349h-.384M162.25 376.349h-.193M162.063 376.349l-.192-.096M161.863 376.256h-.48M161.383 376.256l-.384.096M161.01 376.349h-.385M160.623 376.349h-.288M160.33 376.349h-.289M160.05 376.349h-.577M159.463 376.349h-.384M159.09 376.349h-.289M158.796 376.349h-.192M158.61 376.349h-.289M158.316 376.349h-.192M158.13 376.349h-.289M157.836 376.349h-.192M157.65 376.349h-.193M157.45 376.349h-.193M157.263 376.349h-.192M157.063 376.349h-.384M156.69 376.349h-.385M156.303 376.349h-.384M155.916 376.349h-.384M155.53 376.349h-.193M155.343 376.349h-.192M155.143 376.349h-.384M154.77 376.349h-.385M154.383 376.349h-.384M153.996 376.349h-.384M153.61 376.349h-.384M153.223 376.349h-.384M152.85 376.349h-.384M152.463 376.349h-.288M152.17 376.349h-.384M151.783 376.349h-.384M151.41 376.349h-.192M151.21 376.349h-.192M151.023 376.349h-.384M150.636 376.349h-.288M150.343 376.349h-.384M149.97 376.349h-.384M149.583 376.349h-.384M149.196 376.349h-.288M148.903 376.349h-.192M148.716 376.349h-.192M148.53 376.349h-.384M148.143 376.349h-.288M147.85 376.349h-.384M147.463 376.349h-.384M147.09 376.349h-.288M146.796 376.349h-.384M146.41 376.349h-.288M146.13 376.349h-.384M145.743 376.349h-.192M145.543 376.349h-.096M145.45 376.349h-.384M145.063 376.349h-.288M144.783 376.349h-.384M144.396 376.349h-.288M144.103 376.349h-.384M143.73 376.349h-.288M143.436 376.349h-.192M143.25 376.349h-.096M143.143 376.349h-.384M142.77 376.349h-.288M142.476 376.349h-.288M142.183 376.349h-.384M141.81 376.349h-.288M141.516 376.349h-.288M141.223 376.349h-.288M140.943 376.349h-.288M140.65 376.349h-.288M140.37 376.349h-.384M139.983 376.349h-.288M139.69 376.349h-.288M139.41 376.349h-.288M139.117 376.349h-.288M138.823 376.349h-.288M138.543 376.349h-.288M138.25 376.349h-.288M137.97 376.349h-.288M137.677 376.349h-.288M137.383 376.349h-.288M137.103 376.349h-.192M136.903 376.349h-.288M136.623 376.349h-.096M136.53 376.349h-.192M136.33 376.349h-.192M136.143 376.349h-.288M135.85 376.349h-.288M135.57 376.349h-.192M135.37 376.349h-.288M135.09 376.349h-.288M134.797 376.349h-.192M134.61 376.349h-.19M134.41 376.349h-.29M134.13 376.349h-.192M133.93 376.349h-.288M133.65 376.349h-.192M133.45 376.349h-.096M133.357 376.349h-.096M133.26 376.349h-.287M132.973 376.349h-.192M132.78 376.349h-.192M132.589 376.349h-.192M132.397 376.349h-.192M132.205 376.349h-.192M132.013 376.349h-.192M131.82 376.349h-.192M131.629 376.349h-.096M131.533 376.349h-.192M131.34 376.349h-.19M131.149 376.349h-.097M131.053 376.349h-.192M130.86 376.349h-.191M130.669 376.349h-.192M130.477 376.349h-.096M130.38 376.349h-.095M130.285 376.349h-.192M130.093 376.349h-.096M129.997 376.349h-.096M129.9 376.349h-.096M129.805 376.349h-.096M129.709 376.349h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M176.556 391.322v7.488M176.556 393.428l1.536-1.536M178.089 391.895l1.056-.576M179.142 391.322h1.632M180.782 391.322l1.056.576M181.835 391.895l.576 1.536M182.409 393.428v5.376M187.689 389.695l1.056-.48M188.742 389.215l1.632-1.632M190.382 387.575v11.232M202.088 387.575l-5.376 7.488M196.715 395.068h7.968M202.088 387.575v11.232M297.513 401.402v7.487M297.513 403.508l1.536-1.536M299.046 401.975l1.056-.576M300.1 401.402h1.631M301.74 401.402l1.055.576M302.792 401.975l.576 1.536M303.366 403.508v5.376M308.646 399.868l1.056-.576M309.699 399.295l1.632-1.536M311.339 397.748v11.136M323.045 397.748l-5.376 7.392M317.672 405.148h7.968M323.045 397.748v11.136M418.47 470.813v7.488M418.47 472.92l1.535-1.536M420.003 471.386l1.056-.576M421.056 470.813h1.632M422.696 470.813l1.056.576M423.75 471.386l.575 1.536M424.323 472.92v5.376M429.603 469.267l1.056-.576M430.656 468.693l1.632-1.536M432.296 467.16v11.136M444.002 467.16l-5.376 7.392M438.629 474.546h7.968M444.002 467.16v11.136M539.427 479.066v7.488M539.427 481.173l1.535-1.536M540.96 479.64l1.056-.576M542.013 479.066h1.632M543.653 479.066l1.056.576M544.706 479.64l.576 1.536M545.28 481.173v5.376M550.56 477.426l1.056-.48M551.613 476.946l1.632-1.632M553.253 475.32v11.231M564.96 475.32l-5.377 7.488M559.586 482.813h7.968M564.96 475.32v11.231M660.383 479.346v7.488M660.383 481.466l1.536-1.536M661.917 479.933l1.056-.576M662.97 479.346h1.632M664.61 479.346l1.056.576M665.663 479.933l.576 1.536M666.237 481.466v5.376M671.517 477.813l1.056-.576M672.57 477.24l1.632-1.536M674.21 475.706v11.136M685.916 475.706l-5.376 7.392M680.543 483.093h7.968M685.916 475.706v11.136"/></g></g><g stroke="#daa520"><g stroke-width="28.8"><path stroke-width="3.839904" d="M734.395 712.62v-.288M734.395 712.34v.096M734.395 712.434v-.096M734.395 712.34v-.192M734.395 712.14v-.096M734.395 712.047v-.096M734.395 711.954v-.096M734.395 711.86v.096M734.395 711.954v-.096M734.395 711.86v-.096M734.395 711.767v-.096M734.395 711.66v.096M734.395 711.767v.096M734.395 711.86v-.096M734.395 711.767v-.096M734.395 711.66v-.096M734.395 711.567v.096M734.395 711.66v.096M734.395 711.767v-.192M734.395 711.567v-.096M734.395 711.474v-.096M734.395 711.38v-.096M734.395 711.287v-.096M734.395 711.18v-.767M734.395 710.42v-3.551M734.395 706.86v-5.183M734.395 701.687v-7.103M734.395 694.58v-7.87M734.395 686.701v-15.264M734.395 671.448v-18.72M734.395 652.729V637.56M734.395 637.556v-10.368M734.395 627.183v-7.104M734.395 620.09v-7.488M734.395 612.596v-8.831M734.395 603.77v-9.792M734.395 593.97v-4.032M734.395 589.944v-2.304M734.395 587.637V586.1M734.395 586.104v-.672M734.395 585.424v-.384M734.395 585.05v-.576M734.395 584.464v-.576M734.395 583.89v-.384M734.395 583.504v-.288M734.395 583.224v-.384M734.395 582.837v-.576M734.395 582.264v-1.056M734.395 581.21v-1.056M734.395 580.144v-1.056M734.395 579.09v-.96M734.395 578.13v-1.055M734.395 577.077v-1.248M734.395 575.824v-1.536M734.395 574.29v-1.823M734.395 572.464v-2.208M734.395 570.264v-3.744M734.395 566.517v-5.375M734.395 561.144v-4.128M734.395 557.011v-3.552M734.395 553.464v-2.592M734.395 550.864v-4.127M734.395 546.745v-4.896M734.395 541.851v-3.456M734.395 538.385v-5.472M734.395 532.918v-8.064M734.395 524.852v-17.088M734.395 507.772v-.288M734.395 507.479v-.672M734.395 506.812v-.384M734.395 506.426v-.384M734.395 506.039v-.672M734.395 505.372v-1.728M734.395 503.639v-1.632M734.395 502.012v-1.344M734.395 500.666v-1.728M734.395 498.932v-2.207M734.395 496.733v-3.936M734.395 492.786V480.69M734.395 480.693v-8.35M734.395 472.346v-3.745M734.395 468.6v-1.824M734.395 466.773v-.96M734.395 465.813v-.576M734.395 465.24v-.48M734.395 464.76v-6.144M734.395 458.613v-2.782M734.395 455.827v-3.36M734.395 452.467v-4.032M734.395 448.44v-3.936M734.395 444.507v-3.84M734.395 440.667v-5.376M734.395 435.294v-3.072M734.395 432.214v-2.494M734.395 429.72v-3.936M734.395 425.788h-.096M734.302 425.788v-2.112M734.302 423.668v-1.727M734.302 421.948v-1.442M734.302 420.508v-1.152M734.302 419.348v-.864M734.302 418.494v-.672M734.302 417.814v-.575M734.302 417.241v-.478M734.302 416.761v-.385M734.302 416.375v-.384M734.302 415.988v-.383M734.302 415.615v-.288M734.302 415.321v-.385M734.302 414.935v-.287M734.302 414.655v-.288M734.302 414.361v-.288M734.302 414.068v-.384M734.302 413.695v-.288M734.302 413.401v-.288M734.302 413.108v-.385M734.302 412.735v-.383M734.302 412.348v-.384M734.302 411.961v-.384M734.302 411.575v-.386M734.302 411.188v-.479M734.302 410.708v-.384M734.302 410.335v-.48M734.302 409.855v-.482M734.302 409.375v-.479M734.302 408.895v-.48M734.302 408.415v-.48M734.302 407.935v-.384M734.302 407.548v-.384M734.302 407.161v-.48M734.302 406.681v-.288M734.302 406.388v-.384M734.302 406.015v-.288M734.302 405.721v-.288M734.302 405.428v-.192M734.302 405.241v-.192M734.302 405.055v-.194M734.302 404.855v-.19M734.302 404.668v-.096M734.302 404.575v-.192M734.302 404.375v-.096M734.302 404.281v-.192M734.302 404.095v-.096M734.302 403.988v-.096M734.302 403.895v-.192M734.302 403.708v-.096M734.302 403.615v-.192M734.302 403.415v-.096M734.302 403.322v-.192M734.302 403.135v-.096M734.302 403.028v-.192M734.302 402.842v-.096M734.302 402.748v-.192M734.302 402.548v-.096M734.302 402.455l-.096-.192M734.208 402.268v-.192M734.208 402.068v-.096M734.208 401.975v-.192M734.208 401.788v-.192M734.208 401.588v-.192M734.208 401.402v-.192M734.208 401.215v-.192M734.208 401.015v-.192M734.208 400.828v-.192M734.208 400.628v-.192M734.208 400.442v-.192M734.208 400.255v-.192M734.208 400.055v-.192M734.208 399.868v-.192M734.208 399.668v-.192M734.208 399.482v-.192M734.208 399.295v-.192M734.208 399.095v-.096M734.208 399.002v-.192M734.208 398.815v-.096M734.208 398.708v-.096M734.208 398.615v-.096M734.208 398.522v-.096M734.208 398.428v-.096M734.208 398.335v-.096M734.208 398.228v-.096M734.208 398.135v-.096M734.208 398.042v-.096M734.208 397.948v-.096M734.208 397.855h-.096M734.115 397.855v-.096M734.115 397.748v-.096M734.115 397.655v-.096M734.115 397.562v-.096M734.115 397.468v-.096M734.115 397.375v-.096M734.115 397.268v-.096M734.115 397.175v-.096M734.115 397.082v-.096M734.115 396.988v-.096M734.115 396.895v-.096M734.115 396.788v-.096M734.115 396.695v-.096M734.115 396.602v-.096M734.115 396.508v-.096M734.115 396.415v-.096M734.115 396.308v-.096M734.115 396.215l-.096-.096M734.008 396.122v-.096M734.008 396.028v-.096M734.008 395.935v-.096M734.008 395.828v-.096M734.008 395.735v-.096M734.008 395.642v-.096M734.008 395.548v-.096M734.008 395.455v-.096M734.008 395.348v-.096M734.008 395.255v-.096M734.008 395.162h-.096M733.915 395.162v-.096M733.915 395.068v-.096M733.915 394.975v-.096M733.915 394.868v-.096M733.915 394.775v-.096M733.915 394.682v-.096M733.915 394.588v-.096M733.915 394.495l-.096-.096M733.822 394.388v-.096M733.822 394.295v-.096M733.822 394.202v-.096M733.822 394.108v-.096M733.822 394.015v-.096M733.822 393.908l-.096-.096M733.728 393.815v-.096M733.728 393.722v-.096M733.728 393.628v-.096M733.728 393.535v-.096M733.728 393.428h-.096M733.635 393.428v-.096M733.635 393.335v-.096M733.635 393.242v-.096M733.635 393.148v-.097M733.635 393.055v-.096M733.635 392.948h-.096M733.528 392.948v-.096M733.528 392.855v-.096M733.528 392.762v-.096M733.528 392.668v-.096M733.528 392.575v-.192M733.528 392.375l-.096-.096M733.435 392.282v-.192M733.435 392.095v-.19M733.435 391.895v-.193M733.435 391.708v-.288M733.435 391.415v-.19M733.435 391.228l-.097-.192M733.342 391.028v-.288M733.342 390.748v-.193M733.342 390.549v-.288M733.342 390.269v-.192M733.342 390.069v-.194M733.342 389.882l-.096-.095M733.248 389.789v-.096M733.248 389.695v-.097M733.248 389.589v-.095M733.248 389.495h-.094M733.155 389.495v.095M733.155 389.589v.097M733.155 389.695l-.096.096M733.048 389.789v.094M733.048 389.882v.097M733.048 389.975l-.096.096M732.955 390.069v.094M732.955 390.175v.098M732.955 390.269h-.096M732.862 390.269l-.096.096M732.768 390.362h-.096M732.675 390.362l-.096-.096M732.568 390.269l-.096-.098M732.475 390.175v-.094M732.475 390.069l-.096-.096M732.382 389.975v-.097M732.382 389.882v-.19M732.382 389.695l-.096-.096M732.288 389.589v-.096M732.288 389.495v-.096M732.288 389.402l-.096-.192M732.195 389.215v-.096M732.195 389.109v-.096M732.195 389.015h-.096M732.088 389.015v-.096M732.088 388.922h-.096M731.995 388.922h-.096M731.902 388.922l-.096.096M731.808 389.015h-.096M731.715 389.015v.096M731.715 389.109h-.096M731.608 389.109v.096M731.608 389.215h-.096M731.515 389.215h-.096M731.422 389.215v.096M731.422 389.309h-.096M731.328 389.309v.096M731.328 389.402h-.096M731.235 389.402h-.097M731.128 389.402v.096M731.128 389.495h-.096M731.035 389.495h-.096M730.942 389.495h-.095M730.848 389.495l-.097.096M730.755 389.589h-.096M730.648 389.589l-.094-.096M730.555 389.495h-.097M730.462 389.495h-.098M730.368 389.495h-.094M730.275 389.495h-.096M730.182 389.495h-.098M730.075 389.495h-.095M729.982 389.495h-.096M729.888 389.495h-.096M729.795 389.495h-.096M729.702 389.495l-.096-.096M729.595 389.402h-.096M729.502 389.402h-.096M729.408 389.402h-.096M729.315 389.402h-.096M729.222 389.402h-.096M729.115 389.402l-.096-.096M729.022 389.309h-.096M728.928 389.309h-.096M728.835 389.309h-.096M728.742 389.309h-.096M728.635 389.309h-.096M728.542 389.309h-.096M728.448 389.309h-.096M728.355 389.309h-.096M728.262 389.309h-.096M728.155 389.309h-.096M728.062 389.309h-.096M727.968 389.309h-.096M727.875 389.309h-.096M727.782 389.309h-.096M727.675 389.309h-.096M727.582 389.309h-.192M727.395 389.309h-.096M727.302 389.309h-.096M727.195 389.309h-.096M727.102 389.309h-.096M727.008 389.309h-.192M726.822 389.309l-.096-.096M726.715 389.215h-.096M726.622 389.215h-.096M726.529 389.215h-.192M726.342 389.215h-.096M726.235 389.215h-.096M726.142 389.215h-.192M725.955 389.215h-.097M725.862 389.215h-.19M725.662 389.215l-.097-.096M725.569 389.109h-.194M725.382 389.109h-.095M725.289 389.109h-.194M725.089 389.109h-.095M724.995 389.109h-.193M724.795 389.109h-.094M724.702 389.109h-.193M724.515 389.109h-.094M724.422 389.109l-.193-.096M724.222 389.015h-.19M724.035 389.015h-.097M723.942 389.015h-.192M723.742 389.015h-.192M723.555 389.015h-.192M723.369 389.015h-.096M723.262 389.015h-.192M723.075 389.015h-.192M722.889 389.015h-.194M722.689 389.015h-.192M722.502 389.015l-.192-.096M722.302 388.922h-.192M722.115 388.922h-.192M721.929 388.922h-.192M721.729 388.922h-.192M721.542 388.922h-.192M721.342 388.922h-.192M721.155 388.922h-.192M720.969 388.922h-.192M720.769 388.922h-.288M720.489 388.922h-.192M720.289 388.922h-.192M720.102 388.922l-.192-.096M719.902 388.829h-.288M719.622 388.829h-.192M719.422 388.829h-.288M719.142 388.829h-.192M718.942 388.829h-.288M718.662 388.829h-.192M718.462 388.829h-.288M718.182 388.829h-.192M717.982 388.829h-.288M717.702 388.829h-.192M717.502 388.829h-.288M717.222 388.829h-.288M716.929 388.829l-.288-.096M716.649 388.735h-.288M716.355 388.735h-.192M716.155 388.735h-.288M715.875 388.735h-.288M715.582 388.735h-.288M715.289 388.735H715M715.009 388.735h-.288M714.715 388.735h-.288M714.435 388.735h-.384M714.049 388.735h-.288M713.755 388.735h-.288M713.475 388.735h-.287M713.182 388.735h-.384M712.796 388.735h-.288M712.516 388.735h-.384M712.129 388.735l-.288-.096M711.836 388.629h-.384M711.449 388.629h-.288M711.169 388.629h-.384M710.782 388.629h-.384M710.396 388.629h-.29M710.116 388.629h-.384M709.729 388.629h-.384M709.342 388.629h-.384M708.956 388.629h-.384M708.569 388.629h-.385M708.196 388.629h-.384M707.809 388.629h-.384M707.422 388.629h-.384M707.036 388.629h-.386M706.649 388.629h-.479M706.169 388.629h-.385M705.796 388.629h-.386M705.409 388.629l-.479-.096M704.929 388.535h-.193M704.729 388.535h-.192M704.542 388.535h-.48M704.062 388.535h-.48M703.582 388.535h-.382M703.196 388.535h-.48M702.716 388.535h-.48M702.236 388.535h-.482M701.756 388.535h-.479M701.276 388.535h-.48M700.796 388.535h-.48M700.316 388.535h-.48M699.836 388.535h-.48M699.356 388.535h-.576M698.783 388.535h-.48M698.303 388.535h-.48M697.823 388.535h-.576M697.25 388.535h-.577M696.676 388.535h-.48M696.196 388.535h-.576M695.61 388.535h-.577M695.036 388.535h-.576M694.463 388.535h-.576M693.89 388.535h-.577M693.316 388.535h-.576M692.73 388.535h-.577M692.156 388.535l-.576-.096M691.583 388.442h-.672M690.916 388.442h-.576M690.33 388.442h-.673M689.663 388.442h-.576M689.09 388.442h-.673M688.41 388.442h-.673M687.743 388.442h-.672M687.076 388.442h-.672M686.396 388.442h-.672M685.73 388.442h-.672M685.05 388.442h-.672M684.383 388.442h-.672M683.716 388.442h-.768M682.943 388.442h-.672M682.276 388.442h-.768M681.503 388.442h-.672M680.836 388.442h-.385M680.45 388.442h-.384M680.063 388.442h-.768M679.29 388.442h-.768M678.53 388.442h-.768M677.756 388.442h-.768M676.996 388.442h-.864M676.13 388.442h-.768M675.356 388.442h-.864M674.503 388.442h-.77M673.73 388.442h-.864M672.863 388.442H672M671.997 388.442l-.864-.096M671.143 388.349h-.864M670.277 388.349h-.864M669.41 388.349h-.865M668.543 388.349h-.958M667.583 388.349h-.864M666.717 388.349h-.96M665.757 388.349h-.864M664.903 388.349h-.96M663.943 388.349h-.96M662.983 388.349h-.96M662.01 388.349h-1.055M660.957 388.349h-.96M659.997 388.349h-.96M659.037 388.349h-1.056M657.984 388.349h-1.058M656.93 388.349h-.961M655.97 388.349h-1.054M654.917 388.349h-1.152M653.757 388.349H652.7M652.704 388.349h-1.056M651.65 388.349h-1.152M650.504 388.349h-1.056M649.437 388.349h-1.152M648.29 388.349h-1.152M647.144 388.349h-1.152M645.984 388.349h-1.152M644.837 388.349h-1.248M643.584 388.349h-1.152M642.437 388.349h-1.248M641.184 388.349h-1.248M639.944 388.349l-1.248-.096M638.69 388.255h-.575M638.117 388.255h-.672M637.437 388.255h-1.248M636.197 388.255h-1.248M634.944 388.255H633.6M633.597 388.255h-1.343M632.264 388.255h-.672M631.584 388.255h-.672M630.918 388.255h-1.344M629.57 388.255h-1.343M628.224 388.255h-1.344M626.878 388.255h-1.44M625.438 388.255h-.672M624.771 388.255h-.672M624.104 388.255h-1.44M622.664 388.255h-1.44M621.224 388.255h-1.535M619.678 388.255h-1.44M618.238 388.255h-.768M617.478 388.255h-1.44M616.038 388.255h-.768M615.265 388.255h-.768M614.505 388.255h-.768M613.731 388.255h-1.536M612.198 388.255h-1.536M610.665 388.255h-.864M609.798 388.255h-1.536M608.265 388.255h-1.632M606.625 388.255h-.768M605.865 388.255H605M604.998 388.255h-.768M604.225 388.255h-.864M603.358 388.255h-.864M602.505 388.255h-1.632M600.865 388.255h-1.632M599.238 388.255l-.864-.096M598.372 388.149h-.864M597.505 388.149h-.864M596.652 388.149l-.866.096M595.785 388.255h-1.728M594.052 388.255l-1.824-.096M592.225 388.149h-.864M591.359 388.149h-.864M590.505 388.149h-.96M589.545 388.149l-.864.096M588.679 388.255h-1.824M586.852 388.255l-1.824-.096M585.025 388.149h-.958M584.065 388.149h-.865M583.199 388.149h-1.92M581.292 388.149h-.961M580.319 388.149h-.96M579.359 388.149h-.96M578.399 388.149h-.959M577.452 388.149h-1.921M575.519 388.149h-.96M574.559 388.149h-.96M573.599 388.149h-2.016M571.586 388.149h-.962M570.626 388.149h-1.055M569.572 388.149h-2.016M567.56 388.149h-.96M566.6 388.149h-1.057M565.546 388.149h-1.056M564.493 388.149h-.96M563.533 388.149h-2.112M561.413 388.149h-1.056M560.36 388.149h-1.057M559.306 388.149h-1.056M558.253 388.149h-1.056M557.186 388.149h-1.056M556.133 388.149h-1.056M555.08 388.149h-2.208M552.866 388.149h-1.056M551.813 388.149h-1.152M550.666 388.149h-1.056M549.613 388.149h-1.152M548.453 388.149h-1.056M547.4 388.149h-1.152M546.253 388.149h-1.152M545.093 388.149h-1.056M544.04 388.149l-2.304-.096M541.733 388.055h-1.152M540.573 388.055h-1.152M539.427 388.055h-1.152M538.28 388.055h-1.152M537.12 388.055h-1.152M535.973 388.055h-1.248M534.72 388.055h-1.152M533.573 388.055h-1.152M532.413 388.055h-1.248M531.173 388.055h-1.152M530.013 388.055h-1.248M528.773 388.055h-1.152M527.613 388.055h-1.247M526.374 388.055h-1.248M525.12 388.055h-1.152M523.974 388.055h-1.248M522.72 388.055h-1.248M521.48 388.055h-1.248M520.227 388.055h-1.248M518.974 388.055h-1.248M517.734 388.055h-1.248M516.48 388.055h-1.248M515.24 388.055h-1.344M513.894 388.055h-1.248M512.64 388.055h-1.249M511.4 388.055h-1.342M510.054 388.055h-1.248M508.8 388.055h-1.343M507.454 388.055h-1.248M506.214 388.055h-1.345M504.867 388.055h-1.342M503.52 388.055h-1.345M502.174 388.055h-1.248M500.934 388.055h-1.342M499.588 388.055h-1.346M498.24 388.055h-1.342M496.894 388.055h-1.345M495.56 388.055h-1.439M494.121 388.055h-1.343M492.774 388.055h-1.345M491.428 388.055h-1.439M489.988 388.055h-1.346M488.641 388.055h-1.343M487.294 388.055h-1.44M485.855 388.055h-1.442M484.415 388.055h-1.344M483.081 388.055h-1.44M481.641 388.055h-1.44M480.201 388.055h-1.44M478.761 388.055h-1.44M477.321 388.055h-1.344M475.975 388.055h-1.536M474.441 388.055h-1.44M473.002 388.055h-1.44M471.562 388.055l-1.44-.096M470.122 387.962h-1.44M468.682 387.962h-1.536M467.135 387.962h-1.44M465.695 387.962h-1.536M464.162 387.962h-1.44M462.722 387.962h-1.536M461.188 387.962h-1.44M459.749 387.962h-1.536M458.215 387.962h-1.536M456.682 387.962h-1.536M455.135 387.962H453.6M453.602 387.962h-1.536M452.069 387.962h-1.536M450.535 387.962H449M449.002 387.962h-1.536M447.455 387.962h-1.535M445.922 387.962h-1.536M444.389 387.962h-1.632M442.762 387.962h-1.536M441.216 387.962h-1.632M439.589 387.962h-1.536M438.056 387.962h-1.632M436.416 387.962h-1.632M434.79 387.962h-1.537M433.256 387.962h-1.632M431.616 387.962h-1.632M429.99 387.962h-1.633M428.363 387.962h-1.632M426.723 387.962h-1.632M425.096 387.962h-1.632M423.456 387.962h-1.632M421.83 387.962h-1.633M420.203 387.962h-1.728M418.47 387.962h-1.632M416.843 387.962h-1.632M415.203 387.962h-1.728M413.483 387.962h-1.632M411.843 387.962h-1.728M410.123 387.962h-1.632M408.483 387.962l-1.728-.096M406.763 387.869h-1.728M405.03 387.869h-1.728M403.297 387.869h-1.728M401.577 387.869h-1.728M399.843 387.869h-1.728M398.123 387.869h-1.728M396.39 387.869h-1.728M394.657 387.869h-1.728M392.937 387.869h-1.728M391.204 387.869h-1.728M389.484 387.869h-1.824M387.657 387.869h-1.728M385.924 387.869h-1.728M384.204 387.869h-1.824M382.377 387.869h-1.824M380.55 387.869h-1.727M378.817 387.869h-1.824M377.004 387.869h-1.728M375.27 387.869h-1.823M373.444 387.869h-1.824M371.617 387.869h-1.824M369.804 387.869h-1.824M367.977 387.869h-1.823M366.15 387.869h-1.823M364.324 387.869H362.5M362.498 387.869h-1.824M360.684 387.869h-1.824M358.858 387.869h-1.824M357.031 387.869h-1.92M355.111 387.869h-1.824M353.285 387.869h-1.824M351.458 387.869l-1.92-.096M349.538 387.775h-1.824M347.725 387.775h-1.92M345.805 387.775h-1.824M343.978 387.775h-1.921M342.058 387.775h-1.919M340.138 387.775h-1.824M338.312 387.775h-1.922M336.392 387.775h-1.919M334.472 387.775h-1.922M332.552 387.775h-1.919M330.632 387.775h-1.92M328.712 387.775h-1.826M326.885 387.775h-1.92M324.965 387.775h-1.918M323.045 387.775h-2.016M321.032 387.775h-1.921M319.112 387.775h-1.92M317.192 387.775h-1.92M315.272 387.775h-1.92M313.352 387.775h-1.918M311.432 387.775h-2.017M309.419 387.775h-1.92M307.499 387.775h-1.92M305.579 387.775h-.96M304.62 387.775h-2.017M302.592 387.775l-1.92-.096M300.672 387.669h-2.015M298.66 387.669h-.96M297.7 387.669h-1.92M295.78 387.669h-2.017M293.766 387.669h-1.92M291.846 387.669h-2.016M289.833 387.669h-1.92M287.913 387.669h-2.016M285.9 387.669h-2.016M283.873 387.669h-1.92M281.953 387.669h-2.016M279.94 387.669h-1.92M278.02 387.669h-2.016M276.006 387.669h-2.016M273.993 387.669h-1.92M272.073 387.669h-2.016M270.06 387.669h-2.016M268.033 387.669h-2.016M266.02 387.669h-1.92M264.1 387.669h-2.016M262.087 387.669h-.96M261.127 387.669h-2.016M259.114 387.669h-2.016M257.1 387.669h-1.92M255.18 387.669h-2.016M253.154 387.669h-.96M252.194 387.669h-2.016M250.18 387.669h-1.056M249.127 387.669h-1.92M247.207 387.669h-2.016M245.194 387.669h-2.016M243.18 387.669l-.96.096M242.22 387.775h-1.92M240.3 387.775h-2.015M238.274 387.775h-2.016M236.26 387.775h-1.92M234.34 387.775h-2.015M232.328 387.775l-1.92.096M230.408 387.869h-2.016M228.394 387.869h-.96M227.434 387.869h-1.92M225.514 387.869l-2.016.096M223.501 387.962h-1.92M221.581 387.962h-1.92M219.661 387.962l-1.056.096M218.595 388.055l-1.92.096M216.675 388.149h-1.44M215.235 388.149h-1.44M213.808 388.149l-.96.096M212.848 388.255l-1.92.096M210.928 388.349l-1.92.096M209.008 388.442h-1.92M207.088 388.442l-.96.096M206.128 388.535l-1.92.096M204.208 388.629h-1.92M202.288 388.629h-1.92M200.368 388.629l-1.824-.192M198.542 388.442l-1.92-.192M196.622 388.255l-.864-.192M195.755 388.055l-1.92-.384M193.835 387.669l-.96-.288M192.875 387.389l-.864-.288M192.009 387.095l-.48-.096M191.529 387.002l-.48-.288M191.049 386.709l-.864-.288M190.182 386.429l-.48-.192M189.702 386.229l-.96-.096M188.742 386.135h-.672M188.075 386.135l-.384.384M187.689 386.522l-.48.864M187.209 387.389l-.48 1.056M186.729 388.442l-.288 1.248M186.449 389.695l-.384 2.4M186.062 392.095l-.48 2.496M185.582 394.588l-.192 1.92M185.382 396.508l-.288 2.592M185.102 399.095l-.288 3.744M184.809 402.842l-.384 3.36M184.422 406.201l-.192 2.88M184.235 409.081l-.288 2.208M183.942 411.295l-.096 2.304M183.849 413.588l-.192 2.88M183.662 416.468l-.192 2.4M183.462 418.868l-.192 2.112M183.275 420.988l-.096 2.304M183.182 423.294l-.288 2.592M182.889 425.881l-.192 2.112M182.702 427.988l-.096 1.632M182.609 429.628l-.192 2.209M182.409 431.827l-.288 2.015M182.129 433.854l-.096 1.248M182.022 435.094l-.192 1.25M181.835 436.347l-.096 1.919M181.742 438.267l-.384 2.016M181.355 440.28l-.192 1.249M181.169 441.534l-.192 1.248M180.969 442.774l-.288 1.248M180.689 444.027l-.192 1.056M180.489 445.08l-.288 1.056M180.209 446.134l-.192.961M180.009 447.094l-.192 1.054M179.822 448.147l-.288 1.057M179.529 449.214l-.288.864M179.249 450.067l-.192.96M179.049 451.027l-.288 1.152M178.769 452.187l-.384.864M178.382 453.054l-.192.766M178.182 453.814l-.192.96M177.996 454.774l-.48 1.345M177.516 456.12l-.48 1.343M177.036 457.467l-.384 1.057M176.649 458.52l-.288.67M176.369 459.187l-.192 1.057M176.169 460.253l-.384 2.015M175.782 462.267l-.864 2.113M174.929 464.373l-.96 2.59M173.969 466.973l-1.248 2.498M172.716 469.467l-.672 2.302M172.049 471.773l-1.44 2.688M170.61 474.453l-1.345 1.921M169.262 476.373l-.768.96M168.49 477.333l-.48.864M168.01 478.2l-.385.576M167.622 478.773l-.48.479M167.142 479.253l-.288.481M166.862 479.733l-.287.384M166.57 480.12l-.289.288M166.29 480.413l-.385.864M165.903 481.266l-.576.096M165.33 481.373l-.289.384M165.036 481.746l-.384.576M164.65 482.333h-.385M164.263 482.333l-.384.288M163.89 482.613l-.385.192M163.503 482.813h-.288M163.21 482.813l-.193.48M163.023 483.293h-.384M162.636 483.293l-.384.384M162.25 483.666h-.193M162.063 483.666h-.192M161.863 483.666h-.48M161.383 483.666l-.384.288M161.01 483.96h-.385M160.623 483.96h-.288M160.33 483.96h-.289M160.05 483.96h-.577M159.463 483.96h-.384M159.09 483.96h-.289M158.796 483.96h-.192M158.61 483.96h-.289M158.316 483.96h-.192M158.13 483.96h-.289M157.836 483.96h-.192M157.65 483.96h-.193M157.45 483.96h-.193M157.263 483.96h-.192M157.063 483.96h-.384M156.69 483.96h-.385M156.303 483.96h-.384M155.916 483.96h-.384M155.53 483.96h-.193M155.343 483.96h-.192M155.143 483.96h-.384M154.77 483.96h-.385M154.383 483.96h-.384M153.996 483.96h-.384M153.61 483.96h-.384M153.223 483.96h-.384M152.85 483.96h-.384M152.463 483.96h-.288M152.17 483.96h-.384M151.783 483.96h-.384M151.41 483.96h-.192M151.21 483.96h-.192M151.023 483.96h-.384M150.636 483.96h-.288M150.343 483.96h-.384M149.97 483.96h-.384M149.583 483.96h-.384M149.196 483.96h-.288M148.903 483.96h-.192M148.716 483.96h-.192M148.53 483.96h-.384M148.143 483.96h-.288M147.85 483.96h-.384M147.463 483.96h-.384M147.09 483.96h-.288M146.796 483.96h-.384M146.41 483.96h-.288M146.13 483.96h-.384M145.743 483.96h-.192M145.543 483.96h-.096M145.45 483.96h-.384M145.063 483.96h-.288M144.783 483.96h-.384M144.396 483.96h-.288M144.103 483.96h-.384M143.73 483.96h-.288M143.436 483.96h-.192M143.25 483.96h-.096M143.143 483.96h-.384M142.77 483.96h-.288M142.476 483.96h-.288M142.183 483.96h-.384M141.81 483.96h-.288M141.516 483.96h-.288M141.223 483.96h-.288M140.943 483.96h-.288M140.65 483.96h-.288M140.37 483.96h-.385M139.983 483.96h-.288M139.69 483.96h-.288M139.41 483.96h-.288M139.117 483.96h-.288M138.823 483.96h-.288M138.543 483.96h-.288M138.25 483.96h-.288M137.97 483.96h-.288M137.677 483.96h-.288M137.383 483.96h-.288M137.103 483.96h-.193M136.903 483.96h-.288M136.623 483.96h-.096M136.53 483.96h-.192M136.33 483.96h-.19M136.143 483.96h-.288M135.85 483.96h-.288M135.57 483.96h-.193M135.37 483.96h-.288M135.09 483.96h-.288M134.797 483.96h-.191M134.61 483.96h-.192M134.41 483.96h-.29M134.13 483.96h-.192M133.93 483.96h-.288M133.65 483.96h-.19M133.45 483.96h-.097M133.357 483.96h-.096M133.26 483.96h-.287M132.973 483.96h-.192M132.782 483.96h-.192M132.589 483.96h-.192M132.397 483.96h-.192M132.206 483.96h-.192M132.013 483.96h-.192M131.82 483.96h-.191M131.63 483.96h-.096M131.533 483.96h-.192M131.342 483.96h-.192M131.149 483.96h-.096M131.053 483.96h-.193M130.86 483.96h-.191M130.669 483.96h-.192M130.477 483.96h-.097M130.38 483.96h-.095M130.285 483.96h-.192M130.093 483.96h-.096M129.997 483.96h-.096M129.9 483.96h-.096M129.805 483.96h-.096M129.709 483.96h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="m178.662 370.016-1.056.48M177.609 370.496l-1.056 1.056M176.556 371.549l-.576 1.632M175.982 373.176v1.056M175.982 374.229l.576 1.632M176.556 375.869l1.056 1.056M177.609 376.922l1.056.48M178.662 377.402h1.632M180.302 377.402l1.056-.48M181.355 376.922l1.056-1.056M182.409 375.869l.48-1.632M182.889 374.229v-1.056M182.889 373.176l-.48-1.632M182.409 371.549l-1.056-1.056M181.355 370.496l-1.056-.48M180.302 370.016h-1.632M187.689 368.376l1.056-.576M188.742 367.802l1.632-1.536M190.382 366.27v11.135M203.622 367.802l-.48-1.056M203.142 366.75l-1.632-.48M201.515 366.27h-1.056M200.462 366.27l-1.632.48M198.822 366.75l-1.056 1.631M197.768 368.376l-.48 2.688M197.288 371.069v2.592M197.288 373.656l.48 2.208M197.768 375.869l1.056 1.056M198.822 376.922l1.632.48M200.462 377.402h.576M201.035 377.402l1.536-.48M202.568 376.922l1.056-1.056M203.622 375.869l.576-1.632M204.208 374.229v-.576M204.208 373.656l-.576-1.536M203.622 372.122l-1.056-1.056M202.568 371.069l-1.536-.576M201.035 370.496h-.576M200.462 370.496l-1.632.576M198.822 371.069l-1.056 1.056M197.768 372.122l-.48 1.536M299.62 371.349l-1.057.48M298.566 371.829l-1.056 1.056M297.513 372.896l-.576 1.632M296.94 374.522v1.056M296.94 375.576l.575 1.536M297.513 377.109l1.056 1.152M298.566 378.269l1.056.48M299.62 378.749h1.631M301.26 378.749l1.055-.48M302.312 378.269l1.056-1.152M303.366 377.109l.48-1.536M303.846 375.576v-1.056M303.846 374.522l-.48-1.632M303.366 372.896l-1.056-1.056M302.312 371.829l-1.056-.48M301.26 371.349h-1.633M308.646 369.722l1.056-.576M309.699 369.149l1.632-1.536M311.339 367.616v11.135M324.579 369.149l-.48-1.056M324.099 368.096l-1.632-.48M322.472 367.616h-1.056M321.419 367.616l-1.632.48M319.779 368.096l-1.056 1.632M318.725 369.722l-.48 2.688M318.245 372.416v2.592M318.245 375.002l.48 2.112M318.725 377.109l1.056 1.152M319.779 378.269l1.632.48M321.419 378.749h.576M321.992 378.749l1.536-.48M323.525 378.269l1.056-1.152M324.579 377.109l.576-1.536M325.165 375.576V375M325.165 375.002l-.576-1.536M324.579 373.469l-1.056-1.056M323.525 372.416l-1.536-.576M321.992 371.829h-.576M321.419 371.829l-1.632.576M319.779 372.416l-1.056 1.056M318.725 373.469l-.48 1.536M420.576 371.549l-1.056.48M419.523 372.029l-1.056 1.056M418.47 373.082l-.576 1.632M417.896 374.709v1.056M417.896 375.776l.576 1.631M418.47 377.402l1.056 1.056M419.523 378.455l1.056.48M420.576 378.935h1.632M422.216 378.935l1.056-.48M423.27 378.455l1.055-1.056M424.323 377.402l.48-1.632M424.803 375.776v-1.056M424.803 374.709l-.48-1.632M424.323 373.082l-1.056-1.056M423.27 372.029l-1.057-.48M422.216 371.549h-1.632M429.603 369.909l1.056-.48M430.656 369.429l1.632-1.632M432.296 367.802v11.136M445.536 369.429l-.48-1.152M445.056 368.282l-1.632-.48M443.429 367.802h-1.056M442.376 367.802l-1.632.48M440.736 368.282l-1.056 1.632M439.682 369.909l-.48 2.688M439.202 372.602v2.592M439.202 375.189l.48 2.208M439.682 377.402l1.056 1.056M440.736 378.455l1.632.48M442.376 378.935h.576M442.949 378.935l1.536-.48M444.482 378.455l1.056-1.056M445.536 377.402l.576-1.632M446.122 375.776v-.576M446.122 375.189l-.576-1.536M445.536 373.656l-1.056-1.056M444.482 372.602l-1.536-.576M442.949 372.029h-.576M442.376 372.029l-1.632.576M440.736 372.602l-1.056 1.056M439.682 373.656l-.48 1.536M541.533 371.642l-1.056.576M540.48 372.216l-1.056 1.056M539.427 373.269l-.576 1.632M538.853 374.909v1.056M538.853 375.962l.576 1.536M539.427 377.495l1.055 1.056M540.48 378.549l1.056.576M541.533 379.135h1.632M543.173 379.135l1.056-.576M544.226 378.549l1.056-1.056M545.28 377.495l.48-1.535M545.76 375.962v-1.056M545.76 374.909l-.48-1.632M545.28 373.269l-1.056-1.056M544.226 372.216l-1.056-.576M543.173 371.642h-1.632M550.56 370.109l1.056-.576M551.613 369.536l1.632-1.536M553.253 367.99v11.135M566.493 369.536l-.48-1.056M566.013 368.47l-1.632-.48M564.386 367.99h-1.056M563.333 367.99l-1.632.48M561.693 368.47l-1.056 1.631M560.64 370.109l-.48 2.688M560.16 372.789v2.592M560.16 375.389l.48 2.112M560.64 377.495l1.055 1.056M561.693 378.549l1.632.576M563.333 379.135h.576M563.906 379.135l1.536-.576M565.44 378.549l1.055-1.056M566.493 377.495l.575-1.535M567.08 375.962v-.576M567.08 375.389l-.577-1.536M566.493 373.856l-1.056-1.056M565.44 372.789l-1.537-.576M563.906 372.216h-.576M563.333 372.216l-1.632.576M561.693 372.789l-1.056 1.056M560.64 373.856l-.482 1.536M662.49 371.936l-1.056.576M661.437 372.509l-1.056 1.056M660.383 373.562l-.575 1.632M659.81 375.189v1.056M659.81 376.256l.576 1.535M660.383 377.789l1.056 1.056M661.437 378.842l1.056.576M662.49 379.415h1.632M664.13 379.415l1.056-.576M665.183 378.842l1.056-1.056M666.237 377.789l.48-1.536M666.717 376.256V375.2M666.717 375.189l-.48-1.632M666.237 373.562l-1.056-1.056M665.183 372.509l-1.056-.576M664.13 371.936h-1.632M671.517 370.389l1.056-.576M672.57 369.816l1.632-1.536M674.21 368.282v11.136M687.45 369.816l-.48-1.056M686.97 368.762l-1.632-.48M685.343 368.282h-1.056M684.29 368.282l-1.632.48M682.65 368.762l-1.056 1.632M681.596 370.389l-.48 2.688M681.116 373.082v2.592M681.116 375.669l.48 2.112M681.596 377.789l1.056 1.056M682.65 378.842l1.632.576M684.29 379.415h.576M684.863 379.415l1.536-.576M686.396 378.842l1.056-1.056M687.45 377.789l.575-1.536M688.036 376.256v-.576M688.036 375.669l-.576-1.536M687.45 374.136l-1.055-1.056M686.396 373.082l-1.536-.576M684.863 372.509h-.576M684.29 372.509l-1.634.576M682.65 373.082l-1.055 1.056M681.596 374.136l-.481 1.536"/></g></g><g stroke="#7c68ee"><g stroke-width="28.8"><path stroke-width="3.839904" d="M734.395 734.417v-3.072M734.395 731.345v-7.775M734.395 723.567v-11.52M734.395 712.047v-12.576M734.395 699.474v-8.064M734.395 691.408v-11.616M734.395 679.795V664.05M734.395 664.048v-30.047M734.395 634.01v-.577M734.395 633.422v-.96M734.395 632.462v-.576M734.395 631.89v-.673M734.395 631.222v-1.535M734.395 629.69v-6.145M734.395 623.543v-5.952M734.395 617.583v-4.992M734.395 612.596v-6.336M734.395 606.263v-7.584M734.395 598.677v-12.672M734.395 586.01v-32.639M734.395 553.371v-23.04M734.395 530.332v-9.024M734.395 521.305v-4.32M734.395 516.985v-2.016M734.395 514.972v-1.344M734.395 513.625v-1.152M734.395 512.465V498.45M734.395 498.452v-4.127M734.395 494.333v-5.76M734.395 488.573v-7.296M734.395 481.266v-7.68M734.395 473.586v-7.68M734.395 465.907V455.73M734.395 455.734v-4.128M734.395 451.614v-3.36M734.395 448.254v-5.856M734.395 442.387h-.096M734.302 442.387v-2.016M734.302 440.374v-1.728M734.302 438.654v-1.152M734.302 437.494v-.864M734.302 436.627v-.48M734.302 436.147v-.192M734.302 435.96v.193M734.302 436.147v.192M734.302 436.347v.288M734.302 436.627v.384M734.302 437.014v.384M734.302 437.4v.385M734.302 437.787v.48M734.302 438.267v.48M734.302 438.747v.384M734.302 439.134v.384M734.302 439.507v.288M734.302 439.8v.289M734.302 440.094v.192M734.302 440.28v.193M734.302 440.467v.096M734.302 440.574v.096M734.302 440.667v.096M734.302 440.76v-.095M734.302 440.667v-.096M734.302 440.574v-.192M734.302 440.374v-.096M734.302 440.28v-.095M734.302 440.187v-.096M734.302 440.094v-.096M734.302 439.987v-.096M734.302 439.894v-.096M734.302 439.8v-.095M734.302 439.707v-.094M734.302 439.614v-.097M734.302 439.507v.098M734.302 439.614v.095M734.302 439.707v-.094M734.302 439.614v-.097M734.302 439.507v-.096M734.302 439.414v-.095M734.302 439.32v-.097M734.302 439.227v-.096M734.302 439.134l-.096-.095M734.208 439.027v-.097M734.208 438.934v-.192M734.208 438.747v-.193M734.208 438.547v-.096M734.208 438.454v-.192M734.208 438.267v-.19M734.208 438.067v-.193M734.208 437.88v-.19M734.208 437.694v-.097M734.208 437.587v-.19M734.208 437.4v-.191M734.208 437.214v-.096M734.208 437.107v-.192M734.208 436.92v-.095M734.208 436.827v-.097M734.208 436.734v-.096M734.208 436.627v-.096M734.208 436.534v-.096M734.208 436.44v-.095M734.208 436.347v-.096M734.208 436.254v-.096M734.208 436.147v-.097M734.208 436.054v-.095M734.208 435.96v-.095M734.208 435.867l-.096-.096M734.115 435.774v-.096M734.115 435.667v-.096M734.115 435.574v-.096M734.115 435.48v-.095M734.115 435.387v-.096M734.115 435.294v-.096M734.115 435.187v-.096M734.115 435.094v-.096M734.115 435v-.095M734.115 434.907v-.096M734.115 434.814v-.096M734.115 434.707v-.096M734.115 434.614v-.096M734.115 434.52h-.096M734.008 434.52v-.095M734.008 434.427v-.096M734.008 434.334v-.096M734.008 434.227v-.096M734.008 434.134v-.096M734.008 434.04v-.095M734.008 433.947v-.096M734.008 433.854v-.096M734.008 433.747h-.096M733.915 433.747v-.096M733.915 433.654v-.096M733.915 433.56v-.095M733.915 433.467v-.096M733.915 433.374v-.096M733.915 433.267l-.096-.096M733.822 433.174v-.096M733.822 433.08v-.095M733.822 432.987v-.096M733.822 432.894v-.096M733.822 432.787h-.096M733.728 432.787v-.096M733.728 432.694v-.096M733.728 432.6v-.095M733.728 432.507v-.096M733.728 432.414h-.097M733.635 432.414v-.096M733.635 432.307v-.096M733.635 432.214v-.096M733.635 432.12h-.096M733.528 432.12v-.095M733.528 432.027h-.094M733.435 432.027v-.096M733.435 431.934h-.096M733.342 431.934v-.096M733.342 431.827v-.096M733.342 431.734v-.096M733.342 431.64l-.098-.095M733.248 431.547v-.096M733.248 431.454v-.096M733.248 431.347v-.096M733.248 431.254h-.096M733.155 431.254v-.096M733.155 431.16h-.096M733.048 431.16l-.096-.095M732.955 431.067h-.096M732.862 431.067v-.096M732.862 430.974h-.096M732.768 430.974l-.096-.096M732.675 430.867h-.096M732.568 430.867l-.096-.096M732.475 430.774h-.096M732.382 430.774h-.096M732.288 430.774v-.096M732.288 430.68h-.096M732.195 430.68v-.095M732.195 430.588h-.096M732.088 430.588v-.096M732.088 430.494h-.096M731.995 430.494v-.096M731.995 430.388h-.096M731.902 430.388h-.096M731.808 430.388h-.096M731.715 430.388v-.096M731.715 430.294h-.096M731.608 430.294h-.096M731.515 430.294h-.096M731.422 430.294l-.096-.096M731.328 430.2h-.096M731.235 430.2h-.096M731.128 430.2h-.096M731.035 430.2h-.096M730.942 430.2v-.095M730.942 430.108h-.096M730.848 430.108h-.096M730.755 430.108h-.096M730.648 430.108h-.096M730.555 430.108l-.096-.096M730.462 430.014h-.096M730.368 430.014h-.096M730.275 430.014h-.097M730.168 430.014h-.096M730.075 430.014l-.096-.096M729.982 429.908h-.096M729.888 429.908h-.096M729.795 429.908h-.096M729.688 429.908h-.096M729.595 429.908l-.096-.096M729.502 429.814h-.096M729.408 429.814h-.096M729.315 429.814h-.096M729.208 429.814h-.096M729.115 429.814h-.096M729.022 429.814l-.096-.096M728.928 429.72h-.096M728.835 429.72h-.096M728.728 429.72h-.096M728.635 429.72h-.096M728.542 429.72h-.096M728.448 429.72h-.096M728.355 429.72h-.096M728.248 429.72l-.096-.095M728.155 429.628h-.095M728.062 429.628h-.098M727.968 429.628h-.096M727.875 429.628h-.095M727.768 429.628h-.097M727.675 429.628h-.097M727.582 429.628h-.19M727.395 429.628h-.097M727.288 429.628l-.094-.096M727.195 429.534h-.096M727.102 429.534h-.098M727.008 429.534h-.192M726.808 429.534h-.096M726.715 429.534h-.097M726.622 429.534h-.096M726.529 429.534h-.192M726.329 429.534l-.096-.096M726.235 429.428h-.096M726.142 429.428h-.192M725.955 429.428h-.096M725.849 429.428h-.192M725.662 429.428h-.096M725.569 429.428h-.192M725.369 429.428h-.096M725.275 429.428l-.192-.096M725.089 429.334h-.096M724.995 429.334h-.192M724.795 429.334h-.096M724.702 429.334h-.192M724.515 429.334h-.096M724.409 429.334h-.192M724.222 429.334h-.192M724.035 429.334h-.096M723.929 429.334l-.192-.096M723.742 429.24h-.192M723.555 429.24h-.192M723.355 429.24h-.096M723.262 429.24h-.192M723.075 429.24h-.192M722.875 429.24h-.192M722.689 429.24h-.192M722.489 429.24h-.192M722.302 429.24h-.192M722.115 429.24h-.192M721.915 429.24l-.192-.095M721.729 429.148h-.192M721.529 429.148h-.192M721.342 429.148h-.192M721.155 429.148h-.192M720.955 429.148h-.192M720.769 429.148h-.288M720.475 429.148h-.192M720.289 429.148h-.192M720.089 429.148h-.192M719.902 429.148h-.288M719.609 429.148h-.192M719.422 429.148l-.288-.096M719.129 429.054h-.192M718.942 429.054h-.288M718.649 429.054h-.192M718.462 429.054h-.288M718.169 429.054h-.192M717.982 429.054h-.288M717.689 429.054h-.192M717.502 429.054h-.288M717.209 429.054h-.288M716.929 429.054h-.288M716.635 429.054h-.288M716.355 429.054l-.192-.096M716.155 428.948h-.288M715.875 428.948h-.288M715.582 428.948h-.288M715.302 428.948h-.288M715.009 428.948h-.288M714.715 428.948h-.288M714.435 428.948h-.384M714.049 428.948h-.288M713.755 428.948h-.288M713.475 428.948h-.287M713.182 428.948h-.384M712.796 428.948h-.288M712.516 428.948h-.386M712.129 428.948h-.288M711.836 428.948h-.386M711.449 428.948l-.288-.096M711.169 428.854h-.383M710.782 428.854h-.384M710.396 428.854h-.288M710.116 428.854h-.386M709.729 428.854h-.385M709.342 428.854h-.382M708.956 428.854h-.384M708.582 428.854h-.385M708.196 428.854h-.384M707.809 428.854h-.384M707.422 428.854h-.384M707.036 428.854h-.386M706.662 428.854h-.48M706.182 428.854h-.384M705.796 428.854h-.384M705.409 428.854l-.48-.096M704.929 428.76h-.192M704.742 428.76h-.193M704.542 428.76h-.48M704.062 428.76h-.48M703.582 428.76h-.384M703.196 428.76h-.48M702.716 428.76h-.48M702.236 428.76h-.48M701.756 428.76h-.48M701.276 428.76h-.48M700.796 428.76h-.48M700.316 428.76h-.48M699.836 428.76h-.48M699.356 428.76h-.576M698.783 428.76h-.48M698.303 428.76h-.48M697.823 428.76h-.576M697.25 428.76h-.577M696.676 428.76h-.48M696.196 428.76h-.576M695.623 428.76h-.576M695.036 428.76h-.576M694.463 428.76h-.576M693.89 428.76h-.577M693.316 428.76l-.576-.095M692.743 428.668h-.576M692.156 428.668h-.576M691.583 428.668h-.672M690.916 428.668h-.576M690.343 428.668h-.672M689.663 428.668h-.576M689.09 428.668h-.673M688.423 428.668h-.672M687.743 428.668h-.672M687.076 428.668h-.672M686.396 428.668h-.672M685.73 428.668h-.672M685.063 428.668h-.672M684.383 428.668h-.672M683.716 428.668h-.768M682.943 428.668h-.672M682.276 428.668h-.768M681.503 428.668l-.672-.096M680.836 428.574h-.384M680.45 428.574l-.383.096M680.063 428.668h-.77M679.303 428.668h-.767M678.53 428.668h-.77M677.756 428.668h-.766M676.996 428.668h-.864M676.13 428.668h-.77M675.356 428.668l-.864-.096M674.503 428.574h-.767M673.73 428.574h-.864M672.863 428.574h-.865M671.997 428.574h-.864M671.143 428.574h-.864M670.277 428.574h-.864M669.41 428.574h-.864M668.543 428.574h-.961M667.583 428.574h-.864M666.73 428.574h-.961M665.77 428.574h-.864M664.903 428.574h-.96M663.943 428.574h-.96M662.983 428.574h-.958M662.023 428.574h-1.056M660.97 428.574h-.961M660.01 428.574h-.96M659.05 428.574h-1.056M657.984 428.574h-1.056M656.93 428.574h-.96M655.97 428.574h-1.056M654.917 428.574l-1.152-.096M653.77 428.468h-1.056M652.704 428.468h-1.056M651.65 428.468h-1.152M650.504 428.468l-1.056-.096M649.45 428.374h-1.152M648.29 428.374l-1.152-.096M647.13 428.28h-1.151M645.984 428.28l-1.152-.095M644.837 428.188h-1.248M643.584 428.188h-1.152M642.437 428.188l-1.248-.096M641.184 428.094h-1.248M639.93 428.094h-1.247M638.69 428.094h-.575M638.117 428.094h-.672M637.437 428.094l-1.248.096M636.197 428.188h-1.248M634.944 428.188H633.6M633.597 428.188h-1.343M632.25 428.188h-.671M631.584 428.188h-.672M630.918 428.188l-1.344.096M629.57 428.28h-1.343M628.224 428.28h-1.344M626.878 428.28h-1.44M625.438 428.28h-.674M624.771 428.28h-.672M624.091 428.28l-1.44.097M622.651 428.374h-1.44M621.211 428.374l-1.536-.096M619.678 428.28h-1.44M618.238 428.28l-.77.097M617.478 428.374h-1.439M616.038 428.374h-.768M615.265 428.374h-.768M614.491 428.374h-.768M613.731 428.374h-1.536M612.198 428.374h-1.536M610.651 428.374h-.864M609.798 428.374h-1.536M608.251 428.374h-1.633M606.625 428.374h-.768M605.852 428.374h-.864M604.998 428.374h-.768M604.225 428.374h-.864M603.358 428.374h-.864M602.492 428.374h-1.632M600.865 428.374h-1.632M599.238 428.374h-.864M598.372 428.374h-.864M597.505 428.374h-.864M596.638 428.374h-.864M595.772 428.374h-1.728M594.052 428.374h-1.824M592.225 428.374h-.864M591.359 428.374l-.864-.096M590.492 428.28h-.96M589.532 428.28l-.864.097M588.679 428.374h-1.824M586.852 428.374l-1.824-.096M585.025 428.28h-.96M584.065 428.28l-.864.097M583.199 428.374h-1.92M581.279 428.374h-.96M580.319 428.374h-.96M579.359 428.374h-.96M578.399 428.374h-.96M577.439 428.374l-1.92-.096M575.519 428.28h-.96M574.559 428.28h-.96M573.599 428.28h-2.016M571.586 428.28h-.96M570.626 428.28h-1.056M569.572 428.28h-2.016M567.56 428.28h-.96M566.6 428.28h-1.057M565.533 428.28l-1.056.097M564.48 428.374h-.96M563.52 428.374l-2.113-.096M561.413 428.28h-1.056M560.36 428.28h-1.057M559.293 428.28h-1.056M558.24 428.28h-1.057M557.186 428.28h-1.056M556.133 428.28h-1.056M555.08 428.28h-2.208M552.866 428.28h-1.054M551.813 428.28h-1.153M550.653 428.28h-1.056M549.6 428.28h-1.151M548.453 428.28h-1.057M547.4 428.28l-1.152-.095M546.24 428.188h-1.152M545.093 428.188h-1.055M544.04 428.188h-2.306M541.733 428.188l-1.152-.096M540.573 428.094h-1.152M539.427 428.094h-1.151M538.28 428.094l-1.152-.096M537.12 427.988h-1.153M535.973 427.988h-1.246M534.72 427.988h-1.153M533.573 427.988h-1.152M532.413 427.988h-1.248M531.173 427.988h-1.152M530.013 427.988h-1.248M528.773 427.988h-1.152M527.613 427.988h-1.247M526.374 427.988h-1.248M525.12 427.988l-1.152.096M523.974 428.094h-1.248M522.72 428.094h-1.248M521.48 428.094h-1.248M520.227 428.094h-1.248M518.974 428.094h-1.248M517.734 428.094h-1.248M516.48 428.094h-1.248M515.24 428.094h-1.344M513.894 428.094h-1.248M512.64 428.094h-1.247M511.4 428.094h-1.343M510.054 428.094h-1.248M508.8 428.094h-1.343M507.454 428.094h-1.248M506.214 428.094h-1.344M504.867 428.094h-1.344M503.52 428.094h-1.343M502.174 428.094h-1.248M500.934 428.094h-1.344M499.588 428.094h-1.344M498.24 428.094h-1.343M496.894 428.094h-1.344M495.56 428.094h-1.439M494.121 428.094h-1.344M492.774 428.094h-1.344M491.428 428.094h-1.44M489.988 428.094l-1.344.096M488.641 428.188h-1.344M487.294 428.188h-1.44M485.855 428.188h-1.44M484.415 428.188h-1.344M483.081 428.188h-1.44M481.641 428.188h-1.44M480.201 428.188h-1.44M478.761 428.188h-1.44M477.321 428.188h-1.342M475.975 428.188h-1.536M474.441 428.188h-1.44M473.002 428.188h-1.44M471.562 428.188h-1.442M470.122 428.188h-1.44M468.682 428.188h-1.536M467.135 428.188h-1.44M465.695 428.188h-1.536M464.162 428.188h-1.44M462.722 428.188h-1.536M461.188 428.188h-1.44M459.749 428.188h-1.536M458.215 428.188h-1.536M456.682 428.188h-1.536M455.135 428.188h-1.534M453.602 428.188h-1.536M452.069 428.188l-1.536-.096M450.535 428.094h-1.537M449.002 428.094h-1.536M447.455 428.094h-1.535M445.922 428.094h-1.536M444.389 428.094h-1.63M442.762 428.094h-1.537M441.216 428.094h-1.632M439.589 428.094h-1.536M438.056 428.094h-1.632M436.416 428.094h-1.632M434.79 428.094h-1.537M433.256 428.094h-1.632M431.616 428.094h-1.632M429.99 428.094h-1.631M428.363 428.094h-1.634M426.723 428.094h-1.631M425.096 428.094h-1.633M423.456 428.094h-1.632M421.83 428.094h-1.633M420.203 428.094h-1.727M418.47 428.094h-1.634M416.843 428.094h-1.63M415.203 428.094h-1.73M413.483 428.094h-1.63M411.843 428.094h-1.73M410.123 428.094h-1.632M408.483 428.094h-1.728M406.763 428.094h-1.73M405.03 428.094h-1.728M403.297 428.094h-1.728M401.577 428.094h-1.728M399.843 428.094h-1.728M398.123 428.094h-1.728M396.39 428.094h-1.728M394.657 428.094h-1.728M392.937 428.094h-1.728M391.204 428.094h-1.728M389.484 428.094h-1.824M387.657 428.094h-1.728M385.924 428.094h-1.728M384.204 428.094l-1.824-.096M382.377 427.988h-1.824M380.55 427.988h-1.727M378.817 427.988h-1.824M377.004 427.988h-1.728M375.27 427.988h-1.823M373.444 427.988h-1.824M371.617 427.988h-1.824M369.804 427.988h-1.824M367.977 427.988h-1.823M366.15 427.988h-1.823M364.324 427.988H362.5M362.498 427.988h-1.824M360.684 427.988h-1.824M358.858 427.988h-1.824M357.031 427.988h-1.92M355.111 427.988h-1.824M353.285 427.988h-1.824M351.458 427.988h-1.92M349.538 427.988h-1.824M347.725 427.988h-1.92M345.805 427.988h-1.824M343.978 427.988h-1.92M342.058 427.988h-1.92M340.138 427.988h-1.824M338.312 427.988h-1.92M336.392 427.988h-1.92M334.472 427.988h-1.92M332.552 427.988h-1.92M330.632 427.988h-1.922M328.712 427.988h-1.824M326.885 427.988l-1.918-.096M324.965 427.894h-1.921M323.045 427.894h-2.014M321.032 427.894h-1.921M319.112 427.894h-1.919M317.192 427.894h-1.921M315.272 427.894h-1.919M313.352 427.894h-1.921M311.432 427.894h-2.014M309.419 427.894h-1.921M307.499 427.894h-1.919M305.579 427.894h-.96M304.62 427.894h-2.018M302.606 427.894h-1.92M300.686 427.894h-2.015M298.66 427.894h-.962M297.7 427.894h-1.92M295.78 427.894h-2.017M293.766 427.894h-1.92M291.846 427.894h-2.016M289.833 427.894h-1.92M287.913 427.894h-2.016M285.9 427.894h-2.016M283.886 427.894h-1.92M281.966 427.894h-2.016M279.94 427.894l-1.92-.096M278.02 427.8h-2.016M276.006 427.8h-2.016M273.993 427.8h-1.92M272.073 427.8h-2.016M270.06 427.8h-2.016M268.047 427.8h-2.016M266.02 427.8h-1.92M264.1 427.8h-2.016M262.087 427.8h-.96M261.127 427.8h-2.016M259.114 427.8h-2.016M257.1 427.8h-1.92M255.18 427.8h-2.016M253.167 427.8h-.96M252.207 427.8h-2.016M250.18 427.8h-1.056M249.127 427.8h-1.92M247.207 427.8l-2.016-.095M245.194 427.708h-2.016M243.18 427.708l-.96.096M242.22 427.8h-1.92M240.3 427.8l-2.015-.095M238.287 427.708h-2.016M236.26 427.708h-1.92M234.34 427.708h-2.015M232.328 427.708h-1.92M230.408 427.708h-2.016M228.394 427.708h-.96M227.434 427.708h-1.92M225.514 427.708h-2.016M223.501 427.708h-1.92M221.581 427.708h-1.92M219.661 427.708h-1.056M218.608 427.708h-1.92M216.688 427.708h-1.44M215.248 427.708l-1.44-.096M213.808 427.614h-.96M212.848 427.614h-1.92M210.928 427.614h-1.92M209.008 427.614l-1.92-.096M207.088 427.508h-.96M206.128 427.508l-1.92-.096M204.208 427.414l-1.92-.096M202.288 427.32l-1.92-.287M200.368 427.028l-1.824-.288M198.542 426.748l-1.92-.384M196.622 426.36l-.864-.383M195.755 425.974l-1.92-.48M193.835 425.494l-.96-.384M192.875 425.108l-.864-.384M192.009 424.734l-.48-.192M191.529 424.534l-.48-.384M191.049 424.148l-.864-.384M190.182 423.774l-.48-.384M189.702 423.388l-.96-.48M188.742 422.908l-.672-.288M188.075 422.614l-.384-.288M187.689 422.334l-.48-.192M187.209 422.134l-.48-.096M186.729 422.041h-.288M186.449 422.041l-.384.192M186.062 422.228l-.48.288M185.582 422.521l-.192.288M185.382 422.814l-.288.384M185.102 423.188l-.288.576M184.809 423.774l-.384.576M184.422 424.348l-.192.48M184.235 424.828l-.288.384M183.942 425.214l-.096.384M183.849 425.588l-.192.384M183.662 425.974l-.192.384M183.462 426.36l-.192.193M183.275 426.548l-.094.288M183.182 426.84l-.29.289M182.889 427.134l-.192.194M182.702 427.32l-.096.192M182.609 427.508l-.192.097M182.409 427.614l-.288.192M182.129 427.8l-.096.098M182.022 427.894h-.192M181.835 427.894l-.096.095M181.742 427.988l-.384.096M181.355 428.094h-.192M181.169 428.094l-.192.098M180.969 428.188h-.288M180.689 428.188h-.192M180.489 428.188l-.288.094M180.209 428.28h-.192M180.009 428.28h-.192M179.822 428.28l-.288.097M179.529 428.374h-.287M179.249 428.374h-.193M179.049 428.374h-.288M178.769 428.374h-.383M178.382 428.374h-.193M178.182 428.374h-.192M177.996 428.374h-.48M177.516 428.374h-.48M177.036 428.374h-.384M176.649 428.374h-.288M176.369 428.374l-.192.098M176.169 428.468h-.384M175.782 428.468h-.864M174.929 428.468h-.96M173.969 428.468h-1.248M172.716 428.468h-.671M172.049 428.468h-1.441M170.61 428.468h-1.345M169.262 428.468l-.768-.098M168.49 428.374h-.48M168.01 428.374h-.385M167.622 428.374h-.48M167.142 428.374h-.288M166.862 428.374h-.287M166.57 428.374h-.289M166.29 428.374h-.385M165.903 428.374h-.576M165.33 428.374h-.289M165.036 428.374h-.384M164.65 428.374l-.383-.096M164.263 428.28h-.386M163.89 428.28h-.385M163.503 428.28h-.288M163.21 428.28h-.191M163.023 428.28h-.386M162.636 428.28h-.384M162.25 428.28h-.193M162.063 428.28h-.191M161.863 428.28h-.482M161.383 428.28h-.384M161.01 428.28h-.383M160.623 428.28h-.288M160.33 428.28h-.289M160.05 428.28h-.577M159.463 428.28h-.384M159.09 428.28h-.289M158.796 428.28h-.193M158.61 428.28h-.289M158.316 428.28h-.192M158.13 428.28h-.289M157.836 428.28h-.19M157.65 428.28h-.194M157.45 428.28h-.191M157.263 428.28h-.192M157.063 428.28h-.384M156.69 428.28h-.386M156.303 428.28h-.384M155.916 428.28h-.383M155.53 428.28h-.193M155.343 428.28h-.192M155.143 428.28h-.384M154.77 428.28h-.385M154.383 428.28h-.384M153.996 428.28h-.384M153.61 428.28h-.384M153.223 428.28h-.384M152.85 428.28h-.384M152.463 428.28h-.288M152.17 428.28h-.384M151.783 428.28h-.384M151.41 428.28h-.192M151.21 428.28h-.192M151.023 428.28h-.384M150.636 428.28h-.288M150.343 428.28h-.384M149.97 428.28h-.384M149.583 428.28h-.384M149.196 428.28h-.288M148.903 428.28h-.192M148.716 428.28h-.192M148.53 428.28h-.384M148.143 428.28h-.288M147.85 428.28h-.384M147.463 428.28h-.384M147.09 428.28h-.288M146.796 428.28h-.384M146.41 428.28h-.288M146.13 428.28h-.384M145.743 428.28h-.192M145.543 428.28h-.096M145.45 428.28h-.384M145.063 428.28h-.288M144.783 428.28h-.384M144.396 428.28h-.288M144.103 428.28h-.384M143.73 428.28h-.288M143.436 428.28h-.192M143.25 428.28h-.096M143.143 428.28h-.384M142.77 428.28h-.288M142.476 428.28h-.288M142.183 428.28h-.384M141.81 428.28h-.288M141.516 428.28h-.288M141.223 428.28h-.288M140.943 428.28h-.288M140.65 428.28h-.288M140.37 428.28h-.384M139.983 428.28h-.288M139.69 428.28h-.288M139.41 428.28h-.288M139.117 428.28h-.288M138.823 428.28h-.288M138.543 428.28h-.288M138.25 428.28h-.288M137.97 428.28h-.288M137.677 428.28h-.288M137.383 428.28h-.288M137.103 428.28h-.192M136.903 428.28h-.288M136.623 428.28h-.096M136.53 428.28h-.192M136.33 428.28h-.192M136.143 428.28h-.288M135.85 428.28h-.288M135.57 428.28h-.192M135.37 428.28h-.288M135.09 428.28h-.288M134.797 428.28h-.192M134.61 428.28h-.192M134.41 428.28h-.288M134.13 428.28h-.192M133.93 428.28h-.288M133.65 428.28h-.192M133.45 428.28h-.096M133.357 428.28h-.096M133.26 428.28h-.287M132.973 428.28h-.192M132.78 428.28h-.192M132.589 428.28h-.192M132.397 428.28h-.192M132.205 428.28h-.193M132.013 428.28h-.192M131.82 428.28h-.192M131.629 428.28h-.096M131.533 428.28h-.192M131.34 428.28h-.191M131.149 428.28h-.096M131.053 428.28h-.193M130.86 428.28h-.19M130.669 428.28h-.192M130.477 428.28h-.096M130.38 428.28h-.096M130.285 428.28h-.192M130.093 428.28h-.097M129.997 428.28h-.096M129.9 428.28h-.095M129.805 428.28h-.096M129.709 428.28h-.097"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M168.582 407.255v7.488M168.582 409.375l1.536-1.536M170.13 407.828l1.055-.576M171.182 407.255h1.632M172.809 407.255l1.056.576M173.862 407.828l.576 1.536M174.449 409.375v5.376M174.449 409.375l1.536-1.536M175.982 407.828l1.056-.576M177.036 407.255h1.632M178.662 407.255l1.056.576M179.729 407.828l.576 1.536M180.302 409.375v5.376M190.382 407.255v8.544M190.382 415.801l-.576 1.632M189.809 417.428l-.48.48M189.329 417.908l-1.056.576M188.262 418.494h-1.632M186.635 418.494l-1.056-.576M190.382 408.895l-1.056-1.056M189.329 407.828l-1.056-.576M188.262 407.255h-1.632M186.635 407.255l-1.056.576M185.582 407.828l-1.056 1.056M184.529 408.895l-.576 1.632M183.942 410.521v1.056M183.942 411.575l.576 1.536M184.529 413.108l1.056 1.056M185.582 414.175l1.056.576M186.635 414.748h1.632M188.262 414.748l1.056-.576M189.329 414.175l1.056-1.056M194.608 406.201v-.48M194.608 405.721l.576-1.056M195.182 404.668l.48-.576M195.662 404.095l1.056-.48M196.715 403.615h2.112M198.822 403.615l1.056.48M199.888 404.095l.576.576M200.462 404.668l.576 1.056M201.035 405.721v1.056M201.035 406.775l-.576 1.056M200.462 407.828l-1.056 1.536M199.408 409.375l-5.28 5.376M194.128 414.748h7.392M210.061 403.615l-5.375 7.392M204.688 411.001h7.968M210.061 403.615v11.136M289.54 411.481v7.488M289.54 413.588l1.535-1.536M291.086 412.055l1.056-.576M292.14 411.481h1.631M293.766 411.481l1.056.576M294.82 412.055l.575 1.536M295.406 413.588v5.376M295.406 413.588l1.536-1.536M296.94 412.055l1.055-.576M297.993 411.481h1.632M299.62 411.481l1.055.576M300.686 412.055l.576 1.536M301.26 413.588v5.376M311.339 411.481v8.544M311.339 420.028l-.576 1.536M310.766 421.561l-.48.576M310.286 422.134l-1.056.48M309.219 422.614h-1.632M307.592 422.614l-1.056-.48M311.339 413.108l-1.056-1.056M310.286 412.055l-1.056-.576M309.219 411.481h-1.632M307.592 411.481l-1.056.576M306.539 412.055l-1.056 1.056M305.486 413.108l-.576 1.536M304.899 414.655v1.056M304.899 415.708l.576 1.632M305.486 417.335l1.056 1.055M306.539 418.388l1.056.576M307.592 418.974h1.632M309.219 418.974l1.056-.576M310.286 418.388l1.056-1.056M315.565 410.428v-.576M315.565 409.855l.576-1.056M316.139 408.788l.48-.48M316.619 408.308l1.056-.576M317.672 407.735h2.112M319.779 407.735l1.056.576M320.845 408.308l.576.48M321.419 408.788l.576 1.056M321.992 409.855v1.056M321.992 410.908l-.576 1.152M321.419 412.055l-1.056 1.536M320.365 413.588l-5.28 5.376M315.085 418.974h7.392M331.018 407.735l-5.375 7.488M325.645 415.228h7.968M331.018 407.735v11.231M410.496 411.668v7.488M410.496 413.788l1.536-1.536M412.043 412.255l1.056-.576M413.096 411.668h1.632M414.723 411.668l1.056.576M415.776 412.255l.576 1.536M416.363 413.788v5.376M416.363 413.788l1.536-1.536M417.896 412.255l1.056-.576M418.95 411.668h1.631M420.576 411.668l1.056.576M421.643 412.255l.576 1.536M422.216 413.788v5.376M432.296 411.668v8.544M432.296 420.214l-.576 1.536M431.723 421.748l-.48.576M431.243 422.334l-1.056.48M430.176 422.814h-1.632M428.55 422.814l-1.057-.48M432.296 413.308l-1.056-1.056M431.243 412.255l-1.056-.576M430.176 411.668h-1.632M428.55 411.668l-1.057.576M427.496 412.255l-1.056 1.056M426.443 413.308l-.576 1.536M425.856 414.841v1.056M425.856 415.895l.576 1.631M426.443 417.534l1.056 1.056M427.496 418.588l1.056.576M428.55 419.161h1.631M430.176 419.161l1.056-.576M431.243 418.588l1.056-1.056M436.522 410.615v-.576M436.522 410.041l.576-1.056M437.096 408.988l.48-.48M437.576 408.508l1.056-.576M438.629 407.935h2.112M440.736 407.935l1.056.576M441.802 408.508l.576.48M442.376 408.988l.576 1.056M442.949 410.041v1.152M442.949 411.188l-.576 1.056M442.376 412.255l-1.056 1.536M441.322 413.788l-5.28 5.376M436.042 419.161h7.392M451.975 407.935l-5.375 7.488M446.602 415.415h7.968M451.975 407.935v11.231M531.453 411.868v7.392M531.453 413.975l1.536-1.632M533 412.348l1.056-.48M534.053 411.868h1.632M535.68 411.868l1.056.48M536.733 412.348l.576 1.632M537.32 413.975v5.28M537.32 413.975l1.536-1.632M538.853 412.348l1.056-.48M539.907 411.868h1.631M541.533 411.868l1.056.48M542.6 412.348l.576 1.632M543.173 413.975v5.28M553.253 411.868v8.448M553.253 420.308l-.576 1.632M552.68 421.948l-.48.48M552.2 422.428l-1.056.576M551.133 423.001H549.5M549.506 423.001l-1.056-.576M553.253 413.401l-1.056-1.056M552.2 412.348l-1.056-.48M551.133 411.868H549.5M549.506 411.868l-1.056.48M548.453 412.348l-1.056 1.056M547.4 413.401l-.576 1.632M546.813 415.028v1.056M546.813 416.095l.576 1.631M547.4 417.721l1.056 1.056M548.453 418.774l1.056.48M549.506 419.254h1.632M551.133 419.254l1.056-.48M552.2 418.774l1.056-1.056M557.48 410.815v-.576M557.48 410.228l.575-1.056M558.053 409.175l.48-.576M558.533 408.601l1.056-.48M559.586 408.121h2.112M561.693 408.121l1.056.48M562.76 408.601l.575.576M563.333 409.175l.576 1.056M563.906 410.228v1.056M563.906 411.295l-.576 1.056M563.333 412.348l-1.056 1.632M562.28 413.975l-5.28 5.28M557 419.254h7.391M572.932 408.121l-5.376 7.392M567.56 415.508h7.967M572.932 408.121v11.136M652.41 412.148v7.488M652.41 414.268l1.536-1.536M653.957 412.735l1.056-.576M655.01 412.148h1.632M656.637 412.148l1.056.576M657.69 412.735l.576 1.536M658.277 414.268v5.376M658.277 414.268l1.536-1.536M659.81 412.735l1.056-.576M660.863 412.148h1.632M662.49 412.148l1.056.576M663.557 412.735l.576 1.536M664.13 414.268v5.376M674.21 412.148v8.544M674.21 420.694l-.576 1.632M673.636 422.334l-.48.48M673.157 422.814l-1.056.576M672.09 423.388h-1.632M670.463 423.388l-1.056-.576M674.21 413.788l-1.056-1.056M673.157 412.735l-1.056-.576M672.09 412.148h-1.632M670.463 412.148l-1.056.576M669.41 412.735l-1.056 1.056M668.357 413.788l-.576 1.632M667.77 415.415v1.056M667.77 416.468l.576 1.536M668.357 418.014l1.056 1.056M669.41 419.068l1.056.576M670.463 419.641h1.632M672.09 419.641l1.056-.576M673.157 419.068l1.055-1.056M678.436 411.095v-.48M678.436 410.615l.576-1.056M679.01 409.561l.48-.576M679.49 408.988l1.056-.48M680.543 408.508h2.112M682.65 408.508l1.056.48M683.716 408.988l.576.576M684.29 409.561l.576 1.056M684.863 410.615v1.056M684.863 411.668l-.576 1.056M684.29 412.735l-1.056 1.536M683.236 414.268l-5.28 5.376M677.956 419.641h7.392M693.89 408.508l-5.377 7.392M688.516 415.895h7.968M693.89 408.508v11.136"/></g></g><g stroke="#ff7f4f"><g stroke-width="28.8"><path stroke-width="3.839904" d="M734.395 734.417v-1.727M734.395 732.69v-5.377M734.395 727.313v-8.255M734.395 719.06v-9.791M734.395 709.26v-6.527M734.395 702.74v-5.087M734.395 697.647v-3.455M734.395 694.194v-5.088M734.395 689.101v-5.568M734.395 683.541v-3.552M734.395 679.981v-5.28M734.395 674.701v-7.103M734.395 667.608v-16.415M734.395 651.182v-.48M734.395 650.702v-.864M734.395 649.849v-.768M734.395 649.075v-1.248M734.395 647.822v-3.168M734.395 644.662v-5.76M734.395 638.902v-4.032M734.395 634.862v-2.976M734.395 631.89v-3.457M734.395 628.436v-3.744M734.395 624.69v-6.145M734.395 618.543v-16.224M734.395 602.33v-12.48M734.395 589.85v-3.936M734.395 585.904v-1.824M734.395 584.09v-.96M734.395 583.13v-.576M734.395 582.544v-.48M734.395 582.064v-9.216M734.395 572.85v-7.871M734.395 564.984V557.4M734.395 557.398v-7.2M734.395 550.198v-6.144M734.395 544.051v-4.704M734.395 539.345v-8.16M734.395 531.185v-7.488M734.395 523.705v-4.704M734.395 518.999v-6.912M734.395 512.092h-.096M734.302 512.092v-5.088M734.302 506.999v-4.416M734.302 502.586v-4.128M734.302 498.452v-3.647M734.302 494.813v-3.264M734.302 491.546v-2.88M734.302 488.666v-2.592M734.302 486.066v-2.496M734.302 483.573v-2.304M734.302 481.266v-2.208M734.302 479.066v-2.208M734.302 476.853v-2.11M734.302 474.746v-2.112M734.302 472.626v-2.017M734.302 470.613v-2.016M734.302 468.6v-2.016M734.302 466.587v-2.018M734.302 464.573v-1.92M734.302 462.653v-1.92M734.302 460.733v-1.918M734.302 458.813v-1.729M734.302 457.08v-1.824M734.302 455.254v-1.631M734.302 453.627v-1.633M734.302 451.987v-1.44M734.302 450.547v-1.439M734.302 449.107v-1.248M734.302 447.867v-1.25M734.302 446.614v-1.055M734.302 445.56v-.864M734.302 444.694v-.864M734.302 443.827v-.577M734.302 443.254v-.576M734.302 442.68v-.382M734.302 442.294v-.193M734.302 442.107v-.094M734.302 442.014v.096M734.302 442.107v.192M734.302 442.294v.288M734.302 442.587v.383M734.302 442.974v.288M734.302 443.254v.48M734.302 443.734v.384M734.302 444.12v.288M734.302 444.414v.384M734.302 444.787v.288M734.302 445.08v.192M734.302 445.267v.096M734.302 445.374v-.096M734.302 445.267v-.192M734.302 445.08v-.192M734.302 444.894v-.384M734.302 444.507v-.384M734.302 444.12v-.383M734.302 443.734v-.384M734.302 443.347v-.48M734.302 442.867l-.096-.384M734.208 442.494v-.288M734.208 442.2v-.287M734.208 441.907v-.288M734.208 441.627v-.192M734.208 441.427v-.288M734.208 441.147v-.192M734.208 440.947v-.192M734.208 440.76v-.191M734.208 440.574v-.192M734.208 440.374v-.096M734.208 440.28v-.191M734.208 440.094v-.096M734.208 439.987v-.096M734.208 439.894v-.096M734.208 439.8v.097M734.208 439.894v.096M734.208 439.987v.192M734.208 440.187v.096M734.208 440.28v.193M734.208 440.467v.192M734.208 440.667v.096M734.208 440.76v.193M734.208 440.947v.192M734.208 441.147v.192M734.208 441.334v.096M734.208 441.427v.096M734.208 441.534v.192M734.208 441.72l-.096.097M734.115 441.814v.096M734.115 441.907v.096M734.115 442.014v-.096M734.115 441.907v-.096M734.115 441.814v-.096M734.115 441.72h-.096M734.008 441.72v-.095M734.008 441.627v-.096M734.008 441.534v-.096M734.008 441.427v-.096M734.008 441.334v-.096M734.008 441.24v-.095M734.008 441.147l-.096.096M733.915 441.24v.097M733.915 441.334v.096M733.915 441.427v-.096M733.915 441.334v-.096M733.915 441.24h-.096M733.822 441.24v-.095M733.822 441.147v-.096M733.822 441.054v-.096M733.822 440.947v-.096M733.822 440.854l-.096-.096M733.728 440.76v-.095M733.728 440.667v-.096M733.728 440.574v-.096M733.728 440.467h-.097M733.635 440.467v-.096M733.635 440.374v-.096M733.635 440.28v-.095M733.635 440.187h-.096M733.528 440.187v-.096M733.528 440.094h-.094M733.435 440.094v-.096M733.435 439.987l-.096-.096M733.342 439.894v-.096M733.342 439.8v-.095M733.342 439.707l-.098-.096M733.248 439.614v-.096M733.248 439.507v-.096M733.248 439.414l-.096-.096M733.155 439.32v-.095M733.155 439.227h-.096M733.048 439.227l-.096-.096M732.955 439.134h-.096M732.862 439.134v-.096M732.862 439.027h-.096M732.768 439.027v-.096M732.768 438.934h-.096M732.675 438.934h-.096M732.568 438.934l-.096-.096M732.475 438.84h-.096M732.382 438.84l-.096-.095M732.288 438.747h-.096M732.195 438.747v-.096M732.195 438.654h-.096M732.088 438.654v-.095M732.088 438.56h-.096M731.995 438.56l-.096-.097M731.902 438.454h-.096M731.808 438.454h-.096M731.715 438.454l-.096-.096M731.608 438.36h-.096M731.515 438.36h-.096M731.422 438.36l-.096-.094M731.328 438.267h-.096M731.235 438.267h-.096M731.128 438.267h-.096M731.035 438.267h-.096M730.942 438.267v-.097M730.942 438.174h-.096M730.848 438.174h-.096M730.755 438.174h-.096M730.648 438.174h-.096M730.555 438.174l-.096-.096M730.462 438.067h-.096M730.368 438.067h-.096M730.275 438.067h-.096M730.168 438.067h-.096M730.075 438.067l-.096-.096M729.982 437.974h-.096M729.888 437.974h-.096M729.795 437.974h-.096M729.688 437.974h-.096M729.595 437.974l-.096-.096M729.502 437.88h-.096M729.408 437.88h-.096M729.315 437.88h-.096M729.208 437.88h-.096M729.115 437.88h-.096M729.022 437.88h-.096M728.928 437.88l-.096-.095M728.835 437.787h-.096M728.728 437.787h-.096M728.635 437.787h-.097M728.542 437.787h-.096M728.448 437.787h-.094M728.355 437.787h-.097M728.248 437.787h-.096M728.155 437.787l-.095-.096M728.062 437.694h-.098M727.968 437.694h-.097M727.875 437.694h-.095M727.768 437.694h-.096M727.675 437.694h-.097M727.582 437.694h-.192M727.395 437.694h-.096M727.288 437.694h-.096M727.195 437.694l-.096-.096M727.102 437.587h-.096M727.008 437.587h-.192M726.808 437.587h-.096M726.715 437.587h-.097M726.622 437.587h-.096M726.529 437.587h-.192M726.329 437.587h-.096M726.235 437.587l-.096-.096M726.142 437.494h-.192M725.955 437.494h-.096M725.849 437.494h-.192M725.662 437.494h-.096M725.569 437.494h-.192M725.369 437.494h-.096M725.275 437.494h-.192M725.089 437.494l-.096-.096M724.995 437.4h-.192M724.795 437.4h-.096M724.702 437.4h-.192M724.515 437.4h-.096M724.409 437.4h-.192M724.222 437.4h-.192M724.035 437.4h-.096M723.929 437.4h-.192M723.742 437.4h-.192M723.555 437.4l-.192-.095M723.355 437.307h-.096M723.262 437.307h-.192M723.075 437.307h-.192M722.875 437.307h-.192M722.689 437.307h-.192M722.489 437.307h-.192M722.302 437.307h-.192M722.115 437.307h-.192M721.915 437.307h-.192M721.729 437.307h-.192M721.529 437.307l-.192-.096M721.342 437.214h-.192M721.155 437.214h-.192M720.955 437.214h-.192M720.769 437.214h-.288M720.475 437.214h-.192M720.289 437.214h-.192M720.089 437.214h-.192M719.902 437.214h-.288M719.609 437.214h-.192M719.422 437.214h-.288M719.129 437.214h-.192M718.942 437.214l-.288-.096M718.649 437.107h-.192M718.462 437.107h-.288M718.169 437.107h-.192M717.982 437.107h-.288M717.689 437.107h-.192M717.502 437.107h-.288M717.209 437.107h-.288M716.929 437.107h-.288M716.635 437.107h-.288M716.355 437.107h-.192M716.155 437.107h-.288M715.875 437.107l-.288-.096M715.582 437.014h-.288M715.302 437.014h-.288M715.009 437.014h-.288M714.715 437.014h-.288M714.435 437.014h-.384M714.049 437.014h-.288M713.755 437.014h-.288M713.475 437.014h-.287M713.182 437.014h-.384M712.796 437.014h-.288M712.516 437.014h-.386M712.129 437.014h-.288M711.836 437.014h-.386M711.449 437.014h-.288M711.169 437.014h-.383M710.782 437.014l-.384-.096M710.396 436.92h-.288M710.116 436.92h-.386M709.729 436.92h-.385M709.342 436.92h-.382M708.956 436.92h-.384M708.582 436.92h-.385M708.196 436.92h-.384M707.809 436.92h-.384M707.422 436.92h-.384M707.036 436.92h-.386M706.662 436.92h-.48M706.182 436.92h-.384M705.796 436.92h-.384M705.409 436.92l-.48-.095M704.929 436.827h-.192M704.742 436.827l-.193.096M704.542 436.92h-.48M704.062 436.92h-.48M703.582 436.92h-.384M703.196 436.92l-.48-.095M702.716 436.827h-.48M702.236 436.827h-.48M701.756 436.827h-.48M701.276 436.827h-.48M700.796 436.827h-.48M700.316 436.827h-.48M699.836 436.827h-.48M699.356 436.827h-.576M698.783 436.827h-.48M698.303 436.827h-.48M697.823 436.827h-.576M697.25 436.827h-.577M696.676 436.827h-.48M696.196 436.827h-.576M695.623 436.827h-.576M695.036 436.827h-.576M694.463 436.827h-.576M693.89 436.827h-.577M693.316 436.827h-.576M692.743 436.827h-.576M692.156 436.827h-.576M691.583 436.827l-.672-.096M690.916 436.734h-.576M690.343 436.734h-.672M689.663 436.734h-.576M689.09 436.734h-.673M688.423 436.734h-.672M687.743 436.734h-.672M687.076 436.734h-.672M686.396 436.734h-.672M685.73 436.734h-.672M685.063 436.734h-.672M684.383 436.734h-.672M683.716 436.734h-.768M682.943 436.734h-.672M682.276 436.734h-.768M681.503 436.734h-.672M680.836 436.734h-.384M680.45 436.734h-.383M680.063 436.734h-.77M679.303 436.734h-.767M678.53 436.734h-.77M677.756 436.734h-.766M676.996 436.734h-.864M676.13 436.734h-.77M675.356 436.734h-.864M674.503 436.734h-.767M673.73 436.734h-.864M672.863 436.734l-.865-.096M671.997 436.627h-.864M671.143 436.627h-.864M670.277 436.627h-.864M669.41 436.627h-.864M668.543 436.627h-.961M667.583 436.627h-.864M666.73 436.627h-.961M665.77 436.627h-.864M664.903 436.627h-.96M663.943 436.627h-.96M662.983 436.627h-.958M662.023 436.627h-1.056M660.97 436.627h-.961M660.01 436.627h-.96M659.05 436.627h-1.056M657.984 436.627h-1.056M656.93 436.627h-.96M655.97 436.627h-1.056M654.917 436.627h-1.152M653.77 436.627h-1.056M652.704 436.627h-1.056M651.65 436.627h-1.152M650.49 436.627h-1.056M649.437 436.627h-1.152M648.29 436.627h-1.152M647.13 436.627h-1.151M645.984 436.627h-1.152M644.837 436.627l-1.248-.096M643.584 436.534h-1.152M642.437 436.534h-1.248M641.184 436.534h-1.248M639.93 436.534h-1.247M638.69 436.534h-.575M638.117 436.534h-.672M637.437 436.534h-1.248M636.197 436.534h-1.248M634.944 436.534H633.6M633.597 436.534h-1.343M632.25 436.534h-.671M631.584 436.534h-.672M630.918 436.534h-1.344M629.57 436.534h-1.343M628.224 436.534h-1.344M626.878 436.534h-1.44M625.438 436.534h-.674M624.771 436.534h-.672M624.091 436.534h-1.44M622.651 436.534h-1.44M621.211 436.534h-1.536M619.678 436.534h-1.44M618.238 436.534h-.77M617.478 436.534h-1.439M616.038 436.534h-.768M615.265 436.534h-.768M614.491 436.534h-.768M613.731 436.534h-1.536M612.198 436.534h-1.536M610.651 436.534h-.864M609.798 436.534h-1.536M608.251 436.534l-1.633-.096M606.625 436.44h-.768M605.852 436.44h-.864M604.998 436.44h-.768M604.225 436.44h-.864M603.358 436.44l-.864.097M602.492 436.534h-1.632M600.865 436.534l-1.632-.096M599.238 436.44h-.864M598.372 436.44h-.864M597.505 436.44h-.864M596.638 436.44h-.864M595.772 436.44h-1.728M594.052 436.44h-1.824M592.225 436.44h-.864M591.359 436.44h-.864M590.492 436.44h-.96M589.532 436.44h-.864M588.679 436.44h-1.824M586.852 436.44h-1.824M585.025 436.44h-.96M584.065 436.44h-.864M583.199 436.44h-1.92M581.279 436.44h-.96M580.319 436.44h-.96M579.359 436.44h-.96M578.399 436.44h-.96M577.439 436.44h-1.92M575.519 436.44h-.96M574.559 436.44h-.96M573.599 436.44h-2.016M571.586 436.44h-.96M570.626 436.44h-1.056M569.572 436.44h-2.016M567.56 436.44h-.96M566.6 436.44h-1.057M565.533 436.44h-1.056M564.48 436.44h-.96M563.52 436.44h-2.113M561.413 436.44h-1.056M560.36 436.44h-1.057M559.293 436.44h-1.056M558.24 436.44h-1.057M557.186 436.44h-1.056M556.133 436.44h-1.056M555.08 436.44h-2.208M552.866 436.44h-1.054M551.813 436.44h-1.153M550.653 436.44h-1.056M549.6 436.44l-1.151-.095M548.453 436.347h-1.057M547.4 436.347h-1.152M546.24 436.347h-1.152M545.093 436.347l-1.055.096M544.04 436.44h-2.306M541.733 436.44l-1.152-.095M540.573 436.347h-1.152M539.427 436.347h-1.151M538.28 436.347h-1.152M537.12 436.347h-1.153M535.973 436.347h-1.246M534.72 436.347h-1.153M533.573 436.347h-1.152M532.413 436.347h-1.248M531.173 436.347h-1.152M530.013 436.347h-1.248M528.773 436.347h-1.152M527.613 436.347h-1.247M526.374 436.347h-1.248M525.12 436.347h-1.152M523.974 436.347h-1.248M522.72 436.347h-1.248M521.48 436.347h-1.248M520.227 436.347h-1.248M518.974 436.347h-1.248M517.734 436.347h-1.248M516.48 436.347h-1.248M515.24 436.347h-1.344M513.894 436.347h-1.248M512.64 436.347h-1.247M511.4 436.347h-1.343M510.054 436.347h-1.248M508.8 436.347h-1.343M507.454 436.347h-1.248M506.214 436.347h-1.344M504.867 436.347h-1.344M503.52 436.347h-1.343M502.174 436.347h-1.248M500.934 436.347h-1.344M499.588 436.347l-1.344.096M498.24 436.44h-1.343M496.894 436.44h-1.344M495.56 436.44h-1.439M494.121 436.44h-1.344M492.774 436.44h-1.344M491.428 436.44h-1.44M489.988 436.44h-1.344M488.641 436.44h-1.344M487.294 436.44h-1.44M485.855 436.44h-1.44M484.415 436.44h-1.344M483.081 436.44l-1.44.097M481.641 436.534h-1.44M480.201 436.534h-1.44M478.761 436.534h-1.44M477.321 436.534h-1.342M475.975 436.534h-1.536M474.441 436.534l-1.44.096M473.002 436.627h-1.44M471.562 436.627h-1.442M470.122 436.627h-1.44M468.682 436.627l-1.536.096M467.135 436.734h-1.44M465.695 436.734h-1.536M464.162 436.734l-1.44.096M462.722 436.827h-1.536M461.188 436.827h-1.44M459.749 436.827l-1.536.096M458.215 436.92h-1.536M456.682 436.92l-1.536.097M455.135 437.014h-1.534M453.602 437.014l-1.536.096M452.069 437.107l-1.536.096M450.535 437.214l-1.537.096M449.002 437.307h-1.536M447.455 437.307l-1.535.096M445.922 437.4l-1.536.097M444.389 437.494l-1.63.096M442.762 437.587l-1.537.096M441.216 437.694l-1.632.096M439.589 437.787l-1.536.096M438.056 437.88l-1.632.193M436.416 438.067l-1.632.096M434.79 438.174l-1.537.192M433.256 438.36l-1.632.097M431.616 438.454l-1.632.192M429.99 438.654l-1.631.192M428.363 438.84l-1.634.193M426.723 439.027l-1.631.192M425.096 439.227l-1.633.288M423.456 439.507l-1.632.288M421.83 439.8l-1.633.193M420.203 439.987l-1.727.288M418.47 440.28l-1.634.385M416.843 440.667l-1.63.288M415.203 440.947l-1.73.384M413.483 441.334l-1.63.384M411.843 441.72l-1.73.385M410.123 442.107l-1.632.48M408.483 442.587l-1.728.48M406.763 443.067l-1.73.576M405.03 443.64l-1.728.576M403.297 444.214l-1.728.576M401.577 444.787l-1.728.672M399.843 445.467l-1.728.672M398.123 446.134l-1.728.768M396.39 446.907l-1.728.864M394.657 447.774l-1.728.865M392.937 448.627l-1.728 1.055M391.204 449.694l-1.728.96M389.484 450.654l-1.824 1.152M387.657 451.8l-1.728 1.25M385.924 453.054l-1.728 1.248M384.204 454.294l-1.824 1.44M382.377 455.734l-1.824 1.536M380.55 457.267l-1.727 1.632M378.817 458.907l-1.824 1.728M377.004 460.627l-1.728 1.92M375.27 462.547l-1.823 2.112M373.444 464.667l-1.824 2.208M371.617 466.867l-1.824 2.4M369.804 469.267l-1.824 2.495M367.977 471.773l-1.823 2.784M366.15 474.546l-1.823 3.072M364.324 477.626l-1.824 3.168M362.498 480.786l-1.824 3.552M360.684 484.346l-1.824 3.744M358.858 488.093l-1.824 4.032M357.031 492.12l-1.92 4.415M355.111 496.533l-1.824 4.703M353.285 501.24l-1.824 4.99M351.458 506.226l-1.92 5.471M349.538 511.705l-1.824 5.952M347.725 517.652l-1.922 6.336M345.805 523.985l-1.823 6.72M343.978 530.705l-1.92 7.392M342.058 538.105l-1.921 7.776M340.138 545.878l-1.824 8.448M338.312 554.331l-1.92 9.024M336.392 563.344l-1.92 9.696M334.472 573.05l-1.92 10.176M332.552 583.224l-1.92 10.943M330.632 594.17l-1.922 11.52M328.712 605.69l-1.824 12M326.885 617.69l-1.918 12.383M324.965 630.063l-1.921 12.673M323.045 642.742l-2.016 12.67M321.032 655.409l-1.92 12.095M319.112 667.502l-1.919 11.233M317.192 678.741l-1.921 9.888M315.272 688.621l-1.919 8.063M313.352 696.688l-1.921 6.049M311.432 702.74l-2.014 4.32M309.419 707.06l-1.921 2.785M307.499 709.847 305.58 711M305.579 710.994l-.961.96M304.62 711.954l-2.017.576M302.606 712.527l-1.92.192M300.686 712.727h-2.016M298.66 712.727h-.96M297.7 712.727l-1.92-.192M295.78 712.527l-2.017-.19M293.766 712.34l-1.92-.193M291.846 712.14l-2.016-.192M289.833 711.954l-1.92-.288M287.913 711.66l-2.016-.192M285.9 711.474l-2.016-.288M283.886 711.18l-1.92-.192M281.966 710.994l-2.016-.288M279.94 710.7l-1.92-.287M278.02 710.42l-2.016-.287M276.006 710.127l-2.016-.384M273.993 709.74l-1.92-.287M272.073 709.46l-2.016-.383M270.06 709.074l-2.016-.384M268.047 708.687l-2.016-.384M266.02 708.3l-1.92-.383M264.1 707.927l-2.016-.384M262.087 707.54l-.96-.383M261.127 707.154l-2.016-.48M259.114 706.674l-2.016-.48M257.1 706.194l-1.92-.576M255.18 705.62l-2.016-.48M253.167 705.14l-.96-.383M252.207 704.754l-2.016-.48M250.18 704.274l-1.056-.48M249.127 703.794l-1.92-.672M247.207 703.127l-2.016-.768M245.194 702.354l-2.016-.48M243.18 701.874l-.96-.576M242.22 701.3l-1.92-.767M240.3 700.527l-2.015-.768M238.287 699.767l-2.016-.864M236.26 698.9l-1.92-.863M234.34 698.034l-2.015-.864M232.328 697.168l-1.92-.768M230.408 696.408l-2.016-.768M228.394 695.634l-.96-.576M227.434 695.06l-1.92-.863M225.514 694.194l-2.016-.96M223.501 693.234l-1.92-.864M221.581 692.368l-1.92-.672M219.661 691.701l-1.056-.672M218.608 691.021l-1.92-.864M216.688 690.168l-1.44-.672M215.248 689.488l-1.44-.672M213.808 688.821l-.96-.672M212.848 688.141l-1.92-.96M210.928 687.181l-1.92-1.056M209.008 686.128l-1.92-.768M207.088 685.368l-.96-.864M206.128 684.501l-1.92-1.152M204.208 683.341l-1.92-1.248M202.288 682.101l-1.92-1.344M200.368 680.755l-1.824-1.536M198.542 679.221l-1.92-1.344M196.622 677.875l-.864-1.44M195.755 676.435l-1.92-1.632M193.835 674.808l-.96-1.152M192.875 673.648l-.864-.96M192.009 672.688l-.48-.576M191.529 672.115l-.48-.96M191.049 671.155l-.864-1.056M190.182 670.102l-.48-1.152M189.702 668.942l-.96-1.44M188.742 667.502l-.672-1.152M188.075 666.355l-.384-1.152M187.689 665.208l-.48-1.632M187.209 663.568l-.48-1.248M186.729 662.328l-.288-1.344M186.449 660.982l-.384-2.112M186.062 658.862l-.48-1.728M185.582 657.142l-.192-1.248M185.382 655.889l-.288-1.44M185.102 654.449l-.288-1.824M184.809 652.622l-.384-1.536M184.422 651.089l-.192-1.056M184.235 650.035l-.288-.864M183.942 649.169l-.096-.768M183.849 648.409l-.192-.96M183.662 647.449l-.192-.768M183.462 646.675l-.192-.576M183.275 646.102l-.096-.672M183.182 645.422l-.288-.768M182.889 644.662l-.192-.48M182.702 644.182l-.096-.48M182.609 643.702l-.192-.576M182.409 643.129l-.288-.48M182.129 642.649l-.096-.384M182.022 642.262l-.192-.288M181.835 641.969l-.096-.48M181.742 641.489l-.384-.576M181.355 640.916l-.192-.288M181.169 640.622l-.192-.384M180.969 640.249l-.288-.384M180.689 639.862l-.192-.288M180.489 639.569l-.288-.288M180.209 639.289l-.192-.288M180.009 638.996l-.192-.384M179.822 638.609l-.288-.288M179.529 638.329l-.288-.288M179.249 638.036l-.192-.288M179.049 637.742l-.288-.384M178.769 637.369l-.384-.288M178.382 637.076l-.192-.288M178.182 636.782l-.192-.288M177.996 636.502l-.48-.48M177.516 636.022l-.48-.48M177.036 635.542l-.384-.288M176.649 635.25l-.288-.193M176.369 635.062l-.192-.384M176.169 634.676l-.384-.576M175.782 634.102l-.864-.768M174.929 633.33l-.96-.96M173.969 632.37l-1.248-.769M172.716 631.61l-.672-.865M172.049 630.742l-1.44-.96M170.61 629.783l-1.345-.768M169.262 629.01l-.768-.48M168.49 628.53l-.48-.289M168.01 628.25l-.385-.289M167.622 627.956l-.48-.288M167.142 627.663l-.288-.192M166.862 627.476l-.287-.192M166.57 627.29l-.289-.193M166.29 627.09l-.385-.289M165.903 626.81l-.576-.289M165.33 626.516l-.289-.288M165.036 626.223l-.384-.192M164.65 626.036l-.385-.288M164.263 625.743l-.384-.288M163.89 625.463l-.385-.192M163.503 625.263l-.288-.192M163.21 625.076l-.193-.48M163.023 624.596l-.384-.288M162.636 624.303l-.384-2.4M162.25 621.903l-.193-.192M162.063 621.716l-.192-.192M161.863 621.53l-.482-.193M161.383 621.33l-.384-12.288M161.01 609.05h-.385M160.623 609.05h-.288M160.33 609.05h-.289M160.05 609.05h-.575M159.463 609.05h-.386M159.09 609.05h-.289M158.796 609.05h-.192M158.61 609.05h-.289M158.316 609.05h-.192M158.13 609.05h-.289M157.836 609.05h-.19M157.65 609.05h-.194M157.45 609.05h-.193M157.263 609.05h-.192M157.063 609.05h-.384M156.69 609.05h-.385M156.303 609.05h-.384M155.916 609.05h-.384M155.53 609.05h-.193M155.343 609.05h-.192M155.143 609.05h-.384M154.77 609.05h-.385M154.383 609.05h-.384M153.996 609.05h-.384M153.61 609.05h-.384M153.223 609.05h-.384M152.85 609.05h-.384M152.463 609.05h-.288M152.17 609.05h-.384M151.783 609.05h-.384M151.41 609.05h-.192M151.21 609.05h-.192M151.023 609.05h-.384M150.636 609.05h-.288M150.343 609.05h-.384M149.97 609.05h-.384M149.583 609.05h-.384M149.196 609.05h-.288M148.903 609.05h-.192M148.716 609.05h-.192M148.53 609.05h-.384M148.143 609.05h-.288M147.85 609.05h-.384M147.463 609.05h-.384M147.09 609.05h-.288M146.796 609.05h-.384M146.41 609.05h-.288M146.13 609.05h-.384M145.743 609.05h-.192M145.543 609.05h-.096M145.45 609.05h-.384M145.063 609.05h-.288M144.783 609.05h-.384M144.396 609.05h-.288M144.103 609.05h-.384M143.73 609.05h-.288M143.436 609.05h-.192M143.25 609.05h-.096M143.143 609.05h-.384M142.77 609.05h-.288M142.476 609.05h-.288M142.183 609.05h-.384M141.81 609.05h-.288M141.516 609.05h-.288M141.223 609.05h-.288M140.943 609.05h-.288M140.65 609.05h-.288M140.37 609.05h-.384M139.983 609.05h-.288M139.69 609.05h-.288M139.41 609.05h-.288M139.117 609.05h-.288M138.823 609.05h-.288M138.543 609.05h-.288M138.25 609.05h-.288M137.97 609.05h-.288M137.677 609.05h-.288M137.383 609.05h-.288M137.103 609.05h-.192M136.903 609.05h-.288M136.623 609.05h-.096M136.53 609.05h-.192M136.33 609.05h-.192M136.143 609.05h-.288M135.85 609.05h-.288M135.57 609.05h-.192M135.37 609.05h-.288M135.09 609.05h-.288M134.797 609.05h-.192M134.61 609.05h-.192M134.41 609.05h-.288M134.13 609.05h-.192M133.93 609.05h-.288M133.65 609.05h-.192M133.45 609.05h-.096M133.357 609.05h-.096M133.26 609.05h-.287M132.973 609.05h-.192M132.78 609.05h-.192M132.589 609.05h-.192M132.397 609.05h-.192M132.205 609.05h-.193M132.013 609.05h-.192M131.82 609.05h-.192M131.629 609.05h-.096M131.533 609.05h-.192M131.34 609.05h-.191M131.149 609.05h-.096M131.053 609.05h-.193M130.86 609.05h-.19M130.669 609.05h-.192M130.477 609.05h-.096M130.38 609.05h-.096M130.285 609.05h-.192M130.093 609.05h-.097M129.997 609.05h-.096M129.9 609.05h-.095M129.805 609.05h-.096M129.709 609.05h-.097"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="m182.609 655.129-1.056-1.056M181.542 654.062l-1.056-.576M180.489 653.489h-1.536M178.956 653.489l-1.056.576M177.902 654.062l-1.056 1.056M176.849 655.129l-.576 1.632M176.262 656.755v1.056M176.262 657.808l.576 1.536M176.849 659.342l1.056 1.056M177.902 660.408l1.056.576M178.956 660.982h1.535M180.489 660.982l1.056-.576M181.542 660.408l1.056-1.056M187.409 651.955l1.056-.576M188.462 651.382l1.632-1.536M190.089 649.849v11.135M197.008 652.435v-.48M197.008 651.955l.576-1.056M197.582 650.902l.48-.576M198.062 650.329l1.056-.48M199.115 649.849h2.112M201.222 649.849l1.056.48M202.288 650.329l.576.576M202.862 650.902l.48 1.056M203.342 651.955v1.056M203.342 653.009l-.48 1.056M202.862 654.062l-1.056 1.536M201.808 655.609l-5.376 5.375M196.422 660.982h7.488M303.566 688.728l-1.056-1.056M302.5 687.661l-1.057-.576M301.446 687.088h-1.536M299.913 687.088l-1.056.576M298.86 687.661l-1.057 1.056M297.806 688.728l-.576 1.632M297.22 690.354v1.056M297.22 691.408l.575 1.536M297.806 692.94l1.056 1.057M298.86 694.008l1.055.576M299.913 694.58h1.535M301.446 694.58l1.056-.575M302.5 694.008l1.055-1.056M308.366 685.554l1.056-.576M309.419 684.981l1.632-1.536M311.046 683.448v11.136M317.965 686.034v-.48M317.965 685.554l.576-1.056M318.539 684.501l.48-.576M319.019 683.928l1.056-.48M320.072 683.448h2.112M322.179 683.448l1.056.48M323.245 683.928l.576.576M323.819 684.501l.48 1.056M324.299 685.554v1.056M324.299 686.608l-.48 1.056M323.819 687.661l-1.056 1.536M322.765 689.208l-5.376 5.376M317.379 694.58h7.488M424.523 423.574l-1.056-1.056M423.456 422.521l-1.056-.48M422.403 422.041h-1.536M420.87 422.041l-1.056.48M419.816 422.521l-1.056 1.056M418.763 423.574l-.576 1.632M418.176 425.214v1.056M418.176 426.268l.576 1.632M418.763 427.894l1.056 1.056M419.816 428.948l1.056.48M420.87 429.428h1.535M422.403 429.428l1.056-.48M423.456 428.948l1.056-1.056M429.323 420.414l1.056-.48M430.376 419.934l1.632-1.632M432.003 418.294v11.136M438.922 420.988v-.576M438.922 420.414l.576-1.056M439.496 419.348l.48-.48M439.976 418.868l1.056-.576M441.029 418.294h2.112M443.136 418.294l1.056.576M444.202 418.868l.576.48M444.776 419.348l.48 1.056M445.256 420.414v1.056M445.256 421.468l-.48 1.056M444.776 422.521l-1.056 1.632M443.722 424.148l-5.376 5.28M438.336 429.428h7.488M545.48 421.561l-1.056-1.056M544.413 420.508l-1.056-.48M543.36 420.028h-1.536M541.826 420.028l-1.056.48M540.773 420.508l-1.056 1.056M539.72 421.561l-.576 1.632M539.133 423.188v1.056M539.133 424.254l.576 1.536M539.72 425.788l1.056 1.152M540.773 426.934l1.056.48M541.826 427.414h1.536M543.36 427.414l1.056-.48M544.413 426.934l1.056-1.152M550.28 418.388l1.056-.576M551.333 417.814l1.632-1.535M552.96 416.281v11.136M559.88 418.868v-.48M559.88 418.388l.575-1.056M560.453 417.335l.48-.576M560.933 416.761l1.056-.48M561.986 416.281h2.112M564.093 416.281l1.056.48M565.16 416.761l.575.576M565.733 417.335l.48 1.055M566.213 418.388v1.056M566.213 419.454l-.48 1.056M565.733 420.508l-1.056 1.632M564.68 422.134l-5.377 5.28M559.293 427.414h7.487M666.437 421.854l-1.056-1.056M665.37 420.788l-1.056-.576M664.317 420.214h-1.536M662.783 420.214l-1.056.576M661.73 420.788l-1.056 1.056M660.677 421.854l-.576 1.632M660.09 423.481v1.056M660.09 424.534l.576 1.536M660.677 426.068l1.056 1.056M661.73 427.134l1.056.576M662.783 427.708h1.536M664.317 427.708l1.056-.576M665.37 427.134l1.056-1.056M671.237 418.681l1.056-.576M672.29 418.108l1.632-1.536M673.916 416.575v11.135M680.836 419.161v-.48M680.836 418.681l.576-1.056M681.41 417.628l.48-.576M681.89 417.055l1.056-.48M682.943 416.575h2.112M685.05 416.575l1.056.48M686.116 417.055l.576.575M686.69 417.628l.48 1.056M687.17 418.681v1.056M687.17 419.734l-.48 1.056M686.69 420.788l-1.056 1.632M685.636 422.428l-5.376 5.28M680.25 427.708h7.487"/></g></g><g stroke="#20b2aa"><g stroke-width="28.8"><path stroke-width="3.839904" d="M734.395 734.417v-8.64M734.395 725.78v-4.992M734.395 720.78v-2.88M734.395 717.9v-1.824M734.395 716.087v-.96M734.395 715.127v-.48M734.395 714.647v-.672M734.395 713.967v-.672M734.395 713.3v-.48M734.395 712.82v-.384M734.395 712.434v-.384M734.395 712.047v-.864M734.395 711.18v-1.535M734.395 709.647v-1.92M734.395 707.727v-2.592M734.395 705.14v-2.207M734.395 702.927v-2.88M734.395 700.047V696.4M734.395 696.408V691.8M734.395 691.794v-5.664M734.395 686.128v-6.72M734.395 679.408v-11.232M734.395 668.182v-15.36M734.395 652.822v-10.656M734.395 642.169v-8.832M734.395 633.33v-5.857M734.395 627.476v-8.928M734.395 618.543v-10.176M734.395 608.37v-6.624M734.395 601.743v-9.792M734.395 591.957v-13.728M734.395 578.224v-25.728M734.395 552.504v-.48M734.395 552.024v-.96M734.395 551.064v-.575M734.395 550.491v-.576M734.395 549.905v-.768M734.395 549.145v-1.824M734.395 547.318v-1.632M734.395 545.691v-1.344M734.395 544.345v-1.824M734.395 542.518v-2.304M734.395 540.211v-4.32M734.395 535.892v-13.44M734.395 522.452v-6.912M734.395 515.545v-3.456M734.395 512.092v-1.824M734.395 510.266v-.864M734.395 509.399v-.672M734.395 508.732v-.48M734.395 508.252v-5.184M734.395 503.066v-1.056M734.395 502.012v-1.344M734.395 500.666v-1.44M734.395 499.226v-1.728M734.395 497.492v-2.015M734.395 495.48v-2.88M734.395 492.6v-1.057M734.395 491.546v-1.248M734.395 490.293v-2.688M734.395 487.613h-.096M734.302 487.613v-1.056M734.302 486.546v-1.056M734.302 485.493v-.768M734.302 484.733v-.576M734.302 484.146v-.384M734.302 483.773v-.288M734.302 483.48v-.288M734.302 483.186v-.192M734.302 483v-.191M734.302 482.813v-.193M734.302 482.613v-.192M734.302 482.426v-.19M734.302 482.226v-.193M734.302 482.04v-.191M734.302 481.853v-.193M734.302 481.653v-.192M734.302 481.466v-.288M734.302 481.173v-.19M734.302 480.986v-.288M734.302 480.693v-.288M734.302 480.413v-.288M734.302 480.12v-.384M734.302 479.733v-.288M734.302 479.453v-.384M734.302 479.066v-.48M734.302 478.586v-.384M734.302 478.2v-.386M734.302 477.813v-.383M734.302 477.426v-.384M734.302 477.053v-.384M734.302 476.666v-.288M734.302 476.373v-.384M734.302 475.986v-.288M734.302 475.706v-.192M734.302 475.506v-.288M734.302 475.226v-.192M734.302 475.026v-.096M734.302 474.933v-.192M734.302 474.746v-.096M734.302 474.653v-.096M734.302 474.546v-.096M734.302 474.453v-.096M734.302 474.36v-.096M734.302 474.266v-.096M734.302 474.173v-.096M734.302 474.066v-.096M734.302 473.973v-.096M734.302 473.88v-.096M734.302 473.786v-.096M734.302 473.693v-.096M734.302 473.586v-.096M734.302 473.493v-.096M734.302 473.4v-.096M734.302 473.306v-.096M734.302 473.213v-.192M734.302 473.013v-.096M734.302 472.92v-.096M734.302 472.826v-.096M734.302 472.733l-.096-.192M734.208 472.533v-.096M734.208 472.44v-.192M734.208 472.253v-.096M734.208 472.146v-.192M734.208 471.96v-.192M734.208 471.773v-.192M734.208 471.573v-.096M734.208 471.48v-.192M734.208 471.293v-.192M734.208 471.093v-.192M734.208 470.906v-.192M734.208 470.706v-.191M734.208 470.52v-.192M734.208 470.333v-.096M734.208 470.227v-.192M734.208 470.04v-.096M734.208 469.947v-.096M734.208 469.853v-.192M734.208 469.653v-.096M734.208 469.56v-.096M734.208 469.467v-.096M734.208 469.373v-.096M734.208 469.267v-.096M734.208 469.173v-.096M734.208 469.08v-.096M734.208 468.987l-.096-.096M734.115 468.893v-.096M734.115 468.787v-.096M734.115 468.693v-.096M734.115 468.6v-.096M734.115 468.507v-.096M734.115 468.413v-.096M734.115 468.307v-.096M734.115 468.213v-.096M734.115 468.12v-.096M734.115 468.027v-.096M734.115 467.933v-.096M734.115 467.827v-.096M734.115 467.733v-.096M734.115 467.64v-.096M734.115 467.547l-.096-.096M734.008 467.453v-.096M734.008 467.347v-.096M734.008 467.253v-.096M734.008 467.16v-.096M734.008 467.067v-.096M734.008 466.973v-.096M734.008 466.867v-.095M734.008 466.773v-.097M734.008 466.68h-.096M733.915 466.68v-.096M733.915 466.587v-.096M733.915 466.493v-.096M733.915 466.387v-.096M733.915 466.293v-.096M733.915 466.2v-.095M733.915 466.107v-.098M733.915 466.013h-.096M733.822 466.013v-.096M733.822 465.907v-.095M733.822 465.813v-.097M733.822 465.72v-.096M733.822 465.627v-.095M733.822 465.533h-.096M733.728 465.533v-.097M733.728 465.427v-.096M733.728 465.333v-.094M733.728 465.24v-.096M733.728 465.147h-.097M733.635 465.147v-.098M733.635 465.053v-.094M733.635 464.96v-.096M733.635 464.853h-.096M733.528 464.853v-.097M733.528 464.76l-.094-.095M733.435 464.667v-.096M733.435 464.573h-.096M733.342 464.573v-.096M733.342 464.48v-.096M733.342 464.373v-.096M733.342 464.28l-.098-.096M733.248 464.187v-.096M733.248 464.093v-.096M733.248 463.987l-.096-.096M733.155 463.893v-.096M733.155 463.8h-.096M733.048 463.8v-.096M733.048 463.707h-.096M732.955 463.707v-.096M732.955 463.613h-.096M732.862 463.613h-.096M732.768 463.613v-.096M732.768 463.507h-.096M732.675 463.507v-.096M732.675 463.413h-.096M732.568 463.413h-.096M732.475 463.413v-.096M732.475 463.32h-.096M732.382 463.32h-.096M732.288 463.32v-.096M732.288 463.227h-.097M732.195 463.227v-.096M732.195 463.133h-.096M732.088 463.133v-.096M732.088 463.027h-.094M731.995 463.027l-.096-.096M731.902 462.933h-.098M731.808 462.933h-.096M731.715 462.933v-.096M731.715 462.84h-.095M731.608 462.84h-.096M731.515 462.84h-.097M731.422 462.84v-.096M731.422 462.747h-.095M731.328 462.747h-.096M731.235 462.747h-.097M731.128 462.747l-.094-.096M731.035 462.653h-.096M730.942 462.653h-.096M730.848 462.653h-.096M730.755 462.653l-.096-.096M730.648 462.547h-.096M730.555 462.547h-.096M730.462 462.547h-.096M730.368 462.547l-.096-.096M730.275 462.453h-.096M730.168 462.453h-.096M730.075 462.453h-.096M729.982 462.453h-.096M729.888 462.453l-.096-.096M729.795 462.36h-.096M729.688 462.36h-.096M729.595 462.36h-.096M729.502 462.36h-.096M729.408 462.36h-.096M729.315 462.36l-.096-.096M729.208 462.267h-.096M729.115 462.267h-.096M729.022 462.267h-.096M728.928 462.267h-.096M728.835 462.267h-.096M728.728 462.267l-.096-.096M728.635 462.173h-.096M728.542 462.173h-.096M728.448 462.173h-.096M728.355 462.173h-.096M728.248 462.173h-.096M728.155 462.173h-.096M728.062 462.173l-.096-.096M727.968 462.067h-.096M727.875 462.067h-.096M727.768 462.067h-.096M727.675 462.067h-.096M727.582 462.067h-.192M727.395 462.067l-.096-.096M727.288 461.973h-.096M727.195 461.973h-.096M727.102 461.973l-.095-.096M727.008 461.88h-.193M726.808 461.88l-.094-.096M726.715 461.787h-.097M726.622 461.787l-.096-.096M726.529 461.693l-.192-.096M726.329 461.587l-.096-.096M726.235 461.493l-.096-.096M726.142 461.4l-.192-.096M725.955 461.307l-.096-.096M725.849 461.213h-.192M725.662 461.213l-.097-.096M725.569 461.107h-.191M725.382 461.107h-.097M725.275 461.107h-.19M725.089 461.107h-.098M724.995 461.107h-.192M724.795 461.107h-.096M724.702 461.107l-.192.096M724.515 461.213h-.096M724.422 461.213h-.192M724.222 461.213h-.192M724.035 461.213h-.096M723.942 461.213l-.192.096M723.742 461.307h-.192M723.555 461.307h-.192M723.355 461.307h-.096M723.262 461.307h-.192M723.075 461.307h-.192M722.875 461.307h-.192M722.689 461.307h-.192M722.502 461.307h-.192M722.302 461.307h-.192M722.115 461.307h-.192M721.915 461.307h-.192M721.729 461.307h-.192M721.542 461.307h-.192M721.342 461.307h-.192M721.155 461.307h-.192M720.955 461.307h-.192M720.769 461.307l-.288-.096M720.475 461.213h-.192M720.289 461.213h-.192M720.102 461.213l-.192-.096M719.902 461.107h-.288M719.622 461.107l-.192-.096M719.422 461.013l-.288-.096M719.142 460.92h-.192M718.942 460.92l-.288-.097M718.662 460.827h-.192M718.462 460.827l-.288-.096M718.182 460.733h-.192M717.982 460.733h-.288M717.702 460.733h-.192M717.502 460.733h-.288M717.222 460.733l-.288.096M716.929 460.827h-.288M716.635 460.827h-.288M716.355 460.827h-.192M716.155 460.827h-.288M715.875 460.827h-.288M715.582 460.827l-.288.097M715.302 460.92h-.288M715.009 460.92h-.288M714.715 460.92h-.288M714.435 460.92h-.384M714.049 460.92h-.288M713.755 460.92h-.288M713.475 460.92l-.287.095M713.182 461.013h-.384M712.796 461.013h-.288M712.516 461.013h-.383M712.129 461.013h-.288M711.849 461.013h-.385M711.462 461.013h-.288M711.169 461.013h-.385M710.782 461.013h-.384M710.396 461.013h-.288M710.116 461.013h-.383M709.729 461.013h-.385M709.342 461.013h-.385M708.956 461.013h-.384M708.582 461.013h-.382M708.196 461.013h-.386M707.809 461.013h-.385M707.422 461.013h-.382M707.049 461.013h-.384M706.662 461.013h-.481M706.182 461.013h-.382M705.796 461.013h-.384M705.409 461.013l-.48-.094M704.929 460.92h-.193M704.742 460.92h-.19M704.542 460.92h-.48M704.062 460.92h-.48M703.582 460.92h-.385M703.196 460.92h-.479M702.73 460.92h-.48M702.25 460.92h-.482M701.77 460.92h-.48M701.29 460.92h-.482M700.81 460.92h-.48M700.33 460.92h-.48M699.85 460.92h-.48M699.37 460.92h-.577M698.783 460.92h-.48M698.303 460.92h-.48M697.823 460.92h-.576M697.25 460.92h-.577M696.676 460.92h-.48M696.196 460.92h-.576M695.623 460.92h-.576M695.05 460.92h-.577M694.463 460.92h-.576M693.89 460.92h-.577M693.316 460.92h-.576M692.743 460.92h-.576M692.17 460.92h-.577M691.583 460.92h-.672M690.916 460.92h-.576M690.343 460.92h-.672M689.663 460.92h-.576M689.09 460.92h-.673M688.423 460.92h-.672M687.743 460.92h-.672M687.076 460.92h-.672M686.396 460.92h-.672M685.73 460.92h-.672M685.05 460.92h-.672M684.383 460.92h-.672M683.716 460.92h-.768M682.943 460.92h-.672M682.276 460.92h-.768M681.503 460.92l-.672-.096M680.836 460.827h-.384M680.45 460.827l-.384.096M680.063 460.92h-.768M679.29 460.92h-.768M678.53 460.92l-.768-.096M677.756 460.827h-.768M676.996 460.827h-.864M676.13 460.827h-.768M675.356 460.827h-.864M674.49 460.827h-.768M673.73 460.827h-.864M672.863 460.827H672M671.997 460.827h-.866M671.13 460.827h-.864M670.277 460.827h-.864M669.41 460.827h-.864M668.543 460.827h-.96M667.583 460.827h-.864M666.717 460.827h-.96M665.757 460.827h-.864M664.89 460.827h-.96M663.93 460.827h-.959M662.97 460.827h-.96M662.01 460.827h-1.057M660.957 460.827h-.959M659.997 460.827h-.96M659.037 460.827h-1.057M657.984 460.827h-1.055M656.93 460.827h-.96M655.97 460.827h-1.057M654.917 460.827h-1.152M653.757 460.827h-1.055M652.704 460.827h-1.058M651.65 460.827h-1.15M650.49 460.827h-1.056M649.437 460.827h-1.152M648.29 460.827l-1.153-.096M647.13 460.733h-1.15M645.984 460.733h-1.152M644.837 460.733h-1.248M643.584 460.733h-1.152M642.437 460.733h-1.248M641.184 460.733h-1.248M639.93 460.733h-1.247M638.69 460.733h-.575M638.117 460.733h-.672M637.437 460.733h-1.248M636.197 460.733h-1.248M634.944 460.733H633.6M633.597 460.733h-1.343M632.25 460.733h-.671M631.584 460.733h-.672M630.918 460.733h-1.344M629.57 460.733h-1.343M628.224 460.733h-1.344M626.878 460.733h-1.44M625.438 460.733h-.672M624.771 460.733h-.672M624.091 460.733h-1.44M622.651 460.733h-1.44M621.211 460.733h-1.536M619.678 460.733h-1.44M618.238 460.733h-.768M617.478 460.733l-1.44-.096M616.038 460.627h-.768M615.265 460.627h-.768M614.491 460.627l-.768.096M613.731 460.733h-1.536M612.198 460.733h-1.536M610.651 460.733h-.864M609.798 460.733h-1.536M608.251 460.733h-1.631M606.625 460.733h-.768M605.852 460.733h-.864M604.998 460.733l-.768-.096M604.225 460.627h-.864M603.358 460.627l-.864.096M602.492 460.733h-1.632M600.865 460.733l-1.632-.096M599.238 460.627h-.864M598.372 460.627h-.864M597.505 460.627h-.864M596.638 460.627l-.864.096M595.772 460.733h-1.728M594.052 460.733l-1.824-.096M592.225 460.627h-.864M591.359 460.627h-.864M590.492 460.627h-.96M589.532 460.627l-.864.096M588.679 460.733h-1.824M586.852 460.733l-1.824-.096M585.025 460.627h-.96M584.065 460.627h-.864M583.199 460.627h-1.92M581.279 460.627h-.959M580.319 460.627h-.961M579.359 460.627h-.961M578.399 460.627h-.96M577.439 460.627h-1.919M575.519 460.627h-.96M574.559 460.627h-.961M573.599 460.627h-2.016M571.586 460.627h-.96M570.626 460.627h-1.058M569.572 460.627h-2.014M567.56 460.627h-.962M566.6 460.627h-1.057M565.546 460.627h-1.057M564.48 460.627h-.96M563.52 460.627h-2.113M561.413 460.627h-1.056M560.36 460.627h-1.057M559.306 460.627h-1.056M558.24 460.627h-1.057M557.186 460.627h-1.056M556.133 460.627h-1.056M555.08 460.627h-2.208M552.866 460.627h-1.056M551.813 460.627h-1.152M550.666 460.627h-1.056M549.6 460.627h-1.152M548.453 460.627h-1.056M547.4 460.627h-1.152M546.24 460.627h-1.152M545.093 460.627h-1.056M544.04 460.627l-2.304-.096M541.733 460.533h-1.152M540.586 460.533h-1.151M539.427 460.533h-1.152M538.28 460.533h-1.152M537.12 460.533h-1.152M535.973 460.533h-1.248M534.72 460.533h-1.152M533.573 460.533h-1.152M532.427 460.533h-1.248M531.173 460.533h-1.152M530.027 460.533h-1.248M528.773 460.533h-1.152M527.627 460.533h-1.248M526.374 460.533h-1.248M525.12 460.533h-1.152M523.974 460.533h-1.248M522.72 460.533h-1.248M521.48 460.533h-1.248M520.227 460.533h-1.248M518.987 460.533h-1.248M517.734 460.533h-1.248M516.48 460.533h-1.248M515.24 460.533h-1.344M513.894 460.533h-1.248M512.64 460.533h-1.249M511.4 460.533h-1.342M510.054 460.533h-1.248M508.8 460.533h-1.345M507.454 460.533h-1.247M506.214 460.533h-1.345M504.867 460.533h-1.342M503.52 460.533h-1.345M502.174 460.533h-1.248M500.934 460.533h-1.342M499.588 460.533h-1.346M498.24 460.533h-1.342M496.908 460.533h-1.346M495.56 460.533h-1.439M494.121 460.533h-1.344M492.774 460.533h-1.344M491.428 460.533h-1.439M489.988 460.533h-1.346M488.641 460.533h-1.344M487.294 460.533h-1.44M485.855 460.533h-1.44M484.415 460.533h-1.344M483.081 460.533h-1.44M481.641 460.533h-1.44M480.201 460.533h-1.44M478.761 460.533h-1.44M477.321 460.533h-1.344M475.975 460.533h-1.536M474.441 460.533h-1.44M473.002 460.533l-1.44-.096M471.562 460.44h-1.44M470.122 460.44h-1.44M468.682 460.44h-1.536M467.135 460.44h-1.44M465.695 460.44h-1.536M464.162 460.44h-1.44M462.722 460.44h-1.536M461.188 460.44h-1.44M459.749 460.44h-1.536M458.215 460.44h-1.536M456.682 460.44h-1.536M455.135 460.44H453.6M453.602 460.44h-1.536M452.069 460.44h-1.536M450.535 460.44H449M449.002 460.44h-1.536M447.455 460.44h-1.535M445.922 460.44h-1.536M444.389 460.44h-1.632M442.762 460.44h-1.536M441.216 460.44h-1.632M439.589 460.44h-1.536M438.056 460.44h-1.632M436.416 460.44h-1.632M434.79 460.44h-1.537M433.256 460.44h-1.632M431.616 460.44h-1.632M429.99 460.44h-1.633M428.363 460.44h-1.632M426.723 460.44h-1.632M425.096 460.44h-1.632M423.456 460.44h-1.632M421.83 460.44h-1.633M420.203 460.44h-1.728M418.47 460.44h-1.632M416.843 460.44h-1.632M415.203 460.44h-1.728M413.483 460.44h-1.632M411.843 460.44h-1.728M410.123 460.44h-1.632M408.483 460.44l-1.728-.096M406.763 460.347h-1.728M405.03 460.347h-1.728M403.297 460.347h-1.728M401.577 460.347h-1.728M399.843 460.347h-1.728M398.123 460.347h-1.728M396.39 460.347h-1.728M394.657 460.347h-1.728M392.937 460.347h-1.728M391.204 460.347h-1.728M389.484 460.347h-1.824M387.657 460.347h-1.728M385.924 460.347h-1.728M384.204 460.347h-1.824M382.377 460.347h-1.824M380.55 460.347h-1.727M378.817 460.347h-1.824M377.004 460.347h-1.728M375.27 460.347h-1.823M373.444 460.347h-1.824M371.617 460.347h-1.825M369.804 460.347h-1.823M367.977 460.347h-1.823M366.15 460.347h-1.823M364.324 460.347H362.5M362.498 460.347h-1.824M360.684 460.347h-1.824M358.858 460.347h-1.824M357.031 460.347h-1.921M355.111 460.347h-1.824M353.285 460.347h-1.823M351.458 460.347h-1.921M349.538 460.347h-1.824M347.725 460.347l-1.92-.096M345.805 460.253h-1.823M343.978 460.253h-1.921M342.058 460.253h-1.92M340.138 460.253h-1.824M338.312 460.253h-1.92M336.392 460.253h-1.92M334.472 460.253h-1.92M332.552 460.253h-1.92M330.632 460.253h-1.92M328.712 460.253h-1.824M326.885 460.253h-1.92M324.965 460.253h-1.92M323.045 460.253h-2.016M321.032 460.253h-1.92M319.112 460.253h-1.92M317.192 460.253h-1.92M315.272 460.253h-1.92M313.352 460.253h-1.92M311.432 460.253h-2.016M309.419 460.253h-1.92M307.499 460.253h-1.92M305.579 460.253h-.96M304.62 460.253h-2.017M302.606 460.253h-1.92M300.686 460.253l-2.016-.096M298.66 460.147h-.96M297.7 460.147h-1.92M295.78 460.147h-2.017M293.766 460.147h-1.92M291.846 460.147h-2.016M289.833 460.147h-1.92M287.913 460.147h-2.016M285.9 460.147h-2.016M283.886 460.147h-1.92M281.966 460.147h-2.016M279.94 460.147h-1.92M278.02 460.147h-2.016M276.006 460.147h-2.016M273.993 460.147h-1.92M272.073 460.147h-2.016M270.06 460.147h-2.016M268.047 460.147h-2.016M266.02 460.147h-1.92M264.1 460.147h-2.016M262.087 460.147h-.96M261.127 460.147h-2.016M259.114 460.147h-2.016M257.1 460.147l-1.92-.096M255.18 460.053h-2.016M253.167 460.053h-.96M252.207 460.053h-2.016M250.18 460.053h-1.056M249.127 460.053h-1.92M247.207 460.053h-2.016M245.194 460.053h-2.016M243.18 460.053h-.96M242.22 460.053h-1.92M240.3 460.053h-2.015M238.287 460.053h-2.016M236.26 460.053h-1.92M234.34 460.053h-2.015M232.328 460.053l-1.92-.096M230.408 459.96h-2.016M228.394 459.96l-.96.096M227.434 460.053h-1.92M225.514 460.053l-2.016-.096M223.501 459.96h-1.92M221.581 459.96h-1.92M219.661 459.96h-1.056M218.608 459.96h-1.92M216.688 459.96h-1.44M215.248 459.96h-1.44M213.808 459.96h-.96M212.848 459.96h-1.92M210.928 459.96l-1.92-.096M209.008 459.867h-1.92M207.088 459.867l-.96-.096M206.128 459.773l-1.92-.096M204.208 459.667l-1.92-.096M202.288 459.573l-1.92-.192M200.368 459.387l-1.824-.384M198.542 459l-1.92-.384M196.622 458.613l-.864-.384M195.755 458.227l-1.92-.576M193.835 457.653l-.96-.48M192.875 457.174l-.864-.288M192.009 456.894l-.48-.288M191.529 456.6l-.48-.384M191.049 456.214l-.864-.384M190.182 455.827l-.48-.48M189.702 455.347l-.96-.48M188.742 454.867l-.672-.288M188.075 454.587l-.384-.192M187.689 454.387l-.48-.192M187.209 454.2h-.48M186.729 454.2l-.288.096M186.449 454.294l-.384.192M186.062 454.494l-.48.384M185.582 454.867l-.192.288M185.382 455.16l-.288.384M185.102 455.547l-.288.576M184.809 456.12l-.384.576M184.422 456.694l-.192.48M184.235 457.174l-.288.287M183.942 457.467l-.096.288M183.849 457.747l-.192.384M183.662 458.133l-.192.384M183.462 458.52l-.192.192M183.275 458.707l-.096.288M183.182 459l-.288.288M182.889 459.293l-.192.192M182.702 459.48l-.096.192M182.609 459.667l-.192.192M182.409 459.867l-.288.096M182.129 459.96l-.096.096M182.022 460.053l-.192.096M181.835 460.147l-.096.096M181.742 460.253l-.384.098M181.355 460.347l-.192.094M181.169 460.44h-.192M180.969 460.44l-.288.096M180.689 460.533h-.192M180.489 460.533l-.288.098M180.209 460.627h-.192M180.009 460.627h-.192M179.822 460.627h-.288M179.529 460.627l-.288.094M179.249 460.733h-.192M179.049 460.733h-.288M178.769 460.733h-.384M178.382 460.733h-.192M178.182 460.733h-.192M177.996 460.733h-.48M177.516 460.733h-.48M177.036 460.733h-.384M176.649 460.733h-.288M176.369 460.733l-.192.096M176.169 460.827h-.384M175.782 460.827h-.864M174.929 460.827h-.96M173.969 460.827h-1.248M172.716 460.827h-.672M172.049 460.827h-1.44M170.61 460.827h-1.345M169.262 460.827h-.768M168.49 460.827l-.48-.096M168.01 460.733h-.385M167.622 460.733h-.48M167.142 460.733h-.288M166.862 460.733h-.287M166.57 460.733h-.289M166.29 460.733h-.385M165.903 460.733h-.576M165.33 460.733h-.289M165.036 460.733h-.384M164.65 460.733l-.385-.096M164.263 460.627h-.384M163.89 460.627h-.385M163.503 460.627h-.288M163.21 460.627h-.193M163.023 460.627h-.384M162.636 460.627h-.384M162.25 460.627h-.193M162.063 460.627h-.192M161.863 460.627h-.48M161.383 460.627h-.384M161.01 460.627h-.385M160.623 460.627h-.288M160.33 460.627h-.289M160.05 460.627h-.577M159.463 460.627h-.384M159.09 460.627h-.289M158.796 460.627h-.192M158.61 460.627h-.289M158.316 460.627h-.192M158.13 460.627h-.289M157.836 460.627h-.192M157.65 460.627h-.193M157.45 460.627h-.193M157.263 460.627h-.192M157.063 460.627h-.384M156.69 460.627h-.385M156.303 460.627h-.384M155.916 460.627h-.384M155.53 460.627h-.193M155.343 460.627h-.192M155.143 460.627h-.384M154.77 460.627h-.385M154.383 460.627h-.384M153.996 460.627h-.384M153.61 460.627h-.384M153.223 460.627h-.384M152.85 460.627h-.384M152.463 460.627h-.288M152.17 460.627h-.384M151.783 460.627h-.384M151.41 460.627h-.192M151.21 460.627h-.192M151.023 460.627h-.384M150.636 460.627h-.288M150.343 460.627h-.384M149.97 460.627h-.384M149.583 460.627h-.384M149.196 460.627h-.288M148.903 460.627h-.192M148.716 460.627h-.192M148.53 460.627h-.384M148.143 460.627h-.288M147.85 460.627h-.384M147.463 460.627h-.384M147.09 460.627h-.288M146.796 460.627h-.384M146.41 460.627h-.288M146.13 460.627h-.384M145.743 460.627h-.192M145.543 460.627h-.096M145.45 460.627h-.384M145.063 460.627h-.288M144.783 460.627h-.384M144.396 460.627h-.288M144.103 460.627h-.384M143.73 460.627h-.288M143.436 460.627h-.192M143.25 460.627h-.096M143.143 460.627h-.384M142.77 460.627h-.288M142.476 460.627h-.288M142.183 460.627h-.384M141.81 460.627h-.288M141.516 460.627h-.288M141.223 460.627h-.288M140.943 460.627h-.288M140.65 460.627h-.288M140.37 460.627h-.384M139.983 460.627h-.288M139.69 460.627h-.288M139.41 460.627h-.288M139.117 460.627h-.288M138.823 460.627h-.288M138.543 460.627h-.288M138.25 460.627h-.288M137.97 460.627h-.288M137.677 460.627h-.288M137.383 460.627h-.288M137.103 460.627h-.192M136.903 460.627h-.288M136.623 460.627h-.096M136.53 460.627h-.192M136.33 460.627h-.192M136.143 460.627h-.288M135.85 460.627h-.288M135.57 460.627h-.192M135.37 460.627h-.288M135.09 460.627h-.288M134.797 460.627h-.192M134.61 460.627h-.19M134.41 460.627h-.29M134.13 460.627h-.192M133.93 460.627h-.288M133.65 460.627h-.192M133.45 460.627h-.096M133.357 460.627h-.096M133.26 460.627h-.287M132.973 460.627h-.192M132.78 460.627h-.192M132.589 460.627h-.192M132.397 460.627h-.192M132.205 460.627h-.192M132.013 460.627h-.192M131.82 460.627h-.192M131.629 460.627h-.096M131.533 460.627h-.192M131.34 460.627h-.19M131.149 460.627h-.097M131.053 460.627h-.192M130.86 460.627h-.191M130.669 460.627h-.192M130.477 460.627h-.096M130.38 460.627h-.095M130.285 460.627h-.192M130.093 460.627h-.096M129.997 460.627h-.096M129.9 460.627h-.096M129.805 460.627h-.096M129.709 460.627h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M171.756 439.32v7.488M171.756 441.427l1.632-1.536M173.382 439.894l1.056-.576M174.449 439.32h1.536M175.982 439.32l1.056.577M177.036 439.894l.576 1.536M177.609 441.427v5.376M181.355 442.494h6.336M187.689 442.494v-1.056M187.689 441.427l-.48-1.056M187.209 440.374l-.576-.48M186.635 439.894l-1.056-.576M185.582 439.32h-1.632M183.942 439.32l-1.056.577M182.889 439.894l-1.056 1.056M181.835 440.947l-.48 1.536M181.355 442.494v1.056M181.355 443.547l.48 1.632M181.835 445.174l1.056 1.056M182.889 446.227l1.056.576M183.942 446.814h1.632M185.582 446.814l1.056-.576M186.635 446.227l1.056-1.056M191.435 438.267v-.48M191.435 437.787l.48-1.152M191.915 436.627l.576-.48M192.489 436.147l1.055-.576M193.542 435.574h2.112M195.662 435.574l1.056.576M196.715 436.147l.576.48M197.288 436.627l.48 1.152M197.768 437.787v1.056M197.768 438.84l-.48 1.057M197.288 439.894l-1.056 1.536M196.235 441.427l-5.376 5.376M190.862 446.814h7.488M204.688 435.574l-1.536.576M203.142 436.147l-1.056 1.632M202.088 437.787l-.576 2.592M201.515 440.374v1.632M201.515 442.014l.576 2.688M202.088 444.694l1.056 1.536M203.142 446.227l1.536.576M204.688 446.814h1.056M205.742 446.814l1.631-.576M207.368 446.227l1.056-1.536M208.421 444.694l.576-2.688M209.008 442.014v-1.632M209.008 440.374l-.576-2.592M208.421 437.787l-1.056-1.632M207.368 436.147l-1.632-.576M205.742 435.574h-1.056M292.713 443.827v7.392M292.713 445.947l1.632-1.632M294.34 444.307l1.055-.48M295.406 443.827h1.536M296.94 443.827l1.055.48M297.993 444.307l.576 1.632M298.566 445.947v5.28M302.312 447h6.336M308.646 447v-1.056M308.646 445.947l-.48-1.056M308.166 444.894l-.576-.576M307.592 444.307l-1.056-.48M306.539 443.827h-1.632M304.899 443.827l-1.056.48M303.846 444.307l-1.056 1.056M302.792 445.374l-.48 1.632M302.312 447v1.056M302.312 448.054l.48 1.632M302.792 449.694l1.056 1.056M303.846 450.747l1.056.48M304.899 451.227h1.632M306.539 451.227l1.056-.48M307.592 450.747l1.056-1.056M312.392 442.774v-.576M312.392 442.2l.48-1.055M312.872 441.147l.576-.576M313.445 440.574l1.056-.48M314.499 440.094h2.112M316.619 440.094l1.056.48M317.672 440.574l.576.576M318.245 441.147l.48 1.056M318.725 442.2v1.057M318.725 443.254l-.48 1.056M318.245 444.307l-1.056 1.632M317.192 445.947l-5.376 5.28M311.819 451.227h7.488M325.645 440.094l-1.536.48M324.099 440.574l-1.056 1.632M323.045 442.2l-.576 2.688M322.472 444.894v1.536M322.472 446.427l.576 2.688M323.045 449.107l1.056 1.632M324.099 450.747l1.536.48M325.645 451.227h1.056M326.698 451.227l1.632-.48M328.325 450.747l1.056-1.632M329.378 449.107l.576-2.688M329.965 446.427v-1.536M329.965 444.894l-.576-2.688M329.378 442.2l-1.056-1.631M328.325 440.574l-1.632-.48M326.698 440.094h-1.055M413.67 444.027v7.392M413.67 446.134l1.632-1.632M415.296 444.507l1.056-.48M416.363 444.027h1.536M417.896 444.027l1.056.48M418.95 444.507l.576 1.632M419.523 446.134v5.28M423.27 447.187h6.335M429.603 447.187v-1.056M429.603 446.134l-.48-1.056M429.123 445.08l-.576-.576M428.55 444.507l-1.057-.48M427.496 444.027h-1.632M425.856 444.027l-1.056.48M424.803 444.507l-1.056 1.056M423.75 445.56l-.48 1.632M423.27 447.187v1.056M423.27 448.254l.48 1.632M423.75 449.88l1.055 1.056M424.803 450.934l1.056.48M425.856 451.414h1.632M427.496 451.414l1.056-.48M428.55 450.934l1.055-1.056M433.35 442.974v-.576M433.35 442.387l.48-1.056M433.83 441.334l.575-.576M434.402 440.76l1.056-.48M435.456 440.28h2.112M437.576 440.28l1.056.48M438.629 440.76l.576.577M439.202 441.334l.48 1.056M439.682 442.387v1.056M439.682 443.454l-.48 1.056M439.202 444.507l-1.056 1.632M438.149 446.134l-5.376 5.28M432.776 451.414h7.488M446.602 440.28l-1.536.48M445.056 440.76 444 442.394M444.002 442.387l-.576 2.688M443.429 445.08v1.536M443.429 446.614l.576 2.688M444.002 449.307l1.056 1.632M445.056 450.934l1.536.48M446.602 451.414h1.056M447.655 451.414l1.632-.48M449.282 450.934l1.056-1.632M450.335 449.307l.576-2.688M450.922 446.614v-1.536M450.922 445.08l-.576-2.687M450.335 442.387l-1.056-1.632M449.282 440.76l-1.632-.48M447.655 440.28H446.6M534.627 444.12v7.488M534.627 446.334l1.632-1.632M536.253 444.694l1.056-.576M537.32 444.12h1.536M538.853 444.12l1.056.576M539.907 444.694l.575 1.632M540.48 446.334v5.28M544.226 447.387h6.336M550.56 447.387v-1.056M550.56 446.334l-.48-1.152M550.08 445.174l-.576-.48M549.506 444.694l-1.056-.576M548.453 444.12h-1.632M546.813 444.12l-1.056.576M545.76 444.694l-1.056 1.056M544.706 445.747l-.48 1.632M544.226 447.387v1.056M544.226 448.44l.48 1.536M544.706 449.974l1.056 1.056M545.76 451.027l1.056.576M546.813 451.614h1.632M548.453 451.614l1.056-.576M549.506 451.027l1.056-1.056M554.306 443.067v-.48M554.306 442.587l.48-1.056M554.786 441.534l.576-.576M555.36 440.947l1.055-.48M556.413 440.467h2.112M558.533 440.467l1.056.48M559.586 440.947l.576.576M560.16 441.534l.48 1.056M560.64 442.587v1.056M560.64 443.64l-.48 1.056M560.16 444.694l-1.057 1.632M559.106 446.334l-5.376 5.28M553.733 451.614h7.488M567.56 440.467l-1.537.48M566.013 440.947l-1.056 1.632M564.96 442.587l-.577 2.592M564.386 445.174v1.632M564.386 446.814l.576 2.688M564.96 449.494l1.055 1.536M566.013 451.027l1.535.576M567.56 451.614h1.055M568.612 451.614l1.632-.576M570.24 451.027l1.055-1.536M571.292 449.494l.576-2.688M571.879 446.814v-1.632M571.879 445.174l-.576-2.592M571.292 442.587l-1.056-1.632M570.24 440.947l-1.633-.48M568.612 440.467h-1.056M655.584 444.414v7.488M655.584 446.52l1.632-1.536M657.21 444.987l1.056-.576M658.277 444.414h1.536M659.81 444.414l1.056.576M660.863 444.987l.576 1.536M661.437 446.52v5.376M665.183 447.574h6.336M671.517 447.574v-1.056M671.517 446.52l-.48-1.056M671.037 445.467l-.576-.48M670.463 444.987l-1.056-.576M669.41 444.414h-1.632M667.77 444.414l-1.056.576M666.717 444.987l-1.056 1.056M665.663 446.04l-.48 1.536M665.183 447.574v1.056M665.183 448.627l.48 1.632M665.663 450.267l1.056 1.056M666.717 451.32l1.056.576M667.77 451.894h1.632M669.41 451.894l1.056-.576M670.463 451.32l1.056-1.056M675.263 443.347v-.48M675.263 442.867l.48-1.152M675.743 441.72l.576-.48M676.316 441.24l1.056-.575M677.37 440.667h2.112M679.49 440.667l1.056.576M680.543 441.24l.576.48M681.116 441.72l.48 1.153M681.596 442.867v1.056M681.596 443.934l-.48 1.056M681.116 444.987l-1.056 1.536M680.063 446.52l-5.376 5.376M674.69 451.894h7.488M688.516 440.667l-1.536.576M686.97 441.24l-1.056 1.633M685.916 442.867l-.576 2.592M685.343 445.467v1.632M685.343 447.094l.576 2.688M685.916 449.787l1.056 1.536M686.97 451.32l1.535.576M688.516 451.894h1.056M689.57 451.894l1.631-.576M691.196 451.32l1.056-1.536M692.25 449.787l.575-2.688M692.836 447.094v-1.632M692.836 445.467l-.576-2.592M692.25 442.867l-1.055-1.632M691.196 441.24l-1.633-.575M689.57 440.667h-1.057"/></g></g><g stroke="#a9a9a9"><g stroke-width="28.8"><path stroke-width="3.839904" d="M734.395 734.417v-1.055M734.395 733.361v-1.728M734.395 731.633v-1.248M734.395 730.38v-.96M734.395 729.42v-.672M734.395 728.753v-.672M734.395 728.087v-.768M734.395 727.313v-.672M734.395 726.647v-.768M734.395 725.873v-.768M734.395 725.1v-1.152M734.395 723.954v-1.248M734.395 722.7v-.864M734.395 721.847v-.576M734.395 721.26v-.384M734.395 720.887v-.672M734.395 720.207v-.672M734.395 719.54v-.384M734.395 719.154v-.672M734.395 718.487v-.768M734.395 717.714v-3.264M734.395 714.447v-.576M734.395 713.874v-.48M734.395 713.394v-.768M734.395 712.62v-.864M734.395 711.767v-1.152M734.395 710.607v-1.056M734.395 709.554v-.576M734.395 708.98v-.383M734.395 708.594v-.48M734.395 708.114v-.384M734.395 707.727v-.672M734.395 707.06v-2.4M734.395 704.66v-2.207M734.395 702.447v-.384M734.395 702.06v-.191M734.395 701.874v-.096M734.395 701.78v-.095M734.395 701.687v-2.112M734.395 699.567v-2.016M734.395 697.554v-1.056M734.395 696.5v-.863M734.395 695.634v-.768M734.395 694.86v-.48M734.395 694.38v-1.535M734.395 692.848v-1.44M734.395 691.408v-.576M734.395 690.834v-1.248M734.395 689.581h-.096M734.302 689.581v-1.248M734.302 688.341v-.768M734.302 687.568v-.768M734.302 686.808v-.672M734.302 686.128v-.672M734.302 685.461v-.48M734.302 684.981v-.576M734.302 684.408v-.384M734.302 684.021v-.384M734.302 683.635v-.384M734.302 683.248v-.384M734.302 682.861v-.288M734.302 682.581v-.288M734.302 682.288V682M734.302 682.008v-.288M734.302 681.715v-.192M734.302 681.528v-.288M734.302 681.235v-.192M734.302 681.048v-.192M734.302 680.848v-.192M734.302 680.661v-.288M734.302 680.368v-.192M734.302 680.181v-.192M734.302 679.981v-.192M734.302 679.795v-.192M734.302 679.608v-.192M734.302 679.408v-.192M734.302 679.221v-.192M734.302 679.021v-.192M734.302 678.835v-.192M734.302 678.648v-.192M734.302 678.448v-.192M734.302 678.261v-.192M734.302 678.061v-.096M734.302 677.968v-.192M734.302 677.781v-.192M734.302 677.581v-.192M734.302 677.395v-.192M734.302 677.208v-.096M734.302 677.101v-.192M734.302 676.915v-.192M734.302 676.728v-.096M734.302 676.621v-.192M734.302 676.435v-.096M734.302 676.341v-.192M734.302 676.141v-.096M734.302 676.048v-.096M734.302 675.955v-.192M734.302 675.768v-.096M734.302 675.661v-.096M734.302 675.568v-.096M734.302 675.475v-.192M734.302 675.288v-.096M734.302 675.181v-.096M734.302 675.088v-.096M734.302 674.995v-.096M734.302 674.901v-.096M734.302 674.808v-.096M734.302 674.701l-.096-.096M734.208 674.608v-.192M734.208 674.421v-.096M734.208 674.328v-.096M734.208 674.221v-.096M734.208 674.128v-.096M734.208 674.035v-.096M734.208 673.941v-.096M734.208 673.848v-.096M734.208 673.741v-.096M734.208 673.648v-.096M734.208 673.555v-.096M734.208 673.461v-.096M734.208 673.368v-.096M734.208 673.261v-.096M734.208 673.168v-.096M734.208 673.075v-.096M734.208 672.981v-.096M734.208 672.888v-.096M734.208 672.781v-.096M734.208 672.688v-.096M734.208 672.595v-.096M734.208 672.501v-.096M734.208 672.408v-.096M734.208 672.301v-.096M734.208 672.208v-.096M734.208 672.115v-.096M734.208 672.021v-.096M734.208 671.928h-.096M734.115 671.928v-.096M734.115 671.821v-.096M734.115 671.728v-.096M734.115 671.635v-.096M734.115 671.541v-.096M734.115 671.448v-.096M734.115 671.341v-.096M734.115 671.248v-.096M734.115 671.155v-.096M734.115 671.061v-.096M734.115 670.968v-.096M734.115 670.861l-.096-.096M734.008 670.768v-.096M734.008 670.675v-.096M734.008 670.582v-.096M734.008 670.488v-.096M734.008 670.382v-.096M734.008 670.288v-.096M734.008 670.195v-.096M734.008 670.102l-.096-.096M733.915 670.008v-.096M733.915 669.902v-.096M733.915 669.808v-.096M733.915 669.715v-.096M733.915 669.622l-.096-.096M733.822 669.528v-.096M733.822 669.422v-.096M733.822 669.328v-.096M733.822 669.235h-.096M733.728 669.235v-.096M733.728 669.142v-.096M733.728 669.048v-.096M733.728 668.942h-.097M733.635 668.942v-.096M733.635 668.848v-.096M733.635 668.755v-.096M733.635 668.662h-.096M733.528 668.662v-.096M733.528 668.568l-.094-.096M733.435 668.462v-.096M733.435 668.368h-.096M733.342 668.368v-.096M733.342 668.275v-.096M733.342 668.182h-.098M733.248 668.182v-.096M733.248 668.088l-.096-.096M733.155 667.982v-.096M733.155 667.888h-.096M733.048 667.888v-.096M733.048 667.795h-.096M732.955 667.795v-.096M732.955 667.702h-.096M732.862 667.702h-.096M732.768 667.702v-.096M732.768 667.608h-.096M732.675 667.608v-.096M732.675 667.502h-.096M732.568 667.502h-.096M732.475 667.502v-.096M732.475 667.408h-.096M732.382 667.408h-.096M732.288 667.408l-.096-.096M732.195 667.315h-.096M732.088 667.315l-.096-.096M731.995 667.222h-.096M731.902 667.222h-.096M731.808 667.222v-.096M731.808 667.128h-.096M731.715 667.128h-.096M731.608 667.128l-.096-.096M731.515 667.022h-.096M731.422 667.022h-.096M731.328 667.022h-.096M731.235 667.022l-.096-.096M731.128 666.928h-.096M731.035 666.928h-.096M730.942 666.928h-.096M730.848 666.928h-.096M730.755 666.928v-.096M730.755 666.835h-.096M730.648 666.835h-.096M730.555 666.835h-.096M730.462 666.835h-.096M730.368 666.835h-.096M730.275 666.835h-.096M730.168 666.835v-.096M730.168 666.742h-.097M730.075 666.742h-.096M729.982 666.742h-.095M729.888 666.742h-.097M729.795 666.742h-.097M729.688 666.742h-.094M729.595 666.742v-.096M729.595 666.648h-.096M729.502 666.648h-.098M729.408 666.648h-.097M729.315 666.648h-.095M729.208 666.648h-.096M729.115 666.648h-.097M729.022 666.648h-.096M728.928 666.648l-.096-.096M728.835 666.542h-.096M728.728 666.542h-.096M728.635 666.542h-.096M728.542 666.542h-.096M728.448 666.542h-.096M728.355 666.542h-.096M728.248 666.542h-.096M728.155 666.542h-.096M728.062 666.542l-.096-.096M727.968 666.448h-.096M727.875 666.448h-.096M727.768 666.448h-.096M727.675 666.448h-.096M727.582 666.448h-.192M727.395 666.448h-.096M727.288 666.448h-.096M727.195 666.448h-.096M727.102 666.448l-.096-.096M727.008 666.355h-.192M726.808 666.355h-.096M726.715 666.355h-.096M726.622 666.355h-.096M726.529 666.355h-.192M726.329 666.355h-.096M726.235 666.355h-.096M726.142 666.355h-.192M725.955 666.355l-.096-.096M725.849 666.262h-.192M725.662 666.262h-.096M725.569 666.262h-.192M725.369 666.262h-.096M725.275 666.262h-.192M725.089 666.262h-.096M724.995 666.262h-.192M724.795 666.262h-.096M724.702 666.262l-.192-.096M724.515 666.168h-.096M724.409 666.168h-.192M724.222 666.168h-.192M724.035 666.168h-.096M723.929 666.168h-.192M723.742 666.168h-.192M723.555 666.168h-.192M723.355 666.168h-.096M723.262 666.168l-.192-.096M723.075 666.062h-.192M722.875 666.062h-.192M722.689 666.062h-.192M722.489 666.062h-.192M722.302 666.062h-.192M722.115 666.062h-.192M721.915 666.062h-.192M721.729 666.062l-.192-.096M721.529 665.968h-.192M721.342 665.968h-.192M721.155 665.968h-.192M720.955 665.968h-.192M720.769 665.968h-.288M720.475 665.968h-.192M720.289 665.968l-.192-.096M720.102 665.875h-.193M719.902 665.875h-.288M719.609 665.875h-.192M719.422 665.875h-.288M719.129 665.875h-.192M718.942 665.875l-.288-.096M718.649 665.782h-.192M718.462 665.782h-.288M718.169 665.782h-.19M717.982 665.782h-.288M717.702 665.782l-.193-.096M717.502 665.688h-.288M717.209 665.688h-.288M716.929 665.688h-.288M716.635 665.688h-.288M716.355 665.688l-.192-.096M716.155 665.582h-.288M715.875 665.582h-.288M715.582 665.582h-.288M715.302 665.582l-.288-.096M715.009 665.488h-.288M714.715 665.488h-.288M714.435 665.488l-.384-.096M714.049 665.395h-.288M713.755 665.395h-.288M713.475 665.395l-.287-.096M713.182 665.302h-.384M712.796 665.302l-.288-.096M712.516 665.208h-.384M712.129 665.208h-.288M711.836 665.208l-.384-.096M711.462 665.102h-.288M711.169 665.102l-.384-.096M710.782 665.008h-.384M710.396 665.008l-.288-.096M710.116 664.915h-.384M709.729 664.915l-.384-.096M709.342 664.822l-.384-.096M708.956 664.728h-.384M708.582 664.728l-.384-.096M708.196 664.622l-.384-.096M707.809 664.528h-.384M707.422 664.528l-.384-.096M707.036 664.435l-.384-.096M706.662 664.342l-.48-.096M706.182 664.248l-.384-.096M705.796 664.142l-.384-.096M705.409 664.048l-.48-.096M704.929 663.955h-.192M704.742 663.955l-.192-.096M704.542 663.862l-.48-.096M704.062 663.768l-.48-.096M703.582 663.662l-.384-.096M703.196 663.568l-.48-.192M702.716 663.382l-.48-.096M702.236 663.288l-.48-.096M701.756 663.182l-.48-.192M701.276 662.995l-.48-.096M700.796 662.902l-.48-.192M700.316 662.702l-.48-.192M699.836 662.515l-.48-.096M699.356 662.422l-.576-.192M698.783 662.222l-.48-.192M698.303 662.035l-.48-.192M697.823 661.848l-.576-.192M697.25 661.648l-.577-.288M696.676 661.368l-.48-.192M696.196 661.168l-.576-.192M695.623 660.982l-.576-.288M695.05 660.688l-.577-.192M694.463 660.502l-.578-.288M693.89 660.208l-.577-.288M693.316 659.928l-.576-.288M692.743 659.635l-.576-.288M692.156 659.342l-.576-.384M691.583 658.968l-.674-.288M690.916 658.675l-.576-.384M690.343 658.288l-.67-.384M689.663 657.902l-.578-.384M689.09 657.528l-.671-.383M688.423 657.142l-.672-.384M687.743 656.755l-.672-.384M687.076 656.369l-.673-.48M686.41 655.889l-.672-.48M685.73 655.409l-.672-.48M685.063 654.929l-.672-.48M684.383 654.449l-.672-.576M683.716 653.875l-.768-.48M682.943 653.395l-.672-.576M682.276 652.822l-.768-.576M681.503 652.249l-.672-.48M680.836 651.769l-.384-.384M680.45 651.382l-.384-.384M680.063 650.995l-.768-.672M679.303 650.329l-.768-.672M678.53 649.649l-.768-.768M677.77 648.889l-.768-.672M676.996 648.209l-.864-.768M676.13 647.449l-.768-.768M675.37 646.675l-.864-.864M674.503 645.809l-.768-.864M673.73 644.942l-.864-.864M672.863 644.089l-.864-.864M672.01 643.222l-.864-.864M671.13 642.356l-.864-.96M670.277 641.396l-.864-.96M669.41 640.436l-.864-1.056M668.543 639.382l-.96-1.056M667.583 638.329l-.864-1.056M666.717 637.262l-.96-1.056M665.757 636.209l-.864-1.152M664.89 635.062l-.96-1.152M663.93 633.902l-.96-1.152M662.97 632.756l-.96-1.248M662.01 631.502l-1.056-1.151M660.957 630.356l-.96-1.344M659.997 629.01l-.96-1.249M659.037 627.77l-1.056-1.345M657.984 626.423l-1.056-1.344M656.93 625.076l-.96-1.344M655.97 623.73l-1.056-1.44M654.917 622.29l-1.152-1.44M653.757 620.85l-1.056-1.44M652.704 619.41l-1.056-1.537M651.65 617.876l-1.152-1.536M650.49 616.343l-1.056-1.536M649.437 614.81l-1.15-1.536M648.29 613.263l-1.153-1.632M647.13 611.636l-1.151-1.632M645.984 610.01l-1.152-1.632M644.837 608.37l-1.248-1.632M643.584 606.743l-1.152-1.728M642.437 605.01l-1.248-1.728M641.184 603.29l-1.248-1.728M639.93 601.557l-1.246-1.344M638.69 600.21l-.577-.864M638.117 599.343l-.67-1.344M637.437 598.01l-1.248-1.824M636.197 596.183l-1.249-1.824M634.944 594.357l-1.344-1.824M633.597 592.53l-1.343-1.44M632.25 591.09l-.672-.864M631.584 590.224l-.672-1.44M630.918 588.784l-1.343-1.92M629.57 586.864l-1.344-1.92M628.224 584.944l-1.342-1.92M626.878 583.024l-1.44-1.44M625.438 581.584l-.672-.96M624.771 580.624l-.672-1.536M624.091 579.09l-1.44-1.92M622.651 577.17l-1.44-2.015M621.211 575.157l-1.536-2.016M619.678 573.144l-1.44-1.536M618.238 571.61l-.768-1.535M617.478 570.064l-1.44-1.536M616.038 568.53l-.768-1.055M615.265 567.477l-.768-.96M614.491 566.517l-.768-1.536M613.731 564.984l-1.536-2.112M612.198 562.864l-1.536-1.536M610.651 561.33l-.864-1.535M609.798 559.798l-1.536-2.112M608.251 557.691l-1.631-1.632M606.625 556.051l-.768-1.056M605.852 554.998l-.864-1.056M604.998 553.944l-.768-1.056M604.225 552.891l-.864-1.056M603.358 551.824l-.864-1.535M602.492 550.291l-1.632-2.208M600.865 548.091l-1.632-1.632M599.238 546.451l-.864-1.056M598.372 545.398l-.864-1.056M597.505 544.345l-.864-1.056M596.638 543.291l-.864-1.632M595.772 541.651l-1.728-2.208M594.052 539.451l-1.824-1.632M592.225 537.811l-.864-1.055M591.359 536.758l-.864-1.056M590.492 535.705l-.96-1.152M589.532 534.545l-.864-1.63M588.679 532.918l-1.824-2.209M586.852 530.705l-1.824-1.632M585.025 529.078l-.96-1.056M584.065 528.025l-.864-1.632M583.199 526.385l-1.92-1.63M581.279 524.758l-.96-1.151M580.319 523.612l-.96-1.057M579.359 522.545l-.96-1.152M578.399 521.399l-.96-1.632M577.439 519.772l-1.92-1.63M575.519 518.132l-.96-1.057M574.559 517.079l-.96-1.631M573.599 515.452l-2.016-1.633M571.586 513.812l-.96-1.152M570.626 512.665l-1.056-1.63M569.572 511.025l-2.016-1.631M567.56 509.399l-.96-1.056M566.6 508.346l-1.057-1.056M565.533 507.292l-1.056-1.056M564.48 506.226l-.96-1.632M563.52 504.599l-2.113-1.633M561.413 502.972l-1.058-1.054M560.36 501.906l-1.055-1.058M559.306 500.852l-1.057-1.054M558.24 499.8l-1.055-.96M557.186 498.84l-1.057-1.057M556.133 497.786l-1.055-1.536M555.08 496.253l-2.21-1.536M552.866 494.706l-1.056-.96M551.813 493.746l-1.153-.96M550.653 492.786l-1.055-.96M549.6 491.826l-1.152-.96M548.453 490.866l-1.057-.96M547.4 489.906l-1.151-.96M546.24 488.946l-1.152-.96M545.093 487.986l-1.056-1.248M544.04 486.746l-2.306-1.344M541.733 485.4l-1.15-.865M540.586 484.533l-1.151-.768M539.427 483.773l-1.152-.768M538.28 483l-1.152-.864M537.12 482.133l-1.153-.672M535.973 481.466l-1.246-.768M534.72 480.693l-1.153-.672M533.573 480.026l-1.152-.672M532.413 479.346l-1.248-.576M531.173 478.773l-1.152-.672M530.013 478.106l-1.248-.48M528.773 477.626l-1.152-.576M527.613 477.053l-1.247-.48M526.374 476.573l-1.248-.48M525.12 476.093l-1.152-.384M523.974 475.706l-1.248-.384M522.72 475.32l-1.248-.384M521.48 474.933l-1.248-.288M520.227 474.653l-1.248-.192M518.974 474.453l-1.248-.288M517.734 474.173l-1.248-.192M516.48 473.973l-1.248-.096M515.24 473.88l-1.344-.096M513.894 473.786l-1.248-.096M512.64 473.693h-1.247M511.4 473.693h-1.343M510.054 473.693l-1.248.096M508.8 473.786h-1.343M507.454 473.786l-1.248.192M506.214 473.973l-1.344.096M504.867 474.066l-1.344.192M503.52 474.266l-1.343.192M502.174 474.453l-1.248.288M500.934 474.746l-1.344.192M499.588 474.933l-1.344.288M498.24 475.226l-1.343.384M496.894 475.613l-1.344.288M495.56 475.893l-1.439.384M494.121 476.28l-1.344.384M492.774 476.666l-1.344.288M491.428 476.946l-1.44.48M489.988 477.426l-1.344.384M488.641 477.813l-1.344.384M487.294 478.2l-1.44.48M485.855 478.68l-1.44.384M484.415 479.066l-1.344.48M483.081 479.546l-1.44.384M481.641 479.933l-1.44.48M480.201 480.413l-1.44.48M478.761 480.893l-1.44.48M477.321 481.373l-1.342.48M475.975 481.853l-1.536.48M474.441 482.333l-1.44.48M473.002 482.813l-1.44.48M471.562 483.293l-1.442.48M470.122 483.773l-1.44.48M468.682 484.253l-1.536.48M467.135 484.733l-1.44.48M465.695 485.213l-1.536.48M464.162 485.693l-1.44.577M462.722 486.266l-1.536.479M461.188 486.746l-1.44.48M459.749 487.226l-1.536.576M458.215 487.8l-1.536.577M456.682 488.373l-1.536.478M455.135 488.853l-1.534.576M453.602 489.426l-1.536.576M452.069 490.013l-1.536.48M450.535 490.493l-1.537.577M449.002 491.066l-1.536.576M447.455 491.64l-1.535.575M445.922 492.213l-1.536.67M444.389 492.893l-1.63.577M442.762 493.466l-1.537.576M441.216 494.04l-1.632.67M439.589 494.706l-1.536.576M438.056 495.293l-1.632.672M436.416 495.96l-1.632.673M434.79 496.64l-1.537.671M433.256 497.306l-1.632.672M431.616 497.972l-1.632.671M429.99 498.652l-1.631.77M428.363 499.412l-1.634.671M426.723 500.092l-1.631.77M425.096 500.852l-1.633.767M423.456 501.626l-1.632.769M421.83 502.399l-1.633.767M420.203 503.159l-1.727.77M418.47 503.932l-1.632.864M416.843 504.786l-1.632.864M415.203 505.652l-1.728.864M413.483 506.519l-1.632.864M411.843 507.386l-1.728.864M410.123 508.252l-1.632.96M408.483 509.212l-1.728.864M406.763 510.066l-1.728.96M405.03 511.025l-1.728 1.056M403.297 512.092l-1.728.96M401.577 513.052l-1.728 1.056M399.843 514.105l-1.728.96M398.123 515.065l-1.728 1.152M396.39 516.212l-1.728 1.056M394.657 517.265l-1.728 1.056M392.937 518.332l-1.728 1.152M391.204 519.479l-1.728 1.152M389.484 520.625l-1.824 1.248M387.657 521.879l-1.728 1.152M385.924 523.025l-1.728 1.248M384.204 524.278l-1.824 1.248M382.377 525.532l-1.824 1.248M380.55 526.772l-1.727 1.344M378.817 528.118l-1.824 1.248M377.004 529.372l-1.728 1.344M375.27 530.705l-1.823 1.344M373.444 532.052l-1.824 1.44M371.617 533.492l-1.824 1.344M369.804 534.838l-1.824 1.44M367.977 536.278l-1.823 1.44M366.15 537.718l-1.823 1.44M364.324 539.158l-1.824 1.536M362.498 540.691l-1.824 1.44M360.684 542.131l-1.824 1.536M358.858 543.665l-1.824 1.537M357.031 545.211l-1.921 1.536M355.111 546.745l-1.824 1.534M353.285 548.278l-1.823 1.632M351.458 549.905l-1.92 1.535M349.538 551.451l-1.825 1.632M347.725 553.078l-1.92 1.632M345.805 554.704l-1.823 1.634M343.978 556.344l-1.92 1.631M342.058 557.971l-1.921 1.633M340.138 559.61l-1.824 1.632M338.312 561.238l-1.92 1.633M336.392 562.864l-1.922 1.727M334.472 564.597l-1.919 1.634M332.552 566.224l-1.922 1.728M330.632 567.957l-1.92 1.631M328.712 569.584l-1.824 1.73M326.885 571.317l-1.92 1.728M324.965 573.05l-1.92 1.631M323.045 574.677l-2.016 1.73M321.032 576.41l-1.92 1.728M319.112 578.13l-1.92 1.727M317.192 579.864l-1.92 1.728M315.272 581.584l-1.92 1.729M313.352 583.317l-1.92 1.728M311.432 585.05l-2.016 1.728M309.419 586.77l-1.92 1.728M307.499 588.504l-1.92 1.345M305.579 589.85l-.96 1.248M304.62 591.09l-2.017 1.728M302.606 592.823l-1.92 1.824M300.686 594.65l-2.016 1.248M298.66 595.89l-.96 1.343M297.7 597.237l-1.92 1.728M295.78 598.97l-2.017 1.824M293.766 600.783l-1.92 1.73M291.846 602.517l-2.016 1.727M289.833 604.25l-1.92 1.824M287.913 606.063l-2.016 1.824M285.9 607.89l-2.016 1.728M283.886 609.623l-1.92 1.824M281.966 611.45l-2.016 1.824M279.94 613.263l-1.92 1.824M278.02 615.09l-2.016 1.824M276.006 616.916l-2.016 1.824M273.993 618.743l-1.92 1.822M272.073 620.57l-2.016 1.823M270.06 622.383l-2.016 1.921M268.047 624.303l-2.016 1.824M266.02 626.13l-1.92 1.918M264.1 628.05l-2.016 1.44M262.087 629.49l-.96 1.44M261.127 630.93l-2.016 1.918M259.114 632.85l-2.016 1.92M257.1 634.77l-1.92 1.919M255.18 636.689l-2.016 1.536M253.167 638.222l-.96 1.44M252.207 639.662l-2.016 1.536M250.18 641.209l-1.056 1.536M249.127 642.742l-1.92 2.016M247.207 644.755l-2.016 2.016M245.194 646.769l-2.016 1.632M243.18 648.409l-.96 1.536M242.22 649.942l-1.92 2.11M240.3 652.049l-2.015 2.112M238.287 654.169l-2.016 2.209M236.26 656.369l-1.92 2.207M234.34 658.582l-2.015 2.206M232.328 660.782l-1.92 2.305M230.408 663.088l-2.016 1.728M228.394 664.822l-.96 1.728M227.434 666.542l-1.92 2.4M225.514 668.942l-2.016 2.4M223.501 671.341l-1.92 2.498M221.581 673.848l-1.92 1.824M219.661 675.661l-1.056 1.919M218.608 677.581l-1.92 2.306M216.688 679.888l-1.44 1.919M215.248 681.808l-1.44 1.73M213.808 683.541l-.96 2.016M212.848 685.554l-1.92 2.784M210.928 688.341l-1.92 2.88M209.008 691.221l-1.92 2.303M207.088 693.528l-.96 2.305M206.128 695.82l-1.92 3.265M204.208 699.087l-1.92 3.552M202.288 702.647l-1.92 3.936M200.368 706.58l-1.824 4.32M198.542 710.9l-1.92 3.842M196.622 714.74l-.864 4.128M195.755 718.86l-1.92 4.8M193.835 723.66l-.96 3.455M192.875 727.127l-.864 2.881M192.009 730.007l-.48 1.919M191.529 731.921l-.384 2.497"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M297.993 565.17v11.137M297.993 571.024l1.632-1.632M299.62 569.397l1.055-.48M300.686 568.917h1.632M302.312 568.917l1.056.48M303.366 569.397l.48 1.632M303.846 571.024v5.28M307.592 572.09h6.336M313.925 572.09v-1.055M313.925 571.024l-.48-1.056M313.445 569.97l-.575-.575M312.872 569.397l-1.056-.48M311.819 568.917h-1.536M310.286 568.917l-1.056.48M309.219 569.397l-1.056 1.152M308.166 570.544l-.576 1.536M307.592 572.09v1.057M307.592 573.144l.576 1.632M308.166 574.77l1.056 1.057M309.219 575.824l1.056.48M310.286 576.304h1.536M311.819 576.304l1.056-.48M312.872 575.824l1.056-1.056M318.245 565.17h5.856M324.099 565.17l-3.264 4.225M320.845 569.397h1.632M322.472 569.397l1.056.576M323.525 569.97l.576.577M324.099 570.544l.48 1.536M324.579 572.09v1.057M324.579 573.144l-.48 1.632M324.099 574.77l-1.056 1.057M323.045 575.824l-1.632.48M321.419 576.304h-1.632M319.779 576.304l-1.536-.48M318.245 575.824l-.576-.576M317.672 575.25l-.48-1.055M418.95 477.626v11.232M418.95 483.48l1.631-1.536M420.576 481.946l1.056-.576M421.643 481.373h1.632M423.27 481.373l1.055.576M424.323 481.946l.48 1.536M424.803 483.48v5.375M428.55 484.533h6.335M434.882 484.533v-1.056M434.882 483.48l-.48-1.056M434.402 482.426l-.576-.48M433.83 481.946l-1.057-.576M432.776 481.373h-1.536M431.243 481.373l-1.056.576M430.176 481.946l-1.056 1.056M429.123 483l-.576 1.535M428.55 484.533v1.056M428.55 485.586l.575 1.632M429.123 487.226l1.056 1.056M430.176 488.28l1.056.575M431.243 488.853h1.536M432.776 488.853l1.056-.576M433.83 488.28l1.055-1.057M439.202 477.626h5.856M445.056 477.626l-3.264 4.32M441.802 481.946h1.632M443.429 481.946l1.056.48M444.482 482.426l.576.576M445.056 483l.48 1.535M445.536 484.533v1.056M445.536 485.586l-.48 1.632M445.056 487.226 444 488.282M444.002 488.28l-1.632.575M442.376 488.853h-1.632M440.736 488.853l-1.536-.576M439.202 488.28l-.576-.48M438.629 487.8l-.48-1.057M539.907 474.653v11.136M539.907 480.506l1.631-1.632M541.533 478.866l1.056-.48M542.6 478.386h1.632M544.226 478.386l1.056.48M545.28 478.866l.48 1.632M545.76 480.506v5.28M549.506 481.56h6.336M555.84 481.56v-1.056M555.84 480.506l-.48-1.056M555.36 479.453l-.577-.576M554.786 478.866l-1.056-.48M553.733 478.386h-1.536M552.2 478.386l-1.056.48M551.133 478.866l-1.056 1.056M550.08 479.933l-.576 1.632M549.506 481.56v1.056M549.506 482.613l.576 1.632M550.08 484.253l1.056 1.056M551.133 485.306l1.056.48M552.2 485.786h1.535M553.733 485.786l1.056-.48M554.786 485.306l1.056-1.056M560.16 474.653h5.855M566.013 474.653l-3.264 4.224M562.76 478.866h1.631M564.386 478.866l1.056.576M565.44 479.453l.575.48M566.013 479.933l.48 1.632M566.493 481.56v1.056M566.493 482.613l-.48 1.632M566.013 484.253l-1.056 1.056M564.96 485.306l-1.633.48M563.333 485.786H561.7M561.693 485.786l-1.536-.48M560.16 485.306l-.577-.576M559.586 484.733l-.48-1.056M660.863 625.076v11.136M660.863 630.93l1.632-1.633M662.49 629.303l1.056-.48M663.557 628.823h1.632M665.183 628.823l1.056.48M666.237 629.303l.48 1.631M666.717 630.93v5.279M670.463 631.982h6.336M676.796 631.982v-1.056M676.796 630.93l-.48-1.057M676.316 629.876l-.576-.576M675.743 629.303l-1.056-.48M674.69 628.823h-1.536M673.157 628.823l-1.056.48M672.09 629.303l-1.056 1.056M671.037 630.356l-.576 1.632M670.463 631.982v1.056M670.463 633.05l.576 1.535M671.037 634.582l1.056 1.152M672.09 635.729l1.056.48M673.157 636.209h1.535M674.69 636.209l1.056-.48M675.743 635.729l1.056-1.152M681.116 625.076h5.856M686.97 625.076l-3.264 4.224M683.716 629.303h1.632M685.343 629.303l1.056.576M686.396 629.876l.576.48M686.97 630.356l.48 1.632M687.45 631.982v1.056M687.45 633.05l-.48 1.535M686.97 634.582l-1.056 1.152M685.916 635.729l-1.632.48M684.29 636.209h-1.632M682.65 636.209l-1.536-.48M681.116 635.729l-.576-.576M680.543 635.156l-.48-1.056"/></g></g><path stroke="#2e8b57" stroke-width="4.79988" d="M734.302 733.841H161.009"/><g stroke="#87cefa" stroke-width="36"><path stroke-width="4.79988" d="M734.395 733.841h-.096M160.623 733.841h-31.008"/></g></g></svg>
\ No newline at end of file
diff --git a/star/test_suite/1.5M_with_diffusion/docs/abund_zams_0000181.svg b/star/test_suite/1.5M_with_diffusion/docs/abund_zams_0000181.svg
new file mode 100644
index 000000000..122f0c7ea
--- /dev/null
+++ b/star/test_suite/1.5M_with_diffusion/docs/abund_zams_0000181.svg
@@ -0,0 +1 @@
+<svg xmlns="http://www.w3.org/2000/svg" width="864.03" height="864.03"><path fill-rule="evenodd" d="M.016 864.014h863.979V.035H.016z"/><g fill="none" stroke-linecap="round" stroke-linejoin="round" stroke-miterlimit="10"><path stroke="gold" stroke-width="3.839904" d="M750.141 144.795h27.84"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="M792.194 137.408v11.136M792.194 143.168l1.535-1.536M793.727 141.635l1.056-.576M794.78 141.061h1.632M796.407 141.061l1.056.576M797.473 141.635l.576 1.536M798.047 143.168v5.376M803.327 139.515l1.056-.576M804.38 138.941l1.632-1.536M806.007 137.408v11.136"/></g><path stroke="#87cefa" stroke-width="3.839904" d="M750.141 182.527h27.84"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="M792.194 175.14v11.232M792.194 180.994l1.535-1.536M793.727 179.46l1.056-.576M794.78 178.874h1.632M796.407 178.874l1.056.576M797.473 179.46l.576 1.536M798.047 180.994v5.376M801.687 182.047h6.431M808.126 182.047v-1.056M808.126 180.994l-.576-1.056M807.553 179.94l-.48-.48M807.073 179.46l-1.056-.576M806.007 178.874h-1.632M804.38 178.874l-1.056.576M803.327 179.46l-1.056 1.056M802.273 180.514l-.576 1.536M801.687 182.047v1.056M801.687 183.1l.576 1.632M802.273 184.74l1.056 1.056M803.327 185.794l1.056.576M804.38 186.367h1.632M806.007 186.367l1.055-.576M807.073 185.794l1.056-1.056M816.673 175.14l-5.376 7.488M811.286 182.62h7.968M816.673 175.14v11.232"/></g><path stroke="#c03" stroke-width="3.839904" d="M750.141 220.353h27.84"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="m794.3 216.7-1.056.48M793.247 217.18l-1.056 1.055M792.194 218.233l-.576 1.632M791.607 219.873v1.056M791.607 220.926l.576 1.632M792.194 222.553l1.056 1.056M793.247 223.62l1.056.48M794.3 224.1h1.632M795.927 224.1l1.056-.48M796.993 223.62l1.056-1.057M798.047 222.553l.48-1.632M798.527 220.926v-1.056M798.527 219.873l-.48-1.632M798.047 218.233l-1.056-1.056M796.993 217.18l-1.056-.48M795.927 216.7h-1.632M803.327 215.073l1.056-.48M804.38 214.593l1.632-1.632M806.007 212.953v11.136M819.26 214.593l-.48-1.056M818.78 213.54l-1.632-.576M817.153 212.953h-1.056M816.086 212.953l-1.632.576M814.46 213.54l-1.056 1.536M813.406 215.073l-.48 2.688M812.926 217.753v2.688M812.926 220.446l.48 2.112M813.406 222.553l1.056 1.056M814.46 223.62l1.632.48M816.086 224.1h.576M816.673 224.1l1.536-.48M818.206 223.62l1.056-1.057M819.26 222.553l.576-1.632M819.833 220.926v-.48M819.833 220.446l-.576-1.632M819.26 218.82l-1.056-1.057M818.206 217.753l-1.536-.576M816.673 217.18h-.576M816.086 217.18l-1.632.575M814.46 217.753l-1.056 1.056M813.406 218.82l-.48 1.631"/></g><path stroke="#daa520" stroke-width="3.839904" d="M750.141 258.178h27.84"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="M792.194 254.525v7.392M792.194 256.632l1.535-1.632M793.727 255.005l1.056-.48M794.78 254.525h1.632M796.407 254.525l1.056.48M797.473 255.005l.576 1.632M798.047 256.632v5.28M803.327 252.899l1.056-.576M804.38 252.312l1.632-1.536M806.007 250.779v11.135M817.726 250.779l-5.376 7.391M812.353 258.178h7.968M817.726 250.779v11.135"/></g><path stroke="#7c68ee" stroke-width="3.839904" d="M750.141 295.99h27.84"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="M792.194 292.258v7.487M792.194 294.364l1.535-1.536M793.727 292.83l1.056-.575M794.78 292.258h1.632M796.407 292.258l1.056.576M797.473 292.83l.576 1.537M798.047 294.364v5.376M798.047 294.364l1.536-1.536M799.58 292.83l1.056-.575M800.633 292.258h1.632M802.273 292.258l1.056.576M803.327 292.83l.576 1.537M803.9 294.364v5.376M813.98 292.258v8.543M813.98 300.79l-.576 1.633M813.406 302.43l-.48.48M812.926 302.91l-1.056.577M811.873 303.484h-1.632M810.233 303.484l-1.056-.576M813.98 293.884l-1.056-1.056M812.926 292.83l-1.056-.575M811.873 292.258h-1.632M810.233 292.258l-1.056.576M809.18 292.83l-1.056 1.057M808.126 293.884l-.576 1.632M807.553 295.51v1.057M807.553 296.578l.576 1.535M808.126 298.11l1.056 1.057M809.18 299.164l1.056.576M810.233 299.737h1.632M811.873 299.737l1.056-.576M812.926 299.164l1.056-1.056M818.206 291.191v-.48M818.206 290.711l.576-1.056M818.78 289.658l.48-.576M819.26 289.084l1.055-.48M820.313 288.604h2.112M822.433 288.604l1.152.48M823.58 289.084l.48.576M824.06 289.658l.575 1.056M824.633 290.711v1.056M824.633 291.778l-.576 1.056M824.06 292.83l-1.057 1.537M823.006 294.364l-5.28 5.376M817.726 299.737h7.392M833.66 288.604l-5.377 7.392M828.286 295.99h7.968M833.66 288.604v11.136"/></g><path stroke="#ff7f4f" stroke-width="3.839904" d="M750.141 333.723h27.84"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="m798.047 331.71-1.056-1.056M796.993 330.657l-1.056-.576M795.927 330.07h-1.632M794.3 330.07l-1.056.576M793.247 330.657l-1.056 1.056M792.194 331.71l-.576 1.536M791.607 333.243v1.056M791.607 334.297l.576 1.632M792.194 335.937l1.056 1.056M793.247 336.99l1.056.576M794.3 337.563h1.632M795.927 337.563l1.056-.576M796.993 336.99l1.056-1.056M802.847 328.443l1.056-.48M803.9 327.963l1.536-1.632M805.433 326.337v11.231M812.353 329.017v-.576M812.353 328.443l.576-1.056M812.926 327.39l.48-.48M813.406 326.91l1.056-.576M814.46 326.337h2.208M816.673 326.337l1.056.576M817.726 326.91l.48.48M818.206 327.39l.576 1.056M818.78 328.443v1.152M818.78 329.59l-.576 1.056M818.206 330.657l-1.056 1.536M817.153 332.19l-5.28 5.376M811.873 337.563h7.392"/></g><path stroke="#20b2aa" stroke-width="3.839904" d="M750.141 371.549h27.84"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="M792.194 367.896v7.392M792.194 370.016l1.535-1.632M793.727 368.376l1.056-.48M794.78 367.896h1.632M796.407 367.896l1.056.48M797.473 368.376l.576 1.632M798.047 370.016v5.28M801.687 371.069h6.431M808.126 371.069v-1.056M808.126 370.016l-.576-1.056M807.553 368.949l-.48-.576M807.073 368.376l-1.056-.48M806.007 367.896h-1.632M804.38 367.896l-1.056.48M803.327 368.376l-1.056 1.056M802.273 369.429l-.576 1.632M801.687 371.069v1.056M801.687 372.122l.576 1.632M802.273 373.749l1.056 1.056M803.327 374.816l1.056.48M804.38 375.296h1.632M806.007 375.296l1.055-.48M807.073 374.816l1.056-1.056M811.873 366.842v-.576M811.873 366.27l.48-1.057M812.353 365.216l.576-.48M812.926 364.736l1.056-.576M813.98 364.15h2.112M816.086 364.15l1.056.575M817.153 364.736l.576.48M817.726 365.216l.48 1.056M818.206 366.27v1.055M818.206 367.322l-.48 1.056M817.726 368.376l-1.056 1.632M816.673 370.016l-5.376 5.28M811.286 375.296h7.488M825.113 364.15l-1.536.575M823.58 364.736l-1.153 1.536M822.433 366.27l-.48 2.687M821.953 368.949v1.632M821.953 370.589l.48 2.592M822.433 373.176l1.152 1.632M823.58 374.816l1.535.48M825.113 375.296h1.056M826.166 375.296l1.632-.48M827.806 374.816l1.056-1.632M828.86 373.176l.48-2.592M829.34 370.589v-1.632M829.34 368.949l-.48-2.688M828.86 366.27l-1.057-1.537M827.806 364.736l-1.632-.576M826.166 364.15h-1.056"/></g><path stroke="#a9a9a9" stroke-width="3.839904" d="M750.141 409.375h27.84"/><g stroke="#fff"><g stroke-width="3.6"><path stroke-width=".479988" d="M792.194 401.975v11.136M792.194 407.828l1.535-1.632M793.727 406.201l1.056-.48M794.78 405.721h1.632M796.407 405.721l1.056.48M797.473 406.201l.576 1.632M798.047 407.828v5.28M801.687 408.895h6.431M808.126 408.895v-1.056M808.126 407.828l-.576-1.056M807.553 406.775l-.48-.576M807.073 406.201l-1.056-.48M806.007 405.721h-1.632M804.38 405.721l-1.056.48M803.327 406.201l-1.056 1.056M802.273 407.255l-.576 1.632M801.687 408.895v1.056M801.687 409.948l.576 1.632M802.273 411.575l1.056 1.056M803.327 412.628l1.056.48M804.38 413.108h1.632M806.007 413.108l1.055-.48M807.073 412.628l1.056-1.056M812.353 401.975h5.856M818.206 401.975l-3.168 4.224M815.033 406.201h1.632M816.673 406.201l1.056.576M817.726 406.775l.48.48M818.206 407.255l.576 1.632M818.78 408.895v1.056M818.78 409.948l-.576 1.632M818.206 411.575l-1.056 1.056M817.153 412.628l-1.632.48M815.513 413.108h-1.536M813.98 413.108l-1.632-.48M812.353 412.628l-.48-.576M811.873 412.055l-.576-1.056"/></g><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M652.224 70.303v7.488M652.224 72.516l1.536-1.632M653.757 70.876l1.056-.575M654.81 70.303h1.632M656.45 70.303l1.056.576M657.504 70.876l.576 1.632M658.077 72.516v5.28M658.077 72.516l1.536-1.632M659.61 70.876l1.056-.575M660.677 70.303h1.632M662.303 70.303l1.056.576M663.357 70.876l.48 1.632M663.837 72.516v5.28M670.277 70.303l-1.056.576M669.21 70.876l-1.056 1.056M668.157 71.943l-.576 1.632M667.583 73.57v1.056M667.583 74.623l.576 1.536M668.157 76.156l1.056 1.056M669.21 77.223l1.056.576M670.277 77.796h1.632M671.903 77.796l1.056-.576M672.957 77.223l1.055-1.056M674.01 76.156l.48-1.536M674.49 74.623v-1.056M674.49 73.57l-.48-1.632M674.01 71.943l-1.056-1.056M672.957 70.876l-1.056-.575M671.903 70.303h-1.632M684.09 66.663V77.8M684.09 71.943l-1.056-1.056M683.036 70.876l-1.056-.575M681.983 70.303h-1.632M680.356 70.303l-1.056.576M679.29 70.876l-1.056 1.056M678.236 71.943l-.576 1.632M677.663 73.57v1.056M677.663 74.623l.576 1.536M678.236 76.156l1.056 1.056M679.29 77.223l1.056.576M680.356 77.796h1.632M681.983 77.796l1.056-.576M683.036 77.223l1.056-1.056M687.836 73.57h6.336M694.17 73.57v-1.056M694.17 72.516l-.48-1.056M693.69 71.463l-.577-.576M693.116 70.876l-1.056-.575M692.063 70.303h-1.632M690.436 70.303l-1.056.576M689.37 70.876l-1.057 1.056M688.316 71.943l-.48 1.632M687.836 73.57v1.056M687.836 74.623l.48 1.536M688.316 76.156l1.056 1.056M689.37 77.223l1.055.576M690.436 77.796h1.632M692.063 77.796l1.056-.576M693.116 77.223l1.056-1.056M697.916 66.663V77.8M711.742 68.77l1.056-.576M712.796 68.197l1.631-1.536M714.435 66.663V77.8M723.449 66.663l-1.632.48M721.822 67.143l-.48 1.056M721.342 68.197v1.056M721.342 69.25l.48 1.056M721.822 70.303l1.056.576M722.875 70.876l2.112.576M724.995 71.463l1.632.48M726.622 71.943 727.678 73M727.675 72.996l.576 1.056M728.248 74.05v1.632M728.248 75.676l-.576 1.056M727.675 76.743l-.48.48M727.195 77.223l-1.632.576M725.569 77.796h-2.112M723.449 77.796l-1.632-.576M721.822 77.223l-.48-.48M721.342 76.743l-.576-1.056M720.769 75.676v-1.632M720.769 74.05l.576-1.056M721.342 72.996l1.057-1.056M722.395 71.943l1.535-.48M723.929 71.463l2.112-.576M726.049 70.876l1.153-.575M727.195 70.303l.479-1.056M727.675 69.25v-1.056M727.675 68.197l-.479-1.056M727.195 67.143l-1.633-.48M725.569 66.663h-2.112M732.955 68.77l1.152-.576M734.115 68.197l1.536-1.536M735.648 66.663V77.8M113.39 70.303v7.488M113.39 71.943l-1.057-1.056M112.333 70.876l-1.056-.575M111.277 70.303h-1.632M109.645 70.303l-1.055.576M108.59 70.876l-1.057 1.056M107.533 71.943l-.48 1.632M107.053 73.57v1.056M107.053 74.623l.48 1.536M107.533 76.156l1.056 1.056M108.59 77.223l1.055.576M109.645 77.796h1.633M111.277 77.796l1.056-.576M112.333 77.223l1.056-1.056M123.469 70.303v8.544M123.469 78.85l-.48 1.632M122.989 80.476l-.576.48M122.413 80.956l-1.056.576M121.357 81.543h-1.536M119.821 81.543l-1.152-.576M123.469 71.943l-1.056-1.056M122.413 70.876l-1.056-.575M121.357 70.303h-1.536M119.821 70.303l-1.152.576M118.669 70.876l-1.056 1.056M117.613 71.943l-.48 1.632M117.133 73.57v1.056M117.133 74.623l.48 1.536M117.613 76.156l1.056 1.056M118.669 77.223l1.152.576M119.821 77.796h1.536M121.357 77.796l1.056-.576M122.413 77.223l1.056-1.056M127.213 73.57h6.432M133.65 73.57v-1.056M133.65 72.516l-.576-1.056M133.069 71.463l-.576-.576M132.493 70.876l-1.056-.575M131.437 70.303H129.9M129.9 70.303l-1.055.576M128.845 70.876l-1.056 1.056M127.789 71.943l-.576 1.632M127.213 73.57v1.056M127.213 74.623l.576 1.536M127.789 76.156l1.056 1.056M128.845 77.223l1.056.576M129.9 77.796h1.537M131.437 77.796l1.055-.576M132.493 77.223l1.152-1.056M145.836 69.25v-.48M145.836 68.77l.48-1.056M146.316 67.717l.576-.576M146.89 67.143l1.056-.48M147.943 66.663h2.112M150.063 66.663l1.056.48M151.116 67.143l.576.576M151.69 67.717l.48 1.056M152.17 68.77v1.056M152.17 69.823l-.48 1.056M151.69 70.876l-1.056 1.632M150.636 72.516l-5.376 5.28M145.263 77.796h7.488M156.97 76.743l-.48.48M156.49 77.223l.48.576M156.97 77.796l.575-.576M157.543 77.223l-.576-.48M163.89 66.663l-1.537.48M162.343 67.143l-.576 1.056M161.77 68.197v1.056M161.77 69.25l.575 1.056M162.343 70.303l1.056.576M163.41 70.876l2.111.576M165.516 71.463l1.536.48M167.05 71.943 168.2 73M168.21 72.996l.48 1.056M168.69 74.05v1.632M168.69 75.676l-.48 1.056M168.21 76.743l-.577.48M167.622 77.223l-1.631.576M165.996 77.796h-2.112M163.89 77.796l-1.537-.576M162.343 77.223l-.576-.48M161.77 76.743l-.48-1.056M161.29 75.676v-1.632M161.29 74.05l.48-1.056M161.77 72.996l1.055-1.056M162.823 71.943l1.632-.48M164.463 71.463l2.112-.576M166.57 70.876l1.055-.575M167.622 70.303l.576-1.056M168.21 69.25v-1.056M168.21 68.197l-.577-1.056M167.622 67.143l-1.631-.48M165.996 66.663h-2.112M172.902 66.663h5.856M178.769 66.663l-3.168 4.224M175.596 70.876h1.632M177.222 70.876l1.056.576M178.289 71.463l.48.48M178.769 71.943l.576 1.632M179.342 73.57v1.056M179.342 74.623l-.576 1.536M178.769 76.156l-1.056 1.056M177.702 77.223l-1.536.576M176.169 77.796h-1.632M174.542 77.796l-1.632-.576M172.902 77.223l-.48-.48M172.422 76.743l-.576-1.056M184.142 68.77l1.056-.576M185.195 68.197l1.536-1.536M186.729 66.663V77.8M194.222 66.663h5.856M200.075 66.663l-3.168 4.224M196.902 70.876h1.536M198.448 70.876l1.056.576M199.502 71.463l.576.48M200.075 71.943l.48 1.632M200.555 73.57v1.056M200.555 74.623l-.48 1.536M200.075 76.156l-1.056 1.056M199.022 77.223l-1.632.576M197.382 77.796h-1.536M195.848 77.796l-1.632-.576M194.222 77.223l-.576-.48M193.648 76.743l-.48-1.056M205.355 68.77l1.056-.576M206.408 68.197l1.632-1.536M208.048 66.663V77.8M216.008 68.77l1.056-.576M217.061 68.197l1.632-1.536M218.701 66.663V77.8M225.034 73.57h6.432M231.46 73.57v-1.056M231.46 72.516l-.575-1.056M230.888 71.463l-.48-.576M230.408 70.876l-1.152-.575M229.26 70.303h-1.535M227.728 70.303l-1.056.576M226.661 70.876l-1.056 1.056M225.608 71.943l-.576 1.632M225.034 73.57v1.056M225.034 74.623l.576 1.536M225.608 76.156l1.056 1.056M226.661 77.223l1.056.576M227.728 77.796h1.536M229.26 77.796l1.153-.576M230.408 77.223l1.056-1.056M242.02 66.663 236.74 77.8M234.634 66.663h7.392M253.26 70.303l3.168 7.488M259.594 70.303l-3.168 7.488M256.42 77.796l-1.056 2.112M255.367 79.903l-1.056 1.056M254.314 80.956l-1.056.576M253.26 81.543h-.576M262.767 70.303v7.488M262.767 73.57l.576-1.632M263.34 71.943l1.056-1.056M264.393 70.876l1.056-.575M265.447 70.303h1.632M275.046 71.943l-.576-1.056M274.473 70.876l-1.536-.575M272.94 70.303h-1.632M271.3 70.303l-1.632.576M269.673 70.876l-.48 1.056M269.193 71.943l.48 1.056M269.673 72.996l1.056.576M270.727 73.57l2.687.48M273.42 74.05l1.056.576M274.473 74.623l.576 1.056M275.046 75.676v.48M275.046 76.156l-.576 1.056M274.473 77.223l-1.536.576M272.94 77.796h-1.632M271.3 77.796l-1.632-.576M269.673 77.223l-.48-1.056M367.204 80.583l-6.912 18.143M367.204 80.583l6.912 18.143M362.884 92.676h8.64M378.444 80.583v18.143M378.444 89.223l1.728-1.728M380.164 87.49l1.728-.865M381.897 86.623h2.592M384.484 86.623l1.728.864M386.217 87.49l1.728 1.727M387.937 89.223l.864 2.592M388.804 91.81v1.727M388.804 93.543l-.864 2.592M387.937 96.13l-1.728 1.727M386.217 97.862l-1.728.864M384.484 98.716h-2.592M381.897 98.716l-1.728-.864M380.164 97.862l-1.728-1.727M394.857 86.623v8.64M394.857 95.263l.864 2.591M395.723 97.862l1.728.864M397.443 98.716h2.592M400.043 98.716l1.728-.864M401.763 97.862l2.592-2.591M404.363 86.623v12.095M411.27 86.623v12.095M411.27 90.076l2.592-2.592M413.856 87.49l1.728-.865M415.59 86.623h2.592M418.176 86.623l1.728.864M419.91 87.49l.863 2.591M420.776 90.076v8.64M437.19 80.583v18.143M437.19 89.223l-1.729-1.728M435.456 87.49l-1.728-.865M433.736 86.623h-2.592M431.136 86.623l-1.728.864M429.416 87.49l-1.728 1.727M427.683 89.223l-.864 2.592M426.816 91.81v1.727M426.816 93.543l.864 2.592M427.683 96.13l1.728 1.727M429.416 97.862l1.728.864M431.136 98.716h2.592M433.736 98.716l1.728-.864M435.456 97.862l1.728-1.727M453.602 86.623v12.095M453.602 89.223l-1.728-1.728M451.882 87.49l-1.728-.865M450.149 86.623h-2.592M447.562 86.623l-1.728.864M445.829 87.49l-1.728 1.727M444.096 89.223l-.864 2.592M443.242 91.81v1.727M443.242 93.543l.864 2.592M444.096 96.13l1.728 1.727M445.829 97.862l1.728.864M447.562 98.716h2.592M450.149 98.716l1.728-.864M451.882 97.862l1.728-1.727M460.522 86.623v12.095M460.522 90.076l2.592-2.592M463.108 87.49l1.728-.865M464.842 86.623h2.592M467.428 86.623l1.728.864M469.162 87.49l.864 2.591M470.015 90.076v8.64M486.441 89.223l-1.728-1.728M484.708 87.49l-1.728-.865M482.975 86.623h-2.592M480.388 86.623l-1.728.864M478.655 87.49l-1.728 1.727M476.935 89.223l-.864 2.592M476.068 91.81v1.727M476.068 93.543l.864 2.592M476.935 96.13l1.728 1.727M478.655 97.862l1.728.864M480.388 98.716h2.592M482.975 98.716l1.728-.864M484.708 97.862l1.728-1.727M491.614 91.81h10.368M501.987 91.81V90.08M501.987 90.076l-.864-1.728M501.12 88.356l-.863-.864M500.254 87.49l-1.728-.865M498.534 86.623h-2.592M495.934 86.623l-1.728.864M494.214 87.49l-1.728 1.727M492.481 89.223l-.864 2.592M491.614 91.81v1.727M491.614 93.543l.864 2.592M492.481 96.13l1.728 1.727M494.214 97.862l1.728.864M495.934 98.716h2.592M498.534 98.716l1.728-.864M500.254 97.862l1.728-1.727"/></g><g stroke-width="14.4"><path stroke-width="1.919952" d="M390.057 791.728v13.92M390.057 795.76l2.976-3.072M393.03 792.688l2.016-.96M395.043 791.728h2.976M398.017 791.728l2.016.96M400.043 792.688l.96 3.072M401.003 795.76v9.887M401.003 795.76l2.976-3.072M403.977 792.688l2.016-.96M405.99 791.728h2.976M408.963 791.728l2.016.96M410.976 792.688l.96 3.072M411.936 795.76v9.887M435.936 780.784l-17.952 31.871M441.896 784.72v20.927M441.896 784.72l7.967 20.927M457.829 784.72l-7.968 20.927M457.829 784.72v20.927M470.788 802l-2.208.671M468.575 802.672l-2.304 1.535M466.282 804.207l-1.44 2.208M464.842 806.415l-.768 2.305M464.068 808.72v2.207M464.068 810.927l.768 2.209M464.842 813.135l1.44 2.304M466.282 815.44l2.304 1.44M468.575 816.88l2.208.767M470.788 817.647h2.208M473.002 817.647l2.303-.768M475.295 816.88l2.208-1.44M477.508 815.44l1.536-2.304M479.041 813.135l.672-2.208M479.721 810.927v-2.207M479.721 808.72l-.672-2.305M479.041 806.415l-1.536-2.207M477.508 804.207l-2.208-1.535M475.295 802.672 472.99 802M473.002 802h-2.208M471.562 808.72l-.768.671M470.788 809.391v.769M470.788 810.16l.768.767M471.562 810.927h.768M472.322 810.927l.672-.767M473.002 810.16v-.769M473.002 809.391l-.672-.671M472.322 808.72h-.768M471.562 809.391v.769M471.562 810.16h.768M472.322 810.16v-.769M472.322 809.391h-.768"/></g><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M129.613 734.417h604.785M734.395 734.417V129.632M734.395 129.635H129.61M129.613 129.635V734.42M153.81 734.417v-5.951M177.996 734.417v-5.951M202.182 734.417v-5.951M226.381 734.417v-5.951M250.567 734.417v-12M274.766 734.417v-5.951M298.953 734.417v-5.951M323.139 734.417v-5.951M347.338 734.417v-5.951M371.524 734.417v-12M395.723 734.417v-5.951M419.91 734.417v-5.951M444.096 734.417v-5.951M468.295 734.417v-5.951M492.481 734.417v-12M516.68 734.417v-5.951M540.866 734.417v-5.951M565.053 734.417v-5.951M589.252 734.417v-5.951M613.438 734.417v-12M637.637 734.417v-5.951M661.823 734.417v-5.951M686.01 734.417v-5.951M710.209 734.417v-5.951M734.395 734.417v-12M153.81 135.582v-5.952M177.996 135.582v-5.952M202.182 135.582v-5.952M226.381 135.582v-5.952M250.567 141.635v-12M274.766 135.582v-5.952M298.953 135.582v-5.952M323.139 135.582v-5.952M347.338 135.582v-5.952M371.524 141.635v-12M395.723 135.582v-5.952M419.91 135.582v-5.952M444.096 135.582v-5.952M468.295 135.582v-5.952M492.481 141.635v-12M516.68 135.582v-5.952M540.866 135.582v-5.952M565.053 135.582v-5.952M589.252 135.582v-5.952M613.438 141.635v-12M637.637 135.582v-5.952M661.823 135.582v-5.952M686.01 135.582v-5.952M710.209 135.582v-5.952M734.395 141.635v-12M237.807 748.817l-2.4.768M235.407 749.585l-1.536 2.4M233.86 751.985l-.863 3.936M233.008 755.92v2.4M233.008 758.32l.863 4.032M233.86 762.353l1.537 2.4M235.407 764.752l2.4.769M237.807 765.52h1.632M239.434 765.52l2.4-.768M241.834 764.752l1.536-2.4M243.367 762.353l.864-4.032M244.234 758.32v-2.4M244.234 755.92l-.864-3.935M243.367 751.985l-1.536-2.4M241.834 749.585l-2.4-.768M239.434 748.817h-1.632M250.567 763.889l-.768.863M249.807 764.752l.768.769M250.567 765.52l.768-.768M251.34 764.752l-.768-.863M259.3 751.985l1.632-.864M260.94 751.12l2.4-2.303M263.34 748.817v16.703M358.764 748.817l-2.4.768M356.364 749.585l-1.536 2.4M354.818 751.985l-.864 3.936M353.964 755.92v2.4M353.964 758.32l.864 4.032M354.818 762.353l1.536 2.4M356.364 764.752l2.4.769M358.764 765.52h1.632M360.391 765.52l2.4-.768M362.79 764.752l1.537-2.4M364.324 762.353l.864-4.032M365.19 758.32v-2.4M365.19 755.92l-.863-3.935M364.324 751.985l-1.536-2.4M362.79 749.585l-2.399-.768M360.391 748.817h-1.632M371.524 763.889l-.768.863M370.764 764.752l.768.769M371.524 765.52l.768-.768M372.297 764.752l-.768-.863M378.724 752.753v-.768M378.724 751.985l.768-1.633M379.497 750.353l.768-.768M380.257 749.585l1.632-.768M381.897 748.817h3.168M385.057 748.817l1.632.768M386.697 749.585l.768.767M387.457 750.353l.768 1.632M388.23 751.985v1.536M388.23 753.52l-.768 1.632M387.457 755.153l-1.536 2.4M385.924 757.553l-8.064 7.968M377.857 765.52h11.232M479.721 748.817l-2.4.768M477.321 749.585l-1.536 2.4M475.775 751.985l-.864 3.936M474.921 755.92v2.4M474.921 758.32l.864 4.032M475.775 762.353l1.536 2.4M477.321 764.752l2.4.769M479.721 765.52h1.632M481.348 765.52l2.4-.768M483.748 764.752l1.536-2.4M485.281 762.353l.864-4.032M486.148 758.32v-2.4M486.148 755.92l-.864-3.935M485.281 751.985l-1.536-2.4M483.748 749.585l-2.4-.768M481.348 748.817h-1.632M492.481 763.889l-.768.863M491.721 764.752l.768.769M492.481 765.52l.768-.768M493.254 764.752l-.768-.863M500.454 748.817h8.736M509.187 748.817l-4.704 6.336M504.48 755.153h2.4M506.88 755.153l1.537.768M508.414 755.92l.768.865M509.187 756.785l.864 2.4M510.054 759.185v1.535M510.054 760.72l-.864 2.4M509.187 763.12l-1.536 1.632M507.654 764.752l-2.4.769M505.254 765.52h-2.4M502.854 765.52l-2.4-.768M500.454 764.752l-.768-.863M499.68 763.889l-.863-1.537M600.678 748.817l-2.4.768M598.278 749.585l-1.536 2.4M596.732 751.985l-.864 3.936M595.878 755.92v2.4M595.878 758.32l.864 4.032M596.732 762.353l1.536 2.4M598.278 764.752l2.4.769M600.678 765.52h1.632M602.305 765.52l2.4-.768M604.705 764.752l1.536-2.4M606.238 762.353l.864-4.032M607.105 758.32v-2.4M607.105 755.92l-.864-3.935M606.238 751.985l-1.536-2.4M604.705 749.585l-2.4-.768M602.305 748.817h-1.632M613.438 763.889l-.768.863M612.678 764.752l.768.769M613.438 765.52l.768-.768M614.211 764.752l-.768-.863M627.838 748.817l-8.064 11.135M619.771 759.953h12M627.838 748.817v16.703M721.635 748.817l-2.4.768M719.235 749.585l-1.536 2.4M717.689 751.985l-.864 3.936M716.835 755.92v2.4M716.835 758.32l.864 4.032M717.689 762.353l1.536 2.4M719.235 764.752l2.4.769M721.635 765.52h1.632M723.262 765.52l2.4-.768M725.662 764.752l1.536-2.4M727.195 762.353l.864-4.032M728.062 758.32v-2.4M728.062 755.92l-.864-3.935M727.195 751.985l-1.536-2.4M725.662 749.585l-2.4-.768M723.262 748.817h-1.632M734.395 763.889l-.768.863M733.635 764.752l.768.769M734.395 765.52l.768-.768M735.168 764.752l-.768-.863M750.328 748.817h-7.968M742.368 748.817l-.768 7.104M741.595 755.92l.768-.768M742.368 755.153l2.4-.768M744.768 754.385h2.4M747.168 754.385l2.4.767M749.568 755.153l1.536 1.632M751.101 756.785l.864 2.4M751.968 759.185v1.535M751.968 760.72l-.864 2.4M751.101 763.12l-1.536 1.632M749.568 764.752l-2.4.769M747.168 765.52h-2.4M744.768 765.52l-2.4-.768M742.368 764.752l-.768-.863M741.595 763.889l-.864-1.537M129.613 717.807h5.951M129.613 606.836h12M129.613 495.866h5.951M129.613 384.895h12M129.613 273.911h5.951M129.613 162.94h12M728.448 717.807h5.952M722.395 606.836h12M728.448 495.866h5.952M722.395 384.895h12M728.448 273.911h5.952M722.395 162.94h12M77.966 607.41h14.4M105.901 597.81l-7.968 11.136M97.934 608.943h11.903M105.901 597.81v16.8M77.966 385.469h14.4M98.702 379.895v-.864M98.702 379.029l.767-1.536M99.47 377.495l.864-.767M100.333 376.736l1.536-.864M101.87 375.869h3.264M105.133 375.869l1.536.864M106.67 376.736l.768.767M107.437 377.495l.864 1.536M108.301 379.029v1.632M108.301 380.669l-.864 1.632M107.437 382.295l-1.536 2.4M105.901 384.695l-7.968 7.968M97.934 392.668h11.135M102.733 153.914l-2.4.864M100.333 154.781l-1.631 2.4M98.702 157.181l-.769 3.936M97.934 161.114v2.4M97.934 163.514l.768 4.032M98.702 167.554l1.631 2.304M100.333 169.86l2.4.865M102.733 170.714h1.536M104.27 170.714l2.4-.864M106.67 169.86l1.632-2.303M108.301 167.554l.768-4.032M109.07 163.514v-2.4M109.07 161.114l-.768-3.936M108.301 157.181l-1.632-2.4M106.67 154.781l-2.4-.864M104.27 153.914h-1.536"/></g><g stroke-width="14.4"><path stroke-width="1.919952" d="M8.272 568.05h20.927M15.184 556.144l1.056 2.016M16.24 558.171l2.016 1.92M18.256 560.09l2.975 1.057M21.231 561.144h1.92M23.151 561.144l3.072-1.056M26.223 560.09l1.92-1.919M28.143 558.171l1.057-2.016M29.2 556.144v-2.976M29.2 553.171l-1.057-2.016M28.143 551.158l-1.92-2.016M26.223 549.145l-3.071-.96M23.151 548.185h-1.92M21.231 548.185l-2.975.96M18.256 549.145l-2.017 2.015M16.24 551.158l-1.057 2.016M15.184 553.171v2.976M15.184 530.225h16.031M31.215 530.225l2.976.96M34.191 531.185l.96 1.056M35.151 532.252l.96 1.92M36.111 534.172v3.072M36.111 537.238l-.96 1.92M18.256 530.225l-2.017 2.016M16.24 532.252l-1.057 1.92M15.184 534.172v3.072M15.184 537.238l1.056 1.92M16.24 539.158l2.016 2.016M18.256 541.171l2.975.96M21.231 542.131h1.92M23.151 542.131l3.072-.96M26.223 541.171l1.92-2.016M28.143 539.158l1.057-1.92M29.2 537.238v-3.072M29.2 534.172l-1.057-1.92M28.143 532.252l-1.92-2.016M15.184 506.332h14.015M19.216 506.332l-2.976-3.072M16.24 503.252l-1.057-1.92M15.184 501.332v-2.976M15.184 498.36l1.056-2.017M16.24 496.346l2.976-1.056M19.216 495.293h9.983M19.216 495.293l-2.976-2.976M16.24 492.306l-1.057-2.016M15.184 490.293v-2.976M15.184 487.32l1.056-1.92M16.24 485.4l2.976-1.057M19.216 484.346h9.983M15.184 465.427h14.015M18.256 465.427l-2.017 2.016M16.24 467.453l-1.057 1.92M15.184 469.373v3.072M15.184 472.44l1.056 1.92M16.24 474.36l2.016 2.016M18.256 476.373l2.975.96M21.231 477.333h1.92M23.151 477.333l3.072-.96M26.223 476.373l1.92-2.016M28.143 474.36l1.057-1.92M29.2 472.44v-3.072M29.2 469.373l-1.057-1.92M28.143 467.453l-1.92-2.016M18.256 447.48l-2.017.96M16.24 448.44l-1.057 2.976M15.184 451.414v3.072M15.184 454.494l1.056 2.975M16.24 457.467l2.016.96M18.256 458.427l1.92-.96M20.175 457.467l1.056-2.016M21.231 455.454l.96-4.992M22.191 450.454l.96-2.016M23.151 448.44l2.017-.96M25.167 447.48h1.056M26.223 447.48l1.92.96M28.143 448.44l1.057 2.976M29.2 451.414v3.072M29.2 454.494l-1.057 2.975M28.143 457.467l-1.92.96M18.256 430.494l-2.017 1.056M16.24 431.547l-1.057 2.976M15.184 434.52v2.977M15.184 437.494l1.056 2.976M16.24 440.467l2.016 1.056M18.256 441.534l1.92-1.056M20.175 440.467l1.056-2.016M21.231 438.454l.96-4.896M22.191 433.56l.96-2.015M23.151 431.547l2.017-1.055M25.167 430.494h1.056M26.223 430.494l1.92 1.056M28.143 431.547l1.057 2.976M29.2 434.52v2.977M29.2 437.494l-1.057 2.976M28.143 440.467l-1.92 1.056M8.272 401.588v2.016M8.272 403.615l.96 2.016M9.232 405.628l2.975.96M12.208 406.588h16.991M15.184 409.561v-6.911M15.184 395.642h14.015M21.231 395.642l-2.975-.96M18.256 394.682l-2.017-2.016M16.24 392.668l-1.057-2.015M15.184 390.655v-2.976M15.184 371.736h14.015M18.256 371.736l-2.017 1.92M16.24 373.656l-1.057 2.016M15.184 375.669v2.976M15.184 378.655l1.056 2.016M16.24 380.669l2.016 2.016M18.256 382.682l2.975.96M21.231 383.642h1.92M23.151 383.642l3.072-.96M26.223 382.682l1.92-2.016M28.143 380.669l1.057-2.016M29.2 378.655v-2.975M29.2 375.669l-1.057-2.016M28.143 373.656l-1.92-1.92M18.256 352.736l-2.017 2.016M16.24 354.75l-1.057 2.015M15.184 356.763v2.976M15.184 359.736l1.056 2.016M16.24 361.75l2.016 2.015M18.256 363.776l2.975.96M21.231 364.736h1.92M23.151 364.736l3.072-.96M26.223 363.776l1.92-2.016M28.143 361.75l1.057-2.017M29.2 359.736v-2.976M29.2 356.763l-1.057-2.016M28.143 354.75l-1.92-2.017M8.272 344.763h16.895M25.167 344.763l2.976-.96M28.143 343.803l1.057-2.016M29.2 341.79v-2.016M15.184 347.83v-7.008M8.272 334.87l.96-1.056M9.232 333.817l-.96-.96M8.272 332.857l-1.056.96M7.216 333.817l1.056 1.056M15.184 333.817h14.015M15.184 321.817l1.056 2.016M16.24 323.83l2.016 2.016M18.256 325.857l2.975.96M21.231 326.817h1.92M23.151 326.817l3.072-.96M26.223 325.857l1.92-2.016M28.143 323.83l1.057-2.016M29.2 321.817v-2.976M29.2 318.844l-1.057-1.92M28.143 316.924l-1.92-2.016M26.223 314.91l-3.071-1.056M23.151 313.857h-1.92M21.231 313.857l-2.975 1.056M18.256 314.91l-2.017 2.016M16.24 316.924l-1.057 1.92M15.184 318.844v2.976M15.184 306.937h14.015M19.216 306.937l-2.976-2.976M16.24 303.964l-1.057-2.016M15.184 301.95v-2.975M15.184 298.977l1.056-2.015M16.24 296.95l2.976-.96M19.216 295.99h9.983"/></g></g><g stroke="gold"><g stroke-width="28.8"><path stroke-width="3.839904" d="M734.395 180.127h-1.632M732.768 180.127h-5.76M727.008 180.127h-5.663M721.342 180.127h-5.76M715.582 180.127h-5.76M709.822 180.127h-5.856M703.97 180.127h-5.76M698.21 180.127h-5.76M692.45 180.127h-5.856M686.596 180.127h-5.76M680.836 180.127h-5.856M674.97 180.127h-5.856M669.117 180.127h-5.856M663.263 180.127h-5.855M657.41 180.127h-2.88M654.53 180.127h-5.856M648.677 180.127h-5.952M642.717 180.127h-5.856M636.864 180.127h-2.976M633.89 180.127h-5.856M628.038 180.127h-5.856M622.171 180.127h-5.953M616.225 180.127h-5.952M610.278 180.127h-5.856M604.412 180.127h-5.951M598.465 180.127h-5.953M592.519 180.127h-5.952M586.559 180.127h-5.855M580.705 180.127h-5.951M574.759 180.127h-5.952M568.8 180.127h-5.954M562.853 180.127H556.9M556.893 180.127h-5.952M550.946 180.127h-6.048M544.893 180.127h-5.952M538.947 180.127h-5.952M533 180.127h-5.952M527.04 180.127h-2.976M524.067 180.127h-5.953M518.12 180.127h-5.951M512.16 180.127h-5.951M506.214 180.127h-5.95M500.254 180.127h-2.976M497.28 180.127h-6.048M491.241 180.127h-2.975M488.254 180.127h-5.951M482.308 180.127l-5.952.096M476.361 180.22h-5.951M470.402 180.22h-2.882M467.522 180.22h-5.952M461.575 180.22h-5.952M455.615 180.22h-5.952M449.669 180.22h-5.953M443.722 180.22h-5.856M437.856 180.22h-5.95M431.91 180.22h-5.858M426.056 180.22h-2.976M423.083 180.22h-5.855M417.216 180.22h-5.857M411.363 180.22h-5.856M405.51 180.22h-5.856M399.657 180.22h-2.976M396.683 180.22h-5.76M390.924 180.22h-4.416M386.497 180.22h-4.32M382.177 180.22h-2.88M379.297 180.22h-5.856M373.444 180.22h-5.76M367.684 180.22h-5.76M361.924 180.22h-2.784M359.138 180.22h-5.76M353.378 180.22h-5.664M347.725 180.22h-5.76M341.965 180.22h-5.568M336.392 180.22h-5.664M330.725 180.22h-2.784M327.938 180.22h-5.663M322.285 180.22h-5.568M316.712 180.22h-5.472M311.246 180.22h-5.568M305.672 180.22H300.2M300.206 180.22h-5.472M294.726 180.22h-5.376M289.353 180.22h-5.376M283.98 180.22h-5.376M278.606 180.22h-5.28M273.327 180.22h-5.28M268.047 180.22l-5.28.096M262.767 180.314h-5.184M257.58 180.314h-5.088M252.487 180.314h-5.088M247.407 180.314h-5.088M242.314 180.314h-7.488M234.82 180.314h-4.895M229.928 180.314h-2.496M227.434 180.314h-4.8M222.634 180.314h-3.551M219.088 180.314h-3.552M215.528 180.314h-2.4M213.128 180.314h-2.304M210.821 180.314h-4.607M206.222 180.314h-2.304M203.915 180.314h-1.152M202.768 180.314h-1.152M201.608 180.314H199.4M199.408 180.314H197.2M197.195 180.314h-2.208M194.982 180.314h-2.208M192.782 180.314h-2.208M190.569 180.314h-2.112M188.462 180.314h-2.112M186.342 180.314h-2.112M184.235 180.314h-1.056M183.182 180.314h-1.056M182.129 180.314h-2.016M180.102 180.314h-2.112M177.996 180.314h-2.016M175.982 180.314h-2.016M173.969 180.314h-1.92M172.049 180.314h-1.92M170.13 180.314h-1.92M168.21 180.314h-.96M167.25 180.314h-.96M166.29 180.314h-1.825M164.463 180.314h-1.824M162.636 180.314h-1.824M160.81 180.314h-1.825M158.983 180.314h-1.728M157.263 180.314h-1.632M155.623 180.314h-.864M154.77 180.314h-.865M153.903 180.314h-1.728M152.17 180.314h-1.536M150.636 180.314H149.1M149.103 180.314h-1.536M147.57 180.314h-1.536M146.023 180.314h-.768M145.263 180.314h-1.344M143.916 180.314h-1.44M142.476 180.314h-.672M141.81 180.314h-.672M141.13 180.314h-.672M140.463 180.314h-1.248M139.21 180.314h-1.152M138.063 180.314h-1.248M136.81 180.314h-1.152M135.663 180.314h-.768M134.89 180.314h-.672M134.223 180.314h-.768M133.45 180.314h-.768M132.685 180.314h-.768M131.917 180.314h-.768M131.149 180.314h-.672M130.477 180.314h-.384M130.093 180.314h-.288M129.805 180.314h-.097M129.709 180.314h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M181.835 160.154v11.232M181.835 166.02l1.632-1.535M183.462 164.474l1.056-.576M184.529 163.9h1.536M186.062 163.9l1.152.577M187.209 164.474l.48 1.536M187.689 166.02v5.377M192.969 162.368l1.151-.576M194.128 161.794l1.536-1.632M195.662 160.154v11.232M302.792 160.06v11.233M302.792 165.914l1.632-1.536M304.42 164.38l1.055-.575M305.486 163.808h1.536M307.019 163.808l1.152.575M308.166 164.38l.48 1.537M308.646 165.914v5.376M313.925 162.18l1.152-.48M315.085 161.7l1.536-1.631M316.619 160.06v11.233M423.75 160.06v11.137M423.75 165.914l1.631-1.632M425.376 164.287l1.056-.48M426.443 163.808h1.536M427.976 163.808l1.152.48M429.123 164.287l.48 1.632M429.603 165.914v5.28M434.882 162.18l1.152-.575M436.042 161.594l1.536-1.536M437.576 160.06v11.137M544.706 159.968v11.231M544.706 165.82l1.632-1.535M546.333 164.287l1.056-.575M547.4 163.714h1.536M548.933 163.714l1.152.576M550.08 164.287l.48 1.536M550.56 165.82v5.377M555.84 162.074l1.151-.48M557 161.594l1.535-1.632M558.533 159.968v11.231M665.663 159.968v11.135M665.663 165.82l1.632-1.631M667.29 164.194l1.056-.48M668.357 163.714h1.536M669.89 163.714l1.152.48M671.037 164.194l.48 1.632M671.517 165.82v5.28M676.796 162.074l1.152-.48M677.956 161.594l1.536-1.632M679.49 159.968v11.135"/></g></g><g stroke="#87cefa"><g stroke-width="28.8"><path stroke-width="3.839904" d="M734.395 224.286h-1.632M732.768 224.286h-5.76M727.008 224.286h-5.663M721.342 224.286h-5.76M715.582 224.286h-5.76M709.822 224.286h-5.856M703.97 224.286h-5.76M698.21 224.286h-5.76M692.45 224.286h-5.856M686.596 224.286l-5.76-.096M680.836 224.193h-5.856M674.97 224.193h-5.856M669.117 224.193h-5.856M663.263 224.193h-5.855M657.41 224.193h-2.88M654.53 224.193h-5.856M648.677 224.193h-5.952M642.717 224.193h-5.856M636.864 224.193h-2.976M633.89 224.193h-5.856M628.038 224.193h-5.856M622.171 224.193h-5.953M616.225 224.193h-5.952M610.278 224.193h-5.856M604.412 224.193h-5.951M598.465 224.193h-5.953M592.519 224.193h-5.952M586.559 224.193h-5.855M580.705 224.193h-5.951M574.759 224.193h-5.952M568.8 224.193h-5.954M562.853 224.193H556.9M556.893 224.193h-5.952M550.946 224.193h-6.048M544.893 224.193h-5.952M538.947 224.193h-5.952M533 224.193h-5.952M527.04 224.193h-2.976M524.067 224.193h-5.953M518.12 224.193h-5.951M512.16 224.193h-5.951M506.214 224.193h-5.95M500.254 224.193h-2.976M497.28 224.193h-6.048M491.241 224.193h-2.975M488.254 224.193h-5.951M482.308 224.193h-5.952M476.361 224.193h-5.951M470.402 224.193h-2.882M467.522 224.193h-5.952M461.575 224.193h-5.952M455.615 224.193h-5.952M449.669 224.193h-5.953M443.722 224.193h-5.856M437.856 224.193h-5.95M431.91 224.193h-5.858M426.056 224.193h-2.976M423.083 224.193h-5.855M417.216 224.193l-5.857-.096M411.363 224.1h-5.856M405.51 224.1h-5.856M399.657 224.1h-2.976M396.683 224.1h-5.76M390.924 224.1h-4.416M386.497 224.1h-4.32M382.177 224.1h-2.88M379.297 224.1h-5.856M373.444 224.1h-5.76M367.684 224.1h-5.76M361.924 224.1h-2.784M359.138 224.1h-5.76M353.378 224.1h-5.664M347.725 224.1h-5.76M341.965 224.1h-5.568M336.392 224.1h-5.664M330.725 224.1h-2.784M327.938 224.1h-5.663M322.285 224.1h-5.568M316.712 224.1l-5.472-.097M311.246 223.993h-5.568M305.672 223.993H300.2M300.206 223.993h-5.472M294.726 223.993h-5.376M289.353 223.993h-5.376M283.98 223.993h-5.376M278.606 223.993h-5.28M273.327 223.993h-5.28M268.047 223.993h-5.28M262.767 223.993h-5.184M257.58 223.993h-5.088M252.487 223.993h-5.088M247.407 223.993l-5.088-.096M242.314 223.9h-7.488M234.82 223.9h-4.895M229.928 223.9h-2.496M227.434 223.9l-4.8-.097M222.634 223.806h-3.551M219.088 223.806h-3.552M215.528 223.806h-2.4M213.128 223.806h-2.304M210.821 223.806h-4.607M206.222 223.806h-2.304M203.915 223.806h-1.152M202.768 223.806h-1.152M201.608 223.806H199.4M199.408 223.806H197.2M197.195 223.806h-2.208M194.982 223.806h-2.208M192.782 223.806h-2.208M190.569 223.806h-2.112M188.462 223.806h-2.112M186.342 223.806h-2.112M184.235 223.806h-1.056M183.182 223.806h-1.056M182.129 223.806h-2.016M180.102 223.806h-2.112M177.996 223.806h-2.016M175.982 223.806h-2.016M173.969 223.806h-1.92M172.049 223.806h-1.92M170.13 223.806h-1.92M168.21 223.806h-.96M167.25 223.806h-.96M166.29 223.806h-1.825M164.463 223.806h-1.824M162.636 223.806h-1.824M160.81 223.806h-1.825M158.983 223.806h-1.728M157.263 223.806h-1.632M155.623 223.806h-.864M154.77 223.806h-.865M153.903 223.806h-1.728M152.17 223.806h-1.536M150.636 223.806H149.1M149.103 223.806h-1.536M147.57 223.806h-1.536M146.023 223.806h-.768M145.263 223.806h-1.344M143.916 223.806h-1.44M142.476 223.806h-.672M141.81 223.806h-.672M141.13 223.806h-.672M140.463 223.806h-1.248M139.21 223.806h-1.152M138.063 223.806h-1.248M136.81 223.806h-1.152M135.663 223.806h-.768M134.89 223.806h-.672M134.223 223.806h-.768M133.45 223.806h-.768M132.685 223.806h-.768M131.917 223.806h-.768M131.149 223.806h-.672M130.477 223.806h-.384M130.093 223.806h-.288M129.805 223.806h-.097M129.709 223.806h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M177.036 203.647v11.135M177.036 209.5l1.632-1.632M178.662 207.873l1.056-.48M179.729 207.393h1.632M181.355 207.393l1.056.48M182.409 207.873l.48 1.632M182.889 209.5v5.28M186.635 210.553h6.336M192.969 210.553v-1.056M192.969 209.5l-.48-1.056M192.489 208.446l-.576-.576M191.915 207.873l-1.056-.48M190.862 207.393h-1.536M189.329 207.393l-1.056.48M188.262 207.873l-1.056 1.056M187.209 208.926l-.576 1.632M186.635 210.553v1.056M186.635 211.62l.576 1.632M187.209 213.246l1.056 1.056M188.262 214.3l1.056.48M189.329 214.78h1.536M190.862 214.78l1.056-.48M191.915 214.3l1.056-1.056M201.515 203.647l-5.28 7.391M196.235 211.033h7.968M201.515 203.647v11.135M297.993 203.833v11.232M297.993 209.7l1.632-1.536M299.62 208.153l1.055-.576M300.686 207.58h1.632M302.312 207.58l1.056.576M303.366 208.153l.48 1.536M303.846 209.7v5.376M307.592 210.753h6.336M313.925 210.753v-1.056M313.925 209.7l-.48-1.056M313.445 208.633l-.575-.48M312.872 208.153l-1.056-.576M311.819 207.58h-1.536M310.286 207.58l-1.056.576M309.219 208.153l-1.056 1.056M308.166 209.22l-.576 1.536M307.592 210.753v1.152M307.592 211.9l.576 1.536M308.166 213.433l1.056 1.056M309.219 214.5l1.056.576M310.286 215.073h1.536M311.819 215.073l1.056-.576M312.872 214.5l1.056-1.056M322.472 203.833l-5.28 7.488M317.192 211.326h7.968M322.472 203.833v11.232M418.95 204.033v11.136M418.95 209.886l1.631-1.632M420.576 208.26l1.056-.576M421.643 207.673h1.632M423.27 207.673l1.055.576M424.323 208.26l.48 1.632M424.803 209.886v5.28M428.55 210.94h6.335M434.882 210.94v-1.056M434.882 209.886l-.48-1.152M434.402 208.74l-.576-.48M433.83 208.26l-1.057-.576M432.776 207.673h-1.536M431.243 207.673l-1.056.576M430.176 208.26l-1.056 1.056M429.123 209.313l-.576 1.632M428.55 210.94v1.056M428.55 211.993l.575 1.536M429.123 213.54l1.056 1.056M430.176 214.593l1.056.576M431.243 215.166h1.536M432.776 215.166l1.056-.576M433.83 214.593l1.055-1.056M443.429 204.033l-5.28 7.392M438.149 211.42h7.968M443.429 204.033v11.136M539.907 204.033v11.136M539.907 209.886l1.631-1.632M541.533 208.26l1.056-.48M542.6 207.78h1.632M544.226 207.78l1.056.48M545.28 208.26l.48 1.632M545.76 209.886v5.28M549.506 210.94h6.336M555.84 210.94v-1.056M555.84 209.886l-.48-1.056M555.36 208.833l-.577-.576M554.786 208.26l-1.056-.48M553.733 207.78h-1.536M552.2 207.78l-1.056.48M551.133 208.26l-1.056 1.152M550.08 209.406l-.576 1.536M549.506 210.94v1.056M549.506 211.993l.576 1.632M550.08 213.633l1.056 1.056M551.133 214.686l1.056.48M552.2 215.166h1.535M553.733 215.166l1.056-.48M554.786 214.686l1.056-1.056M564.386 204.033l-5.28 7.488M559.106 211.513h7.968M564.386 204.033v11.136M660.863 204.126v11.136M660.863 209.886l1.632-1.536M662.49 208.353l1.056-.576M663.557 207.78h1.632M665.183 207.78l1.056.576M666.237 208.353l.48 1.536M666.717 209.886v5.376M670.463 211.033h6.336M676.796 211.033v-1.152M676.796 209.886l-.48-1.056M676.316 208.833l-.576-.48M675.743 208.353l-1.056-.576M674.69 207.78h-1.536M673.157 207.78l-1.056.576M672.09 208.353l-1.056 1.056M671.037 209.406l-.576 1.632M670.463 211.033v1.056M670.463 212.1l.576 1.536M671.037 213.633l1.056 1.056M672.09 214.686l1.056.576M673.157 215.26h1.535M674.69 215.26l1.056-.576M675.743 214.686l1.056-1.056M685.343 204.126l-5.28 7.392M680.063 211.513h7.968M685.343 204.126v11.136"/></g></g><g stroke="#c03"><g stroke-width="28.8"><path stroke-width="3.839904" d="M734.395 387.962h-1.632M732.768 387.962h-5.76M727.008 387.962h-5.663M721.342 387.962h-5.76M715.582 387.962h-5.76M709.822 387.962h-5.856M703.97 387.962h-5.76M698.21 387.962h-5.76M692.45 387.962h-5.856M686.596 387.962h-5.76M680.836 387.962h-5.856M674.97 387.962h-5.856M669.117 387.962h-5.856M663.263 387.962h-5.855M657.41 387.962h-2.88M654.53 387.962h-5.856M648.677 387.962h-5.952M642.717 387.962h-5.856M636.864 387.962h-2.976M633.89 387.962h-5.856M628.038 387.962h-5.856M622.171 387.962h-5.953M616.225 387.962h-5.952M610.278 387.962h-5.856M604.412 387.962h-5.951M598.465 387.962h-5.953M592.519 387.962h-5.952M586.559 387.962h-5.855M580.705 387.962h-5.951M574.759 387.962h-5.952M568.8 387.962h-5.954M562.853 387.962H556.9M556.893 387.962h-5.952M550.946 387.962h-6.048M544.893 387.962h-5.952M538.947 387.962h-5.952M533 387.962h-5.952M527.04 387.962h-2.976M524.067 387.962h-5.953M518.12 387.962h-5.951M512.16 387.962h-5.951M506.214 387.962h-5.95M500.254 387.962h-2.976M497.28 387.962h-6.048M491.241 387.962h-2.975M488.254 387.962h-5.951M482.308 387.962h-5.952M476.361 387.962h-5.951M470.402 387.962h-2.882M467.522 387.962h-5.952M461.575 387.962h-5.952M455.615 387.962h-5.952M449.669 387.962h-5.953M443.722 387.962h-5.856M437.856 387.962h-5.95M431.91 387.962h-5.858M426.056 387.962h-2.976M423.083 387.962h-5.855M417.216 387.962h-5.857M411.363 387.962h-5.856M405.51 387.962h-5.856M399.657 387.962h-2.976M396.683 387.962h-5.76M390.924 387.962h-4.416M386.497 387.962h-4.32M382.177 387.962h-2.88M379.297 387.962h-5.856M373.444 387.962h-5.76M367.684 387.962h-5.76M361.924 387.962h-2.784M359.138 387.962h-5.76M353.378 387.962h-5.664M347.725 387.962h-5.76M341.965 387.962h-5.568M336.392 387.962h-5.664M330.725 387.962h-2.784M327.938 387.962h-5.663M322.285 387.962h-5.568M316.712 387.962h-5.472M311.246 387.962h-5.568M305.672 387.962H300.2M300.206 387.962h-5.472M294.726 387.962h-5.376M289.353 387.962h-5.376M283.98 387.962h-5.376M278.606 387.962h-5.28M273.327 387.962h-5.28M268.047 387.962h-5.28M262.767 387.962h-5.184M257.58 387.962h-5.088M252.487 387.962h-5.088M247.407 387.962h-5.088M242.314 387.962h-7.488M234.82 387.962h-4.895M229.928 387.962h-2.496M227.434 387.962l-4.8.192M222.634 388.149h-3.551M219.088 388.149h-3.552M215.528 388.149h-2.4M213.128 388.149h-2.304M210.821 388.149h-4.607M206.222 388.149h-2.304M203.915 388.149h-1.152M202.768 388.149h-1.152M201.608 388.149H199.4M199.408 388.149H197.2M197.195 388.149h-2.208M194.982 388.149h-2.208M192.782 388.149h-2.208M190.569 388.149h-2.112M188.462 388.149h-2.112M186.342 388.149h-2.112M184.235 388.149h-1.056M183.182 388.149h-1.056M182.129 388.149h-2.016M180.102 388.149h-2.112M177.996 388.149h-2.016M175.982 388.149h-2.016M173.969 388.149h-1.92M172.049 388.149h-1.92M170.13 388.149h-1.92M168.21 388.149h-.96M167.25 388.149h-.96M166.29 388.149h-1.825M164.463 388.149h-1.824M162.636 388.149h-1.824M160.81 388.149h-1.825M158.983 388.149h-1.728M157.263 388.149h-1.632M155.623 388.149h-.864M154.77 388.149h-.865M153.903 388.149h-1.728M152.17 388.149h-1.536M150.636 388.149H149.1M149.103 388.149h-1.536M147.57 388.149h-1.536M146.023 388.149h-.768M145.263 388.149h-1.344M143.916 388.149h-1.44M142.476 388.149h-.672M141.81 388.149h-.672M141.13 388.149h-.672M140.463 388.149h-1.248M139.21 388.149h-1.152M138.063 388.149h-1.248M136.81 388.149h-1.152M135.663 388.149h-.768M134.89 388.149h-.672M134.223 388.149h-.768M133.45 388.149h-.768M132.685 388.149h-.768M131.917 388.149h-.768M131.149 388.149h-.672M130.477 388.149h-.384M130.093 388.149h-.288M129.805 388.149h-.097M129.709 388.149h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="m178.662 371.642-1.056.576M177.609 372.216l-1.056 1.056M176.556 373.269l-.576 1.632M175.982 374.909v1.056M175.982 375.962l.576 1.536M176.556 377.495l1.056 1.056M177.609 378.549l1.056.576M178.662 379.135h1.632M180.302 379.135l1.056-.576M181.355 378.549l1.056-1.056M182.409 377.495l.48-1.535M182.889 375.962v-1.056M182.889 374.909l-.48-1.632M182.409 373.269l-1.056-1.056M181.355 372.216l-1.056-.576M180.302 371.642h-1.632M187.689 370.109l1.056-.576M188.742 369.536l1.632-1.536M190.382 367.99v11.135M203.622 369.536l-.48-1.056M203.142 368.47l-1.632-.48M201.515 367.99h-1.056M200.462 367.99l-1.632.48M198.822 368.47l-1.056 1.631M197.768 370.109l-.48 2.688M197.288 372.789v2.592M197.288 375.389l.48 2.112M197.768 377.495l1.056 1.056M198.822 378.549l1.632.576M200.462 379.135h.576M201.035 379.135l1.536-.576M202.568 378.549l1.056-1.056M203.622 377.495l.576-1.535M204.208 375.962v-.576M204.208 375.389l-.576-1.536M203.622 373.856l-1.056-1.056M202.568 372.789l-1.536-.576M201.035 372.216h-.576M200.462 372.216l-1.632.576M198.822 372.789l-1.056 1.056M197.768 373.856l-.48 1.536M299.62 371.549l-1.057.48M298.566 372.029l-1.056 1.056M297.513 373.082l-.576 1.632M296.94 374.709v1.056M296.94 375.776l.575 1.631M297.513 377.402l1.056 1.056M298.566 378.455l1.056.48M299.62 378.935h1.631M301.26 378.935l1.055-.48M302.312 378.455l1.056-1.056M303.366 377.402l.48-1.632M303.846 375.776v-1.056M303.846 374.709l-.48-1.632M303.366 373.082l-1.056-1.056M302.312 372.029l-1.056-.48M301.26 371.549h-1.633M308.646 369.909l1.056-.48M309.699 369.429l1.632-1.632M311.339 367.802v11.136M324.579 369.429l-.48-1.056M324.099 368.376l-1.632-.576M322.472 367.802h-1.056M321.419 367.802l-1.632.576M319.779 368.376l-1.056 1.536M318.725 369.909l-.48 2.688M318.245 372.602v2.688M318.245 375.296l.48 2.111M318.725 377.402l1.056 1.056M319.779 378.455l1.632.48M321.419 378.935h.576M321.992 378.935l1.536-.48M323.525 378.455l1.056-1.056M324.579 377.402l.576-1.632M325.165 375.776v-.48M325.165 375.296l-.576-1.632M324.579 373.656l-1.056-1.056M323.525 372.602l-1.536-.576M321.992 372.029h-.576M321.419 372.029l-1.632.576M319.779 372.602l-1.056 1.056M318.725 373.656l-.48 1.632M420.576 371.549l-1.056.48M419.523 372.029l-1.056 1.056M418.47 373.082l-.576 1.632M417.896 374.709v1.056M417.896 375.776l.576 1.631M418.47 377.402l1.056 1.056M419.523 378.455l1.056.48M420.576 378.935h1.632M422.216 378.935l1.056-.48M423.27 378.455l1.055-1.056M424.323 377.402l.48-1.632M424.803 375.776v-1.056M424.803 374.709l-.48-1.632M424.323 373.082l-1.056-1.056M423.27 372.029l-1.057-.48M422.216 371.549h-1.632M429.603 369.909l1.056-.48M430.656 369.429l1.632-1.632M432.296 367.802v11.136M445.536 369.429l-.48-1.152M445.056 368.282l-1.632-.48M443.429 367.802h-1.056M442.376 367.802l-1.632.48M440.736 368.282l-1.056 1.632M439.682 369.909l-.48 2.688M439.202 372.602v2.592M439.202 375.189l.48 2.208M439.682 377.402l1.056 1.056M440.736 378.455l1.632.48M442.376 378.935h.576M442.949 378.935l1.536-.48M444.482 378.455l1.056-1.056M445.536 377.402l.576-1.632M446.122 375.776v-.576M446.122 375.189l-.576-1.536M445.536 373.656l-1.056-1.056M444.482 372.602l-1.536-.576M442.949 372.029h-.576M442.376 372.029l-1.632.576M440.736 372.602l-1.056 1.056M439.682 373.656l-.48 1.536M541.533 371.549l-1.056.48M540.48 372.029l-1.056 1.056M539.427 373.082l-.576 1.632M538.853 374.709v1.056M538.853 375.776l.576 1.631M539.427 377.402l1.055 1.056M540.48 378.455l1.056.48M541.533 378.935h1.632M543.173 378.935l1.056-.48M544.226 378.455l1.056-1.056M545.28 377.402l.48-1.632M545.76 375.776v-1.056M545.76 374.709l-.48-1.632M545.28 373.082l-1.056-1.056M544.226 372.029l-1.056-.48M543.173 371.549h-1.632M550.56 369.909l1.056-.576M551.613 369.336l1.632-1.536M553.253 367.802v11.136M566.493 369.336l-.48-1.056M566.013 368.282l-1.632-.48M564.386 367.802h-1.056M563.333 367.802l-1.632.48M561.693 368.282l-1.056 1.632M560.64 369.909l-.48 2.688M560.16 372.602v2.592M560.16 375.189l.48 2.208M560.64 377.402l1.055 1.056M561.693 378.455l1.632.48M563.333 378.935h.576M563.906 378.935l1.536-.48M565.44 378.455l1.055-1.056M566.493 377.402l.575-1.632M567.08 375.776v-.576M567.08 375.189l-.577-1.536M566.493 373.656l-1.056-1.056M565.44 372.602l-1.537-.576M563.906 372.029h-.576M563.333 372.029l-1.632.576M561.693 372.602l-1.056 1.056M560.64 373.656l-.482 1.536M662.49 371.549l-1.056.48M661.437 372.029l-1.056 1.056M660.383 373.082l-.575 1.632M659.81 374.709v1.056M659.81 375.776l.576 1.631M660.383 377.402l1.056 1.056M661.437 378.455l1.056.48M662.49 378.935h1.632M664.13 378.935l1.056-.48M665.183 378.455l1.056-1.056M666.237 377.402l.48-1.632M666.717 375.776v-1.056M666.717 374.709l-.48-1.632M666.237 373.082l-1.056-1.056M665.183 372.029l-1.056-.48M664.13 371.549h-1.632M671.517 369.909l1.056-.576M672.57 369.336l1.632-1.536M674.21 367.802v11.136M687.45 369.336l-.48-1.056M686.97 368.282l-1.632-.48M685.343 367.802h-1.056M684.29 367.802l-1.632.48M682.65 368.282l-1.056 1.632M681.596 369.909l-.48 2.688M681.116 372.602v2.592M681.116 375.189l.48 2.208M681.596 377.402l1.056 1.056M682.65 378.455l1.632.48M684.29 378.935h.576M684.863 378.935l1.536-.48M686.396 378.455l1.056-1.056M687.45 377.402l.575-1.632M688.036 375.776v-.576M688.036 375.189l-.576-1.536M687.45 373.656l-1.055-1.056M686.396 372.602l-1.536-.576M684.863 372.029h-.576M684.29 372.029l-1.634.576M682.65 372.602l-1.055 1.056M681.596 373.656l-.481 1.536"/></g></g><g stroke="#daa520"><g stroke-width="28.8"><path stroke-width="3.839904" d="m734.395 490.106-1.632-.096M732.768 490.013l-5.76-.384M727.008 489.626l-5.663-.384M721.342 489.24l-5.76-.385M715.582 488.853l-5.76-.48M709.822 488.373l-5.856-.48M703.97 487.893l-5.76-.48M698.21 487.413l-5.76-.576M692.45 486.84l-5.856-.577M686.596 486.266l-5.76-.576M680.836 485.693l-5.856-.672M674.97 485.013l-5.856-.672M669.117 484.346l-5.856-.768M663.263 483.573l-5.855-.48M657.41 483.093l-2.88-.672M654.53 482.426l-5.856-.768M648.677 481.653l-5.952-.864M642.717 480.786l-5.856-.672M636.864 480.12l-2.976-.672M633.89 479.453l-5.856-1.056M628.038 478.386l-5.856-.96M622.171 477.426l-5.953-1.056M616.225 476.373l-5.952-1.152M610.278 475.226l-5.856-1.152M604.412 474.066l-5.951-1.152M598.465 472.92l-5.953-1.248M592.519 471.666l-5.952-1.247M586.559 470.427l-5.855-1.344M580.705 469.08l-5.951-1.344M574.759 467.733l-5.952-1.44M568.8 466.293l-5.954-1.44M562.853 464.853l-5.952-1.44M556.893 463.413l-5.952-1.536M550.946 461.88l-6.048-1.535M544.893 460.347l-5.952-1.536M538.947 458.813l-5.952-1.535M533 457.267l-5.952-1.248M527.04 456.027l-2.976-1.152M524.067 454.867l-5.953-1.632M518.12 453.24l-5.951-1.63M512.16 451.614l-5.951-1.634M506.214 449.974l-5.95-1.248M500.254 448.734l-2.976-1.248M497.28 447.48l-6.048-1.152M491.241 446.334l-2.975-1.248M488.254 445.08l-5.951-1.534M482.308 443.547l-5.952-1.632M476.361 441.907l-5.951-1.152M470.402 440.76l-2.882-1.151M467.522 439.614l-5.952-1.441M461.575 438.174l-5.952-1.535M455.615 436.627l-5.952-1.344M449.669 435.294l-5.953-1.44M443.722 433.854l-5.856-1.345M437.856 432.507l-5.95-1.248M431.91 431.254l-5.858-.862M426.056 430.388l-2.976-.864M423.083 429.534l-5.855-1.152M417.216 428.374l-5.857-1.056M411.363 427.32l-5.856-.96M405.51 426.36l-5.856-.767M399.657 425.588l-2.976-3.552M396.683 422.041l-5.76-.385M390.924 421.654l-4.416-.766M386.497 420.894l-4.32-.384M382.177 420.508l-2.88-.192M379.297 420.308l-5.856-.288M373.444 420.028l-5.76-.288M367.684 419.734l-5.76-.576M361.924 419.161l-2.784-.096M359.138 419.068l-5.76-.096M353.378 418.974l-5.664-.192M347.725 418.774l-5.76-.288M341.965 418.494h-5.568M336.392 418.494l-5.664-.096M330.725 418.388h-2.784M327.938 418.388l-5.663-.096M322.285 418.294h-5.568M316.712 418.294l-5.472-.096M311.246 418.201h-5.568M305.672 418.201H300.2M300.206 418.201h-5.472M294.726 418.201h-5.376M289.353 418.201h-5.376M283.98 418.201l-5.376-.096M278.606 418.108h-5.28M273.327 418.108h-5.28M268.047 418.108h-5.28M262.767 418.108h-5.184M257.58 418.108h-5.088M252.487 418.108h-5.088M247.407 418.108h-5.088M242.314 418.108h-7.488M234.82 418.108h-4.895M229.928 418.108h-2.496M227.434 418.108l-4.8-.192M222.634 417.908h-3.551M219.088 417.908h-3.552M215.528 417.908h-2.4M213.128 417.908h-2.304M210.821 417.908h-4.607M206.222 417.908h-2.304M203.915 417.908h-1.152M202.768 417.908h-1.152M201.608 417.908H199.4M199.408 417.908H197.2M197.195 417.908h-2.208M194.982 417.908h-2.208M192.782 417.908h-2.208M190.569 417.908h-2.112M188.462 417.908h-2.112M186.342 417.908h-2.112M184.235 417.908h-1.056M183.182 417.908h-1.056M182.129 417.908h-2.016M180.102 417.908h-2.112M177.996 417.908h-2.016M175.982 417.908h-2.016M173.969 417.908h-1.92M172.049 417.908h-1.92M170.13 417.908h-1.92M168.21 417.908h-.96M167.25 417.908h-.96M166.29 417.908h-1.825M164.463 417.908h-1.824M162.636 417.908h-1.824M160.81 417.908h-1.825M158.983 417.908h-1.728M157.263 417.908h-1.632M155.623 417.908h-.864M154.77 417.908h-.865M153.903 417.908h-1.728M152.17 417.908h-1.536M150.636 417.908H149.1M149.103 417.908h-1.536M147.57 417.908h-1.536M146.023 417.908h-.768M145.263 417.908h-1.344M143.916 417.908h-1.44M142.476 417.908h-.672M141.81 417.908h-.672M141.13 417.908h-.672M140.463 417.908h-1.248M139.21 417.908h-1.152M138.063 417.908h-1.248M136.81 417.908h-1.152M135.663 417.908h-.768M134.89 417.908h-.672M134.223 417.908h-.768M133.45 417.908h-.768M132.685 417.908h-.768M131.917 417.908h-.768M131.149 417.908h-.672M130.477 417.908h-.384M130.093 417.908h-.288M129.805 417.908h-.097M129.709 417.908h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M176.556 401.495v7.488M176.556 403.615l1.536-1.536M178.089 402.068l1.056-.576M179.142 401.495h1.632M180.782 401.495l1.056.576M181.835 402.068l.576 1.536M182.409 403.615v5.376M187.689 399.962l1.056-.576M188.742 399.388l1.632-1.632M190.382 397.748v11.232M202.088 397.748l-5.376 7.488M196.715 405.241h7.968M202.088 397.748v11.232M297.513 401.788v7.392M297.513 403.895l1.536-1.632M299.046 402.268l1.056-.48M300.1 401.788h1.631M301.74 401.788l1.055.48M302.792 402.268l.576 1.632M303.366 403.895v5.28M308.646 400.148l1.056-.48M309.699 399.668l1.632-1.632M311.339 398.042v11.135M323.045 398.042l-5.376 7.487M317.672 405.535h7.968M323.045 398.042v11.135M418.47 414.841v7.488M418.47 416.948l1.535-1.536M420.003 415.415l1.056-.576M421.056 414.841h1.632M422.696 414.841l1.056.576M423.75 415.415l.575 1.536M424.323 416.948v5.376M429.603 413.308l1.056-.576M430.656 412.735l1.632-1.536M432.296 411.188v11.136M444.002 411.188l-5.376 7.392M438.629 418.588h7.968M444.002 411.188v11.136M539.427 445.947v7.488M539.427 448.147l1.535-1.632M540.96 446.52l1.056-.576M542.013 445.947h1.632M543.653 445.947l1.056.576M544.706 446.52l.576 1.632M545.28 448.147v5.28M550.56 444.414l1.056-.576M551.613 443.827l1.632-1.536M553.253 442.294v11.136M564.96 442.294l-5.377 7.392M559.586 449.694h7.968M564.96 442.294v11.136M660.383 468.507v7.391M660.383 470.613l1.536-1.632M661.917 468.987l1.056-.48M662.97 468.507h1.632M664.61 468.507l1.056.48M665.663 468.987l.576 1.632M666.237 470.613v5.28M671.517 466.867l1.056-.576M672.57 466.293l1.632-1.536M674.21 464.76v11.136M685.916 464.76l-5.376 7.392M680.543 472.146h7.968M685.916 464.76v11.136"/></g></g><g stroke="#7c68ee"><g stroke-width="28.8"><path stroke-width="3.839904" d="M734.395 428.094h-1.632M732.768 428.094h-5.76M727.008 428.094h-5.663M721.342 428.094h-5.76M715.582 428.094h-5.76M709.822 428.094h-5.856M703.97 428.094h-5.76M698.21 428.094h-5.76M692.45 428.094h-5.856M686.596 428.094h-5.76M680.836 428.094h-5.856M674.97 428.094h-5.856M669.117 428.094h-5.856M663.263 428.094h-5.855M657.41 428.094h-2.88M654.53 428.094h-5.856M648.677 428.094h-5.952M642.717 428.094h-5.856M636.864 428.094h-2.976M633.89 428.094h-5.856M628.038 428.094h-5.856M622.171 428.094h-5.953M616.225 428.094h-5.952M610.278 428.094h-5.856M604.412 428.094h-5.951M598.465 428.094h-5.953M592.519 428.094h-5.952M586.559 428.094h-5.855M580.705 428.094h-5.951M574.759 428.094h-5.952M568.8 428.094h-5.954M562.853 428.094H556.9M556.893 428.094h-5.952M550.946 428.094h-6.048M544.893 428.094h-5.952M538.947 428.094h-5.952M533 428.094h-5.952M527.04 428.094h-2.976M524.067 428.094h-5.953M518.12 428.094h-5.951M512.16 428.094h-5.951M506.214 428.094h-5.95M500.254 428.094h-2.976M497.28 428.094h-6.048M491.241 428.094h-2.975M488.254 428.094h-5.951M482.308 428.094h-5.952M476.361 428.094h-5.951M470.402 428.094h-2.882M467.522 428.094h-5.952M461.575 428.094h-5.952M455.615 428.094h-5.952M449.669 428.094h-5.953M443.722 428.094h-5.856M437.856 428.094h-5.95M431.91 428.094h-5.858M426.056 428.094h-2.976M423.083 428.094h-5.855M417.216 428.094h-5.857M411.363 428.094h-5.856M405.51 428.094h-5.856M399.657 428.094h-2.976M396.683 428.094h-5.76M390.924 428.094h-4.416M386.497 428.094h-4.32M382.177 428.094h-2.88M379.297 428.094h-5.856M373.444 428.094h-5.76M367.684 428.094h-5.76M361.924 428.094h-2.784M359.138 428.094h-5.76M353.378 428.094h-5.664M347.725 428.094h-5.76M341.965 428.094h-5.568M336.392 428.094h-5.664M330.725 428.094h-2.784M327.938 428.094h-5.663M322.285 428.094h-5.568M316.712 428.094h-5.472M311.246 428.094h-5.568M305.672 428.094H300.2M300.206 428.094h-5.472M294.726 428.094h-5.376M289.353 428.094h-5.376M283.98 428.094h-5.376M278.606 428.094h-5.28M273.327 428.094h-5.28M268.047 428.094h-5.28M262.767 428.094h-5.184M257.58 428.094h-5.088M252.487 428.094h-5.088M247.407 428.094h-5.088M242.314 428.094h-7.488M234.82 428.094h-4.895M229.928 428.094h-2.496M227.434 428.094h-4.8M222.634 428.094h-3.551M219.088 428.094h-3.552M215.528 428.094h-2.4M213.128 428.094h-2.304M210.821 428.094h-4.607M206.222 428.094h-2.304M203.915 428.094h-1.152M202.768 428.094h-1.152M201.608 428.094H199.4M199.408 428.094H197.2M197.195 428.094h-2.208M194.982 428.094h-2.208M192.782 428.094h-2.208M190.569 428.094h-2.112M188.462 428.094h-2.112M186.342 428.094h-2.112M184.235 428.094h-1.056M183.182 428.094h-1.056M182.129 428.094h-2.016M180.102 428.094h-2.112M177.996 428.094h-2.016M175.982 428.094h-2.016M173.969 428.094h-1.92M172.049 428.094h-1.92M170.13 428.094h-1.92M168.21 428.094h-.96M167.25 428.094h-.96M166.29 428.094h-1.825M164.463 428.094h-1.824M162.636 428.094h-1.824M160.81 428.094h-1.825M158.983 428.094h-1.728M157.263 428.094h-1.632M155.623 428.094h-.864M154.77 428.094h-.865M153.903 428.094h-1.728M152.17 428.094h-1.536M150.636 428.094H149.1M149.103 428.094h-1.536M147.57 428.094h-1.536M146.023 428.094h-.768M145.263 428.094h-1.344M143.916 428.094h-1.44M142.476 428.094h-.672M141.81 428.094h-.672M141.13 428.094h-.672M140.463 428.094h-1.248M139.21 428.094h-1.152M138.063 428.094h-1.248M136.81 428.094h-1.152M135.663 428.094h-.768M134.89 428.094h-.672M134.223 428.094h-.768M133.45 428.094h-.768M132.685 428.094h-.768M131.917 428.094h-.768M131.149 428.094h-.672M130.477 428.094h-.384M130.093 428.094h-.288M129.805 428.094h-.097M129.709 428.094h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M168.582 411.668v7.392M168.582 413.788l1.536-1.632M170.13 412.148l1.055-.48M171.182 411.668h1.632M172.809 411.668l1.056.48M173.862 412.148l.576 1.632M174.449 413.788v5.28M174.449 413.788l1.536-1.632M175.982 412.148l1.056-.48M177.036 411.668h1.632M178.662 411.668l1.056.48M179.729 412.148l.576 1.632M180.302 413.788v5.28M190.382 411.668v8.544M190.382 420.214l-.576 1.536M189.809 421.748l-.48.576M189.329 422.334l-1.056.48M188.262 422.814h-1.632M186.635 422.814l-1.056-.48M190.382 413.308l-1.056-1.152M189.329 412.148l-1.056-.48M188.262 411.668h-1.632M186.635 411.668l-1.056.48M185.582 412.148l-1.056 1.152M184.529 413.308l-.576 1.536M183.942 414.841v1.056M183.942 415.895l.576 1.631M184.529 417.534l1.056 1.056M185.582 418.588l1.056.48M186.635 419.068h1.632M188.262 419.068l1.056-.48M189.329 418.588l1.056-1.056M194.608 410.615v-.576M194.608 410.041l.576-1.056M195.182 408.988l.48-.48M195.662 408.508l1.056-.576M196.715 407.935h2.112M198.822 407.935l1.056.576M199.888 408.508l.576.48M200.462 408.988l.576 1.056M201.035 410.041v1.056M201.035 411.095l-.576 1.056M200.462 412.148l-1.056 1.632M199.408 413.788l-5.28 5.28M194.128 419.068h7.392M210.061 407.935l-5.375 7.488M204.688 415.415h7.968M210.061 407.935v11.135M289.54 411.668v7.392M289.54 413.788l1.535-1.632M291.086 412.148l1.056-.48M292.14 411.668h1.631M293.766 411.668l1.056.48M294.82 412.148l.575 1.632M295.406 413.788v5.28M295.406 413.788l1.536-1.632M296.94 412.148l1.055-.48M297.993 411.668h1.632M299.62 411.668l1.055.48M300.686 412.148l.576 1.632M301.26 413.788v5.28M311.339 411.668v8.544M311.339 420.214l-.576 1.536M310.766 421.748l-.48.576M310.286 422.334l-1.056.48M309.219 422.814h-1.632M307.592 422.814l-1.056-.48M311.339 413.308l-1.056-1.152M310.286 412.148l-1.056-.48M309.219 411.668h-1.632M307.592 411.668l-1.056.48M306.539 412.148l-1.056 1.152M305.486 413.308l-.576 1.536M304.899 414.841v1.056M304.899 415.895l.576 1.631M305.486 417.534l1.056 1.056M306.539 418.588l1.056.48M307.592 419.068h1.632M309.219 419.068l1.056-.48M310.286 418.588l1.056-1.056M315.565 410.615v-.576M315.565 410.041l.576-1.056M316.139 408.988l.48-.48M316.619 408.508l1.056-.576M317.672 407.935h2.112M319.779 407.935l1.056.576M320.845 408.508l.576.48M321.419 408.988l.576 1.056M321.992 410.041v1.056M321.992 411.095l-.576 1.056M321.419 412.148l-1.056 1.632M320.365 413.788l-5.28 5.28M315.085 419.068h7.392M331.018 407.935l-5.375 7.488M325.645 415.415h7.968M331.018 407.935v11.135M410.496 411.668v7.392M410.496 413.788l1.536-1.632M412.043 412.148l1.056-.48M413.096 411.668h1.632M414.723 411.668l1.056.48M415.776 412.148l.576 1.632M416.363 413.788v5.28M416.363 413.788l1.536-1.632M417.896 412.148l1.056-.48M418.95 411.668h1.631M420.576 411.668l1.056.48M421.643 412.148l.576 1.632M422.216 413.788v5.28M432.296 411.668v8.544M432.296 420.214l-.576 1.536M431.723 421.748l-.48.576M431.243 422.334l-1.056.48M430.176 422.814h-1.632M428.55 422.814l-1.057-.48M432.296 413.308l-1.056-1.152M431.243 412.148l-1.056-.48M430.176 411.668h-1.632M428.55 411.668l-1.057.48M427.496 412.148l-1.056 1.152M426.443 413.308l-.576 1.536M425.856 414.841v1.056M425.856 415.895l.576 1.631M426.443 417.534l1.056 1.056M427.496 418.588l1.056.48M428.55 419.068h1.631M430.176 419.068l1.056-.48M431.243 418.588l1.056-1.056M436.522 410.615v-.576M436.522 410.041l.576-1.056M437.096 408.988l.48-.48M437.576 408.508l1.056-.576M438.629 407.935h2.112M440.736 407.935l1.056.576M441.802 408.508l.576.48M442.376 408.988l.576 1.056M442.949 410.041v1.056M442.949 411.095l-.576 1.056M442.376 412.148l-1.056 1.632M441.322 413.788l-5.28 5.28M436.042 419.068h7.392M451.975 407.935l-5.375 7.488M446.602 415.415h7.968M451.975 407.935v11.135M531.453 411.668v7.392M531.453 413.788l1.536-1.632M533 412.148l1.056-.48M534.053 411.668h1.632M535.68 411.668l1.056.48M536.733 412.148l.576 1.632M537.32 413.788v5.28M537.32 413.788l1.536-1.632M538.853 412.148l1.056-.48M539.907 411.668h1.631M541.533 411.668l1.056.48M542.6 412.148l.576 1.632M543.173 413.788v5.28M553.253 411.668v8.544M553.253 420.214l-.576 1.536M552.68 421.748l-.48.576M552.2 422.334l-1.056.48M551.133 422.814H549.5M549.506 422.814l-1.056-.48M553.253 413.308l-1.056-1.152M552.2 412.148l-1.056-.48M551.133 411.668H549.5M549.506 411.668l-1.056.48M548.453 412.148l-1.056 1.152M547.4 413.308l-.576 1.536M546.813 414.841v1.056M546.813 415.895l.576 1.631M547.4 417.534l1.056 1.056M548.453 418.588l1.056.48M549.506 419.068h1.632M551.133 419.068l1.056-.48M552.2 418.588l1.056-1.056M557.48 410.615v-.576M557.48 410.041l.575-1.056M558.053 408.988l.48-.48M558.533 408.508l1.056-.576M559.586 407.935h2.112M561.693 407.935l1.056.576M562.76 408.508l.575.48M563.333 408.988l.576 1.056M563.906 410.041v1.056M563.906 411.095l-.576 1.056M563.333 412.148l-1.056 1.632M562.28 413.788l-5.28 5.28M557 419.068h7.391M572.932 407.935l-5.376 7.488M567.56 415.415h7.967M572.932 407.935v11.135M652.41 411.668v7.392M652.41 413.788l1.536-1.632M653.957 412.148l1.056-.48M655.01 411.668h1.632M656.637 411.668l1.056.48M657.69 412.148l.576 1.632M658.277 413.788v5.28M658.277 413.788l1.536-1.632M659.81 412.148l1.056-.48M660.863 411.668h1.632M662.49 411.668l1.056.48M663.557 412.148l.576 1.632M664.13 413.788v5.28M674.21 411.668v8.544M674.21 420.214l-.576 1.536M673.636 421.748l-.48.576M673.157 422.334l-1.056.48M672.09 422.814h-1.632M670.463 422.814l-1.056-.48M674.21 413.308l-1.056-1.152M673.157 412.148l-1.056-.48M672.09 411.668h-1.632M670.463 411.668l-1.056.48M669.41 412.148l-1.056 1.152M668.357 413.308l-.576 1.536M667.77 414.841v1.056M667.77 415.895l.576 1.631M668.357 417.534l1.056 1.056M669.41 418.588l1.056.48M670.463 419.068h1.632M672.09 419.068l1.056-.48M673.157 418.588l1.055-1.056M678.436 410.615v-.576M678.436 410.041l.576-1.056M679.01 408.988l.48-.48M679.49 408.508l1.056-.576M680.543 407.935h2.112M682.65 407.935l1.056.576M683.716 408.508l.576.48M684.29 408.988l.576 1.056M684.863 410.041v1.056M684.863 411.095l-.576 1.056M684.29 412.148l-1.056 1.632M683.236 413.788l-5.28 5.28M677.956 419.068h7.392M693.89 407.935l-5.377 7.488M688.516 415.415h7.968M693.89 407.935v11.135"/></g></g><g stroke="#ff7f4f"><g stroke-width="28.8"><path stroke-width="3.839904" d="M734.395 437.587h-1.632M732.768 437.587l-5.76.096M727.008 437.694l-5.663.192M721.342 437.88l-5.76.097M715.582 437.974l-5.76.096M709.822 438.067l-5.856.192M703.97 438.267l-5.76.192M698.21 438.454l-5.76.096M692.45 438.547l-5.856.192M686.596 438.747l-5.76.192M680.836 438.934l-5.856.288M674.97 439.227l-5.856.192M669.117 439.414l-5.856.192M663.263 439.614l-5.855.192M657.41 439.8l-2.88.289M654.53 440.094l-5.856.288M648.677 440.374l-5.952.288M642.717 440.667l-5.856.288M636.864 440.947l-2.976.192M633.89 441.147l-5.856.384M628.038 441.534l-5.856.48M622.171 442.014l-5.953.384M616.225 442.387l-5.952.48M610.278 442.867l-5.856.576M604.412 443.454l-5.951.48M598.465 443.934l-5.953.672M592.519 444.6l-5.952.576M586.559 445.174l-5.855.672M580.705 445.854l-5.951.768M574.759 446.614l-5.952.768M568.8 447.387l-5.954.864M562.853 448.254l-5.952.961M556.893 449.214l-5.952.96M550.946 450.174l-6.048 1.056M544.893 451.227l-5.952 1.152M538.947 452.374l-5.952 1.152M533 453.534l-5.952 1.057M527.04 454.587l-2.976.96M524.067 455.547l-5.953 1.44M518.12 456.987l-5.951 1.63M512.16 458.613l-5.951 1.634M506.214 460.253l-5.95 1.344M500.254 461.587l-2.976 1.344M497.28 462.933l-6.048 1.538M491.241 464.467l-2.975 1.536M488.254 466.013l-5.951 2.207M482.308 468.213l-5.952 2.306M476.361 470.52l-5.951 1.918M470.402 472.44l-2.882 1.921M467.522 474.36l-5.952 2.784M461.575 477.146l-5.952 2.88M455.615 480.026l-5.952 3.167M449.669 483.186l-5.953 3.36M443.722 486.546l-5.856 3.552M437.856 490.106l-5.95 3.745M431.91 493.853l-5.858 2.976M426.056 496.826l-2.976 3.166M423.083 499.986l-5.855 4.321M417.216 504.306l-5.857 4.702M411.363 509.012l-5.856 4.897M405.51 513.905l-5.856 3.84M399.657 517.745l-2.976 28.512M396.683 546.265l-5.76 4.607M390.924 550.864l-4.416 10.368M386.497 561.238l-4.32 6.911M382.177 568.144l-2.88 4.32M379.297 572.464l-5.856 6.048M373.444 578.517l-5.76 6.24M367.684 584.757l-5.76 17.184M361.924 601.943l-2.784 4.608M359.138 606.543l-5.76 6.336M353.378 612.89l-5.664 6.335M347.725 619.223l-5.76 21.023M341.965 640.249l-5.568 5.376M336.392 645.622l-5.664 3.936M330.725 649.555l-2.784 3.744M327.938 653.302l-5.663 4.8M322.285 658.102l-5.568 4.416M316.712 662.515l-5.472 13.344M311.246 675.861l-5.568 1.92M305.672 677.781l-5.472 1.632M300.206 679.408l-5.472 1.344M294.726 680.755l-5.376 1.056M289.353 681.808l-5.376.768M283.98 682.581l-5.376 1.44M278.606 684.021l-5.28.767M273.327 684.781l-5.28-.095M268.047 684.688l-5.28-.192M262.767 684.501l-5.184-.288M257.58 684.208l-5.088-.288M252.487 683.928l-5.088-.288M247.407 683.635l-5.088-.386M242.314 683.248l-7.488-.383M234.82 682.861l-4.895-.288M229.928 682.581l-2.496-.288M227.434 682.288l-4.8-6.144M222.634 676.141h-3.551M219.088 676.141h-3.552M215.528 676.141h-2.4M213.128 676.141h-2.304M210.821 676.141h-4.607M206.222 676.141h-2.304M203.915 676.141h-1.152M202.768 676.141h-1.152M201.608 676.141H199.4M199.408 676.141H197.2M197.195 676.141h-2.208M194.982 676.141h-2.208M192.782 676.141h-2.208M190.569 676.141h-2.112M188.462 676.141h-2.112M186.342 676.141h-2.112M184.235 676.141h-1.056M183.182 676.141h-1.056M182.129 676.141h-2.016M180.102 676.141h-2.112M177.996 676.141h-2.016M175.982 676.141h-2.016M173.969 676.141h-1.92M172.049 676.141h-1.92M170.13 676.141h-1.92M168.21 676.141h-.96M167.25 676.141h-.96M166.29 676.141h-1.825M164.463 676.141h-1.824M162.636 676.141h-1.824M160.81 676.141h-1.825M158.983 676.141h-1.728M157.263 676.141h-1.632M155.623 676.141h-.864M154.77 676.141h-.865M153.903 676.141h-1.728M152.17 676.141h-1.536M150.636 676.141H149.1M149.103 676.141h-1.536M147.57 676.141h-1.536M146.023 676.141h-.768M145.263 676.141h-1.344M143.916 676.141h-1.44M142.476 676.141h-.672M141.81 676.141h-.672M141.13 676.141h-.672M140.463 676.141h-1.248M139.21 676.141h-1.152M138.063 676.141h-1.248M136.81 676.141h-1.152M135.663 676.141h-.768M134.89 676.141h-.672M134.223 676.141h-.768M133.45 676.141h-.768M132.685 676.141h-.768M131.917 676.141h-.768M131.149 676.141h-.672M130.477 676.141h-.384M130.093 676.141h-.288M129.805 676.141h-.097M129.709 676.141h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="m182.609 661.262-1.056-1.056M181.542 660.208l-1.056-.48M180.489 659.728h-1.536M178.956 659.728l-1.056.48M177.902 660.208l-1.056 1.056M176.849 661.262l-.576 1.632M176.262 662.902v1.056M176.262 663.955l.576 1.632M176.849 665.582l1.056 1.056M177.902 666.648l1.056.48M178.956 667.128h1.535M180.489 667.128l1.056-.48M181.542 666.648l1.056-1.056M187.409 658.102l1.056-.48M188.462 657.622l1.632-1.632M190.089 655.982v11.136M197.008 658.675v-.576M197.008 658.102l.576-1.056M197.582 657.049l.48-.576M198.062 656.462l1.056-.48M199.115 655.982h2.112M201.222 655.982l1.056.48M202.288 656.462l.576.576M202.862 657.049l.48 1.055M203.342 658.102v1.056M203.342 659.155l-.48 1.056M202.862 660.208l-1.056 1.632M201.808 661.848l-5.376 5.28M196.422 667.128h7.488M303.566 661.075l-1.056-1.056M302.5 660.022l-1.057-.576M301.446 659.448h-1.536M299.913 659.448l-1.056.576M298.86 660.022l-1.057 1.056M297.806 661.075l-.576 1.536M297.22 662.608v1.056M297.22 663.662l.575 1.632M297.806 665.302l1.056 1.056M298.86 666.355l1.055.576M299.913 666.928h1.535M301.446 666.928l1.056-.576M302.5 666.355l1.055-1.056M308.366 657.808l1.056-.48M309.419 657.329l1.632-1.632M311.046 655.702v11.232M317.965 658.382v-.576M317.965 657.808l.576-1.055M318.539 656.755l.48-.48M319.019 656.275l1.056-.576M320.072 655.702h2.112M322.179 655.702l1.056.576M323.245 656.275l.576.48M323.819 656.755l.48 1.056M324.299 657.808v1.056M324.299 658.862l-.48 1.152M323.819 660.022l-1.056 1.536M322.765 661.555l-5.376 5.376M317.379 666.928h7.488M424.523 478.973l-1.056-1.056M423.456 477.906l-1.056-.576M422.403 477.333h-1.536M420.87 477.333l-1.056.576M419.816 477.906l-1.056 1.056M418.763 478.973l-.576 1.632M418.176 480.6v1.056M418.176 481.653l.576 1.536M418.763 483.186l1.056 1.056M419.816 484.253l1.056.576M420.87 484.826h1.535M422.403 484.826l1.056-.576M423.456 484.253l1.056-1.056M429.323 475.8l1.056-.576M430.376 475.226l1.632-1.536M432.003 473.693v11.136M438.922 476.28v-.48M438.922 475.8l.576-1.056M439.496 474.746l.48-.576M439.976 474.173l1.056-.48M441.029 473.693h2.112M443.136 473.693l1.056.48M444.202 474.173l.576.576M444.776 474.746l.48 1.056M445.256 475.8v1.056M445.256 476.853l-.48 1.056M444.776 477.906l-1.056 1.632M443.722 479.546l-5.376 5.28M438.336 484.826h7.488M545.48 435l-1.056-1.055M544.413 433.947l-1.056-.576M543.36 433.374h-1.536M541.826 433.374l-1.056.576M540.773 433.947l-1.056 1.056M539.72 435l-.576 1.537M539.133 436.534v1.152M539.133 437.694l.576 1.536M539.72 439.227l1.056 1.056M540.773 440.28l1.056.577M541.826 440.854h1.536M543.36 440.854l1.056-.576M544.413 440.28l1.056-1.055M550.28 431.827l1.056-.576M551.333 431.254l1.632-1.632M552.96 429.628v11.231M559.88 432.307v-.48M559.88 431.827l.575-1.056M560.453 430.774l.48-.576M560.933 430.2l1.056-.575M561.986 429.628h2.112M564.093 429.628l1.056.576M565.16 430.2l.575.577M565.733 430.774l.48 1.056M566.213 431.827v1.056M566.213 432.894l-.48 1.056M565.733 433.947l-1.056 1.536M564.68 435.48l-5.377 5.377M559.293 440.854h7.487M666.437 424.348l-1.056-1.056M665.37 423.294l-1.056-.48M664.317 422.814h-1.536M662.783 422.814l-1.056.48M661.73 423.294l-1.056 1.056M660.677 424.348l-.576 1.632M660.09 425.974v1.056M660.09 427.028l.576 1.632M660.677 428.668l1.056 1.056M661.73 429.72l1.056.48M662.783 430.2h1.536M664.317 430.2l1.056-.48M665.37 429.72l1.056-1.055M671.237 421.174l1.056-.48M672.29 420.694l1.632-1.632M673.916 419.068v11.136M680.836 421.748v-.576M680.836 421.174l.576-1.056M681.41 420.121l.48-.48M681.89 419.641l1.056-.576M682.943 419.068h2.112M685.05 419.068l1.056.576M686.116 419.641l.576.48M686.69 420.121l.48 1.056M687.17 421.174v1.056M687.17 422.228l-.48 1.056M686.69 423.294l-1.056 1.632M685.636 424.921l-5.376 5.28M680.25 430.2h7.487"/></g></g><g stroke="#20b2aa"><g stroke-width="28.8"><path stroke-width="3.839904" d="M734.395 460.44h-1.632M732.768 460.44h-5.76M727.008 460.44h-5.663M721.342 460.44h-5.76M715.582 460.44h-5.76M709.822 460.44h-5.856M703.97 460.44h-5.76M698.21 460.44h-5.76M692.45 460.44h-5.856M686.596 460.44h-5.76M680.836 460.44h-5.856M674.97 460.44h-5.856M669.117 460.44h-5.856M663.263 460.44h-5.855M657.41 460.44h-2.88M654.53 460.44h-5.856M648.677 460.44h-5.952M642.717 460.44h-5.856M636.864 460.44h-2.976M633.89 460.44h-5.856M628.038 460.44h-5.856M622.171 460.44h-5.953M616.225 460.44h-5.952M610.278 460.44h-5.856M604.412 460.44h-5.951M598.465 460.44h-5.953M592.519 460.44h-5.952M586.559 460.44h-5.855M580.705 460.44h-5.951M574.759 460.44h-5.952M568.8 460.44h-5.954M562.853 460.44H556.9M556.893 460.44h-5.952M550.946 460.44h-6.048M544.893 460.44h-5.952M538.947 460.44h-5.952M533 460.44h-5.952M527.04 460.44h-2.976M524.067 460.44h-5.953M518.12 460.44h-5.951M512.16 460.44h-5.951M506.214 460.44h-5.95M500.254 460.44h-2.976M497.28 460.44h-6.048M491.241 460.44h-2.975M488.254 460.44h-5.951M482.308 460.44h-5.952M476.361 460.44h-5.951M470.402 460.44h-2.882M467.522 460.44h-5.952M461.575 460.44h-5.952M455.615 460.44h-5.952M449.669 460.44h-5.953M443.722 460.44h-5.856M437.856 460.44h-5.95M431.91 460.44h-5.858M426.056 460.44h-2.976M423.083 460.44h-5.855M417.216 460.44h-5.857M411.363 460.44h-5.856M405.51 460.44h-5.856M399.657 460.44h-2.976M396.683 460.44h-5.76M390.924 460.44h-4.416M386.497 460.44h-4.32M382.177 460.44h-2.88M379.297 460.44h-5.856M373.444 460.44h-5.76M367.684 460.44h-5.76M361.924 460.44h-2.784M359.138 460.44h-5.76M353.378 460.44h-5.664M347.725 460.44h-5.76M341.965 460.44h-5.568M336.392 460.44h-5.664M330.725 460.44h-2.784M327.938 460.44h-5.663M322.285 460.44h-5.568M316.712 460.44h-5.472M311.246 460.44h-5.568M305.672 460.44H300.2M300.206 460.44h-5.472M294.726 460.44h-5.376M289.353 460.44h-5.376M283.98 460.44h-5.376M278.606 460.44h-5.28M273.327 460.44h-5.28M268.047 460.44h-5.28M262.767 460.44h-5.184M257.58 460.44h-5.088M252.487 460.44h-5.088M247.407 460.44h-5.088M242.314 460.44h-7.488M234.82 460.44h-4.895M229.928 460.44h-2.496M227.434 460.44h-4.8M222.634 460.44h-3.551M219.088 460.44h-3.552M215.528 460.44h-2.4M213.128 460.44h-2.304M210.821 460.44h-4.607M206.222 460.44h-2.304M203.915 460.44h-1.152M202.768 460.44h-1.152M201.608 460.44H199.4M199.408 460.44H197.2M197.195 460.44h-2.208M194.982 460.44h-2.208M192.782 460.44h-2.208M190.569 460.44h-2.112M188.462 460.44h-2.112M186.342 460.44h-2.112M184.235 460.44h-1.056M183.182 460.44h-1.056M182.129 460.44h-2.016M180.102 460.44h-2.112M177.996 460.44h-2.016M175.982 460.44h-2.016M173.969 460.44h-1.92M172.049 460.44h-1.92M170.13 460.44h-1.92M168.21 460.44h-.96M167.25 460.44h-.96M166.29 460.44h-1.825M164.463 460.44h-1.824M162.636 460.44h-1.824M160.81 460.44h-1.825M158.983 460.44h-1.728M157.263 460.44h-1.632M155.623 460.44h-.864M154.77 460.44h-.865M153.903 460.44h-1.728M152.17 460.44h-1.536M150.636 460.44H149.1M149.103 460.44h-1.536M147.57 460.44h-1.536M146.023 460.44h-.768M145.263 460.44h-1.344M143.916 460.44h-1.44M142.476 460.44h-.672M141.81 460.44h-.672M141.13 460.44h-.672M140.463 460.44h-1.248M139.21 460.44h-1.152M138.063 460.44h-1.248M136.81 460.44h-1.152M135.663 460.44h-.768M134.89 460.44h-.672M134.223 460.44h-.768M133.45 460.44h-.768M132.685 460.44h-.768M131.917 460.44h-.768M131.149 460.44h-.672M130.477 460.44h-.384M130.093 460.44h-.288M129.805 460.44h-.097M129.709 460.44h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M171.756 444.027v7.392M171.756 446.134l1.632-1.632M173.382 444.507l1.056-.48M174.449 444.027h1.536M175.982 444.027l1.056.48M177.036 444.507l.576 1.632M177.609 446.134v5.28M181.355 447.187h6.336M187.689 447.187v-1.056M187.689 446.134l-.48-1.056M187.209 445.08l-.576-.576M186.635 444.507l-1.056-.48M185.582 444.027h-1.632M183.942 444.027l-1.056.48M182.889 444.507l-1.056 1.056M181.835 445.56l-.48 1.632M181.355 447.187v1.056M181.355 448.254l.48 1.632M181.835 449.88l1.056 1.056M182.889 450.934l1.056.48M183.942 451.414h1.632M185.582 451.414l1.056-.48M186.635 450.934l1.056-1.056M191.435 442.974v-.576M191.435 442.387l.48-1.056M191.915 441.334l.576-.576M192.489 440.76l1.055-.48M193.542 440.28h2.112M195.662 440.28l1.056.48M196.715 440.76l.576.577M197.288 441.334l.48 1.056M197.768 442.387v1.056M197.768 443.454l-.48 1.056M197.288 444.507l-1.056 1.632M196.235 446.134l-5.376 5.28M190.862 451.414h7.488M204.688 440.28l-1.536.48M203.142 440.76l-1.056 1.633M202.088 442.387l-.576 2.688M201.515 445.08v1.536M201.515 446.614l.576 2.688M202.088 449.307l1.056 1.632M203.142 450.934l1.536.48M204.688 451.414h1.056M205.742 451.414l1.631-.48M207.368 450.934l1.056-1.632M208.421 449.307l.576-2.688M209.008 446.614v-1.536M209.008 445.08l-.576-2.687M208.421 442.387l-1.056-1.632M207.368 440.76l-1.632-.48M205.742 440.28h-1.056M292.713 444.027v7.392M292.713 446.134l1.632-1.632M294.34 444.507l1.055-.48M295.406 444.027h1.536M296.94 444.027l1.055.48M297.993 444.507l.576 1.632M298.566 446.134v5.28M302.312 447.187h6.336M308.646 447.187v-1.056M308.646 446.134l-.48-1.056M308.166 445.08l-.576-.576M307.592 444.507l-1.056-.48M306.539 444.027h-1.632M304.899 444.027l-1.056.48M303.846 444.507l-1.056 1.056M302.792 445.56l-.48 1.632M302.312 447.187v1.056M302.312 448.254l.48 1.632M302.792 449.88l1.056 1.056M303.846 450.934l1.056.48M304.899 451.414h1.632M306.539 451.414l1.056-.48M307.592 450.934l1.056-1.056M312.392 442.974v-.576M312.392 442.387l.48-1.056M312.872 441.334l.576-.576M313.445 440.76l1.056-.48M314.499 440.28h2.112M316.619 440.28l1.056.48M317.672 440.76l.576.577M318.245 441.334l.48 1.056M318.725 442.387v1.056M318.725 443.454l-.48 1.056M318.245 444.507l-1.056 1.632M317.192 446.134l-5.376 5.28M311.819 451.414h7.488M325.645 440.28l-1.536.48M324.099 440.76l-1.056 1.633M323.045 442.387l-.576 2.688M322.472 445.08v1.536M322.472 446.614l.576 2.688M323.045 449.307l1.056 1.632M324.099 450.934l1.536.48M325.645 451.414h1.056M326.698 451.414l1.632-.48M328.325 450.934l1.056-1.632M329.378 449.307l.576-2.688M329.965 446.614v-1.536M329.965 445.08l-.576-2.687M329.378 442.387l-1.056-1.632M328.325 440.76l-1.632-.48M326.698 440.28h-1.055M413.67 444.027v7.392M413.67 446.134l1.632-1.632M415.296 444.507l1.056-.48M416.363 444.027h1.536M417.896 444.027l1.056.48M418.95 444.507l.576 1.632M419.523 446.134v5.28M423.27 447.187h6.335M429.603 447.187v-1.056M429.603 446.134l-.48-1.056M429.123 445.08l-.576-.576M428.55 444.507l-1.057-.48M427.496 444.027h-1.632M425.856 444.027l-1.056.48M424.803 444.507l-1.056 1.056M423.75 445.56l-.48 1.632M423.27 447.187v1.056M423.27 448.254l.48 1.632M423.75 449.88l1.055 1.056M424.803 450.934l1.056.48M425.856 451.414h1.632M427.496 451.414l1.056-.48M428.55 450.934l1.055-1.056M433.35 442.974v-.576M433.35 442.387l.48-1.056M433.83 441.334l.575-.576M434.402 440.76l1.056-.48M435.456 440.28h2.112M437.576 440.28l1.056.48M438.629 440.76l.576.577M439.202 441.334l.48 1.056M439.682 442.387v1.056M439.682 443.454l-.48 1.056M439.202 444.507l-1.056 1.632M438.149 446.134l-5.376 5.28M432.776 451.414h7.488M446.602 440.28l-1.536.48M445.056 440.76 444 442.394M444.002 442.387l-.576 2.688M443.429 445.08v1.536M443.429 446.614l.576 2.688M444.002 449.307l1.056 1.632M445.056 450.934l1.536.48M446.602 451.414h1.056M447.655 451.414l1.632-.48M449.282 450.934l1.056-1.632M450.335 449.307l.576-2.688M450.922 446.614v-1.536M450.922 445.08l-.576-2.687M450.335 442.387l-1.056-1.632M449.282 440.76l-1.632-.48M447.655 440.28H446.6M534.627 444.027v7.392M534.627 446.134l1.632-1.632M536.253 444.507l1.056-.48M537.32 444.027h1.536M538.853 444.027l1.056.48M539.907 444.507l.575 1.632M540.48 446.134v5.28M544.226 447.187h6.336M550.56 447.187v-1.056M550.56 446.134l-.48-1.056M550.08 445.08l-.576-.576M549.506 444.507l-1.056-.48M548.453 444.027h-1.632M546.813 444.027l-1.056.48M545.76 444.507l-1.056 1.056M544.706 445.56l-.48 1.632M544.226 447.187v1.056M544.226 448.254l.48 1.632M544.706 449.88l1.056 1.056M545.76 450.934l1.056.48M546.813 451.414h1.632M548.453 451.414l1.056-.48M549.506 450.934l1.056-1.056M554.306 442.974v-.576M554.306 442.387l.48-1.056M554.786 441.334l.576-.576M555.36 440.76l1.055-.48M556.413 440.28h2.112M558.533 440.28l1.056.48M559.586 440.76l.576.577M560.16 441.334l.48 1.056M560.64 442.387v1.056M560.64 443.454l-.48 1.056M560.16 444.507l-1.057 1.632M559.106 446.134l-5.376 5.28M553.733 451.414h7.488M567.56 440.28l-1.537.48M566.013 440.76l-1.056 1.633M564.96 442.387l-.577 2.688M564.386 445.08v1.536M564.386 446.614l.576 2.688M564.96 449.307l1.055 1.632M566.013 450.934l1.535.48M567.56 451.414h1.055M568.612 451.414l1.632-.48M570.24 450.934l1.055-1.632M571.292 449.307l.576-2.688M571.879 446.614v-1.536M571.879 445.08l-.576-2.687M571.292 442.387l-1.056-1.632M570.24 440.76l-1.633-.48M568.612 440.28h-1.056M655.584 444.027v7.392M655.584 446.134l1.632-1.632M657.21 444.507l1.056-.48M658.277 444.027h1.536M659.81 444.027l1.056.48M660.863 444.507l.576 1.632M661.437 446.134v5.28M665.183 447.187h6.336M671.517 447.187v-1.056M671.517 446.134l-.48-1.056M671.037 445.08l-.576-.576M670.463 444.507l-1.056-.48M669.41 444.027h-1.632M667.77 444.027l-1.056.48M666.717 444.507l-1.056 1.056M665.663 445.56l-.48 1.632M665.183 447.187v1.056M665.183 448.254l.48 1.632M665.663 449.88l1.056 1.056M666.717 450.934l1.056.48M667.77 451.414h1.632M669.41 451.414l1.056-.48M670.463 450.934l1.056-1.056M675.263 442.974v-.576M675.263 442.387l.48-1.056M675.743 441.334l.576-.576M676.316 440.76l1.056-.48M677.37 440.28h2.112M679.49 440.28l1.056.48M680.543 440.76l.576.577M681.116 441.334l.48 1.056M681.596 442.387v1.056M681.596 443.454l-.48 1.056M681.116 444.507l-1.056 1.632M680.063 446.134l-5.376 5.28M674.69 451.414h7.488M688.516 440.28l-1.536.48M686.97 440.76l-1.056 1.633M685.916 442.387l-.576 2.688M685.343 445.08v1.536M685.343 446.614l.576 2.688M685.916 449.307l1.056 1.632M686.97 450.934l1.535.48M688.516 451.414h1.056M689.57 451.414l1.631-.48M691.196 450.934l1.056-1.632M692.25 449.307l.575-2.688M692.836 446.614v-1.536M692.836 445.08l-.576-2.687M692.25 442.387l-1.055-1.632M691.196 440.76l-1.633-.48M689.57 440.28h-1.057"/></g></g><g stroke="#a9a9a9"><g stroke-width="28.8"><path stroke-width="3.839904" d="m734.395 597.53-1.632.192M732.768 597.717l-5.76.96M727.008 598.677l-5.663 1.056M721.342 599.73l-5.76.96M715.582 600.69l-5.76 1.056M709.822 601.743l-5.856.96M703.97 602.703l-5.76 1.056M698.21 603.77l-5.76 1.056M692.45 604.823l-5.856 1.056M686.596 605.876l-5.76 1.056M680.836 606.93l-5.856 1.056M674.97 607.983l-5.856 1.056M669.117 609.05l-5.856 1.152M663.263 610.196l-5.855.768M657.41 610.97l-2.88.864M654.53 611.823l-5.856 1.056M648.677 612.89l-5.952 1.056M642.717 613.943l-5.856.864M636.864 614.81l-2.976.864M633.89 615.663l-5.856 1.056M628.038 616.73l-5.856 1.055M622.171 617.783l-5.953 1.152M616.225 618.93l-5.952 1.055M610.278 619.983l-5.856 1.152M604.412 621.143l-5.951 1.056M598.465 622.196l-5.953 1.152M592.519 623.343l-5.952 1.056M586.559 624.41l-5.855 1.151M580.705 625.556l-5.951 1.056M574.759 626.61l-5.952 1.151M568.8 627.77l-5.954 1.055M562.853 628.823l-5.952 1.152M556.893 629.97l-5.952 1.055M550.946 631.022l-6.048 1.152M544.893 632.182l-5.952 1.056M538.947 633.236l-5.952 1.152M533 634.382l-5.952.864M527.04 635.25l-2.976.767M524.067 636.022l-5.953 1.152M518.12 637.169l-5.951 1.056M512.16 638.222l-5.951 1.152M506.214 639.382l-5.95.768M500.254 640.142l-2.976.864M497.28 641.009l-6.048.864M491.241 641.876l-2.975.768M488.254 642.649l-5.951 1.152M482.308 643.796l-5.952 1.151M476.361 644.942l-5.951.768M470.402 645.715l-2.882.864M467.522 646.582l-5.952 1.152M461.575 647.729l-5.952 1.056M455.615 648.782l-5.952 1.152M449.669 649.942l-5.953 1.056M443.722 650.995l-5.856 1.152M437.856 652.142l-5.95 1.152M431.91 653.302l-5.858.768M426.056 654.062l-2.976.864M423.083 654.929l-5.855 1.152M417.216 656.089l-5.857 1.152M411.363 657.235l-5.856 1.056M405.51 658.288l-5.856.864M399.657 659.155l-2.976.864M396.683 660.022l-5.76.96M390.924 660.982l-4.416.864M386.497 661.848l-4.32.672M382.177 662.515l-2.88.864M379.297 663.382l-5.856 1.152M373.444 664.528l-5.76 1.152M367.684 665.688l-5.76.864M361.924 666.542l-2.784.864M359.138 667.408l-5.76 1.152M353.378 668.568l-5.664 1.152M347.725 669.715l-5.76 1.152M341.965 670.861l-5.568 1.152M336.392 672.021l-5.664.96M330.725 672.981l-2.784.864M327.938 673.848 322.275 675M322.285 674.995l-5.568 1.152M316.712 676.141l-5.472 1.248M311.246 677.395l-5.568 1.152M305.672 678.541l-5.472 1.248M300.206 679.795l-5.472 1.248M294.726 681.048l-5.376 1.152M289.353 682.195l-5.376 1.248M283.98 683.448l-5.376 1.248M278.606 684.688l-5.28 1.248M273.327 685.941l-5.28 1.248M268.047 687.181l-5.28 1.248M262.767 688.434l-5.184 1.248M257.58 689.688l-5.088 1.248M252.487 690.928l-5.088 1.248M247.407 692.181l-5.088 1.632M242.314 693.808l-7.488 1.632M234.82 695.448l-4.895.96M229.928 696.408l-2.496 1.055M227.434 697.46l-4.8 18.336M222.634 715.794h-3.551M219.088 715.794h-3.552M215.528 715.794h-2.4M213.128 715.794h-2.304M210.821 715.794h-4.607M206.222 715.794h-2.304M203.915 715.794h-1.152M202.768 715.794h-1.152M201.608 715.794H199.4M199.408 715.794H197.2M197.195 715.794h-2.208M194.982 715.794h-2.208M192.782 715.794h-2.208M190.569 715.794h-2.112M188.462 715.794h-2.112M186.342 715.794h-2.112M184.235 715.794h-1.056M183.182 715.794h-1.056M182.129 715.794h-2.016M180.102 715.794h-2.112M177.996 715.794h-2.016M175.982 715.794h-2.016M173.969 715.794h-1.92M172.049 715.794h-1.92M170.13 715.794h-1.92M168.21 715.794h-.96M167.25 715.794h-.96M166.29 715.794h-1.825M164.463 715.794h-1.824M162.636 715.794h-1.824M160.81 715.794h-1.825M158.983 715.794h-1.728M157.263 715.794h-1.632M155.623 715.794h-.864M154.77 715.794h-.865M153.903 715.794h-1.728M152.17 715.794h-1.536M150.636 715.794H149.1M149.103 715.794h-1.536M147.57 715.794h-1.536M146.023 715.794h-.768M145.263 715.794h-1.344M143.916 715.794h-1.44M142.476 715.794h-.672M141.81 715.794h-.672M141.13 715.794h-.672M140.463 715.794h-1.248M139.21 715.794h-1.152M138.063 715.794h-1.248M136.81 715.794h-1.152M135.663 715.794h-.768M134.89 715.794h-.672M134.223 715.794h-.768M133.45 715.794h-.768M132.685 715.794h-.768M131.917 715.794h-.768M131.149 715.794h-.672M130.477 715.794h-.384M130.093 715.794h-.288M129.805 715.794h-.097M129.709 715.794h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M177.036 695.634v11.136M177.036 701.487l1.632-1.632M178.662 699.86l1.056-.48M179.729 699.38h1.632M181.355 699.38l1.056.48M182.409 699.86l.48 1.633M182.889 701.487v5.28M186.635 702.54h6.336M192.969 702.54v-1.055M192.969 701.487l-.48-1.056M192.489 700.434l-.576-.576M191.915 699.86l-1.056-.48M190.862 699.38h-1.536M189.329 699.38l-1.056.48M188.262 699.86l-1.056 1.057M187.209 700.914l-.576 1.632M186.635 702.54v1.057M186.635 703.607l.576 1.632M187.209 705.234l1.056 1.056M188.262 706.287l1.056.48M189.329 706.767h1.536M190.862 706.767l1.056-.48M191.915 706.287l1.056-1.056M197.288 695.634h5.856M203.142 695.634l-3.264 4.224M199.888 699.86h1.632M201.515 699.86l1.056.577M202.568 700.434l.576.48M203.142 700.914l.48 1.632M203.622 702.54v1.057M203.622 703.607l-.48 1.632M203.142 705.234l-1.056 1.056M202.088 706.287l-1.632.48M200.462 706.767h-1.632M198.822 706.767l-1.536-.48M197.288 706.287l-.576-.576M196.715 705.714l-.48-1.056M297.993 657.235v11.232M297.993 663.088l1.632-1.536M299.62 661.555l1.055-.576M300.686 660.982h1.632M302.312 660.982l1.056.576M303.366 661.555l.48 1.536M303.846 663.088v5.376M307.592 664.142h6.336M313.925 664.142v-1.056M313.925 663.088l-.48-1.056M313.445 662.035l-.575-.48M312.872 661.555l-1.056-.576M311.819 660.982h-1.536M310.286 660.982l-1.056.576M309.219 661.555l-1.056 1.056M308.166 662.608l-.576 1.536M307.592 664.142v1.056M307.592 665.208l.576 1.632M308.166 666.835l1.056 1.056M309.219 667.888l1.056.576M310.286 668.462h1.536M311.819 668.462l1.056-.576M312.872 667.888l1.056-1.056M318.245 657.235h5.856M324.099 657.235l-3.264 4.32M320.845 661.555h1.632M322.472 661.555l1.056.48M323.525 662.035l.576.576M324.099 662.608l.48 1.536M324.579 664.142v1.056M324.579 665.208l-.48 1.632M324.099 666.835l-1.056 1.056M323.045 667.888l-1.632.576M321.419 668.462h-1.632M319.779 668.462l-1.536-.576M318.245 667.888l-.576-.48M317.672 667.408l-.48-1.152M418.95 633.142v11.136M418.95 638.996l1.631-1.632M420.576 637.369l1.056-.576M421.643 636.782h1.632M423.27 636.782l1.055.576M424.323 637.369l.48 1.632M424.803 638.996v5.28M428.55 640.049h6.335M434.882 640.049v-1.056M434.882 638.996l-.48-1.152M434.402 637.849l-.576-.48M433.83 637.369l-1.057-.576M432.776 636.782h-1.536M431.243 636.782l-1.056.576M430.176 637.369l-1.056 1.056M429.123 638.422l-.576 1.632M428.55 640.049v1.056M428.55 641.102l.575 1.536M429.123 642.649l1.056 1.056M430.176 643.702l1.056.576M431.243 644.275h1.536M432.776 644.275l1.056-.575M433.83 643.702l1.055-1.056M439.202 633.142h5.856M445.056 633.142l-3.264 4.224M441.802 637.369h1.632M443.429 637.369l1.056.48M444.482 637.849l.576.576M445.056 638.422l.48 1.632M445.536 640.049v1.056M445.536 641.102l-.48 1.536M445.056 642.649 444 643.705M444.002 643.702l-1.632.576M442.376 644.275h-1.632M440.736 644.275l-1.536-.575M439.202 643.702l-.576-.48M438.629 643.222l-.48-1.056M539.907 610.49v11.231M539.907 616.343l1.631-1.536M541.533 614.81l1.056-.576M542.6 614.223h1.632M544.226 614.223l1.056.576M545.28 614.81l.48 1.536M545.76 616.343v5.376M549.506 617.396h6.336M555.84 617.396v-1.056M555.84 616.343l-.48-1.056M555.36 615.29l-.577-.48M554.786 614.81l-1.056-.576M553.733 614.223h-1.536M552.2 614.223l-1.056.576M551.133 614.81l-1.056 1.056M550.08 615.863l-.576 1.536M549.506 617.396v1.056M549.506 618.45l.576 1.631M550.08 620.09l1.056 1.055M551.133 621.143l1.056.576M552.2 621.716h1.535M553.733 621.716l1.056-.576M554.786 621.143l1.056-1.056M560.16 610.49h5.855M566.013 610.49l-3.264 4.32M562.76 614.81h1.631M564.386 614.81l1.056.48M565.44 615.29l.575.576M566.013 615.863l.48 1.536M566.493 617.396v1.056M566.493 618.45l-.48 1.631M566.013 620.09l-1.056 1.055M564.96 621.143l-1.633.576M563.333 621.716H561.7M561.693 621.716l-1.536-.576M560.16 621.143l-.577-.48M559.586 620.663l-.48-1.056M660.863 588.024v11.231M660.863 593.877l1.632-1.536M662.49 592.343l1.056-.576M663.557 591.77h1.632M665.183 591.77l1.056.576M666.237 592.343l.48 1.536M666.717 593.877v5.376M670.463 594.93h6.336M676.796 594.93v-1.056M676.796 593.877l-.48-1.056M676.316 592.823l-.576-.48M675.743 592.343l-1.056-.576M674.69 591.77h-1.536M673.157 591.77l-1.056.576M672.09 592.343l-1.056 1.056M671.037 593.397l-.576 1.536M670.463 594.93v1.056M670.463 595.983l.576 1.632M671.037 597.623l1.056 1.056M672.09 598.677l1.056.576M673.157 599.25h1.535M674.69 599.25l1.056-.576M675.743 598.677l1.056-1.056M681.116 588.024h5.856M686.97 588.024l-3.264 4.32M683.716 592.343h1.632M685.343 592.343l1.056.48M686.396 592.823l.576.576M686.97 593.397l.48 1.536M687.45 594.93v1.056M687.45 595.983l-.48 1.632M686.97 597.623l-1.056 1.056M685.916 598.677l-1.632.576M684.29 599.25h-1.632M682.65 599.25l-1.536-.576M681.116 598.677l-.576-.576M680.543 598.103l-.48-1.056"/></g></g><path stroke="#2e8b57" stroke-width="4.79988" d="M734.395 733.841h-511.76"/><path stroke="#87cefa" stroke-width="4.79988" d="M219.088 733.841h-89.47"/></g></svg>
\ No newline at end of file
diff --git a/star/test_suite/1.5M_with_diffusion/inlist_1.5M_with_diffusion b/star/test_suite/1.5M_with_diffusion/inlist_1.5M_with_diffusion
index 4d0698f2d..fde5c4160 100644
--- a/star/test_suite/1.5M_with_diffusion/inlist_1.5M_with_diffusion
+++ b/star/test_suite/1.5M_with_diffusion/inlist_1.5M_with_diffusion
@@ -1,167 +1,176 @@
-
 ! inlist_1.5M_with_diffusion
 
 
 &star_job
-      
-      show_log_description_at_start = .false. 
-
-      load_saved_model = .true.
-      load_model_filename = '1.5_zams.mod'
+   show_log_description_at_start = .false.
 
-      save_model_when_terminate = .true.
-      save_model_filename = 'final.mod'
-      required_termination_code_string = 'xa_central_lower_limit'
+   load_saved_model = .true.
+   load_model_filename = '1.5_zams.mod'
 
-      set_initial_age = .true.
-      initial_age = 0
+   save_model_when_terminate = .true.
+   save_model_filename = 'final.mod'
+   required_termination_code_string = 'xa_central_lower_limit'
 
-      set_initial_model_number = .true.
-      initial_model_number = 0
+   set_initial_age = .true.
+   initial_age = 0
 
-      history_columns_file = 'history_columns.list' 
-      profile_columns_file = 'profile_columns.list' 
+   set_initial_model_number = .true.
+   initial_model_number = 0
 
-      set_initial_cumulative_energy_error = .true.
-      new_cumulative_energy_error = 0d0
+   history_columns_file = 'history_columns.list'
+   profile_columns_file = 'profile_columns.list'
 
-      !pgstar_flag = .true.
+   set_initial_cumulative_energy_error = .true.
+   new_cumulative_energy_error = 0d0
 
+   pgstar_flag = .true.
+   save_pgstar_files_when_terminate = .true.
 
 / ! end of star_job namelist
 
 
 &eos
 
-
 / ! end of eos namelist
 
 
-
-
 &kap
-      Zbase = 0.02
+   Zbase = 0.02
 / ! end of kap namelist
 
+
 &controls
-   
    ! IMPORTANT NOTE: if you use these files for non-testing purposes, note
    ! that some timestep and resolution controls are adjusted to make the test
    ! faster at the cost of converged results. For each of these, recommended
    ! values are commented out. Use with caution.
    ! look for the string 'RELAXED VALUE FOR TEST SUITE' to find the adjusted values
 
-      energy_eqn_option = 'dedt'
-      convergence_ignore_equL_residuals = .true.
-      use_gold2_tolerances = .true.
-            
-      limit_for_rel_error_in_energy_conservation = -1
-      hard_limit_for_rel_error_in_energy_conservation = -1
-      max_abs_rel_run_E_err = 1d99
-      warn_when_large_rel_run_E_err = 1d0
-
-      num_trace_history_values = 2
-      trace_history_value_name(1) = 'rel_E_err'
-      trace_history_value_name(2) = 'log_rel_run_E_err'
-
-      ! limit max_model_number as part of test_suite
-      max_model_number = 1000
-
-      initial_mass = 1.5
-      initial_z = 0.02
-   	
-! when to stop      
-
-      xa_central_lower_limit_species(1) = 'h1'
-      xa_central_lower_limit(1) = 0.01
-
-      max_age = 2d10 
-      
-      use_Ledoux_criterion = .true.
-      !alpha_semiconvection = 1d-1
-      !semiconvection_option = 'Langer_85'
-
-      mixing_length_alpha = 1.8d0
-      MLT_option = 'Henyey'
-
-
-      predictive_mix(1) = .true.
-      predictive_zone_type(1) = 'any'
-      predictive_zone_loc(1) = 'core'
-      predictive_bdy_loc(1) = 'any'
-      predictive_superad_thresh(1) = 0.005
-
-      predictive_mix(2) = .true.
-      predictive_zone_type(2) = 'any'
-      predictive_zone_loc(2) = 'surf'
-      predictive_bdy_loc(2) = 'any'
-      predictive_superad_thresh(2) = 0.005
-
-      num_cells_for_smooth_gradL_composition_term = 10
-      threshold_for_smooth_gradL_composition_term = 0.02
-      num_cells_for_smooth_brunt_B = 10
-      threshold_for_smooth_brunt_B = 0.1
-     
-      !show_diffusion_info = .true. ! terminal output for diffusion
-      !show_diffusion_substep_info = .true. ! terminal output for diffusion
-      
-      do_element_diffusion = .true. ! determines whether or not we do diffusion
-      diffusion_dt_limit = 3.15d7 ! no element diffusion if dt < this limit (in seconds)
-      
-      diffusion_T_full_on = 1d3
-      diffusion_T_full_off = 1d3
-
-      D_mix_ignore_diffusion = 1d2 ! turn off diffusion in any region with D_mix greater than this
-      
-      diffusion_calculates_ionization = .true.
-      
-      diffusion_num_classes = 8 ! number of classes of species for diffusion calculations
-      diffusion_class_representative(1) = 'h1'
-      diffusion_class_representative(2) = 'he3'
-      diffusion_class_representative(3) = 'he4'
-      diffusion_class_representative(4) = 'c12'
-      diffusion_class_representative(5) = 'n14'
-      diffusion_class_representative(6) = 'o16'
-      diffusion_class_representative(7) = 'ne20'
-      diffusion_class_representative(8) = 'mg24'
-   
-      ! in ascending order.  species goes into 1st class with A_max >= species A
-      diffusion_class_A_max(1) = 2
-      diffusion_class_A_max(2) = 3
-      diffusion_class_A_max(3) = 4
-      diffusion_class_A_max(4) = 12
-      diffusion_class_A_max(5) = 14
-      diffusion_class_A_max(6) = 16
-      diffusion_class_A_max(7) = 20
-      diffusion_class_A_max(8) = 10000
-         
-      diffusion_use_isolve = .true.
-      diffusion_rtol_for_isolve = 1d-4
-      diffusion_atol_for_isolve = 1d-5
-      diffusion_maxsteps_for_isolve = 1000
-      diffusion_isolve_solver = 'ros2_solver'
-      
- 
+   energy_eqn_option = 'dedt'
+   convergence_ignore_equL_residuals = .true.
+   use_gold2_tolerances = .true.
+   limit_for_rel_error_in_energy_conservation = -1
+   hard_limit_for_rel_error_in_energy_conservation = -1
+   max_abs_rel_run_E_err = 1d99
+   warn_when_large_rel_run_E_err = 1d0
+
+   num_trace_history_values = 2
+   trace_history_value_name(1) = 'rel_E_err'
+   trace_history_value_name(2) = 'log_rel_run_E_err'
+
+   ! limit max_model_number as part of test_suite
+   max_model_number = 1000
+
+   initial_mass = 1.5
+   initial_z = 0.02
+   ! when to stop
+
+   xa_central_lower_limit_species(1) = 'h1'
+   xa_central_lower_limit(1) = 0.01
+
+   max_age = 2d10
+
+   use_Ledoux_criterion = .true.
+   !alpha_semiconvection = 1d-1
+   !semiconvection_option = 'Langer_85'
+   mixing_length_alpha = 1.8d0
+   MLT_option = 'Henyey'
+
+   predictive_mix(1) = .true.
+   predictive_zone_type(1) = 'any'
+   predictive_zone_loc(1) = 'core'
+   predictive_bdy_loc(1) = 'any'
+   predictive_superad_thresh(1) = 0.005
+
+   predictive_mix(2) = .true.
+   predictive_zone_type(2) = 'any'
+   predictive_zone_loc(2) = 'surf'
+   predictive_bdy_loc(2) = 'any'
+   predictive_superad_thresh(2) = 0.005
+   num_cells_for_smooth_gradL_composition_term = 10
+   threshold_for_smooth_gradL_composition_term = 0.02
+   num_cells_for_smooth_brunt_B = 10
+   threshold_for_smooth_brunt_B = 0.1
+
+   !show_diffusion_info = .true. ! terminal output for diffusion
+   !show_diffusion_substep_info = .true. ! terminal output for diffusion
+
+   do_element_diffusion = .true. ! determines whether or not we do diffusion
+   diffusion_dt_limit = 3.15d7 ! no element diffusion if dt < this limit (in seconds)
+
+   diffusion_T_full_on = 1d3
+   diffusion_T_full_off = 1d3
+
+   D_mix_ignore_diffusion = 1d2 ! turn off diffusion in any region with D_mix greater than this
+
+   diffusion_calculates_ionization = .true.
+
+   diffusion_num_classes = 8 ! number of classes of species for diffusion calculations
+   diffusion_class_representative(1) = 'h1'
+   diffusion_class_representative(2) = 'he3'
+   diffusion_class_representative(3) = 'he4'
+   diffusion_class_representative(4) = 'c12'
+   diffusion_class_representative(5) = 'n14'
+   diffusion_class_representative(6) = 'o16'
+   diffusion_class_representative(7) = 'ne20'
+   diffusion_class_representative(8) = 'mg24'
+
+   ! in ascending order.  species goes into 1st class with A_max >= species A
+   diffusion_class_A_max(1) = 2
+   diffusion_class_A_max(2) = 3
+   diffusion_class_A_max(3) = 4
+   diffusion_class_A_max(4) = 12
+   diffusion_class_A_max(5) = 14
+   diffusion_class_A_max(6) = 16
+   diffusion_class_A_max(7) = 20
+   diffusion_class_A_max(8) = 10000
+
+   diffusion_use_isolve = .true.
+   diffusion_rtol_for_isolve = 1d-4
+   diffusion_atol_for_isolve = 1d-5
+   diffusion_maxsteps_for_isolve = 1000
+   diffusion_isolve_solver = 'ros2_solver'
+
 ! timestep and mesh:
-      
    ! RELAXED VALUE FOR TEST SUITE
-      max_years_for_timestep = 5d6 ! 1d6
-      mesh_delta_coeff = 0.5
+   max_years_for_timestep = 5d6 ! 1d6
+   mesh_delta_coeff = 0.5
 
 ! output controls
 
-      photo_interval = 50
-      profile_interval = 100
-      history_interval = 10
-      terminal_interval = 10
-      write_header_frequency = 10
-
+   photo_interval = 50
+   profile_interval = 100
+   history_interval = 10
+   terminal_interval = 10
+   write_header_frequency = 10
 
 / ! end of controls namelist
 
 
 &pgstar
-         
-Grid2_win_flag = .true.
+
+   pgstar_interval = 50
+
+   ! device
+   file_white_on_black_flag = .true.
+   file_device = 'vcps' ! postscript
+   file_extension = 'ps'
+
+   Abundance_win_flag = .false. ! switch to .true. to visualize in real-time
+   Abundance_file_flag = .true.
+   Abundance_file_dir = 'pgstar_out2'
+   Abundance_file_prefix = 'abund_h_depletion_'
+   Abundance_win_width = 9
+   Abundance_win_aspect_ratio = 1.0d0
+
+   Grid2_win_flag = .false. ! switch to .true. to visualize in real-time
+   Grid2_file_flag = .false.
+
+   Grid2_win_width = 15
+   file_digits = 7
+   Grid2_file_dir = 'pgstar_out2'
+   Grid2_file_prefix = 'grid'
+   Grid2_file_interval = 5
+   Grid2_file_width = 15
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/1.5M_with_diffusion/inlist_1.5M_with_diffusion_header b/star/test_suite/1.5M_with_diffusion/inlist_1.5M_with_diffusion_header
index 20deacfd9..387a5bdbb 100644
--- a/star/test_suite/1.5M_with_diffusion/inlist_1.5M_with_diffusion_header
+++ b/star/test_suite/1.5M_with_diffusion/inlist_1.5M_with_diffusion_header
@@ -1,40 +1,38 @@
-
 &star_job
 
-
-      read_extra_star_job_inlist(2) = .true.
-      extra_star_job_inlist_name(2) = 'inlist_1.5M_with_diffusion'
+   read_extra_star_job_inlist(2) = .true.
+   extra_star_job_inlist_name(2) = 'inlist_1.5M_with_diffusion'
 
 / ! end of star_job namelist
 
 
 &eos
 
-      read_extra_eos_inlist(1) = .true.
-      extra_eos_inlist_name(1) = 'inlist_1.5M_with_diffusion'
+   read_extra_eos_inlist(1) = .true.
+   extra_eos_inlist_name(1) = 'inlist_1.5M_with_diffusion'
 
 / ! end of eos namelist
 
 
 &kap
 
-      read_extra_kap_inlist(1) = .true.
-      extra_kap_inlist_name(1) = 'inlist_1.5M_with_diffusion'
+   read_extra_kap_inlist(1) = .true.
+   extra_kap_inlist_name(1) = 'inlist_1.5M_with_diffusion'
 
 / ! end of kap namelist
 
 
 &controls
 
-      read_extra_controls_inlist(1) = .true.
-      extra_controls_inlist_name(1)= 'inlist_1.5M_with_diffusion'
+   read_extra_controls_inlist(1) = .true.
+   extra_controls_inlist_name(1)= 'inlist_1.5M_with_diffusion'
 
 / ! end of controls namelist
 
 
 &pgstar
 
-      read_extra_pgstar_inlist(1) = .true.
-      extra_pgstar_inlist_name(1)= 'inlist_1.5M_with_diffusion'
+   read_extra_pgstar_inlist(1) = .true.
+   extra_pgstar_inlist_name(1)= 'inlist_1.5M_with_diffusion'
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/1.5M_with_diffusion/inlist_to_ZAMS b/star/test_suite/1.5M_with_diffusion/inlist_to_ZAMS
index 86bc70cc1..01cf10e5b 100644
--- a/star/test_suite/1.5M_with_diffusion/inlist_to_ZAMS
+++ b/star/test_suite/1.5M_with_diffusion/inlist_to_ZAMS
@@ -1,99 +1,109 @@
 &star_job
 
-      show_log_description_at_start = .false.
+   show_log_description_at_start = .false.
 
-      create_pre_main_sequence_model = .true.
+   create_pre_main_sequence_model = .true.
 
-      load_saved_model = .false.
+   load_saved_model = .false.
 
-      save_model_when_terminate = .true.
-      save_model_filename = '1.5_zams.mod'
+   save_model_when_terminate = .true.
+   save_model_filename = '1.5_zams.mod'
 
-      pause_before_terminate = .false.
+   pause_before_terminate = .false.
 
-      !history_columns_file = 'history_columns.list' 
-      !profile_columns_file = 'profile_columns.list' 
+   !history_columns_file = 'history_columns.list'
+   !profile_columns_file = 'profile_columns.list'
 
-      initial_zfracs = 3 ! GS98_zfracs = 3
-      
-/ !end of star_job namelist
+   initial_zfracs = 3 ! GS98_zfracs = 3
+
+   pgstar_flag = .true.
+   save_pgstar_files_when_terminate = .true.
+   / !end of star_job namelist
 
 
 &eos
+
 / ! end of eos namelist
 
 
 &kap
-      use_Type2_opacities = .true.
-      Zbase = 2d-2
+   use_Type2_opacities = .true.
+   Zbase = 2d-2
 / ! end of kap namelist
 
 &controls
 
-      initial_mass = 1.5
-      initial_z = 2d-2
+   initial_mass = 1.5
+   initial_z = 2d-2
 
 ! When to stop
 
-    Lnuc_div_L_zams_limit = 0.99d0
-    stop_near_zams = .true.
-      
-! mixing controls
-
-      mixing_length_alpha = 1.8d0
-      MLT_option = 'Henyey'
-
-      
-      use_Ledoux_criterion = .false.
-      !alpha_semiconvection = 0.01 
-      !semiconvection_option = 'Langer_85'
+   Lnuc_div_L_zams_limit = 0.99d0
+   stop_near_zams = .true.
+   ! mixing controls
 
+   mixing_length_alpha = 1.8d0
+   MLT_option = 'Henyey'
 
-      
-! timestep controls
+   use_Ledoux_criterion = .false.
+   !alpha_semiconvection = 0.01
+   !semiconvection_option = 'Langer_85'
+   ! timestep controls
 
-      !max_years_for_timestep = 1d4
-      !max_timestep_factor = 1.2
-      
-! output controls
+   !max_years_for_timestep = 1d4
+   !max_timestep_factor = 1.0d0
+   ! output controls
 
-      log_directory = 'LOGS-ZAMS'
-      photo_interval = 100
-      photo_digits = 5
-      profile_interval = 100
-      history_interval = 10
-      terminal_interval = 50
-      write_header_frequency = 10
-      
-! grid
+   log_directory = 'LOGS-ZAMS'
+   photo_interval = 100
+   photo_digits = 5
+   profile_interval = 100
+   history_interval = 10
+   terminal_interval = 50
+   write_header_frequency = 10
+   ! grid
 
-      mesh_delta_coeff = 0.5
+   mesh_delta_coeff = 0.5
 
-      use_gold2_tolerances = .true.
+   use_gold2_tolerances = .true.
 
 / ! end of controls namelist
 
+
 &pgstar
-      
-      Grid2_win_flag = .true.
-      file_digits = 7
-      Grid2_file_dir = 'png'
-      Grid2_file_prefix = 'grid'
-
-      Abundance_xmax = 0.5
-
-      Kipp_win_flag = .true.
-      
-      Kipp_xaxis_name = 'star_age'
-      Kipp_xaxis_in_Myr = .true.
-      Kipp_win_width = 9
-      Kipp_win_aspect_ratio = 0.75 ! aspect_ratio = height/width
-      Kipp_show_burn = .false.
-      Kipp_mass_max = 0.16 ! (Msun units) negative means use default
-      Kipp_mass_max = -1 ! (Msun units) negative means use default
-      Kipp_xmin = -1 ! step number.  negative means use default.
-      Kipp_max_width = 0 ! only used if > 0.  causes xmin to move with xmax.
-      Kipp_mix_interval = 1
 
-/ ! end of pgstar namelist
+   pgstar_interval = 50
+
+   ! device
+   file_white_on_black_flag = .true.
+   file_device = 'vcps' ! postscript
+   file_extension = 'ps'
 
+   Grid2_win_flag = .false. ! switch to .true. to visualize in real-time
+   file_digits = 7
+   Grid2_file_dir = 'pgstar_out1'
+   Grid2_file_prefix = 'grid'
+
+   Abundance_win_flag = .false. ! switch to .true. to visualize in real-time
+   Abundance_file_flag = .true.
+
+   Abundance_file_dir = 'pgstar_out1'
+   Abundance_file_prefix = 'abund_zams_'
+   Abundance_win_width = 9
+   Abundance_win_aspect_ratio = 1.0d0
+   Abundance_xmax = 0.5
+
+   Kipp_win_flag = .false. ! switch to .true. to visualize in real-time
+
+   Kipp_xaxis_name = 'star_age'
+   Kipp_xaxis_in_Myr = .true.
+   Kipp_win_width = 9
+   Kipp_win_aspect_ratio = 0.75 ! aspect_ratio = height/width
+   Kipp_show_burn = .false.
+   Kipp_mass_max = 0.16 ! (Msun units) negative means use default
+   Kipp_mass_max = -1 ! (Msun units) negative means use default
+   Kipp_xmin = -1 ! step number.  negative means use default.
+   Kipp_max_width = 0 ! only used if > 0.  causes xmin to move with xmax.
+   Kipp_mix_interval = 1
+
+/ ! end of pgstar namelist
diff --git a/star/test_suite/1.5M_with_diffusion/inlist_to_ZAMS_header b/star/test_suite/1.5M_with_diffusion/inlist_to_ZAMS_header
index b5f970c7c..cda9545dd 100644
--- a/star/test_suite/1.5M_with_diffusion/inlist_to_ZAMS_header
+++ b/star/test_suite/1.5M_with_diffusion/inlist_to_ZAMS_header
@@ -1,40 +1,38 @@
-
 &star_job
 
-
-      read_extra_star_job_inlist(2) = .true.
-      extra_star_job_inlist_name(2) = 'inlist_to_ZAMS'
+   read_extra_star_job_inlist(2) = .true.
+   extra_star_job_inlist_name(2) = 'inlist_to_ZAMS'
 
 / ! end of star_job namelist
 
 
 &eos
 
-      read_extra_eos_inlist(1) = .true.
-      extra_eos_inlist_name(1) = 'inlist_to_ZAMS'
+   read_extra_eos_inlist(1) = .true.
+   extra_eos_inlist_name(1) = 'inlist_to_ZAMS'
 
 / ! end of eos namelist
 
 
 &kap
 
-      read_extra_kap_inlist(1) = .true.
-      extra_kap_inlist_name(1) = 'inlist_to_ZAMS'
+   read_extra_kap_inlist(1) = .true.
+   extra_kap_inlist_name(1) = 'inlist_to_ZAMS'
 
 / ! end of kap namelist
 
 
 &controls
 
-      read_extra_controls_inlist(1) = .true.
-      extra_controls_inlist_name(1)= 'inlist_to_ZAMS'
+   read_extra_controls_inlist(1) = .true.
+   extra_controls_inlist_name(1)= 'inlist_to_ZAMS'
 
 / ! end of controls namelist
 
 
 &pgstar
 
-      read_extra_pgstar_inlist(1) = .true.
-      extra_pgstar_inlist_name(1)= 'inlist_to_ZAMS'
+   read_extra_pgstar_inlist(1) = .true.
+   extra_pgstar_inlist_name(1)= 'inlist_to_ZAMS'
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/12M_pre_ms_to_core_collapse/README.rst b/star/test_suite/12M_pre_ms_to_core_collapse/README.rst
index 7c0fde8bc..de5ecf7f9 100644
--- a/star/test_suite/12M_pre_ms_to_core_collapse/README.rst
+++ b/star/test_suite/12M_pre_ms_to_core_collapse/README.rst
@@ -4,7 +4,7 @@
 12M_pre_ms_to_core_collapse
 ***************************
 
-This test suite evolves a solar metalicity 12 |MSun| model from the pre-ms to core collapse.
+This test suite evolves a solar metallicity 12 |MSun| model from the pre-ms to core collapse.
 
 Physical checks
 ===============
diff --git a/star/test_suite/12M_pre_ms_to_core_collapse/gyre.in b/star/test_suite/12M_pre_ms_to_core_collapse/gyre.in
deleted file mode 100644
index e27703b48..000000000
--- a/star/test_suite/12M_pre_ms_to_core_collapse/gyre.in
+++ /dev/null
@@ -1,32 +0,0 @@
-&model
-/
-
-&mode
-   l = 0
-/
-
-&osc
-   nonadiabatic = .TRUE.
-/
-
-&rot
-/
-
-&num
-   diff_scheme = 'MAGNUS_GL2' 
-/
-
-&scan
-   grid_type = 'LINEAR'
-   freq_min = 0.5
-   freq_max = 5.0
-   freq_min_units = 'ACOUSTIC_DELTA'
-   freq_max_units = 'ACOUSTIC_DELTA'
-   n_freq = 50
-/
-
-&grid
-   w_osc = 10
-   w_exp = 2
-   w_ctr = 10
-/
diff --git a/star/test_suite/12M_pre_ms_to_core_collapse/inlist_common b/star/test_suite/12M_pre_ms_to_core_collapse/inlist_common
index 8164ab092..a6439c41a 100644
--- a/star/test_suite/12M_pre_ms_to_core_collapse/inlist_common
+++ b/star/test_suite/12M_pre_ms_to_core_collapse/inlist_common
@@ -190,7 +190,7 @@
       limit_for_rel_error_in_energy_conservation = 1d-7
       hard_limit_for_rel_error_in_energy_conservation = 1d-6      
       
-      never_skip_hard_limits = .true
+      never_skip_hard_limits = .true.
       min_xa_hard_limit = -1d-5
       min_xa_hard_limit_for_highT = -3d-5
 
diff --git a/star/test_suite/12M_pre_ms_to_core_collapse/src/run_star_extras.f90 b/star/test_suite/12M_pre_ms_to_core_collapse/src/run_star_extras.f90
index 93e650767..eca52db75 100644
--- a/star/test_suite/12M_pre_ms_to_core_collapse/src/run_star_extras.f90
+++ b/star/test_suite/12M_pre_ms_to_core_collapse/src/run_star_extras.f90
@@ -27,7 +27,6 @@ module run_star_extras
       use const_def
       use math_lib
       use auto_diff
-      use gyre_lib
       
       implicit none
       
@@ -40,18 +39,6 @@ module run_star_extras
          !alpha_other = s% x_ctrl(22)
          !H_limit = s% x_ctrl(23)
 
-!gyre
-      !x_logical_ctrl(37) = .false. ! if true, then run GYRE
-      !x_integer_ctrl(1) = 2 ! output GYRE info at this step interval
-      !x_logical_ctrl(1) = .false. ! save GYRE info whenever save profile
-      !x_integer_ctrl(2) = 2 ! max number of modes to output per call
-      !x_logical_ctrl(2) = .false. ! output eigenfunction files
-      !x_integer_ctrl(3) = 0 ! mode l (e.g. 0 for p modes, 1 for g modes)
-      !x_integer_ctrl(4) = 1 ! order
-      !x_ctrl(1) = 0.158d-05 ! freq ~ this (Hz)
-      !x_ctrl(2) = 0.33d+03 ! growth < this (days)
-
-      
       contains
 
       include "test_suite_extras.inc"
@@ -121,22 +108,6 @@ subroutine extras_startup(id, restart, ierr)
          
          if (.not. s% x_logical_ctrl(37)) return
          
-         ! Initialize GYRE
-
-         call gyre_init('gyre.in')
-
-         ! Set constants
-
-         call gyre_set_constant('G_GRAVITY', standard_cgrav)
-         call gyre_set_constant('C_LIGHT', clight)
-         call gyre_set_constant('A_RADIATION', crad)
-
-         call gyre_set_constant('M_SUN', Msun)
-         call gyre_set_constant('R_SUN', Rsun)
-         call gyre_set_constant('L_SUN', Lsun)
-
-         call gyre_set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
-         
       end subroutine extras_startup
       
       
@@ -170,7 +141,6 @@ subroutine extras_after_evolve(id, ierr)
          end select
          call test_suite_after_evolve(s, ierr)
          if (.not. s% x_logical_ctrl(37)) return
-         call gyre_final()
       end subroutine extras_after_evolve
       
 
@@ -239,8 +209,6 @@ subroutine data_for_extra_profile_columns(id, n, nz, names, vals, ierr)
          end do
       end subroutine data_for_extra_profile_columns
   
-      include 'gyre_in_mesa_extras_finish_step.inc'
-
       ! returns either keep_going or terminate.
       integer function extras_finish_step(id)
          integer, intent(in) :: id
@@ -251,7 +219,6 @@ integer function extras_finish_step(id)
          if (ierr /= 0) return
          extras_finish_step = keep_going
          if (.not. s% x_logical_ctrl(37)) return
-         extras_finish_step = gyre_in_mesa_extras_finish_step(id)
          if (extras_finish_step == terminate) &
              s% termination_code = t_extras_finish_step
       end function extras_finish_step
diff --git a/star/test_suite/15M_dynamo/README.rst b/star/test_suite/15M_dynamo/README.rst
index f024af974..a8c442da7 100644
--- a/star/test_suite/15M_dynamo/README.rst
+++ b/star/test_suite/15M_dynamo/README.rst
@@ -51,7 +51,7 @@ The radial and azimuthal components of the magnetic field
 are only being generated in the radiative region between convection zone (bottom panel).
 
 .. image:: ../../../star/test_suite/15M_dynamo/docs/profile_Panels4_00000521.svg
-   :scale: 100%
+   :width: 100%
 
 
 pgstar commands used for the plots above:
diff --git a/star/test_suite/16M_conv_premix/README.rst b/star/test_suite/16M_conv_premix/README.rst
index 4246bbf4c..e82244074 100644
--- a/star/test_suite/16M_conv_premix/README.rst
+++ b/star/test_suite/16M_conv_premix/README.rst
@@ -19,7 +19,7 @@ A Kippenhahn diagram shows the evolution of a retreating convective core on the
 This can be compared to Figure 41 in the MESA V instrument paper, and the predictive mixing Kippenhahn diagram in :ref:`16M_predictive_mix`.
 
 .. image:: ../../../star/test_suite/16M_conv_premix/docs/kipp_00000388.svg
-   :scale: 100%
+   :width: 100%
 
 
 pgstar commands used for the plots above:
diff --git a/star/test_suite/16M_predictive_mix/README.rst b/star/test_suite/16M_predictive_mix/README.rst
index 8ad8df9d2..d67cbdd58 100644
--- a/star/test_suite/16M_predictive_mix/README.rst
+++ b/star/test_suite/16M_predictive_mix/README.rst
@@ -19,7 +19,7 @@ A Kippenhahn diagram shows the evolution of a retreating convective core on the
 This can be compared to Figure 3 in the MESA IV instrument paper, and the convective pre-mixing Kippenhahn diagram in :ref:`16M_conv_premix`.
 
 .. image:: ../../../star/test_suite/16M_predictive_mix/docs/kipp_00000385.svg
-   :scale: 100%
+   :width: 100%
 
 
 pgstar commands used for the plots above:
diff --git a/star/test_suite/1M_pre_ms_to_wd/README.rst b/star/test_suite/1M_pre_ms_to_wd/README.rst
index 6efd2bea4..ab0b22ef8 100644
--- a/star/test_suite/1M_pre_ms_to_wd/README.rst
+++ b/star/test_suite/1M_pre_ms_to_wd/README.rst
@@ -13,28 +13,28 @@ This test case has six parts. Click to see a larger view of a plot.
 * Part 2 (``inlist_to_end_core_h_burn``) continues the evolution until core hydrogen depletion (mass fraction h1_center < 1e-4).
 
 .. image:: ../../../star/test_suite/1M_pre_ms_to_wd/docs/grid6_00000295.svg
-   :scale: 100%
+   :width: 100%
 
 * Part 3 (``inlist_to_start_he_core_flash_header``) continues the evolution until the onset of core helium ignition (power from he burning > 10).
 
 .. image:: ../../../star/test_suite/1M_pre_ms_to_wd/docs/grid6_00010474.svg
-   :scale: 100%
+   :width: 100%
 
 * Part 4 (``inlist_to_end_core_he_burn``) continues the evolution until core helium depletion (mass fraction he4_center < 1e-4).
 
 .. image:: ../../../star/test_suite/1M_pre_ms_to_wd/docs/grid6_00012472.svg
-   :scale: 100%
+   :width: 100%
 
 * Part 5 (``inlist_to_end_agb``) continues the evolution through the thermal pulses until the end of the AGB phase of evolution (hydrogen-rich envelope mass < 1e-2 Msun).
 
 .. image:: ../../../star/test_suite/1M_pre_ms_to_wd/docs/grid6_00013000.svg
-   :scale: 100%
+   :width: 100%
 
 
 * Part 6 (``inlist_to_wd``) continues the evolution until the luminosity of the cooling white dwarf reaches L < 0.1 Lsun.
 
 .. image:: ../../../star/test_suite/1M_pre_ms_to_wd/docs/grid6_00013356.svg
-   :scale: 100%
+   :width: 100%
 
 pgstar commands used for the plots above:
 
diff --git a/star/test_suite/1M_thermohaline/README.rst b/star/test_suite/1M_thermohaline/README.rst
index 02caeaf06..77cd7fea2 100644
--- a/star/test_suite/1M_thermohaline/README.rst
+++ b/star/test_suite/1M_thermohaline/README.rst
@@ -41,7 +41,7 @@ thermohaline region. Within the thermohaline region, nuclear burning
 is starting to transform the hydrogen-rich envelope to the helium-rich core.
 
 .. image:: ../../../star/test_suite/1M_thermohaline/docs/abund_00004245.svg
-   :scale: 100%
+   :width: 100%
 
 The brunt B profile in the vicinity of the thermohaline region is
 shown the following plot.  The mixing type is again indicated on the
@@ -51,7 +51,7 @@ thermohaline mixing. Note the thermohaline region begins and ends
 where brunt B becomes negative.
 
 .. image:: ../../../star/test_suite/1M_thermohaline/docs/profile_panels1_00004245.svg
-   :scale: 100%
+   :width: 100%
 
 
 pgstar commands used for the plots above:
diff --git a/star/test_suite/20M_pre_ms_to_core_collapse/gyre.in b/star/test_suite/20M_pre_ms_to_core_collapse/gyre.in
deleted file mode 100644
index e27703b48..000000000
--- a/star/test_suite/20M_pre_ms_to_core_collapse/gyre.in
+++ /dev/null
@@ -1,32 +0,0 @@
-&model
-/
-
-&mode
-   l = 0
-/
-
-&osc
-   nonadiabatic = .TRUE.
-/
-
-&rot
-/
-
-&num
-   diff_scheme = 'MAGNUS_GL2' 
-/
-
-&scan
-   grid_type = 'LINEAR'
-   freq_min = 0.5
-   freq_max = 5.0
-   freq_min_units = 'ACOUSTIC_DELTA'
-   freq_max_units = 'ACOUSTIC_DELTA'
-   n_freq = 50
-/
-
-&grid
-   w_osc = 10
-   w_exp = 2
-   w_ctr = 10
-/
diff --git a/star/test_suite/20M_pre_ms_to_core_collapse/inlist_common b/star/test_suite/20M_pre_ms_to_core_collapse/inlist_common
index 8164ab092..a6439c41a 100644
--- a/star/test_suite/20M_pre_ms_to_core_collapse/inlist_common
+++ b/star/test_suite/20M_pre_ms_to_core_collapse/inlist_common
@@ -190,7 +190,7 @@
       limit_for_rel_error_in_energy_conservation = 1d-7
       hard_limit_for_rel_error_in_energy_conservation = 1d-6      
       
-      never_skip_hard_limits = .true
+      never_skip_hard_limits = .true.
       min_xa_hard_limit = -1d-5
       min_xa_hard_limit_for_highT = -3d-5
 
diff --git a/star/test_suite/20M_pre_ms_to_core_collapse/src/run_star_extras.f90 b/star/test_suite/20M_pre_ms_to_core_collapse/src/run_star_extras.f90
index 70b5accc7..2cf66b188 100644
--- a/star/test_suite/20M_pre_ms_to_core_collapse/src/run_star_extras.f90
+++ b/star/test_suite/20M_pre_ms_to_core_collapse/src/run_star_extras.f90
@@ -27,7 +27,6 @@ module run_star_extras
       use const_def
       use math_lib
       use auto_diff
-      use gyre_lib
       
       implicit none
       
@@ -40,18 +39,6 @@ module run_star_extras
          !alpha_other = s% x_ctrl(22)
          !H_limit = s% x_ctrl(23)
 
-!gyre
-      !x_logical_ctrl(37) = .false. ! if true, then run GYRE
-      !x_integer_ctrl(1) = 2 ! output GYRE info at this step interval
-      !x_logical_ctrl(1) = .false. ! save GYRE info whenever save profile
-      !x_integer_ctrl(2) = 2 ! max number of modes to output per call
-      !x_logical_ctrl(2) = .false. ! output eigenfunction files
-      !x_integer_ctrl(3) = 0 ! mode l (e.g. 0 for p modes, 1 for g modes)
-      !x_integer_ctrl(4) = 1 ! order
-      !x_ctrl(1) = 0.158d-05 ! freq ~ this (Hz)
-      !x_ctrl(2) = 0.33d+03 ! growth < this (days)
-
-      
       contains
 
       include "test_suite_extras.inc"
@@ -121,22 +108,6 @@ subroutine extras_startup(id, restart, ierr)
          
          if (.not. s% x_logical_ctrl(37)) return
          
-         ! Initialize GYRE
-
-         call gyre_init('gyre.in')
-
-         ! Set constants
-
-         call gyre_set_constant('G_GRAVITY', standard_cgrav)
-         call gyre_set_constant('C_LIGHT', clight)
-         call gyre_set_constant('A_RADIATION', crad)
-
-         call gyre_set_constant('M_SUN', Msun)
-         call gyre_set_constant('R_SUN', Rsun)
-         call gyre_set_constant('L_SUN', Lsun)
-
-         call gyre_set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
-         
       end subroutine extras_startup
       
       
@@ -170,7 +141,6 @@ subroutine extras_after_evolve(id, ierr)
          end select
          call test_suite_after_evolve(s, ierr)
          if (.not. s% x_logical_ctrl(37)) return
-         call gyre_final()
       end subroutine extras_after_evolve
       
 
@@ -239,8 +209,6 @@ subroutine data_for_extra_profile_columns(id, n, nz, names, vals, ierr)
          end do
       end subroutine data_for_extra_profile_columns
   
-      include 'gyre_in_mesa_extras_finish_step.inc'
-
       ! returns either keep_going or terminate.
       integer function extras_finish_step(id)
          integer, intent(in) :: id
@@ -251,7 +219,6 @@ integer function extras_finish_step(id)
          if (ierr /= 0) return
          extras_finish_step = keep_going
          if (.not. s% x_logical_ctrl(37)) return
-         extras_finish_step = gyre_in_mesa_extras_finish_step(id)
          if (extras_finish_step == terminate) &
              s% termination_code = t_extras_finish_step
       end function extras_finish_step
diff --git a/star/test_suite/20M_z2m2_high_rotation/README.rst b/star/test_suite/20M_z2m2_high_rotation/README.rst
index 502ec6e5e..93b9aefde 100644
--- a/star/test_suite/20M_z2m2_high_rotation/README.rst
+++ b/star/test_suite/20M_z2m2_high_rotation/README.rst
@@ -11,7 +11,7 @@ This test case has one part. Click to see a larger view of a plot.
 * Part 1 (``inlist_to_end_core_he_burn``) loads a 20 Msun zero-age main-sequence model, relaxes a uniform new_omega_div_omega_crit = 0.75 rotation profile, and evolves the model to the end of core helium burning (mass fraction he4 < 0.0001). At the end of the run:
 
 .. image:: ../../../star/test_suite/20M_z2m2_high_rotation/docs/grid1_000890.svg
-   :scale: 100%
+   :width: 100%
 
 pgstar commands used for the plots above:
 
diff --git a/star/test_suite/5M_cepheid_blue_loop/README.rst b/star/test_suite/5M_cepheid_blue_loop/README.rst
index 3cbd415c9..c6e2e9643 100644
--- a/star/test_suite/5M_cepheid_blue_loop/README.rst
+++ b/star/test_suite/5M_cepheid_blue_loop/README.rst
@@ -14,7 +14,7 @@ This test case has two parts. Click to see a larger view of a plot.
 * Part 2 (``inlist_cepheid_blue_loop``) continues the evolution as core helium burning proceeds. The model executes a blue loop, with the red edge and blue edge of the classical Cepheid instability strip boundaries shown in the HR diagram:
 
 .. image:: ../../../star/test_suite/5M_cepheid_blue_loop/docs/hr002086.svg
-   :scale: 100%
+   :width: 100%
 
 pgstar commands used:
 
diff --git a/star/test_suite/7M_prems_to_AGB/README.rst b/star/test_suite/7M_prems_to_AGB/README.rst
index bf6b0b377..ebc97e00f 100644
--- a/star/test_suite/7M_prems_to_AGB/README.rst
+++ b/star/test_suite/7M_prems_to_AGB/README.rst
@@ -4,7 +4,7 @@
 7M_prems_to_AGB
 ***************
 
-This test case checks that the evolution of a 7 Msun, metal-poor Z = 0.001, model reaches the AGB.
+This test case checks that the evolution of a 7 |Msun|, metal-poor Z = 0.001, model reaches the AGB.
 
 This test case has two parts. Click to see a larger view of a plot.
 
@@ -12,45 +12,17 @@ This test case has two parts. Click to see a larger view of a plot.
 
 * Part 2 (``inlist_7M_prems_to_AGB``) continues the evolution as core hydrogen and helium burning proceed, terminating when log10(L/Lsun)=4.3 is reached. The model executes a blue loop as helium depletes, with the red edge and blue edge of the classical Cepheid instability strip boundaries shown in the HR diagram:
 
-.. image:: ../../../star/test_suite/7M_prems_to_AGB/docs/hr000794.svg
-   :scale: 100%
+.. image:: ../../../star/test_suite/7M_prems_to_AGB/docs/hr000785.svg
+   :width: 100%
 
 pgstar commands used:
 
-.. code-block:: console
-
- &pgstar
-
-   file_white_on_black_flag = .true. ! white_on_black flags -- true means white foreground color on black background
-   file_device = 'png'            ! png
-   file_extension = 'png'
-
-   !file_device = 'vcps'          ! postscript
-   !file_extension = 'ps'
-
-    pgstar_interval = 10
-
-   HR_win_flag = .true.
-   HR_win_width = 12
-   HR_win_aspect_ratio = 1.2 ! aspect_ratio = height/width
-
-   HR_logT_min = 3.5 
-   HR_logT_max = 4.5 
-   HR_logL_min = 2.7 
-   HR_logL_max = 4.4 
-
-   ! file output
-   HR_file_flag = .true.
-   HR_file_dir = 'pgstar_out'
-   HR_file_prefix = 'hr'
-   HR_file_interval = 100 ! output when mod(model_number,HR_file_interval)==0
-   HR_file_width = 15 ! negative means use same value as for window
-   HR_file_aspect_ratio = -1 ! negative means use same value as for window
-
- / ! end of pgstar namelist
-
-
+.. literalinclude:: ../../../star/test_suite/7M_prems_to_AGB/inlist_pgstar
+  :language: console
+  :start-at: &pgstar
+  :end-at: ! end of pgstar namelist
 
 
 Last-Updated: 29May2021 (MESA e37f76f) by fxt
 
+Last-Run: 06Aug2024 (MESA f50b3763) by pmocz on C916PXT6XW in 410 seconds using 8 threads.
diff --git a/star/test_suite/7M_prems_to_AGB/docs/hr000785.svg b/star/test_suite/7M_prems_to_AGB/docs/hr000785.svg
new file mode 100644
index 000000000..3e48bc111
--- /dev/null
+++ b/star/test_suite/7M_prems_to_AGB/docs/hr000785.svg
@@ -0,0 +1 @@
+<svg xmlns="http://www.w3.org/2000/svg" width="1440" height="1728"><path fill-rule="evenodd" d="M.016 1727.984H1439.98V.027H.016z"/><g fill="none" stroke-linecap="round" stroke-linejoin="round" stroke-miterlimit="10"><g stroke="#fff"><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M216.008 1468.793h1007.975M1223.983 1468.793V259.223M1223.983 259.237H216.008M216.008 259.237v1209.57M216.008 1468.793v-9.984M316.805 1468.793v-19.967M417.603 1468.793v-9.984M518.4 1468.793v-19.967M619.198 1468.793v-9.984M719.995 1468.793v-19.967M820.793 1468.793v-9.984M921.59 1468.793v-19.967M1022.388 1468.793v-9.984M1123.185 1468.793v-19.967M1223.983 1468.793v-9.984M216.008 269.236v-9.986M316.805 279.236v-19.96M417.603 269.236v-9.986M518.4 279.236v-19.96M619.198 269.236v-9.986M719.995 279.236v-19.96M820.793 269.236v-9.986M921.59 279.236v-19.96M1022.388 269.236v-9.986M1123.185 279.236v-19.96M1223.983 269.236v-9.986M300.872 1492.7l-13.343 18.623M287.526 1511.312h19.968M300.872 1492.7v27.935M316.805 1517.939l-1.344 1.344M315.459 1519.285l1.344 1.344M316.805 1520.632l1.344-1.344M318.152 1519.285l-1.344-1.344M340.711 1492.7l-13.247 18.623M327.458 1511.312h19.872M340.711 1492.7v27.935M502.467 1492.7l-13.343 18.623M489.121 1511.312h19.968M502.467 1492.7v27.935M518.4 1517.939l-1.344 1.344M517.054 1519.285l1.344 1.344M518.4 1520.632l1.344-1.344M519.747 1519.285l-1.344-1.344M530.4 1499.312v-1.248M530.4 1498.072l1.248-2.688M531.653 1495.38l1.344-1.345M533 1494.033l2.688-1.344M535.68 1492.7h5.28M540.96 1492.7l2.688 1.343M543.653 1494.033l1.344 1.343M545 1495.38l1.344 2.687M546.333 1498.072v2.592M546.333 1500.659l-1.344 2.688M545 1503.352l-2.688 4.032M542.306 1507.379l-13.247 13.248M529.053 1520.632h18.624M724.035 1492.7l-13.343 18.623M710.689 1511.312h19.967M724.035 1492.7v27.935M895.004 1492.7h14.592M909.59 1492.7l-7.967 10.655M901.63 1503.352h4.033M905.657 1503.352l2.688 1.344M908.35 1504.699l1.249 1.344M909.59 1506.032l1.345 3.936M910.937 1509.979v2.688M910.937 1512.659l-1.344 3.936M909.59 1516.592 907 1519.28M907.004 1519.285l-4.032 1.344M902.964 1520.632h-3.936M899.03 1520.632l-4.031-1.344M895.004 1519.285l-1.344-1.344M893.658 1517.939l-1.344-2.592M921.59 1517.939l-1.344 1.344M920.244 1519.285l1.344 1.344M921.59 1520.632l1.344-1.344M922.937 1519.285l-1.344-1.344M938.87 1492.7l-4.032 1.343M934.843 1494.033l-1.248 2.687M933.59 1496.726v2.592M933.59 1499.312l1.248 2.688M934.843 1502.006l2.688 1.344M937.523 1503.352l5.376 1.344M942.91 1504.699l3.936 1.344M946.843 1506.032l2.688 2.592M949.523 1508.632l1.344 2.688M950.87 1511.312v4.032M950.87 1515.352l-1.344 2.592M949.523 1517.939l-1.344 1.344M948.19 1519.285l-4.032 1.344M944.15 1520.632h-5.28M938.87 1520.632l-4.032-1.344M934.843 1519.285l-1.248-1.344M933.59 1517.939l-1.344-2.592M932.243 1515.352v-4.032M932.243 1511.312l1.344-2.688M933.59 1508.632l2.592-2.592M936.19 1506.032l4.032-1.344M940.216 1504.699l5.28-1.344M945.496 1503.352l2.688-1.344M948.19 1502.006l1.344-2.688M949.523 1499.312v-2.592M949.523 1496.726l-1.344-2.688M948.19 1494.033l-4.032-1.344M944.15 1492.7h-5.28M1096.6 1492.7h14.59M1111.186 1492.7l-7.968 10.655M1103.226 1503.352h4.032M1107.252 1503.352l2.688 1.344M1109.946 1504.699l1.248 1.344M1111.186 1506.032l1.344 3.936M1112.532 1509.979v2.688M1112.532 1512.659l-1.344 3.936M1111.186 1516.592l-2.592 2.688M1108.599 1519.285l-4.032 1.344M1104.56 1520.632h-3.937M1100.626 1520.632l-4.032-1.344M1096.6 1519.285l-1.345-1.344M1095.253 1517.939l-1.344-2.592M1123.185 1517.939l-1.344 1.344M1121.839 1519.285l1.344 1.344M1123.185 1520.632l1.344-1.344M1124.532 1519.285l-1.344-1.344M1151.118 1496.726l-1.344-2.688M1149.785 1494.033l-4.032-1.344M1145.745 1492.7h-2.592M1143.158 1492.7l-4.032 1.343M1139.118 1494.033l-2.688 4.031M1136.438 1498.072l-1.248 6.624M1135.185 1504.699v6.624M1135.185 1511.312l1.248 5.28M1136.438 1516.592l2.688 2.688M1139.118 1519.285l4.032 1.344M1143.158 1520.632h1.344M1144.505 1520.632l3.936-1.344M1148.438 1519.285l2.688-2.688M1151.118 1516.592l1.344-3.936M1152.465 1512.659v-1.344M1152.465 1511.312l-1.344-3.936M1151.118 1507.379l-2.688-2.688M1148.438 1504.699l-3.936-1.344M1144.505 1503.352h-1.344M1143.158 1503.352l-4.032 1.344M1139.118 1504.699l-2.688 2.688M1136.438 1507.379l-1.248 3.936M216.008 1468.793h9.984M216.008 1397.662h9.984M216.008 1326.517h9.984M216.008 1255.292h19.967M216.008 1184.16h9.984M216.008 1113.029h9.984M216.008 1041.884h9.984M216.008 970.752h9.984M216.008 899.62h19.967M216.008 828.396h9.984M216.008 757.25h9.984M216.008 686.12h9.984M216.008 614.988h9.984M216.008 543.856h19.967M216.008 472.725h9.984M216.008 401.486h9.984M216.008 330.302h9.984M216.008 259.237h9.984M1213.996 1468.793h9.984M1213.996 1397.662h9.984M1213.996 1326.517h9.984M1204.023 1255.292h19.968M1213.996 1184.16h9.984M1213.996 1113.029h9.984M1213.996 1041.884h9.984M1213.996 970.752h9.984M1204.023 899.62h19.968M1213.996 828.396h9.984M1213.996 757.25h9.984M1213.996 686.12h9.984M1213.996 614.988h9.984M1204.023 543.856h19.968M1213.996 472.725h9.984M1213.996 401.486h9.984M1213.996 330.302h9.984M1213.996 259.237h9.984M165.81 1240.412h14.687M180.489 1240.412l-7.968 10.56M172.529 1250.972h3.936M176.462 1250.972l2.688 1.344M179.142 1252.319l1.344 1.344M180.489 1253.665l1.248 4.032M181.742 1257.692v2.592M181.742 1260.278l-1.248 4.032M180.489 1264.318l-2.688 2.688M177.809 1266.998l-4.032 1.248M173.769 1268.251h-3.936M169.836 1268.251l-4.032-1.247M165.81 1266.998l-1.345-1.344M164.463 1265.665l-1.248-2.688M125.965 884.648h14.591M140.556 884.648l-7.967 10.655M132.589 895.3h4.031M136.623 895.3l2.592 1.249M139.21 896.554l1.344 1.344M140.556 897.887l1.344 4.032M141.903 901.927v2.688M141.903 904.607l-1.344 3.936M140.556 908.554l-2.591 2.688M137.97 911.234l-4.032 1.344M133.93 912.58h-4.032M129.9 912.58l-3.935-1.344M125.965 911.234l-1.344-1.344M124.62 909.887l-1.343-2.688M152.556 909.887l-1.344 1.344M151.21 911.234l1.344 1.344M152.556 912.58l1.344-1.344M153.903 911.234l-1.344-1.344M179.142 884.648H165.8M165.81 884.648l-1.345 11.903M164.463 896.554l1.344-1.248M165.81 895.3l4.031-1.343M169.836 893.954h3.936M173.769 893.954l4.032 1.344M177.809 895.3l2.688 2.593M180.489 897.887l1.248 4.032M181.742 901.927v2.688M181.742 904.607l-1.248 3.936M180.489 908.554l-2.688 2.688M177.809 911.234l-4.032 1.344M173.769 912.58h-3.936M169.836 912.58l-4.032-1.344M165.81 911.234l-1.345-1.344M164.463 909.887l-1.248-2.688M176.462 528.883l-13.247 18.624M163.21 547.496h19.87M176.462 528.883v27.936"/></g><g stroke-width="14.4"><path stroke-width="1.919952" d="M626.971 1552.698v34.847M646.85 1564.31l-3.263 1.633M643.584 1565.937l-3.36 3.36M640.224 1569.297l-1.632 4.992M638.597 1574.297v3.36M638.597 1577.657l1.632 4.992M640.224 1582.644l3.36 3.264M643.584 1585.91l3.264 1.632M646.85 1587.537h4.992M651.837 1587.537l3.36-1.632M655.197 1585.91l3.36-3.264M658.557 1582.644l1.632-4.992M660.197 1577.657v-3.36M660.197 1574.297l-1.632-4.992M658.557 1569.297l-3.36-3.36M655.197 1565.937l-3.36-1.632M651.837 1564.31h-4.992M690.05 1564.31v26.592M690.05 1590.897l-1.633 4.992M688.41 1595.891l-1.633 1.632M686.783 1597.523l-3.36 1.728M683.423 1599.251h-4.992M678.436 1599.251l-3.264-1.728M690.05 1569.297l-3.265-3.36M686.783 1565.937l-3.36-1.632M683.423 1564.31h-4.992M678.436 1564.31l-3.264 1.633M675.17 1565.937l-3.36 3.36M671.81 1569.297l-1.632 4.992M670.17 1574.297v3.36M670.17 1577.657l1.632 4.992M671.81 1582.644l3.36 3.264M675.17 1585.91l3.264 1.632M678.436 1587.537h4.992M683.423 1587.537l3.36-1.632M686.783 1585.91l3.264-3.264M736.608 1552.698v34.847M724.995 1552.698h23.232M754.848 1574.297h19.967M774.807 1574.297v-3.36M774.807 1570.937l-1.632-3.264M773.18 1567.67l-1.631-1.727M771.554 1565.937l-3.36-1.632M768.194 1564.31h-4.992M763.194 1564.31l-3.36 1.633M759.834 1565.937l-3.264 3.36M756.568 1569.297l-1.728 4.992M754.848 1574.297v3.36M754.848 1577.657l1.728 4.992M756.568 1582.644l3.264 3.264M759.834 1585.91l3.36 1.632M763.194 1587.537h4.992M768.194 1587.537l3.36-1.632M771.554 1585.91l3.264-3.264M796.407 1552.698h-3.264M793.154 1552.698l-3.36 1.632M789.794 1554.324l-1.632 4.992M788.154 1559.31v28.224M783.167 1564.31h11.616M816.38 1552.698h-3.36M813.02 1552.698l-3.264 1.632M809.753 1554.324l-1.728 4.992M808.033 1559.31v28.224M803.033 1564.31h11.712M13.744 968.832H48.59M25.36 948.873l1.632 3.36M26.991 952.233l3.36 3.36M30.351 955.593l4.992 1.632M35.343 957.22h3.264M38.607 957.22l4.992-1.633M43.599 955.593l3.36-3.36M46.959 952.233l1.632-3.36M48.59 948.873v-4.992M48.59 943.873l-1.631-3.264M46.959 940.606l-3.36-3.36M43.599 937.246l-4.992-1.632M38.607 935.62h-3.264M35.343 935.62l-4.991 1.632M30.351 937.246l-3.36 3.36M26.991 940.606l-1.632 3.264M25.36 943.873v4.992M25.36 905.674h26.59M51.95 905.674l4.992 1.728M56.943 907.394l1.632 1.632M58.575 909.034l1.631 3.36M60.206 912.394v4.992M60.206 917.38l-1.631 3.264M30.351 905.674l-3.36 3.36M26.991 909.034l-1.632 3.36M25.36 912.394v4.992M25.36 917.38l1.632 3.264M26.991 920.647l3.36 3.36M30.351 924.007l4.992 1.632M35.343 925.633h3.264M38.607 925.633l4.992-1.632M43.599 924.007l3.36-3.36M46.959 920.647l1.632-3.264M48.59 917.38v-4.992M48.59 912.394l-1.631-3.36M46.959 909.034l-3.36-3.36M13.744 865.835H48.59M48.59 865.835v-19.968M7.12 811.01l53.086 29.855M13.744 801.037H48.59M48.59 801.037v-19.968M42.35 764.45l1.249 3.745M43.599 768.197l2.496 3.744M46.095 771.944l3.744 2.496M49.839 774.437l3.743 1.248M53.583 775.69h3.744M57.327 775.69l3.743-1.247M61.07 774.437l3.745-2.496M64.814 771.944l2.496-3.744M67.31 768.197l1.248-3.744M68.558 764.45v-3.743M68.558 760.718l-1.248-3.744M67.31 756.97l-2.495-3.743M64.814 753.224l-3.744-2.496M61.07 750.731l-3.743-1.152M57.327 749.571h-3.745M53.583 749.571l-3.744 1.152M49.839 750.731l-3.744 2.496M46.095 753.224l-2.496 3.744M43.599 756.97l-1.248 3.745M42.35 760.718v3.743M53.583 763.21l1.247 1.249M54.83 764.45h1.25M56.079 764.45l1.247-1.247M57.327 763.21v-1.247M57.327 761.957l-1.248-1.247M56.079 760.718H54.83M54.83 760.718l-1.247 1.247M53.583 761.957v1.248M54.83 763.21h1.25M56.079 763.21v-1.247M56.079 761.957H54.83M54.83 761.957v1.248"/></g><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M1087 160.44v12.386M1087 164.04l2.591-2.68M1089.586 161.372l1.824-.866M1091.413 160.44h2.688M1094.106 160.44l1.728.866M1095.826 161.372l.864 2.68M1096.693 164.04v8.839M1096.693 164.04l2.688-2.68M1099.386 161.372l1.728-.866M1101.106 160.44h2.688M1103.8 160.44l1.823.866M1105.626 161.372l.864 2.68M1106.479 164.04v8.839M1117.145 160.44l-1.824.866M1115.319 161.372l-1.728 1.72M1113.585 162.972l-.96 2.694M1112.626 165.772v1.827M1112.626 167.506l.96 2.586M1113.585 170.172l1.728 1.827M1115.319 171.906l1.824.866M1117.145 172.839h2.592M1119.732 172.839l1.824-.867M1121.559 171.906l1.728-1.827M1123.279 170.172l.864-2.586M1124.145 167.506v-1.827M1124.145 165.772l-.864-2.693M1123.279 162.972l-1.728-1.72M1121.559 161.372l-1.824-.866M1119.732 160.44h-2.592M1140.185 154.173v18.626M1140.185 162.972l-1.824-1.72M1138.358 161.372l-1.728-.866M1136.625 160.44h-2.688M1133.945 160.44l-1.824.866M1132.118 161.372l-1.728 1.72M1130.385 162.972l-.864 2.694M1129.518 165.772v1.827M1129.518 167.506l.864 2.586M1130.385 170.172l1.728 1.827M1132.118 171.906l1.824.866M1133.945 172.839h2.688M1136.625 172.839l1.728-.867M1138.358 171.906l1.824-1.827M1146.318 165.772h10.656M1156.984 165.772v-1.733M1156.984 164.04l-.864-1.814M1156.118 162.172l-.96-.866M1155.158 161.372l-1.728-.866M1153.424 160.44h-2.687M1150.745 160.44l-1.728.866M1149.011 161.372l-1.824 1.72M1147.185 162.972l-.864 2.694M1146.318 165.772v1.827M1146.318 167.506l.864 2.586M1147.185 170.172l1.824 1.827M1149.011 171.906l1.728.866M1150.745 172.839h2.687M1153.424 172.839l1.728-.867M1155.158 171.906l1.824-1.827M1163.224 154.173v18.626M1195.957 154.173l-8.832 18.626M1183.57 154.173h12.384M1205.743 154.173l-2.688.866M1203.063 155.106l-.864 1.827M1202.197 156.84v1.72M1202.197 158.573l.864 1.826M1203.063 160.44l1.728.866M1204.783 161.372l3.552.867M1208.343 162.172l2.688.854M1211.023 162.972l1.728 1.827M1212.756 164.84l.96 1.732M1213.716 166.572v2.68M1213.716 169.239l-.96 1.827M1212.756 171.106l-.864.866M1211.89 171.906l-2.592.866M1209.303 172.839h-3.552M1205.743 172.839l-2.688-.867M1203.063 171.906l-.864-.867M1202.197 171.106l-.96-1.827M1201.237 169.239v-2.68M1201.237 166.572l.96-1.733M1202.197 164.84l1.728-1.828M1203.917 162.972l2.688-.853M1206.61 162.172l3.552-.866M1210.156 161.372l1.728-.866M1211.89 160.44l.864-1.827M1212.756 158.573v-1.72M1212.756 156.84l-.864-1.827M1211.89 155.106l-2.592-.867M1209.303 154.173h-3.552M1229.65 154.173h-8.833M1220.823 154.173l-.96 7.973M1219.863 162.172l.96-.866M1220.823 161.372l2.592-.866M1223.41 160.44h2.687M1226.103 160.44l2.688.866M1228.783 161.372l1.728 1.72M1230.516 162.972l.864 2.694M1231.383 165.772v1.827M1231.383 167.506l-.864 2.586M1230.516 170.172l-1.728 1.827M1228.783 171.906l-2.688.866M1226.103 172.839h-2.688M1223.41 172.839l-2.593-.867M1220.823 171.906l-.96-.867M1219.863 171.106l-.864-1.827M188.942 160.44v12.386M188.942 162.972l-1.728-1.72M187.209 161.372l-1.728-.866M185.489 160.44H182.8M182.795 160.44l-1.824.866M180.969 161.372l-1.728 1.72M179.249 162.972l-.864 2.694M178.382 165.772v1.827M178.382 167.506l.864 2.586M179.249 170.172l1.728 1.827M180.969 171.906l1.824.866M182.795 172.839h2.688M185.489 172.839l1.728-.867M187.209 171.906l1.728-1.827M205.835 160.44v14.106M205.835 174.572l-.864 2.693M204.968 177.239l-.96.866M204.008 178.172l-1.728.96M202.288 179.105H199.6M199.595 179.105l-1.728-.96M205.835 162.972l-1.824-1.72M204.008 161.372l-1.728-.866M202.288 160.44H199.6M199.595 160.44l-1.728.866M197.862 161.372l-1.824 1.72M196.048 162.972l-.864 2.694M195.182 165.772v1.827M195.182 167.506l.864 2.586M196.048 170.172l1.824 1.827M197.862 171.906l1.728.866M199.595 172.839h2.688M202.288 172.839l1.728-.867M204.008 171.906l1.824-1.827M211.981 165.772h10.656M222.634 165.772v-1.733M222.634 164.04l-.864-1.814M221.768 162.172l-.864-.866M220.901 161.372l-1.824-.866M219.088 160.44h-2.592M216.488 160.44l-1.824.866M214.661 161.372l-1.728 1.72M212.941 162.972l-.96 2.694M211.981 165.772v1.827M211.981 167.506l.96 2.586M212.941 170.172 214.67 172M214.661 171.906l1.824.866M216.488 172.839h2.592M219.088 172.839l1.824-.867M220.901 171.906l1.728-1.827M251.047 154.173l-8.928 12.386M242.127 166.572h13.344M251.047 154.173v18.626M261.607 171.106l-.864.866M260.74 171.906l.864.866M261.607 172.839l.96-.867M262.567 171.906l-.96-.867M280.233 160.44l-.864 2.586M279.366 162.972l-1.728 1.827M277.646 164.84l-2.688.866M274.953 165.772h-.864M274.086 165.772l-2.687-.866M271.407 164.84l-1.824-1.828M269.58 162.972l-.864-2.586M268.713 160.44v-.867M268.713 159.506l.864-2.68M269.58 156.84l1.824-1.827M271.407 155.106l2.687-.867M274.086 154.173h.864M274.953 154.173l2.688.866M277.646 155.106l1.728 1.827M279.366 156.84l.864 3.546M280.233 160.44v4.412M280.233 164.84l-.864 4.412M279.366 169.239l-1.728 2.693M277.646 171.906l-2.688.866M274.953 172.839h-1.824M273.127 172.839l-2.592-.867M270.54 171.906l-.96-1.827M297.126 154.173h-8.928M288.206 154.173l-.864 7.973M287.34 162.172l.863-.866M288.206 161.372l2.688-.866M290.886 160.44h2.688M293.58 160.44l2.591.866M296.166 161.372l1.824 1.72M297.993 162.972l.864 2.694M298.86 165.772v1.827M298.86 167.506l-.865 2.586M297.993 170.172 296.169 172M296.166 171.906l-2.592.866M293.58 172.839h-2.689M290.886 172.839l-2.688-.867M288.206 171.906l-.864-.867M287.34 171.106l-.864-1.827M316.619 154.173l-8.928 18.626M304.14 154.173h12.479M322.765 158.573v-.867M322.765 157.773l.96-1.72M323.725 156.04l.864-.96M324.579 155.106l1.728-.867M326.312 154.173h3.552M329.858 154.173l1.824.866M331.685 155.106l.864.96M332.552 156.04l.864 1.72M333.418 157.773v1.826M333.418 159.506l-.864 1.733M332.552 161.372l-1.824 2.68M330.725 164.04l-8.832 8.839M321.899 172.839h12.383M344.071 154.173l-2.688.866M341.378 155.106l-.864 1.827M340.525 156.84v1.72M340.525 158.573l.864 1.826M341.378 160.44l1.824.866M343.205 161.372l3.552.867M346.765 162.172l2.592.854M349.351 162.972l1.824 1.827M351.178 164.84l.864 1.732M352.045 166.572v2.68M352.045 169.239l-.864 1.827M351.178 171.106l-.96.866M350.218 171.906l-2.592.866M347.618 172.839h-3.552M344.071 172.839l-2.688-.867M341.378 171.906l-.864-.867M340.525 171.106l-.864-1.827M339.658 169.239v-2.68M339.658 166.572l.864-1.733M340.525 164.84l1.728-1.828M342.245 162.972l2.688-.853M344.938 162.172l3.552-.866M348.485 161.372l1.728-.866M350.218 160.44l.96-1.827M351.178 158.573v-1.72M351.178 156.84l-.96-1.827M350.218 155.106l-2.592-.867M347.618 154.173h-3.552M369.804 154.173l-8.928 18.626M357.324 154.173h12.48M375.084 165.772h10.656M385.737 165.772v-1.733M385.737 164.04l-.96-1.814M384.777 162.172l-.864-.866M383.91 161.372l-1.728-.866M382.177 160.44h-2.688M379.497 160.44l-1.728.866M377.764 161.372l-1.824 1.72M375.937 162.972l-.864 2.694M375.084 165.772v1.827M375.084 167.506l.864 2.586M375.937 170.172l1.824 1.827M377.764 171.906l1.728.866M379.497 172.839h2.688M382.177 172.839l1.728-.867M383.91 171.906l1.824-1.827M403.403 154.173l-8.832 18.626M391.017 154.173H403.4M422.016 160.44l5.376 12.386M432.683 160.44l-5.28 12.386M427.403 172.839l-1.824 3.546M425.576 176.305l-1.728 1.734M423.843 178.172l-1.824.96M422.016 179.105h-.864M437.962 160.44v12.386M437.962 165.772l.96-2.693M438.922 162.972l1.728-1.72M440.642 161.372l1.728-.866M442.376 160.44h2.688M458.402 162.972l-.96-1.72M457.442 161.372l-2.592-.866M454.855 160.44h-2.688M452.162 160.44l-2.688.866M449.482 161.372l-.864 1.72M448.615 162.972l.864 1.827M449.482 164.84l1.824.866M451.295 165.772l4.416.867M455.722 166.572l1.728.96M457.442 167.506l.96 1.72M458.402 169.239v.867M458.402 170.172l-.96 1.827M457.442 171.906l-2.592.866M454.855 172.839h-2.688M452.162 172.839l-2.688-.867M449.482 171.906l-.864-1.827M694.85 177.505v30.24M715.009 177.505v30.24M694.85 191.905h20.159M726.529 177.505v30.24M726.529 177.505h12.96M739.488 177.505l4.32 1.44M743.808 178.972l1.44 1.44M745.248 180.439l1.44 2.88M746.688 183.239v2.88M746.688 186.172l-1.44 2.88M745.248 189.105l-1.44 1.44M743.808 190.438l-4.32 1.44M739.488 191.905h-12.96M736.608 191.905l10.08 15.84"/></g></g><g stroke="teal" stroke-width="28.8"><path stroke-width="3.839904" d="m1055.987 1028.55.288 1.057M1056.28 1029.604l.096.192M1056.374 1029.79v.097M1056.374 1029.884v.096M1056.374 1029.99v.097M1056.374 1030.084v.096M1056.374 1030.177v.096M1056.374 1030.27v.097M1056.374 1030.364v.192M1056.374 1030.564l-.096.096M1056.28 1030.657v.192M1056.28 1030.844v.192M1056.28 1031.044v.192M1056.28 1031.23v.289M1056.28 1031.524v.384M1056.28 1031.91l-.096.385M1056.187 1032.284v.48M1056.187 1032.764l-.096.576M1056.08 1033.35v.673M1056.08 1034.017l-.096.768M1055.987 1034.79v1.057M1055.987 1035.844l-.096 1.152M1055.894 1036.99l-.096 1.343M1055.8 1038.337l-.192 1.73M1055.6 1040.07l-.096 1.92M1055.507 1041.99l-.192 2.306M1055.32 1044.284l-.192 2.782M1055.12 1047.07l-.192 3.264M1054.934 1050.337l-.384 3.648M1054.547 1053.99l-.288 4.512M1054.267 1058.497l-.384 5.28M1053.88 1063.777l-.48 6.142M1053.4 1069.923l-.48 7.01M1052.92 1076.923l-.576 8.064M1052.347 1084.99l-.672 9.311M1051.667 1094.31l-.864 10.366M1050.8 1104.669l-.864 11.617M1049.947 1116.282l-.864 13.246M1049.08 1129.535l-1.248 14.112M1047.827 1143.641l-1.152 15.936M1046.68 1159.588l-1.247 17.087M1045.427 1176.667l-1.344 16.705M1044.08 1193.373l-1.151 14.303M1042.934 1207.68l-1.056 15.36M1041.88 1223.04l-1.343 15.07M1040.534 1238.106l-1.056 12.767M1039.48 1250.879l-1.055 13.727M1038.427 1264.598l-1.344 13.057M1037.08 1277.665l-1.055 10.943M1036.027 1288.598l-1.152 11.135M1034.867 1299.744l-1.152 10.848M1033.72 1310.584l-1.055 7.968M1032.668 1318.557l-.864 6.432M1031.8 1324.983l-1.055 5.952M1030.748 1330.943l-1.248 4.416M1029.494 1335.356l-.96 1.824M1028.534 1337.183l-.96-.384M1027.574 1336.796l-1.056-3.36M1026.521 1333.437l-1.344-8.35M1025.174 1325.077l-1.152-11.81M1024.028 1313.277l-1.152-15.456M1022.868 1297.824l-1.344-18.911M1021.521 1278.905l-1.632-21.12M1019.895 1257.785l-2.112-21.791M1017.788 1235.999l-2.88-18.816M1014.908 1217.186l-3.456-13.918M1011.441 1203.266l-4.416-10.465M1007.028 1192.8l-6.048-7.968M1000.988 1184.827l-7.584-6.336M993.402 1178.494l-8.736-5.088M984.669 1173.4l-9.216-4.223M975.442 1169.187l-9.311-3.552M966.136 1165.627l-9.6-3.168M956.536 1162.467l-5.088-2.207M951.443 1160.254l-4.992-1.92M946.456 1158.334l-5.856-1.728M940.603 1156.601l-6.912-1.824M933.683 1154.788l-4.128-1.44M929.563 1153.348l-4.031-1.248M925.524 1152.094l-4.704-1.344M920.83 1150.748l-5.664-1.344M915.164 1149.401l-6.528-1.44M908.63 1147.961l-7.68-1.728M900.95 1146.241l-9.023-2.016M891.924 1144.228l-9.887-2.592M882.045 1141.628l-10.559-3.072M871.485 1138.561l-10.657-3.84M860.832 1134.721l-10.176-4.223M850.645 1130.495l-9.887-4.608M840.766 1125.882l-10.752-5.376M830.006 1120.509l-11.232-5.952M818.78 1114.562l-10.464-6.24M808.313 1108.322l-10.176-6.432M798.14 1101.882l-9.984-6.528M788.154 1095.362l-11.328-7.295M776.834 1088.07l-11.902-7.872M764.928 1080.19l-10.85-7.584M754.074 1072.603l-10.369-7.296M743.715 1065.31l-10.08-7.104M733.635 1058.203l-11.328-7.68M722.302 1050.524l-12.097-7.968M710.209 1042.564l-10.944-7.296M699.263 1035.27l-10.272-6.911M688.996 1028.35l-9.985-6.527M679.01 1021.831l-11.137-6.72M667.877 1015.111l-11.807-6.72M656.064 1008.391l-10.657-6.24M645.41 1002.151l-10.08-5.663M635.33 996.485l-9.887-5.28M625.438 991.205l-10.848-5.376M614.598 985.832l-11.424-5.184M603.172 980.645l-10.464-4.896M592.705 975.752l-9.888-4.416M582.812 971.326l-10.848-4.224M571.972 967.099l-11.233-4.127M560.733 962.98l-10.272-3.84M550.466 959.14l-9.792-3.553M540.68 955.593l-10.561-3.36M530.12 952.233l-11.038-3.168M519.08 949.06 509 946.081M509 946.086l-9.695-2.782M499.294 943.3l-10.464-2.496M488.841 940.806l-10.752-2.496M478.081 938.3l-9.985-2.303M468.095 936.006l-10.462-2.111M457.642 933.887l-10.752-2.015M446.882 931.873l-9.985-1.921M436.896 929.953l-10.367-1.726M426.536 928.233l-10.657-1.633M415.883 926.593l-9.79-1.534M406.083 925.06l-10.273-1.153M395.817 923.9l-10.367-.959M385.444 922.953l-9.505-.769M375.937 922.18l-9.887-.19M366.058 921.993l-10.655.383M355.404 922.367l-10.273.48M345.125 922.847l-9.408.385M335.725 923.233l-9.504.96M326.219 924.193l-9.888 1.92M316.325 926.113l-9.118 4.034M307.206 930.153l-6.624 8.83M300.58 938.98l-3.074 16.511M297.513 955.486l.96 23.711M298.473 979.205l3.646 25.345M302.126 1004.551l4.129 20.159M306.246 1024.698l3.166 11.807M309.419 1036.51l1.92 4.8M311.339 1041.31l1.056 1.248M312.392 1042.564l.768-.096M313.166 1042.457l.671-.288M313.832 1042.177l.672-.384M314.499 1041.79l.672-.288M315.179 1041.497l.672-.288M315.845 1041.217l.672-.384M316.525 1040.83l.576-.383M317.099 1040.444l.576-.48M317.672 1039.964l.576-.576M318.245 1039.39l.48-.575M318.725 1038.817l.384-.864M319.112 1037.95l.48-.96M319.592 1036.99l.384-1.055M319.979 1035.937l.288-1.44M320.259 1034.497l.288-1.632M320.552 1032.857l.192-2.112M320.739 1030.75l.288-2.4M321.032 1028.35l.288-3.071M321.325 1025.284l.192-3.648M321.512 1021.631l.384-4.512M321.899 1017.124l.384-5.471M322.285 1011.645l.576-6.144M322.859 1005.498l.48-5.472M323.339 1000.032l.48-4.992M323.819 995.045l.576-4.8M324.392 990.245l.48-4.704M324.872 985.539l.576-4.608M325.445 980.925l.576-4.608M326.019 976.325l.576-4.511M326.605 971.806l.672-4.512M327.272 967.299l.672-4.416M327.938 962.886l.672-4.512M328.618 958.366l.768-4.32M329.378 954.046l.768-4.416M330.152 949.633l.768-4.32M330.925 945.313l.864-4.224M331.778 941.086l.768-4.32M332.552 936.766l.96-4.223M333.512 932.54l.864-4.224M334.378 928.327l.96-4.224M335.338 924.1l.96-4.128M336.298 919.967l1.056-4.128M337.352 915.847l1.056-4.128M338.405 911.714l1.056-4.032M339.458 907.687l1.152-4.032M340.618 903.647l1.152-4.032M341.765 899.62l1.152-4.031M342.925 895.58l1.248-3.935M344.165 891.648l1.248-3.936M345.418 887.714l1.344-3.84M346.765 883.874l1.344-3.84M348.098 880.035l1.344-3.84M349.445 876.195l1.44-3.84M350.885 872.355l1.44-3.744M352.325 868.608l1.535-3.744M353.858 864.875l1.536-3.744M355.404 861.128l1.536-3.648M356.938 857.475l1.632-3.648M358.564 853.835l1.728-3.648M360.298 850.182l1.632-3.552M361.924 846.635l1.824-3.552M363.75 843.075l1.729-3.551M365.484 839.529l1.824-3.552M367.297 835.969l1.92-3.456M369.217 832.516l1.92-3.456M371.137 829.062l2.016-3.36M373.164 825.703l1.92-3.456M375.084 822.25l2.112-3.36M377.19 818.89l2.017-3.36M379.204 815.53l2.112-3.264M381.324 812.263l2.208-3.264M383.524 808.996l2.112-3.264M385.644 805.73l2.208-3.264M387.844 802.476l2.112-3.263M389.964 799.21l2.208-3.168M392.164 796.037l2.111-3.168M394.283 792.877l2.016-3.264M396.297 789.61l2.016-3.168M398.31 786.437l1.728-3.168M400.043 783.277l1.344-2.976M401.377 780.29l.864-2.784M402.243 777.517l.48-2.4M402.723 775.117l-.096-2.112M402.63 772.997l-.576-1.92M402.057 771.077l-.864-1.728M401.19 769.357l-1.248-1.536M399.937 767.81l-1.44-1.44M398.497 766.37l-1.632-1.343M396.87 765.037l-1.824-1.248M395.043 763.784l-2.015-1.248M393.03 762.53l-2.016-1.247M391.017 761.29 389 760.14M389.004 760.13l-2.112-1.247M386.884 758.89l-2.111-1.247M384.777 757.638l-2.112-1.344M382.657 756.291l-2.017-1.344M380.644 754.958l-1.919-1.344M378.724 753.611l-1.824-1.44M376.897 752.171l-1.824-1.44M375.084 750.731l-1.633-1.44M373.444 749.291l-1.536-1.344M371.91 747.945l-1.44-1.344M370.47 746.598l-1.342-1.344M369.124 745.251l-1.152-1.248M367.977 744.011l-1.057-1.152M366.924 742.851l-.96-1.056M365.964 741.798l-.864-.96M365.098 740.838l-.767-.864M364.324 739.971l-.576-.768M363.75 739.211l-.575-.672M363.178 738.531l-.482-.576M362.698 737.958l-.384-.48M362.31 737.478l-.382-.384M361.924 737.091l-.193-.384M361.738 736.718l-.288-.192M361.444 736.518l-.192-.192M361.258 736.331l-.096-.192M361.164 736.131l-.192-.096M360.964 736.038l-.096-.096M360.871 735.945l-.096-.096M360.778 735.851v.096M360.778 735.945v.096M360.778 736.038v.096M360.778 736.131v.096M360.778 736.238v.096M360.778 736.331l.096.096M360.871 736.425v.096M360.871 736.518v.096M360.871 736.611l.096.096M360.964 736.718v.096M360.964 736.811l.096.096M361.058 736.905V737M361.058 736.998v.096M361.058 737.091l.096.096M361.164 737.198v.096M361.164 737.291l.096.096M361.258 737.385v.096M361.258 737.478v.096M361.258 737.571h.096M361.351 737.571v.096M361.351 737.678v.096M361.351 737.771l.096.098M361.444 737.865v.096M361.444 737.958h.096M361.538 737.958v.095M361.538 738.051v.098M361.538 738.158l.096.096M361.644 738.251v.095M361.644 738.345l.096.193M361.738 738.531l.096.192M361.831 738.731l.096.191M361.924 738.918l.192.288M362.124 739.211l.096.386M362.218 739.598l.288.385M362.498 739.971l.288.576M362.79 740.558l.385.768M363.178 741.318l.48.96M363.658 742.278l.576 1.152M364.23 743.438l.769 1.441M365.004 744.878l1.056 1.728M366.058 746.598l1.343 2.208M367.404 748.811l1.824 2.4M369.217 751.211l2.112 2.496M371.337 753.704l2.784 2.304M374.124 756.011l3.264 1.536M377.377 757.544l3.84.096M381.217 757.638l4.512-2.112M385.737 755.531l4.992-4.32M390.724 751.211l5.76-6.24M396.483 744.971l6.432-7.582M402.923 737.385l7.104-7.585M410.016 729.798l6.432-6.144M416.456 723.652l7.488-5.952M423.936 717.705l8.352-5.472M432.296 712.239l7.68-4.32M439.976 707.919l7.68-3.55M447.655 704.359l9.216-3.648M456.869 700.719l10.655-3.456M467.522 697.252l9.887-2.782M477.415 694.48l9.791-2.306M487.201 692.173l9.6-1.92M496.8 690.253l9.697-1.632M506.494 688.613l9.888-1.44M516.387 687.173l10.08-1.056M526.467 686.12l10.272-.96M536.733 685.16l10.752-.769M547.493 684.4l11.136-.48M558.626 683.92l11.52-.289M570.146 683.626l11.807-.192M581.959 683.44l12 .095M593.958 683.533l12.096.288M606.052 683.813l12.095.48M618.145 684.293l12.191.576M630.33 684.88l12.097.767M642.437 685.64l12.096.96M654.53 686.6l12.096.96M666.623 687.56l12.096 1.151M678.716 688.72l12 1.343M690.716 690.053l12 1.344M702.716 691.4l11.903 1.44M714.622 692.84l11.904 1.535M726.529 694.373l11.903 1.535M738.435 695.92l11.808 1.727M750.235 697.64l11.807 1.727M762.048 699.372l11.711 1.728M773.754 701.092l11.712 1.92M785.474 703.012l11.711 1.92M797.18 704.932l11.616 1.92M808.793 706.852l11.52 2.016M820.313 708.879l11.616 2.112M831.926 710.985l11.52 2.208M843.446 713.199l11.52 2.304M854.965 715.492l11.616 2.304M866.592 717.799l11.615 2.4M878.205 720.199l11.615 2.495M889.818 722.692l11.615 2.592M901.43 725.292l11.617 2.784M913.044 728.078l11.52 2.784M924.564 730.852l11.615 2.976M936.19 733.838l5.664 1.248M941.843 735.078l5.856 1.44M947.71 736.518l7.2 1.92M954.91 738.438l8.831 2.592M963.736 741.038l11.232 3.648M974.962 744.678l13.536 4.8M988.509 749.478l6.047 1.92M994.548 751.398l6.144 2.208M1000.695 753.611l7.488 2.976M1008.188 756.584l8.64 4.032M1016.828 760.61l9.024 5.665M1025.841 766.277l7.872 7.872M1033.72 774.157l6.72 11.328M1040.44 785.477l4.8 13.248M1045.24 798.73l3.456 11.328M1048.694 810.05l2.784 7.295M1051.48 817.356l2.4 3.264M1053.88 820.61l2.4-1.249M1056.28 819.37l2.4-6.24M1058.68 813.13l2.4-11.04M1061.08 802.09l2.496-15.648M1063.573 786.437l2.496-19.008M1066.067 767.437l2.592-23.04M1068.667 744.398l2.88-25.92M1071.547 718.479l2.495-24.576M1074.04 693.893l2.016-19.68M1076.053 674.213l1.44-13.44M1077.493 660.773l.864-8.351M1078.36 652.427l.48-4.896M1078.84 647.534l.384-2.88M1079.226 644.654l.192-1.824M1079.413 642.827l.096-1.344M1079.506 641.48l.095-1.055M1079.6 640.427l.096-.576M1079.706 639.854v-.288M1079.706 639.56v.097M1079.706 639.654l-.096.288M1079.6 639.947l-.096.576M1079.506 640.52l-.096.769M1079.413 641.294l-.096.864M1079.32 642.16l-.192.96M1079.12 643.12l-.096.768M1079.026 643.88l-.096.576M1078.933 644.454l-.096.672M1078.84 645.134l-.096.672M1078.746 645.8l-.192.864M1078.546 646.667l-.096.672M1078.453 647.334l-.096.672M1078.36 648.014l-.096.576M1078.266 648.587l-.096.768M1078.16 649.36l-.192.768M1077.973 650.12l-.096.768M1077.88 650.894l-.192.576M1077.68 651.467l-.096.672M1077.586 652.134l-.096.672M1077.493 652.814l-.192.864M1077.306 653.68l-.096.672M1077.2 654.347l-.096.672M1077.106 655.013l-.096.576M1077.013 655.6l-.192.672M1076.826 656.267l-.192.864M1076.626 657.133l-.096.576M1076.533 657.707l-.096.672M1076.44 658.373l-.192.576M1076.24 658.96l-.192.672M1076.053 659.627l-.096.768M1075.96 660.4l-.192.672M1075.76 661.067l-.192.576M1075.573 661.64l-.096.576M1075.48 662.213l-.192.672M1075.28 662.893l-.192.768M1075.093 663.653l-.192.576M1074.906 664.24l-.192.576M1074.706 664.813l-.096.576M1074.613 665.387l-.288.48M1074.32 665.867l-.192.576M1074.133 666.44l-.192.672M1073.946 667.12l-.192.48M1073.746 667.6l-.192.48M1073.56 668.08l-.288.384M1073.267 668.453l-.192.384M1073.08 668.84l-.192.48M1072.88 669.32l-.288.384M1072.6 669.706l-.384.288M1072.213 670l-.288.192M1071.92 670.186l-.288.192M1071.64 670.373l-.288.096M1071.347 670.48h-.384M1070.96 670.48l-.48-.096M1070.48 670.373l-.576-.48M1069.907 669.893l-.672-.672M1069.24 669.226l-.768-1.056M1068.467 668.173l-1.344-2.592M1067.12 665.573l-1.344-3.264M1065.787 662.32l-2.592-7.104M1063.187 655.213l-3.072-8.831M1060.12 646.374l-2.592-6.336M1057.52 640.04l-4.128-7.2M1053.4 632.84l-4.32-4.8M1049.08 628.04l-6.815-3.84M1042.267 624.2l-5.568-2.111M1036.694 622.094l-7.968-1.536M1028.72 620.561l-11.519-1.44M1017.201 619.121l-13.343-1.152M1003.868 617.961l-11.615-.768M992.242 617.201l-5.279-.288M986.962 616.908l-5.088-.288M981.882 616.614l-5.953-.192M975.922 616.428l-3.456-.192M972.469 616.241l-3.36-.095M969.11 616.134l-3.937-.096M965.176 616.041h-4.512M960.67 616.041l-5.183-.096M955.483 615.948h-2.977M952.51 615.948l-2.88-.095M949.63 615.854h-3.36M946.27 615.854h-3.84M942.43 615.854h-4.32M938.11 615.854l-4.895.095M933.203 615.948h-5.376M927.83 615.948l-5.857.097M921.977 616.041l-6.24.097M915.737 616.134l-6.526.191M909.204 616.334l-6.624.098M902.59 616.428l-6.623.096M895.964 616.521h-6.433M889.524 616.521h-6.24M883.285 616.521l-5.855-.192M877.431 616.334l-5.663-.288M871.765 616.041l-5.472-.384M866.298 615.654l-5.569-.576M860.725 615.081l-5.758-.672M854.965 614.415l-6.24-.864M848.725 613.548l-6.815-1.056M841.912 612.495l-7.584-1.248M834.326 611.241l-8.447-1.44M825.886 609.801l-7.296-1.248M818.593 608.561l-6.721-1.152M811.873 607.401l-6.43-1.056M805.433 606.348l-6.048-.959M799.393 605.388l-5.857-1.056M793.527 604.335l-5.664-.864M787.874 603.468l-6.239-1.152M781.634 602.321l-6.912-1.151M774.714 601.162l-5.664-1.056M769.047 600.108l-5.185-.96M763.874 599.148l-4.8-.96M759.074 598.188l-4.608-.864M754.461 597.322l-5.184-.864M749.275 596.455l-5.57-1.152M743.715 595.308l-4.704-.96M739.008 594.348l-4.224-.864M734.782 593.482l-4.032-.864M730.755 592.615l-3.84-.768M726.915 591.855l-3.648-.768M723.262 591.082l-4.128-.864M719.129 590.215l-4.608-1.056M714.529 589.162l-3.84-.864M710.689 588.295l-3.552-.768M707.129 587.535l-3.36-.768M703.77 586.762l-3.169-.768M700.61 586.002l-3.553-.864M697.05 585.135l-3.84-.96M693.21 584.175l-3.265-.864M689.956 583.309l-2.976-.768M686.97 582.535l-2.88-.768M684.09 581.775l-2.688-.672M681.41 581.095l-2.592-.672M678.81 580.429l-2.88-.864M675.93 579.562l-3.072-.864M672.863 578.695l-2.688-.864M670.17 577.842l-2.496-.768M667.677 577.069l-2.304-.672M665.37 576.402l-2.208-.672M663.17 575.722l-2.496-.768M660.677 574.962l-2.592-.96M658.077 574.002l-2.208-.768M655.877 573.229l-2.016-.768M653.85 572.456l-1.92-.672M651.93 571.789l-1.728-.672M650.21 571.109l-1.728-.575M648.477 570.536l-1.536-.671M646.944 569.869l-1.728-.768M645.21 569.096l-1.631-.864M643.584 568.242l-1.44-.768M642.144 567.469l-1.248-.77M640.89 566.696l-1.151-.672M639.744 566.029l-1.152-.576M638.597 565.456l-1.056-.768M637.53 564.682l-.96-.96M636.57 563.722l-.671-.766M635.904 562.962l-.864-.672M635.037 562.282l-.48-.574M634.557 561.71l-.672-.673M633.89 561.03l-.095-.673M633.797 560.363l-.382-.96M633.41 559.403l.289-.671M633.704 558.736l-.288-.672M633.41 558.056l.767-.672M634.17 557.39l.673-.96M634.85 556.43l1.249-.671M636.104 555.75l-.576-.865M635.517 554.896l1.728-.67M637.25 554.216l1.92-.96M639.17 553.256l2.497-.768M641.664 552.496l-1.055-.959M640.61 551.536l1.535-.287M642.144 551.243l2.4-.384M644.544 550.856l2.4-.576M646.944 550.283l2.112-.576M649.05 549.71l2.306-.48M651.357 549.23l1.152-.577M652.517 548.656l3.167-.384M655.677 548.27l2.4-.768M658.077 547.496l1.536-.192M659.624 547.31l1.92-.096M661.543 547.216l2.784-.288M664.317 546.923l2.976-.48M667.303 546.443l2.688-.48M669.983 545.963l1.728-.576M671.717 545.39l3.935-.096M675.65 545.296l-14.304-2.88M661.343 542.416l-2.975 1.344M658.37 543.75l1.536.672M659.904 544.43h3.455M663.357 544.43l4.128-.192M667.49 544.23l4.416-.288M671.903 543.95l4.8-.384M676.703 543.563l5.088-.288M681.796 543.27l5.376-.192M687.17 543.083l5.663-.288M692.836 542.79l6.048-.192M698.876 542.603l6.24-.096M705.116 542.51l6.624-.096M711.742 542.416l6.912-.096M718.662 542.31l7.2.096M725.849 542.416h7.583M733.435 542.416l10.656.288M744.088 542.696l16.128.576M760.221 543.283l17.28.864M777.5 544.136l18.24 1.248M795.74 545.39l18.912 1.728M814.646 547.123l19.488 2.304M834.14 549.416l20.255 2.784M854.392 552.203l20.831 3.36M875.231 555.563l21.312 4.032M896.538 559.603l21.695 4.607M918.23 564.202l21.504 5.28M939.737 569.482l9.695 2.208M949.43 571.696l9.6 2.496M959.03 574.189l9.12 2.592M968.15 576.775l1.151.288M969.31 577.069l1.151.288M970.456 577.362l1.342.385M971.802 577.735l1.728.48M973.522 578.215l2.016.576M975.549 578.802l2.59.77M978.136 579.562l3.071.959M981.202 580.522l3.743 1.153M984.949 581.682l4.705 1.63M989.655 583.309l5.759 2.112M995.415 585.415l7.393 2.785M1002.802 588.202l6.047 2.497M1008.855 590.695l5.182 2.207M1014.041 592.908l4.13 1.824M1018.161 594.735l3.359 1.632M1021.521 596.362l2.593 1.248M1024.121 597.615l2.112 1.152M1026.228 598.762l1.63.864M1027.868 599.628l1.344.768M1029.2 600.402l.96.576M1030.16 600.975l.865.48M1031.028 601.455l.96.576M1031.988 602.028l1.054.768M1033.04 602.801l1.249.96M1034.294 603.761l1.44 1.056M1035.734 604.815l1.633 1.44M1037.36 606.255l1.44 1.344M1038.8 607.601l1.343 1.44M1040.147 609.041l1.344 1.44M1041.494 610.481l1.248 1.536M1042.747 612.015l1.055 1.536M1043.8 613.548l1.153 1.632M1044.947 615.174l1.058 1.632M1046 616.814l.96 1.632M1046.96 618.441l.96 1.728M1047.92 620.174l.96 1.728M1048.88 621.894l.864 1.824M1049.747 623.72l.864 1.825M1050.614 625.548l.769 1.824M1051.387 627.374l.767 1.824M1052.147 629.2l.77 1.825M1052.92 631.014l.672 1.92M1053.587 632.934l.576 1.824M1054.16 634.76l.576 1.825M1054.747 636.587l.576 1.824M1055.32 638.414l.48 1.824M1055.8 640.24l.672 2.208M1056.467 642.44l.672 2.784M1057.147 645.227l.67 2.496M1057.814 647.72l.577 2.4M1058.387 650.12l.67 2.304M1059.067 652.427l.575 2.208M1059.64 654.64l.575 2.112M1060.213 656.747l.576 2.016M1060.787 658.76l.576 1.824M1061.36 660.587l.576 1.728M1061.947 662.32l.48 1.536M1062.427 663.853l.576 1.248M1063 665.093l.576 1.056M1063.573 666.16l.672 1.152M1064.24 667.307l.864.96M1065.107 668.266l.864.096M1065.973 668.36l.768-.672M1066.747 667.693l.958-1.342M1067.707 666.347l.96-2.496M1068.667 663.853l1.344-4.32M1070 659.533l1.344-6.047M1071.347 653.48l1.632-8.928M1072.987 644.56l2.015-12.865M1075 631.694l2.304-16.894M1077.306 614.801l2.399-19.775M1079.706 595.015l2.208-19.104M1081.906 575.909l1.632-14.878M1083.546 561.043l.959-8.64M1084.506 552.403l.288-2.976M1084.786 549.416l-.288.959M1084.506 550.376l-.48 3.17M1084.026 553.55l-.48 3.84M1083.546 557.39l-.48 3.551M1083.066 560.936l-.192 2.305M1082.866 563.242l.384-.385M1083.253 562.856l1.152-6.144M1084.4 556.71l2.112-14.208M1086.52 542.51l2.303-17.28M1088.826 525.23l1.92-16.128M1090.746 509.097l1.728-14.4M1092.466 494.698l1.536-13.248M1094 481.458l1.535-12.672M1095.546 468.778l1.44-12.48M1096.986 456.298l1.44-12.287M1098.426 444.019l1.344-12.192M1099.76 431.82l1.343-11.52M1101.106 420.3l1.152-10.56M1102.266 409.74l1.152-9.792M1103.412 399.953l1.056-9.317M1104.466 390.7l1.056-8.92M1105.519 381.767l.96-8.733M1106.479 372.967l.96-8.546M1107.439 364.434l.96-8.453M1108.399 356.034l.96-8.44M1109.359 347.501l.864-8.066M1110.226 339.501l.864-7.293M1111.092 332.168l.768-6.626"/></g><g stroke="#c03" stroke-width="28.8"><path stroke-width="3.839904" d="m1108.692 310.035-6.144 3.16M1102.546 313.102l-3.168 3.08M1099.386 316.302l-3.072 6.24M1096.306 322.435v6.133M1096.306 328.568l3.072 6.24M1099.386 334.835l3.168 3.08M1102.546 337.901l6.144 3.16M1108.692 341.101h6.24M1114.932 341.101l6.144-3.16M1121.079 337.901l3.168-3.08M1124.239 334.835l3.071-6.24M1127.318 328.568v-6.133M1127.318 322.435l-3.071-6.24M1124.239 316.302l-3.168-3.08M1121.079 313.102l-6.144-3.16M1114.932 310.035h-6.24"/></g><path stroke="#00f" stroke-width="3.839904" d="m965.75 259.237-87.647 1209.57"/><path stroke="#b22222" stroke-width="3.839904" d="M1066.547 259.237 978.9 1468.807"/></g></svg>
\ No newline at end of file
diff --git a/star/test_suite/7M_prems_to_AGB/inlist_7M_prems_to_AGB b/star/test_suite/7M_prems_to_AGB/inlist_7M_prems_to_AGB
index e1a711f81..976cdabaa 100644
--- a/star/test_suite/7M_prems_to_AGB/inlist_7M_prems_to_AGB
+++ b/star/test_suite/7M_prems_to_AGB/inlist_7M_prems_to_AGB
@@ -2,17 +2,21 @@
 
 &star_job
 
-      show_log_description_at_start = .false.
+   show_log_description_at_start = .false.
 
-      load_saved_model = .true.
-      load_model_filename = 'start.mod'
+   load_saved_model = .true.
+   load_model_filename = 'start.mod'
 
-      save_model_when_terminate = .true.
-      save_model_filename = 'final.mod'
-      required_termination_code_string = 'log_L_upper_limit'
+   save_model_when_terminate = .true.
+   save_model_filename = 'final.mod'
+   required_termination_code_string = 'log_L_upper_limit'
+
+   set_initial_cumulative_energy_error = .true.
+   new_cumulative_energy_error = 0d0
+
+   pgstar_flag = .true.
+   save_pgstar_files_when_terminate = .true.
 
-      set_initial_cumulative_energy_error = .true.
-      new_cumulative_energy_error = 0d0
 
 / ! end of star_job namelist
 
@@ -21,59 +25,58 @@
 / ! end of eos namelist
 
 &kap
-      Zbase = 0.001
+   Zbase = 0.001
 
    use_Type2_opacities = .true.
 
 / !end of kap namelist
 
 &controls
-      
-      energy_eqn_option = 'dedt'
-      use_gold2_tolerances = .true.
-      max_abs_rel_run_E_err = 1d-2
 
-      num_trace_history_values = 2
-      trace_history_value_name(1) = 'rel_E_err'
-      trace_history_value_name(2) = 'log_rel_run_E_err'
+   energy_eqn_option = 'dedt'
+   use_gold2_tolerances = .true.
+   max_abs_rel_run_E_err = 1d-2
 
-      ! limit max_model_number as part of test_suite
-      max_model_number = 3000
+   num_trace_history_values = 2
+   trace_history_value_name(1) = 'rel_E_err'
+   trace_history_value_name(2) = 'log_rel_run_E_err'
 
-      initial_mass = 7.00
-      initial_z = 0.001
-      
-      mixing_length_alpha = 1.73
+   ! limit max_model_number as part of test_suite
+   max_model_number = 3000
 
-      log_L_upper_limit = 4.3
+   initial_mass = 7.00
+   initial_z = 0.001
 
-      overshoot_scheme(1) = 'exponential'
-      overshoot_zone_type(1) = 'any'
-      overshoot_zone_loc(1) = 'any'
-      overshoot_bdy_loc(1) = 'any'
-      overshoot_f(1) = 0.014
-      overshoot_f0(1) = 0.004
+   mixing_length_alpha = 1.73
 
-      atm_option = 'T_tau'
-      atm_T_tau_relation = 'Eddington'
-      atm_T_tau_opacity = 'fixed'
+   log_L_upper_limit = 4.3
 
-! mass loss       
-      cool_wind_full_on_T = 9.99d9
-      hot_wind_full_on_T = 1d10
-      cool_wind_RGB_scheme = 'Reimers'
-      cool_wind_AGB_scheme = 'Blocker'
-      RGB_to_AGB_wind_switch = 1d-4
-      Reimers_scaling_factor = 0.5d0  
-      Blocker_scaling_factor = 0.0003d0  
+   overshoot_scheme(1) = 'exponential'
+   overshoot_zone_type(1) = 'any'
+   overshoot_zone_loc(1) = 'any'
+   overshoot_bdy_loc(1) = 'any'
+   overshoot_f(1) = 0.014
+   overshoot_f0(1) = 0.004
 
+   atm_option = 'T_tau'
+   atm_T_tau_relation = 'Eddington'
+   atm_T_tau_opacity = 'fixed'
 
-      photo_interval = 50
-      profile_interval = 100
-      history_interval = 10
-      terminal_interval = 10
-      write_header_frequency = 10
+! mass loss
+   cool_wind_full_on_T = 9.99d9
+   hot_wind_full_on_T = 1d10
+   cool_wind_RGB_scheme = 'Reimers'
+   cool_wind_AGB_scheme = 'Blocker'
+   RGB_to_AGB_wind_switch = 1d-4
+   Reimers_scaling_factor = 0.5d0
+   Blocker_scaling_factor = 0.0003d0
 
 
-/ ! end of controls namelist
+   photo_interval = 50
+   profile_interval = 100
+   history_interval = 10
+   terminal_interval = 10
+   write_header_frequency = 10
 
+
+/ ! end of controls namelist
diff --git a/star/test_suite/7M_prems_to_AGB/inlist_7M_prems_to_AGB_header b/star/test_suite/7M_prems_to_AGB/inlist_7M_prems_to_AGB_header
index 2192ae38c..0f6e5d9a4 100644
--- a/star/test_suite/7M_prems_to_AGB/inlist_7M_prems_to_AGB_header
+++ b/star/test_suite/7M_prems_to_AGB/inlist_7M_prems_to_AGB_header
@@ -1,40 +1,39 @@
 
 &star_job
 
-
-      read_extra_star_job_inlist(2) = .true.
-      extra_star_job_inlist_name(2) = 'inlist_7M_prems_to_AGB'
+   read_extra_star_job_inlist(2) = .true.
+   extra_star_job_inlist_name(2) = 'inlist_7M_prems_to_AGB'
 
 / ! end of star_job namelist
 
 
 &eos
 
-      read_extra_eos_inlist(1) = .true.
-      extra_eos_inlist_name(1) = 'inlist_7M_prems_to_AGB'
+   read_extra_eos_inlist(1) = .true.
+   extra_eos_inlist_name(1) = 'inlist_7M_prems_to_AGB'
 
 / ! end of eos namelist
 
 
 &kap
 
-      read_extra_kap_inlist(1) = .true.
-      extra_kap_inlist_name(1) = 'inlist_7M_prems_to_AGB'
+   read_extra_kap_inlist(1) = .true.
+   extra_kap_inlist_name(1) = 'inlist_7M_prems_to_AGB'
 
 / ! end of kap namelist
 
 
 &controls
 
-      read_extra_controls_inlist(1) = .true.
-      extra_controls_inlist_name(1)= 'inlist_7M_prems_to_AGB'
+   read_extra_controls_inlist(1) = .true.
+   extra_controls_inlist_name(1)= 'inlist_7M_prems_to_AGB'
 
 / ! end of controls namelist
 
 
 &pgstar
 
-      read_extra_pgstar_inlist(1) = .true.
-      extra_pgstar_inlist_name(1)= 'inlist_7M_prems_to_AGB'
+   read_extra_pgstar_inlist(1) = .true.
+   extra_pgstar_inlist_name(1)= 'inlist_pgstar'
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/7M_prems_to_AGB/inlist_pgstar b/star/test_suite/7M_prems_to_AGB/inlist_pgstar
new file mode 100644
index 000000000..c80d425e1
--- /dev/null
+++ b/star/test_suite/7M_prems_to_AGB/inlist_pgstar
@@ -0,0 +1,32 @@
+&pgstar
+
+   ! device
+   file_white_on_black_flag = .true.
+   file_device = 'vcps'      ! postscript
+   file_extension = 'ps'
+   !file_device = 'png'      ! png
+   !file_extension = 'png'
+
+   pgstar_interval = 10
+
+   HR_win_flag = .true.
+   HR_win_width = 12
+   HR_win_aspect_ratio = 1.2 ! aspect_ratio = height/width
+
+   HR_logT_min = 3.5
+   HR_logT_max = 4.5
+   HR_logL_min = 2.7
+   HR_logL_max = 4.4
+
+   ! file output
+   HR_file_flag = .true.
+   HR_file_dir = 'pgstar_out'
+   HR_file_prefix = 'hr'
+   HR_file_interval = 100 ! output when mod(model_number,HR_file_interval)==0
+   HR_file_width = 15 ! negative means use same value as for window
+   HR_file_aspect_ratio = -1 ! negative means use same value as for window
+
+   show_HR_classical_instability_strip = .true.
+   show_HR_Mira_instability_region = .false.
+
+/ ! end of pgstar namelist
diff --git a/star/test_suite/7M_prems_to_AGB/inlist_start b/star/test_suite/7M_prems_to_AGB/inlist_start
index 974644a29..d1055e923 100644
--- a/star/test_suite/7M_prems_to_AGB/inlist_start
+++ b/star/test_suite/7M_prems_to_AGB/inlist_start
@@ -1,43 +1,46 @@
 
 &star_job
 
-      show_log_description_at_start = .false.
-      
-      create_pre_main_sequence_model = .true.
-      
+   show_log_description_at_start = .false.
 
-      save_model_when_terminate = .true.
-      save_model_filename = 'start.mod'
-      required_termination_code_string = 'max_age'
+   create_pre_main_sequence_model = .true.
 
-      change_initial_net = .true.      
-      new_net_name = 'o18_and_ne22.net'
+
+   save_model_when_terminate = .true.
+   save_model_filename = 'start.mod'
+   required_termination_code_string = 'max_age'
+
+   change_initial_net = .true.
+   new_net_name = 'o18_and_ne22.net'
 
 
 / ! end of star_job namelist
 
 &kap
-      Zbase = 0.001
-      use_Type2_opacities = .true.
+   Zbase = 0.001
+   use_Type2_opacities = .true.
 / !end of kap namelist
 
+&eos
+
+/ !end of eos namelist
+
 &controls
 
-      ! limit max_model_number as part of test_suite
-      max_model_number = 150
-      use_gold2_tolerances = .true.
-      
-      max_age = 0.5d0
+   ! limit max_model_number as part of test_suite
+   max_model_number = 150
+   use_gold2_tolerances = .true.
 
-      initial_mass = 7.00
-      initial_z = 0.001
-      
-      photo_interval = 50
-      profile_interval = 100
-      history_interval = 10
-      terminal_interval = 10
-      write_header_frequency = 10
+   max_age = 0.5d0
 
+   initial_mass = 7.00
+   initial_z = 0.001
+
+   photo_interval = 50
+   profile_interval = 100
+   history_interval = 10
+   terminal_interval = 10
+   write_header_frequency = 10
 
-/ ! end of controls namelist
 
+/ ! end of controls namelist
diff --git a/star/test_suite/7M_prems_to_AGB/inlist_start_header b/star/test_suite/7M_prems_to_AGB/inlist_start_header
index 8852b908a..3a86b4deb 100644
--- a/star/test_suite/7M_prems_to_AGB/inlist_start_header
+++ b/star/test_suite/7M_prems_to_AGB/inlist_start_header
@@ -1,25 +1,24 @@
 
 &star_job
 
-
-      read_extra_star_job_inlist(2) = .true.
-      extra_star_job_inlist_name(2) = 'inlist_start'
+   read_extra_star_job_inlist(2) = .true.
+   extra_star_job_inlist_name(2) = 'inlist_start'
 
 / ! end of star_job namelist
 
 
 &eos
 
-      read_extra_eos_inlist(1) = .true.
-      extra_eos_inlist_name(1) = 'inlist_start'
+   read_extra_eos_inlist(1) = .true.
+   extra_eos_inlist_name(1) = 'inlist_start'
 
 / ! end of eos namelist
 
 
 &kap
 
-      read_extra_kap_inlist(1) = .true.
-      extra_kap_inlist_name(1) = 'inlist_start'
+   read_extra_kap_inlist(1) = .true.
+   extra_kap_inlist_name(1) = 'inlist_start'
 
 / ! end of kap namelist
 
@@ -27,15 +26,15 @@
 
 &controls
 
-      read_extra_controls_inlist(1) = .true.
-      extra_controls_inlist_name(1)= 'inlist_start'
+   read_extra_controls_inlist(1) = .true.
+   extra_controls_inlist_name(1)= 'inlist_start'
 
 / ! end of controls namelist
 
 
 &pgstar
 
-      read_extra_pgstar_inlist(1) = .true.
-      extra_pgstar_inlist_name(1)= 'inlist_start'
+   read_extra_pgstar_inlist(1) = .true.
+   extra_pgstar_inlist_name(1)= 'inlist_start'
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/R_CrB_star/README.rst b/star/test_suite/R_CrB_star/README.rst
index de7d3121f..536ddaa5e 100644
--- a/star/test_suite/R_CrB_star/README.rst
+++ b/star/test_suite/R_CrB_star/README.rst
@@ -51,7 +51,7 @@ skip to part 3.  Options shared between all parts are contained in
 Click to see a larger plot:
 
 .. image:: ../../../star/test_suite/R_CrB_star/docs/grid1-000709.svg
-   :scale: 100%
+   :width: 100%
 
 .. |Weiss1987| replace:: `Weiss (1987) <https://ui.adsabs.harvard.edu/abs/1987A%26A...185..165W/abstract>`__           
 .. |Schwab2019| replace:: `Schwab (2019) <https://ui.adsabs.harvard.edu/abs/2019ApJ...885...27S/abstract>`__
diff --git a/star/test_suite/accreted_material_j/README.rst b/star/test_suite/accreted_material_j/README.rst
index 7155dd449..a743f35ac 100644
--- a/star/test_suite/accreted_material_j/README.rst
+++ b/star/test_suite/accreted_material_j/README.rst
@@ -14,51 +14,17 @@ This test case has two parts. Click to see a larger view of a plot.
 * Part 2 (``inlist_accreted_material_j``) continues the evolution by first applying uniform rotation Omega/Omega_crit = 0.1, and then accreting material with the same composition as the outermost cell at a rate of 0.001 Msun/year with an angular momentum of 0.1 Keplerian. The model terminates when the mass reaches 25 Msun:
 
 .. image:: ../../../star/test_suite/accreted_material_j/docs/track1_000452.svg
-   :scale: 100%
+   :width: 100%
 
 
 pgstar commands used for the plots above:
 
-.. code-block:: console
-
- &pgstar
-
-   file_white_on_black_flag = .true. ! white_on_black flags -- true means white foreground color on black background
-   file_device = 'png'            ! png
-   file_extension = 'png'
-
-   !file_device = 'vcps'          ! postscript
-   !file_extension = 'ps'
-
-    pgstar_interval = 10
-
-
-    History_Track1_win_flag = .true.
-    History_Track1_win_width = 12
-    History_Track1_title = 'accreted_material_j'                                                                                                                                                                                   
-    History_Track1_xname = 'star_mass'
-    History_Track1_yname = 'log_total_angular_momentum'
-    History_Track1_yaxis_label = 'log J'
-    History_Track1_xaxis_label = 'M\d\(2281)'
-    History_Track1_reverse_xaxis = .false.
-    History_Track1_reverse_yaxis = .false.
-
-    History_Track1_xmin = 20.0
-    History_Track1_xmax = 25.0
-    History_Track1_ymin = 51.9
-    History_Track1_ymax = 52.7
-
- ! file output
-    History_Track1_file_flag = .true.
-    History_Track1_file_dir = 'png'
-    History_Track1_file_prefix = 'track1_'
-    History_Track1_file_interval = 10
-    History_Track1_file_width =12
-    History_Track1_file_aspect_ratio = -1
-
- / ! end of pgstar namelist
-
+.. literalinclude:: ../../../star/test_suite/accreted_material_j/inlist_pgstar
+  :language: console
+  :start-at: &pgstar
+  :end-at: ! end of pgstar namelist
 
 
 Last-Updated: 30May2021 (MESA e37f76f) by fxt
 
+Last-Run: 06Aug2024 (MESA ba042c9d) by pmocz on C916PXT6XW in 178 seconds using 8 threads.
diff --git a/star/test_suite/accreted_material_j/docs/track1_000452.svg b/star/test_suite/accreted_material_j/docs/track1_000452.svg
index 38926ebb7..3834ebefc 100644
--- a/star/test_suite/accreted_material_j/docs/track1_000452.svg
+++ b/star/test_suite/accreted_material_j/docs/track1_000452.svg
@@ -1,186 +1 @@
-<?xml version="1.0" encoding="utf-8"?>
-<!-- Generator: Adobe Illustrator 25.2.3, SVG Export Plug-In . SVG Version: 6.00 Build 0)  -->
-<svg version="1.1" id="Layer_1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" x="0px" y="0px"
-	 viewBox="0 0 721.15 580.61" style="enable-background:new 0 0 721.15 580.61;" xml:space="preserve">
-<style type="text/css">
-	.st0{fill-rule:evenodd;clip-rule:evenodd;}
-	.st1{fill:none;stroke:#FFFFFF;stroke-width:1.08;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st2{fill:none;stroke:#FFFFFF;stroke-width:1.44;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st3{fill:none;stroke:#008080;stroke-width:2.88;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-</style>
-<rect class="st0" width="721.15" height="580.84"/>
-<path class="st1" d="M98.45,511.43h604.8 M703.25,511.43V57.83 M703.25,57.83H98.45 M98.45,57.83v453.6 M98.45,511.43v-9
-	 M122.64,511.43v-4.46 M146.83,511.43v-4.46 M171.03,511.43v-4.46 M195.22,511.43v-4.46 M219.41,511.43v-9 M243.6,511.43v-4.46
-	 M267.79,511.43v-4.46 M291.99,511.43v-4.46 M316.18,511.43v-4.46 M340.37,511.43v-9 M364.56,511.43v-4.46 M388.75,511.43v-4.46
-	 M412.95,511.43v-4.46 M437.14,511.43v-4.46 M461.33,511.43v-9 M485.52,511.43v-4.46 M509.71,511.43v-4.46 M533.91,511.43v-4.46
-	 M558.1,511.43v-4.46 M582.29,511.43v-9 M606.48,511.43v-4.46 M630.67,511.43v-4.46 M654.87,511.43v-4.46 M679.06,511.43v-4.46
-	 M703.25,511.43v-9 M98.45,66.83v-9 M122.64,62.3v-4.46 M146.83,62.3v-4.46 M171.03,62.3v-4.46 M195.22,62.3v-4.46 M219.41,66.83v-9
-	 M243.6,62.3v-4.46 M267.79,62.3v-4.46 M291.99,62.3v-4.46 M316.18,62.3v-4.46 M340.37,66.83v-9 M364.56,62.3v-4.46 M388.75,62.3
-	v-4.46 M412.95,62.3v-4.46 M437.14,62.3v-4.46 M461.33,66.83v-9 M485.52,62.3v-4.46 M509.71,62.3v-4.46 M533.91,62.3v-4.46
-	 M558.1,62.3v-4.46 M582.29,66.83v-9 M606.48,62.3v-4.46 M630.67,62.3v-4.46 M654.87,62.3v-4.46 M679.06,62.3v-4.46 M703.25,66.83
-	v-9 M88.87,525.18v-0.58 M88.87,524.61l0.58-1.22 M89.45,523.38l0.65-0.58 M90.1,522.81l1.15-0.58 M91.25,522.23h2.45 M93.7,522.23
-	l1.15,0.58 M94.85,522.81l0.58,0.58 M95.43,523.38l0.65,1.22 M96.07,524.61v1.15 M96.07,525.76l-0.65,1.22 M95.43,526.98l-1.15,1.8
-	 M94.27,528.78l-5.98,5.98 M88.3,534.76h8.35 M103.85,522.23l-1.8,0.58 M102.05,522.81l-1.22,1.8 M100.83,524.61l-0.58,2.95
-	 M100.25,527.56v1.8 M100.25,529.36l0.58,3.02 M100.83,532.38l1.22,1.8 M102.05,534.18l1.8,0.58 M103.85,534.76H105 M105,534.76
-	l1.8-0.58 M106.8,534.18l1.22-1.8 M108.03,532.38l0.58-3.02 M108.6,529.36v-1.8 M108.6,527.56l-0.58-2.95 M108.03,524.61l-1.22-1.8
-	 M106.8,522.81l-1.8-0.58 M105,522.23h-1.15 M209.83,525.18v-0.58 M209.83,524.61l0.58-1.22 M210.41,523.38l0.65-0.58
-	 M211.06,522.81l1.15-0.58 M212.21,522.23h2.45 M214.66,522.23l1.15,0.58 M215.81,522.81l0.58,0.58 M216.39,523.38l0.65,1.22
-	 M217.03,524.61v1.15 M217.03,525.76l-0.65,1.22 M216.39,526.98l-1.15,1.8 M215.23,528.78l-5.98,5.98 M209.26,534.76h8.35
-	 M223.01,524.61l1.15-0.65 M224.16,523.96l1.8-1.73 M225.96,522.23v12.53 M330.79,525.18v-0.58 M330.79,524.61l0.58-1.22
-	 M331.37,523.38l0.65-0.58 M332.02,522.81l1.15-0.58 M333.17,522.23h2.45 M335.62,522.23l1.15,0.58 M336.77,522.81l0.58,0.58
-	 M337.35,523.38l0.65,1.22 M337.99,524.61v1.15 M337.99,525.76l-0.65,1.22 M337.35,526.98l-1.15,1.8 M336.19,528.78l-5.98,5.98
-	 M330.22,534.76h8.35 M342.75,525.18v-0.58 M342.75,524.61l0.65-1.22 M343.39,523.38l0.58-0.58 M343.97,522.81l1.15-0.58
-	 M345.12,522.23h2.45 M347.57,522.23l1.15,0.58 M348.72,522.81l0.65,0.58 M349.37,523.38l0.58,1.22 M349.95,524.61v1.15
-	 M349.95,525.76l-0.58,1.22 M349.37,526.98l-1.22,1.8 M348.15,528.78l-5.98,5.98 M342.17,534.76h8.35 M451.75,525.18v-0.58
-	 M451.75,524.61l0.58-1.22 M452.33,523.38l0.65-0.58 M452.98,522.81l1.15-0.58 M454.13,522.23h2.45 M456.58,522.23l1.15,0.58
-	 M457.73,522.81l0.58,0.58 M458.31,523.38l0.65,1.22 M458.95,524.61v1.15 M458.95,525.76l-0.65,1.22 M458.31,526.98l-1.15,1.8
-	 M457.15,528.78l-5.98,5.98 M451.18,534.76h8.35 M464.35,522.23h6.55 M470.91,522.23l-3.6,4.75 M467.31,526.98h1.8 M469.11,526.98
-	l1.22,0.58 M470.33,527.56l0.58,0.65 M470.91,528.21l0.58,1.8 M471.48,530.01v1.15 M471.48,531.16l-0.58,1.8 M470.91,532.96
-	l-1.22,1.22 M469.68,534.18l-1.8,0.58 M467.88,534.76h-1.8 M466.08,534.76l-1.73-0.58 M464.35,534.18l-0.65-0.65 M463.71,533.54
-	l-0.58-1.15 M572.71,525.18v-0.58 M572.71,524.61l0.58-1.22 M573.29,523.38l0.65-0.58 M573.94,522.81l1.15-0.58 M575.09,522.23h2.45
-	 M577.54,522.23l1.15,0.58 M578.69,522.81l0.58,0.58 M579.27,523.38l0.65,1.22 M579.91,524.61v1.15 M579.91,525.76l-0.65,1.22
-	 M579.27,526.98l-1.15,1.8 M578.11,528.78l-5.98,5.98 M572.14,534.76h8.35 M590.07,522.23l-5.98,8.35 M584.09,530.58h9
-	 M590.07,522.23v12.53 M693.67,525.18v-0.58 M693.67,524.61l0.58-1.22 M694.25,523.38l0.65-0.58 M694.9,522.81l1.15-0.58
-	 M696.05,522.23h2.45 M698.5,522.23l1.15,0.58 M699.65,522.81l0.58,0.58 M700.23,523.38l0.65,1.22 M700.87,524.61v1.15
-	 M700.87,525.76l-0.65,1.22 M700.23,526.98l-1.15,1.8 M699.07,528.78l-5.98,5.98 M693.1,534.76h8.35 M712.25,522.23h-5.98
-	 M706.27,522.23l-0.65,5.33 M705.63,527.56l0.65-0.58 M706.27,526.98l1.73-0.58 M708,526.41h1.8 M709.8,526.41l1.8,0.58
-	 M711.6,526.98l1.22,1.22 M712.83,528.21l0.58,1.8 M713.4,530.01v1.15 M713.4,531.16l-0.58,1.8 M712.83,532.96l-1.22,1.22
-	 M711.6,534.18l-1.8,0.58 M709.8,534.76H708 M708,534.76l-1.73-0.58 M706.27,534.18l-0.65-0.65 M705.63,533.54l-0.58-1.15
-	 M98.45,511.43h4.46"/>
-<path class="st1" d="M98.45,454.77h9 M98.45,398.03h4.46 M98.45,341.37h9 M98.45,284.63h4.46 M98.45,227.9h9 M98.45,171.23h4.46
-	 M98.45,114.5h9 M98.45,57.83h4.46 M698.79,511.43h4.46 M694.25,454.77h9 M698.79,398.03h4.46 M694.25,341.37h9 M698.79,284.63h4.46
-	 M694.25,227.9h9 M698.79,171.23h4.46 M694.25,114.5h9 M698.79,57.83h4.46 M69.87,448h-5.98 M63.89,448l-0.58,5.4 M63.31,453.4
-	l0.58-0.58 M63.89,452.82l1.8-0.65 M65.69,452.18h1.8 M67.49,452.18l1.8,0.65 M69.29,452.82l1.22,1.15 M70.51,453.98l0.58,1.8
-	 M71.09,455.78V457 M71.09,457l-0.58,1.8 M70.51,458.8l-1.22,1.15 M69.29,459.95l-1.8,0.65 M67.49,460.6h-1.8 M65.69,460.6
-	l-1.8-0.65 M63.89,459.95l-0.58-0.58 M63.31,459.38l-0.58-1.22 M75.27,451.02v-0.65 M75.27,450.38l0.58-1.15 M75.84,449.22
-	l0.65-0.65 M76.49,448.58l1.15-0.58 M77.64,448h2.45 M80.09,448l1.15,0.58 M81.24,448.58l0.58,0.65 M81.82,449.22l0.65,1.15
-	 M82.47,450.38v1.22 M82.47,451.6l-0.65,1.22 M81.82,452.82l-1.15,1.73 M80.67,454.55l-5.98,6.05 M74.69,460.6h8.35 M51.94,334.6
-	h-5.98 M45.96,334.6l-0.58,5.4 M45.39,340l0.58-0.58 M45.96,339.42l1.8-0.65 M47.76,338.78h1.8 M49.56,338.78l1.8,0.65
-	 M51.36,339.42l1.15,1.15 M52.51,340.58l0.65,1.8 M53.16,342.38v1.22 M53.16,343.6l-0.65,1.8 M52.51,345.4l-1.15,1.15 M51.36,346.55
-	l-1.8,0.65 M49.56,347.2h-1.8 M47.76,347.2l-1.8-0.65 M45.96,346.55l-0.58-0.58 M45.39,345.98l-0.65-1.22 M57.34,337.62v-0.65
-	 M57.34,336.98l0.58-1.15 M57.91,335.82l0.58-0.65 M58.49,335.18l1.22-0.58 M59.71,334.6h2.38 M62.09,334.6l1.22,0.58 M63.31,335.18
-	l0.58,0.65 M63.89,335.82l0.65,1.15 M64.54,336.98v1.22 M64.54,338.2l-0.65,1.22 M63.89,339.42l-1.15,1.73 M62.74,341.15l-5.98,6.05
-	 M56.76,347.2h8.35 M69.87,345.98l-0.58,0.58 M69.29,346.55l0.58,0.65 M69.87,347.2l0.65-0.65 M70.51,346.55l-0.65-0.58
-	 M75.27,337.62v-0.65 M75.27,336.98l0.58-1.15 M75.84,335.82l0.65-0.65 M76.49,335.18l1.15-0.58 M77.64,334.6h2.45 M80.09,334.6
-	l1.15,0.58 M81.24,335.18l0.58,0.65 M81.82,335.82l0.65,1.15 M82.47,336.98v1.22 M82.47,338.2l-0.65,1.22 M81.82,339.42l-1.15,1.73
-	 M80.67,341.15l-5.98,6.05 M74.69,347.2h8.35 M51.94,221.2h-5.98 M45.96,221.2l-0.58,5.4 M45.39,226.6l0.58-0.65 M45.96,225.95
-	l1.8-0.58 M47.76,225.38h1.8 M49.56,225.38l1.8,0.58 M51.36,225.95l1.15,1.22 M52.51,227.18l0.65,1.8 M53.16,228.98v1.22
-	 M53.16,230.2l-0.65,1.8 M52.51,232l-1.15,1.15 M51.36,233.15l-1.8,0.58 M49.56,233.73h-1.8 M47.76,233.73l-1.8-0.58 M45.96,233.15
-	l-0.58-0.58 M45.39,232.58l-0.65-1.22 M57.34,224.22v-0.65 M57.34,223.58l0.58-1.15 M57.91,222.42l0.58-0.65 M58.49,221.78
-	l1.22-0.58 M59.71,221.2h2.38 M62.09,221.2l1.22,0.58 M63.31,221.78l0.58,0.65 M63.89,222.42l0.65,1.15 M64.54,223.58v1.22
-	 M64.54,224.8l-0.65,1.15 M63.89,225.95l-1.15,1.8 M62.74,227.75l-5.98,5.98 M56.76,233.73h8.35 M69.87,232.58l-0.58,0.58
-	 M69.29,233.15l0.58,0.58 M69.87,233.73l0.65-0.58 M70.51,233.15l-0.65-0.58 M80.67,221.2l-5.98,8.35 M74.69,229.55h8.93
-	 M80.67,221.2v12.53 M51.94,107.8h-5.98 M45.96,107.8l-0.58,5.4 M45.39,113.2l0.58-0.65 M45.96,112.55l1.8-0.58 M47.76,111.98h1.8
-	 M49.56,111.98l1.8,0.58 M51.36,112.55l1.15,1.22 M52.51,113.78l0.65,1.8 M53.16,115.58v1.22 M53.16,116.8l-0.65,1.8 M52.51,118.6
-	l-1.15,1.15 M51.36,119.75l-1.8,0.58 M49.56,120.33h-1.8 M47.76,120.33l-1.8-0.58 M45.96,119.75l-0.58-0.58 M45.39,119.18
-	l-0.65-1.22 M57.34,110.82v-0.65 M57.34,110.18l0.58-1.15 M57.91,109.02l0.58-0.65 M58.49,108.38l1.22-0.58 M59.71,107.8h2.38
-	 M62.09,107.8l1.22,0.58 M63.31,108.38l0.58,0.65 M63.89,109.02l0.65,1.15 M64.54,110.18v1.22 M64.54,111.4l-0.65,1.15
-	 M63.89,112.55l-1.15,1.8 M62.74,114.35l-5.98,5.98 M56.76,120.33h8.35 M69.87,119.18l-0.58,0.58 M69.29,119.75l0.58,0.58
-	 M69.87,120.33l0.65-0.58 M70.51,119.75l-0.65-0.58 M82.47,109.6l-0.65-1.22 M81.82,108.38l-1.73-0.58 M80.09,107.8h-1.22
-	 M78.87,107.8l-1.8,0.58 M77.07,108.38l-1.22,1.8 M75.84,110.18l-0.58,3.02 M75.27,113.2v2.95 M75.27,116.15l0.58,2.45 M75.84,118.6
-	l1.22,1.15 M77.07,119.75l1.8,0.58 M78.87,120.33h0.58 M79.44,120.33l1.8-0.58 M81.24,119.75l1.22-1.15 M82.47,118.6l0.58-1.8
-	 M83.04,116.8v-0.65 M83.04,116.15l-0.58-1.8 M82.47,114.35l-1.22-1.15 M81.24,113.2l-1.8-0.65 M79.44,112.55h-0.58 M78.87,112.55
-	l-1.8,0.65 M77.07,113.2l-1.22,1.15 M75.84,114.35l-0.58,1.8"/>
-<path class="st2" d="M388.83,549.16v15.7 M388.83,549.16l5.98,15.7 M400.78,549.16l-5.98,15.7 M400.78,549.16v15.7 M410.5,562.12
-	l-1.66,0.5 M408.84,562.62l-1.73,1.15 M407.11,563.78l-1.08,1.66 M406.03,565.43l-0.58,1.73 M405.46,567.16v1.66 M405.46,568.82
-	l0.58,1.66 M406.03,570.47l1.08,1.73 M407.11,572.2l1.73,1.08 M408.84,573.28l1.66,0.58 M410.5,573.86h1.66 M412.15,573.86
-	l1.73-0.58 M413.88,573.28l1.66-1.08 M415.54,572.2l1.15-1.73 M416.69,570.47l0.5-1.66 M417.19,568.82v-1.66 M417.19,567.16
-	l-0.5-1.73 M416.69,565.43l-1.15-1.66 M415.54,563.78l-1.66-1.15 M413.88,562.62l-1.73-0.5 M412.15,562.12h-1.66 M411.07,567.16
-	l-0.58,0.5 M410.5,567.66v0.58 M410.5,568.24l0.58,0.58 M411.07,568.82h0.58 M411.65,568.82l0.5-0.58 M412.15,568.24v-0.58
-	 M412.15,567.66l-0.5-0.5 M411.65,567.16h-0.58 M411.07,567.66v0.58 M411.07,568.24h0.58 M411.65,568.24v-0.58 M411.65,567.66h-0.58
-	 M7.44,310.77h15.7 M12.63,301.84l0.79,1.51 M13.42,303.35l1.51,1.44 M14.93,304.79l2.23,0.79 M17.16,305.58h1.44 M18.6,305.58
-	l2.3-0.79 M20.91,304.79l1.44-1.44 M22.35,303.35l0.79-1.51 M23.14,301.84v-2.23 M23.14,299.61l-0.79-1.51 M22.35,298.1l-1.44-1.51
-	 M20.91,296.58l-2.3-0.72 M18.6,295.86h-1.44 M17.16,295.86l-2.23,0.72 M14.93,296.58l-1.51,1.51 M13.42,298.1l-0.79,1.51
-	 M12.63,299.61v2.23 M12.63,282.4h12.02 M24.65,282.4l2.23,0.72 M26.88,283.12l0.72,0.79 M27.6,283.91l0.72,1.44 M28.32,285.35v2.3
-	 M28.32,287.66l-0.72,1.44 M14.93,282.4l-1.51,1.51 M13.42,283.91l-0.79,1.44 M12.63,285.35v2.3 M12.63,287.66l0.79,1.44
-	 M13.42,289.1l1.51,1.51 M14.93,290.61l2.23,0.72 M17.16,291.33h1.44 M18.6,291.33l2.3-0.72 M20.91,290.61l1.44-1.51 M22.35,289.1
-	l0.79-1.44 M23.14,287.66v-2.3 M23.14,285.35l-0.79-1.44 M22.35,283.91l-1.44-1.51 M7.44,258.5h11.95 M19.39,258.5l2.23,0.72
-	 M21.63,259.22l0.72,0.72 M22.35,259.94l0.79,1.51 M23.14,261.45v1.51 M23.14,262.96l-0.79,1.51 M22.35,264.47l-0.72,0.72
-	 M21.63,265.19l-2.23,0.72 M19.39,265.91h-1.51"/>
-<path class="st1" d="M643.13,13.34v5.62 M643.13,14.99l1.15-1.22 M644.28,13.77l0.79-0.43 M645.07,13.34h1.22 M646.3,13.34
-	l0.79,0.43 M647.09,13.77l0.43,1.22 M647.52,14.99v3.96 M647.52,14.99l1.15-1.22 M648.67,13.77l0.79-0.43 M649.47,13.34h1.22
-	 M650.69,13.34l0.79,0.43 M651.48,13.77l0.36,1.22 M651.84,14.99v3.96 M656.67,13.34l-0.79,0.43 M655.87,13.77l-0.79,0.79
-	 M655.08,14.56l-0.43,1.22 M654.65,15.78v0.79 M654.65,16.58l0.43,1.15 M655.08,17.73l0.79,0.79 M655.87,18.52l0.79,0.43
-	 M656.67,18.95h1.22 M657.89,18.95l0.79-0.43 M658.68,18.52l0.79-0.79 M659.47,17.73l0.36-1.15 M659.83,16.58v-0.79 M659.83,15.78
-	l-0.36-1.22 M659.47,14.56l-0.79-0.79 M658.68,13.77l-0.79-0.43 M657.89,13.34h-1.22 M667.03,10.6v8.35 M667.03,14.56l-0.79-0.79
-	 M666.24,13.77l-0.79-0.43 M665.45,13.34h-1.22 M664.23,13.34l-0.79,0.43 M663.43,13.77l-0.79,0.79 M662.64,14.56l-0.43,1.22
-	 M662.21,15.78v0.79 M662.21,16.58l0.43,1.15 M662.64,17.73l0.79,0.79 M663.43,18.52l0.79,0.43 M664.23,18.95h1.22 M665.45,18.95
-	l0.79-0.43 M666.24,18.52l0.79-0.79 M669.84,15.78h4.75 M674.59,15.78v-0.79 M674.59,14.99l-0.36-0.79 M674.23,14.2l-0.43-0.43
-	 M673.8,13.77l-0.79-0.43 M673.01,13.34h-1.22 M671.79,13.34l-0.79,0.43 M670.99,13.77l-0.79,0.79 M670.2,14.56l-0.36,1.22
-	 M669.84,15.78v0.79 M669.84,16.58l0.36,1.15 M670.2,17.73l0.79,0.79 M670.99,18.52l0.79,0.43 M671.79,18.95h1.22 M673.01,18.95
-	l0.79-0.43 M673.8,18.52l0.79-0.79 M677.4,10.6v8.35 M690.58,10.6l-4.03,5.54 M686.55,16.14h5.98 M690.58,10.6v8.35 M699.36,10.6
-	h-4.03 M695.33,10.6l-0.36,3.6 M694.97,14.2l0.36-0.43 M695.33,13.77l1.22-0.43 M696.55,13.34h1.15 M697.71,13.34l1.22,0.43
-	 M698.93,13.77l0.79,0.79 M699.72,14.56l0.43,1.22 M700.15,15.78v0.79 M700.15,16.58l-0.43,1.15 M699.72,17.73l-0.79,0.79
-	 M698.93,18.52l-1.22,0.43 M697.71,18.95h-1.15 M696.55,18.95l-1.22-0.43 M695.33,18.52l-0.36-0.36 M694.97,18.16l-0.43-0.79
-	 M702.89,12.54v-0.36 M702.89,12.18l0.43-0.79 M703.32,11.39l0.36-0.43 M703.68,10.96l0.86-0.36 M704.55,10.6h1.58 M706.13,10.6
-	l0.79,0.36 M706.92,10.96l0.36,0.43 M707.28,11.39l0.43,0.79 M707.71,12.18v0.79 M707.71,12.98l-0.43,0.79 M707.28,13.77l-0.79,1.22
-	 M706.49,14.99l-3.96,3.96 M702.53,18.95h5.54 M80.23,13.34v5.62 M80.23,14.56l-0.79-0.79 M79.44,13.77l-0.79-0.43 M78.65,13.34
-	h-1.22 M77.43,13.34l-0.79,0.43 M76.63,13.77l-0.79,0.79 M75.84,14.56l-0.36,1.22 M75.48,15.78v0.79 M75.48,16.58l0.36,1.15
-	 M75.84,17.73l0.79,0.79 M76.63,18.52l0.79,0.43 M77.43,18.95h1.22 M78.65,18.95l0.79-0.43 M79.44,18.52l0.79-0.79 M87.79,13.34
-	v6.41 M87.79,19.74l-0.36,1.22 M87.43,20.97L87,21.33 M87,21.33l-0.79,0.43 M86.21,21.76h-1.15 M85.06,21.76l-0.86-0.43
-	 M87.79,14.56L87,13.77 M87,13.77l-0.79-0.43 M86.21,13.34h-1.15 M85.06,13.34l-0.86,0.43 M84.19,13.77l-0.79,0.79 M83.4,14.56
-	l-0.36,1.22 M83.04,15.78v0.79 M83.04,16.58l0.36,1.15 M83.4,17.73l0.79,0.79 M84.19,18.52l0.86,0.43 M85.06,18.95h1.15
-	 M86.21,18.95L87,18.52 M87,18.52l0.79-0.79 M90.6,15.78h4.82 M95.43,15.78v-0.79 M95.43,14.99l-0.43-0.79 M94.99,14.2l-0.43-0.43
-	 M94.56,13.77l-0.79-0.43 M93.77,13.34h-1.15 M92.62,13.34l-0.79,0.43 M91.83,13.77l-0.79,0.79 M91.03,14.56l-0.43,1.22 M90.6,15.78
-	v0.79 M90.6,16.58l0.43,1.15 M91.03,17.73l0.79,0.79 M91.83,18.52l0.79,0.43 M92.62,18.95h1.15 M93.77,18.95l0.79-0.43 M94.56,18.52
-	l0.86-0.79 M108.96,10.6h-4.03 M104.93,10.6l-0.36,3.6 M104.57,14.2l0.36-0.43 M104.93,13.77l1.22-0.43 M106.15,13.34h1.22
-	 M107.38,13.34l1.15,0.43 M108.53,13.77l0.79,0.79 M109.32,14.56l0.43,1.22 M109.75,15.78v0.79 M109.75,16.58l-0.43,1.15
-	 M109.32,17.73l-0.79,0.79 M108.53,18.52l-1.15,0.43 M107.38,18.95h-1.22 M106.15,18.95l-1.22-0.43 M104.93,18.52l-0.36-0.36
-	 M104.57,18.16l-0.43-0.79 M112.92,18.16l-0.36,0.36 M112.56,18.52l0.36,0.43 M112.92,18.95l0.43-0.43 M113.35,18.52l-0.43-0.36
-	 M118.54,10.6l-1.22,0.36 M117.31,10.96l-0.79,1.22 M116.52,12.18l-0.36,2.02 M116.16,14.2v1.15 M116.16,15.35l0.36,2.02
-	 M116.52,17.37l0.79,1.15 M117.31,18.52l1.22,0.43 M118.54,18.95h0.79 M119.33,18.95l1.15-0.43 M120.48,18.52l0.86-1.15
-	 M121.35,17.37l0.36-2.02 M121.71,15.35V14.2 M121.71,14.2l-0.36-2.02 M121.35,12.18l-0.86-1.22 M120.48,10.96l-1.15-0.36
-	 M119.33,10.6h-0.79 M126.53,10.6l-1.22,0.36 M125.31,10.96l-0.79,1.22 M124.51,12.18l-0.43,2.02 M124.08,14.2v1.15 M124.08,15.35
-	l0.43,2.02 M124.51,17.37l0.79,1.15 M125.31,18.52l1.22,0.43 M126.53,18.95h0.79 M127.32,18.95l1.15-0.43 M128.47,18.52l0.79-1.15
-	 M129.27,17.37l0.43-2.02 M129.7,15.35V14.2 M129.7,14.2l-0.43-2.02 M129.27,12.18l-0.79-1.22 M128.47,10.96l-1.15-0.36
-	 M127.32,10.6h-0.79 M134.45,10.6l-1.15,0.36 M133.3,10.96l-0.79,1.22 M132.51,12.18l-0.43,2.02 M132.07,14.2v1.15 M132.07,15.35
-	l0.43,2.02 M132.51,17.37l0.79,1.15 M133.3,18.52l1.15,0.43"/>
-<path class="st1" d="M134.45,18.95h0.79 M135.24,18.95l1.22-0.43 M136.47,18.52l0.79-1.15 M137.26,17.37l0.43-2.02 M137.69,15.35
-	V14.2 M137.69,14.2l-0.43-2.02 M137.26,12.18l-0.79-1.22 M136.47,10.96l-1.22-0.36 M135.24,10.6h-0.79 M145.61,10.6l-3.96,8.35
-	 M140.07,10.6h5.54 M152.02,10.6l-3.96,5.54 M148.06,16.14h5.98 M152.02,10.6v8.35 M161.59,10.6l-3.96,8.35 M155.98,10.6h5.62
-	 M163.97,15.78h4.82 M168.79,15.78v-0.79 M168.79,14.99l-0.43-0.79 M168.36,14.2L168,13.77 M168,13.77l-0.86-0.43 M167.14,13.34
-	h-1.15 M165.99,13.34l-0.79,0.43 M165.19,13.77l-0.79,0.79 M164.4,14.56l-0.43,1.22 M163.97,15.78v0.79 M163.97,16.58l0.43,1.15
-	 M164.4,17.73l0.79,0.79 M165.19,18.52l0.79,0.43 M165.99,18.95h1.15 M167.14,18.95l0.86-0.43 M168,18.52l0.79-0.79 M171.96,10.6
-	h4.39 M176.35,10.6l-2.38,3.17 M173.98,13.77h1.15 M175.13,13.77l0.79,0.43 M175.92,14.2l0.43,0.36 M176.35,14.56l0.36,1.22
-	 M176.71,15.78v0.79 M176.71,16.58l-0.36,1.15 M176.35,17.73l-0.79,0.79 M175.56,18.52l-1.22,0.43 M174.34,18.95h-1.15
-	 M173.19,18.95l-1.22-0.43 M171.96,18.52l-0.43-0.36 M171.53,18.16l-0.36-0.79 M185.14,13.34l2.38,5.62 M189.89,13.34l-2.38,5.62
-	 M187.51,18.95l-0.79,1.58 M186.72,20.54l-0.79,0.79 M185.93,21.33l-0.79,0.43 M185.14,21.76h-0.43 M192.27,13.34v5.62
-	 M192.27,15.78l0.43-1.22 M192.7,14.56l0.79-0.79 M193.49,13.77l0.79-0.43 M194.28,13.34h1.22 M201.48,14.56l-0.43-0.79
-	 M201.05,13.77l-1.15-0.43 M199.9,13.34h-1.22 M198.67,13.34l-1.22,0.43 M197.45,13.77l-0.36,0.79 M197.09,14.56l0.36,0.79
-	 M197.45,15.35l0.79,0.43 M198.24,15.78l2.02,0.36 M200.26,16.14l0.79,0.43 M201.05,16.58l0.43,0.79 M201.48,17.37v0.36
-	 M201.48,17.73l-0.43,0.79 M201.05,18.52l-1.15,0.43 M199.9,18.95h-1.22 M198.67,18.95l-1.22-0.43 M197.45,18.52l-0.36-0.79
-	 M310.13,25.58v9.07 M310.13,27.52l-1.3-1.3 M308.83,26.22l-1.3-0.65 M307.54,25.58h-1.94 M305.59,25.58l-1.3,0.65 M304.3,26.22
-	l-1.3,1.3 M303,27.52l-0.65,1.94 M302.35,29.46v1.3 M302.35,30.76L303,32.7 M303,32.7l1.3,1.3 M304.3,34l1.3,0.65 M305.59,34.65
-	h1.94 M307.54,34.65l1.3-0.65 M308.83,34l1.3-1.3 M322.44,27.52l-1.3-1.3 M321.15,26.22l-1.3-0.65 M319.85,25.58h-1.94
-	 M317.91,25.58l-1.3,0.65 M316.61,26.22l-1.3,1.3 M315.31,27.52l-0.65,1.94 M314.67,29.46v1.3 M314.67,30.76l0.65,1.94 M315.31,32.7
-	l1.3,1.3 M316.61,34l1.3,0.65 M317.91,34.65h1.94 M319.85,34.65l1.3-0.65 M321.15,34l1.3-1.3 M334.11,27.52l-1.3-1.3 M332.81,26.22
-	l-1.3-0.65 M331.51,25.58h-1.94 M329.57,25.58l-1.3,0.65 M328.27,26.22l-1.3,1.3 M326.98,27.52l-0.65,1.94 M326.33,29.46v1.3
-	 M326.33,30.76l0.65,1.94 M326.98,32.7l1.3,1.3 M328.27,34l1.3,0.65 M329.57,34.65h1.94 M331.51,34.65l1.3-0.65 M332.81,34l1.3-1.3
-	 M338.64,25.58v9.07 M338.64,29.46l0.65-1.94 M339.29,27.52l1.3-1.3 M340.59,26.22l1.3-0.65 M341.88,25.58h1.94 M346.42,29.46h7.78
-	 M354.19,29.46v-1.3 M354.19,28.17l-0.65-1.3 M353.55,26.87l-0.65-0.65 M352.9,26.22l-1.3-0.65 M351.6,25.58h-1.94 M349.66,25.58
-	l-1.3,0.65 M348.36,26.22l-1.3,1.3 M347.07,27.52l-0.65,1.94 M346.42,29.46v1.3 M346.42,30.76l0.65,1.94 M347.07,32.7l1.3,1.3
-	 M348.36,34l1.3,0.65 M349.66,34.65h1.94 M351.6,34.65l1.3-0.65 M352.9,34l1.3-1.3 M359.38,21.04v11.02 M359.38,32.06l0.65,1.94
-	 M360.03,34l1.3,0.65 M361.32,34.65h1.3 M357.43,25.58h4.54 M365.86,29.46h7.78 M373.63,29.46v-1.3 M373.63,28.17l-0.65-1.3
-	 M372.99,26.87l-0.65-0.65 M372.34,26.22l-1.3-0.65 M371.04,25.58h-1.94 M369.1,25.58l-1.3,0.65 M367.8,26.22l-1.3,1.3
-	 M366.51,27.52l-0.65,1.94 M365.86,29.46v1.3 M365.86,30.76l0.65,1.94 M366.51,32.7l1.3,1.3 M367.8,34l1.3,0.65 M369.1,34.65h1.94
-	 M371.04,34.65l1.3-0.65 M372.34,34l1.3-1.3 M385.3,21.04v13.61 M385.3,27.52l-1.3-1.3 M384,26.22l-1.3-0.65 M382.71,25.58h-1.94
-	 M380.76,25.58l-1.3,0.65 M379.47,26.22l-1.3,1.3 M378.17,27.52l-0.65,1.94 M377.52,29.46v1.3 M377.52,30.76l0.65,1.94 M378.17,32.7
-	l1.3,1.3 M379.47,34l1.3,0.65 M380.76,34.65h1.94 M382.71,34.65L384,34 M384,34l1.3-1.3 M387.89,35.94h11.66 M402.79,25.58v9.07
-	 M402.79,28.17l1.94-1.94 M404.74,26.22l1.3-0.65 M406.03,25.58h1.94 M407.98,25.58l1.3,0.65 M409.27,26.22l0.65,1.94 M409.92,28.17
-	v6.48 M409.92,28.17l1.94-1.94 M411.87,26.22l1.3-0.65 M413.16,25.58h1.94 M415.11,25.58l1.3,0.65 M416.4,26.22l0.65,1.94
-	 M417.05,28.17v6.48 M429.36,25.58v9.07 M429.36,27.52l-1.3-1.3 M428.07,26.22l-1.3-0.65 M426.77,25.58h-1.94 M424.83,25.58
-	l-1.3,0.65 M423.53,26.22l-1.3,1.3 M422.23,27.52l-0.65,1.94 M421.59,29.46v1.3 M421.59,30.76l0.65,1.94 M422.23,32.7l1.3,1.3
-	 M423.53,34l1.3,0.65 M424.83,34.65h1.94 M426.77,34.65l1.3-0.65 M428.07,34l1.3-1.3 M435.19,21.04v11.02 M435.19,32.06l0.65,1.94
-	 M435.84,34l1.3,0.65"/>
-<path class="st1" d="M437.14,34.65h1.3 M433.25,25.58h4.54 M441.67,29.46h7.78 M449.45,29.46v-1.3 M449.45,28.17l-0.65-1.3
-	 M448.8,26.87l-0.65-0.65 M448.15,26.22l-1.3-0.65 M446.86,25.58h-1.94 M444.91,25.58l-1.3,0.65 M443.62,26.22l-1.3,1.3
-	 M442.32,27.52l-0.65,1.94 M441.67,29.46v1.3 M441.67,30.76l0.65,1.94 M442.32,32.7l1.3,1.3 M443.62,34l1.3,0.65 M444.91,34.65h1.94
-	 M446.86,34.65l1.3-0.65 M448.15,34l1.3-1.3 M453.99,25.58v9.07 M453.99,29.46l0.65-1.94 M454.63,27.52l1.3-1.3 M455.93,26.22
-	l1.3-0.65 M457.23,25.58h1.94 M461.76,21.04l0.65,0.65 M462.41,21.69l0.65-0.65 M463.06,21.04l-0.65-0.65 M462.41,20.39l-0.65,0.65
-	 M462.41,25.58v9.07 M474.72,25.58v9.07 M474.72,27.52l-1.3-1.3 M473.43,26.22l-1.3-0.65 M472.13,25.58h-1.94 M470.19,25.58
-	l-1.3,0.65 M468.89,26.22l-1.3,1.3 M467.59,27.52l-0.65,1.94 M466.95,29.46v1.3 M466.95,30.76l0.65,1.94 M467.59,32.7l1.3,1.3
-	 M468.89,34l1.3,0.65 M470.19,34.65h1.94 M472.13,34.65l1.3-0.65 M473.43,34l1.3-1.3 M479.91,21.04v13.61 M482.5,35.94h11.66
-	 M498.05,21.04l0.65,0.65 M498.7,21.69l0.65-0.65 M499.35,21.04l-0.65-0.65 M498.7,20.39l-0.65,0.65 M498.7,25.58v11.02
-	 M498.7,36.59l-0.65,1.94 M498.05,38.54l-1.3,0.65 M496.75,39.18h-1.3"/>
-<path class="st3" d="M703.25,69.86c-233.3,85.56-472.38,207.45-604.66,427.18"/>
-</svg>
+<svg xmlns="http://www.w3.org/2000/svg" width="1152" height="864.03"><path fill-rule="evenodd" d="M.016 864.014h1151.971V.035H.017z"/><g fill="none" stroke-linecap="round" stroke-linejoin="round" stroke-miterlimit="10"><g stroke="#fff"><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M172.809 734.417h806.38M979.189 734.417V129.632M979.189 129.635h-806.38M172.809 129.635V734.42M172.809 734.417v-12M205.062 734.417v-5.951M237.327 734.417v-5.951M269.58 734.417v-5.951M301.832 734.417v-5.951M334.085 734.417v-12M366.338 734.417v-5.951M398.603 734.417v-5.951M430.856 734.417v-5.951M463.108 734.417v-5.951M495.36 734.417v-12M527.613 734.417v-5.951M559.88 734.417v-5.951M592.132 734.417v-5.951M624.384 734.417v-5.951M656.637 734.417v-12M688.89 734.417v-5.951M721.155 734.417v-5.951M753.408 734.417v-5.951M785.66 734.417v-5.951M817.913 734.417v-12M850.165 734.417v-5.951M882.431 734.417v-5.951M914.684 734.417v-5.951M946.936 734.417v-5.951M979.189 734.417v-12M172.809 141.635v-12M205.062 135.582v-5.952M237.327 135.582v-5.952M269.58 135.582v-5.952M301.832 135.582v-5.952M334.085 141.635v-12M366.338 135.582v-5.952M398.603 135.582v-5.952M430.856 135.582v-5.952M463.108 135.582v-5.952M495.36 141.635v-12M527.613 135.582v-5.952M559.88 135.582v-5.952M592.132 135.582v-5.952M624.384 135.582v-5.952M656.637 141.635v-12M688.89 135.582v-5.952M721.155 135.582v-5.952M753.408 135.582v-5.952M785.66 135.582v-5.952M817.913 141.635v-12M850.165 135.582v-5.952M882.431 135.582v-5.952M914.684 135.582v-5.952M946.936 135.582v-5.952M979.189 141.635v-12M160.05 752.753v-.768M160.05 751.985l.767-1.633M160.81 750.353l.863-.768M161.676 749.585l1.536-.768M163.21 748.817h3.263M166.476 748.817l1.536.768M168.01 749.585l.767.767M168.782 750.353l.864 1.632M169.65 751.985v1.536M169.65 753.52l-.865 1.632M168.782 755.153l-1.536 2.4M167.25 757.553l-7.969 7.968M159.276 765.52h11.136M180.009 748.817l-2.4.768M177.609 749.585l-1.632 2.4M175.982 751.985l-.768 3.936M175.209 755.92v2.4M175.209 758.32l.768 4.032M175.982 762.353l1.632 2.4M177.609 764.752l2.4.769M180.009 765.52h1.536M181.542 765.52l2.4-.768M183.942 764.752l1.632-2.4M185.582 762.353l.768-4.032M186.342 758.32v-2.4M186.342 755.92l-.768-3.935M185.582 751.985l-1.632-2.4M183.942 749.585l-2.4-.768M181.542 748.817h-1.536M321.325 752.753v-.768M321.325 751.985l.768-1.633M322.085 750.353l.864-.768M322.952 749.585l1.536-.768M324.485 748.817h3.264M327.752 748.817l1.536.768M329.285 749.585l.768.767M330.058 750.353l.864 1.632M330.925 751.985v1.536M330.925 753.52l-.864 1.632M330.058 755.153l-1.536 2.4M328.525 757.553l-7.968 7.968M320.552 765.52h11.136M338.885 751.985l1.536-.864M340.418 751.12l2.4-2.303M342.818 748.817v16.703M482.601 752.753v-.768M482.601 751.985l.768-1.633M483.361 750.353l.864-.768M484.228 749.585l1.536-.768M485.761 748.817h3.264M489.028 748.817l1.536.768M490.561 749.585l.768.767M491.334 750.353l.864 1.632M492.201 751.985v1.536M492.201 753.52l-.864 1.632M491.334 755.153l-1.536 2.4M489.801 757.553l-7.968 7.968M481.828 765.52h11.136M498.534 752.753v-.768M498.534 751.985l.864-1.633M499.4 750.353l.769-.768M500.16 749.585l1.537-.768M501.694 748.817h3.264M504.96 748.817l1.537.768M506.494 749.585l.864.767M507.36 750.353l.769 1.632M508.134 751.985v1.536M508.134 753.52l-.768 1.632M507.36 755.153l-1.631 2.4M505.734 757.553l-7.968 7.968M497.76 765.52h11.137M643.877 752.753v-.768M643.877 751.985l.768-1.633M644.637 750.353l.864-.768M645.504 749.585l1.536-.768M647.037 748.817h3.264M650.304 748.817l1.536.768M651.837 749.585l.768.767M652.61 750.353l.864 1.632M653.477 751.985v1.536M653.477 753.52l-.864 1.632M652.61 755.153l-1.536 2.4M651.077 757.553l-7.968 7.968M643.104 765.52h11.136M660.677 748.817h8.736M669.41 748.817l-4.8 6.336M664.61 755.153h2.4M667.01 755.153l1.632.768M668.637 755.92l.768.865M669.41 756.785l.768 2.4M670.17 759.185v1.535M670.17 760.72l-.768 2.4M669.41 763.12l-1.632 1.632M667.77 764.752l-2.4.769M665.37 765.52h-2.4M662.97 765.52l-2.304-.768M660.677 764.752l-.864-.863M659.81 763.889l-.768-1.537M805.153 752.753v-.768M805.153 751.985l.768-1.633M805.913 750.353l.864-.768M806.78 749.585l1.536-.768M808.313 748.817h3.264M811.58 748.817l1.536.768M813.113 749.585l.768.767M813.886 750.353l.864 1.632M814.753 751.985v1.536M814.753 753.52l-.864 1.632M813.886 755.153l-1.536 2.4M812.353 757.553l-7.968 7.968M804.38 765.52h11.136M828.286 748.817l-7.968 11.135M820.313 759.953h12M828.286 748.817v16.703M966.43 752.753v-.768M966.43 751.985l.767-1.633M967.19 750.353l.863-.768M968.056 749.585l1.536-.768M969.59 748.817h3.263M972.856 748.817l1.536.768M974.389 749.585l.768.767M975.162 750.353l.864 1.632M976.029 751.985v1.536M976.029 753.52l-.864 1.632M975.162 755.153l-1.536 2.4M973.629 757.553l-7.968 7.968M965.656 765.52h11.136M991.189 748.817h-7.968M983.229 748.817l-.864 7.104M982.362 755.92l.864-.768M983.229 755.153l2.304-.768M985.522 754.385h2.4M987.922 754.385l2.4.767M990.322 755.153l1.632 1.632M991.962 756.785l.768 2.4M992.722 759.185v1.535M992.722 760.72l-.768 2.4M991.962 763.12l-1.632 1.632M990.322 764.752l-2.4.769M987.922 765.52h-2.4M985.522 765.52l-2.304-.768M983.229 764.752l-.864-.863M982.362 763.889l-.768-1.537M172.809 734.417h5.952M172.809 658.862h12M172.809 583.224h5.952M172.809 507.666h12M172.809 432.027h5.952M172.809 356.376h12M172.809 280.831h5.952M172.809 205.18h12M172.809 129.635h5.952M973.242 734.417h5.952M967.19 658.862h11.999M973.242 583.224h5.952M967.19 507.666h11.999M973.242 432.027h5.952M967.19 356.376h11.999M973.242 280.831h5.952M967.19 205.18h11.999M973.242 129.635h5.952M134.703 649.849h-7.968M126.733 649.849l-.768 7.2M125.965 657.049l.768-.768M126.733 656.275l2.4-.864M129.133 655.409h2.4M131.533 655.409l2.4.864M133.93 656.275l1.632 1.536M135.57 657.808l.768 2.4M136.33 660.208v1.632M136.33 661.848l-.768 2.4M135.57 664.248l-1.632 1.536M133.93 665.782l-2.4.864M131.533 666.648h-2.4M129.133 666.648l-2.4-.864M126.733 665.782l-.768-.768M125.965 665.008l-.768-1.632M141.903 653.875v-.864M141.903 653.009l.768-1.536M142.663 651.475l.864-.864M143.53 650.609l1.536-.768M145.063 649.849h3.264M148.33 649.849l1.536.768M149.863 650.609l.768.864M150.636 651.475l.864 1.536M151.503 653.009v1.632M151.503 654.649l-.864 1.632M150.636 656.275l-1.536 2.304M149.103 658.582l-7.968 8.064M141.13 666.648h11.136M110.797 498.652h-7.968M102.83 498.652l-.768 7.2M102.061 505.852l.768-.768M102.83 505.079l2.4-.864M105.23 504.212h2.4M107.63 504.212l2.4.864M110.03 505.079l1.536 1.536M111.565 506.612l.864 2.4M112.43 509.012v1.632M112.43 510.652l-.864 2.4M111.565 513.052l-1.536 1.536M110.03 514.585l-2.4.864M107.63 515.452h-2.4M105.23 515.452l-2.4-.864M102.83 514.585l-.768-.768M102.061 513.812l-.864-1.632M117.997 502.679v-.864M117.997 501.812l.768-1.536M118.765 500.28l.768-.865M119.533 499.412l1.632-.768M121.165 498.652h3.168M124.333 498.652l1.632.768M125.965 499.412l.768.864M126.733 500.28l.864 1.535M127.597 501.812v1.632M127.597 503.452l-.864 1.632M126.733 505.079l-1.536 2.304M125.197 507.386l-7.968 8.063M117.23 515.452h11.135M134.703 513.812l-.768.768M133.93 514.585l.768.864M134.703 515.452l.864-.864M135.57 514.585l-.864-.768M141.903 502.679v-.864M141.903 501.812l.768-1.536M142.663 500.28l.864-.865M143.53 499.412l1.536-.768M145.063 498.652h3.264M148.33 498.652l1.536.768M149.863 499.412l.768.864M150.636 500.28l.864 1.535M151.503 501.812v1.632M151.503 503.452l-.864 1.632M150.636 505.079l-1.536 2.304M149.103 507.386l-7.968 8.063M141.13 515.452h11.136M110.797 347.456h-7.968M102.83 347.456l-.768 7.2M102.061 354.656l.768-.864M102.83 353.79l2.4-.769M105.23 353.016h2.4M107.63 353.016l2.4.768M110.03 353.79l1.536 1.631M111.565 355.416l.864 2.4M112.43 357.816v1.632M112.43 359.456l-.864 2.4M111.565 361.856l-1.536 1.536M110.03 363.39l-2.4.767M107.63 364.15h-2.4M105.23 364.15l-2.4-.769M102.83 363.39l-.768-.769M102.061 362.616l-.864-1.632M117.997 351.483v-.864M117.997 350.616l.768-1.536M118.765 349.083l.768-.864M119.533 348.216l1.632-.768M121.165 347.456h3.168M124.333 347.456l1.632.768M125.965 348.216l.768.864M126.733 349.083l.864 1.536M127.597 350.616v1.632M127.597 352.256l-.864 1.536M126.733 353.79l-1.536 2.4M125.197 356.19l-7.968 7.967M117.23 364.15h11.135M134.703 362.616l-.768.768M133.93 363.39l.768.767M134.703 364.15l.864-.769M135.57 363.39l-.864-.769M149.103 347.456l-7.968 11.136M141.13 358.59h11.904M149.103 347.456v16.704M110.797 196.26h-7.968M102.83 196.26l-.768 7.2M102.061 203.46l.768-.864M102.83 202.593l2.4-.768M105.23 201.82h2.4M107.63 201.82l2.4.768M110.03 202.593l1.536 1.632M111.565 204.22l.864 2.4M112.43 206.62v1.632M112.43 208.26l-.864 2.4M111.565 210.66l-1.536 1.536M110.03 212.193l-2.4.768M107.63 212.953h-2.4M105.23 212.953l-2.4-.768M102.83 212.193l-.768-.768M102.061 211.42l-.864-1.632M117.997 200.287v-.864M117.997 199.42l.768-1.536M118.765 197.887l.768-.864M119.533 197.02l1.632-.768M121.165 196.26h3.168M124.333 196.26l1.632.768M125.965 197.02l.768.864M126.733 197.887l.864 1.536M127.597 199.42v1.632M127.597 201.06l-.864 1.536M126.733 202.593l-1.536 2.4M125.197 204.993l-7.968 7.968M117.23 212.953h11.135M134.703 211.42l-.768.768M133.93 212.193l.768.768M134.703 212.953l.864-.768M135.57 212.193l-.864-.768M151.503 198.66l-.864-1.632M150.636 197.02l-2.304-.768M148.33 196.26h-1.632M146.703 196.26l-2.4.768M144.303 197.02l-1.632 2.4M142.663 199.42l-.768 4.032M141.903 203.46v3.936M141.903 207.393l.768 3.264M142.663 210.66l1.632 1.536M144.303 212.193l2.4.768M146.703 212.953h.768M147.463 212.953l2.4-.768M149.863 212.193l1.632-1.536M151.503 210.66l.768-2.4M152.263 208.26v-.864M152.263 207.393l-.768-2.4M151.503 204.993l-1.632-1.536M149.863 203.46l-2.4-.864M147.463 202.593h-.768M146.703 202.593l-2.4.864M144.303 203.46l-1.632 1.536M142.663 204.993l-.768 2.4"/></g><g stroke-width="14.4"><path stroke-width="1.919952" d="M559.973 784.72v20.927M559.973 784.72l7.967 20.927M575.906 784.72l-7.968 20.927M575.906 784.72v20.927M588.865 802l-2.208.671M586.652 802.672l-2.304 1.535M584.359 804.207l-1.44 2.208M582.919 806.415l-.768 2.305M582.145 808.72v2.207M582.145 810.927l.768 2.209M582.919 813.135l1.44 2.304M584.359 815.44l2.304 1.44M586.652 816.88l2.208.767M588.865 817.647h2.208M591.079 817.647l2.303-.768M593.372 816.88l2.208-1.44M595.585 815.44l1.536-2.304M597.118 813.135l.672-2.208M597.798 810.927v-2.207M597.798 808.72l-.672-2.305M597.118 806.415l-1.536-2.207M595.585 804.207l-2.208-1.535M593.372 802.672l-2.304-.672M591.079 802h-2.208M589.639 808.72l-.768.671M588.865 809.391v.769M588.865 810.16l.768.767M589.639 810.927h.768M590.399 810.927l.672-.767M591.079 810.16v-.769M591.079 809.391l-.672-.671M590.399 808.72h-.768M589.639 809.391v.769M589.639 810.16h.768M590.399 810.16v-.769M590.399 809.391h-.768M51.47 466.867h20.928M58.383 454.974l1.056 2.016M59.439 456.987l2.016 1.92M61.454 458.907l2.976 1.056M64.43 459.96h1.92M66.35 459.96l3.072-1.056M69.422 458.907l1.92-1.92M71.342 456.987l1.056-2.016M72.398 454.974v-2.976M72.398 451.987l-1.056-2.016M71.342 449.974l-1.92-2.016M69.422 447.96 66.35 447M66.35 447h-1.92M64.43 447l-2.975.96M61.454 447.96l-2.016 2.016M59.439 449.974l-1.057 2.016M58.383 451.987v2.976M58.383 429.054h16.031M74.414 429.054l2.976.96M77.39 430.014l.96 1.056M78.35 431.067l.96 1.92M79.31 432.987v3.072M79.31 436.054l-.96 1.92M61.454 429.054l-2.016 2.016M59.439 431.067l-1.057 1.92M58.383 432.987v3.072M58.383 436.054l1.056 1.92M59.439 437.974l2.016 2.016M61.454 439.987l2.976.96M64.43 440.947h1.92M66.35 440.947l3.072-.96M69.422 439.987l1.92-2.016M71.342 437.974l1.056-1.92M72.398 436.054v-3.072M72.398 432.987l-1.056-1.92M71.342 431.067l-1.92-2.015M51.47 397.175h15.936M67.406 397.175l2.976.96M70.382 398.135l.96.96M71.342 399.095l1.056 2.016M72.398 401.108v2.016M72.398 403.135l-1.056 2.016M71.342 405.148l-.96.96M70.382 406.108l-2.976.96M67.406 407.068h-2.015"/></g><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M899.03 70.303v7.488M899.03 72.516l1.537-1.632M900.564 70.876l1.056-.575M901.63 70.303h1.633M903.257 70.303l1.056.576M904.31 70.876l.577 1.632M904.884 72.516v5.28M904.884 72.516l1.536-1.632M906.43 70.876l1.057-.575M907.484 70.303h1.632M909.11 70.303l1.057.576M910.164 70.876l.48 1.632M910.644 72.516v5.28M917.084 70.303l-1.056.576M916.03 70.876l-1.056 1.056M914.964 71.943l-.576 1.632M914.39 73.57v1.056M914.39 74.623l.576 1.536M914.964 76.156l1.056 1.056M916.03 77.223l1.056.576M917.084 77.796h1.632M918.71 77.796l1.056-.576M919.764 77.223l1.056-1.056M920.83 76.156l.48-1.536M921.31 74.623v-1.056M921.31 73.57l-.48-1.632M920.83 71.943l-1.056-1.056M919.764 70.876l-1.056-.575M918.71 70.303h-1.632M930.91 66.663V77.8M930.91 71.943l-1.056-1.056M929.843 70.876l-1.056-.575M928.79 70.303h-1.632M927.163 70.303l-1.055.576M926.11 70.876l-1.056 1.056M925.044 71.943l-.576 1.632M924.47 73.57v1.056M924.47 74.623l.576 1.536M925.044 76.156l1.056 1.056M926.11 77.223l1.056.576M927.163 77.796h1.632M928.79 77.796l1.056-.576M929.843 77.223l1.056-1.056M934.643 73.57h6.336M940.99 73.57v-1.056M940.99 72.516l-.48-1.056M940.51 71.463l-.576-.576M939.923 70.876l-1.056-.575M938.87 70.303h-1.632M937.243 70.303l-1.056.576M936.19 70.876l-1.056 1.056M935.123 71.943l-.48 1.632M934.643 73.57v1.056M934.643 74.623l.48 1.536M935.123 76.156l1.056 1.056M936.19 77.223l1.056.576M937.243 77.796h1.632M938.87 77.796l1.056-.576M939.923 77.223l1.056-1.056M944.723 66.663V77.8M962.296 66.663l-5.376 7.392M956.923 74.05h7.968M962.296 66.663V77.8M974.002 66.663h-5.376M968.63 66.663l-.48 4.8M968.15 71.463l.48-.576M968.63 70.876l1.631-.575M970.27 70.303h1.535M971.802 70.303l1.632.576M973.429 70.876l1.056 1.056M974.482 71.943l.576 1.632M975.069 73.57v1.056M975.069 74.623l-.576 1.536M974.482 76.156l-1.056 1.056M973.429 77.223l-1.632.576M971.802 77.796h-1.536M970.27 77.796l-1.633-.576M968.63 77.223l-.48-.48M968.15 76.743l-.577-1.056M978.709 69.25v-.48M978.709 68.77l.576-1.056M979.282 67.717l.48-.576M979.762 67.143l1.152-.48M980.922 66.663h2.112M983.029 66.663l1.056.48M984.082 67.143l.48.576M984.562 67.717l.576 1.056M985.149 68.77v1.056M985.149 69.823l-.576 1.056M984.562 70.876l-1.056 1.632M983.509 72.516l-5.28 5.28M978.229 77.796h7.392M148.53 70.303v7.488M148.53 71.943l-1.056-1.056M147.463 70.876l-1.056-.575M146.41 70.303h-1.632M144.783 70.303l-1.056.576M143.73 70.876l-1.056 1.056M142.663 71.943l-.48 1.632M142.183 73.57v1.056M142.183 74.623l.48 1.536M142.663 76.156l1.056 1.056M143.73 77.223l1.056.576M144.783 77.796h1.632M146.41 77.796l1.056-.576M147.463 77.223l1.056-1.056M158.61 70.303v8.544M158.61 78.85l-.48 1.632M158.13 80.476l-.577.48M157.543 80.956l-1.056.576M156.49 81.543h-1.537M154.956 81.543l-1.152-.576M158.61 71.943l-1.057-1.056M157.543 70.876l-1.056-.575M156.49 70.303h-1.537M154.956 70.303l-1.152.576M153.81 70.876l-1.056 1.056M152.743 71.943l-.48 1.632M152.263 73.57v1.056M152.263 74.623l.48 1.536M152.743 76.156l1.056 1.056M153.81 77.223l1.151.576M154.956 77.796h1.536M156.49 77.796l1.055-.576M157.543 77.223l1.056-1.056M162.343 73.57h6.431M168.782 73.57v-1.056M168.782 72.516l-.576-1.056M168.21 71.463l-.577-.576M167.622 70.876l-1.055-.575M166.57 70.303h-1.537M165.036 70.303l-1.056.576M163.983 70.876l-1.056 1.056M162.93 71.943l-.577 1.632M162.343 73.57v1.056M162.343 74.623l.576 1.536M162.93 76.156l1.055 1.056M163.983 77.223l1.056.576M165.036 77.796h1.536M166.57 77.796l1.055-.576M167.622 77.223l1.152-1.056M186.822 66.663h-5.376M181.449 66.663l-.48 4.8M180.969 71.463l.48-.576M181.449 70.876l1.632-.575M183.089 70.303h1.632M184.715 70.303l1.536.576M186.249 70.876l1.056 1.056M187.302 71.943l.576 1.632M187.889 73.57v1.056M187.889 74.623l-.576 1.536M187.302 76.156l-1.056 1.056M186.249 77.223l-1.536.576M184.715 77.796h-1.632M183.089 77.796l-1.632-.576M181.449 77.223l-.48-.48M180.969 76.743l-.576-1.056M192.102 76.743l-.48.48M191.622 77.223l.48.576M192.102 77.796l.576-.576M192.689 77.223l-.576-.48M199.595 66.663l-1.632.48M197.968 67.143l-1.056 1.632M196.902 68.77l-.48 2.688M196.422 71.463V73M196.422 72.996l.48 2.688M196.902 75.676l1.056 1.536M197.968 77.223l1.632.576M199.595 77.796h1.056M200.648 77.796l1.536-.576M202.182 77.223l1.152-1.536M203.342 75.676l.48-2.688M203.822 72.996V71.46M203.822 71.463l-.48-2.688M203.342 68.77l-1.152-1.632M202.182 67.143l-1.536-.48M200.648 66.663h-1.056M210.248 66.663l-1.632.48M208.621 67.143l-1.056 1.632M207.568 68.77l-.576 2.688M206.981 71.463V73M206.981 72.996l.576 2.688M207.568 75.676l1.056 1.536M208.621 77.223l1.632.576M210.248 77.796h1.056M211.301 77.796l1.536-.576M212.848 77.223l1.056-1.536M213.901 75.676l.576-2.688M214.475 72.996V71.46M214.475 71.463l-.576-2.688M213.901 68.77l-1.056-1.632M212.848 67.143l-1.536-.48M211.301 66.663h-1.056M220.808 66.663l-1.536.48M219.275 67.143l-1.056 1.632M218.221 68.77l-.576 2.688M217.648 71.463V73M217.648 72.996l.576 2.688M218.221 75.676l1.056 1.536M219.275 77.223l1.535.576M220.808 77.796h1.056M221.861 77.796l1.632-.576M223.501 77.223l1.056-1.536M224.554 75.676l.576-2.688M225.128 72.996V71.46M225.128 71.463l-.576-2.688M224.554 68.77l-1.056-1.632M223.501 67.143l-1.632-.48M221.861 66.663h-1.056M235.687 66.663l-5.28 11.136M228.301 66.663h7.392M244.234 66.663l-5.28 7.392M238.954 74.05h7.968M244.234 66.663V77.8M257.007 66.663l-5.28 11.136M249.514 66.663h7.488M260.167 73.57h6.432M266.607 73.57v-1.056M266.607 72.516l-.576-1.056M266.02 71.463l-.48-.576M265.54 70.876l-1.152-.575M264.393 70.303h-1.536M262.86 70.303l-1.056.576M261.807 70.876l-1.056 1.056M260.74 71.943l-.576 1.632M260.167 73.57v1.056M260.167 74.623l.576 1.536M260.74 76.156l1.056 1.056M261.807 77.223l1.056.576M262.86 77.796h1.536M264.393 77.796l1.152-.576M265.54 77.223l1.056-1.056M270.82 66.663h5.856M276.686 66.663l-3.168 4.224M273.513 70.876h1.536M275.046 70.876l1.056.576M276.1 71.463l.576.48M276.686 71.943l.48 1.632M277.166 73.57v1.056M277.166 74.623l-.48 1.536M276.686 76.156l-1.056 1.056M275.62 77.223l-1.632.576M273.993 77.796h-1.536M272.46 77.796l-1.632-.576M270.82 77.223l-.576-.48M270.247 76.743l-.48-1.056M288.393 70.303l3.168 7.488M294.726 70.303l-3.168 7.488M291.566 77.796l-1.056 2.112M290.5 79.903l-1.057 1.056M289.446 80.956l-1.056.576M288.393 81.543h-.576M297.9 70.303v7.488M297.9 73.57l.575-1.632M298.473 71.943l1.056-1.056M299.526 70.876l1.056-.575M300.58 70.303h1.631M310.179 71.943l-.576-1.056M309.606 70.876l-1.536-.575M308.072 70.303h-1.632M306.446 70.303l-1.632.576M304.806 70.876l-.48 1.056M304.326 71.943l.48 1.056M304.806 72.996l1.056.576M305.859 73.57l2.688.48M308.552 74.05l1.056.576M309.606 74.623l.576 1.056M310.179 75.676v.48M310.179 76.156l-.576 1.056M309.606 77.223l-1.536.576M308.072 77.796h-1.632M306.446 77.796l-1.632-.576M304.806 77.223l-.48-1.056M455.042 86.623v12.095M455.042 89.223l-1.728-1.728M453.322 87.49l-1.728-.865M451.589 86.623h-2.592M449.002 86.623l-1.728.864M447.269 87.49l-1.728 1.727M445.536 89.223l-.864 2.592M444.682 91.81v1.727M444.682 93.543l.864 2.592M445.536 96.13l1.727 1.727M447.269 97.862l1.728.864M449.002 98.716h2.592M451.589 98.716l1.728-.864M453.322 97.862l1.728-1.727M471.455 89.223l-1.728-1.728M469.735 87.49l-1.728-.865M468.002 86.623h-2.592M465.415 86.623l-1.728.864M463.682 87.49l-1.728 1.727M461.962 89.223l-.864 2.592M461.095 91.81v1.727M461.095 93.543l.864 2.592M461.962 96.13l1.728 1.727M463.682 97.862l1.728.864M465.415 98.716h2.592M468.002 98.716l1.728-.864M469.735 97.862l1.728-1.727M487.014 89.223l-1.727-1.728M485.281 87.49l-1.728-.865M483.561 86.623h-2.592M480.961 86.623l-1.728.864M479.241 87.49l-1.728 1.727M477.508 89.223l-.864 2.592M476.641 91.81v1.727M476.641 93.543l.864 2.592M477.508 96.13l1.728 1.727M479.241 97.862l1.728.864M480.961 98.716h2.592M483.561 98.716l1.728-.864M485.281 97.862l1.728-1.727M493.054 86.623v12.095M493.054 91.81l.864-2.593M493.921 89.223l1.728-1.728M495.654 87.49l1.728-.865M497.374 86.623h2.592M503.427 91.81h10.368M513.8 91.81V90.08M513.8 90.076l-.863-1.728M512.934 88.356l-.864-.864M512.067 87.49l-1.728-.865M510.334 86.623h-2.592M507.747 86.623l-1.728.864M506.014 87.49l-1.728 1.727M504.294 89.223l-.864 2.592M503.427 91.81v1.727M503.427 93.543l.864 2.592M504.294 96.13l1.728 1.727M506.014 97.862l1.728.864M507.747 98.716h2.592M510.334 98.716l1.728-.864M512.067 97.862l1.728-1.727M520.707 80.583V95.27M520.707 95.263l.864 2.591M521.574 97.862l1.728.864M523.294 98.716h1.728M518.12 86.623h6.048M529.347 91.81h10.368M539.72 91.81V90.08M539.72 90.076l-.864-1.728M538.853 88.356l-.864-.864M537.987 87.49l-1.728-.865M536.253 86.623h-2.592M533.667 86.623l-1.728.864M531.933 87.49l-1.728 1.727M530.213 89.223l-.864 2.592M529.347 91.81v1.727M529.347 93.543l.864 2.592M530.213 96.13l1.728 1.727M531.933 97.862l1.728.864M533.667 98.716h2.592M536.253 98.716l1.728-.864M537.987 97.862l1.728-1.727M555.266 80.583v18.143M555.266 89.223l-1.728-1.728M553.533 87.49l-1.728-.865M551.813 86.623h-2.592M549.213 86.623l-1.728.864M547.493 87.49l-1.728 1.727M545.76 89.223l-.864 2.592M544.893 91.81v1.727M544.893 93.543l.864 2.592M545.76 96.13l1.728 1.727M547.493 97.862l1.728.864M549.213 98.716h2.592M551.813 98.716l1.728-.864M553.533 97.862l1.728-1.727M558.72 100.45h15.551M578.599 86.623v12.095M578.599 90.076l2.592-2.592M581.185 87.49l1.728-.865M582.919 86.623h2.592M585.505 86.623l1.728.864M587.239 87.49l.864 2.591M588.092 90.076v8.64M588.092 90.076l2.592-2.592M590.692 87.49l1.728-.865M592.412 86.623h2.592M595.012 86.623l1.728.864M596.732 87.49l.864 2.591M597.598 90.076v8.64M614.011 86.623v12.095M614.011 89.223l-1.728-1.728M612.291 87.49l-1.728-.865M610.558 86.623h-2.592M607.971 86.623l-1.727.864M606.238 87.49l-1.728 1.727M604.518 89.223l-.864 2.592M603.652 91.81v1.727M603.652 93.543l.864 2.592M604.518 96.13l1.728 1.727M606.238 97.862l1.728.864M607.971 98.716h2.592M610.558 98.716l1.728-.864M612.291 97.862l1.728-1.727M621.798 80.583V95.27M621.798 95.263l.864 2.591M622.651 97.862l1.728.864M624.384 98.716h1.728M619.198 86.623h6.048M630.438 91.81h10.367M640.797 91.81V90.08M640.797 90.076l-.864-1.728M639.93 88.356l-.863-.864M639.077 87.49l-1.728-.865M637.344 86.623h-2.592M634.757 86.623l-1.727.864M633.024 87.49l-1.728 1.727M631.29 89.223l-.863 2.592M630.438 91.81v1.727M630.438 93.543l.864 2.592M631.29 96.13l1.729 1.727M633.024 97.862l1.728.864M634.757 98.716h2.592M637.344 98.716l1.728-.864M639.077 97.862l1.728-1.727M646.85 86.623v12.095M646.85 91.81l.864-2.593M647.717 89.223l1.728-1.728M649.437 87.49l1.728-.865M651.17 86.623h2.592M657.21 80.583l.864.864M658.077 81.436l.864-.864M658.944 80.583l-.864-.864M658.077 79.716l-.864.864M658.077 86.623v12.095M674.49 86.623v12.095M674.49 89.223l-1.728-1.728M672.77 87.49l-1.728-.865M671.037 86.623h-2.592M668.45 86.623l-1.728.864M666.717 87.49l-1.728 1.727M664.997 89.223l-.864 2.592M664.13 91.81v1.727M664.13 93.543l.864 2.592M664.997 96.13l1.728 1.727M666.717 97.862l1.728.864M668.45 98.716h2.592M671.037 98.716l1.728-.864M672.77 97.862l1.728-1.727M681.41 80.583v18.143M684.863 100.45h15.551M705.596 80.583l.864.864M706.462 81.436l.864-.864M707.329 80.583l-.864-.864M706.462 79.716l-.864.864M706.462 86.623v14.687M706.462 101.316l-.864 2.592M705.596 103.902l-1.728.864M703.876 104.769h-1.728"/></g></g><g stroke="teal" stroke-width="28.8"><path stroke-width="3.839904" d="m173.009 712.82.192-.288M173.196 712.527l.192-.384M173.382 712.14l.288-.384M173.676 711.767l.384-.576M174.062 711.18l.384-.575M174.449 710.607l.48-.768M174.929 709.847l.576-.864M175.502 708.98l.672-1.151M176.169 707.82l.864-1.247M177.036 706.58l.96-1.631M177.996 704.94l1.152-1.823M179.142 703.127l1.44-2.208M180.582 700.914l1.728-2.688M182.315 698.22l2.112-3.167M184.422 695.06l1.728-2.687M186.155 692.368l1.632-2.4M187.782 689.968l1.536-2.4M189.329 687.568l1.536-2.304M190.862 685.261l1.536-2.208M192.395 683.061l1.536-2.208M193.928 680.848l1.44-2.304M195.368 678.541l1.536-2.112M196.902 676.435l1.44-2.208M198.342 674.221l1.824-2.592M200.168 671.635l2.112-3.168M202.288 668.462l1.824-2.592M204.102 665.875l1.632-2.304M205.742 663.568l1.631-2.208M207.368 661.368l1.536-2.208M208.901 659.155l1.44-2.112M210.341 657.049l1.536-2.112M211.888 654.929l1.536-2.112M213.421 652.822l1.536-2.112M214.955 650.702l1.44-2.016M216.395 648.689l1.824-2.496M218.221 646.195l2.208-2.975M220.421 643.222l1.728-2.4M222.154 640.822l1.728-2.208M223.888 638.609l1.536-2.112M225.421 636.502l1.536-2.112M226.954 634.382l1.536-2.016M228.488 632.37l1.536-1.92M230.02 630.45l1.537-2.017M231.568 628.436l1.44-2.016M233.008 626.423l1.535-1.92M234.54 624.503l1.825-2.304M236.367 622.196l2.208-2.784M238.567 619.41l1.824-2.304M240.394 617.103l1.632-2.112M242.02 614.996l1.537-2.016M243.567 612.983l1.632-1.92M245.194 611.063l1.536-1.92M246.727 609.143l1.44-1.92M248.167 607.223l1.536-1.92M249.7 605.303l1.536-1.824M251.247 603.477l1.536-1.824M252.78 601.65l1.824-2.208M254.607 599.45l2.208-2.688M256.807 596.757l1.824-2.208M258.634 594.543l1.631-2.016M260.26 592.53l1.632-1.824M261.9 590.704l1.536-1.824M263.433 588.89l1.536-1.824M264.967 587.064l1.536-1.824M266.5 585.237l1.536-1.824M268.047 583.41l1.536-1.728M269.58 581.69l1.536-1.824M271.113 579.864l1.824-2.112M272.94 577.744l2.208-2.496M275.14 575.25l1.824-2.015M276.966 573.237l1.728-1.92M278.7 571.317l1.536-1.824M280.233 569.49l1.632-1.727M281.86 567.77l1.536-1.727M283.406 566.037l1.536-1.728M284.94 564.304l1.536-1.728M286.473 562.584l1.536-1.632M288.006 560.944l1.536-1.728M289.54 559.224l1.823-2.016M291.366 557.211l2.208-2.4M293.58 554.811l1.92-1.92M295.5 552.891l1.631-1.824M297.126 551.064l1.632-1.727M298.766 549.331l1.536-1.632M300.3 547.705l1.631-1.728M301.926 545.971l1.536-1.632M303.46 544.345l1.535-1.632M305.006 542.705l1.536-1.536M306.539 541.171l1.536-1.632M308.072 539.545l1.92-1.92M309.992 537.625l2.208-2.304M312.206 535.318l1.823-1.92M314.019 533.398l1.728-1.728M315.752 531.665l1.632-1.632M317.379 530.038l1.536-1.536M318.925 528.505l1.632-1.632M320.552 526.865l1.536-1.536M322.085 525.332l1.536-1.536M323.619 523.799l1.536-1.536M325.165 522.265l1.536-1.536M326.698 520.732l1.92-1.824M328.618 518.905l2.208-2.208M330.818 516.692l1.92-1.824M332.738 514.865l1.632-1.632M334.378 513.239l1.632-1.536M336.005 511.705l1.632-1.535M337.645 510.172l1.536-1.536M339.178 508.626l1.632-1.536M340.805 507.092l1.536-1.44M342.338 505.652l1.536-1.44M343.885 504.212l1.632-1.536M345.511 502.679l1.824-1.728M347.338 500.946l2.304-2.112M349.645 498.84l1.824-1.729M351.458 497.106l1.728-1.536M353.191 495.573l1.632-1.536M354.818 494.04l1.632-1.44M356.458 492.6l1.536-1.44M357.991 491.16l1.632-1.44M359.618 489.72l1.536-1.442M361.164 488.28l1.632-1.44M362.79 486.84l1.537-1.44M364.324 485.4l1.92-1.632M366.244 483.773l2.208-2.016M368.457 481.746l1.92-1.728M370.377 480.026l1.728-1.438M372.097 478.586l1.632-1.44M373.737 477.146l1.632-1.441M375.364 475.706l1.632-1.44M377.004 474.266l1.536-1.342M378.537 472.92l1.632-1.346M380.164 471.573l1.536-1.342M381.697 470.227l1.632-1.344M383.337 468.893l1.824-1.633M385.164 467.253l2.304-1.918M387.457 465.333l1.92-1.633M389.377 463.707l1.728-1.439M391.11 462.267l1.632-1.439M392.737 460.827l1.632-1.346M394.377 459.48l1.632-1.343M396.003 458.133l1.536-1.345M397.537 456.787l1.632-1.343M399.177 455.454l1.536-1.248M400.71 454.2l1.632-1.345M402.337 452.854l1.92-1.535M404.257 451.32l2.304-1.824M406.563 449.494l1.92-1.634M408.483 447.867l1.728-1.343M410.216 446.52l1.632-1.344M411.843 445.174l1.632-1.344M413.483 443.827l1.632-1.248M415.11 442.587l1.632-1.344M416.736 441.24l1.536-1.247M418.283 439.987l1.632-1.246M419.91 438.747l1.631-1.248M421.536 437.494l1.92-1.536M423.456 435.96l2.304-1.727M425.763 434.227l1.92-1.536M427.683 432.694l1.728-1.344M429.416 431.347l1.632-1.343M431.043 430.014l1.632-1.248M432.683 428.76l1.631-1.247M434.31 427.508l1.631-1.248M435.936 426.268l1.632-1.152M437.576 425.108l1.632-1.248M439.202 423.868l1.536-1.248M440.736 422.614l2.016-1.44M442.762 421.174l2.304-1.728M445.056 419.454l1.92-1.44M446.975 418.014l1.728-1.343M448.709 416.668l1.728-1.248M450.442 415.415l1.632-1.152M452.069 414.268l1.632-1.248M453.695 413.015l1.632-1.152M455.335 411.868l1.632-1.248M456.962 410.615l1.536-1.152M458.495 409.468l1.632-1.152M460.135 408.308l2.016-1.44M462.148 406.868l2.304-1.632M464.455 405.241l1.92-1.44M466.375 403.802l1.728-1.248M468.095 402.548l1.728-1.248M469.828 401.308l1.632-1.152M471.455 400.148l1.632-1.152M473.095 399.002l1.632-1.152M474.721 397.855l1.632-1.152M476.361 396.695l1.632-1.152M477.988 395.548l1.63-1.152M479.615 394.388l2.017-1.344M481.641 393.055l2.304-1.632M483.935 391.415l1.92-1.344M485.855 390.069l1.822-1.248M487.681 388.829l1.73-1.152M489.414 387.669l1.631-1.152M491.041 386.522l1.633-1.152M492.681 385.375l1.63-1.056M494.308 384.309l1.633-1.152M495.934 383.162l1.632-1.152M497.574 382.015l1.63-1.056M499.2 380.949l2.017-1.344M501.214 379.615l2.305-1.536M503.52 378.069l2.017-1.344M505.534 376.736l1.824-1.152M507.36 375.576l1.633-1.152M509 374.429l1.729-1.152M510.72 373.269l1.633-1.056M512.36 372.216l1.632-1.056M513.987 371.162l1.632-1.152M515.614 370.016l1.728-1.056M517.347 368.949l1.632-1.056M518.974 367.896l1.92-1.248M520.894 366.656l2.4-1.536M523.294 365.11l1.92-1.345M525.214 363.776l1.823-1.152M527.04 362.616l1.728-1.056M528.773 361.563l1.728-1.056M530.493 360.51l1.632-1.153M532.133 359.35l1.632-.96M533.76 358.39l1.728-1.057M535.493 357.336l1.632-1.056M537.12 356.283l1.632-1.056M538.76 355.23l2.016-1.249M540.773 353.976l2.4-1.536M543.173 352.443l1.92-1.248M545.093 351.19l1.824-1.056M546.92 350.136l1.728-1.056M548.64 349.083l1.728-1.056M550.373 348.03l1.632-1.056M552 346.976l1.727-1.056M553.733 345.91l1.632-.96M555.36 344.95l1.631-1.055M557 343.896l1.727-1.057M558.72 342.843l1.92-1.15M560.64 341.696l2.4-1.44M563.04 340.256l2.015-1.248M565.053 339.003l1.823-1.056M566.88 337.95l1.727-1.056M568.612 336.897l1.728-1.056M570.332 335.83l1.728-.96M572.066 334.87l1.632-1.057M573.692 333.817l1.632-.96M575.332 332.857l1.728-.959M577.052 331.897l1.632-1.056M578.692 330.843l2.016-1.152M580.705 329.697l2.4-1.44M583.105 328.257l2.016-1.152M585.119 327.097l1.824-1.056M586.945 326.043l1.728-1.056M588.679 324.99l1.728-.96M590.399 324.03l1.728-.96M592.132 323.07l1.728-.96M593.852 322.11l1.632-.96M595.492 321.15l1.728-.96M597.212 320.19l1.632-.96M598.852 319.23l2.016-1.152M600.865 318.07l2.4-1.44M603.265 316.63l2.016-1.152M605.278 315.484l1.92-.96M607.198 314.524l1.728-1.056M608.931 313.47l1.728-.96M610.651 312.51l1.728-.96M612.385 311.55l1.632-.96M614.011 310.59l1.728-.863M615.745 309.724l1.633-.96M617.371 308.764l1.727-.96M619.105 307.804l2.014-1.152M621.118 306.657l2.497-1.344M623.611 305.31l2.015-1.054M625.638 304.257l1.824-1.057M627.451 303.19l1.727-.958M629.184 302.23l1.824-.96M631.01 301.27l1.633-.863M632.638 300.417l1.727-.96M634.37 299.457l1.729-.96M636.09 298.497l1.727-.864M637.824 297.63l1.633-.96M639.45 296.67l2.113-1.054M641.57 295.618l2.4-1.346M643.97 294.27l2.015-1.054M645.984 293.218l1.92-.962M647.904 292.258l1.728-.96M649.637 291.298l1.727-.96M651.357 290.338l1.73-.864M653.09 289.471l1.728-.96M654.81 288.511l1.728-.864M656.544 287.644l1.728-.864M658.277 286.778l1.728-.96M659.997 285.818l2.016-1.056M662.01 284.764l2.495-1.247M664.517 283.511l2.016-1.056M666.53 282.458l1.824-.96M668.357 281.498l1.824-.96M670.17 280.538l1.728-.864M671.903 279.671l1.728-.96M673.636 278.711l1.728-.864M675.356 277.858l1.728-.864M677.09 276.991l1.728-.864M678.81 276.125l1.728-.864M680.543 275.258l2.112-1.056M682.65 274.205l2.4-1.248M685.05 272.951l2.111-1.056M687.17 271.898l1.92-.96M689.09 270.938l1.727-.864M690.81 270.072l1.823-.864M692.636 269.218l1.728-.864M694.37 268.352l1.727-.864M696.09 267.485l1.727-.864M697.823 266.618l1.728-.864M699.556 265.752l1.728-.864M701.276 264.898l2.016-1.056M703.29 263.832l2.495-1.248M705.796 262.592l2.112-.96M707.902 261.632l1.92-.96M709.822 260.672l1.824-.864M711.649 259.805l1.728-.864M713.369 258.938l1.728-.864M715.102 258.072l1.728-.864M716.835 257.219l1.824-.864M718.649 256.352l1.728-.768M720.382 255.579l1.728-.864M722.115 254.712l2.112-.96M724.222 253.752l2.496-1.248M726.715 252.512l2.016-.96M728.728 251.552l1.92-.96M730.648 250.592l1.824-.864M732.475 249.725l1.824-.864M734.302 248.859l1.728-.768M736.035 248.099l1.728-.866M737.755 247.232l1.824-.864M739.582 246.365l1.727-.766M741.315 245.592l1.728-.864M743.035 244.739l2.112-.96M745.155 243.779l2.496-1.15M747.648 242.619l2.112-.961M749.755 241.659l1.92-.96M751.675 240.699l1.823-.864M753.501 239.832l1.728-.766M755.234 239.072l1.823-.864M757.048 238.206l1.728-.77M758.781 237.432l1.824-.864M760.608 236.579l1.726-.767M762.328 235.806l1.728-.77M764.06 235.032l2.113-.96M766.168 234.072l2.591-1.248M768.767 232.832l2.112-.864M770.874 231.966l1.92-.959M772.794 231.006l1.824-.768M774.62 230.233l1.825-.864M776.447 229.38l1.728-.769M778.18 228.606l1.824-.768M779.994 227.833l1.728-.864M781.727 226.98l1.727-.769M783.447 226.206l1.824-.768M785.274 225.433l2.112-.96M787.394 224.473l2.496-1.152M789.887 223.326l2.112-.96M791.994 222.366l2.015-.864M794.02 221.5l1.824-.769M795.833 220.74l1.824-.769M797.66 219.966l1.728-.864M799.393 219.1l1.824-.769M801.22 218.34l1.824-.769M803.033 217.566l1.728-.768M804.767 216.793l1.824-.768M806.593 216.033l2.112-.96M808.7 215.073l2.496-1.056M811.193 214.02l2.208-.96M813.406 213.06l1.92-.864M815.326 212.193l1.824-.768M817.153 211.42l1.824-.768M818.98 210.66l1.823-.768M820.793 209.886l1.824-.768M822.62 209.113l1.727-.768M824.353 208.353l1.824-.768M826.18 207.58l1.823-.768M827.993 206.82l2.112-.96M830.113 205.86l2.592-1.056M832.7 204.793l2.111-.96M834.82 203.833l1.92-.768M836.74 203.073l1.919-.768M838.659 202.3l1.824-.768M840.472 201.54l1.824-.768M842.299 200.767l1.824-.77M844.126 199.993l1.728-.766M845.859 199.233l1.824-.768M847.672 198.46l1.824-.768M849.499 197.7l2.112-.864M851.619 196.833l2.592-1.056M854.205 195.78l2.208-.865M856.419 194.913l1.92-.864M858.339 194.047l1.92-.767M860.258 193.273l1.824-.769M862.072 192.513l1.824-.766M863.898 191.74l1.824-.673M865.725 191.073l1.824-.766M867.552 190.3l1.728-.77M869.272 189.527l1.824-.67M871.098 188.86l2.208-.96M873.312 187.9l2.591-1.057M875.898 186.847l2.208-.864M878.111 185.98l1.92-.766M880.031 185.207l1.92-.768M881.951 184.447l1.824-.768M883.765 183.674l1.824-.672M885.591 183.007l1.824-.768M887.418 182.234l1.824-.768M889.244 181.474l1.824-.672M891.071 180.794l1.824-.768M892.884 180.034l2.208-.864M895.098 179.167l2.592-.96M897.684 178.207l2.208-.864M899.898 177.34l1.92-.863M901.817 176.474l1.92-.672M903.737 175.807l1.92-.768M905.657 175.034l1.824-.768M907.484 174.274l1.824-.672M909.31 173.594l1.825-.768M911.124 172.834l1.824-.672M912.95 172.154l1.824-.672M914.777 171.487l2.208-.864M916.99 170.62l2.592-1.055M919.577 169.567l2.208-.864M921.79 168.7l2.016-.767M923.804 167.94l1.92-.671M925.724 167.26l1.823-.767M927.55 166.5l1.92-.671M929.47 165.82l1.824-.767M931.283 165.06l1.824-.67M933.11 164.38l1.824-.671M934.937 163.714l1.824-.77M936.763 162.94l2.208-.766M938.963 162.18l2.688-1.055M941.656 161.114l2.208-.865M943.87 160.26l2.016-.67M945.883 159.58l1.92-.768M947.803 158.821l1.824-.672M949.63 158.141l1.92-.767M951.55 157.381l1.823-.672M953.363 156.701l1.824-.672M955.19 156.034l1.92-.67M957.11 155.354l1.823-.769M958.936 154.594l2.208-.766M961.15 153.821l2.687-.96M963.83 152.861l2.207-.864M966.043 151.994l2.015-.768M968.056 151.234l1.92-.67M969.976 150.555l1.92-.672M971.896 149.888l1.824-.767M973.722 149.115l1.92-.674M975.642 148.448l1.824-.672M977.469 147.781l1.728-.672"/></g></g></svg>
\ No newline at end of file
diff --git a/star/test_suite/accreted_material_j/history_columns.list b/star/test_suite/accreted_material_j/history_columns.list
new file mode 100644
index 000000000..56a1961d6
--- /dev/null
+++ b/star/test_suite/accreted_material_j/history_columns.list
@@ -0,0 +1,1067 @@
+! history_columns.list -- determines the contents of star history logs
+! you can use a non-standard version by setting history_columns_file in your inlist
+
+! units are cgs unless otherwise noted.
+
+! reorder the following names as desired to reorder columns.
+! comment out the name to omit a column (fewer columns => less IO => faster running).
+! remove '!' to restore a column.
+
+! if you have a situation where you want a non-standard set of columns,
+! make a copy of this file, edit as desired, and give the new filename in your inlist
+! as history_columns_file.   if you are just adding columns, you can 'include' this file,
+! and just list the additions in your file.   note: to include the standard default
+! version, use include '' -- the 0 length string means include the default file.
+
+! blank lines and comments can be used freely.
+! if a column name appears more than once in the list, only the first occurrence is used.
+
+! if you need to have something added to the list of options, let me know....
+
+
+! the first few lines of the log file contain a few items:
+
+   ! version_number -- for the version of mesa being used
+   ! burn_min1 -- 1st limit for reported burning, in erg/g/s
+   ! burn_min2 -- 2nd limit for reported burning, in erg/g/s
+
+
+!# other files
+
+! note: you can include another list by doing
+!        include 'filename'
+!        include '' means include the default standard list file
+
+! the following lines of the log file contain info about 1 model per row
+
+!----------------------------------------------------------------------------------------------
+
+!# general info about the model
+
+      model_number ! counting from the start of the run
+      num_zones ! number of zones in the model
+
+   !## age
+
+      star_age ! elapsed simulated time in years since the start of the run
+      !star_age_sec ! elapsed simulated time in seconds since the start of the run
+      !star_age_min ! elapsed simulated time in minutes since the start of the run
+      !star_age_hr ! elapsed simulated time in hours since the start of the run
+      !star_age_day ! elapsed simulated time in days since the start of the run
+      !day ! elapsed simulated time in days since the start of the run
+
+      !log_star_age
+      !log_star_age_sec
+
+   !## timestep
+
+      !time_step ! timestep in years since previous model
+      !time_step_sec ! timestep in seconds since previous model
+      !time_step_days
+      log_dt ! log10 time_step in years
+      !log_dt_sec ! log10 time_step in seconds
+      !log_dt_days ! log10 time_step in days
+
+   !## mass
+
+      star_mass ! in Msun units
+      !log_star_mass
+
+      !star_gravitational_mass ! star_mass is baryonic mass
+      !star_mass_grav_div_mass
+
+      !delta_mass ! star_mass - initial_mass in Msun units
+      log_xmstar ! log10 mass exterior to M_center (grams)
+
+   !## mass change
+
+      !star_mdot ! d(star_mass)/dt (in msolar per year)
+      log_abs_mdot ! log10(abs(star_mdot)) (in msolar per year)
+
+   !## imposed surface conditions
+      !Tsurf_factor
+      !tau_factor
+      !tau_surface
+
+   !## imposed center conditions
+      !m_center
+      !m_center_gm
+      !r_center
+      !r_center_cm
+      !r_center_km
+      !L_center
+      !log_L_center
+      !log_L_center_ergs_s
+      !v_center
+      !v_center_kms
+
+      !logt_max
+
+!----------------------------------------------------------------------------------------------
+
+!# mixing and convection
+
+      !max_conv_vel_div_csound
+      !max_gradT_div_grada
+      !max_gradT_sub_grada
+      !min_log_mlt_Gamma
+
+
+   !## mixing regions
+
+      mass_conv_core ! (Msun) mass coord of top of convective core.  0 if core is not convective
+
+      !  mx1 refers to the largest (by mass) convective region.
+      !  mx2 is the 2nd largest.
+
+      !  conv_mx1_top and conv_mx1_bot are the region where mixing_type == convective_mixing.
+      !  mx1_top and mx1_bot are the extent of all kinds of mixing, convective and other.
+
+      ! values are m/Mstar
+      conv_mx1_top
+      conv_mx1_bot
+      conv_mx2_top
+      conv_mx2_bot
+      mx1_top
+      mx1_bot
+      mx2_top
+      mx2_bot
+
+      ! radius -- values are radii in Rsun units
+      !conv_mx1_top_r
+      !conv_mx1_bot_r
+      !conv_mx2_top_r
+      !conv_mx2_bot_r
+      !mx1_top_r
+      !mx1_bot_r
+      !mx2_top_r
+      !mx2_bot_r
+
+      ! you might want to get a more complete list of mixing regions by using the following
+
+      !mixing_regions <integer> ! note: this includes regions where the mixing type is no_mixing.
+
+         ! the <integer> is the number of regions to report
+         ! there will be 2*<integer> columns for this in the log file, 2 for each region.
+         ! the first column for a region gives the mixing type as defined in const/public/const_def.f90.
+
+         ! the second column for a region gives the m/mstar location of the top of the region
+         ! entries for extra columns after the last region in the star will have an invalid mixing_type value of -1.
+         ! mstar is the total mass of the star, so these locations range from 0 to 1
+         ! all regions are include starting from the center, so the bottom of one region
+         ! is the top of the previous one.  since we start at the center, the bottom of the 1st region is 0.
+
+         ! the columns in the log file will have names like 'mix_type_1' and 'mix_qtop_1'
+
+         ! if the star has too many regions to report them all,
+         ! the smallest regions will be merged with neighbors for reporting purposes only.
+
+
+      !mix_relr_regions <integer>
+         ! same as above, but locations given as r/rstar instead of m/mstar.
+         ! the columns in the log file will have names like 'mix_relr_type_1' and 'mix_relr_top_1'
+
+
+   !## conditions at base of largest convection zone (by mass)
+      !cz_bot_mass ! mass coordinate of base (Msun)
+      !cz_mass ! mass coordinate of base (Msun) -- same as cz_bot_mass
+      !cz_log_xmass ! mass exterior to base (g)
+      !cz_log_xmsun ! mass exterior to base (Msun)
+      !cz_xm ! mass exterior to base (Msun)
+      !cz_logT
+      !cz_logRho
+      !cz_logP
+      !cz_bot_radius ! Rsun
+      !cz_log_column_depth
+      !cz_log_radial_depth
+      !cz_luminosity ! Lsun
+      !cz_opacity
+      !cz_log_tau
+      !cz_eta
+      !cz_log_eps_nuc ! log10(ergs/g/s)
+      !cz_t_heat ! Cp*T/eps_nuc (seconds)
+
+      !cz_csound
+      !cz_scale_height
+      !cz_grav
+
+      !cz_omega
+      !cz_omega_div_omega_crit
+
+      !cz_zone
+
+      ! mass fractions at base of largest convection zone (by mass)
+      !cz_log_xa h1
+      !cz_log_xa he4
+
+   !## conditions at top of largest convection zone (by mass)
+      !cz_top_mass ! mass coordinate of top (Msun)
+      !cz_top_log_xmass ! mass exterior to top (g)
+      !cz_top_log_xmsun ! mass exterior to top (Msun)
+      !cz_top_xm ! mass exterior to top (Msun)
+      !cz_top_logT
+      !cz_top_logRho
+      !cz_top_logP
+      !cz_top_radius ! Rsun
+      !cz_top_log_column_depth
+      !cz_top_log_radial_depth
+      !cz_top_luminosity ! Lsun
+      !cz_top_opacity
+      !cz_top_log_tau
+      !cz_top_eta
+      !cz_top_log_eps_nuc ! log10(ergs/g/s)
+      !cz_top_t_heat ! Cp*T/eps_nuc (seconds)
+
+      !cz_top_csound
+      !cz_top_scale_height
+      !cz_top_grav
+
+      !cz_top_omega
+      !cz_top_omega_div_omega_crit
+
+      !cz_top_zone
+      !cz_top_zone_logdq
+
+      ! mass fractions at top of largest convection zone (by mass)
+      !cz_top_log_xa h1
+      !cz_top_log_xa he4
+
+!----------------------------------------------------------------------------------------------
+
+!# nuclear reactions
+
+   !## integrated quantities
+
+      !power_h_burn ! total thermal power from PP and CNO, excluding neutrinos (in Lsun units)
+      !power_he_burn ! total thermal power from triple-alpha, excluding neutrinos (in Lsun units)
+      !power_photo
+      !power_z_burn
+      !log_power_nuc_burn ! total thermal power from all burning, excluding photodisintegrations
+      log_LH ! log10 power_h_burn
+      log_LHe ! log10 power_he_burn
+      log_LZ ! log10 total burning power including LC, but excluding LH and LHe and photodisintegrations
+      log_Lnuc ! log(LH + LHe + LZ)
+      !log_Lnuc_ergs_s
+      !log_Lnuc_sub_log_L
+      !lnuc_photo
+
+      !extra_L ! integral of extra_heat in Lsun units
+      !log_extra_L ! log10 extra_L
+
+   !## neutrino losses
+      !log_Lneu ! log10 power emitted in neutrinos, nuclear and thermal (in Lsun units)
+      !log_Lneu_nuc ! log10 power emitted in neutrinos, nuclear sources only (in Lsun units)
+      !log_Lneu_nonnuc ! log10 power emitted in neutrinos, thermal sources only (in Lsun units)
+
+      !mass_loc_of_max_eps_nuc ! (in Msun units)
+      !mass_ext_to_max_eps_nuc ! (in Msun units)
+      !eps_grav_integral ! (in Lsun units)
+      !log_abs_Lgrav ! log10 abs(eps_grav_integral) (in Lsun units)
+
+   !## information about reactions (by category)
+
+      ! log10 total luminosity for reaction categories (Lsun units)
+
+      pp
+      cno
+      tri_alpha
+      !c_alpha
+      !n_alpha
+      !o_alpha
+      !ne_alpha
+      !na_alpha
+      !mg_alpha
+      !si_alpha
+      !s_alpha
+      !ar_alpha
+      !ca_alpha
+      !ti_alpha
+      !fe_co_ni
+      !c12_c12
+      !c12_o16
+      !o16_o16
+      !photo
+      !pnhe4
+      !other
+
+   !## information about individual reactions
+
+          ! adds columns for all of the reactions that are in the current net
+      ! Note that if using op_split_burn=.true. then zones which have been split will report 0 for thier rates
+      !add_raw_rates      ! raw reaction rates,       reactions/second
+      !add_screened_rates ! screened reaction rates reactions/second
+      !add_eps_nuc_rates  ! Nuclear energy (minus neutrino losses) released   erg/s
+      !add_eps_neu_rates  ! Neutrino losses             erg/s
+
+          ! individual reactions (as many as desired)
+          ! use list_net_reactions = .true. in star_job to list all reactions in the current net
+          ! reactions/second
+      !raw_rate r_h1_h1_ec_h2
+      !raw_rate r_h1_h1_wk_h2
+
+
+
+   !## nuclear reactions at center
+
+      ! center log10 burn erg/g/s for reaction categories
+
+      !c_log_eps_burn cno
+      !c_log_eps_burn tri_alfa
+
+      ! center d_eps_nuc_dlnd for reaction categories
+
+      !c_d_eps_dlnd cno
+      !c_d_eps_dlnd tri_alfa
+
+      ! center d_eps_nuc_dlnT for reaction categories
+
+      !c_d_eps_dlnT cno
+      !c_d_eps_dlnT tri_alfa
+
+   !## regions of strong nuclear burning
+
+      ! 2 zones where eps_nuc > burn_min1 erg/g/s
+      ! for each zone have 4 numbers: start1, start2, end2, end1
+      ! start1 is mass of inner edge where first goes > burn_min1 (or -20 if none such)
+      ! start2 is mass of inner edge where first zone reaches burn_min2 erg/g/sec (or -20 if none such)
+      ! end2 is mass of outer edge where first zone drops back below burn_min2 erg/g/s
+      ! end1 is mass of outer edge where first zone ends (i.e. eps_nuc < burn_min1)
+      ! similar for the second zone
+
+      epsnuc_M_1 ! start1 for 1st zone
+      epsnuc_M_2 ! start2
+      epsnuc_M_3 ! end2
+      epsnuc_M_4 ! end1
+
+      epsnuc_M_5 ! start1 for 2nd zone
+      epsnuc_M_6 ! start2
+      epsnuc_M_7 ! end2
+      epsnuc_M_8 ! end1
+
+
+      ! you might want to get a more complete list of burning regions by using the following
+
+      !burning_regions <integer>
+         ! the <integer> is the number of regions to report
+         ! there will be 2*<integer> columns for this in the log file, 2 for each region.
+         ! the first column for a region gives int(sign(val)*log10(max(1,abs(val))))
+            ! where val = ergs/gm/sec nuclear energy minus all neutrino losses.
+         ! the second column for a region gives the q location of the top of the region
+         ! entries for extra columns after the last region in the star will have a value of -9999
+         ! all regions are included starting from the center, so the bottom of one region
+         ! is the top of the previous one.
+         ! since we start at the center, the bottom of the 1st region is q=0 and top of last is q=1.
+
+         ! the columns in the log file will have names like 'burn_type_1' and 'burn_qtop_1'
+
+      !burn_relr_regions <integer>
+         ! same as above, but locations given as r/rstar instead of m/mstar.
+         ! the columns in the log file will have names like 'burn_relr_type_1' and 'burn_relr_top_1'
+
+
+         ! if the star has too many regions to report them all,
+         ! the smallest regions will be merged with neighbors for reporting purposes only.
+
+!----------------------------------------------------------------------------------------------
+
+!# information about core and envelope
+
+   !## helium core
+      he_core_mass
+      !he_core_radius
+      !he_core_lgT
+      !he_core_lgRho
+      !he_core_L
+      !he_core_v
+      !he_core_omega
+      !he_core_omega_div_omega_crit
+      !he_core_k
+
+   !## CO core
+      co_core_mass
+      !CO_core
+      !co_core_radius
+      !co_core_lgT
+      !co_core_lgRho
+      !co_core_L
+      !co_core_v
+      !co_core_omega
+      !co_core_omega_div_omega_crit
+      !co_core_k
+
+   !## ONe core
+      one_core_mass
+      !one_core_radius
+      !one_core_lgT
+      !one_core_lgRho
+      !one_core_L
+      !one_core_v
+      !one_core_omega
+      !one_core_omega_div_omega_crit
+      !one_core_k
+
+   !## iron core
+      fe_core_mass
+      !fe_core_radius
+      !fe_core_lgT
+      !fe_core_lgRho
+      !fe_core_L
+      !fe_core_v
+      !fe_core_omega
+      !fe_core_omega_div_omega_crit
+      !fe_core_k
+
+   !## neuton rich core
+      neutron_rich_core_mass
+      !neutron_rich_core_radius
+      !neutron_rich_core_lgT
+      !neutron_rich_core_lgRho
+      !neutron_rich_core_L
+      !neutron_rich_core_v
+      !neutron_rich_core_omega
+      !neutron_rich_core_omega_div_omega_crit
+      !neutron_rich_core_k
+
+   !## envelope
+
+      !envelope_mass ! = star_mass - he_core_mass
+      !envelope_fraction_left ! = envelope_mass / (initial_mass - he_core_mass)
+
+      !h_rich_layer_mass ! = star_mass - he_core_mass
+      !he_rich_layer_mass ! = he_core_mass - c_core_mass
+      !co_rich_layer_mass
+
+!----------------------------------------------------------------------------------------------
+
+!# timescales
+
+      !dynamic_timescale ! dynamic timescale (seconds) -- estimated by 2*pi*sqrt(r^3/(G*m))
+      !kh_timescale ! kelvin-helmholtz timescale (years)
+      !mdot_timescale ! star_mass/abs(star_mdot) (years)
+      !kh_div_mdot_timescales ! kh_timescale/mdot_timescale
+      !nuc_timescale ! nuclear timescale (years) -- proportional to mass divided by luminosity
+
+      !dt_cell_collapse ! min time for any cell to collapse at current velocities
+      !dt_div_dt_cell_collapse
+
+      !dt_div_max_tau_conv ! dt/ maximum conv timescale
+      !dt_div_min_tau_conv ! dt/ minimum conv timescale
+
+
+      !min_dr_div_cs ! min over all cells of dr/csound (seconds)
+      !min_dr_div_cs_k ! location of min
+      !log_min_dr_div_cs ! log10 min dr_div_csound (seconds)
+      !min_dr_div_cs_yr ! min over all cells of dr/csound (years)
+      !log_min_dr_div_cs_yr ! log10 min dr_div_csound (years)
+      !dt_div_min_dr_div_cs
+      !log_dt_div_min_dr_div_cs
+
+      !min_t_eddy ! minimum value of scale_height/conv_velocity
+
+!----------------------------------------------------------------------------------------------
+
+!# conditions at or near the surface of the model
+
+   !## conditions at the photosphere
+      !effective_T
+      !Teff
+      log_Teff ! log10 effective temperature
+         ! Teff is calculated using Stefan-Boltzmann relation L = 4 pi R^2 sigma Teff^4,
+         ! where L and R are evaluated at the photosphere (tau_factor < 1)
+         ! or surface of the model (tau_factor >= 1) when photosphere is not inside the model.
+
+      !photosphere_black_body_T
+      !photosphere_cell_T ! temperature at model location closest to the photosphere, not necessarily Teff
+      !photosphere_cell_log_T
+      !photosphere_cell_density
+      !photosphere_cell_log_density
+      !photosphere_cell_opacity
+      !photosphere_cell_log_opacity
+      !photosphere_L ! Lsun units
+      !photosphere_log_L ! Lsun units
+      !photosphere_r ! Rsun units
+      !photosphere_log_r ! Rsun units
+      !photosphere_m ! Msun units
+      !photosphere_v_km_s
+      !photosphere_cell_k
+      !photosphere_column_density
+      !photosphere_csound
+      !photosphere_log_column_density
+      !photosphere_opacity
+      !photosphere_v_div_cs
+      !photosphere_xm
+      !photosphere_cell_free_e
+      !photosphere_cell_log_free_e
+      !photosphere_logg
+      !photosphere_T
+
+   !## conditions at or near the surface of the model (outer edge of outer cell)
+
+      !luminosity ! luminosity in Lsun units
+      !luminosity_ergs_s ! luminosity in cgs units
+      log_L ! log10 luminosity in Lsun units
+      !log_L_ergs_s ! log10 luminosity in cgs units
+      !radius ! Rsun
+      log_R ! log10 radius in Rsun units
+      !radius_cm
+      !log_R_cm
+
+      log_g ! log10 gravity
+      !gravity
+      !log_Ledd
+      !log_L_div_Ledd ! log10(L/Leddington)
+      !lum_div_Ledd
+      !log_surf_optical_depth
+      !surface_optical_depth
+
+      !log_surf_cell_opacity ! old name was log_surf_opacity
+      !log_surf_cell_P ! old name was log_surf_P
+      !log_surf_cell_pressure ! old name was log_surf_pressure
+      !log_surf_cell_density ! old name was log_surf_density
+      !log_surf_cell_temperature ! old name was log_surf_temperature
+      !surface_cell_temperature ! old name was surface_temperature
+      !log_surf_cell_z ! old name was log_surf_z
+      !surface_cell_entropy ! in units of kerg per baryon
+          ! old name was surface_entropy
+
+      !v_surf ! (cm/s)
+      !v_surf_km_s ! (km/s)
+      v_div_csound_surf ! velocity divided by sound speed at outermost grid point
+      !v_div_csound_max ! max value of velocity divided by sound speed at face
+      !v_div_vesc
+      !v_phot_km_s
+      !v_surf_div_escape_v
+
+      !v_surf_div_v_kh ! v_surf/(photosphere_r/kh_timescale)
+
+      !surf_avg_j_rot
+      !surf_avg_omega
+      !surf_avg_omega_crit
+      !surf_avg_omega_div_omega_crit
+      !surf_avg_v_rot ! km/sec rotational velocity at equator
+      !surf_avg_v_crit ! critical rotational velocity at equator
+      !surf_avg_v_div_v_crit
+      !surf_avg_Lrad_div_Ledd
+      !surf_avg_logT
+      !surf_avg_logRho
+      !surf_avg_opacity
+
+      ! Gravity Darkening, reports the surface averaged L/Lsun and Teff (K) caused by
+      ! gravity darkening in rotating stars. Based on the model of Espinosa Lara & Rieutord (2011)
+      ! 'polar' refers to the line of sight being directed along the rotation axis of the star
+      ! 'equatorial' refers to the line of sight coincident with the stellar equator
+      !grav_dark_L_polar !Lsun
+      !grav_dark_Teff_polar !K
+      !grav_dark_L_equatorial !Lsun
+      !grav_dark_Teff_equatorial !K
+
+      !surf_escape_v ! cm/s
+
+      !v_wind_Km_per_s ! Km/s
+         ! = 1d-5*s% opacity(1)*max(0d0,-s% mstar_dot)/ &
+         !        (4*pi*s% photosphere_r*Rsun*s% tau_base)
+         ! Lars says:
+            ! wind_mdot = 4*pi*R^2*rho*v_wind
+            ! tau = integral(opacity*rho*dr) from R to infinity
+            ! so tau = opacity*wind_mdot/(4*pi*R*v_wind) at photosphere
+            ! or v_wind = opacity*wind_mdot/(4*pi*R*tau) at photosphere
+
+      !rotational_mdot_boost ! factor for increase in mass loss mdot due to rotation
+      !log_rotational_mdot_boost ! log factor for increase in mass loss mdot due to rotation
+      !surf_r_equatorial_div_r_polar
+      !surf_r_equatorial_div_r
+      !surf_r_polar_div_r
+
+!----------------------------------------------------------------------------------------------
+
+!# conditions near center
+
+      !log_center_T ! temperature
+      !log_center_Rho ! density
+      !log_center_P ! pressure
+
+      ! shorter names for above
+      log_cntr_P
+      log_cntr_Rho
+      log_cntr_T
+
+      !center_T ! temperature
+      !center_Rho ! density
+      !center_P ! pressure
+
+      !center_degeneracy ! the electron chemical potential in units of k*T
+      !center_gamma ! plasma interaction parameter
+      center_mu
+      center_ye
+      center_abar
+      !center_zbar
+
+      !center_eps_grav
+
+      !center_non_nuc_neu
+      !center_eps_nuc
+      !d_center_eps_nuc_dlnT
+      !d_center_eps_nuc_dlnd
+      !log_center_eps_nuc
+
+      !center_entropy ! in units of kerg per baryon
+      !max_entropy ! in units of kerg per baryon
+      !fe_core_infall
+      !non_fe_core_infall
+      !non_fe_core_rebound
+      !max_infall_speed
+
+      !compactness_parameter ! (m/Msun)/(R(m)/1000km) for m = 2.5 Msun
+      !compactness
+      !m4 ! Mass co-ordinate where entropy=4
+      ! mu4 is sensitive to the choice of how much dm/dr you average over, thus we average dm and dr over M(entropy=4) and M(entropy=4)+0.3Msun
+      !mu4 ! dM(Msun)/dr(1000km) where entropy=4
+
+
+      !center_omega
+      !center_omega_div_omega_crit
+
+!----------------------------------------------------------------------------------------------
+
+!# abundances
+
+      !species ! size of net
+
+   !## mass fractions near center
+
+      ! the following controls automatically add columns for all of the isos that are in the current net
+      !add_center_abundances
+      !add_log_center_abundances
+
+      ! individual central mass fractions (as many as desired)
+      center h1
+      center he4
+      center c12
+      center o16
+
+      ! individual log10 central mass fractions (as many as desired)
+      !log_center h1
+      !log_center he4
+      ! etc.
+
+
+   !## mass fractions near surface
+
+      ! the following controls automatically add columns for all of the isos that are in the current net
+      !add_surface_abundances
+      !add_log_surface_abundances
+
+      ! individual surface mass fractions (as many as desired)
+      !surface h1
+      !surface he4
+      surface c12
+      surface o16
+      ! etc.
+
+      ! individual log10 surface mass fractions (as many as desired)
+
+      !log_surface h1
+      !log_surface he4
+
+
+   !## mass fractions for entire star
+
+      ! the following controls automatically add columns for all of the isos that are in the current net
+      !add_average_abundances
+      !add_log_average_abundances
+
+      ! individual average mass fractions (as many as desired)
+      !average h1
+      !average he4
+      ! etc.
+
+      ! individual log10 average mass fractions (as many as desired)
+      !log_average h1
+      !log_average he4
+      ! etc.
+
+
+   !## mass totals for entire star (in Msun units)
+
+      ! the following controls automatically add columns for all of the isos that are in the current net
+      !add_total_mass
+      !add_log_total_mass
+
+      ! individual mass totals for entire star (as many as desired)
+      total_mass h1
+      total_mass he4
+      ! etc.
+
+      ! individial log10  mass totals for entire star (in Msun units)
+      !log_total_mass h1
+      !log_total_mass he4
+      ! etc.
+
+!----------------------------------------------------------------------------------------------
+
+!# info at specific locations
+
+   !## info at location of max temperature
+   !max_T
+   !log_max_T
+
+
+!----------------------------------------------------------------------------------------------
+
+!# information about shocks
+
+   !## info about outermost outward moving shock
+      ! excluding locations with q > max_q_for_outer_mach1_location
+      ! returns values at location of max velocity
+      !shock_mass ! baryonic (Msun)
+      !shock_mass_gm ! baryonic (grams)
+      !shock_q
+      !shock_radius ! (Rsun)
+      !shock_radius_cm ! (cm)
+      !shock_velocity
+      !shock_csound
+      !shock_v_div_cs
+      !shock_lgT
+      !shock_lgRho
+      !shock_lgP
+      !shock_gamma1
+      !shock_entropy
+      !shock_tau
+      !shock_k
+      !shock_pre_lgRho
+
+!----------------------------------------------------------------------------------------------
+
+!# asteroseismology
+
+      !delta_nu ! large frequency separation for p-modes (microHz)
+         ! 1e6/(seconds for sound to cross diameter of star)
+      !delta_Pg ! g-mode period spacing for l=1 (seconds)
+         ! sqrt(2) pi^2/(integral of brunt_N/r dr)
+      !log_delta_Pg
+      !nu_max ! estimate from scaling relation (microHz)
+         ! nu_max = nu_max_sun * M/Msun / ((R/Rsun)^2 (Teff/astero_Teff_sun)^0.5)
+      !nu_max_3_4th_div_delta_nu ! nu_max^0.75/delta_nu
+      !acoustic_cutoff ! 0.5*g*sqrt(gamma1*rho/P) at surface
+      !acoustic_radius ! integral of dr/csound (seconds)
+      !ng_for_nu_max ! = 1 / (nu_max*delta_Pg)
+         ! period for g-mode with frequency nu_max = nu_max_ng*delta_Pg
+      !gs_per_delta_nu ! delta_nu / (nu_max**2*delta_Pg)
+         ! number of g-modes per delta_nu at nu_max
+
+      !int_k_r_dr_nu_max_Sl1 ! integral of k_r*dr where nu < N < Sl for nu = nu_max, l=1
+      !int_k_r_dr_2pt0_nu_max_Sl1 ! integral of k_r*dr where nu < N < Sl for nu = nu_max*2, l=1
+      !int_k_r_dr_0pt5_nu_max_Sl1 ! integral of k_r*dr where nu < N < Sl for nu = nu_max/2, l=1
+      !int_k_r_dr_nu_max_Sl2 ! integral of k_r*dr where nu < N < Sl for nu = nu_max, l=2
+      !int_k_r_dr_2pt0_nu_max_Sl2 ! integral of k_r*dr where nu < N < Sl for nu = nu_max*2, l=2
+      !int_k_r_dr_0pt5_nu_max_Sl2 ! integral of k_r*dr where nu < N < Sl for nu = nu_max/2, l=2
+      !int_k_r_dr_nu_max_Sl3 ! integral of k_r*dr where nu < N < Sl for nu = nu_max, l=3
+      !int_k_r_dr_2pt0_nu_max_Sl3 ! integral of k_r*dr where nu < N < Sl for nu = nu_max*2, l=3
+      !int_k_r_dr_0pt5_nu_max_Sl3 ! integral of k_r*dr where nu < N < Sl for nu = nu_max/2, l=3
+
+!----------------------------------------------------------------------------------------------
+
+!# energy information
+
+      !total_energy ! at end of step
+      !log_total_energy ! log(abs(total_energy))
+      !total_energy_after_adjust_mass ! after mass adjustments
+
+      ! shorter versions of above
+      !tot_E
+      !log_tot_E
+
+
+      !total_gravitational_energy
+      !log_total_gravitational_energy ! log(abs(total_gravitational_energy))
+      !total_gravitational_energy_after_adjust_mass
+
+      ! shorter versions of above
+      !tot_PE
+      !log_tot_PE
+
+      !total_internal_energy
+      !log_total_internal_energy
+      !total_internal_energy_after_adjust_mass
+
+      ! shorter versions of above
+      !tot_IE
+      !log_tot_IE
+
+      !total_radial_kinetic_energy
+      !log_total_radial_kinetic_energy
+      !total_radial_kinetic_energy_after_adjust_mass
+
+      ! shorter versions of above (does not include rot KE)
+      !tot_KE
+      !log_tot_KE
+
+      !total_turbulent_energy
+      !log_total_turbulent_energy
+      !total_turbulent_energy_after_adjust_mass
+      !tot_Et
+      !log_tot_Et
+
+      !total_energy_foe
+
+      !tot_IE_div_IE_plus_KE
+      !total_IE_div_IE_plus_KE
+
+      !total_entropy
+      !total_eps_grav
+
+      !total_energy_sources_and_sinks ! for this step
+      !total_nuclear_heating
+      !total_non_nuc_neu_cooling
+      !total_irradiation_heating
+      !total_extra_heating ! extra heat integrated over the model times dt (erg)
+      !total_WD_sedimentation_heating
+
+      !rel_run_E_err
+
+      !rel_E_err
+      !abs_rel_E_err
+      !log_rel_E_err
+
+      !tot_e_equ_err
+      !tot_e_err
+
+
+      !error_in_energy_conservation ! for this step
+         ! = total_energy - (total_energy_start + total_energy_sources_and_sinks)
+      !cumulative_energy_error ! = sum over all steps of abs(error_in_energy_conservation)
+      !rel_cumulative_energy_error ! = cumulative_energy_error/total_energy
+      !log_rel_cumulative_energy_error ! = log10 of rel_cumulative_energy_error
+      !log_rel_run_E_err ! shorter name for rel_cumulative_energy_error
+
+      !rel_error_in_energy_conservation ! = error_in_energy_conservation/total_energy
+      !log_rel_error_in_energy_conservation
+
+      !virial_thm_P_avg
+      !virial_thm_rel_err
+      !work_inward_at_center
+      !work_outward_at_surface
+
+
+!----------------------------------------------------------------------------------------------
+
+ !# rotation
+
+      !total_angular_momentum
+      log_total_angular_momentum
+      !i_rot_total ! moment of inertia
+
+      !total_rotational_kinetic_energy
+      !log_total_rotational_kinetic_energy
+      !total_rotational_kinetic_energy_after_adjust_mass
+
+!----------------------------------------------------------------------------------------------
+
+!# velocities
+
+      !avg_abs_v_div_cs
+      !log_avg_abs_v_div_cs
+      !max_abs_v_div_cs
+      !log_max_abs_v_div_cs
+
+      !avg_abs_v
+      !log_avg_abs_v
+      !max_abs_v
+      !log_max_abs_v
+
+      !u_surf
+      !u_surf_km_s
+      !u_div_csound_surf
+      !u_div_csound_max
+
+      !infall_div_cs
+
+!----------------------------------------------------------------------------------------------
+
+!# misc
+
+      !e_thermal ! sum over all zones of Cp*T*dm
+
+   !## eos
+      !logQ_max ! logQ = logRho - 2*logT + 12
+      !logQ_min
+      !gamma1_min
+
+   !## core mixing
+      !mass_semiconv_core
+
+   !## H-He boundary
+
+      !diffusion_time_H_He_bdy
+      !temperature_H_He_bdy
+
+
+   !## optical depth and opacity
+
+      !one_div_yphot
+      !log_one_div_yphot
+
+      !log_min_opacity
+      !min_opacity
+
+      !log_tau_center
+
+      !log_max_tau_conv
+      !max_tau_conv
+      !log_min_tau_conv
+      !min_tau_conv
+
+      !tau_qhse_yrs
+
+   !## other
+
+      !Lsurf_m
+      !dlnR_dlnM
+      !h1_czb_mass ! location (in Msun units) of base of 1st convection zone above he core
+      !kh_mdot_limit
+      !log_cntr_dr_cm
+      !min_Pgas_div_P
+      !surf_c12_minus_o16 ! this is useful for seeing effects of dredge up on AGB
+      !surf_num_c12_div_num_o16
+
+      !phase_of_evolution ! Integer mapping to the type of evolution see star_data/public/star_data_def.inc for definitions
+
+   !## MLT++
+      !gradT_excess_alpha
+      !gradT_excess_min_beta
+      !gradT_excess_max_lambda
+
+      !max_L_rad_div_Ledd
+      !max_L_rad_div_Ledd_div_phi_Joss
+
+
+   !## RTI
+      !rti_regions <num>
+
+   !## Ni & Co
+      !total_ni_co_56
+
+
+   !## internal structure constants
+
+      ! this is evaluated assuming a spherical star and does not account for rotation
+      !apsidal_constant_k2
+
+
+!----------------------------------------------------------------------------------------------
+
+!# accretion
+
+      !k_below_const_q
+      !q_below_const_q
+      !logxq_below_const_q
+
+      !k_const_mass
+      !q_const_mass
+      !logxq_const_mass
+
+      !k_below_just_added
+      !q_below_just_added
+      !logxq_below_just_added
+
+      !k_for_test_CpT_absMdot_div_L
+      !q_for_test_CpT_absMdot_div_L
+      !logxq_for_test_CpT_absMdot_div_L
+
+!----------------------------------------------------------------------------------------------
+
+!# Color output
+
+      ! Outputs the bolometric correction (bc) for the star in filter band ``filter'' (case sensitive)
+      !bc filter
+
+      ! Outputs the absolute magnitude for the star in filter band ``filter'' (case sensitive)
+      !abs_mag filter
+
+      ! Adds all the bc's to the output
+      !add_bc
+
+      ! Adds all the absolute magnitudes to the output
+      !add_abs_mag
+
+      ! Outputs luminosity in filter band ``filter'' (erg s^-1) (case sensitive)
+      ! lum_band filter
+
+      ! Adds all the filter band luminosities to the output (erg s^-1)
+      ! add_lum_band
+
+      ! Outputs log luminosity in filter band ``filter'' (log erg s^-1) (case sensitive)
+      ! log_lum_band filter
+
+      ! Adds all the filter band luminosities to the output (log erg s^-1)
+      ! add_log_lum_band
+
+!----------------------------------------------------------------------------------------------
+
+!# RSP
+
+   !rsp_DeltaMag ! absolute magnitude difference between minimum and maximum light (mag)
+   !rsp_DeltaR ! R_max - R_min difference in the max and min radius (Rsun)
+   !rsp_GREKM ! fractional growth of the kinetic energy per pulsation period ("nonlinear growth rate") - see equation 5 in MESA5
+   !rsp_num_periods ! Count of the number of pulsation cycles completed
+   !rsp_period_in_days ! Running period, ie., period between two consecutive values of R_max (days)
+   !rsp_phase ! Running pulsation phase for a cycle
+
+!----------------------------------------------------------------------------------------------
+!# debugging
+
+   !## retries
+      num_retries ! total during the run
+
+   !## solver iterations
+
+      num_iters ! same as num_solver_iterations
+      !num_solver_iterations ! iterations at this step
+      !total_num_solver_iterations ! total iterations during the run
+      !avg_num_solver_iters
+
+      !rotation_solver_steps
+
+      !diffusion_solver_steps
+      !diffusion_solver_iters
+
+      !avg_setvars_per_step
+      !avg_skipped_setvars_per_step
+      !avg_solver_setvars_per_step
+
+      !burn_solver_maxsteps
+
+      !total_num_solver_calls_converged
+      !total_num_solver_calls_failed
+      !total_num_solver_calls_made
+      !total_num_solver_relax_calls_converged
+      !total_num_solver_relax_calls_failed
+      !total_num_solver_relax_calls_made
+      !total_num_solver_relax_iterations
+
+      !total_step_attempts
+      !total_step_redos
+      !total_step_retries
+      !total_steps_finished
+      !total_steps_taken
+
+      !TDC_num_cells
+
+   !## Relaxation steps
+      !total_relax_step_attempts
+      !total_relax_step_redos
+      !total_relax_step_retries
+      !total_relax_steps_finished
+      !total_relax_steps_taken
+
+   !## conservation during mesh adjust
+      !log_mesh_adjust_IE_conservation
+      !log_mesh_adjust_KE_conservation
+      !log_mesh_adjust_PE_conservation
+
+   !## amr
+      !num_hydro_merges
+      !num_hydro_splits
+
+   !## timing
+      !elapsed_time ! time since start of run (seconds)
diff --git a/star/test_suite/accreted_material_j/inlist_accreted_material_j b/star/test_suite/accreted_material_j/inlist_accreted_material_j
index ab0f3db53..b7074fdfc 100644
--- a/star/test_suite/accreted_material_j/inlist_accreted_material_j
+++ b/star/test_suite/accreted_material_j/inlist_accreted_material_j
@@ -1,35 +1,38 @@
 &star_job
 
-      show_log_description_at_start = .false. 
+   show_log_description_at_start = .false.
 
-      load_saved_model = .true.
-      load_model_filename = 'zams.mod'
+   load_saved_model = .true.
+   load_model_filename = 'zams.mod'
 
-      new_rotation_flag = .true.
-      change_rotation_flag = .true.
-      !relax_initial_omega_div_omega_crit = .true.
-      set_initial_omega_div_omega_crit = .true.
-      new_omega_div_omega_crit = 0.1
+   new_rotation_flag = .true.
+   change_rotation_flag = .true.
+   !relax_initial_omega_div_omega_crit = .true.
+   set_initial_omega_div_omega_crit = .true.
+   new_omega_div_omega_crit = 0.1
 
-      set_initial_dt = .true.
-      years_for_initial_dt = 1
+   set_initial_dt = .true.
+   years_for_initial_dt = 1
 
-      set_initial_model_number = .true.
-      initial_model_number = 0
+   set_initial_model_number = .true.
+   initial_model_number = 0
 
-      set_initial_age = .true.
-      initial_age = 0
+   set_initial_age = .true.
+   initial_age = 0
 
-      set_initial_cumulative_energy_error = .true.
-      new_cumulative_energy_error = 0d0
+   set_initial_cumulative_energy_error = .true.
+   new_cumulative_energy_error = 0d0
 
-      !change_D_omega_flag = .true.
-      !new_D_omega_flag = .true.
+   !change_D_omega_flag = .true.
+   !new_D_omega_flag = .true.
 
-      save_model_when_terminate = .true.
-      save_model_filename = 'final.mod'
-      !required_termination_code_string = 'xa_central_lower_limit'
-      required_termination_code_string = 'star_mass_max_limit'
+   save_model_when_terminate = .true.
+   save_model_filename = 'final.mod'
+   !required_termination_code_string = 'xa_central_lower_limit'
+   required_termination_code_string = 'star_mass_max_limit'
+
+   pgstar_flag = .true.
+   save_pgstar_files_when_terminate = .true.
 
 / !end of star_job
 
@@ -39,80 +42,80 @@
 
 
 &kap
-      Zbase = 0.02
+   Zbase = 0.02
 / ! end of kap namelist
 
 &controls
-      scale_max_correction = 0.1d0
-      ignore_species_in_max_correction = .true.
-
-      energy_eqn_option = 'dedt'
-      use_gold2_tolerances = .true.
-
-      num_trace_history_values = 2
-      trace_history_value_name(1) = 'rel_E_err'
-      trace_history_value_name(2) = 'log_rel_run_E_err'
-
-      ! limit max_model_number as part of test_suite
-      max_model_number = 1000
-            
-      premix_omega = .true.
-      
-      am_nu_visc_factor = 0
-      am_D_mix_factor = 0.0333333333333333d00
-      D_DSI_factor = 1
-      D_SH_factor = 1
-      D_SSI_factor = 1
-      D_ES_factor = 1
-      D_GSF_factor = 1
-      D_ST_factor = 1
-
-      !set_min_D_mix = .true.
-      !min_D_mix = 1d10
-      
-  ! starting specifications
-      initial_mass = 20 ! in Msun units
-      initial_Z = 0.02
-
-      max_mdot_redo_cnt = 200
-      min_years_dt_for_redo_mdot = 1d-5
-      surf_omega_div_omega_crit_limit = 0.999d0
-      surf_omega_div_omega_crit_tol = 0.055
-      rotational_mdot_boost_fac = 1d10
-      rotational_mdot_kh_fac = 1d10
-      mdot_revise_factor = 1.1
-      implicit_mdot_boost = 0.1
-
-      use_accreted_material_j = .true.
-      use_other_adjust_mdot = .true.
-
-      ! ratio of accreted am to keplerian
-      x_ctrl(1) = 0.1d0
-      ! log10 accretion rate in msun/secyer
-      x_ctrl(2) = -3d0
-
-      star_mass_max_limit = 25d0
-
-      !varcontrol_target = 5d-4
-      delta_lg_star_mass_limit = 2d-4
-      delta_lg_star_mass_hard_limit = 4d-4
-   
+   scale_max_correction = 0.1d0
+   ignore_species_in_max_correction = .true.
+
+   energy_eqn_option = 'dedt'
+   use_gold2_tolerances = .true.
+
+   num_trace_history_values = 2
+   trace_history_value_name(1) = 'rel_E_err'
+   trace_history_value_name(2) = 'log_rel_run_E_err'
+
+   ! limit max_model_number as part of test_suite
+   max_model_number = 1000
+
+   premix_omega = .true.
+
+   am_nu_visc_factor = 0
+   am_D_mix_factor = 0.0333333333333333d00
+   D_DSI_factor = 1
+   D_SH_factor = 1
+   D_SSI_factor = 1
+   D_ES_factor = 1
+   D_GSF_factor = 1
+   D_ST_factor = 1
+
+   !set_min_D_mix = .true.
+   !min_D_mix = 1d10
+
+   ! starting specifications
+   initial_mass = 20 ! in Msun units
+   initial_Z = 0.02
+
+   max_mdot_redo_cnt = 200
+   min_years_dt_for_redo_mdot = 1d-5
+   surf_omega_div_omega_crit_limit = 0.999d0
+   surf_omega_div_omega_crit_tol = 0.055
+   rotational_mdot_boost_fac = 1d10
+   rotational_mdot_kh_fac = 1d10
+   mdot_revise_factor = 1.1
+   implicit_mdot_boost = 0.1
+
+   use_accreted_material_j = .true.
+   use_other_adjust_mdot = .true.
+
+   ! ratio of accreted am to keplerian
+   x_ctrl(1) = 0.1d0
+   ! log10 accretion rate in msun/secyer
+   x_ctrl(2) = -3d0
+
+   star_mass_max_limit = 25d0
+
+   !varcontrol_target = 5d-4
+   delta_lg_star_mass_limit = 2d-4
+   delta_lg_star_mass_hard_limit = 4d-4
+
    ! output to files and terminal
-      photo_interval = 50
-      profile_interval = 100
-      max_num_profile_models = 3000
-      history_interval = 10
-      terminal_interval = 10
-      
-      write_header_frequency = 10
-      
-      !report_solver_progress = .true.
+   photo_interval = 50
+   profile_interval = 100
+   max_num_profile_models = 3000
+   history_interval = 10
+   terminal_interval = 10
+
+   write_header_frequency = 10
+
+   !report_solver_progress = .true.
 
 /
 
 
 &pgstar
-         
+
 
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/accreted_material_j/inlist_accreted_material_j_header b/star/test_suite/accreted_material_j/inlist_accreted_material_j_header
index 54bd3ff57..dd7b8bc6f 100644
--- a/star/test_suite/accreted_material_j/inlist_accreted_material_j_header
+++ b/star/test_suite/accreted_material_j/inlist_accreted_material_j_header
@@ -2,24 +2,24 @@
 &star_job
 
 
-      read_extra_star_job_inlist(2) = .true.
-      extra_star_job_inlist_name(2) = 'inlist_accreted_material_j'
+   read_extra_star_job_inlist(2) = .true.
+   extra_star_job_inlist_name(2) = 'inlist_accreted_material_j'
 
 / ! end of star_job namelist
 
 
 &eos
 
-      read_extra_eos_inlist(1) = .true.
-      extra_eos_inlist_name(1) = 'inlist_accreted_material_j'
+   read_extra_eos_inlist(1) = .true.
+   extra_eos_inlist_name(1) = 'inlist_accreted_material_j'
 
 / ! end of eos namelist
 
 
 &kap
 
-      read_extra_kap_inlist(1) = .true.
-      extra_kap_inlist_name(1) = 'inlist_accreted_material_j'
+   read_extra_kap_inlist(1) = .true.
+   extra_kap_inlist_name(1) = 'inlist_accreted_material_j'
 
 / ! end of kap namelist
 
@@ -27,15 +27,15 @@
 
 &controls
 
-      read_extra_controls_inlist(1) = .true.
-      extra_controls_inlist_name(1)= 'inlist_accreted_material_j'
+   read_extra_controls_inlist(1) = .true.
+   extra_controls_inlist_name(1)= 'inlist_accreted_material_j'
 
 / ! end of controls namelist
 
 
 &pgstar
 
-      read_extra_pgstar_inlist(1) = .true.
-      extra_pgstar_inlist_name(1)= 'inlist_accreted_material_j'
+   read_extra_pgstar_inlist(1) = .true.
+   extra_pgstar_inlist_name(1)= 'inlist_pgstar'
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/accreted_material_j/inlist_pgstar b/star/test_suite/accreted_material_j/inlist_pgstar
new file mode 100644
index 000000000..9e1b2413c
--- /dev/null
+++ b/star/test_suite/accreted_material_j/inlist_pgstar
@@ -0,0 +1,35 @@
+&pgstar
+
+   ! device
+   file_white_on_black_flag = .true.
+   file_device = 'vcps'      ! postscript
+   file_extension = 'ps'
+   !file_device = 'png'      ! png
+   !file_extension = 'png'
+
+   pgstar_interval = 10
+
+   History_Track1_win_flag = .true.
+   History_Track1_win_width = 12
+   History_Track1_title = 'accreted_material_j'
+   History_Track1_xname = 'star_mass'
+   History_Track1_yname = 'log_total_angular_momentum'
+   History_Track1_yaxis_label = 'log J'
+   History_Track1_xaxis_label = 'M\d\(2281)'
+   History_Track1_reverse_xaxis = .false.
+   History_Track1_reverse_yaxis = .false.
+
+   History_Track1_xmin = 20.0
+   History_Track1_xmax = 25.0
+   History_Track1_ymin = 51.9
+   History_Track1_ymax = 52.7
+
+! file output
+   History_Track1_file_flag = .true.
+   History_Track1_file_dir = 'pgstar_out'
+   History_Track1_file_prefix = 'track1_'
+   History_Track1_file_interval = 10
+   History_Track1_file_width =12
+   History_Track1_file_aspect_ratio = -1
+
+/ ! end of pgstar namelist
diff --git a/star/test_suite/accreted_material_j/inlist_zams b/star/test_suite/accreted_material_j/inlist_zams
index 24c5b390d..95fd18487 100644
--- a/star/test_suite/accreted_material_j/inlist_zams
+++ b/star/test_suite/accreted_material_j/inlist_zams
@@ -2,16 +2,16 @@
 
 &star_job
 
-      show_log_description_at_start = .false. 
+   show_log_description_at_start = .false.
 
-      create_pre_main_sequence_model = .true.
+   create_pre_main_sequence_model = .true.
 
-      save_model_when_terminate = .true.
-      save_model_filename = 'zams.mod'
-      required_termination_code_string = 'Lnuc_div_L_zams_limit'
+   save_model_when_terminate = .true.
+   save_model_filename = 'zams.mod'
+   required_termination_code_string = 'Lnuc_div_L_zams_limit'
 
 
-      !pgstar_flag = .true.
+   !pgstar_flag = .true.
 
 / ! end of star_job namelist
 
@@ -21,31 +21,31 @@
 
 &kap
 
-      kap_file_prefix = 'gs98'
-      Zbase = 0.02
+   kap_file_prefix = 'gs98'
+   Zbase = 0.02
 
 / ! end of kap namelist
 
 &controls
 
-      initial_mass = 20 ! in Msun units
-      initial_Z = 0.02
-      
-      stop_near_zams = .true.
-      Lnuc_div_L_zams_limit = 0.9d0
-      
-      ! limit max_model_number as part of test_suite
-      max_model_number = 10000
-      use_gold2_tolerances = .true.
-      
-      num_trace_history_values = 2
-      trace_history_value_name(1) = 'rel_E_err'
-      trace_history_value_name(2) = 'log_rel_run_E_err'
-
-      photo_interval = 100
-      profile_interval = 100
-      history_interval = 5
-      terminal_interval = 50
-   
+   initial_mass = 20 ! in Msun units
+   initial_Z = 0.02
+
+   stop_near_zams = .true.
+   Lnuc_div_L_zams_limit = 0.9d0
+
+   ! limit max_model_number as part of test_suite
+   max_model_number = 10000
+   use_gold2_tolerances = .true.
+
+   num_trace_history_values = 2
+   trace_history_value_name(1) = 'rel_E_err'
+   trace_history_value_name(2) = 'log_rel_run_E_err'
+
+   photo_interval = 100
+   profile_interval = 100
+   history_interval = 5
+   terminal_interval = 50
+
 / ! end of controls namelist
 
diff --git a/star/test_suite/accreted_material_j/inlist_zams_header b/star/test_suite/accreted_material_j/inlist_zams_header
index 83e825c58..3de76b840 100644
--- a/star/test_suite/accreted_material_j/inlist_zams_header
+++ b/star/test_suite/accreted_material_j/inlist_zams_header
@@ -2,24 +2,24 @@
 &star_job
 
 
-      read_extra_star_job_inlist(2) = .true.
-      extra_star_job_inlist_name(2) = 'inlist_zams'
+   read_extra_star_job_inlist(2) = .true.
+   extra_star_job_inlist_name(2) = 'inlist_zams'
 
 / ! end of star_job namelist
 
 
 &eos
 
-      read_extra_eos_inlist(1) = .true.
-      extra_eos_inlist_name(1) = 'inlist_zams'
+   read_extra_eos_inlist(1) = .true.
+   extra_eos_inlist_name(1) = 'inlist_zams'
 
 / ! end of eos namelist
 
 
 &kap
 
-      read_extra_kap_inlist(1) = .true.
-      extra_kap_inlist_name(1) = 'inlist_zams'
+   read_extra_kap_inlist(1) = .true.
+   extra_kap_inlist_name(1) = 'inlist_zams'
 
 / ! end of kap namelist
 
@@ -27,15 +27,15 @@
 
 &controls
 
-      read_extra_controls_inlist(1) = .true.
-      extra_controls_inlist_name(1)= 'inlist_zams'
+   read_extra_controls_inlist(1) = .true.
+   extra_controls_inlist_name(1)= 'inlist_zams'
 
 / ! end of controls namelist
 
 
 &pgstar
 
-      read_extra_pgstar_inlist(1) = .true.
-      extra_pgstar_inlist_name(1)= 'inlist_zams'
+   read_extra_pgstar_inlist(1) = .true.
+   extra_pgstar_inlist_name(1)= 'inlist_zams'
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/adjust_net/README.rst b/star/test_suite/adjust_net/README.rst
index b600a07bc..8a6ea9490 100644
--- a/star/test_suite/adjust_net/README.rst
+++ b/star/test_suite/adjust_net/README.rst
@@ -21,13 +21,13 @@ This test case has two parts. Click to see a larger view of a plot.
 * Part 2 (``inlist_adjust_net_header``) continues the evolution, activates the adaptive nuclear reaction network, and terminates at about 2 million years with 62 isotopes in the reaction network:
 
 .. image:: ../../../star/test_suite/adjust_net/docs/track1_000234.svg
-   :scale: 100%
+   :width: 100%
 
 .. image:: ../../../star/test_suite/adjust_net/docs/Network_000205.svg
-   :scale: 100%
+   :width: 100%
 
 .. image:: ../../../star/test_suite/adjust_net/docs/Network_000234.svg
-   :scale: 100%
+   :width: 100%
 
 
 pgstar commands used for the plots above:
diff --git a/star/test_suite/c13_pocket/README.rst b/star/test_suite/c13_pocket/README.rst
index 7c2a9e14b..2049edc60 100644
--- a/star/test_suite/c13_pocket/README.rst
+++ b/star/test_suite/c13_pocket/README.rst
@@ -37,7 +37,7 @@ that ensure the thermal pulse cycle and the pocket are well resolved.
 This also adds the large exponential overshooting at the base of the
 convective envelope that mixes the protons into the intershell.
 
-At the end of this test, MESA has succesfully evolved through a
+At the end of this test, MESA has successfully evolved through a
 thermal pulse and the :math:`^{13}{\rm C}` pocket is apparent.
 
 .. image:: ../../../star/test_suite/c13_pocket/docs/grid1001915.png
diff --git a/star/test_suite/cburn_inward/README.rst b/star/test_suite/cburn_inward/README.rst
index 698f471c8..6c81944ed 100644
--- a/star/test_suite/cburn_inward/README.rst
+++ b/star/test_suite/cburn_inward/README.rst
@@ -9,7 +9,7 @@ This test suite example checks the inward propagation of a carbon burning front
 Physical checks
 ===============
 
-This test case tracks the mass co-orindate when carbon ignites, the density at that point, and 
+This test case tracks the mass coordinate when carbon ignites, the density at that point, and 
 the C/O core mass at that instance.
 
 This mass should be about half the C/O core mass (0.5 |Msun|). If its not then the initial model needs updating.
@@ -18,7 +18,7 @@ during core helium burning. If the ignition mass is higher then increase the ini
 increase overshoot during core helium burning.
 
 The ignition density should be about |logRho| ~ 6.2 (`Farmer et al (2015) <https://ui.adsabs.harvard.edu/abs/2015ApJ...807..184F/abstract>`__).
-If its signficantly different (0.1 dex) then we have a microphysics problem (or more likely an issue tracking the flame location).
+If its significantly different (0.1 dex) then we have a microphysics problem (or more likely an issue tracking the flame location).
 
 The C/O core mass should be between 1.0 and 1.4 |Msun|, if different then tune the initial mass/overshot, otherwise
 we may not get a carbon flame.
@@ -34,10 +34,10 @@ This test case has two parts. Click to see a larger view of a plot.
 * Part 2 (``cburn_inward``) continues the evoluton where an off-center carbon burning front ignites, develops a convective region behind the burning front, and propagates towards the center through oxygen-neon-magnesium rich material.
 
 .. image:: ../../../star/test_suite/cburn_inward/docs/grid_000170.svg
-   :scale: 100%
+   :width: 100%
 
 .. image:: ../../../star/test_suite/cburn_inward/docs/kipp_000170.svg
-   :scale: 100%
+   :width: 100%
 
 pgstar commands used for the plots above:
 
diff --git a/star/test_suite/ccsn_IIp/README.rst b/star/test_suite/ccsn_IIp/README.rst
index 031433755..165b8a9c8 100644
--- a/star/test_suite/ccsn_IIp/README.rst
+++ b/star/test_suite/ccsn_IIp/README.rst
@@ -4,50 +4,50 @@
 ccsn_IIp
 ********
 
-This test suite example builds a Type IIp supernova model, including Rayleigh-Taylor Instability mixing, for subsquent use in STELLA.
+This test suite example builds a Type IIp supernova model, including Rayleigh-Taylor Instability mixing, for subsequent use in STELLA.
 
 This test case has 8 parts and ``src/run_star_extras.f90`` is important. Click to see a larger view of a plot.
 
 * Part 1 (``inlist_infall``) loads ``pre_ccsn.mod`` from ``make_pre_ccsn_IIp``. The evolution of the 11.7 MSun model with with cell center Riemann velocities (u) and a total energy of -9.4e50 erg continues util R_center drops below 400 km:
 
 .. image:: ../../../star/test_suite/ccsn_IIp/docs/infall.svg
-   :scale: 100%
+   :width: 100%
 
 
 * Part 2 (``inlist_end_infall``) continues the evolution for an additional 1e-5 sec using HLLC hydrodynamics:
 
 .. image:: ../../../star/test_suite/ccsn_IIp/docs/end_infall.svg
-   :scale: 100%
+   :width: 100%
 
 * Part 3 (``inlist_edep``) injects thermal energy into the inner 0.2 Msun until the model reaches a total energy of 8e50 erg:
 
 .. image:: ../../../star/test_suite/ccsn_IIp/docs/edep.svg
-   :scale: 100%
+   :width: 100%
 
-* Part 4 (``inlist_shock_part1``) contnues the evolution until the outward bound shock reaches 1.83 Msun:
+* Part 4 (``inlist_shock_part1``) continues the evolution until the outward bound shock reaches 1.83 Msun:
 
 .. image:: ../../../star/test_suite/ccsn_IIp/docs/part1.svg
-   :scale: 100%
+   :width: 100%
 
-* Part 5 (``inlist_shock_part2``) contnues the evolution until the outward bound shock reaches 2.68 Msun:
+* Part 5 (``inlist_shock_part2``) continues the evolution until the outward bound shock reaches 2.68 Msun:
 
 .. image:: ../../../star/test_suite/ccsn_IIp/docs/part2.svg
-   :scale: 100%
+   :width: 100%
 
-* Part 6 (``inlist_shock_part3``) contnues the evolution until the outward bound shock reaches 3.88 Msun:
+* Part 6 (``inlist_shock_part3``) continues the evolution until the outward bound shock reaches 3.88 Msun:
 
 .. image:: ../../../star/test_suite/ccsn_IIp/docs/part3.svg
-   :scale: 100%
+   :width: 100%
 
-* Part 7 (``inlist_shock_part4``) contnues the evolution until the outward bound shock reaches 11.64 Msun:
+* Part 7 (``inlist_shock_part4``) continues the evolution until the outward bound shock reaches 11.64 Msun:
 
 .. image:: ../../../star/test_suite/ccsn_IIp/docs/part4.svg
-   :scale: 100%
+   :width: 100%
 
 * Part 8 (``inlist_shock_part5``) continues the approach to shock breakout, terminating when the shock reaches 11.70 Msun, and creating the ``mesa.abn`` and ``mesa.abn`` files for subsequent use with STELLA:
 
 .. image:: ../../../star/test_suite/ccsn_IIp/docs/part5.svg
-   :scale: 100%
+   :width: 100%
 
 
 
diff --git a/star/test_suite/conductive_flame/README.rst b/star/test_suite/conductive_flame/README.rst
index a029494ca..923b7d67d 100644
--- a/star/test_suite/conductive_flame/README.rst
+++ b/star/test_suite/conductive_flame/README.rst
@@ -24,8 +24,9 @@ center of the model.  The properties of this initial model can be
 controlled from the inlist.
 
 .. literalinclude:: ../../../star/test_suite/conductive_flame/inlist_conductive_flame
+   :language: fortran
    :start-after: ! use our own routine to build the model
-   :lines: 1-11
+   :end-at: x_ctrl(8)
 
 The inner boundary is at r = 0.  The outer boundary has a fixed
 temperature and a fixed pressure equal to the initial pressure of the
@@ -47,7 +48,14 @@ routine ``flame_properties`` in the ``run_star_extras.f90``.
 
 
 
-.. image:: ../../../star/test_suite/conductive_flame/docs/grid1000427.png
+.. image:: ../../../star/test_suite/conductive_flame/docs/grid1000597.png
+   :width: 100%
+
+pgstar commands used for the plots above:
+
+.. literalinclude:: ../../../star/test_suite/conductive_flame/inlist_pgstar
+  :language: console
+
 
 .. |Timmes1992| replace:: `Timmes & Woosley (1992) <https://ui.adsabs.harvard.edu/abs/1992ApJ...396..649T/abstract>`__
 
@@ -58,3 +66,4 @@ routine ``flame_properties`` in the ``run_star_extras.f90``.
 
 Last-Updated: 2021-06-21 (mesa b2364463) by Josiah Schwab, + documentation 2024-01-22 EbF
 
+Last-Run: 06Aug2024 (MESA 1adbf1aa) by pmocz on C916PXT6XW in 327 seconds using 8 threads.
diff --git a/star/test_suite/conductive_flame/docs/grid1000597.png b/star/test_suite/conductive_flame/docs/grid1000597.png
new file mode 100644
index 000000000..358fb2a2e
Binary files /dev/null and b/star/test_suite/conductive_flame/docs/grid1000597.png differ
diff --git a/star/test_suite/conductive_flame/inlist_conductive_flame b/star/test_suite/conductive_flame/inlist_conductive_flame
index a9dfafdf4..550b42bcc 100644
--- a/star/test_suite/conductive_flame/inlist_conductive_flame
+++ b/star/test_suite/conductive_flame/inlist_conductive_flame
@@ -1,123 +1,124 @@
 
 &star_job
-      show_log_description_at_start = .false.
+   show_log_description_at_start = .false.
 
+   ! build our own model
+   create_initial_model = .true.
 
-    ! build our own model
-      create_initial_model = .true.
+   save_model_when_terminate = .true.
+   save_model_filename = 'final.mod'
+   required_termination_code_string = 'flame reached halfway point'
 
-      save_model_when_terminate = .true.
-      save_model_filename = 'final.mod'
-      required_termination_code_string = 'flame reached halfway point'
+   ! pick the net
+   change_net = .true.
+   !new_net_name = 'mesa_204.net'
+   new_net_name = 'approx21.net'
 
-    ! pick the net
-      change_net = .true.
-      !new_net_name = 'mesa_204.net'
-      new_net_name = 'approx21.net'
+   ! need extremely small initial timestep
+   set_initial_dt = .true.
+   seconds_for_initial_dt = 1e-15
+   initial_model_relax_num_steps = 0
 
-    ! need extremely small initial timestep
-      set_initial_dt = .true.
-      seconds_for_initial_dt = 1e-15
-      initial_model_relax_num_steps = 0
-
-    ! display on-screen plots
-      pgstar_flag = .true.
-      save_pgstar_files_when_terminate = .true.
+   ! display on-screen plots
+   pgstar_flag = .true.
+   save_pgstar_files_when_terminate = .true.
 
 / !end of star_job namelist
 
 
 &eos
 
-    ! use HELM EOS
-      use_Skye = .false.
-      use_PC = .false.
+   ! use HELM EOS
+   use_Skye = .false.
+   use_PC = .false.
 
 / !end of eos namelist
 
 
 &kap
 
-    ! specify base metallicity for Type2 opacities
-    ! unimportant since radiative opacities are irrelevant
-      Zbase = 0.02
+   ! specify base metallicity for Type2 opacities
+   ! unimportant since radiative opacities are irrelevant
+   Zbase = 0.02
 
 / ! end of kap namelist
 
+
 &controls
 
-      ! test targets; 10% tolerance
-      x_ctrl(9) = 2.39e7 ! flame speed [cm/s]
-      x_ctrl(10) = 2.391e-5 ! flame width [cm]
+   ! test targets; 10% tolerance
+   x_ctrl(9) = 2.39e7 ! flame speed [cm/s]
+   x_ctrl(10) = 2.391e-5 ! flame width [cm]
+
+   warn_when_large_virial_thm_rel_err = 1d99 ! doesn't apply
 
-      warn_when_large_virial_thm_rel_err = 1d99 ! doesn't apply
+   num_trace_history_values = 2
+   trace_history_value_name(1) = 'rel_E_err'
+   trace_history_value_name(2) = 'log_rel_run_E_err'
 
-      num_trace_history_values = 2
-      trace_history_value_name(1) = 'rel_E_err'
-      trace_history_value_name(2) = 'log_rel_run_E_err'
+   ! limit max_model_number as part of test_suite
+   max_model_number = 3000 ! 1800
 
-      ! limit max_model_number as part of test_suite
-      max_model_number = 3000 ! 1800
+   ! use our own routine to build the model
+   use_other_build_initial_model = .true.
+   x_integer_ctrl(1) = 300 ! number of points
+   x_ctrl(1) = 10 ! mass (in g)
+   x_ctrl(2) = 1d10 ! initial density (cgs)
+   x_ctrl(3) = 2d8 ! initial temperature (cgs)
 
-    ! use our own routine to build the model
-      use_other_build_initial_model = .true.
-      x_integer_ctrl(1) = 300 ! number of points
-      x_ctrl(1) = 10 ! mass (in g)
-      x_ctrl(2) = 1d10 ! initial density (cgs)
-      x_ctrl(3) = 2d8 ! initial temperature (cgs)
+   x_ctrl(4) = 0.0001 ! size (in q) of region to heat
+   x_ctrl(5) = 5d9 ! temperature of that region
 
-      x_ctrl(4) = 0.0001 ! size (in q) of region to heat
-      x_ctrl(5) = 5d9 ! temperature of that region
+   x_ctrl(6) = 0.50 ! mass fraction c12
+   x_ctrl(7) = 0.50 ! mass fraction o16
+   x_ctrl(8) = 0.00 ! mass fraction ne20
 
-      x_ctrl(6) = 0.50 ! mass fraction c12
-      x_ctrl(7) = 0.50 ! mass fraction o16
-      x_ctrl(8) = 0.00 ! mass fraction ne20
+   ! set up constant pressure/temperature boundary conditions
+   use_other_surface_PT = .true.
 
-    ! set up constant pressure/temperature boundary conditions
-      use_other_surface_PT = .true.
+   ! there's no surface here; ignore change in lgL_surf and lgTeff
+   delta_lgL_limit_L_min = 1d99
+   delta_lgTeff_limit = 1d99
 
-    ! there's no surface here; ignore change in lgL_surf and lgTeff
-      delta_lgL_limit_L_min = 1d99
-      delta_lgTeff_limit = 1d99
-      
 
-    ! don't let convection operate
-      mlt_option = 'none'
+   ! don't let convection operate
+   mlt_option = 'none'
 
-    ! meshing/timestep controls
-      varcontrol_target = 1d-3
-      delta_lgT_limit = 0.1d0
-      delta_lgT_limit_min_lgT = 8d0
-      T_function1_weight = 50
-      limit_for_rel_error_in_energy_conservation = 1d-4
-      hard_limit_for_rel_error_in_energy_conservation = 1d-3
+   ! meshing/timestep controls
+   varcontrol_target = 1d-3
+   delta_lgT_limit = 0.1d0
+   delta_lgT_limit_min_lgT = 8d0
+   T_function1_weight = 50
+   limit_for_rel_error_in_energy_conservation = 1d-4
+   hard_limit_for_rel_error_in_energy_conservation = 1d-3
 
-      use_gold2_tolerances = .true.
-      
-    ! allow for minuscule timesteps
-      min_timestep_limit = 1d-20
+   use_gold2_tolerances = .true.
 
-    ! use the same meshing at high temperature
-      mesh_delta_coeff = 1.0
-      logT_max_for_standard_mesh_delta_coeff = 99d0
-      logT_min_for_highT_mesh_delta_coeff = 99d0
+   ! allow for minuscule timesteps
+   min_timestep_limit = 1d-20
 
-    ! we know rates are truncated above 1e10 K, so turn off warnings
-      warn_rates_for_high_temp = .false.
-   
-    ! cannot include L corrections
-      include_L_in_correction_limits = .false.
+   ! use the same meshing at high temperature
+   mesh_delta_coeff = 1.0
+   logT_max_for_standard_mesh_delta_coeff = 99d0
+   logT_min_for_highT_mesh_delta_coeff = 99d0
 
-      terminal_show_age_units = 'seconds'
+   ! we know rates are truncated above 1e10 K, so turn off warnings
+   warn_rates_for_high_temp = .false.
 
-      photo_interval = 50
-      profile_interval = 100
-      history_interval = 10
-      terminal_interval = 10
-      write_header_frequency = 10
+   ! cannot include L corrections
+   include_L_in_correction_limits = .false.
+
+   terminal_show_age_units = 'seconds'
+
+   photo_interval = 50
+   profile_interval = 100
+   history_interval = 10
+   terminal_interval = 10
+   write_header_frequency = 10
 
 / ! end of controls namelist
 
+
 &pgstar
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/conductive_flame/inlist_conductive_flame_header b/star/test_suite/conductive_flame/inlist_conductive_flame_header
index a42f044dc..e0366c399 100644
--- a/star/test_suite/conductive_flame/inlist_conductive_flame_header
+++ b/star/test_suite/conductive_flame/inlist_conductive_flame_header
@@ -1,41 +1,39 @@
 
 &star_job
 
-
-      read_extra_star_job_inlist(2) = .true.
-      extra_star_job_inlist_name(2) = 'inlist_conductive_flame'
+   read_extra_star_job_inlist(2) = .true.
+   extra_star_job_inlist_name(2) = 'inlist_conductive_flame'
 
 / ! end of star_job namelist
 
 
 &eos
 
-      read_extra_eos_inlist(1) = .true.
-      extra_eos_inlist_name(1) = 'inlist_conductive_flame'
+   read_extra_eos_inlist(1) = .true.
+   extra_eos_inlist_name(1) = 'inlist_conductive_flame'
 
 / ! end of eos namelist
 
 
 &kap
 
-      read_extra_kap_inlist(1) = .true.
-      extra_kap_inlist_name(1) = 'inlist_conductive_flame'
+   read_extra_kap_inlist(1) = .true.
+   extra_kap_inlist_name(1) = 'inlist_conductive_flame'
 
 / ! end of kap namelist
 
 
-
 &controls
 
-      read_extra_controls_inlist(1) = .true.
-      extra_controls_inlist_name(1)= 'inlist_conductive_flame'
+   read_extra_controls_inlist(1) = .true.
+   extra_controls_inlist_name(1)= 'inlist_conductive_flame'
 
 / ! end of controls namelist
 
 
 &pgstar
 
-      read_extra_pgstar_inlist(1) = .true.
-      extra_pgstar_inlist_name(1)= 'inlist_pgstar'
+   read_extra_pgstar_inlist(1) = .true.
+   extra_pgstar_inlist_name(1)= 'inlist_pgstar'
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/conductive_flame/inlist_pgstar b/star/test_suite/conductive_flame/inlist_pgstar
index adf6a72c3..c390b9375 100644
--- a/star/test_suite/conductive_flame/inlist_pgstar
+++ b/star/test_suite/conductive_flame/inlist_pgstar
@@ -1,225 +1,232 @@
 &pgstar
 
-      pgstar_interval = 1
-      pause = .false.
-
-      Grid1_win_flag = .false.
-      Grid1_title = 'TW92 Flame'
-      Grid1_win_width = 8
-      Grid1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width
-
-      Grid1_xleft = 0.12 ! fraction of full window width for margin on left
-      Grid1_xright = 0.95 ! fraction of full window width for margin on right
-      Grid1_ybot = 0.08 ! fraction of full window width for margin on bottom
-      Grid1_ytop = 0.92 ! fraction of full window width for margin on top
-
-      Grid1_plot_name(:) = ''
-      Grid1_plot_row(:) = 1 ! number from 1 at top
-      Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows
-      Grid1_plot_col(:) =      1 ! number from 1 at left
-      Grid1_plot_colspan(:) = 1 ! plot spans this number of columns
-      Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left
-      Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right
-      Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top
-      Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom
-      Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this
-
-      ! set default
-      Grid1_num_cols = 4 ! divide plotting region into this many equal width cols
-      Grid1_num_rows = 3 ! divide plotting region into this many equal height rows
-      Grid1_num_plots = 3 ! <= 10
-
-      Grid1_plot_name(:) = ''
-      Grid1_plot_row(:) = 1 ! number from 1 at top
-      Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows
-      Grid1_plot_col(:) =      1 ! number from 1 at left
-      Grid1_plot_colspan(:) = 1 ! plot spans this number of columns
-      Grid1_plot_pad_left(:) = 0.03 ! fraction of full window width for padding on left
-      Grid1_plot_pad_right(:) = 0.03 ! fraction of full window width for padding on right
-      Grid1_plot_pad_top(:) = 0.03 ! fraction of full window height for padding at top
-      Grid1_plot_pad_bot(:) = 0.03 ! fraction of full window height for padding at bottom
-      Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this
-
-
-      Grid1_plot_name(1) = 'Abundance'
-      Grid1_plot_row(1) = 1 ! number from 1 at top
-      Grid1_plot_rowspan(1) = 2 ! plot spans this number of rows
-      Grid1_plot_col(1) =      1 ! number from 1 at left
-      Grid1_plot_colspan(1) = 2 ! plot spans this number of columns
-      Grid1_plot_pad_left(1) = -0.05 ! fraction of full window width for padding on left
-      Grid1_plot_pad_right(1) = 0.05 ! fraction of full window width for padding on right
-      Grid1_plot_pad_top(1) = 0.0 ! fraction of full window height for padding at top
-      Grid1_plot_pad_bot(1) = 0.05 ! fraction of full window height for padding at bottom
-      Grid1_txt_scale_factor(1) = 0.6 ! multiply txt_scale for subplot by this
-
-      ! Grid1_plot_name(2) = 'Abundance'
-      ! Grid1_plot_row(2) = 2 ! number from 1 at top
-      ! Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows
-      ! Grid1_plot_col(2) =      1 ! number from 1 at left
-      ! Grid1_plot_colspan(2) = 2 ! plot spans this number of columns
-      ! Grid1_plot_pad_left(2) = -0.05 ! fraction of full window width for padding on left
-      ! Grid1_plot_pad_right(2) = 0.05 ! fraction of full window width for padding on right
-      ! Grid1_plot_pad_top(2) = 0.025 ! fraction of full window height for padding at top
-      ! Grid1_plot_pad_bot(2) = 0.025 ! fraction of full window height for padding at bottom
-      ! Grid1_txt_scale_factor(2) = 0.65 ! multiply txt_scale for subplot by this
-
-      Grid1_plot_name(2) = 'Profile_Panels1'
-      Grid1_plot_row(2) = 3 ! number from 1 at top
-      Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows
-      Grid1_plot_col(2) =      1 ! number from 1 at left
-      Grid1_plot_colspan(2) = 2 ! plot spans this number of columns
-      Grid1_plot_pad_left(2) = -0.05 ! fraction of full window width for padding on left
-      Grid1_plot_pad_right(2) = 0.05 ! fraction of full window width for padding on right
-      Grid1_plot_pad_top(2) = 0.05 ! fraction of full window height for padding at top
-      Grid1_plot_pad_bot(2) = 0.0 ! fraction of full window height for padding at bottom
-      Grid1_txt_scale_factor(2) = 0.65 ! multiply txt_scale for subplot by this
-
-      Grid1_plot_name(3) = 'History_Panels1'
-      Grid1_plot_row(3) = 1 ! number from 1 at top
-      Grid1_plot_rowspan(3) = 3 ! plot spans this number of rows
-      Grid1_plot_col(3) =      3 ! number from 1 at left
-      Grid1_plot_colspan(3) = 2 ! plot spans this number of columns
-      Grid1_plot_pad_left(3) = 0.12 ! fraction of full window width for padding on left
-      Grid1_plot_pad_right(3) = 0.03 ! fraction of full window width for padding on right
-      Grid1_plot_pad_top(3) = 0.0 ! fraction of full window height for padding at top
-      Grid1_plot_pad_bot(3) = 0.0 ! fraction of full window height for padding at bottom
-      Grid1_txt_scale_factor(3) = 0.65 ! multiply txt_scale for subplot by this
-
-
-      ! file output
-      Grid1_file_flag = .true.
-      Grid1_file_dir = 'png'
-      Grid1_file_prefix = 'grid1'
-      Grid1_file_interval = 10000 ! output when mod(model_number,Grid1_file_interval)==0
-      Grid1_file_width = 16 ! negative means use same value as for window
-      Grid1_file_aspect_ratio = -1 ! negative means use same value as for window
-
-
-      Abundance_win_flag = .false.
-      Abundance_xaxis_name = 'radius_cm'
-      Abundance_num_isos_to_show = -1
-      Abundance_title = ''
-
-      num_abundance_line_labels = 5
-      Abundance_line_txt_scale_factor = 0.8 ! relative to other text
-
-      Abundance_legend_max_cnt = -1
-      Abundance_legend_txt_scale_factor = 0.8 ! relative to other text
-
-      !### Profile_Panels1
-
-      Profile_Panels1_win_flag = .false.
-
-      Profile_Panels1_win_width = 6
-      Profile_Panels1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width
-
-      Profile_Panels1_xleft = 0.15
-      Profile_Panels1_xright = 0.85
-      Profile_Panels1_ybot = 0.15
-      Profile_Panels1_ytop = 0.85
-      Profile_Panels1_txt_scale = 1.0
-      Profile_Panels1_title = ''
-
-      Profile_Panels1_xaxis_name = 'radius_cm'
-      Profile_Panels1_xaxis_reversed = .false.
-      Profile_Panels1_xmin = 0 ! only used if /= -101d0
-      Profile_Panels1_xmax = -101d0 ! only used if /= -101d0
-      Profile_Panels1_xmargin = 0d0
-      Profile_Panels1_show_mix_regions_on_xaxis = .false.
-
-      Profile_Panels1_yaxis_name(:) = ''
-      Profile_Panels1_yaxis_reversed(:) = .false.
-      Profile_Panels1_yaxis_log(:) = .false. ! show log10 of abs value
-      Profile_Panels1_ymin(:) = -101d0 ! only used if /= -101d0
-      Profile_Panels1_ymax(:) = -101d0 ! only used if /= -101d0
-      Profile_Panels1_ymargin(:) = 0.1
-      Profile_Panels1_dymin(:) = -1
-
-      Profile_Panels1_other_yaxis_name(:) = ''
-      Profile_Panels1_other_yaxis_reversed(:) = .false.
-      Profile_Panels1_other_yaxis_log(:) = .false. ! show log10 of abs value
-      Profile_Panels1_other_ymin(:) = -101d0 ! only used if /= -101d0
-      Profile_Panels1_other_ymax(:) = -101d0 ! only used if /= -101d0
-      Profile_Panels1_other_ymargin(:) = 0.1
-      Profile_Panels1_other_dymin(:) = -1
-
-      Profile_Panels1_show_grid = .true.
-
-      ! setup default plot
-      Profile_Panels1_num_panels = 1
-      Profile_Panels1_yaxis_name(1) = 'logT'
-      Profile_Panels1_other_yaxis_name(1) = 'logRho'
-
-      ! file output
-      Profile_Panels1_file_flag = .false.
-      Profile_Panels1_file_dir = 'png'
-      Profile_Panels1_file_prefix = 'profile_panels1_'
-      Profile_Panels1_file_interval = 5 ! output when mod(model_number,Profile_Panels1_file_interval)==0
-      Profile_Panels1_file_width = -1 ! (inches) negative means use same value as for window
-      Profile_Panels1_file_aspect_ratio = -1 ! negative means use same value as for window
-
-
-      History_Panels1_win_flag = .false.
-
-      History_Panels1_win_width = 6
-      History_Panels1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width
-
-      History_Panels1_xleft = 0.15
-      History_Panels1_xright = 0.85
-      History_Panels1_ybot = 0.15
-      History_Panels1_ytop = 0.85
-      History_Panels1_txt_scale = 1.0
-      History_Panels1_title = ''
-
-      History_Panels1_xaxis_name = 'star_age'
-      History_Panels1_xmin = -101d0
-      History_Panels1_xmax = -101d0
-      History_Panels1_max_width = 100 ! only used if > 0.      causes xmin to move with xmax.
-      History_Panels1_dxmin = -1
-      History_Panels1_xaxis_reversed = .false.
-      History_Panels1_xaxis_log = .false. ! show log10 of abs value
-
-      History_Panels1_yaxis_name(:) = ''
-      History_Panels1_yaxis_reversed(:) = .false.
-      History_Panels1_yaxis_log(:) = .false. ! show log10 of abs value
-      History_Panels1_ymin(:) = -101d0 ! only used if /= -101d0
-      History_Panels1_ymax(:) = -101d0 ! only used if /= -101d0
-      History_Panels1_ymargin(:) = 0.1
-      History_Panels1_dymin(:) = -1
-
-      History_Panels1_other_yaxis_name(:) = ''
-      History_Panels1_other_yaxis_reversed(:) = .false.
-      History_Panels1_other_yaxis_log(:) = .false. ! show log10 of abs value
-      History_Panels1_other_ymin(:) = -101d0 ! only used if /= -101d0
-      History_Panels1_other_ymax(:) = -101d0 ! only used if /= -101d0
-      History_Panels1_other_ymargin(:) = 0.1
-      History_Panels1_other_dymin(:) = -1
-
-      ! setup default
-      History_Panels1_num_panels = 2
-
-      History_Panels1_yaxis_name(1) = 'r_flame'
-      History_Panels1_yaxis_reversed(1) = .false.
-      History_Panels1_ymin(1) = 0 ! only used if /= -101d0
-      History_Panels1_ymax(1) = 5e-4 ! only used if /= -101d0
-      History_Panels1_dymin(1) = -1
-
-      History_Panels1_other_yaxis_name(1) = ''
-      History_Panels1_other_yaxis_reversed(1) = .false.
-      History_Panels1_other_ymin(1) = -101d0 ! only used if /= -101d0
-      History_Panels1_other_ymax(1) = -101d0 ! only used if /= -101d0
-      History_Panels1_other_dymin(1) = -1
-
-      History_Panels1_yaxis_name(2) = 'l_flame'
-      History_Panels1_yaxis_reversed(2) = .false.
-      History_Panels1_ymin(2) = -101d0 ! only used if /= -101d0
-      History_Panels1_ymax(2) = -101d0 ! only used if /= -101d0
-      History_Panels1_dymin(2) = -1
-
-      History_Panels1_other_yaxis_name(2) = ''
-      History_Panels1_other_yaxis_reversed(2) = .false.
-      History_Panels1_other_ymin(2) = -101d0 ! only used if /= -101d0
-      History_Panels1_other_ymax(2) = -101d0 ! only used if /= -101d0
-      History_Panels1_other_dymin(2) = -1
+   ! device
+   file_white_on_black_flag = .true.
+   !file_device = 'vcps'      ! postscript
+   !file_extension = 'ps'
+   file_device = 'png'      ! png
+   file_extension = 'png'
+
+   pgstar_interval = 1
+   pause = .false.
+
+   Grid1_win_flag = .false.
+   Grid1_title = 'TW92 Flame'
+   Grid1_win_width = 8
+   Grid1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width
+
+   Grid1_xleft = 0.12 ! fraction of full window width for margin on left
+   Grid1_xright = 0.95 ! fraction of full window width for margin on right
+   Grid1_ybot = 0.08 ! fraction of full window width for margin on bottom
+   Grid1_ytop = 0.92 ! fraction of full window width for margin on top
+
+   Grid1_plot_name(:) = ''
+   Grid1_plot_row(:) = 1 ! number from 1 at top
+   Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows
+   Grid1_plot_col(:) =      1 ! number from 1 at left
+   Grid1_plot_colspan(:) = 1 ! plot spans this number of columns
+   Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left
+   Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right
+   Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top
+   Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom
+   Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this
+
+   ! set default
+   Grid1_num_cols = 4 ! divide plotting region into this many equal width cols
+   Grid1_num_rows = 3 ! divide plotting region into this many equal height rows
+   Grid1_num_plots = 3 ! <= 10
+
+   Grid1_plot_name(:) = ''
+   Grid1_plot_row(:) = 1 ! number from 1 at top
+   Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows
+   Grid1_plot_col(:) =      1 ! number from 1 at left
+   Grid1_plot_colspan(:) = 1 ! plot spans this number of columns
+   Grid1_plot_pad_left(:) = 0.03 ! fraction of full window width for padding on left
+   Grid1_plot_pad_right(:) = 0.03 ! fraction of full window width for padding on right
+   Grid1_plot_pad_top(:) = 0.03 ! fraction of full window height for padding at top
+   Grid1_plot_pad_bot(:) = 0.03 ! fraction of full window height for padding at bottom
+   Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this
+
+
+   Grid1_plot_name(1) = 'Abundance'
+   Grid1_plot_row(1) = 1 ! number from 1 at top
+   Grid1_plot_rowspan(1) = 2 ! plot spans this number of rows
+   Grid1_plot_col(1) =      1 ! number from 1 at left
+   Grid1_plot_colspan(1) = 2 ! plot spans this number of columns
+   Grid1_plot_pad_left(1) = -0.05 ! fraction of full window width for padding on left
+   Grid1_plot_pad_right(1) = 0.05 ! fraction of full window width for padding on right
+   Grid1_plot_pad_top(1) = 0.0 ! fraction of full window height for padding at top
+   Grid1_plot_pad_bot(1) = 0.05 ! fraction of full window height for padding at bottom
+   Grid1_txt_scale_factor(1) = 0.6 ! multiply txt_scale for subplot by this
+
+   ! Grid1_plot_name(2) = 'Abundance'
+   ! Grid1_plot_row(2) = 2 ! number from 1 at top
+   ! Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows
+   ! Grid1_plot_col(2) =      1 ! number from 1 at left
+   ! Grid1_plot_colspan(2) = 2 ! plot spans this number of columns
+   ! Grid1_plot_pad_left(2) = -0.05 ! fraction of full window width for padding on left
+   ! Grid1_plot_pad_right(2) = 0.05 ! fraction of full window width for padding on right
+   ! Grid1_plot_pad_top(2) = 0.025 ! fraction of full window height for padding at top
+   ! Grid1_plot_pad_bot(2) = 0.025 ! fraction of full window height for padding at bottom
+   ! Grid1_txt_scale_factor(2) = 0.65 ! multiply txt_scale for subplot by this
+
+   Grid1_plot_name(2) = 'Profile_Panels1'
+   Grid1_plot_row(2) = 3 ! number from 1 at top
+   Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows
+   Grid1_plot_col(2) =      1 ! number from 1 at left
+   Grid1_plot_colspan(2) = 2 ! plot spans this number of columns
+   Grid1_plot_pad_left(2) = -0.05 ! fraction of full window width for padding on left
+   Grid1_plot_pad_right(2) = 0.05 ! fraction of full window width for padding on right
+   Grid1_plot_pad_top(2) = 0.05 ! fraction of full window height for padding at top
+   Grid1_plot_pad_bot(2) = 0.0 ! fraction of full window height for padding at bottom
+   Grid1_txt_scale_factor(2) = 0.65 ! multiply txt_scale for subplot by this
+
+   Grid1_plot_name(3) = 'History_Panels1'
+   Grid1_plot_row(3) = 1 ! number from 1 at top
+   Grid1_plot_rowspan(3) = 3 ! plot spans this number of rows
+   Grid1_plot_col(3) =      3 ! number from 1 at left
+   Grid1_plot_colspan(3) = 2 ! plot spans this number of columns
+   Grid1_plot_pad_left(3) = 0.12 ! fraction of full window width for padding on left
+   Grid1_plot_pad_right(3) = 0.03 ! fraction of full window width for padding on right
+   Grid1_plot_pad_top(3) = 0.0 ! fraction of full window height for padding at top
+   Grid1_plot_pad_bot(3) = 0.0 ! fraction of full window height for padding at bottom
+   Grid1_txt_scale_factor(3) = 0.65 ! multiply txt_scale for subplot by this
+
+
+   ! file output
+   Grid1_file_flag = .true.
+   Grid1_file_dir = 'png'
+   Grid1_file_prefix = 'grid1'
+   Grid1_file_interval = 10000 ! output when mod(model_number,Grid1_file_interval)==0
+   Grid1_file_width = 16 ! negative means use same value as for window
+   Grid1_file_aspect_ratio = -1 ! negative means use same value as for window
+
+
+   Abundance_win_flag = .false.
+   Abundance_xaxis_name = 'radius_cm'
+   Abundance_num_isos_to_show = -1
+   Abundance_title = ''
+
+   num_abundance_line_labels = 5
+   Abundance_line_txt_scale_factor = 0.8 ! relative to other text
+
+   Abundance_legend_max_cnt = -1
+   Abundance_legend_txt_scale_factor = 0.8 ! relative to other text
+
+   !### Profile_Panels1
+
+   Profile_Panels1_win_flag = .false.
+
+   Profile_Panels1_win_width = 6
+   Profile_Panels1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width
+
+   Profile_Panels1_xleft = 0.15
+   Profile_Panels1_xright = 0.85
+   Profile_Panels1_ybot = 0.15
+   Profile_Panels1_ytop = 0.85
+   Profile_Panels1_txt_scale = 1.0
+   Profile_Panels1_title = ''
+
+   Profile_Panels1_xaxis_name = 'radius_cm'
+   Profile_Panels1_xaxis_reversed = .false.
+   Profile_Panels1_xmin = 0 ! only used if /= -101d0
+   Profile_Panels1_xmax = -101d0 ! only used if /= -101d0
+   Profile_Panels1_xmargin = 0d0
+   Profile_Panels1_show_mix_regions_on_xaxis = .false.
+
+   Profile_Panels1_yaxis_name(:) = ''
+   Profile_Panels1_yaxis_reversed(:) = .false.
+   Profile_Panels1_yaxis_log(:) = .false. ! show log10 of abs value
+   Profile_Panels1_ymin(:) = -101d0 ! only used if /= -101d0
+   Profile_Panels1_ymax(:) = -101d0 ! only used if /= -101d0
+   Profile_Panels1_ymargin(:) = 0.1
+   Profile_Panels1_dymin(:) = -1
+
+   Profile_Panels1_other_yaxis_name(:) = ''
+   Profile_Panels1_other_yaxis_reversed(:) = .false.
+   Profile_Panels1_other_yaxis_log(:) = .false. ! show log10 of abs value
+   Profile_Panels1_other_ymin(:) = -101d0 ! only used if /= -101d0
+   Profile_Panels1_other_ymax(:) = -101d0 ! only used if /= -101d0
+   Profile_Panels1_other_ymargin(:) = 0.1
+   Profile_Panels1_other_dymin(:) = -1
+
+   Profile_Panels1_show_grid = .true.
+
+   ! setup default plot
+   Profile_Panels1_num_panels = 1
+   Profile_Panels1_yaxis_name(1) = 'logT'
+   Profile_Panels1_other_yaxis_name(1) = 'logRho'
+
+   ! file output
+   Profile_Panels1_file_flag = .false.
+   Profile_Panels1_file_dir = 'png'
+   Profile_Panels1_file_prefix = 'profile_panels1_'
+   Profile_Panels1_file_interval = 5 ! output when mod(model_number,Profile_Panels1_file_interval)==0
+   Profile_Panels1_file_width = -1 ! (inches) negative means use same value as for window
+   Profile_Panels1_file_aspect_ratio = -1 ! negative means use same value as for window
+
+
+   History_Panels1_win_flag = .false.
+
+   History_Panels1_win_width = 6
+   History_Panels1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width
+
+   History_Panels1_xleft = 0.15
+   History_Panels1_xright = 0.85
+   History_Panels1_ybot = 0.15
+   History_Panels1_ytop = 0.85
+   History_Panels1_txt_scale = 1.0
+   History_Panels1_title = ''
+
+   History_Panels1_xaxis_name = 'star_age'
+   History_Panels1_xmin = -101d0
+   History_Panels1_xmax = -101d0
+   History_Panels1_max_width = 100 ! only used if > 0.      causes xmin to move with xmax.
+   History_Panels1_dxmin = -1
+   History_Panels1_xaxis_reversed = .false.
+   History_Panels1_xaxis_log = .false. ! show log10 of abs value
+
+   History_Panels1_yaxis_name(:) = ''
+   History_Panels1_yaxis_reversed(:) = .false.
+   History_Panels1_yaxis_log(:) = .false. ! show log10 of abs value
+   History_Panels1_ymin(:) = -101d0 ! only used if /= -101d0
+   History_Panels1_ymax(:) = -101d0 ! only used if /= -101d0
+   History_Panels1_ymargin(:) = 0.1
+   History_Panels1_dymin(:) = -1
+
+   History_Panels1_other_yaxis_name(:) = ''
+   History_Panels1_other_yaxis_reversed(:) = .false.
+   History_Panels1_other_yaxis_log(:) = .false. ! show log10 of abs value
+   History_Panels1_other_ymin(:) = -101d0 ! only used if /= -101d0
+   History_Panels1_other_ymax(:) = -101d0 ! only used if /= -101d0
+   History_Panels1_other_ymargin(:) = 0.1
+   History_Panels1_other_dymin(:) = -1
+
+   ! setup default
+   History_Panels1_num_panels = 2
+
+   History_Panels1_yaxis_name(1) = 'r_flame'
+   History_Panels1_yaxis_reversed(1) = .false.
+   History_Panels1_ymin(1) = 0 ! only used if /= -101d0
+   History_Panels1_ymax(1) = 5e-4 ! only used if /= -101d0
+   History_Panels1_dymin(1) = -1
+
+   History_Panels1_other_yaxis_name(1) = ''
+   History_Panels1_other_yaxis_reversed(1) = .false.
+   History_Panels1_other_ymin(1) = -101d0 ! only used if /= -101d0
+   History_Panels1_other_ymax(1) = -101d0 ! only used if /= -101d0
+   History_Panels1_other_dymin(1) = -1
+
+   History_Panels1_yaxis_name(2) = 'l_flame'
+   History_Panels1_yaxis_reversed(2) = .false.
+   History_Panels1_ymin(2) = -101d0 ! only used if /= -101d0
+   History_Panels1_ymax(2) = -101d0 ! only used if /= -101d0
+   History_Panels1_dymin(2) = -1
+
+   History_Panels1_other_yaxis_name(2) = ''
+   History_Panels1_other_yaxis_reversed(2) = .false.
+   History_Panels1_other_ymin(2) = -101d0 ! only used if /= -101d0
+   History_Panels1_other_ymax(2) = -101d0 ! only used if /= -101d0
+   History_Panels1_other_dymin(2) = -1
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/conserve_angular_momentum/README.rst b/star/test_suite/conserve_angular_momentum/README.rst
index 8604e0d9c..d1f066a45 100644
--- a/star/test_suite/conserve_angular_momentum/README.rst
+++ b/star/test_suite/conserve_angular_momentum/README.rst
@@ -13,7 +13,7 @@ This test case has 2 parts. Click to see a larger view of a plot.
 * Part 2 (``inlist_conserve_J``) imposes a uniform 10 km/s rotation profile, and continues the evolution until the helium core reaches a mass of 0.22 Msun. Throughout this evolution a relative change in the angular momentum (J_init - J)/J_init of order 3e-13 is reported in the terminal:
 
 .. image:: ../../../star/test_suite/conserve_angular_momentum/docs/grid_000455.svg
-   :scale: 100%
+   :width: 100%
 
 
 pgstar commands used for the first 7 plots:
diff --git a/star/test_suite/conv_core_cpm/README.rst b/star/test_suite/conv_core_cpm/README.rst
index 2f134fce2..df42d8f28 100644
--- a/star/test_suite/conv_core_cpm/README.rst
+++ b/star/test_suite/conv_core_cpm/README.rst
@@ -15,7 +15,9 @@ grid below must show that the red dot falls within the white box.
 The gold curve in that panel shows the expected evolution of the convective
 core if the model continued to evolve beyond its stopping condition.
 
-.. image:: ../../../star/test_suite/conv_core_cpm/docs/grid_000092.png
-
+.. image:: ../../../star/test_suite/conv_core_cpm/docs/grid_000092.svg
+   :width: 100%
 
 Last-Updated: 2023-03-14 (MESA d6bbdf4) by Evan Bauer
+
+Last-Run: 17Jul2024 (MESA 5ef2ffac) by pmocz on C916PXT6XW in 125 seconds using 8 threads.
diff --git a/star/test_suite/conv_core_cpm/docs/grid_000092.svg b/star/test_suite/conv_core_cpm/docs/grid_000092.svg
new file mode 100644
index 000000000..06ca12ec7
--- /dev/null
+++ b/star/test_suite/conv_core_cpm/docs/grid_000092.svg
@@ -0,0 +1 @@
+<svg xmlns="http://www.w3.org/2000/svg" width="1536" height="844.83"><path fill-rule="evenodd" d="M.016 844.814h1535.962V.035H.016z"/><g fill="none" stroke-linecap="round" stroke-linejoin="round" stroke-miterlimit="10"><path stroke="gold" stroke-width="3.839904" d="M496.228 83.262h17.471"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="M522.72 77.41v7.583M522.72 81.436l1.056-1.152M523.774 80.29l.768-.385M524.547 79.902h1.056M525.6 79.902l.768.384M526.374 80.29l.383 1.151M526.76 81.436v3.552M530.4 78.85l.672-.385M531.08 78.462l1.056-1.055M532.133 77.41v7.583"/></g><path stroke="#87cefa" stroke-width="3.839904" d="M496.228 101.222h17.471"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="M522.72 95.355v7.584M522.72 99.395l1.056-1.152M523.774 98.235l.768-.384M524.547 97.862h1.056M525.6 97.862l.768.384M526.374 98.235l.383 1.152M526.76 99.395v3.552M529.253 100.062h4.416M533.667 100.062v-.672M533.667 99.395l-.384-.768M533.28 98.622l-.384-.384M532.893 98.235l-.768-.384M532.133 97.862h-1.056M531.08 97.862l-.672.384M530.4 98.235l-.768.768M529.64 99.009l-.384 1.056M529.253 100.062v.768M529.253 100.835l.384 1.056M529.64 101.889l.768.768M530.4 102.662l.672.288M531.08 102.942h1.056M532.133 102.942l.768-.288M532.893 102.662l.768-.768M539.427 95.355l-3.648 5.088M535.773 100.449h5.472M539.427 95.355v7.584"/></g><path stroke="#c03" stroke-width="3.839904" d="M496.228 119.168h17.471"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="m526.76 116.955-.768-.768M525.987 116.195l-.768-.384M525.214 115.808h-1.056M524.16 115.808l-.672.384M523.494 116.195l-.768.768M522.72 116.955l-.384 1.056M522.334 118.022v.767M522.334 118.781l.384 1.056M522.72 119.835l.768.768M523.494 120.608l.672.288M524.16 120.901h1.056M525.214 120.901l.768-.288M525.987 120.608l.768-.768M530.013 114.755l.672-.384M530.693 114.368l1.152-1.056M531.84 113.315v7.584M536.547 115.142v-.384M536.547 114.755l.384-.768M536.933 113.982l.384-.288M537.32 113.702l.672-.384M537.987 113.315h1.44M539.427 113.315l.767.384M540.2 113.702l.384.288M540.573 113.982l.288.768M540.866 114.755v.768M540.866 115.515l-.288.672M540.573 116.195l-.768 1.152M539.813 117.342l-3.648 3.551M536.16 120.901h5.088"/></g><path stroke="#daa520" stroke-width="3.839904" d="M496.228 137.114h17.471"/><g stroke="#fff"><g stroke-width="3.6"><path stroke-width=".479988" d="m524.16 133.754-.672.384M523.494 134.141l-.768.768M522.72 134.914l-.384 1.056M522.334 135.968v.768M522.334 136.741l.384 1.056M522.72 137.794l.768.768M523.494 138.554l.672.288M524.16 138.848h1.056M525.214 138.848l.768-.288M525.987 138.554l.768-.768M526.76 137.794l.288-1.056M527.04 136.741v-.768M527.04 135.968l-.288-1.056M526.76 134.914l-.768-.768M525.987 134.141l-.768-.384M525.214 133.754h-1.056M530.4 132.701l.672-.384M531.08 132.314l1.056-1.055M532.133 131.261v7.584M541.253 132.314l-.384-.672M540.866 131.648l-1.055-.384M539.813 131.261h-.672M539.133 131.261l-1.152.384M537.987 131.648l-.672 1.056M537.32 132.701l-.384 1.824M536.933 134.528v1.824M536.933 136.354l.384 1.44M537.32 137.794l.672.768M537.987 138.554l1.152.288M539.133 138.848h.288M539.427 138.848l1.151-.288M540.573 138.554l.672-.768M541.253 137.794l.384-1.056M541.64 136.741v-.384M541.64 136.354l-.384-1.056M541.253 135.301l-.672-.768M540.573 134.528l-1.152-.384M539.427 134.141h-.288M539.133 134.141l-1.152.385M537.987 134.528l-.672.768M537.32 135.301l-.384 1.056"/></g><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="m252.58 42.463-4.704 12.48M252.58 42.463l4.8 12.48M249.7 50.823h5.856M260.26 42.463v12.48M260.26 48.423l1.248-1.152M261.513 47.263l1.152-.576M262.66 46.69h1.824M264.487 46.69l1.152.576M265.647 47.263l1.152 1.152M266.793 48.423l.576 1.728M267.367 50.143v1.248M267.367 51.397l-.576 1.727M266.793 53.116l-1.152 1.248M265.647 54.37l-1.152.576M264.487 54.943h-1.824M262.66 54.943l-1.152-.576M261.513 54.37l-1.248-1.248M271.5 46.69v5.856M271.5 52.543l.672 1.824M272.167 54.37l1.152.576M273.327 54.943h1.727M275.046 54.943l1.248-.576M276.3 54.37l1.728-1.824M278.02 46.69v8.256M282.726 46.69v8.256M282.726 48.997l1.824-1.728M284.553 47.263l1.152-.576M285.7 46.69h1.823M287.526 46.69l1.152.576M288.686 47.263l.576 1.728M289.26 48.997v5.951M300.486 42.463v12.48M300.486 48.423l-1.152-1.152M299.34 47.263l-1.153-.576M298.18 46.69h-1.825M296.366 46.69l-1.152.576M295.206 47.263l-1.152 1.152M294.06 48.423l-.673 1.728M293.38 50.143v1.248M293.38 51.397l.671 1.727M294.06 53.116l1.151 1.248M295.206 54.37l1.152.576M296.366 54.943h1.824M298.18 54.943l1.151-.576M299.34 54.37l1.151-1.248M311.726 46.69v8.256M311.726 48.423l-1.152-1.152M310.566 47.263l-1.152-.576M309.419 46.69h-1.824M307.592 46.69l-1.152.576M306.446 47.263l-1.152 1.152M305.286 48.423l-.672 1.728M304.62 50.143v1.248M304.62 51.397l.671 1.727M305.286 53.116l1.152 1.248M306.446 54.37l1.152.576M307.592 54.943h1.824M309.419 54.943l1.152-.576M310.566 54.37l1.152-1.248M316.525 46.69v8.256M316.525 48.997l1.728-1.728M318.245 47.263l1.152-.576M319.405 46.69h1.824M321.219 46.69l1.152.576M322.379 47.263l.576 1.728M322.952 48.997v5.951M334.178 48.423l-1.152-1.152M333.032 47.263l-1.152-.576M331.885 46.69h-1.824M330.058 46.69l-1.152.576M328.898 47.263l-1.152 1.152M327.752 48.423l-.672 1.728M327.085 50.143v1.248M327.085 51.397l.672 1.727M327.752 53.116l1.152 1.248M328.898 54.37l1.152.576M330.058 54.943h1.824M331.885 54.943l1.152-.576M333.032 54.37l1.152-1.248M337.738 50.143h7.104M344.845 50.143v-1.152M344.845 48.997l-.576-1.152M344.258 47.837l-.576-.576M343.685 47.263l-1.152-.576M342.538 46.69h-1.824M340.711 46.69l-1.151.576M339.565 47.263l-1.152 1.152M338.405 48.423l-.672 1.728M337.738 50.143v1.248M337.738 51.397l.672 1.727M338.405 53.116l1.152 1.248M339.565 54.37l1.152.576M340.711 54.943h1.824M342.538 54.943l1.152-.576M343.685 54.37l1.152-1.248"/></g><g stroke-width="14.4"><path stroke-width="1.919952" d="M268.233 402.548v9.503M268.233 405.241l2.016-2.016M270.247 403.228l1.44-.672M271.687 402.548h2.015M273.7 402.548l1.344.672M275.046 403.228l.672 2.016M275.726 405.241v6.816M275.726 405.241l2.112-2.016M277.833 403.228l1.344-.672M279.18 402.548h2.016M281.193 402.548l1.344.672M282.54 403.228l.672 2.016M283.206 405.241v6.816M299.62 395.068l-12.289 21.791M303.752 397.748v14.303M303.752 397.748l5.472 14.303M314.605 397.748l-5.375 14.303M314.605 397.748v14.303M323.525 409.56l-1.536.48M321.992 410.04l-1.536 1.057M320.459 411.094l-1.056 1.536M319.405 412.627l-.48 1.536M318.925 414.174v1.536M318.925 415.707l.48 1.536M319.405 417.24l1.056 1.44M320.459 418.68l1.536 1.057M321.992 419.734l1.536.48M323.525 420.214h1.536M325.059 420.214l1.536-.48M326.605 419.734l1.536-1.056M328.138 418.68l.96-1.44M329.098 417.24l.576-1.535M329.672 415.707v-1.536M329.672 414.174l-.576-1.536M329.098 412.627l-.96-1.535M328.138 411.094l-1.535-1.056M326.605 410.04l-1.536-.48M325.059 409.56h-1.536M324.005 414.174l-.48.48M323.525 414.654v.48M323.525 415.134l.48.576M324.005 415.707h.48M324.485 415.707l.576-.576M325.059 415.134v-.48M325.059 414.654l-.576-.48M324.485 414.174h-.48M324.005 414.654v.48M324.005 415.134h.48M324.485 415.134v-.48M324.485 414.654h-.48"/></g><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M107.533 363.295h378.898M486.441 363.295V76.075M486.441 76.063H107.544M107.533 76.063v287.219M107.533 363.295v-8.16M132.78 363.295v-4.128M158.023 363.295v-4.128M183.275 363.295v-4.128M208.528 363.295v-4.128M233.86 363.295v-8.16M259.114 363.295v-4.128M284.366 363.295v-4.128M309.606 363.295v-4.128M334.858 363.295v-4.128M360.098 363.295v-8.16M385.35 363.295v-4.128M410.603 363.295v-4.128M435.842 363.295v-4.128M461.188 363.295v-4.128M486.441 363.295v-8.16M107.533 84.222v-8.16M132.78 80.196v-4.128M158.023 80.196v-4.128M183.275 80.196v-4.128M208.528 80.196v-4.128M233.86 84.222v-8.16M259.114 80.196v-4.128M284.366 80.196v-4.128M309.606 80.196v-4.128M334.858 80.196v-4.128M360.098 84.222v-8.16M385.35 80.196v-4.128M410.603 80.196v-4.128M435.842 80.196v-4.128M461.188 80.196v-4.128M486.441 84.222v-8.16M106.957 373.082l-1.631.576M105.325 373.655l-1.056 1.632M104.27 375.295l-.577 2.784M103.693 378.068v1.632M103.693 379.708l.576 2.688M104.27 382.388l1.056 1.632M105.325 384.028l1.632.576M106.957 384.602h1.152M108.11 384.602l1.631-.576M109.741 384.028l1.056-1.632M110.797 382.388l.576-2.688M111.373 379.708v-1.632M111.373 378.068l-.576-2.784M110.797 375.295l-1.056-1.632M109.741 373.655l-1.631-.576M108.11 373.082h-1.153M225.128 373.082l-1.632.576M223.501 373.655l-1.152 1.632M222.341 375.295l-.576 2.784M221.768 378.068v1.632M221.768 379.708l.576 2.688M222.341 382.388l1.152 1.632M223.501 384.028l1.632.576M225.128 384.602h1.056M226.181 384.602l1.632-.576M227.821 384.028l1.056-1.632M228.874 382.388l.576-2.688M229.448 379.708v-1.632M229.448 378.068l-.576-2.784M228.874 375.295l-1.056-1.632M227.821 373.655l-1.632-.576M226.181 373.082h-1.056M233.86 383.455l-.575.576M233.288 384.028l.575.576M233.86 384.602l.48-.576M234.34 384.028l-.48-.576M244.714 373.082h-5.472M239.247 373.082l-.48 4.992M238.767 378.068l.48-.576M239.247 377.495l1.632-.576M240.874 376.922h1.728M242.607 376.922l1.632.576M244.234 377.495l1.056 1.056M245.287 378.548l.576 1.632M245.86 380.188v1.152M245.86 381.335l-.575 1.632M245.287 382.975l-1.056 1.056M244.234 384.028l-1.632.576M242.607 384.602h-1.728M240.874 384.602l-1.632-.576M239.247 384.028l-.48-.576M238.767 383.455l-.576-1.056M357.898 375.295l1.152-.576M359.044 374.708l1.632-1.632M360.684 373.082v11.52M476.068 375.295l1.056-.576M477.121 374.708l1.632-1.632M478.761 373.082v11.52M486.441 383.455l-.576.576M485.855 384.028l.576.576M486.441 384.602l.48-.576M486.921 384.028l-.48-.576M497.28 373.082h-5.375M491.908 373.082l-.576 4.992M491.334 378.068l.576-.576M491.908 377.495l1.632-.576M493.534 376.922h1.632M495.174 376.922l1.632.576M496.8 377.495l1.057 1.056M497.854 378.548l.576 1.632M498.44 380.188v1.152M498.44 381.335l-.575 1.632M497.854 382.975l-1.056 1.056M496.8 384.028l-1.631.576M495.174 384.602h-1.632M493.534 384.602l-1.632-.576M491.908 384.028l-.576-.576M491.334 383.455l-.576-1.056M107.533 358.975h8.16M107.533 341.883h4.128M107.533 324.696h4.128M107.533 307.51h4.128M107.533 290.43h4.128M107.533 273.244h8.16M107.533 256.151h4.128M107.533 238.978h4.128M107.533 221.792h4.128M107.533 204.7h4.128M107.533 187.513h8.16M107.533 170.34h4.128M107.533 153.247h4.128M107.533 136.061h4.128M107.533 118.981h4.128M107.533 101.795h8.16M107.533 84.609h4.128M478.175 358.975h8.256M482.308 341.883h4.128M482.308 324.696h4.128M482.308 307.51h4.128M482.308 290.43h4.128M478.175 273.244h8.256M482.308 256.151h4.128M482.308 238.978h4.128M482.308 221.792h4.128M482.308 204.7h4.128M478.175 187.513h8.256M482.308 170.34h4.128M482.308 153.247h4.128M482.308 136.061h4.128M482.308 118.981h4.128M478.175 101.795h8.256M482.308 84.609h4.128M72.206 359.455h9.792M86.894 352.829h6.048M92.942 352.829l-3.264 4.416M89.678 357.242h1.631M91.31 357.242l1.056.576M92.366 357.816l.575.48M92.942 358.295l.575 1.632M93.518 359.935v1.152M93.518 361.082l-.576 1.632M92.942 362.709l-1.057 1.056M91.886 363.775l-1.728.576M90.158 364.349h-1.632M88.526 364.349l-1.632-.576M86.894 363.775l-.48-.576M86.414 363.189l-.576-1.056M72.206 273.63h9.792M86.414 269.884v-.576M86.414 269.311l.48-1.056M86.894 268.258l.576-.576M87.47 267.671l1.056-.576M88.526 267.098h2.208M90.734 267.098l1.152.576M91.886 267.671l.48.576M92.366 268.258l.575 1.056M92.942 269.311v1.056M92.942 270.364l-.576 1.152M92.366 271.511l-1.057 1.632M91.31 273.151l-5.472 5.472M85.838 278.617h7.68M72.206 187.9h9.792M87.47 183.58l1.056-.576M88.526 183.007l1.631-1.632M90.158 181.38v11.52M89.102 95.649l-1.632.576M87.47 96.222l-1.056 1.632M86.414 97.862l-.576 2.688M85.838 100.542v1.632M85.838 102.182l.576 2.784M86.414 104.955l1.056 1.632M87.47 106.595l1.632.48M89.102 107.075h1.055M90.158 107.075l1.728-.48M91.886 106.595l1.056-1.632M92.942 104.955l.575-2.784M93.518 102.182v-1.632M93.518 100.542l-.576-2.688M92.942 97.862l-1.057-1.632M91.886 96.222l-1.728-.576M90.158 95.649h-1.056"/></g><g stroke-width="14.4"><path stroke-width="1.919952" d="M24.495 312.79H38.8M29.2 304.63l.768 1.344M29.967 305.977l1.344 1.344M31.311 307.323l2.016.672M33.327 307.99h1.344M34.671 307.99l2.112-.672M36.783 307.323l1.344-1.344M38.127 305.977l.672-1.344M38.799 304.63v-2.016M38.799 302.617l-.672-1.44M38.127 301.177l-1.344-1.344M36.783 299.83l-2.112-.672M34.671 299.164h-1.344M33.327 299.164l-2.016.672M31.311 299.83l-1.343 1.344M29.967 301.177l-.768 1.44M29.2 302.617v2.016M29.2 286.87h10.943M40.143 286.87l2.016.673M42.159 287.55l.768.673M42.927 288.217l.672 1.44M43.599 289.657v2.016M43.599 291.67l-.672 1.344M31.311 286.87l-1.343 1.345M29.967 288.217l-.768 1.44M29.2 289.657v2.016M29.2 291.67l.768 1.344M29.967 293.017l1.344 1.344M31.311 294.364l2.016.672M33.327 295.03h1.344M34.671 295.03l2.112-.672M36.783 294.364l1.344-1.344M38.127 293.017l.672-1.344M38.799 291.67v-2.015M38.799 289.657l-.672-1.44M38.127 288.217l-1.344-1.344M29.2 270.551h9.599M31.983 270.551l-2.015-2.112M29.967 268.444 29.2 267.1M29.2 267.098v-2.016M29.2 265.084l.768-1.44M29.967 263.645l2.016-.672M31.983 262.978H38.8M31.983 262.978l-2.015-2.016M29.967 260.951l-.768-1.344M29.2 259.618v-2.112M29.2 257.498l.768-1.344M29.967 256.151l2.016-.672M31.983 255.485H38.8M29.2 242.525h9.599M31.311 242.525l-1.343 1.344M29.967 243.872l-.768 1.44M29.2 245.312v2.016M29.2 247.325l.768 1.344M29.967 248.672l1.344 1.344M31.311 250.018l2.016.672M33.327 250.685h1.344M34.671 250.685l2.112-.672M36.783 250.018l1.344-1.344M38.127 248.672l.672-1.344M38.799 247.325v-2.016M38.799 245.312l-.672-1.44M38.127 243.872l-1.344-1.344M31.311 230.232l-1.343.672M29.967 230.912l-.768 2.112M29.2 233.019v2.016M29.2 235.032l.768 2.016M29.967 237.059l1.344.672M31.311 237.725l1.344-.672M32.655 237.059l.672-1.344M33.327 235.712l.672-3.456M34 232.259l.671-1.344M34.671 230.912l1.344-.672M36.015 230.232h.768M36.783 230.232l1.344.672M38.127 230.912l.672 2.112M38.799 233.019v2.016M38.799 235.032l-.672 2.016M38.127 237.059l-1.344.672M31.311 218.619l-1.343.672M29.967 219.299l-.768 2.112M29.2 221.406v2.016M29.2 223.419l.768 2.016M29.967 225.432l1.344.768M31.311 226.205l1.344-.768M32.655 225.432l.672-1.344M33.327 224.099l.672-3.36M34 220.739l.671-1.44M34.671 219.299l1.344-.672M36.015 218.619h.768M36.783 218.619l1.344.672M38.127 219.299l.672 2.112M38.799 221.406v2.016M38.799 223.419l-.672 2.016M38.127 225.432l-1.344.768M24.495 198.846v1.344M24.495 200.193l.673 1.44M25.167 201.633l2.016.672M27.183 202.3H38.8M29.2 204.313v-4.8M29.2 194.82h9.599M33.327 194.82l-2.016-.768M31.311 194.046l-1.343-1.344M29.967 192.7l-.768-1.344M29.2 191.353v-2.016M29.2 178.393h9.599M31.311 178.393l-1.343 1.344M29.967 179.74l-.768 1.344M29.2 181.087v2.112M29.2 183.193l.768 1.344M29.967 184.54l1.344 1.344M31.311 185.886l2.016.672M33.327 186.553h1.344M34.671 186.553l2.112-.672M36.783 185.886l1.344-1.343M38.127 184.54l.672-1.344M38.799 183.193v-2.112M38.799 181.087l-.672-1.344M38.127 179.74l-1.344-1.344M31.311 165.434l-1.343 1.344M29.967 166.78l-.768 1.344M29.2 168.127v2.112M29.2 170.234l.768 1.343M29.967 171.58l1.344 1.344M31.311 172.927l2.016.672M33.327 173.593h1.344M34.671 173.593l2.112-.672M36.783 172.927l1.344-1.344M38.127 171.58l.672-1.344M38.799 170.234v-2.112M38.799 168.127l-.672-1.344M38.127 166.78l-1.344-1.344M24.495 159.967h11.52M36.015 159.967l2.112-.672M38.127 159.3l.672-1.343M38.799 157.954v-1.344M29.2 161.98v-4.703M24.495 153.154l.673-.672M25.167 152.474l-.672-.672M24.495 151.807l-.671.672M23.823 152.474l.672.672M29.2 152.474h9.599M29.2 144.314l.768 1.344M29.967 145.66l1.344 1.345M31.311 147.007l2.016.672M33.327 147.674h1.344M34.671 147.674l2.112-.672M36.783 147.007l1.344-1.344M38.127 145.66l.672-1.343M38.799 144.314v-2.112M38.799 142.208l-.672-1.344M38.127 140.86l-1.344-1.343M36.783 139.514l-2.112-.672M34.671 138.848h-1.344M33.327 138.848l-2.016.672M31.311 139.514l-1.343 1.344M29.967 140.86l-.768 1.345M29.2 142.208v2.112M29.2 134.048h9.599M31.983 134.048l-2.015-2.016M29.967 132.034l-.768-1.44M29.2 130.595v-2.016M29.2 128.581l.768-1.344M29.967 127.235l2.016-.672M31.983 126.555H38.8"/></g></g><g stroke="gold"><g stroke-width="28.8"><path stroke-width="3.839904" d="M486.441 115.035h-.096M486.335 115.035h-.096M486.241 115.035h-.096M486.148 115.035h-.096M486.055 115.035h-.096M485.961 115.035h-.096M485.855 115.035h-.096M485.761 115.035h-.096M485.668 115.035h-.096M485.575 115.035h-.096M485.481 115.035h-.096M485.375 115.035h-.096M485.281 115.035h-.096M485.188 115.035h-.096M485.095 115.035h-.096M485.001 115.035h-.096M484.895 115.035h-.096M484.801 115.035h-.096M484.708 115.035h-.096M484.615 115.035h-.096M484.521 115.035h-.096M484.415 115.035h-.096M484.321 115.035h-.096M484.228 115.035h-.096M484.135 115.035h-.096M484.041 115.035h-.096M483.935 115.035h-.096M483.841 115.035h-.096M483.748 115.035h-.096M483.655 115.035h-.096M483.561 115.035h-.096M483.455 115.035h-.096M483.361 115.035h-.096M483.268 115.035h-.096M483.175 115.035h-.192M482.975 115.035h-.096M482.881 115.035h-.096M482.788 115.035h-.096M482.695 115.035h-.098M482.601 115.035h-.192M482.401 115.035h-.097M482.308 115.035h-.095M482.215 115.035h-.194M482.015 115.035h-.095M481.921 115.035h-.193M481.735 115.035h-.095M481.641 115.035h-.193M481.441 115.035h-.19M481.255 115.035h-.098M481.161 115.035h-.19M480.961 115.035h-.192M480.775 115.035h-.194M480.575 115.035h-.191M480.388 115.035h-.193M480.201 115.035h-.192M480.001 115.035h-.19M479.815 115.035h-.194M479.615 115.035h-.192M479.428 115.035h-.288M479.135 115.035h-.191M478.948 115.035h-.193M478.761 115.035h-.288M478.468 115.035h-.288M478.175 115.035h-.192M477.988 115.035h-.288M477.695 115.035h-.288M477.415 115.035h-.288M477.121 115.035h-.288M476.841 115.035h-.288M476.548 115.035h-.288M476.255 115.035h-.288M475.975 115.035h-.384M475.588 115.035h-.288M475.295 115.035h-.384M474.921 115.035h-.288M474.628 115.035h-.384M474.241 115.035h-.384M473.855 115.035h-.384M473.481 115.035h-.383M473.095 115.035h-.384M472.708 115.035h-.48M472.228 115.035h-.384M471.842 115.035h-.48M471.362 115.035h-.384M470.975 115.035h-.48M470.495 115.035h-.48M470.015 115.035h-.48M469.535 115.035h-.576M468.962 115.035h-.48M468.482 115.035h-.576M467.908 115.035h-.192M467.722 115.035h-.576M467.135 115.035h-.576M466.562 115.035h-.576M465.988 115.035h-.576M465.415 115.035h-.672M464.735 115.035h-.672M464.068 115.035h-.576M463.495 115.035h-.672M462.815 115.035h-.672M462.148 115.035h-.768M461.375 115.035h-.672M460.708 115.035h-.767M459.935 115.035h-.768M459.175 115.035h-.768M458.402 115.035h-.768M457.642 115.035h-.864M456.775 115.035h-.864M455.909 115.035h-.864M455.042 115.035h-.864M454.175 115.035h-.864M453.322 115.035h-.768M452.549 115.035h-.672M451.882 115.035h-.96M450.922 115.035h-.96M449.962 115.035h-1.056M448.895 115.035h-1.056M447.842 115.035h-1.056M446.789 115.035h-1.056M445.736 115.035h-1.152M444.576 115.035h-1.152M443.429 115.035h-1.152M442.282 115.035h-1.248M441.029 115.035h-1.248M439.776 115.035h-1.248M438.536 115.035h-1.248M437.282 115.035h-1.344M435.936 115.035h-1.344M434.602 115.035h-1.44M433.163 115.035h-1.44M431.723 115.035h-1.44M430.283 115.035h-1.536M428.736 115.035H427.2M427.203 115.035h-1.536M425.67 115.035h-1.633M424.043 115.035h-1.632M422.403 115.035h-1.632M420.776 115.035h-1.728M419.043 115.035h-1.728M417.323 115.035h-1.824M415.496 115.035h-1.824M413.67 115.035h-.96M412.71 115.035h-.96M411.75 115.035h-.96M410.79 115.035h-1.92M408.87 115.035h-.96M407.91 115.035h-1.056M406.856 115.035h-.96M405.897 115.035h-1.056M404.843 115.035h-1.056M403.777 115.035h-2.112M401.67 115.035h-1.056M400.617 115.035h-1.056M399.563 115.035h-2.208M397.35 115.035h-1.152M396.203 115.035h-1.056M395.137 115.035h-2.304M392.844 115.035h-1.152M391.684 115.035h-1.152M390.537 115.035h-1.248M389.284 115.035h-1.152M388.137 115.035l-1.824.096M386.31 115.142h-1.248M385.057 115.142h-1.25M383.817 115.142h-1.248M382.564 115.142h-1.343M381.217 115.142h-1.248M379.977 115.142h-1.921M378.057 115.142h-1.342M376.71 115.142h-1.345M375.364 115.142h-1.343M374.017 115.142h-2.016M372.004 115.142h-1.345M370.657 115.142h-1.438M369.217 115.142h-1.44M367.777 115.142h-2.111M365.67 115.142h-1.44M364.23 115.142h-1.44M362.79 115.142h-1.439M361.351 115.142h-1.536M359.818 115.142h-1.44M358.378 115.142h-2.304M356.071 115.142h-1.536M354.538 115.142h-1.536M352.991 115.142h-1.536M351.458 115.142h-1.63M349.831 115.142h-1.537M348.298 115.142h-1.632M346.658 115.142h-1.632M345.031 115.142H343.4M343.391 115.142h-1.632M341.765 115.142h-1.632M340.138 115.142h-1.728M338.405 115.142h-1.632M336.778 115.142h-1.728M335.045 115.142h-1.728M333.312 115.142h-1.728M331.592 115.142h-1.728M329.858 115.142h-1.824M328.032 115.142h-1.728M326.312 115.142h-1.824M324.485 115.142h-1.824M322.659 115.142l-1.824.096M320.845 115.235h-1.824M319.019 115.235h-1.92M317.099 115.235h-1.824M315.272 115.235h-1.92M313.352 115.235h-1.92M311.432 115.235h-1.92M309.512 115.235h-1.92M307.592 115.235h-1.92M305.672 115.235h-1.92M303.752 115.235h-2.016M301.74 115.235h-2.017M299.726 115.235h-2.016M297.7 115.235h-2.017M295.686 115.235l-2.016.096M293.673 115.328h-2.016M291.66 115.328h-2.113M289.54 115.328h-2.113M287.433 115.328h-2.016M285.42 115.328h-2.112M283.3 115.328h-2.208M281.1 115.328h-2.112M278.98 115.328l-2.112.096M276.873 115.422h-2.208M274.66 115.422h-2.208M272.46 115.422h-2.112M270.34 115.422h-2.208M268.14 115.422h-2.304M265.833 115.422l-2.208.096M263.62 115.515h-2.208M261.42 115.515h-2.305M259.114 115.515h-2.207M256.9 115.515h-2.305M254.607 115.515l-2.303.096M252.3 115.622h-2.304M249.994 115.622h-2.306M247.687 115.622h-1.822M245.86 115.622l-1.727.096M244.14 115.715h-2.303M241.834 115.715h-1.824M240.007 115.715h-1.728M238.287 115.715l-1.824.096M236.46 115.808h-1.823M234.634 115.808h-2.304M232.328 115.808l-2.4.096M229.928 115.902h-2.496M227.434 115.902l-2.4.097M225.034 115.995h-2.4M222.634 115.995l-2.4.096M220.234 116.102h-2.495M217.741 116.102h-1.825M215.915 116.102l-2.495.094M213.421 116.195h-1.824M211.595 116.195l-2.4.096M209.195 116.288l-2.496.098M206.701 116.382h-2.497M204.208 116.382l-2.494.094M201.702 116.475l-2.496.096M199.208 116.582h-2.497M196.715 116.582l-2.495.096M194.222 116.675l-2.4.096M191.822 116.768l-1.92.096M189.902 116.862l-2.497.096M187.409 116.955l-2.495.096M184.902 117.062h-1.824M183.089 117.062l-1.92.096M181.169 117.155l-2.496.096M178.662 117.248l-1.824.096M176.849 117.342l-2.496.192M174.342 117.542l-2.496.096M171.849 117.635l-2.4.096M169.45 117.728l-1.825.096M167.622 117.822l-2.495.192M165.13 118.022l-1.825.096M163.303 118.115l-2.112.192M161.196 118.301l-1.536.096M159.663 118.395l-2.4.192M157.263 118.595l-1.824.192M155.436 118.781l-2.4.192M153.036 118.981l-2.304.192M150.73 119.168l-1.824.288M148.903 119.461l-2.305.192M146.61 119.648l-2.303.288M144.303 119.941l-1.152.096M143.143 120.035l-.576.096M142.57 120.128h-.576M141.996 120.128l-.288.096M141.703 120.221h-.096M141.61 120.221l-.192 1.056M141.423 121.275v.576M141.423 121.861l-.096.384M141.33 122.235l-.192.384M141.13 122.621l-.096.384M141.036 123.008l-.192.384M140.85 123.395l-.192.384M140.65 123.781v.384M140.65 124.155l-.096.288M140.556 124.448l-.096.096M140.463 124.541v.096M140.463 124.635l-.096 2.88M140.37 127.515h-.096M140.263 127.515h-.096M140.17 127.515v.096M140.17 127.621h-.096M140.076 127.621h-.095M139.983 127.621h-.096M139.89 127.621h-.192M139.69 127.621h-.192M139.503 127.621h-.48M139.023 127.621h-.576M138.45 127.621h-1.152M137.29 127.621h-.48M136.81 127.621h-1.056M135.757 127.621h-.576M135.183 127.621h-1.152M134.023 127.621h-1.152M132.877 127.621h-.576M132.3 127.621h-.96M131.34 127.621h-1.056M130.285 127.621h-.768M129.517 127.621h-1.056M128.46 127.621h-.479M127.98 127.621h-1.055M126.925 127.621h-.672M126.253 127.621h-.768M125.485 127.621h-.48M125.005 127.621h-.48M124.525 127.621h-.96M123.565 127.621h-.768M122.797 127.621h-.672M122.125 127.621h-.96M121.165 127.621h-.864M120.301 127.621h-.96M119.341 127.621h-.672M118.669 127.621h-.576M118.093 127.621h-.864M117.23 127.621h-.865M116.365 127.621h-.768M115.597 127.621h-.384M115.213 127.621h-.768M114.445 127.621h-.768M113.677 127.621h-.672M113.005 127.621h-.384M112.621 127.621h-.672M111.95 127.621h-.673M111.277 127.621h-.48M110.797 127.621h-.576M110.221 127.621h-.287M109.933 127.621h-.384M109.55 127.621h-.48M109.07 127.621h-.385M108.685 127.621h-.384M108.301 127.621h-.288M108.013 127.621h-.192M107.821 127.621h-.096M107.725 127.621h-.096M107.63 127.621h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M149.29 106.875v7.68M149.29 110.915l1.056-1.056M150.343 109.862l.768-.384M151.116 109.475h1.056M152.17 109.475l.672.384M152.85 109.862l.384 1.056M153.223 110.915v3.648M156.876 108.422l.768-.384M157.65 108.035l1.055-1.152M158.703 106.875v7.68M243.94 103.715v7.68M243.94 107.742l1.153-1.056M245.1 106.688l.673-.384M245.767 106.302h1.152M246.927 106.302l.672.384M247.594 106.688l.384 1.056M247.98 107.742v3.648M251.62 105.155l.672-.288M252.3 104.862l1.152-1.152M253.447 103.715v7.68M338.698 103.235v7.68M338.698 107.262l1.056-1.056M339.752 106.208l.767-.384M340.525 105.822h1.056M341.578 105.822l.768.384M342.338 106.208l.384 1.056M342.725 107.262v3.648M346.378 104.675l.672-.288M347.045 104.382l1.056-1.152M348.098 103.235v7.68M433.442 103.142v7.68M433.442 107.168l1.056-1.056M434.496 106.115l.768-.384M435.27 105.728h1.055M436.322 105.728l.672.384M437.002 106.115l.384 1.056M437.376 107.168v3.648M441.029 104.675l.768-.384M441.802 104.289l1.056-1.152M442.856 103.142v7.68"/></g></g><g stroke="#87cefa"><g stroke-width="28.8"><path stroke-width="3.839904" d="M486.441 149.22h-.096M486.335 149.22h-.096M486.241 149.22h-.096M486.148 149.22h-.096M486.055 149.22h-.096M485.961 149.22h-.096M485.855 149.22h-.096M485.761 149.22h-.096M485.668 149.22h-.096M485.575 149.22h-.096M485.481 149.22h-.096M485.375 149.22h-.096M485.281 149.22h-.096M485.188 149.22h-.096M485.095 149.22h-.096M485.001 149.22h-.096M484.895 149.22h-.096M484.801 149.22h-.096M484.708 149.22h-.096M484.615 149.22h-.096M484.521 149.22h-.096M484.415 149.22h-.096M484.321 149.22h-.096M484.228 149.22h-.096M484.135 149.22h-.096M484.041 149.22h-.096M483.935 149.22h-.096M483.841 149.22h-.096M483.748 149.22h-.096M483.655 149.22h-.096M483.561 149.22h-.096M483.455 149.22h-.096M483.361 149.22h-.096M483.268 149.22h-.096M483.175 149.22h-.192M482.975 149.22h-.096M482.881 149.22h-.096M482.788 149.22h-.096M482.695 149.22h-.098M482.601 149.22h-.192M482.401 149.22h-.097M482.308 149.22h-.095M482.215 149.22h-.194M482.015 149.22h-.095M481.921 149.22h-.193M481.735 149.22h-.095M481.641 149.22h-.193M481.441 149.22h-.19M481.255 149.22h-.098M481.161 149.22h-.19M480.961 149.22h-.192M480.775 149.22h-.194M480.575 149.22h-.191M480.388 149.22h-.193M480.201 149.22h-.192M480.001 149.22h-.19M479.815 149.22h-.194M479.615 149.22h-.192M479.428 149.22h-.288M479.135 149.22h-.191M478.948 149.22h-.193M478.761 149.22h-.288M478.468 149.22h-.288M478.175 149.22h-.192M477.988 149.22h-.288M477.695 149.22h-.288M477.415 149.22h-.288M477.121 149.22h-.288M476.841 149.22h-.288M476.548 149.22h-.288M476.255 149.22h-.288M475.975 149.22h-.384M475.588 149.22h-.288M475.295 149.22h-.384M474.921 149.22h-.288M474.628 149.22h-.384M474.241 149.22h-.384M473.855 149.22h-.384M473.481 149.22h-.383M473.095 149.22h-.384M472.708 149.22h-.48M472.228 149.22h-.384M471.842 149.22h-.48M471.362 149.22h-.384M470.975 149.22h-.48M470.495 149.22h-.48M470.015 149.22h-.48M469.535 149.22h-.576M468.962 149.22h-.48M468.482 149.22h-.576M467.908 149.22h-.192M467.722 149.22h-.576M467.135 149.22h-.576M466.562 149.22h-.576M465.988 149.22h-.576M465.415 149.22h-.672M464.735 149.22h-.672M464.068 149.22h-.576M463.495 149.22h-.672M462.815 149.22h-.672M462.148 149.22h-.768M461.375 149.22h-.672M460.708 149.22h-.767M459.935 149.22h-.768M459.175 149.22h-.768M458.402 149.22h-.768M457.642 149.22h-.864M456.775 149.22h-.864M455.909 149.22h-.864M455.042 149.22h-.864M454.175 149.22h-.864M453.322 149.22h-.768M452.549 149.22h-.672M451.882 149.22h-.96M450.922 149.22h-.96M449.962 149.22h-1.056M448.895 149.22h-1.056M447.842 149.22h-1.056M446.789 149.22h-1.056M445.736 149.22h-1.152M444.576 149.22h-1.152M443.429 149.22h-1.152M442.282 149.22h-1.248M441.029 149.22h-1.248M439.776 149.22h-1.248M438.536 149.22h-1.248M437.282 149.22h-1.344M435.936 149.22h-1.344M434.602 149.22h-1.44M433.163 149.22h-1.44M431.723 149.22h-1.44M430.283 149.22h-1.536M428.736 149.22H427.2M427.203 149.22h-1.536M425.67 149.22h-1.633M424.043 149.22h-1.632M422.403 149.22h-1.632M420.776 149.22h-1.728M419.043 149.22h-1.728M417.323 149.22h-1.824M415.496 149.22h-1.824M413.67 149.22h-.96M412.71 149.22h-.96M411.75 149.22h-.96M410.79 149.22h-1.92M408.87 149.22h-.96M407.91 149.22h-1.056M406.856 149.22h-.96M405.897 149.22h-1.056M404.843 149.22h-1.056M403.777 149.22h-2.112M401.67 149.22h-1.056M400.617 149.22h-1.056M399.563 149.22h-2.208M397.35 149.22h-1.152M396.203 149.22h-1.056M395.137 149.22h-2.304M392.844 149.22h-1.152M391.684 149.22h-1.152M390.537 149.22h-1.248M389.284 149.22h-1.152M388.137 149.22h-1.824M386.31 149.22h-1.248M385.057 149.22h-1.25M383.817 149.22h-1.248M382.564 149.22h-1.343M381.217 149.22h-1.248M379.977 149.22h-1.921M378.057 149.22h-1.342M376.71 149.22h-1.345M375.364 149.22h-1.343M374.017 149.22h-2.016M372.004 149.22h-1.345M370.657 149.22h-1.438M369.217 149.22h-1.44M367.777 149.22h-2.111M365.67 149.22h-1.44M364.23 149.22h-1.44M362.79 149.22h-1.439M361.351 149.22h-1.536M359.818 149.22h-1.44M358.378 149.22h-2.304M356.071 149.22h-1.536M354.538 149.22h-1.536M352.991 149.22h-1.536M351.458 149.22l-1.63-.095M349.831 149.114h-1.537M348.298 149.114h-1.632M346.658 149.114h-1.632M345.031 149.114H343.4M343.391 149.114h-1.632M341.765 149.114h-1.632M340.138 149.114h-1.728M338.405 149.114h-1.632M336.778 149.114h-1.728M335.045 149.114h-1.728M333.312 149.114l-1.728-.096M331.592 149.02h-1.728M329.858 149.02h-1.824M328.032 149.02h-1.728M326.312 149.02h-1.824M324.485 149.02h-1.824M322.659 149.02h-1.824M320.845 149.02l-1.824-.095M319.019 148.927h-1.92M317.099 148.927h-1.824M315.272 148.927h-1.92M313.352 148.927h-1.92M311.432 148.927h-1.92M309.512 148.927l-1.92-.096M307.592 148.834h-1.92M305.672 148.834h-1.92M303.752 148.834h-2.016M301.74 148.834h-2.017M299.726 148.834l-2.016-.096M297.7 148.74h-2.017M295.686 148.74h-2.016M293.673 148.74h-2.016M291.66 148.74l-2.113-.095M289.54 148.634h-2.113M287.433 148.634h-2.016M285.42 148.634l-2.112-.096M283.3 148.54h-2.208M281.1 148.54h-2.112M278.98 148.54l-2.112-.095M276.873 148.447h-2.208M274.66 148.447h-2.208M272.46 148.447l-2.112-.096M270.34 148.354h-2.208M268.14 148.354l-2.304-.097M265.833 148.26h-2.208M263.62 148.26l-2.208-.094M261.42 148.154h-2.305M259.114 148.154l-2.207-.097M256.9 148.06h-2.305M254.607 148.06l-2.303-.095M252.3 147.967l-2.304-.094M249.994 147.874h-2.306M247.687 147.874l-1.822-.096M245.86 147.78h-1.727M244.14 147.78l-2.303-.095M241.834 147.674h-1.824M240.007 147.674l-1.728-.096M238.287 147.58l-1.824-.095M236.46 147.487h-1.823M234.634 147.487l-2.304-.096M232.328 147.394l-2.4-.096M229.928 147.3l-2.496-.095M227.434 147.194l-2.4-.096M225.034 147.1l-2.4-.095M222.634 147.007l-2.4-.096M220.234 146.914l-2.495-.096M217.741 146.82l-1.825-.095M215.915 146.714l-2.495-.096M213.421 146.62l-1.824-.095M211.595 146.527l-2.4-.192M209.195 146.34l-2.496-.095M206.701 146.234l-2.497-.096M204.208 146.14l-2.494-.191M201.702 145.954l-2.496-.096M199.208 145.86l-2.497-.191M196.715 145.66l-2.495-.191M194.222 145.474l-2.4-.096M191.822 145.38l-1.92-.191M189.902 145.18l-2.497-.191M187.409 144.994l-2.495-.192M184.902 144.794l-1.824-.192M183.089 144.608l-1.92-.192M181.169 144.42l-2.496-.191M178.662 144.22l-1.824-.191M176.849 144.034l-2.496-.192M174.342 143.834l-2.496-.288M171.849 143.554l-2.4-.288M169.45 143.26l-1.825-.191M167.622 143.074l-2.495-.288M165.13 142.78l-1.825-.287M163.303 142.5l-2.112-.191M161.196 142.3l-1.536-.287M159.663 142.02l-2.4-.287M157.263 141.728l-1.824-.384M155.436 141.34l-2.4-.383M153.036 140.954l-2.304-.382M150.73 140.58l-1.824-.383M148.903 140.194l-2.305-.481M146.61 139.714l-2.303-.382M144.303 139.328l-1.152-.194M143.143 139.128l-.576-.095M142.57 139.034l-.576-.096M141.996 138.941l-.288-.096M141.703 138.848h-.096M141.61 138.848l-.192-1.728M141.423 137.114v-.766M141.423 136.354l-.096-.576M141.33 135.781l-.192-.577M141.13 135.194l-.096-.576M141.036 134.621l-.192-.576M140.85 134.048l-.192-.48M140.65 133.568v-.479M140.65 133.088l-.096-.384M140.556 132.701l-.096-.096M140.463 132.608v-.192M140.463 132.408l-.096-3.168M140.37 129.248h-.096M140.263 129.248h-.096M140.17 129.248v-.192M140.17 129.048h-.096M140.076 129.048h-.095M139.983 129.048h-.096M139.89 129.048h-.192M139.69 129.048h-.192M139.503 129.048h-.48M139.023 129.048h-.576M138.45 129.048h-1.152M137.29 129.048h-.48M136.81 129.048h-1.056M135.757 129.048h-.576M135.183 129.048h-1.152M134.023 129.048h-1.152M132.877 129.048h-.576M132.3 129.048h-.96M131.34 129.048h-1.056M130.285 129.048h-.768M129.517 129.048h-1.056M128.46 129.048h-.479M127.98 129.048h-1.055M126.925 129.048h-.672M126.253 129.048h-.768M125.485 129.048h-.48M125.005 129.048h-.48M124.525 129.048h-.96M123.565 129.048h-.768M122.797 129.048h-.672M122.125 129.048h-.96M121.165 129.048h-.864M120.301 129.048h-.96M119.341 129.048h-.672M118.669 129.048h-.576M118.093 129.048h-.864M117.23 129.048h-.865M116.365 129.048h-.768M115.597 129.048h-.384M115.213 129.048h-.768M114.445 129.048h-.768M113.677 129.048h-.672M113.005 129.048h-.384M112.621 129.048h-.672M111.95 129.048h-.673M111.277 129.048h-.48M110.797 129.048h-.576M110.221 129.048h-.287M109.933 129.048h-.384M109.55 129.048h-.48M109.07 129.048h-.385M108.685 129.048h-.384M108.301 129.048h-.288M108.013 129.048h-.192M107.821 129.048h-.096M107.725 129.048h-.096M107.63 129.048h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M145.93 129.341v7.68M145.93 133.381l1.152-1.056M147.09 132.314l.672-.384M147.756 131.941h1.152M148.903 131.941l.672.384M149.583 132.314l.384 1.056M149.97 133.381v3.648M152.556 134.141h4.32M156.876 134.141v-.768M156.876 133.381l-.384-.768M156.49 132.608l-.289-.288M156.21 132.314l-.769-.384M155.436 131.941h-1.056M154.383 131.941l-.768.384M153.61 132.314l-.768.672M152.85 132.994l-.288 1.152M152.556 134.141v.672M152.556 134.821l.288 1.152M152.85 135.968l.767.672M153.61 136.634l.767.384M154.383 137.021h1.056M155.436 137.021l.768-.384M156.21 136.634l.671-.672M162.73 129.341l-3.649 5.088M159.09 134.434h5.471M162.73 129.341v7.68M240.687 136.061v7.584M240.687 139.994l1.056-1.056M241.74 138.941l.769-.384M242.5 138.554h1.057M243.567 138.554l.768.384M244.327 138.941l.384 1.056M244.714 139.994v3.648M247.207 140.768h4.416M251.62 140.768V140M251.62 139.994l-.384-.672M251.247 139.328l-.384-.384M250.86 138.941l-.672-.384M250.18 138.554h-1.152M249.034 138.554l-.672.384M248.367 138.941l-.768.672M247.594 139.621l-.384 1.152M247.207 140.768v.672M247.207 141.434l.384 1.152M247.594 142.594l.768.672M248.367 143.26l.672.385M249.034 143.648h1.152M250.18 143.648l.672-.384M250.86 143.26l.768-.671M257.487 136.061l-3.648 5.088M253.834 141.154h5.376M257.487 136.061v7.584M335.432 137.221v7.68M335.432 141.248l1.056-1.056M336.485 140.194l.768-.384M337.258 139.808h1.056M338.312 139.808l.768.384M339.085 140.194l.288 1.056M339.365 141.248v3.647M341.965 142.02h4.416M346.378 142.02v-.767M346.378 141.248l-.384-.672M345.991 140.58l-.384-.383M345.605 140.194l-.768-.384M344.845 139.808h-1.056M343.778 139.808l-.768.384M343.018 140.194l-.672.672M342.338 140.86l-.384 1.153M341.965 142.02v.673M341.965 142.688l.384 1.152M342.338 143.834l.672.672M343.018 144.514l.768.384M343.778 144.9h1.056M344.845 144.9l.768-.383M345.605 144.514l.768-.672M352.138 137.221l-3.648 5.088M348.485 142.3h5.471M352.138 137.221v7.68M430.083 137.314v7.68M430.083 141.34l1.152-1.151M431.243 140.194l.672-.384M431.91 139.808h1.151M433.056 139.808l.672.384M433.736 140.194l.384 1.152M434.122 141.34v3.649M436.71 142.02h4.319M441.029 142.02v-.671M441.029 141.34l-.384-.767M440.642 140.58l-.288-.383M440.362 140.194l-.768-.384M439.589 139.808h-1.056M438.536 139.808l-.768.384M437.762 140.194l-.768.768M437.002 140.954l-.288 1.056M436.71 142.02v.769M436.71 142.78l.287 1.057M437.002 143.834l.768.768M437.762 144.608l.768.383M438.536 144.994h1.056M439.589 144.994l.768-.384M440.362 144.608l.672-.768M446.882 137.314l-3.648 5.088M443.242 142.394h5.472M446.882 137.314v7.68"/></g></g><g stroke="#c03"><g stroke-width="28.8"><path stroke-width="3.839904" d="M486.441 312.897h-.096M486.335 312.897h-.096M486.241 312.897h-.096M486.148 312.897h-.096M486.055 312.897h-.096M485.961 312.897h-.096M485.855 312.897h-.096M485.761 312.897h-.096M485.668 312.897h-.096M485.575 312.897h-.096M485.481 312.897h-.096M485.375 312.897h-.096M485.281 312.897h-.096M485.188 312.897h-.096M485.095 312.897h-.096M485.001 312.897h-.096M484.895 312.897h-.096M484.801 312.897h-.096M484.708 312.897h-.096M484.615 312.897h-.096M484.521 312.897h-.096M484.415 312.897h-.096M484.321 312.897h-.096M484.228 312.897h-.096M484.135 312.897h-.096M484.041 312.897h-.096M483.935 312.897h-.096M483.841 312.897h-.096M483.748 312.897h-.096M483.655 312.897h-.096M483.561 312.897h-.096M483.455 312.897h-.096M483.361 312.897h-.096M483.268 312.897h-.096M483.175 312.897h-.192M482.975 312.897h-.096M482.881 312.897h-.096M482.788 312.897h-.096M482.695 312.897h-.098M482.601 312.897h-.192M482.401 312.897h-.097M482.308 312.897h-.095M482.215 312.897h-.194M482.015 312.897h-.095M481.921 312.897h-.193M481.735 312.897h-.095M481.641 312.897h-.193M481.441 312.897h-.19M481.255 312.897h-.098M481.161 312.897h-.19M480.961 312.897h-.192M480.775 312.897h-.194M480.575 312.897h-.191M480.388 312.897h-.193M480.201 312.897h-.192M480.001 312.897h-.19M479.815 312.897h-.194M479.615 312.897h-.192M479.428 312.897h-.288M479.135 312.897h-.191M478.948 312.897h-.193M478.761 312.897h-.288M478.468 312.897h-.288M478.175 312.897h-.192M477.988 312.897h-.288M477.695 312.897h-.288M477.415 312.897h-.288M477.121 312.897h-.288M476.841 312.897h-.288M476.548 312.897h-.288M476.255 312.897h-.288M475.975 312.897h-.384M475.588 312.897h-.288M475.295 312.897h-.384M474.921 312.897h-.288M474.628 312.897h-.384M474.241 312.897h-.384M473.855 312.897h-.384M473.481 312.897h-.383M473.095 312.897h-.384M472.708 312.897h-.48M472.228 312.897h-.384M471.842 312.897h-.48M471.362 312.897h-.384M470.975 312.897h-.48M470.495 312.897h-.48M470.015 312.897h-.48M469.535 312.897h-.576M468.962 312.897h-.48M468.482 312.897h-.576M467.908 312.897h-.192M467.722 312.897h-.576M467.135 312.897h-.576M466.562 312.897h-.576M465.988 312.897h-.576M465.415 312.897h-.672M464.735 312.897h-.672M464.068 312.897h-.576M463.495 312.897h-.672M462.815 312.897h-.672M462.148 312.897h-.768M461.375 312.897h-.672M460.708 312.897h-.767M459.935 312.897h-.768M459.175 312.897h-.768M458.402 312.897h-.768M457.642 312.897h-.864M456.775 312.897h-.864M455.909 312.897h-.864M455.042 312.897h-.864M454.175 312.897h-.864M453.322 312.897h-.768M452.549 312.897h-.672M451.882 312.897h-.96M450.922 312.897h-.96M449.962 312.897h-1.056M448.895 312.897h-1.056M447.842 312.897h-1.056M446.789 312.897h-1.056M445.736 312.897h-1.152M444.576 312.897h-1.152M443.429 312.897h-1.152M442.282 312.897h-1.248M441.029 312.897h-1.248M439.776 312.897h-1.248M438.536 312.897h-1.248M437.282 312.897h-1.344M435.936 312.897h-1.344M434.602 312.897h-1.44M433.163 312.897h-1.44M431.723 312.897h-1.44M430.283 312.897h-1.536M428.736 312.897H427.2M427.203 312.897h-1.536M425.67 312.897h-1.633M424.043 312.897h-1.632M422.403 312.897h-1.632M420.776 312.897h-1.728M419.043 312.897h-1.728M417.323 312.897h-1.824M415.496 312.897h-1.824M413.67 312.897h-.96M412.71 312.897h-.96M411.75 312.897h-.96M410.79 312.897h-1.92M408.87 312.897h-.96M407.91 312.897h-1.056M406.856 312.897h-.96M405.897 312.897h-1.056M404.843 312.897h-1.056M403.777 312.897h-2.112M401.67 312.897h-1.056M400.617 312.897h-1.056M399.563 312.897h-2.208M397.35 312.897h-1.152M396.203 312.897h-1.056M395.137 312.897h-2.304M392.844 312.897h-1.152M391.684 312.897h-1.152M390.537 312.897h-1.248M389.284 312.897h-1.152M388.137 312.897h-1.824M386.31 312.897h-1.248M385.057 312.897h-1.25M383.817 312.897h-1.248M382.564 312.897h-1.343M381.217 312.897h-1.248M379.977 312.897h-1.921M378.057 312.897h-1.342M376.71 312.897h-1.345M375.364 312.897h-1.343M374.017 312.897h-2.016M372.004 312.897h-1.345M370.657 312.897h-1.438M369.217 312.897h-1.44M367.777 312.897h-2.111M365.67 312.897h-1.44M364.23 312.897h-1.44M362.79 312.897h-1.439M361.351 312.897h-1.536M359.818 312.897h-1.44M358.378 312.897h-2.304M356.071 312.897h-1.536M354.538 312.897l-1.536.096M352.991 312.99h-1.536M351.458 312.99h-1.63M349.831 312.99h-1.537M348.298 312.99h-1.632M346.658 312.99h-1.632M345.031 312.99H343.4M343.391 312.99h-1.632M341.765 312.99h-1.632M340.138 312.99h-1.728M338.405 312.99h-1.632M336.778 312.99h-1.728M335.045 312.99h-1.728M333.312 312.99h-1.728M331.592 312.99h-1.728M329.858 312.99l-1.824.096M328.032 313.083h-1.728M326.312 313.083h-1.824M324.485 313.083h-1.824M322.659 313.083l-1.824.096M320.845 313.177h-1.824M319.019 313.177h-1.92M317.099 313.177l-1.824.096M315.272 313.27h-1.92M313.352 313.27l-1.92.096M311.432 313.377l-1.92.096M309.512 313.47l-1.92.096M307.592 313.563l-1.92.096M305.672 313.657l-1.92.096M303.752 313.75l-2.016.096M301.74 313.857l-2.017.096M299.726 313.95l-2.016.192M297.7 314.137l-2.017.192M295.686 314.337l-2.016.192M293.673 314.523l-2.016.288M291.66 314.817l-2.113.288M289.54 315.097l-2.113.384M287.433 315.483l-2.016.384M285.42 315.87l-2.112.48M283.3 316.35l-2.208.48M281.1 316.83l-2.112.576M278.98 317.403l-2.112.768M276.873 318.177l-2.208.767M274.66 318.936l-2.208.96M272.46 319.896l-2.112 1.056M270.34 320.95l-2.208 1.344M268.14 322.296l-2.304 1.44M265.833 323.736l-2.208 1.728M263.62 325.47l-2.208 1.92M261.42 327.39l-2.305 2.304M259.114 329.696l-2.207 2.688M256.9 332.376l-2.305 3.072M254.607 335.456l-2.303 3.648M252.3 339.096l-2.304 4.128M249.994 343.23l-2.306 4.223M247.687 347.456l-1.822 4.032M245.86 351.482l-1.727 5.28M244.14 356.762l-2.303 6.048M241.834 362.815l-.192.48"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="m244.527 335.643-.768-.768M243.754 334.87l-.672-.385M243.087 334.496h-1.152M241.927 334.496l-.672.384M241.26 334.87l-.767.767M240.487 335.643l-.384 1.056M240.1 336.696v.768M240.1 337.47l.385 1.055M240.487 338.523l.768.768M241.26 339.296l.673.384M241.927 339.67h1.152M243.087 339.67l.672-.385M243.754 339.296l.768-.768M247.78 333.43l.768-.385M248.554 333.056 249.61 332M249.607 331.99v7.68M254.314 333.816v-.384M254.314 333.43l.384-.769M254.7 332.67l.384-.289M255.087 332.376l.672-.384M255.754 331.99h1.536M257.287 331.99l.672.383M257.967 332.376l.384.288M258.34 332.67l.384.767M258.727 333.43v.767M258.727 334.203l-.384.672M258.34 334.87l-.768 1.151M257.58 336.03l-3.648 3.647M253.927 339.67h5.184M339.272 304.737l-.768-.768M338.498 303.964l-.768-.384M337.738 303.577h-1.056M336.685 303.577l-.768.384M335.912 303.964l-.672.768M335.245 304.737l-.384 1.056M334.858 305.79v.768M334.858 306.55l.384 1.056M335.245 307.617l.672.768M335.912 308.377l.768.288M336.685 308.67h1.056M337.738 308.67l.768-.288M338.498 308.377l.768-.768M342.538 302.524l.672-.384M343.205 302.137l1.152-1.056M344.365 301.084v7.583M349.058 302.91v-.384M349.058 302.524l.384-.768M349.445 301.75l.384-.288M349.831 301.47l.672-.384M350.498 301.084h1.44M351.938 301.084l.768.384M352.711 301.47l.384.288M353.098 301.75l.288.768M353.378 302.524v.768M353.378 303.297l-.288.672M353.098 303.964l-.768 1.151M352.325 305.11l-3.648 3.552M348.685 308.67h5.087M433.922 304.63l-.671-.672M433.256 303.964l-.768-.384M432.483 303.577h-1.056M431.43 303.577l-.769.384M430.656 303.964l-.672.672M429.99 304.63l-.385 1.152M429.603 305.79v.672M429.603 306.457l.384 1.152M429.99 307.617l.671.672M430.656 308.283l.768.384M431.43 308.67h1.055M432.483 308.67l.768-.384M433.256 308.283l.672-.672M437.19 302.524l.767-.384M437.962 302.137l1.056-1.056M439.016 301.084v7.583M443.816 302.817v-.288M443.816 302.524l.288-.768M444.096 301.75l.384-.384M444.482 301.377l.768-.288M445.256 301.084h1.44M446.695 301.084l.768.288M447.455 301.377l.288.384M447.749 301.75l.384.768M448.135 302.524v.672M448.135 303.19l-.384.768M447.749 303.964l-.672 1.055M447.082 305.017l-3.648 3.648M443.429 308.67h5.088"/></g></g><g stroke="#daa520"><g stroke-width="28.8"><path stroke-width="3.839904" d="M486.441 275.644h-.096M486.335 275.644h-.096M486.241 275.644h-.096M486.148 275.644h-.096M486.055 275.644h-.096M485.961 275.644h-.096M485.855 275.644h-.096M485.761 275.644h-.096M485.668 275.644h-.096M485.575 275.644h-.096M485.481 275.644h-.096M485.375 275.644h-.096M485.281 275.644h-.096M485.188 275.644h-.096M485.095 275.644h-.096M485.001 275.644h-.096M484.895 275.644h-.096M484.801 275.644h-.096M484.708 275.644h-.096M484.615 275.644h-.096M484.521 275.644h-.096M484.415 275.644h-.096M484.321 275.644h-.096M484.228 275.644h-.096M484.135 275.644h-.096M484.041 275.644h-.096M483.935 275.644h-.096M483.841 275.644h-.096M483.748 275.644h-.096M483.655 275.644h-.096M483.561 275.644h-.096M483.455 275.644h-.096M483.361 275.644h-.096M483.268 275.644h-.096M483.175 275.644h-.192M482.975 275.644h-.096M482.881 275.644h-.096M482.788 275.644h-.096M482.695 275.644h-.098M482.601 275.644h-.192M482.401 275.644h-.097M482.308 275.644h-.095M482.215 275.644h-.194M482.015 275.644h-.095M481.921 275.644h-.193M481.735 275.644h-.095M481.641 275.644h-.193M481.441 275.644h-.19M481.255 275.644h-.098M481.161 275.644h-.19M480.961 275.644h-.192M480.775 275.644h-.194M480.575 275.644h-.191M480.388 275.644h-.193M480.201 275.644h-.192M480.001 275.644h-.19M479.815 275.644h-.194M479.615 275.644h-.192M479.428 275.644h-.288M479.135 275.644h-.191M478.948 275.644h-.193M478.761 275.644h-.288M478.468 275.644h-.288M478.175 275.644h-.192M477.988 275.644h-.288M477.695 275.644h-.288M477.415 275.644h-.288M477.121 275.644h-.288M476.841 275.644h-.288M476.548 275.644h-.288M476.255 275.644h-.288M475.975 275.644h-.384M475.588 275.644h-.288M475.295 275.644h-.384M474.921 275.644h-.288M474.628 275.644h-.384M474.241 275.644h-.384M473.855 275.644h-.384M473.481 275.644h-.383M473.095 275.644h-.384M472.708 275.644h-.48M472.228 275.644h-.384M471.842 275.644h-.48M471.362 275.644h-.384M470.975 275.644h-.48M470.495 275.644h-.48M470.015 275.644h-.48M469.535 275.644h-.576M468.962 275.644h-.48M468.482 275.644h-.576M467.908 275.644h-.192M467.722 275.644h-.576M467.135 275.644h-.576M466.562 275.644h-.576M465.988 275.644h-.576M465.415 275.644h-.672M464.735 275.644h-.672M464.068 275.644h-.576M463.495 275.644h-.672M462.815 275.644h-.672M462.148 275.644h-.768M461.375 275.644h-.672M460.708 275.644h-.767M459.935 275.644h-.768M459.175 275.644h-.768M458.402 275.644h-.768M457.642 275.644h-.864M456.775 275.644h-.864M455.909 275.644h-.864M455.042 275.644h-.864M454.175 275.644h-.864M453.322 275.644h-.768M452.549 275.644h-.672M451.882 275.644h-.96M450.922 275.644h-.96M449.962 275.644h-1.056M448.895 275.644h-1.056M447.842 275.644h-1.056M446.789 275.644h-1.056M445.736 275.644h-1.152M444.576 275.644h-1.152M443.429 275.644h-1.152M442.282 275.644h-1.248M441.029 275.644h-1.248M439.776 275.644h-1.248M438.536 275.644h-1.248M437.282 275.644h-1.344M435.936 275.644h-1.344M434.602 275.644h-1.44M433.163 275.644h-1.44M431.723 275.644h-1.44M430.283 275.644h-1.536M428.736 275.644H427.2M427.203 275.644h-1.536M425.67 275.644h-1.633M424.043 275.644h-1.632M422.403 275.644h-1.632M420.776 275.644h-1.728M419.043 275.644h-1.728M417.323 275.644h-1.824M415.496 275.644h-1.824M413.67 275.644h-.96M412.71 275.644h-.96M411.75 275.644h-.96M410.79 275.644h-1.92M408.87 275.644h-.96M407.91 275.644h-1.056M406.856 275.644h-.96M405.897 275.644h-1.056M404.843 275.644h-1.056M403.777 275.644h-2.112M401.67 275.644h-1.056M400.617 275.644h-1.056M399.563 275.644h-2.208M397.35 275.644h-1.152M396.203 275.644h-1.056M395.137 275.644h-2.304M392.844 275.644h-1.152M391.684 275.644h-1.152M390.537 275.644h-1.248M389.284 275.644h-1.152M388.137 275.644h-1.824M386.31 275.644h-1.248M385.057 275.644h-1.25M383.817 275.644h-1.248M382.564 275.644h-1.343M381.217 275.644h-1.248M379.977 275.644h-1.921M378.057 275.644h-1.342M376.71 275.644h-1.345M375.364 275.644h-1.343M374.017 275.644h-2.016M372.004 275.644h-1.345M370.657 275.644h-1.438M369.217 275.644h-1.44M367.777 275.644h-2.111M365.67 275.644h-1.44M364.23 275.644h-1.44M362.79 275.644h-1.439M361.351 275.644h-1.536M359.818 275.644h-1.44M358.378 275.644h-2.304M356.071 275.644h-1.536M354.538 275.644h-1.536M352.991 275.644h-1.536M351.458 275.644h-1.63M349.831 275.644h-1.537M348.298 275.644h-1.632M346.658 275.644h-1.632M345.031 275.644H343.4M343.391 275.644h-1.632M341.765 275.644h-1.632M340.138 275.644h-1.728M338.405 275.644h-1.632M336.778 275.644h-1.728M335.045 275.644h-1.728M333.312 275.644h-1.728M331.592 275.644h-1.728M329.858 275.644h-1.824M328.032 275.644h-1.728M326.312 275.644h-1.824M324.485 275.644h-1.824M322.659 275.644h-1.824M320.845 275.644h-1.824M319.019 275.644h-1.92M317.099 275.644h-1.824M315.272 275.644h-1.92M313.352 275.644h-1.92M311.432 275.644h-1.92M309.512 275.644h-1.92M307.592 275.644h-1.92M305.672 275.644h-1.92M303.752 275.644h-2.016M301.74 275.644h-2.017M299.726 275.644h-2.016M297.7 275.644h-2.017M295.686 275.644h-2.016M293.673 275.644h-2.016M291.66 275.644h-2.113M289.54 275.644h-2.113M287.433 275.644h-2.016M285.42 275.644h-2.112M283.3 275.644h-2.208M281.1 275.644h-2.112M278.98 275.644h-2.112M276.873 275.644h-2.208M274.66 275.644h-2.208M272.46 275.644h-2.112M270.34 275.644h-2.208M268.14 275.644h-2.304M265.833 275.644h-2.208M263.62 275.644h-2.208M261.42 275.644h-2.305M259.114 275.644h-2.207M256.9 275.644h-2.305M254.607 275.644h-2.303M252.3 275.644h-2.304M249.994 275.644h-2.306M247.687 275.644h-1.822M245.86 275.644h-1.727M244.14 275.644h-2.303M241.834 275.644h-1.824M240.007 275.644h-1.728M238.287 275.644h-1.824M236.46 275.644h-1.823M234.634 275.644h-2.304M232.328 275.644h-2.4M229.928 275.644h-2.496M227.434 275.644h-2.4M225.034 275.644h-2.4M222.634 275.644h-2.4M220.234 275.644h-2.495M217.741 275.644h-1.825M215.915 275.644h-2.495M213.421 275.644h-1.824M211.595 275.644h-2.4M209.195 275.644h-2.496M206.701 275.644h-2.497M204.208 275.644h-2.494M201.702 275.644h-2.496M199.208 275.644h-2.497M196.715 275.644h-2.495M194.222 275.644h-2.4M191.822 275.644h-1.92M189.902 275.644h-2.497M187.409 275.644h-2.495M184.902 275.644h-1.824M183.089 275.644l-1.92.096M181.169 275.738h-2.496M178.662 275.738h-1.824M176.849 275.738h-2.496M174.342 275.738h-2.496M171.849 275.738h-2.4M169.45 275.738l-1.825.096M167.622 275.83h-2.495M165.13 275.83h-1.825M163.303 275.83l-2.112.097M161.196 275.938h-1.536M159.663 275.938l-2.4.096M157.263 276.03l-1.824.097M155.436 276.124l-2.4.096M153.036 276.218l-2.304.096M150.73 276.31l-1.824.097M148.903 276.418l-2.305.192M146.61 276.604l-2.303.096M144.303 276.698l-1.152.096M143.143 276.79l-.576.097M142.57 276.898l-.576.094M141.996 276.99h-.288M141.703 276.99h-.096M141.61 276.99l-.192 1.73M141.423 278.71v.769M141.423 279.484l-.096.672M141.33 280.15l-.192.671M141.13 280.83l-.096.673M141.036 281.497l-.192.672M140.85 282.177l-.192.674M140.65 282.844v.672M140.65 283.51l-.096.48M140.556 283.99l-.096.289M140.463 284.284v.097M140.463 284.377l-.096 5.088M140.37 289.47h-.096M140.263 289.47h-.096M140.17 289.47v.193M140.17 289.657h-.096M140.076 289.657h-.095M139.983 289.657h-.096M139.89 289.657h-.192M139.69 289.657h-.192M139.503 289.657h-.48M139.023 289.657h-.576M138.45 289.657h-1.152M137.29 289.657h-.48M136.81 289.657h-1.056M135.757 289.657h-.576M135.183 289.657h-1.152M134.023 289.657h-1.152M132.877 289.657h-.576M132.3 289.657h-.96M131.34 289.657h-1.056M130.285 289.657h-.768M129.517 289.657h-1.056M128.46 289.657h-.479M127.98 289.657h-1.055M126.925 289.657h-.672M126.253 289.657h-.768M125.485 289.657h-.48M125.005 289.657h-.48M124.525 289.657h-.96M123.565 289.657h-.768M122.797 289.657h-.672M122.125 289.657h-.96M121.165 289.657h-.864M120.301 289.657h-.96M119.341 289.657h-.672M118.669 289.657h-.576M118.093 289.657h-.864M117.23 289.657h-.865M116.365 289.657h-.768M115.597 289.657h-.384M115.213 289.657h-.768M114.445 289.657h-.768M113.677 289.657h-.672M113.005 289.657h-.384M112.621 289.657h-.672M111.95 289.657h-.673M111.277 289.657h-.48M110.797 289.657h-.576M110.221 289.657h-.287M109.933 289.657h-.384M109.55 289.657h-.48M109.07 289.657h-.385M108.685 289.657h-.384M108.301 289.657h-.288M108.013 289.657h-.192M107.821 289.657h-.096M107.725 289.657h-.096M107.63 289.657h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="m147.09 266.711-.768.384M146.316 267.098l-.672.768M145.65 267.871l-.384 1.056M145.263 268.924v.768M145.263 269.698l.384 1.056M145.65 270.751l.672.768M146.316 271.511l.768.384M147.09 271.898h1.056M148.143 271.898l.768-.384M148.903 271.511l.672-.768M149.583 270.751l.384-1.056M149.97 269.698v-.768M149.97 268.924l-.384-1.056M149.583 267.871l-.672-.768M148.903 267.098l-.768-.384M148.143 266.711h-1.056M153.223 265.658l.768-.384M153.996 265.271l1.056-1.056M155.05 264.218v7.68M164.17 265.271l-.385-.672M163.783 264.605l-1.056-.384M162.73 264.218h-.769M161.97 264.218l-1.057.384M160.903 264.605l-.768 1.055M160.143 265.658l-.288 1.824M159.85 267.484v1.824M159.85 269.311l.287 1.44M160.143 270.751l.768.768M160.903 271.511l1.056.384M161.97 271.898h.383M162.343 271.898l1.056-.384M163.41 271.511l.767-.768M164.17 270.751l.383-1.056M164.556 269.698v-.384M164.556 269.311l-.384-1.056M164.17 268.258l-.769-.768M163.41 267.484l-1.057-.384M162.343 267.098h-.384M161.97 267.098l-1.057.384M160.903 267.484l-.768.768M160.143 268.258l-.288 1.056M241.74 266.338l-.671.384M241.06 266.711l-.767.672M240.3 267.391l-.287 1.056M240.007 268.444v.768M240.007 269.218l.288 1.056M240.3 270.271l.769.768M241.06 271.031l.673.384M241.74 271.418h1.153M242.887 271.418l.672-.384M243.567 271.031l.768-.768M244.327 270.271l.384-1.056M244.714 269.218v-.768M244.714 268.444l-.384-1.056M244.327 267.391l-.768-.672M243.567 266.711l-.672-.384M242.887 266.338h-1.152M247.98 265.178l.768-.288M248.74 264.898l1.056-1.152M249.807 263.738v7.68M258.927 264.898l-.384-.768M258.54 264.125l-1.056-.384M257.487 263.738h-.768M256.714 263.738l-1.056.384M255.66 264.125l-.768 1.055M254.887 265.178l-.384 1.824M254.5 267.004v1.824M254.5 268.831l.384 1.44M254.887 270.271l.768.768M255.66 271.031l1.056.384M256.714 271.418h.384M257.1 271.418l1.056-.384M258.154 271.031l.768-.768M258.927 270.271l.288-1.056M259.207 269.218v-.384M259.207 268.831l-.288-1.056M258.927 267.778l-.768-.768M258.154 267.004l-1.056-.288M257.1 266.711h-.384M256.714 266.711l-1.056.288M255.66 267.004l-.768.768M254.887 267.778l-.384 1.054M336.485 266.338l-.672.384M335.818 266.711l-.768.672M335.045 267.391l-.384 1.056M334.658 268.444v.768M334.658 269.218l.384 1.056M335.045 270.271l.768.768M335.818 271.031l.672.384M336.485 271.418h1.152M337.645 271.418l.672-.384M338.312 271.031l.768-.768M339.085 270.271l.288-1.056M339.365 269.218v-.768M339.365 268.444l-.288-1.056M339.085 267.391l-.768-.672M338.312 266.711l-.672-.384M337.645 266.338h-1.152M342.725 265.178l.672-.288M343.405 264.898l1.152-1.152M344.551 263.738v7.68M353.578 264.898l-.288-.768M353.285 264.125l-1.152-.384M352.138 263.738h-.672M351.458 263.738l-1.152.384M350.311 264.125l-.672 1.055M349.645 265.178l-.384 1.824M349.258 267.004v1.824M349.258 268.831l.384 1.44M349.645 270.271l.672.768M350.311 271.031l1.152.384M351.458 271.418h.288M351.751 271.418l1.152-.384M352.898 271.031l.672-.768M353.578 270.271l.384-1.056M353.964 269.218v-.384M353.964 268.831l-.384-1.056M353.578 267.778l-.672-.768M352.898 267.004l-1.152-.288M351.751 266.711h-.288M351.458 266.711l-1.152.288M350.311 267.004l-.672.768M349.645 267.778l-.384 1.054M431.243 266.338l-.768.384M430.47 266.711l-.673.672M429.803 267.391l-.384 1.056M429.416 268.444v.768M429.416 269.218l.384 1.056M429.803 270.271l.672.768M430.47 271.031l.767.384M431.243 271.418h1.056M432.296 271.418l.768-.384M433.056 271.031l.672-.768M433.736 270.271l.384-1.056M434.122 269.218v-.768M434.122 268.444l-.384-1.056M433.736 267.391l-.672-.672M433.056 266.711l-.768-.384M432.296 266.338h-1.056M437.376 265.178l.768-.288M438.149 264.898l1.056-1.152M439.202 263.738v7.68M448.322 264.898l-.384-.768M447.935 264.125l-1.056-.384M446.882 263.738h-.768M446.122 263.738l-1.056.384M445.056 264.125l-.768 1.055M444.296 265.178l-.288 1.824M444.002 267.004v1.824M444.002 268.831l.288 1.44M444.296 270.271l.768.768M445.056 271.031l1.056.384M446.122 271.418h.384M446.496 271.418l1.055-.384M447.562 271.031l.768-.768M448.322 270.271l.384-1.056M448.709 269.218v-.384M448.709 268.831l-.384-1.056M448.322 267.778l-.768-.768M447.562 267.004l-1.056-.288M446.496 266.711h-.384M446.122 266.711l-1.056.288M445.056 267.004l-.768.768M444.296 267.778l-.288 1.054"/></g></g><g stroke-width="36"><path stroke="#2e8b57" stroke-width="4.79988" d="M486.441 363.002H140.183"/><path stroke="#87cefa" stroke-width="4.79988" d="M140.17 363.002h-32.64"/></g><g stroke="#fff"><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M640.037 388.628h317.366M957.403 388.628V76.063M957.403 76.063H640.037M640.037 76.063v312.565M661.157 388.628V384.5M703.49 388.628v-8.16M745.821 388.628V384.5M788.154 388.628v-8.16M830.486 388.628V384.5M872.832 388.628v-8.16M915.07 388.628V384.5M957.403 388.628v-8.16M661.157 80.196v-4.128M703.49 84.222v-8.16M745.821 80.196v-4.128M788.154 84.222v-8.16M830.486 80.196v-4.128M872.832 84.222v-8.16M915.07 80.196v-4.128M957.403 84.222v-8.16M694.756 398.428l-1.632.576M693.116 399.001l-1.056 1.632M692.063 400.628l-.576 2.784M691.49 403.414v1.632M691.49 405.054l.575 2.688M692.063 407.734l1.056 1.632M693.116 409.374l1.632.576M694.756 409.948h1.056M695.81 409.948l1.631-.576M697.436 409.374l1.152-1.632M698.596 407.734l.576-2.688M699.17 405.054v-1.632M699.17 403.414l-.577-2.784M698.596 400.628l-1.152-1.632M697.436 399.001l-1.632-.576M695.81 398.428h-1.057M703.49 408.788l-.577.576M702.916 409.374l.576.576M703.49 409.948l.575-.576M704.062 409.374l-.576-.576M714.915 400.054l-.48-1.056M714.435 399.001l-1.631-.576M712.796 398.428h-1.152M711.649 398.428l-1.632.576M710.009 399.001l-1.056 1.632M708.956 400.628l-.576 2.784M708.382 403.414v2.688M708.382 406.108l.576 2.208M708.956 408.308l1.056 1.056M710.009 409.374l1.632.576M711.649 409.948h.576M712.222 409.948l1.632-.576M713.849 409.374l1.056-1.056M714.915 408.308l.576-1.632M715.489 406.681v-.576M715.489 406.108l-.576-1.632M714.915 404.468l-1.056-1.056M713.849 403.414l-1.632-.576M712.222 402.841h-.576M711.649 402.841l-1.632.576M710.009 403.414l-1.056 1.056M708.956 404.468l-.576 1.632M779.42 398.428l-1.631.576M777.794 399.001l-1.152 1.632M776.634 400.628l-.48 2.784M776.154 403.414v1.632M776.154 405.054l.48 2.688M776.634 407.734l1.152 1.632M777.794 409.374l1.632.576M779.42 409.948h1.056M780.474 409.948l1.632-.576M782.114 409.374l1.152-1.632M783.26 407.734l.48-2.688M783.74 405.054v-1.632M783.74 403.414l-.48-2.784M783.26 400.628l-1.152-1.632M782.114 399.001l-1.632-.576M780.474 398.428h-1.056M788.154 408.788l-.576.576M787.58 409.374l.576.576M788.154 409.948l.48-.576M788.634 409.374l-.48-.576M797.953 398.428l-5.471 7.68M792.474 406.108h8.255M797.953 398.428v11.52M864.085 398.428l-1.632.576M862.458 399.001l-1.152 1.632M861.312 400.628l-.576 2.784M860.725 403.414v1.632M860.725 405.054l.576 2.688M861.312 407.734l1.152 1.632M862.458 409.374l1.632.576M864.085 409.948h1.056M865.152 409.948l1.632-.576M866.778 409.374l1.056-1.632M867.832 407.734l.576-2.688M868.405 405.054v-1.632M868.405 403.414l-.576-2.784M867.832 400.628l-1.056-1.632M866.778 399.001l-1.632-.576M865.152 398.428h-1.056M872.832 408.788l-.576.576M872.245 409.374l.576.576M872.832 409.948l.48-.576M873.312 409.374l-.48-.576M877.725 401.214v-.576M877.725 400.628l.48-1.056M878.205 399.574l.576-.576M878.778 399.001l1.056-.576M879.831 398.428h2.208M882.045 398.428l1.152.576M883.191 399.001l.48.576M883.671 399.574l.576 1.056M884.245 400.628v1.056M884.245 401.694l-.576 1.152M883.671 402.841l-1.056 1.632M882.618 404.468l-5.472 5.472M877.151 409.948h7.68M956.923 398.428l-1.632.576M955.283 399.001l-1.152 1.632M954.136 400.628l-.48 2.784M953.656 403.414v1.632M953.656 405.054l.48 2.688M954.136 407.734l1.152 1.632M955.283 409.374l1.632.576M956.923 409.948h1.056M957.976 409.948l1.632-.576M959.603 409.374l1.056-1.632M960.67 407.734l.575-2.688M961.243 405.054v-1.632M961.243 403.414l-.576-2.784M960.67 400.628l-1.057-1.632M959.603 399.001l-1.632-.576M957.976 398.428h-1.056M640.037 388.628h8.16M640.037 367.802h4.032M640.037 346.976h4.032M640.037 326.136h4.032M640.037 305.31h4.032M640.037 284.47h8.16M640.037 263.645h4.032M640.037 242.818h4.032M640.037 221.886h4.032M640.037 201.06h4.032M640.037 180.22h8.16M640.037 159.394h4.032M640.037 138.554h4.032M640.037 117.728h4.032M640.037 96.902h4.032M640.037 76.063h8.16M949.243 388.628h8.16M953.363 367.802h4.032M953.363 346.976h4.032M953.363 326.136h4.032M953.363 305.31h4.032M949.243 284.47h8.16M953.363 263.645h4.032M953.363 242.818h4.032M953.363 221.886h4.032M953.363 201.06h4.032M949.243 180.22h8.16M953.363 159.394h4.032M953.363 138.554h4.032M953.363 117.728h4.032M953.363 96.902h4.032M949.243 76.063h8.16M621.598 382.495l-1.632.576M619.971 383.068l-1.152 1.632M618.811 384.695l-.48 2.688M618.331 387.388v1.632M618.331 389.015l.48 2.784M618.811 391.801l1.152 1.632M619.971 393.428l1.632.48M621.598 393.908h1.056M622.651 393.908l1.632-.48M624.291 393.428l1.152-1.632M625.438 391.801l.48-2.784M625.918 389.015v-1.632M625.918 387.388l-.48-2.688M625.438 384.695l-1.152-1.632M624.291 383.068l-1.632-.576M622.651 382.495h-1.056M594.238 278.337l-1.631.48M592.612 278.817l-1.056 1.632M591.559 280.444l-.576 2.784M590.972 283.23v1.633M590.972 284.857l.576 2.688M591.559 287.55l1.056 1.633M592.612 289.177l1.632.576M594.238 289.75h1.152M595.398 289.75l1.632-.575M597.025 289.177l1.056-1.632M598.078 287.55l.576-2.687M598.652 284.857v-1.632M598.652 283.23l-.576-2.783M598.078 280.444l-1.056-1.632M597.025 278.817l-1.632-.48M595.398 278.337h-1.152M602.972 288.697l-.48.48M602.492 289.177l.48.576M602.972 289.75l.576-.575M603.558 289.177l-.576-.48M610.651 278.337l-1.632.48M609.025 278.817l-1.056 1.632M607.971 280.444l-.576 2.784M607.398 283.23v1.633M607.398 284.857l.576 2.688M607.971 287.55l1.056 1.633M609.025 289.177l1.632.576M610.651 289.75h1.056M611.718 289.75l1.632-.575M613.345 289.177l1.152-1.632M614.491 287.55l.576-2.687M615.078 284.857v-1.632M615.078 283.23l-.576-2.783M614.491 280.444l-1.152-1.632M613.345 278.817l-1.632-.48M611.718 278.337h-1.056M624.864 278.337h-5.471M619.398 278.337l-.576 4.896M618.811 283.23l.576-.575M619.398 282.657l1.632-.48M621.024 282.177h1.632M622.651 282.177l1.632.48M624.291 282.657l1.152 1.152M625.438 283.804l.48 1.632M625.918 285.43v1.057M625.918 286.497l-.48 1.632M625.438 288.124l-1.152 1.056M624.291 289.177l-1.632.576M622.651 289.75h-1.632M621.024 289.75l-1.631-.575M619.398 289.177l-.576-.48M618.811 288.697l-.48-1.152M605.185 174.073l-1.632.576M603.558 174.66l-1.056 1.632M602.492 176.287l-.576 2.784M601.918 179.073v1.632M601.918 180.7l.576 2.688M602.492 183.393l1.056 1.632M603.558 185.02l1.632.576M605.185 185.593h1.152M606.332 185.593l1.631-.576M607.971 185.02l1.056-1.632M609.025 183.393l.576-2.688M609.598 180.7v-1.632M609.598 179.073l-.576-2.784M609.025 176.287l-1.056-1.632M607.971 174.66l-1.631-.576M606.332 174.073h-1.152M613.918 184.447l-.576.575M613.345 185.02l.576.576M613.918 185.593l.576-.576M614.491 185.02l-.576-.576M619.971 176.287l1.056-.576M621.024 175.713l1.632-1.632M622.651 174.073v11.52M594.238 69.916l-1.631.576M592.612 70.503l-1.056 1.632M591.559 72.13l-.576 2.687M590.972 74.823v1.632M590.972 76.45l.576 2.783M591.559 79.236l1.056 1.632M592.612 80.862l1.632.48M594.238 81.342h1.152M595.398 81.342l1.632-.48M597.025 80.862l1.056-1.632M598.078 79.236l.576-2.784M598.652 76.45v-1.633M598.652 74.823l-.576-2.688M598.078 72.13l-1.056-1.633M597.025 70.503l-1.632-.576M595.398 69.916h-1.152M602.972 80.29l-.48.575M602.492 80.862l.48.48M602.972 81.342l.576-.48M603.558 80.862l-.576-.576M609.025 72.13l1.056-.577M610.078 71.556l1.632-1.632M611.718 69.916V81.34M624.864 69.916h-5.471M619.398 69.916l-.576 4.896M618.811 74.823l.576-.48M619.398 74.343l1.632-.576M621.024 73.756h1.632M622.651 73.756l1.632.576M624.291 74.343l1.152 1.056M625.438 75.396l.48 1.632M625.918 77.023v1.056M625.918 78.076l-.48 1.632M625.438 79.716l-1.152 1.152M624.291 80.862l-1.632.48M622.651 81.342h-1.632M621.024 81.342l-1.631-.48M619.398 80.862l-.576-.576M618.811 80.29l-.48-1.057"/></g><g stroke-width="14.4"><path stroke-width="1.919952" d="m790.274 423.094 9.503 14.304M799.767 423.094l-9.504 14.304M809.566 439.987l-1.056-1.056M808.513 438.933l-1.056-.48M807.446 438.453h-1.535M805.913 438.453l-.96.48M804.953 438.933l-1.056 1.056M803.9 439.987l-.48 1.536M803.42 441.533v1.056M803.42 442.587l.48 1.44M803.9 444.027l1.056 1.056M804.953 445.08l.96.48M805.913 445.56h1.536M807.446 445.56l1.056-.48M808.513 445.08l1.056-1.056M556.893 363.389h14.4M556.893 363.389l14.4-5.472M556.893 352.442l14.4 5.472M556.893 352.442h14.4M561.693 339.483h9.6M563.72 339.483l-1.345 1.344M562.373 340.83l-.672 1.343M561.693 342.176v2.112M561.693 344.283l.672 1.343M562.373 345.63l1.344 1.343M563.72 346.976l2.111.672M565.826 347.642h1.344M567.172 347.642l2.016-.672M569.186 346.976l1.344-1.344M570.532 345.63l.768-1.345M571.292 344.283v-2.112M571.292 342.176l-.768-1.344M570.532 340.83l-1.344-1.345M563.72 327.19l-1.345.672M562.373 327.87l-.672 2.016M561.693 329.883v2.112M561.693 331.99l.672 2.015M562.373 334.016l1.344.672M563.72 334.683l1.44-.672M565.16 334.016l.671-1.344M565.826 332.67l.672-3.456M566.493 329.216l.671-1.344M567.172 327.87l1.344-.672M568.52 327.19h.671M569.186 327.19l1.344.672M570.532 327.87l.768 2.016M571.292 329.883v2.112M571.292 331.99l-.768 2.015M570.532 334.016l-1.344.672M563.72 315.577l-1.345.672M562.373 316.257l-.672 2.111M561.693 318.363v2.016M561.693 320.376l.672 2.016M562.373 322.39l1.344.672M563.72 323.07l1.44-.672M565.16 322.39l.671-1.344M565.826 321.056l.672-3.455M566.493 317.59l.671-1.344M567.172 316.257l1.344-.672M568.52 315.577h.671M569.186 315.577l1.344.672M570.532 316.257l.768 2.111M571.292 318.363v2.016M571.292 320.376l-.768 2.016M570.532 322.39l-1.344.672M561.693 297.15l.672 1.344M562.373 298.497l1.344 1.44M563.72 299.937l2.111.672M565.826 300.604h1.344M567.172 300.604l2.016-.672M569.186 299.937l1.344-1.44M570.532 298.497l.768-1.344M571.292 297.15v-2.016M571.292 295.137l-.768-1.344M570.532 293.79l-1.344-1.44M569.186 292.35l-2.016-.672M567.172 291.67h-1.343M565.826 291.67l-2.112.672M563.72 292.35l-1.345 1.44M562.373 293.79l-.672 1.344M561.693 295.137v2.016M556.893 282.844v1.344M556.893 284.19l.672 1.345M557.573 285.537l2.112.768M559.68 286.297h11.615M561.693 288.31v-4.8M560.36 258.271l-1.345.672M559.013 258.938l-1.44 1.344M557.573 260.285l-.672 1.44M556.893 261.725v2.688M556.893 264.418l.672 1.344M557.573 265.751l1.44 1.344M559.013 267.098l1.344.768M560.36 267.871l2.015.672M562.373 268.538h3.456M565.826 268.538l2.016-.672M567.84 267.871l1.343-.768M569.186 267.098l1.344-1.344M570.532 265.751l.768-1.344M571.292 264.418v-2.688M571.292 261.725l-.768-1.44M570.532 260.285l-1.344-1.344M569.186 258.938l-1.344-.672M561.693 250.778l.672 1.344M562.373 252.125l1.344 1.344M563.72 253.471l2.111.672M565.826 254.138h1.344M567.172 254.138l2.016-.672M569.186 253.471l1.344-1.344M570.532 252.125l.768-1.344M571.292 250.778v-2.016M571.292 248.765l-.768-1.44M570.532 247.325l-1.344-1.344M569.186 245.978l-2.016-.672M567.172 245.312h-1.343M565.826 245.312l-2.112.672M563.72 245.978l-1.345 1.344M562.373 247.325l-.672 1.44M561.693 248.765v2.016M561.693 240.512h9.6M564.386 240.512l-2.016-2.016M562.373 238.498l-.672-1.343M561.693 237.152v-2.112M561.693 235.032l.672-1.344M562.373 233.699l2.016-.672M564.386 233.019h6.912M561.693 228.899l9.6-4.032M561.693 220.739l9.6 4.128M565.826 217.379v-8.256M565.826 209.113h-1.44M564.386 209.113l-1.344.672M563.04 209.793l-.673.768M562.373 210.553l-.672 1.343M561.693 211.9v2.015M561.693 213.912l.672 1.344M562.373 215.26l1.344 1.439M563.72 216.699l2.111.672M565.826 217.379h1.344M567.172 217.379l2.016-.672M569.186 216.699l1.344-1.44M570.532 215.26l.768-1.345M571.292 213.912v-2.016M571.292 211.9l-.768-1.345M570.532 210.553l-1.344-1.44M563.72 196.833l-1.345 1.44M562.373 198.273l-.672 1.344M561.693 199.62v2.015M561.693 201.633l.672 1.344M562.373 202.98l1.344 1.44M563.72 204.42l2.111.671M565.826 205.086h1.344M567.172 205.086l2.016-.672M569.186 204.42l1.344-1.44M570.532 202.98l.768-1.345M571.292 201.633v-2.016M571.292 199.62l-.768-1.345M570.532 198.273l-1.344-1.44M556.893 191.46h11.615M568.52 191.46l2.015-.768M570.532 190.686l.768-1.344M571.292 189.34v-1.344M561.693 193.473v-4.8M556.893 184.54l.672-.672M557.573 183.873l-.672-.672M556.893 183.193l-.672.672M556.226 183.873l.672.672M561.693 183.873h9.6M561.693 179.833l9.6-4.128M561.693 171.58l9.6 4.128M565.826 168.22v-8.16M565.826 160.06h-1.44M564.386 160.06l-1.344.672M563.04 160.74l-.673.672M562.373 161.407l-.672 1.344M561.693 162.754v2.016M561.693 164.767l.672 1.44M562.373 166.207l1.344 1.344M563.72 167.554l2.111.672M565.826 168.22h1.344M567.172 168.22l2.016-.672M569.186 167.554l1.344-1.344M570.532 166.207l.768-1.44M571.292 164.767v-2.016M571.292 162.754l-.768-1.344M570.532 161.407l-1.344-1.344M560.36 134.821l-1.345.672M559.013 135.488l-1.44 1.344M557.573 136.834l-.672 1.344M556.893 138.181v2.784M556.893 140.954l.672 1.344M557.573 142.3l1.44 1.345M559.013 143.648l1.344.672M560.36 144.314l2.015.672M562.373 144.994h3.456M565.826 144.994l2.016-.672M567.84 144.314l1.343-.672M569.186 143.648l1.344-1.344M570.532 142.3l.768-1.343M571.292 140.954v-2.784M571.292 138.181l-.768-1.344M570.532 136.834l-1.344-1.344M569.186 135.488l-1.344-.672M561.693 127.235l.672 1.44M562.373 128.675l1.344 1.344M563.72 130.021l2.111.672M565.826 130.688h1.344M567.172 130.688l2.016-.672M569.186 130.021l1.344-1.344M570.532 128.675l.768-1.44M571.292 127.235v-2.016M571.292 125.221l-.768-1.344M570.532 123.875l-1.344-1.344M569.186 122.528l-2.016-.672M567.172 121.861h-1.343M565.826 121.861l-2.112.672M563.72 122.528l-1.345 1.344M562.373 123.875l-.672 1.344M561.693 125.221v2.016M561.693 117.062h9.6M565.826 117.062l-2.112-.672M563.72 116.382l-1.345-1.44M562.373 114.942l-.672-1.344M561.693 113.595v-2.016M565.826 108.902v-8.256M565.826 100.635h-1.44M564.386 100.635l-1.344.672M563.04 101.315l-.673.672M562.373 101.982l-.672 1.44M561.693 103.422v2.016M561.693 105.435l.672 1.344M562.373 106.782l1.344 1.344M563.72 108.128l2.111.768M565.826 108.902h1.344M567.172 108.902l2.016-.768M569.186 108.128l1.344-1.344M570.532 106.782l.768-1.344M571.292 105.435v-2.016M571.292 103.422l-.768-1.44M570.532 101.982l-1.344-1.344"/></g><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M665.957 42.463v12.48M665.957 42.463h7.68M665.957 48.423h4.704M665.957 54.943h7.68M676.036 46.69l3.552 8.256M683.13 46.69l-3.552 8.256M688.996 46.69l-1.152.576M687.836 47.263l-1.152 1.152M686.69 48.423l-.576 1.728M686.116 50.143v1.248M686.116 51.397l.576 1.727M686.69 53.116l1.151 1.248M687.836 54.37l1.152.576M688.996 54.943h1.824M690.81 54.943l1.151-.576M691.97 54.37l1.151-1.248M693.116 53.116l.672-1.727M693.796 51.397v-1.248M693.796 50.143l-.672-1.728M693.116 48.423l-1.152-1.152M691.97 47.263l-1.153-.576M690.81 46.69h-1.825M697.916 42.463v12.48M702.622 46.69v5.856M702.622 52.543l.576 1.824M703.196 54.37l1.152.576M704.356 54.943h1.824M706.169 54.943l1.152-.576M707.329 54.37l1.824-1.824M709.156 46.69v8.256M714.435 42.463v10.08M714.435 52.543l.576 1.824M715.009 54.37l1.248.576M716.249 54.943h1.152M712.702 46.69h4.128M720.382 42.463l.576.672M720.955 43.143l.576-.672M721.529 42.463l-.576-.576M720.955 41.89l-.576.576M720.955 46.69v8.256M728.062 46.69l-1.152.576M726.915 47.263l-1.248 1.152M725.662 48.423l-.576 1.728M725.089 50.143v1.248M725.089 51.397l.576 1.727M725.662 53.116l1.248 1.248M726.915 54.37l1.152.576M728.062 54.943h1.728M729.795 54.943l1.248-.576M731.035 54.37l1.152-1.248M732.195 53.116l.576-1.727M732.768 51.397v-1.248M732.768 50.143l-.576-1.728M732.195 48.423l-1.152-1.152M731.035 47.263l-1.248-.576M729.795 46.69h-1.728M736.888 46.69v8.256M736.888 48.997l1.824-1.728M738.715 47.263l1.152-.576M739.875 46.69h1.824M741.688 46.69l1.152.576M742.848 47.263l.576 1.728M743.421 48.997v5.951M760.034 46.69l-1.248.576M758.781 47.263l-1.152 1.152M757.634 48.423l-.576 1.728M757.048 50.143v1.248M757.048 51.397l.576 1.727M757.634 53.116l1.152 1.248M758.781 54.37l1.248.576M760.034 54.943h1.728M761.754 54.943l1.152-.576M762.914 54.37l1.248-1.248M764.154 53.116l.576-1.727M764.728 51.397v-1.248M764.728 50.143l-.576-1.728M764.154 48.423l-1.248-1.152M762.914 47.263l-1.152-.576M761.754 46.69h-1.728M772.407 42.463h-1.152M771.26 42.463l-1.247.672M770.007 43.143l-.576 1.728M769.434 44.863v10.08M767.714 46.69h4.128M793.727 45.437l-.672-1.152M793.047 44.29l-1.152-1.152M791.9 43.143l-1.152-.672M790.754 42.463h-2.4M788.354 42.463l-1.152.672M787.194 43.143l-1.152 1.152M786.047 44.29l-.672 1.152M785.367 45.437l-.576 1.824M784.794 47.263v2.88M784.794 50.143l.576 1.824M785.367 51.97l.672 1.152M786.047 53.116l1.152 1.248M787.194 54.37l1.152.576M788.354 54.943h2.4M790.754 54.943l1.152-.576M791.9 54.37l1.152-1.248M793.047 53.116l.672-1.152M800.153 46.69l-1.152.576M799.007 47.263l-1.152 1.152M797.847 48.423l-.576 1.728M797.273 50.143v1.248M797.273 51.397l.576 1.727M797.847 53.116l1.152 1.248M799.007 54.37l1.152.576M800.153 54.943h1.824M801.98 54.943l1.152-.576M803.127 54.37l1.248-1.248M804.38 53.116l.576-1.727M804.953 51.397v-1.248M804.953 50.143l-.576-1.728M804.38 48.423l-1.248-1.152M803.127 47.263l-1.152-.576M801.98 46.69h-1.824M809.086 46.69v8.256M809.086 48.997l1.728-1.728M810.806 47.263l1.248-.576M812.06 46.69h1.728M813.793 46.69l1.152.576M814.94 47.263l.672 1.728M815.606 48.997v5.951M819.166 46.69l3.456 8.256M826.166 46.69l-3.552 8.256M847.485 45.437l-.576-1.152M846.912 44.29l-1.152-1.152M845.752 43.143l-1.248-.672M844.512 42.463h-2.304M842.206 42.463l-1.248.672M840.952 43.143l-1.152 1.152M839.806 44.29l-.576 1.152M839.232 45.437l-.576 1.824M838.646 47.263v2.88M838.646 50.143l.576 1.824M839.232 51.97l.576 1.152M839.806 53.116l1.152 1.248M840.952 54.37l1.248.576M842.206 54.943h2.304M844.512 54.943l1.248-.576M845.752 54.37l1.152-1.248M846.912 53.116l.576-1.152M854.005 46.69l-1.152.576M852.859 47.263l-1.248 1.152M851.605 48.423l-.576 1.728M851.032 50.143v1.248M851.032 51.397l.576 1.727M851.605 53.116l1.248 1.248M852.859 54.37l1.152.576M854.005 54.943h1.728M855.739 54.943l1.248-.576M856.992 54.37l1.152-1.248M858.139 53.116l.576-1.727M858.712 51.397v-1.248M858.712 50.143l-.576-1.728M858.139 48.423l-1.152-1.152M856.992 47.263l-1.248-.576M855.739 46.69h-1.728M862.845 46.69v8.256M862.845 50.143l.672-1.728M863.512 48.423l1.152-1.152M864.672 47.263l1.152-.576M865.818 46.69h1.824M869.952 50.143h7.103M877.045 50.143v-1.152M877.045 48.997l-.576-1.152M876.471 47.837l-.576-.576M875.898 47.263l-1.152-.576M874.751 46.69h-1.823M872.925 46.69l-1.152.576M871.765 47.263l-1.248 1.152M870.525 48.423l-.576 1.728M869.952 50.143v1.248M869.952 51.397l.576 1.727M870.525 53.116l1.248 1.248M871.765 54.37l1.152.576M872.925 54.943h1.824M874.751 54.943l1.152-.576M875.898 54.37l1.152-1.248M890.684 42.463v12.48M890.684 42.463l4.704 12.48M900.084 42.463l-4.704 12.48M900.084 42.463v12.48M911.324 46.69v8.256M911.324 48.423l-1.152-1.152M910.164 47.263l-1.152-.576M909.017 46.69h-1.824M907.19 46.69l-1.151.576M906.044 47.263l-1.152 1.152M904.884 48.423l-.576 1.728M904.31 50.143v1.248M904.31 51.397l.577 1.727M904.884 53.116l1.152 1.248M906.044 54.37l1.152.576M907.19 54.943h1.825M909.017 54.943l1.152-.576M910.164 54.37l1.152-1.248M921.977 48.423l-.576-1.152M921.404 47.263l-1.728-.576M919.67 46.69h-1.824M917.844 46.69l-1.728.576M916.124 47.263l-.576 1.152M915.55 48.423l.576 1.152M916.124 49.57l1.152.576M917.27 50.143l2.976.672M920.244 50.823l1.152.576M921.404 51.397l.576 1.151M921.977 52.543v.576M921.977 53.116l-.576 1.248M921.404 54.37l-1.728.576M919.67 54.943h-1.824M917.844 54.943l-1.728-.576M916.124 54.37l-.576-1.248M932.057 48.423l-.576-1.152M931.483 47.263l-1.824-.576M929.657 46.69h-1.728M927.923 46.69l-1.823.576M926.11 47.263l-.576 1.152M925.524 48.423l.576 1.152M926.11 49.57l1.248.576M927.35 50.143l2.976.672M930.323 50.823l1.152.576M931.483 51.397l.576 1.151M932.057 52.543v.576M932.057 53.116l-.576 1.248M931.483 54.37l-1.824.576M929.657 54.943h-1.728M927.923 54.943l-1.823-.576M926.11 54.37l-.576-1.248"/></g></g><g stroke="#daa520" stroke-width="28.8"><path stroke-width="3.839904" d="m662.69 131.834.384 33.12M663.077 164.954l.384 16.8M663.45 181.753l.576 6.048M664.037 187.806l.576-.384M664.61 187.42l.768-1.728M665.37 185.7l.96-2.208M666.33 183.487l.864-3.84M667.197 179.647l.864-2.016M668.063 177.633l.864-2.304M668.93 175.327l.96-1.152M669.89 174.18l.864-1.344M670.757 172.833l.864-1.152M671.61 171.673l.96-1.055M672.57 170.62l.864-.96M673.436 169.66l.864-.768M674.303 168.9l.96-.864M675.263 168.034l.864-.864M676.13 167.167l.96-.768M677.09 166.394l.864-.864M677.956 165.54l.864-.864M678.81 164.674l.96-.768M679.77 163.9l.864-.864M680.636 163.034l.96-.384M681.596 162.66l.863-.48M682.463 162.18l.864-.576M683.33 161.594l.96-1.632M684.29 159.967l.862-.768M685.156 159.194l.96-.288M686.116 158.914l.96-.384M687.076 158.527l.864-.48M687.93 158.047l.96-.576M688.89 157.474l.863-1.632M689.756 155.834l.96-.288M690.716 155.554l.96-.48M691.676 155.074l.864-.48M692.543 154.594l.864-.479M693.41 154.114l1.057-.864M694.463 153.247l.864-1.344M695.33 151.9l.96-.19M696.29 151.714l.863-.864M697.156 150.847l.959-.481M698.116 150.367l.96-.478M699.076 149.887l.864-.672M699.93 149.22l.96-.574M700.89 148.634l.96-1.44M701.85 147.194l.96-.288M702.81 146.914l.863-.481M703.676 146.434l.96-.479M704.636 145.954l.864-.672M705.502 145.274l1.056-.766M706.556 144.514l.96-.673M707.516 143.834l.96-.576M708.476 143.26l1.056-.575M709.529 142.688l.96-.672M710.489 142.02l.96-.191M711.449 141.82l1.056-.191M712.516 141.634l.96-.192M713.475 141.434l.096-.288M713.569 141.154l.96-.096M714.529 141.06l.96-3.743M715.489 137.314l1.056-.768M716.542 136.541l.96-.576M717.502 135.968l1.056-.384M718.555 135.581l1.056-.096M719.609 135.488l.96-.096M720.569 135.394l1.056-1.344M721.635 134.048l1.056-1.056M722.689 132.994l.96-.384M723.649 132.608l1.056-.096M724.702 132.514l1.056-.48M725.755 132.034l1.056-.096M726.808 131.941l1.056-.096M727.875 131.834h-.288M727.582 131.834l1.056-2.591M728.635 129.248l1.056-1.344M729.688 127.901l1.056-.384M730.755 127.515l1.056-.48M731.808 127.035l1.056-.576M732.862 126.461l1.056-.384M733.915 126.075l1.056-.576M734.968 125.501l1.056-.288M736.035 125.221l1.056-.672M737.088 124.541l1.056-.192M738.142 124.355l1.056-.48M739.195 123.875l1.056-.48M740.248 123.395l1.152-.48M741.408 122.915l1.056-.288M742.461 122.621l.192-.48M742.648 122.141h1.056M743.715 122.141l1.056-1.824M744.768 120.315l1.056-2.016M745.821 118.301l1.152-.671M746.968 117.635l1.057-.384M748.035 117.248h1.15M749.181 117.248l1.055-.096M750.235 117.155h1.152M751.395 117.155h1.057M752.448 117.155h1.15M753.594 117.155l1.152-.096M754.754 117.062h1.152M755.901 117.062l1.152-.192M757.048 116.862l1.153-.192M758.208 116.675l1.152-.096M759.354 116.582l1.152-.096M760.514 116.475l.96-.672M761.474 115.808l1.152-.192M762.62 115.622h1.153M763.78 115.622l1.152-.096M764.928 115.515h1.15M766.074 115.515l1.25-.192M767.327 115.328l1.151-.096M768.474 115.235l1.152-.097M769.634 115.128l1.248-.19M770.874 114.942l-1.44-1.536M769.434 113.408h1.056M770.5 113.408l1.153-1.536M771.647 111.875l1.248-.864M772.9 111.008l1.153-.384M774.047 110.622l1.248-.288M775.3 110.328h1.153M776.447 110.328l1.248-.094M777.7 110.235h1.249M778.94 110.235h1.152M780.1 110.235h1.248M781.34 110.235h1.248M782.594 110.235h1.248M783.834 110.235h1.248M785.087 110.235l1.248-.097M786.34 110.142h1.248M787.58 110.142l1.248-.096M788.834 110.048h1.248M790.074 110.048h1.248M791.327 110.048h1.248M792.58 110.048h1.344M793.913 110.048h1.248M795.167 110.048h1.248M796.42 110.048h1.344M797.753 110.048h1.248M799.007 110.048h1.344M800.353 110.048h1.248M801.593 110.048h1.344M802.94 110.048l1.344.096M804.287 110.142h1.248M805.54 110.142h1.344M806.873 110.142h1.344M808.22 110.142h1.344M809.566 110.142l1.344.192M810.913 110.328l1.344.384M812.26 110.715l1.344.384M813.593 111.102l1.344.384M814.94 111.488l1.44.48M816.38 111.968l1.344.48M817.726 112.448l1.344.384M819.073 112.835l1.44.48M820.513 113.315l1.344.48M821.86 113.795l1.44.48M823.3 114.275l1.44.48M824.74 114.755l1.343.48M826.073 115.235l1.44.48M827.513 115.715l1.44.48M828.953 116.195l1.44.576M830.393 116.768l1.44.48M831.833 117.248l1.44.48M833.273 117.728l1.44.576M834.712 118.301l1.536.576M836.26 118.875l1.44.48M837.7 119.355l1.535.576M839.232 119.928l1.44.576M840.672 120.515l1.536.576M842.206 121.088l1.44.672M843.646 121.755l1.536.576M845.179 122.328l1.536.576M846.712 122.915l1.536.672M848.259 123.581l1.536.576M849.792 124.155l1.536.672M851.325 124.835l1.536.672M852.859 125.501l1.536.672M854.392 126.168l1.536.672M855.939 126.848l1.632.672M857.565 127.515l1.536.672M859.099 128.195l1.631.672M860.738 128.861l1.632.768M862.365 129.635l1.536.768M863.898 130.395l1.632.672M865.538 131.075l1.632.767M867.165 131.834l1.632.77M868.792 132.608l1.632.768M870.432 133.368l1.728.77M872.152 134.141l1.631.864M873.791 135.008l1.727.864M875.511 135.874l1.634.96M877.151 136.834l1.728.959M878.885 137.781l1.728 1.057M880.605 138.848l1.632 1.056M882.245 139.901l1.728 1.057M883.965 140.954l1.824 1.056M885.791 142.008l1.728 1.057M887.524 143.06l1.727 1.057M889.244 144.128l1.824 1.151M891.071 145.274l1.727 1.153M892.791 146.42l1.824 1.153M894.618 147.58l1.824 1.249M896.444 148.834l1.824 1.152M898.27 149.98l1.825 1.249M900.084 151.234l1.92 1.248M902.004 152.474l1.824 1.344M903.83 153.82l1.92 1.345M905.75 155.167l1.825 1.344M907.577 156.514l1.92 1.344M909.497 157.86l1.92 1.44M911.417 159.3l2.016 1.44M913.43 160.74l1.92 1.44M915.35 162.18l2.016 1.632M917.364 163.807l1.92 1.728M919.284 165.54l2.016 1.92M921.31 167.46l2.112 1.92M923.417 169.38l2.016 2.016M925.43 171.394l2.112 2.015M927.55 173.407l2.112 2.112M929.657 175.513l2.112 2.304M931.763 177.82l2.208 2.4M933.977 180.22l2.112 2.496M936.083 182.713l2.304 2.688M938.39 185.406l2.208 2.88M940.603 188.286l2.304 3.167M942.91 191.46l2.208 3.553M945.11 195.006l1.92 3.84M947.03 198.846l1.632 4.03M948.67 202.873l1.536 4.129M950.203 207.006l1.248 4.416M951.443 211.42l.96 4.702M952.403 216.126l.96 5.088M953.363 221.219l.672 5.472M954.043 226.685l.576 6.048M954.616 232.739l.48 6.431M955.096 239.165l.48 7.104M955.576 246.272l.288 7.583M955.87 253.858l.287 7.968M956.15 261.818l.191 8.448M956.35 270.271l.191 8.736M956.536 279.004l.192 9.12M956.723 288.124l.096 9.312M956.83 297.43l.095 9.6M956.923 307.03l.096 9.6M957.016 316.63v9.408"/></g><g stroke="silver" stroke-width="28.8"><path stroke-width="3.839904" d="M758.488 128.195h-25.344M733.155 128.195v-20.832M733.155 107.355h25.343M758.488 107.355v20.832"/></g><g stroke="teal" stroke-width="28.8"><path stroke-width="3.839904" d="m662.69 131.834.384 33.12M663.077 164.954l.384 16.8M663.45 181.753l.576 6.048M664.037 187.806l.576-.384M664.61 187.42l.768-1.632M665.37 185.793l.96-2.304M666.33 183.487l.864-2.688M667.197 180.793l.864-2.688M668.063 178.113l.864-1.248M668.93 176.86l.96-3.168M669.89 173.7l.864-.672M670.757 173.02l.864-1.824M671.61 171.194l.96-1.056M672.57 170.14l.864-.48M673.436 169.66l.864-.768M674.303 168.9l.96-.864M675.263 168.034l.864-.864M676.13 167.167l.96-.768M677.09 166.394l.864-.864M677.956 165.54l.864-.864M678.81 164.674l.96-.96M679.77 163.714l.864-.288M680.636 163.42l.864-.481M681.503 162.94l.96-.864M682.463 162.074l.96-.67M683.423 161.407l.865-.672M684.29 160.74l.958-.769M685.25 159.967l.864-.864M686.116 159.1l.96-.766M687.076 158.34l.864-.863M687.93 157.474l.96-.288M688.89 157.18l.863-.383M689.756 156.794l.864-.768M690.623 156.034l.96-.768M691.583 155.26l.864-.96M692.45 154.3l1.055-.575M693.503 153.727l.96-.672M694.463 153.06l.864-.383M695.33 152.674l.863-.576M696.196 152.1l.96-1.727M697.156 150.367l.959-.768M698.116 149.594l.96-.192M699.076 149.407l.96-.288M700.036 149.114l.862-.864M700.89 148.26l.96-.48M701.85 147.78l.96-.671M702.81 147.1l.863-.575M703.676 146.527l.96-.864M704.636 145.66l.96-.48M705.596 145.18l.96-.671M706.556 144.514l.96-.768M707.516 143.74l.96-.575M708.476 143.168l.96-.576M709.436 142.594l.96-.576M710.396 142.02l.96-.575M711.356 141.434l.96-.576M712.316 140.86l.96-1.343M713.276 139.514l.96-.096M714.235 139.421l.96-1.056M715.195 138.368l.96-.384M716.155 137.981l1.056-.288M717.209 137.701l.096-.288M717.315 137.408l.864-.096M718.169 137.314l1.056-2.496M719.235 134.821l1.056-.864M720.289 133.954l1.056-.48M721.342 133.474l.96-.192M722.302 133.274l1.056-.096M723.355 133.181h1.056M724.409 133.181h.768M725.182 133.181l1.056-2.208M726.235 130.981l1.056-.864M727.288 130.115l.96-.384M728.248 129.728l1.152-.384M729.408 129.341l.96-.672M730.368 128.675l1.056-.384M731.422 128.288l1.056-.384M732.475 127.901l.96-.672M733.435 127.235l1.057-.384M734.502 126.848l1.054-.576M735.555 126.275l1.152-.288M736.702 125.981l1.056-.385M737.755 125.595l1.056-.671M738.808 124.928l-.192-.288M738.622 124.635h.96M739.582 124.635l.958-2.592M740.541 122.048l1.154-1.632M741.701 120.421l1.055-.48M742.755 119.928l1.057-.19M743.808 119.741l1.055-.192M744.861 119.555l1.151-.096"/></g><g stroke="#c03" stroke-width="28.8"><path stroke-width="3.839904" d="m744.675 113.115-2.496 1.248M742.168 114.368l-1.248 1.248M740.928 115.622l-1.344 2.591M739.582 118.208v2.496M739.582 120.701l1.343 2.592M740.928 123.301l1.248 1.248M742.168 124.541l2.496 1.248M744.675 125.795h2.592M747.261 125.795l2.496-1.248M749.755 124.541l1.344-1.248M751.101 123.301l1.248-2.592M752.355 120.701v-2.496M752.355 118.208l-1.248-2.592M751.101 115.622l-1.344-1.248M749.755 114.368l-2.496-1.248M747.261 113.115h-2.592"/></g><g stroke="#fff" stroke-width="10.8"><path stroke-width="1.4399640000000002" d="m1175.797 28.157 6.72 17.664M1189.33 28.157l-6.816 17.664M1175.797 28.157h13.536M1202.77 42.663v13.344M1202.77 42.663h5.76M1208.53 42.663l1.92.672M1210.45 43.33l.576.672M1211.023 43.997l.672 1.248M1211.703 45.25v1.92M1211.703 47.17l-.672 1.248M1211.023 48.423l-.576.576M1210.45 48.997l-1.92.672M1208.53 49.663h-5.76M1216.116 47.17v8.832M1216.116 50.917l.672-1.92M1216.783 48.997l1.248-1.248M1218.036 47.743l1.248-.576M1219.276 47.17h1.92M1226.863 47.17l-1.248.576M1225.623 47.743l-1.248 1.248M1224.37 48.997l-.673 1.92M1223.703 50.917v1.247M1223.703 52.156l.672 1.92M1224.37 54.076l1.247 1.248M1225.623 55.33l1.248.672M1226.863 55.996h1.92M1228.783 55.996l1.248-.672M1230.036 55.33l1.248-1.248M1231.276 54.076l.672-1.92M1231.956 52.156V50.91M1231.956 50.917l-.672-1.92M1231.276 48.997l-1.248-1.248M1230.036 47.743l-1.248-.576M1228.783 47.17h-1.92M1240.209 42.663h-1.248M1238.956 42.663l-1.344.672M1237.622 43.33l-.576 1.92M1237.036 45.25v10.752M1235.116 47.17h4.416M1243.382 42.663l.576.672M1243.956 43.33l.672-.672M1244.622 42.663l-.672-.576M1243.956 42.077l-.576.576M1243.956 47.17v8.832M1249.035 42.663v13.344M1253.462 50.917h7.68M1261.142 50.917v-1.248M1261.142 49.663l-.672-1.248M1260.462 48.423l-.672-.672M1259.795 47.743l-1.248-.576M1258.542 47.17h-1.92M1256.622 47.17l-1.248.576M1255.382 47.743l-1.248 1.248M1254.129 48.997l-.672 1.92M1253.462 50.917v1.247M1253.462 52.156l.672 1.92M1254.129 54.076l1.248 1.248M1255.382 55.33l1.248.672M1256.622 55.996h1.92M1258.542 55.996l1.248-.672M1259.795 55.33l1.344-1.248M1271.888 48.997l-.672-1.248M1271.222 47.743l-1.92-.576M1269.302 47.17h-1.824M1267.475 47.17l-1.92.576M1265.555 47.743l-.672 1.248M1264.875 48.997l.672 1.344M1265.555 50.343l1.248.576M1266.795 50.917l3.168.671M1269.968 51.583l1.248.576M1271.222 52.156l.672 1.344M1271.888 53.503v.576M1271.888 54.076l-.672 1.248M1271.222 55.33l-1.92.672M1269.302 55.996h-1.824M1267.475 55.996l-1.92-.672M1265.555 55.33l-.672-1.248M1034.2 363.295h363.538M1397.698 363.295V76.075M1397.698 76.063h-363.537M1034.2 76.063v287.219M1052.44 363.295v-5.855M1070.587 363.295v-5.855M1088.72 363.295v-5.855M1106.959 363.295v-5.855M1125.105 363.295v-11.711M1143.251 363.295v-5.855M1161.491 363.295v-5.855M1179.637 363.295v-5.855M1197.783 363.295v-5.855M1216.023 363.295v-11.711M1234.156 363.295v-5.855M1252.302 363.295v-5.855M1270.542 363.295v-5.855M1288.688 363.295v-5.855M1306.834 363.295v-11.711M1325.074 363.295v-5.855M1343.166 363.295v-5.855M1361.3 363.295v-5.855M1379.566 363.295v-5.855M1397.698 363.295v-11.711M1052.44 81.916V76.06M1070.587 81.916V76.06M1088.72 81.916V76.06M1106.959 81.916V76.06M1125.105 87.782V76.071M1143.251 81.916V76.06M1161.491 81.916V76.06M1179.637 81.916V76.06M1197.783 81.916V76.06M1216.023 87.782V76.071M1234.156 81.916V76.06M1252.302 81.916V76.06M1270.542 81.916V76.06M1288.688 81.916V76.06M1306.834 87.782V76.071M1325.074 81.916V76.06M1343.166 81.916V76.06M1361.3 81.916V76.06M1379.566 81.916V76.06M1397.698 87.782V76.071M1104.852 377.308l-2.4.768M1102.452 378.068l-1.536 2.4M1100.92 380.468l-.769 3.84M1100.146 384.308v2.4M1100.146 386.708l.768 3.84M1100.92 390.548l1.535 2.4M1102.452 392.948l2.4.768M1104.852 393.721h1.536M1106.386 393.721l2.304-.768M1108.692 392.948l1.632-2.4M1110.319 390.548l.768-3.84M1111.092 386.708v-2.4M1111.092 384.308l-.768-3.84M1110.319 380.468l-1.632-2.4M1108.692 378.068l-2.304-.768M1106.386 377.308h-1.536M1117.332 392.188l-.768.768M1116.559 392.948l.768.768M1117.332 393.721l.768-.768M1118.105 392.948l-.768-.768M1128.185 377.308l-2.304.768M1125.879 378.068l-1.536 2.4M1124.345 380.468l-.768 3.84M1123.572 384.308v2.4M1123.572 386.708l.768 3.84M1124.345 390.548l1.536 2.4M1125.879 392.948l2.303.768M1128.185 393.721h1.632M1129.812 393.721l2.304-.768M1132.118 392.948l1.536-2.4M1133.652 390.548l.768-3.84M1134.425 386.708v-2.4M1134.425 384.308l-.768-3.84M1133.652 380.468l-1.536-2.4M1132.118 378.068l-2.304-.768M1129.812 377.308h-1.632M1148.531 377.308h-7.872M1140.665 377.308l-.768 7.008M1139.892 384.308l.767-.768M1140.665 383.548l2.4-.768M1143.065 382.775h2.304M1145.358 382.775l2.4.768M1147.758 383.548l1.536 1.536M1149.305 385.081l.768 2.4M1150.065 387.481v1.536M1150.065 389.015l-.768 2.304M1149.305 391.321l-1.536 1.632M1147.758 392.948l-2.4.768M1145.358 393.721h-2.304M1143.065 393.721l-2.4-.768M1140.665 392.948l-.768-.768M1139.892 392.188l-.768-1.632M1203.543 377.308l-2.4.768M1201.143 378.068l-1.536 2.4M1199.597 380.468l-.768 3.84M1198.837 384.308v2.4M1198.837 386.708l.768 3.84M1199.597 390.548l1.536 2.4M1201.143 392.948l2.4.768M1203.543 393.721h1.536M1205.077 393.721l2.303-.768M1207.383 392.948l1.632-2.4M1209.01 390.548l.768-3.84M1209.783 386.708v-2.4M1209.783 384.308l-.768-3.84M1209.01 380.468l-1.632-2.4M1207.383 378.068l-2.304-.768M1205.077 377.308h-1.536M1216.023 392.188l-.768.768M1215.25 392.948l.768.768M1216.023 393.721l.768-.768M1216.783 392.948l-.768-.768M1224.556 380.468l1.536-.768M1226.103 379.708l2.4-2.4M1228.503 377.308v16.416M1286.581 377.308l-2.304.768M1284.275 378.068l-1.536 2.4M1282.741 380.468l-.864 3.84M1281.875 384.308v2.4M1281.875 386.708l.864 3.84M1282.741 390.548l1.536 2.4M1284.275 392.948l2.304.768M1286.581 393.721h1.536M1288.114 393.721l2.4-.768M1290.514 392.948l1.536-2.4M1292.048 390.548l.768-3.84M1292.821 386.708v-2.4M1292.821 384.308l-.768-3.84M1292.048 380.468l-1.536-2.4M1290.514 378.068l-2.4-.768M1288.114 377.308h-1.535M1299.06 392.188l-.767.768M1298.288 392.948l.768.768M1299.06 393.721l.769-.768M1299.82 392.948l-.767-.768M1307.594 380.468l1.632-.768M1309.234 379.708l2.304-2.4M1311.54 377.308v16.416M1330.26 377.308h-7.776M1322.474 377.308l-.768 7.008M1321.714 384.308l.768-.768M1322.474 383.548l2.304-.768M1324.78 382.775h2.4M1327.18 382.775l2.304.768M1329.487 383.548l1.536 1.536M1331.02 385.081l.768 2.4M1331.793 387.481v1.536M1331.793 389.015l-.768 2.304M1331.02 391.321l-1.536 1.632M1329.487 392.948l-2.304.768M1327.18 393.721h-2.4M1324.78 393.721l-2.304-.768M1322.474 392.948l-.768-.768M1321.714 392.188l-.768-1.632M1385.299 377.308l-2.307.768M1382.899 378.068l-1.627 2.4M1381.299 380.468l-.774 3.84M1380.499 384.308v2.4M1380.499 386.708l.773 3.84M1381.299 390.548l1.626 2.4M1382.899 392.948l2.306.768M1385.299 393.721h1.533M1386.765 393.721l2.4-.768M1389.165 392.948l1.547-2.4M1390.765 390.548l.76-3.84M1391.432 386.708v-2.4M1391.432 384.308l-.76-3.84M1390.765 380.468l-1.546-2.4M1389.165 378.068l-2.4-.768M1386.765 377.308h-1.533M1397.698 392.188l-.76.768M1397.032 392.948l.76.768M1397.698 393.721l.774-.768M1398.498 392.948l-.773-.768M1404.765 381.242v-.768M1404.765 380.468l.76-1.632M1405.565 378.842l.773-.768M1406.232 378.068l1.626-.768M1407.965 377.308h3.08M1411.031 377.308l1.534.768M1412.498 378.068l.773.768M1413.298 378.842l.853 1.632M1414.098 380.468v1.536M1414.098 382.015l-.853 1.536M1413.298 383.548l-1.547 2.4M1411.698 385.948l-7.773 7.776M1403.965 393.721h10.946M1034.2 357.722h11.713M1034.2 330.176h5.857M1034.2 302.524h5.857M1034.2 274.87h5.857M1034.2 247.325h5.857M1034.2 219.672h11.713M1034.2 192.033h5.857M1034.2 164.474h5.857M1034.2 136.834h5.857M1034.2 109.182h5.857M1034.2 81.636h11.713M1386.099 357.722h11.706M1391.832 330.176h5.853M1391.832 302.524h5.853M1391.832 274.87h5.853M1391.832 247.325h5.853M1386.099 219.672h11.706M1391.832 192.033h5.853M1391.832 164.474h5.853M1391.832 136.834h5.853M1391.832 109.182h5.853M1386.099 81.636h11.706M1007.895 348.99l-2.304.767M1005.588 349.749l-1.536 2.4M1004.055 352.149l-.864 3.84M1003.188 355.989v2.4M1003.188 358.389l.864 3.84M1004.055 362.229l1.536 2.4M1005.588 364.629l2.304.768M1007.895 365.402h1.536M1009.428 365.402l2.4-.768M1011.828 364.629l1.536-2.4M1013.361 362.229l.768-3.84M1014.135 358.389v-2.4M1014.135 355.989l-.768-3.84M1013.361 352.149l-1.536-2.4M1011.828 349.749l-2.4-.768M1009.428 348.99h-1.536M984.469 210.94l-2.304.767M982.162 211.712l-1.536 2.304M980.629 214.02l-.768 3.935M979.869 217.952v2.304M979.869 220.259l.768 3.936M980.629 224.192l1.536 2.304M982.162 226.499l2.304.768M984.469 227.259h1.632M986.109 227.259l2.304-.768M988.402 226.499l1.536-2.304M989.949 224.192l.768-3.936M990.709 220.259v-2.304M990.709 217.952l-.768-3.936M989.949 214.02l-1.536-2.305M988.402 211.712l-2.304-.767M986.109 210.94h-1.632M996.948 225.725l-.768.768M996.188 226.499l.768.768M996.948 227.259l.864-.768M997.815 226.499l-.864-.768M1012.601 210.94h-7.775M1004.828 210.94l-.768 7.007M1004.055 217.952l.768-.768M1004.828 217.179l2.304-.864M1007.121 216.312h2.304M1009.428 216.312l2.4.864M1011.828 217.179l1.536 1.536M1013.361 218.712l.768 2.304M1014.135 221.019v1.536M1014.135 222.552l-.768 2.4M1013.361 224.952l-1.536 1.536M1011.828 226.499l-2.4.768M1009.428 227.259h-2.304M1007.121 227.259l-2.303-.768M1004.828 226.499l-.768-.768M1004.055 225.725l-.864-1.535M1005.588 75.97l1.536-.769M1007.121 75.196l2.304-2.4M1009.428 72.796v16.416"/></g><g stroke="#7c68ee" stroke-width="28.8"><path stroke-width="3.839904" d="M1397.698 357.722h-5.76M1391.965 357.722H1379.1M1379.166 357.722h-17.173M1361.966 357.722h-17.093M1344.9 357.722h-12.672M1332.18 357.722h-16.8M1315.38 357.722h-16.511M1298.86 357.722h-8.255M1290.608 357.722h-4.128M1286.475 357.722h-4.128M1282.355 357.722h-2.016M1280.341 357.722h-.96M1279.381 357.722h-1.056M1278.315 357.722h-.48M1277.835 357.722h-.576M1277.261 357.722h-.96M1276.301 357.722h-1.056M1275.248 357.722h-1.536M1273.715 357.722h-.96M1272.755 357.722h-.48M1272.275 357.722h-.577M1271.702 357.722h-.48M1271.222 357.722h-.288M1270.928 357.722h-.192M1270.742 357.722h-.288M1270.448 357.722h-.288M1270.155 357.722h-.193M1269.968 357.722h-.288M1269.675 357.722h-.288M1269.395 357.722h-.192M1269.195 357.722h-.096M1269.102 357.722l-.096-276.086M1269.008 81.636h-.192M1268.822 81.636h-.096M1268.715 81.636h-.192M1268.528 81.636h-.288M1268.235 81.636h-.288M1267.955 81.636h-.672M1267.275 81.636h-1.44M1265.835 81.636h-1.632M1264.208 81.636h-3.744M1260.462 81.636h-4.128M1256.342 81.636h-7.584M1248.755 81.636h-4.031M1244.716 81.636h-7.488M1237.236 81.636h-4.032M1233.196 81.636h-8.544M1224.663 81.636h-7.776M1216.876 81.636h-4.224M1212.663 81.636h-7.2M1205.463 81.636h-7.488M1197.97 81.636h-5.664M1192.304 81.636h-7.392M1184.917 81.636h-3.648M1181.264 81.636h-7.296M1173.97 81.636h-5.375M1168.597 81.636h-5.28M1163.318 81.636h-3.552M1159.758 81.636h-3.552M1156.211 81.636h-6.912M1149.305 81.636h-5.088M1144.211 81.636h-5.087M1139.132 81.636h-6.722M1132.398 81.636h-6.527M1125.879 81.636h-6.434M1119.439 81.636h-4.703M1114.745 81.636h-4.703M1110.039 81.636h-6.048M1103.986 81.636h-6.048M1097.946 81.636h-5.76M1092.186 81.636h-2.88M1089.306 81.636h-5.472M1083.826 81.636h-5.472M1078.36 81.636h-5.088M1073.267 81.636h-2.496M1070.773 81.636h-4.896M1065.88 81.636h-4.704M1061.173 81.636h-3.36M1057.814 81.636h-4.224M1053.587 81.636h-2.112M1051.48 81.636h-2.784M1048.694 81.636h-3.648M1045.054 81.636h-2.88M1042.174 81.636h-2.112M1040.054 81.636h-2.304M1037.747 81.636h-1.152M1036.6 81.636h-1.055M1035.547 81.636h-.672M1034.867 81.636h-.288M1034.587 81.636h-.192M1034.387 81.636h-.096M1034.294 81.636h-.096"/></g><g stroke="#daa520" stroke-width="28.8"><path stroke-width="3.839904" d="M1397.698 248.378h-5.76M1391.965 248.378H1379.1M1379.166 248.378h-17.173M1361.966 248.378h-17.093M1344.9 248.378h-12.672M1332.18 248.378h-16.8M1315.38 248.378h-16.511M1298.86 248.378h-8.255M1290.608 248.378h-4.128M1286.475 248.378h-4.128M1282.355 248.378h-2.016M1280.341 248.378h-.96M1279.381 248.378l-1.056.096M1278.315 248.472h-.48M1277.835 248.472h-.576M1277.261 248.472h-.96M1276.301 248.472h-1.056M1275.248 248.472h-1.536M1273.715 248.472h-.96M1272.755 248.472h-.48M1272.275 248.472h-.577M1271.702 248.472h-.48M1271.222 248.472h-.288M1270.928 248.472h-.192M1270.742 248.472h-.288M1270.448 248.472h-.288M1270.155 248.472h-.193M1269.968 248.472h-.288M1269.675 248.472h-.288M1269.395 248.472h-.192M1269.195 248.472h-.096M1269.102 248.472h-.096M1269.008 248.472h-.192M1268.822 248.472h-.096M1268.715 248.472h-.192M1268.528 248.472h-.288M1268.235 248.472h-.288M1267.955 248.472h-.672M1267.275 248.472h-1.44M1265.835 248.472h-1.632M1264.208 248.472h-3.744M1260.462 248.472h-4.128M1256.342 248.472h-7.584M1248.755 248.472h-4.031M1244.716 248.472h-7.488M1237.236 248.472h-4.032M1233.196 248.472h-8.544M1224.663 248.472h-7.776M1216.876 248.472h-4.224M1212.663 248.472h-7.2M1205.463 248.472h-7.488M1197.97 248.472h-5.664M1192.304 248.472h-7.392M1184.917 248.472h-3.648M1181.264 248.472h-7.296M1173.97 248.472h-5.375M1168.597 248.472h-5.28M1163.318 248.472l-3.552.096M1159.758 248.578h-3.552M1156.211 248.578h-6.912M1149.305 248.578h-5.088M1144.211 248.578h-5.087M1139.132 248.578h-6.722M1132.398 248.578h-6.527M1125.879 248.578h-6.434M1119.439 248.578h-4.703M1114.745 248.578h-4.703M1110.039 248.578h-6.048M1103.986 248.578h-6.048M1097.946 248.578h-5.76M1092.186 248.578h-2.88M1089.306 248.578h-5.472M1083.826 248.578h-5.472M1078.36 248.578h-5.088M1073.267 248.578h-2.496M1070.773 248.578h-4.896M1065.88 248.578h-4.704M1061.173 248.578h-3.36M1057.814 248.578h-4.224M1053.587 248.578h-2.112M1051.48 248.578h-2.784M1048.694 248.578h-3.648M1045.054 248.578h-2.88M1042.174 248.578h-2.112M1040.054 248.578h-2.304M1037.747 248.578h-1.152M1036.6 248.578h-1.055M1035.547 248.578h-.672M1034.867 248.578h-.288M1034.587 248.578h-.192M1034.387 248.578h-.096M1034.294 248.578h-.096"/></g><g stroke="#87cefa" stroke-width="28.8"><path stroke-width="3.839904" d="m1397.698 257.111-5.76-.384M1391.965 256.738l-12.866-.768M1379.166 255.965l-17.173-1.248M1361.966 254.711l-17.093-1.152M1344.9 253.565l-12.672-.96M1332.18 252.605l-16.8-1.344M1315.38 251.258l-16.511-1.344M1298.86 249.912l-8.255-.672M1290.608 249.245l-4.128-.384M1286.475 248.858l-4.128-.384M1282.355 248.472l-2.016-.192M1280.341 248.285h-.96M1279.381 248.285h-1.056M1278.315 248.285l-.48.096M1277.835 248.378h-.576M1277.261 248.378h-.96M1276.301 248.378l-1.056-.096M1275.248 248.285l-1.536-.096M1273.715 248.192h-.96M1272.755 248.192h-.48M1272.275 248.192h-.577M1271.702 248.192h-.48M1271.222 248.192l-.288-.096M1270.928 248.098l-.192.192M1270.742 248.285l-.288.096M1270.448 248.378h-.288M1270.155 248.378h-.193M1269.968 248.378l-.288-.096M1269.675 248.285h-.288M1269.395 248.285h-.192M1269.195 248.285h-.096M1269.102 248.285h-.096M1269.008 248.285l-.192-.096M1268.822 248.192h-.096M1268.715 248.192h-.192M1268.528 248.192l-.288-.096M1268.235 248.098h-.288M1267.955 248.098l-.672-.096M1267.275 247.992l-1.44-.288M1265.835 247.712l-1.632-.288M1264.208 247.418l-3.744-.768M1260.462 246.658l-4.128-.768M1256.342 245.885l-7.584-1.536M1248.755 244.352l-4.031-.768M1244.716 243.578l-7.488-1.632M1237.236 241.952l-4.032-.96M1233.196 240.992l-8.544-2.015M1224.663 238.978l-7.776-1.92M1216.876 237.059l-4.224-1.152M1212.663 235.899l-7.2-2.015M1205.463 233.885l-7.488-2.209M1197.97 231.672l-5.664-1.728M1192.304 229.952l-7.392-2.399M1184.917 227.552l-3.648-1.248M1181.264 226.299l-7.296-2.688M1173.97 223.619l-5.375-2.015M1168.597 221.592l-5.28-2.112M1163.318 219.486l-3.552-1.439M1159.758 218.046l-3.552-1.536M1156.211 216.512l-6.912-3.072M1149.305 213.432l-5.088-2.495M1144.211 210.94l-5.087-2.495M1139.132 208.446l-6.722-3.55M1132.398 204.9l-6.527-3.746M1125.879 201.153l-6.434-3.936M1119.439 197.22l-4.703-3.072M1114.745 194.14l-4.703-3.168M1110.039 190.98l-6.048-4.512M1103.986 186.46l-6.048-4.704M1097.946 181.753l-5.76-4.896M1092.186 176.86l-2.88-2.592M1089.306 174.273l-5.472-5.183M1083.826 169.087l-5.472-5.76M1078.36 163.327l-5.088-5.76M1073.267 157.567l-2.496-3.072M1070.773 154.5l-4.896-6.335M1065.88 148.154l-4.704-6.72M1061.173 141.434l-3.36-5.376M1057.814 136.061l-4.224-7.2M1053.587 128.861l-2.112-3.936M1051.48 124.928l-2.784-5.76M1048.694 119.168l-3.648-8.256M1045.054 110.915l-2.88-7.584M1042.174 103.329l-2.112-6.72M1040.054 96.609l-2.304-8.352M1037.747 88.262l-1.152-5.184M1036.6 83.076l-1.055-5.664M1035.547 77.41l-.192-1.345"/></g><g stroke="#c9f" stroke-width="28.8"><path stroke-width="3.839904" d="m1397.698 181.567-5.76.288M1391.965 181.86l-12.866.864M1379.166 182.713l-17.173.96M1361.966 183.673l-17.093 1.056M1344.9 184.74l-12.672.96M1332.18 185.7l-16.8 1.344M1315.38 187.033l-16.511.96M1298.86 187.993l-8.255.576M1290.608 188.58l-4.128.384M1286.475 188.953l-4.128.288M1282.355 189.246l-2.016.096M1280.341 189.34l-.96.096M1279.381 189.433l-1.056 4.896M1278.315 194.34l-.48 2.208M1277.835 196.54l-.576 1.729M1277.261 198.273l-.96 1.632M1276.301 199.9l-1.056 1.726M1275.248 201.633l-1.536 1.633M1273.715 203.26l-.96 1.44M1272.755 204.7l-.48 1.633M1272.275 206.34l-.577 1.151M1271.702 207.486l-.48.576M1271.222 208.06l-.288.385M1270.928 208.446l-.192 10.848M1270.742 219.299h-.288M1270.448 219.299h-.288M1270.155 219.299h-.193M1269.968 219.299h-.288M1269.675 219.299h-.288M1269.395 219.299h-.192M1269.195 219.299h-.096M1269.102 219.299v.479M1269.102 219.779h-.096M1269.008 219.779h-.192M1268.822 219.779h-.096M1268.715 219.779h-.192M1268.528 219.779h-.288M1268.235 219.779h-.288M1267.955 219.779h-.672M1267.275 219.779h-1.44M1265.835 219.779h-1.632M1264.208 219.779h-3.744M1260.462 219.779h-4.128M1256.342 219.779h-7.584M1248.755 219.779h-4.031M1244.716 219.779h-7.488M1237.236 219.779h-4.032M1233.196 219.779h-8.544M1224.663 219.779h-7.776M1216.876 219.779h-4.224M1212.663 219.779h-7.2M1205.463 219.779h-7.488M1197.97 219.779h-5.664M1192.304 219.779h-7.392M1184.917 219.779h-3.648M1181.264 219.779h-7.296M1173.97 219.779h-5.375M1168.597 219.779h-5.28M1163.318 219.779h-3.552M1159.758 219.779h-3.552M1156.211 219.779h-6.912M1149.305 219.779h-5.088M1144.211 219.779h-5.087M1139.132 219.779h-6.722M1132.398 219.779h-6.527M1125.879 219.779h-6.434M1119.439 219.779h-4.703M1114.745 219.779h-4.703M1110.039 219.779h-6.048M1103.986 219.779h-6.048M1097.946 219.779h-5.76M1092.186 219.779h-2.88M1089.306 219.779h-5.472M1083.826 219.779h-5.472M1078.36 219.779h-5.088M1073.267 219.779h-2.496M1070.773 219.779h-4.896M1065.88 219.779h-4.704M1061.173 219.779h-3.36M1057.814 219.779h-4.224M1053.587 219.779h-2.112M1051.48 219.779h-2.784M1048.694 219.779h-3.648M1045.054 219.779h-2.88M1042.174 219.779h-2.112M1040.054 219.779h-2.304M1037.747 219.779h-1.152M1036.6 219.779h-1.055M1035.547 219.779h-.672M1034.867 219.779h-.288M1034.587 219.779h-.192M1034.387 219.779h-.096M1034.294 219.779h-.096"/></g><g stroke="#fff" stroke-width="14.4"><path stroke-width="1.919952" d="M1174.93 419.347v13.632M1174.93 423.187l2.977-2.88M1177.904 420.307l1.92-.96M1179.824 419.347h2.88M1182.704 419.347l2.016.96M1184.717 420.307l.96 2.88M1185.677 423.187v9.792M1185.677 423.187l2.88-2.88M1188.557 420.307l2.016-.96M1190.584 419.347h2.88M1193.463 419.347l1.92.96M1195.383 420.307l1.056 2.88M1196.437 423.187v9.792M1219.756 408.6l-17.567 31.2M1225.623 412.534v20.448M1225.623 412.534l7.775 20.448M1241.262 412.534l-7.872 20.448M1241.262 412.534v20.448M1253.942 429.334l-2.208.768M1251.729 430.107l-2.208 1.44M1249.515 431.547l-1.44 2.208M1248.075 433.747l-.768 2.112M1247.315 435.867v2.208M1247.315 438.067l.768 2.208M1248.075 440.28l1.44 2.208M1249.515 442.493l2.208 1.44M1251.729 443.933l2.208.768M1253.942 444.693h2.112M1256.049 444.693l2.208-.768M1258.262 443.933l2.208-1.44M1260.462 442.493l1.44-2.208M1261.902 440.28l.768-2.208M1262.675 438.067v-2.208M1262.675 435.867l-.768-2.112M1261.902 433.747l-1.44-2.208M1260.462 431.547l-2.208-1.44M1258.262 430.107l-2.208-.768M1256.049 429.334h-2.112M1254.609 435.867l-.672.768M1253.942 436.627v.768M1253.942 437.4l.672.672M1254.609 438.067h.768M1255.382 438.067l.672-.672M1256.049 437.4v-.768M1256.049 436.627l-.672-.768M1255.382 435.867h-.768M1254.609 436.627v.768M1254.609 437.4h.768M1255.382 437.4v-.768M1255.382 436.627h-.768"/></g><path stroke="#2e8b57" stroke-width="4.79988" d="M1397.698 363.002h-128.634"/><path stroke="#87cefa" stroke-width="4.79988" d="M1269.008 363.002h-234.807"/><path stroke="#7c68ee" stroke-width="3.839904" d="M1400.365 101.222h31.773"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="m1452.764 97.955-.867-.864M1451.83 97.089l-.866-.48M1451.03 96.609h-1.44M1449.564 96.609l-.867.48M1448.764 97.089l-.96.864M1447.697 97.955l-.373 1.44M1447.43 99.395v.864M1447.43 100.262l.374 1.344M1447.697 101.595l.96.96M1448.764 102.555l.866.384M1449.564 102.942h1.44M1451.03 102.942l.867-.384M1451.83 102.555l.867-.96M1457.83 96.609l-.96.48M1456.897 97.089l-.853.864M1455.964 97.955l-.48 1.44M1455.564 99.395v.864M1455.564 100.262l.48 1.344M1455.964 101.595l.853.96M1456.897 102.555l.96.384M1457.83 102.942h1.347M1459.164 102.942l.866-.384M1460.097 102.555l.96-.96M1461.03 101.595l.48-1.344M1461.43 100.262v-.864M1461.43 99.395l-.48-1.44M1461.03 97.955l-.96-.864M1460.097 97.089l-.867-.48M1459.164 96.609h-1.347M1464.63 96.609v6.336M1464.63 98.435l1.333-1.344M1465.963 97.089l.867-.48M1466.897 96.609h1.44M1468.23 96.609l.867.48M1469.163 97.089l.48 1.344M1469.697 98.435v4.512M1472.363 96.609l2.773 6.336M1477.83 96.609l-2.694 6.336M1480.096 99.395h5.467M1485.563 99.395v-.96M1485.563 98.435l-.48-.864M1485.03 97.569l-.48-.48M1484.63 97.089l-.867-.48M1483.696 96.609h-1.44M1482.363 96.609l-.853.48M1481.43 97.089l-.867.864M1480.63 97.955l-.48 1.44M1480.096 99.395v.864M1480.096 100.262l.48 1.344M1480.63 101.595l.866.96M1481.43 102.555l.853.384M1482.363 102.942h1.44M1483.696 102.942l.867-.384M1484.63 102.555l.96-.96M1493.696 97.955l-.96-.864M1492.763 97.089l-.867-.48M1491.963 96.609h-1.334M1490.63 96.609l-.96.48M1489.563 97.089l-.867.864M1488.763 97.955l-.48 1.44M1488.23 99.395v.864M1488.23 100.262l.48 1.344M1488.763 101.595l.866.96M1489.563 102.555l.96.384M1490.63 102.942h1.333M1491.963 102.942l.866-.384M1492.763 102.555l.96-.96M1497.43 93.435v7.776M1497.43 101.222l.48 1.344M1497.83 102.555l.866.384M1498.763 102.942h.96M1496.096 96.609h3.173M1501.83 93.435l.48.48M1502.362 93.915l.48-.48M1502.896 93.435l-.48-.48M1502.362 92.955l-.48.48M1502.362 96.609v6.336M1507.829 96.609l-.96.48M1506.896 97.089l-.867.864M1506.096 97.955l-.48 1.44M1505.562 99.395v.864M1505.562 100.262l.48 1.344M1506.096 101.595l.866.96M1506.896 102.555l.96.384M1507.829 102.942h1.333M1509.162 102.942l.96-.384M1510.096 102.555l.866-.96M1511.029 101.595l.48-1.344M1511.429 100.262v-.864M1511.429 99.395l-.48-1.44M1511.029 97.955l-.867-.864M1510.096 97.089l-.96-.48M1509.162 96.609h-1.333M1514.629 96.609v6.336M1514.629 98.435l1.346-1.344M1515.962 97.089l.96-.48M1517.029 96.609h1.333M1518.362 96.609l.867.48M1519.162 97.089l.48 1.344M1519.695 98.435v4.512"/></g><path stroke="#daa520" stroke-width="3.839904" d="M1400.365 119.168h31.773"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="m1446.364 111.395 3.64 9.504M1453.697 111.395l-3.653 9.504M1446.364 111.395h7.293M1459.297 121.661v4.704M1459.297 122.621l-.667-.672M1458.63 121.955l-.666-.288M1457.964 121.661h-1.067M1456.897 121.661l-.667.288M1456.23 121.955l-.666.672M1455.564 122.621l-.387 1.056M1455.164 123.675v.672M1455.164 124.355l.386 1.056M1455.564 125.408l.666.672M1456.23 126.075l.667.288M1456.897 126.368h1.067M1457.964 126.368l.666-.288M1458.63 126.075l.667-.672M1465.83 119.261v7.104M1465.83 122.621l-.773-.672M1465.03 121.955l-.667-.288M1464.363 121.661h-.96M1463.43 121.661l-.667.288M1462.763 121.955l-.773.672M1461.963 122.621l-.293 1.056M1461.697 123.675v.672M1461.697 124.355l.293 1.056M1461.963 125.408l.774.672M1462.763 126.075l.667.288M1463.43 126.368h.96M1464.363 126.368l.667-.288M1465.03 126.075l.773-.672"/></g><path stroke="#87cefa" stroke-width="3.839904" d="M1400.365 137.114h31.773"/><g stroke="#fff" stroke-width="3.6"><path stroke-width=".479988" d="m1446.364 129.341 3.64 9.504M1453.697 129.341l-3.653 9.504M1446.364 129.341h7.293M1455.564 139.621v4.704M1455.564 141.634l.28-1.056M1455.83 140.58l.774-.671M1456.63 139.901l.667-.288M1457.297 139.621h.96M1463.697 139.621v4.704M1463.697 140.58l-.68-.671M1463.03 139.901l-.667-.288M1462.363 139.621h-1.053M1461.297 139.621l-.68.288M1460.63 139.901l-.667.672M1459.964 140.58l-.294 1.057M1459.697 141.634v.672M1459.697 142.3l.293 1.057M1459.964 143.354l.666.672M1460.63 144.034l.68.288M1461.297 144.314h1.053M1462.363 144.314l.667-.288M1463.03 144.034l.68-.672M1470.23 137.221v7.104M1470.23 140.58l-.667-.671M1469.563 139.901l-.68-.288M1468.897 139.621h-1.054M1467.83 139.621l-.667.288M1467.163 139.901l-.68.672M1466.497 140.58l-.374 1.057M1466.097 141.634v.672M1466.097 142.3l.373 1.057M1466.497 143.354l.68.672M1467.163 144.034l.667.288M1467.83 144.314h1.053M1468.897 144.314l.68-.288M1469.563 144.034l.667-.672"/></g><path stroke="#c9f" stroke-width="3.839904" d="M1400.365 155.074h31.773"/><path stroke="#fff" stroke-width=".479988" d="m1447.43 147.3 6.334 9.505M1453.697 147.3l-6.333 9.505"/><g stroke="gray" stroke-width="7.2"><path stroke-width=".959976" d="M66.446 482.812h9.024M66.446 482.812l9.024-3.456M66.446 475.986l9.024 3.36M66.446 475.986h9.024M73.838 472.626h5.472M79.31 472.626l.96-.288M80.27 472.346l.384-.672M80.654 471.666v-.672M76.142 473.586v-2.304M76.142 467.826l.288.576M76.43 468.413l.672.672M77.102 469.08l.96.287M78.062 469.373h.672M78.734 469.373l.96-.288M79.694 469.08l.576-.673M80.27 468.413l.384-.576M80.654 467.826v-.96M80.654 466.866l-.384-.672M80.27 466.2l-.576-.673M79.694 465.533l-.96-.288M78.734 465.24h-.672M78.062 465.24l-.96.287M77.102 465.533l-.672.672M76.43 466.2l-.287.671M76.142 466.866v.96M73.838 462.653h5.472M79.31 462.653l.96-.288M80.27 462.36l.384-.672M80.654 461.693v-.672M76.142 463.613v-2.208M76.142 455.546h4.513M77.102 455.546l-.672.672M76.43 456.213l-.288.672M76.142 456.893v.96M76.142 457.853l.288.576M76.43 458.426l.672.672M77.102 459.093l.96.384M78.062 459.48h.672M78.734 459.48l.96-.384M79.694 459.093l.576-.672M80.27 458.426l.384-.576M80.654 457.853v-.96M80.654 456.893l-.384-.672M80.27 456.213l-.576-.672M73.838 452.946h6.816"/></g><g stroke-width="50.4"><path stroke="red" stroke-width="6.719832" d="M887.324 757.36v-26.975"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M887.324 730.385V456.218"/><path stroke="red" stroke-width="6.719832" d="M878.685 757.36v-26.783"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M878.685 730.577V456.21"/><path stroke="red" stroke-width="6.719832" d="M870.045 757.36v-26.495"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M870.045 730.865V456.218"/><path stroke="red" stroke-width="6.719832" d="M861.312 757.36v-26.207"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M861.312 731.153v-274.94"/><path stroke="red" stroke-width="6.719832" d="M852.672 757.36v-25.92"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M852.672 731.44V456.222"/><path stroke="red" stroke-width="6.719832" d="M844.032 757.36v-25.535"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M844.032 731.825V456.218"/><path stroke="red" stroke-width="6.719832" d="M835.392 757.36v-25.247"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M835.392 732.113v-275.9"/><path stroke="red" stroke-width="6.719832" d="M826.646 757.36v-25.055"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M826.646 732.305V456.218"/><path stroke="red" stroke-width="6.719832" d="M818.006 757.36v-24.767"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M818.006 732.593v-276.38"/><path stroke="red" stroke-width="6.719832" d="M809.366 757.36v-24.48"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M809.366 732.88V456.222"/><path stroke="red" stroke-width="6.719832" d="M800.727 757.36V733.17"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M800.727 733.169V456.216"/><path stroke="red" stroke-width="6.719832" d="M791.994 757.36v-23.903"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M791.994 733.457V456.21"/><path stroke="red" stroke-width="6.719832" d="M783.354 757.36v-23.615"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M783.354 733.745V456.218"/><path stroke="red" stroke-width="6.719832" d="M774.714 757.36v-23.327"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M774.714 734.033v-277.82"/><path stroke="red" stroke-width="6.719832" d="M765.98 757.36v-23.04"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M765.98 734.32V456.222"/><path stroke="red" stroke-width="6.719832" d="M757.341 757.36V734.61"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M757.341 734.609V456.216"/><path stroke="red" stroke-width="6.719832" d="M748.701 757.36v-22.463"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M748.701 734.897V456.21"/><path stroke="red" stroke-width="6.719832" d="M740.061 757.36v-22.175"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M740.061 735.185V456.218"/><path stroke="red" stroke-width="6.719832" d="M731.328 757.36v-21.887"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M731.328 735.473v-279.26"/><path stroke="red" stroke-width="6.719832" d="M722.689 757.36v-21.6"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M722.689 735.76V456.222"/><path stroke="red" stroke-width="6.719832" d="M714.049 757.36v-21.215"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M714.049 736.145V456.218"/><path stroke="red" stroke-width="6.719832" d="M705.409 757.36v-21.023"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M705.409 736.337V456.21"/><path stroke="red" stroke-width="6.719832" d="M696.676 757.36v-20.735"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M696.676 736.625V456.218"/><path stroke="red" stroke-width="6.719832" d="M688.036 757.36v-20.447"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M688.036 736.913v-280.7"/><path stroke="red" stroke-width="6.719832" d="M679.396 757.36V737.2"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M679.396 737.2V456.222"/><path stroke="red" stroke-width="6.719832" d="M670.757 757.36V737.49"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M670.757 737.489V456.216"/><path stroke="red" stroke-width="6.719832" d="M662.01 757.36v-19.583"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M662.01 737.777V456.21"/><path stroke="red" stroke-width="6.719832" d="M653.37 757.36v-19.2"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M653.37 738.16V456.222"/><path stroke="red" stroke-width="6.719832" d="M644.73 757.36V738.45"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M644.73 738.449V456.216"/><path stroke="red" stroke-width="6.719832" d="M636.09 757.36v-18.72"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M636.09 738.64V456.222"/><path stroke="red" stroke-width="6.719832" d="M627.358 757.36V738.93"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M627.358 738.929V456.216"/><path stroke="red" stroke-width="6.719832" d="M618.718 757.36v-18.143"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M618.718 739.217V456.21"/><path stroke="red" stroke-width="6.719832" d="M610.078 757.36V739.6"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M610.078 739.6V456.222"/><path stroke="red" stroke-width="6.719832" d="M601.438 757.36V739.89"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M601.438 739.889V456.216"/><path stroke="red" stroke-width="6.719832" d="M592.705 757.36v-17.183"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M592.705 740.177V456.21"/><path stroke="red" stroke-width="6.719832" d="M584.065 757.36v-16.895"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M584.065 740.465V456.218"/><path stroke="red" stroke-width="6.719832" d="M575.426 757.36v-16.607"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M575.426 740.753v-284.54"/><path stroke="red" stroke-width="6.719832" d="M566.786 757.36v-16.32"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M566.786 741.04V456.222"/><path stroke="red" stroke-width="6.719832" d="M558.053 757.36V741.33"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M558.053 741.329V456.216"/><path stroke="red" stroke-width="6.719832" d="M549.413 757.36v-15.743"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M549.413 741.617V456.21"/><path stroke="red" stroke-width="6.719832" d="M540.773 757.36v-15.455"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M540.773 741.905V456.218"/><path stroke="red" stroke-width="6.719832" d="M532.133 757.36v-15.167"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M532.133 742.193v-285.98"/><path stroke="red" stroke-width="6.719832" d="M523.4 757.36v-14.88"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M523.4 742.48V456.222"/><path stroke="red" stroke-width="6.719832" d="M514.76 757.36V742.77"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M514.76 742.769V456.216"/><path stroke="red" stroke-width="6.719832" d="M506.12 757.36v-14.303"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M506.12 743.057V456.21"/><path stroke="red" stroke-width="6.719832" d="M497.48 757.36v-14.015"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M497.48 743.345V456.218"/><path stroke="red" stroke-width="6.719832" d="M488.734 757.36v-13.727"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M488.734 743.633v-287.42"/><path stroke="red" stroke-width="6.719832" d="M480.095 757.36v-13.343"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M480.095 744.017V456.21"/><path stroke="red" stroke-width="6.719832" d="M471.455 757.36v-13.056"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M471.455 744.305V456.218"/><path stroke="red" stroke-width="6.719832" d="M462.815 757.36v-12.768"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M462.815 744.593v-288.38"/><path stroke="red" stroke-width="6.719832" d="M454.082 757.36v-12.575"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M454.082 744.785V456.218"/><path stroke="red" stroke-width="6.719832" d="M445.442 757.36v-12.192"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M445.442 745.168V456.216"/><path stroke="red" stroke-width="6.719832" d="M436.802 757.36v-11.904"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M436.802 745.456V456.21"/><path stroke="red" stroke-width="6.719832" d="M428.07 757.36v-11.616"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M428.07 745.744V456.218"/><path stroke="red" stroke-width="6.719832" d="M419.43 757.36v-11.328"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M419.43 746.032V456.213"/><path stroke="red" stroke-width="6.719832" d="M410.79 757.36v-11.04"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M410.79 746.32V456.221"/><path stroke="red" stroke-width="6.719832" d="M402.15 757.36v-10.752"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M402.15 746.608V456.216"/><path stroke="red" stroke-width="6.719832" d="M393.417 757.36v-10.464"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M393.417 746.896V456.21"/><path stroke="red" stroke-width="6.719832" d="M384.777 757.36v-10.176"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M384.777 747.184V456.218"/><path stroke="red" stroke-width="6.719832" d="M376.137 757.36v-9.888"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M376.137 747.472V456.213"/><path stroke="red" stroke-width="6.719832" d="M367.497 757.36v-9.696"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M367.497 747.664V456.218"/><path stroke="red" stroke-width="6.719832" d="M358.764 757.36v-9.408"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M358.764 747.952V456.213"/><path stroke="red" stroke-width="6.719832" d="M350.125 757.36v-9.12"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M350.125 748.24V456.221"/><path stroke="red" stroke-width="6.719832" d="M341.485 757.36v-8.832"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M341.485 748.528V456.216"/><path stroke="red" stroke-width="6.719832" d="M332.845 757.36v-8.544"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M332.845 748.816V456.21"/><path stroke="red" stroke-width="6.719832" d="M324.099 757.36v-8.256"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M324.099 749.104V456.218"/><path stroke="red" stroke-width="6.719832" d="M315.459 757.36v-7.968"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M315.459 749.392V456.213"/><path stroke="red" stroke-width="6.719832" d="M306.819 757.36v-7.68"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M306.819 749.68V456.221"/><path stroke="red" stroke-width="6.719832" d="M298.18 757.36v-7.488"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M298.18 749.872V456.213"/><path stroke="red" stroke-width="6.719832" d="M289.446 757.36v-7.2"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M289.446 750.16V456.221"/><path stroke="red" stroke-width="6.719832" d="M280.806 757.36v-7.008"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M280.806 750.352V456.213"/><path stroke="red" stroke-width="6.719832" d="M272.167 757.36v-6.72"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M272.167 750.64V456.221"/><path stroke="red" stroke-width="6.719832" d="M263.527 757.36v-6.432"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M263.527 750.928V456.216"/><path stroke="red" stroke-width="6.719832" d="M254.794 757.36v-6.144"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M254.794 751.216V456.21"/><path stroke="red" stroke-width="6.719832" d="M246.154 757.36v-5.952"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M246.154 751.408V456.216"/><path stroke="red" stroke-width="6.719832" d="M237.514 757.36v-5.664"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M237.514 751.696V456.21"/><path stroke="red" stroke-width="6.719832" d="M228.874 757.36v-5.376"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M228.874 751.984V456.218"/><path stroke="red" stroke-width="6.719832" d="M220.141 757.36v-5.184"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M220.141 752.176V456.21"/><path stroke="red" stroke-width="6.719832" d="M211.501 757.36v-4.896"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M211.501 752.464V456.218"/><path stroke="red" stroke-width="6.719832" d="M202.862 757.36v-4.608"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M202.862 752.752V456.213"/><path stroke="red" stroke-width="6.719832" d="M194.222 757.36v-4.32"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M194.222 753.04V456.221"/><path stroke="red" stroke-width="6.719832" d="M185.489 757.36v-4.032"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M185.489 753.328V456.216"/><path stroke="red" stroke-width="6.719832" d="M176.849 757.36v-3.744"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M176.849 753.616V456.21"/><path stroke="red" stroke-width="6.719832" d="M168.21 757.36v-3.456"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M168.21 753.904V456.218"/><path stroke="red" stroke-width="6.719832" d="M159.57 757.36v-3.072"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M159.57 754.288V456.216"/><path stroke="red" stroke-width="6.719832" d="M150.823 757.36v-2.688"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M150.823 754.672V456.213"/><path stroke="red" stroke-width="6.719832" d="M142.183 757.36v-2.4"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M142.183 754.96V456.221"/><path stroke="red" stroke-width="6.719832" d="M133.543 757.36v-2.112"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M133.543 755.248V456.216"/><path stroke="red" stroke-width="6.719832" d="M124.909 757.36v-1.92"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M124.909 755.44V456.221"/><path stroke="red" stroke-width="6.719832" d="M116.173 757.36v-2.112"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M116.173 755.248V456.216"/><path stroke="red" stroke-width="6.719832" d="M107.533 757.36v-3.168"/><path stroke="#ff2d2d" stroke-width="6.719832" d="M107.533 754.192V456.213"/></g><g stroke="#87cefa" stroke-width="54"><path stroke-width="7.19982" d="M878.685 757.36V564.978M861.312 757.36V565.458M844.032 757.36V568.538M826.646 757.36V568.725M809.366 757.36V569.498M791.994 757.36V570.072M774.714 757.36V570.832M757.341 757.36V571.418M740.061 757.36V572.085M722.689 757.36V573.045M705.409 757.36V574.578M688.036 757.36V574.671M670.757 757.36V575.151M653.37 757.36V577.551M636.09 757.36V577.845M618.718 757.36V578.325M601.438 757.36V579.191M584.065 757.36V580.538M566.786 757.36V581.298M549.413 757.36V582.165M532.133 757.36V583.218M514.76 757.36V584.085M497.48 757.36V585.044M480.095 757.36V586.004M462.815 757.36V586.391M445.442 757.36V588.111M428.07 757.36V588.884M410.79 757.36V589.751M393.417 757.36V590.898M376.137 757.36V591.764M358.764 757.36V592.538M341.485 757.36V593.778M324.099 757.36V594.83M306.819 757.36V595.898M289.446 757.36V596.47M272.167 757.36V597.71M254.794 757.36V598.964M237.514 757.36V600.11M220.141 757.36V601.07M202.862 757.36V603.097M185.489 757.36V605.777M168.21 757.36V608.657M150.823 757.36V612.217M133.543 757.36V613.657M116.173 757.36V597.338"/></g><g stroke="teal" stroke-width="7.2"><path stroke-width=".959976" d="M66.446 533.011h9.024M66.446 527.065h9.024M70.766 533.011v-5.952M72.014 523.985v-5.088M72.014 518.905h-.864M71.15 518.905l-.864.384M70.286 519.291l-.384.48M69.902 519.771l-.48.864M69.422 520.625v1.248M69.422 521.878l.48.864M69.902 522.745l.864.864M70.766 523.611l1.248.384M72.014 523.985h.864M72.878 523.985l1.344-.384M74.222 523.611l.864-.864M75.086 522.745l.384-.864M75.47 521.878v-1.248M75.47 520.625l-.384-.864M75.086 519.771l-.864-.864"/></g><g stroke="#c03" stroke-width="7.2"><path stroke-width=".959976" d="M66.446 758.608h9.024M69.422 755.152h6.048M72.014 755.152l-1.248-.383M70.766 754.768l-.864-.864M69.902 753.904l-.48-.864M69.422 753.04v-1.248M69.422 747.856l.48.864M69.902 748.72l.864.865M70.766 749.584l1.248.48M72.014 750.064h.864M72.878 750.064l1.344-.48M74.222 749.584l.864-.864M75.086 748.72l.384-.864M75.47 747.856v-1.248M75.47 746.608l-.384-.864M75.086 745.744l-.864-.864M74.222 744.88l-1.344-.383M72.878 744.497h-.864M72.014 744.497l-1.248.383M70.766 744.88l-.864.865M69.902 745.744l-.48.864M69.422 746.608v1.248M69.422 741.425h6.048M71.15 741.425l-1.248-1.249M69.902 740.177l-.48-.864M69.422 739.313v-1.249M69.422 738.065l.48-.864M69.902 737.2l1.248-.48M71.15 736.72h4.32"/></g><g stroke="#fff"><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M107.533 760.336h788.434M895.964 760.336V456.21M895.964 456.213H107.531M107.533 456.213v304.126M185.489 760.336v-4.416M272.167 760.336V751.6M358.764 760.336v-4.416M445.442 760.336V751.6M532.133 760.336v-4.416M618.718 760.336V751.6M705.409 760.336v-4.416M791.994 760.336V751.6M878.685 760.336v-4.416M185.489 460.626v-4.416M272.167 464.946v-8.736M358.764 460.626v-4.416M445.442 464.946v-8.736M532.133 460.626v-4.416M618.718 464.946v-8.736M705.409 460.626v-4.416M791.994 464.946v-8.736M878.685 460.626v-4.416M262.767 773.776v-.576M262.767 773.2l.576-1.152M263.34 772.048l.672-.576M264.007 771.472l1.152-.576M265.167 770.896h2.304M267.46 770.896l1.152.576M268.62 771.472l.576.576M269.193 772.048l.672 1.152M269.86 773.2v1.151M269.86 774.352l-.672 1.152M269.193 775.504l-1.152 1.824M268.047 777.328l-5.856 5.856M262.18 783.184h8.256M277.446 770.896l-1.824.576M275.62 771.472l-1.152 1.728M274.473 773.2l-.576 2.88M273.9 776.08v1.824M273.9 777.904l.576 2.88M274.473 780.784l1.152 1.823M275.62 782.608l1.824.576M277.446 783.184h1.152M278.606 783.184l1.728-.577M280.326 782.608l1.152-1.824M281.486 780.784l.576-2.88M282.06 777.904v-1.824M282.06 776.08l-.576-2.88M281.486 773.2l-1.152-1.728M280.326 771.472l-1.728-.576M278.606 770.896h-1.152M441.322 770.896l-5.856 8.16M435.456 779.056h8.832M441.322 770.896v12.288M450.722 770.896l-1.728.576M449.002 771.472l-1.248 1.728M447.749 773.2l-.576 2.88M447.175 776.08v1.824M447.175 777.904l.576 2.88M447.749 780.784l1.248 1.823M449.002 782.608l1.728.576M450.722 783.184h1.152M451.882 783.184l1.728-.577M453.602 782.608l1.152-1.824M454.762 780.784l.672-2.88M455.429 777.904v-1.824M455.429 776.08l-.672-2.88M454.762 773.2l-1.152-1.728M453.602 771.472l-1.728-.576M451.882 770.896h-1.152M616.411 772.624l-.576-1.152M615.838 771.472l-1.824-.576M614.011 770.896h-1.152M612.865 770.896l-1.728.576M611.131 771.472l-1.152 1.728M609.985 773.2l-.576 2.88M609.411 776.08v2.976M609.411 779.056l.576 2.304M609.985 781.36l1.152 1.247M611.131 782.608l1.728.576M612.865 783.184h.576M613.438 783.184l1.824-.577M615.265 782.608l1.152-1.248M616.411 781.36l.576-1.729M616.998 779.632v-.576M616.998 779.056l-.576-1.728M616.411 777.328l-1.152-1.248M615.265 776.08l-1.824-.576M613.438 775.504h-.576M612.865 775.504l-1.728.576M611.131 776.08l-1.152 1.248M609.985 777.328l-.576 1.728M623.998 770.896l-1.728.576M622.278 771.472l-1.248 1.728M621.024 773.2l-.576 2.88M620.451 776.08v1.824M620.451 777.904l.576 2.88M621.024 780.784l1.248 1.823M622.278 782.608l1.728.576M623.998 783.184h1.152M625.158 783.184l1.728-.577M626.878 782.608l1.248-1.824M628.131 780.784l.576-2.88M628.704 777.904v-1.824M628.704 776.08l-.576-2.88M628.131 773.2l-1.248-1.728M626.878 771.472l-1.728-.576M625.158 770.896h-1.152M784.994 770.896l-1.728.576M783.26 771.472l-.576 1.152M782.687 772.624v1.151M782.687 773.776l.576 1.152M783.26 774.928l1.152.576M784.407 775.504l2.304.576M786.714 776.08l1.824.672M788.54 776.752l1.152 1.152M789.687 777.904l.576 1.152M790.274 779.056v1.728M790.274 780.784l-.576 1.152M789.687 781.936l-.576.671M789.114 782.608l-1.728.576M787.394 783.184h-2.4M784.994 783.184l-1.728-.577M783.26 782.608l-.576-.672M782.687 781.936l-.576-1.152M782.114 780.784v-1.728M782.114 779.056l.576-1.152M782.687 777.904l1.15-1.152M783.834 776.752l1.728-.672M785.567 776.08l2.4-.576M787.967 775.504l1.152-.576M789.114 774.928l.576-1.152M789.687 773.776v-1.152M789.687 772.624l-.576-1.152M789.114 771.472l-1.728-.576M787.394 770.896h-2.4M797.273 770.896l-1.728.576M795.553 771.472l-1.152 1.728M794.393 773.2l-.576 2.88M793.82 776.08v1.824M793.82 777.904l.576 2.88M794.393 780.784l1.152 1.823M795.553 782.608l1.728.576M797.273 783.184h1.152M798.433 783.184l1.824-.577M800.247 782.608l1.152-1.824M801.407 780.784l.576-2.88M801.98 777.904v-1.824M801.98 776.08l-.576-2.88M801.407 773.2l-1.152-1.728M800.247 771.472l-1.824-.576M798.433 770.896h-1.152M107.533 757.36h8.736M107.533 742.48h4.416M107.533 727.505h4.416M107.533 712.625h4.416M107.533 697.74h4.416M107.533 682.767h8.736M107.533 667.888h4.416M107.533 653.008h4.416M107.533 638.129h4.416M107.533 623.156h4.416M107.533 608.276h8.736M107.533 593.396h4.416M107.533 578.423h4.416M107.533 563.544h4.416M107.533 548.664h4.416M107.533 533.784h8.736M107.533 518.811h4.416M107.533 503.932h4.416M107.533 489.052h4.416M107.533 474.066h4.416M107.533 459.186h8.736M887.231 757.36h8.736M891.644 742.48h4.32M891.644 727.505h4.32M891.644 712.625h4.32M891.644 697.74h4.32M887.231 682.767h8.736M891.644 667.888h4.32M891.644 653.008h4.32M891.644 638.129h4.32M891.644 623.156h4.32M887.231 608.276h8.736M891.644 593.396h4.32M891.644 578.423h4.32M891.644 563.544h4.32M891.644 548.664h4.32M887.231 533.784h8.736M891.644 518.811h4.32M891.644 503.932h4.32M891.644 489.052h4.32M891.644 474.066h4.32M887.231 459.186h8.736M87.758 750.736l-1.728.576M86.03 751.312l-1.152 1.824M84.878 753.136l-.576 2.88M84.302 756.016v1.824M84.302 757.84l.576 2.88M84.878 760.72l1.151 1.728M86.03 762.448l1.728.576M87.758 763.024h1.248M89.006 763.024l1.728-.576M90.734 762.448l1.152-1.728M91.886 760.72l.576-2.88M92.462 757.84v-1.824M92.462 756.016l-.576-2.88M91.886 753.136l-1.152-1.824M90.734 751.312l-1.728-.576M89.006 750.736h-1.248M914.59 750.736l-1.823.576M912.764 751.312l-1.152 1.824M911.604 753.136l-.576 2.88M911.03 756.016v1.824M911.03 757.84l.577 2.88M911.604 760.72l1.152 1.728M912.764 762.448l1.824.576M914.59 763.024h1.152M915.737 763.024l1.728-.576M917.47 762.448l1.152-1.728M918.617 760.72l.672-2.88M919.284 757.84v-1.824M919.284 756.016l-.672-2.88M918.617 753.136l-1.152-1.824M917.47 751.312l-1.728-.576M915.737 750.736h-1.152M58.575 676.248l-1.824.576M56.75 676.82l-1.152 1.729M55.599 678.54l-.576 2.977M55.023 681.527v1.728M55.023 683.247l.576 2.976M55.599 686.22l1.152 1.729M56.75 687.954l1.824.576M58.575 688.527h1.152M59.727 688.527l1.727-.576M61.454 687.954l1.152-1.728M62.606 686.22l.673-2.975M63.278 683.247v-1.728M63.278 681.527l-.672-2.976M62.606 678.54l-1.151-1.727M61.454 676.82l-1.728-.575M59.727 676.248h-1.153M67.886 687.38l-.576.577M67.31 687.954l.576.576M67.886 688.527l.576-.576M68.462 687.954l-.576-.576M76.142 676.248l-1.824.576M74.318 676.82l-1.151 1.729M73.166 678.54l-.576 2.977M72.59 681.527v1.728M72.59 683.247l.576 2.976M73.166 686.22l1.152 1.729M74.318 687.954l1.824.576M76.142 688.527h1.152M77.294 688.527l1.728-.576M79.022 687.954l1.152-1.728M80.174 686.22l.576-2.975M80.75 683.247v-1.728M80.75 681.527l-.576-2.976M80.174 678.54l-1.152-1.727M79.022 676.82l-1.728-.575M77.294 676.248h-1.152M91.31 676.248h-5.856M85.454 676.248l-.576 5.28M84.878 681.527l.576-.576M85.454 680.94l1.727-.575M87.182 680.367h1.824M89.006 680.367l1.728.576M90.734 680.94l1.152 1.153M91.886 682.1l.576 1.729M92.462 683.82v1.153M92.462 684.98l-.576 1.825M91.886 686.807l-1.152 1.152M90.734 687.954l-1.728.576M89.006 688.527h-1.824M87.182 688.527l-1.728-.576M85.454 687.954l-.576-.576M84.878 687.38l-.576-1.151M914.59 676.248l-1.823.576M912.764 676.82l-1.152 1.729M911.604 678.54l-.576 2.977M911.03 681.527v1.728M911.03 683.247l.577 2.976M911.604 686.22l1.152 1.729M912.764 687.954l1.824.576M914.59 688.527h1.152M915.737 688.527l1.728-.576M917.47 687.954l1.152-1.728M918.617 686.22l.672-2.975M919.284 683.247v-1.728M919.284 681.527l-.672-2.976M918.617 678.54l-1.152-1.727M917.47 676.82l-1.728-.575M915.737 676.248h-1.152M923.897 687.38l-.576.577M923.324 687.954l.576.576M923.897 688.527l.576-.576M924.47 687.954l-.576-.576M932.15 676.248l-1.824.576M930.323 676.82l-1.152 1.729M929.177 678.54l-.576 2.977M928.603 681.527v1.728M928.603 683.247l.576 2.976M929.177 686.22l1.152 1.729M930.323 687.954l1.824.576M932.15 688.527h1.152M933.31 688.527l1.728-.576M935.03 687.954l1.152-1.728M936.19 686.22l.576-2.975M936.763 683.247v-1.728M936.763 681.527l-.576-2.976M936.19 678.54l-1.152-1.727M935.03 676.82l-1.728-.575M933.31 676.248h-1.152M947.323 676.248h-5.856M941.47 676.248l-.576 5.28M940.883 681.527l.576-.576M941.47 680.94l1.728-.575M943.19 680.367h1.824M945.016 680.367l1.728.576M946.75 680.94l1.152 1.153M947.896 682.1l.576 1.729M948.47 683.82v1.153M948.47 684.98l-.576 1.825M947.896 686.807l-1.152 1.152M946.75 687.954l-1.728.576M945.016 688.527h-1.824M943.19 688.527l-1.728-.576M941.47 687.954l-.576-.576M940.883 687.38l-.576-1.151M70.286 601.65l-1.824.671M68.462 602.33l-1.152 1.727M67.31 604.05l-.576 2.88M66.734 606.93v1.823M66.734 608.756l.576 2.88M67.31 611.636l1.152 1.728M68.462 613.37l1.824.575M70.286 613.942h1.152M71.438 613.942l1.728-.576M73.166 613.37l1.152-1.729M74.318 611.636l.576-2.88M74.894 608.756v-1.824M74.894 606.93l-.576-2.88M74.318 604.05l-1.151-1.729M73.166 602.33l-1.728-.673M71.438 601.65h-1.152M79.598 612.782l-.576.576M79.022 613.37l.576.575M79.598 613.942l.576-.576M80.174 613.37l-.576-.577M86.03 604.05l1.152-.577M87.182 603.476l1.824-1.824M89.006 601.65v12.287M914.59 601.65l-1.823.671M912.764 602.33l-1.152 1.727M911.604 604.05l-.576 2.88M911.03 606.93v1.823M911.03 608.756l.577 2.88M911.604 611.636l1.152 1.728M912.764 613.37l1.824.575M914.59 613.942h1.152M915.737 613.942l1.728-.576M917.47 613.37l1.152-1.729M918.617 611.636l.672-2.88M919.284 608.756v-1.824M919.284 606.93l-.672-2.88M918.617 604.05l-1.152-1.729M917.47 602.33l-1.728-.673M915.737 601.65h-1.152M923.897 612.782l-.576.576M923.324 613.37l.576.575M923.897 613.942l.576-.576M924.47 613.37l-.576-.577M930.323 604.05l1.152-.577M931.483 603.476l1.824-1.824M933.31 601.65v12.287M58.575 527.158l-1.824.576M56.75 527.731l-1.152 1.728M55.599 529.465l-.576 2.975M55.023 532.438v1.728M55.023 534.171l.576 2.976M55.599 537.144l1.152 1.728M56.75 538.864l1.824.576M58.575 539.451h1.152M59.727 539.451l1.727-.576M61.454 538.864l1.152-1.728M62.606 537.144l.673-2.976M63.278 534.171v-1.728M63.278 532.438l-.672-2.976M62.606 529.465l-1.151-1.728M61.454 527.731l-1.728-.576M59.727 527.158h-1.153M67.886 538.291l-.576.576M67.31 538.864l.576.576M67.886 539.451l.576-.576M68.462 538.864l-.576-.576M74.318 529.465l1.152-.576M75.47 528.891l1.824-1.728M77.294 527.158v12.288M91.31 527.158h-5.856M85.454 527.158l-.576 5.28M84.878 532.438l.576-.576M85.454 531.864l1.727-.575M87.182 531.291h1.824M89.006 531.291l1.728.576M90.734 531.864l1.152 1.152M91.886 533.011l.576 1.728M92.462 534.744v1.152M92.462 535.891l-.576 1.824M91.886 537.718l-1.152 1.152M90.734 538.864l-1.728.576M89.006 539.451h-1.824M87.182 539.451l-1.728-.576M85.454 538.864l-.576-.576M84.878 538.291l-.576-1.152M914.59 527.158l-1.823.576M912.764 527.731l-1.152 1.728M911.604 529.465l-.576 2.975M911.03 532.438v1.728M911.03 534.171l.577 2.976M911.604 537.144l1.152 1.728M912.764 538.864l1.824.576M914.59 539.451h1.152M915.737 539.451l1.728-.576M917.47 538.864l1.152-1.728M918.617 537.144l.672-2.976M919.284 534.171v-1.728M919.284 532.438l-.672-2.976M918.617 529.465l-1.152-1.728M917.47 527.731l-1.728-.576M915.737 527.158h-1.152M923.897 538.291l-.576.576M923.324 538.864l.576.576M923.897 539.451l.576-.576M924.47 538.864l-.576-.576M930.323 529.465l1.152-.576M931.483 528.891l1.824-1.728M933.31 527.158v12.288M947.323 527.158h-5.856M941.47 527.158l-.576 5.28M940.883 532.438l.576-.576M941.47 531.864l1.728-.575M943.19 531.291h1.824M945.016 531.291l1.728.576M946.75 531.864l1.152 1.152M947.896 533.011l.576 1.728M948.47 534.744v1.152M948.47 535.891l-.576 1.824M947.896 537.718l-1.152 1.152M946.75 538.864l-1.728.576M945.016 539.451h-1.824M943.19 539.451l-1.728-.576M941.47 538.864l-.576-.576M940.883 538.291l-.576-1.152M70.286 452.666l-1.824.576M68.462 453.24l-1.152 1.728M67.31 454.973l-.576 2.88M66.734 457.853v1.824M66.734 459.666l.576 2.88M67.31 462.546l1.152 1.728M68.462 464.28l1.824.575M70.286 464.853h1.152M71.438 464.853l1.728-.576M73.166 464.28l1.152-1.728M74.318 462.546l.576-2.88M74.894 459.666v-1.824M74.894 457.853l-.576-2.88M74.318 454.973l-1.151-1.728M73.166 453.24l-1.728-.576M71.438 452.666h-1.152M79.598 463.706l-.576.576M79.022 464.28l.576.575M79.598 464.853l.576-.576M80.174 464.28l-.576-.576M84.878 455.546v-.576M84.878 454.973l.576-1.152M85.454 453.813l.575-.576M86.03 453.24l1.152-.576M87.182 452.666h2.4M89.582 452.666l1.152.576M90.734 453.24l.576.576M91.31 453.813l.576 1.152M91.886 454.973v1.152M91.886 456.12l-.576 1.152M91.31 457.266l-1.152 1.824M90.158 459.093l-5.856 5.76M84.302 464.853h8.16M914.59 452.666l-1.823.576M912.764 453.24l-1.152 1.728M911.604 454.973l-.576 2.88M911.03 457.853v1.824M911.03 459.666l.577 2.88M911.604 462.546l1.152 1.728M912.764 464.28l1.824.575M914.59 464.853h1.152M915.737 464.853l1.728-.576M917.47 464.28l1.152-1.728M918.617 462.546l.672-2.88M919.284 459.666v-1.824M919.284 457.853l-.672-2.88M918.617 454.973l-1.152-1.728M917.47 453.24l-1.728-.576M915.737 452.666h-1.152M923.897 463.706l-.576.576M923.324 464.28l.576.575M923.897 464.853l.576-.576M924.47 464.28l-.576-.576M929.177 455.546v-.576M929.177 454.973l.576-1.152M929.75 453.813l.576-.576M930.323 453.24l1.152-.576M931.483 452.666h2.4M933.883 452.666l1.152.576M935.03 453.24l.576.576M935.603 453.813l.576 1.152M936.19 454.973v1.152M936.19 456.12l-.576 1.152M935.603 457.266l-1.152 1.824M934.457 459.093l-5.856 5.76M928.603 464.853h8.16"/></g><g stroke-width="14.4"><path stroke-width="1.919952" d="M420.296 826.094v10.272M420.296 829.07l2.112-2.208M422.403 826.862l1.536-.767M423.936 826.094h2.112M426.056 826.094l1.536.768M427.59 826.862l.671 2.209M428.256 829.07v7.296M428.256 829.07l2.208-2.208M430.47 826.862l1.44-.767M431.91 826.094h2.207M434.122 826.094l1.44.768M435.562 826.862l.768 2.209M436.322 829.07v7.296M445.056 826.094l-1.44.768M443.616 826.862l-1.44 1.44M442.176 828.302l-.768 2.209M441.416 830.51v1.44M441.416 831.95l.768 2.208M442.176 834.158l1.44 1.44M443.616 835.598l1.44.768M445.056 836.366h2.207M447.269 836.366l1.536-.767M448.802 835.598l1.44-1.44M450.242 834.158l.672-2.208M450.922 831.95v-1.44M450.922 830.51l-.672-2.208M450.242 828.302l-1.44-1.44M448.802 826.862l-1.536-.767M447.269 826.094h-2.208M464.068 821.007v15.36M464.068 828.302l-1.44-1.44M462.628 826.862l-1.44-.767M461.188 826.094h-2.207M458.975 826.094l-1.44.768M457.535 826.862l-1.44 1.44M456.095 828.302l-.768 2.209M455.335 830.51v1.44M455.335 831.95l.768 2.208M456.095 834.158l1.44 1.44M457.535 835.598l1.44.768M458.975 836.366h2.208M461.188 836.366l1.44-.767M462.628 835.598l1.44-1.44M469.255 830.51h8.736M477.988 830.51v-1.44M477.988 829.07l-.672-1.44M477.321 827.63l-.768-.768M476.548 826.862l-1.44-.767M475.108 826.094H472.9M472.895 826.094l-1.44.768M471.455 826.862l-1.536 1.44M469.922 828.302l-.672 2.209M469.255 830.51v1.44M469.255 831.95l.672 2.208M469.922 834.158l1.536 1.44M471.455 835.598l1.44.768M472.895 836.366h2.208M475.108 836.366l1.44-.767M476.548 835.598l1.44-1.44M483.081 821.007v15.36M486.055 837.806h13.151M502.854 826.094v10.272M502.854 829.07l2.208-2.208M505.054 826.862l1.44-.767M506.494 826.094h2.208M508.707 826.094l1.44.768M510.147 826.862l.768 2.209M510.92 829.07v7.296M516.774 826.094v7.393M516.774 833.487l.672 2.111M517.44 835.598l1.536.768M518.974 836.366h2.112M521.094 836.366l1.536-.767M522.627 835.598l2.208-2.111M524.84 826.094v10.272M530.6 826.094v10.272M530.6 829.07l2.208-2.208M532.8 826.862l1.536-.767M534.333 826.094h2.112M536.453 826.094l1.536.768M537.987 826.862l.672 2.209M538.653 829.07v7.296M538.653 829.07l2.208-2.208M540.866 826.862l1.44-.767M542.306 826.094h2.208M544.52 826.094l1.44.768M545.96 826.862l.768 2.209M546.72 829.07v7.296M552.573 821.007v15.36M552.573 828.302l1.44-1.44M554.013 826.862l1.44-.767M555.453 826.094h2.208M557.666 826.094l1.44.768M559.106 826.862l1.536 1.44M560.64 828.302l.671 2.209M561.32 830.51v1.44M561.32 831.95l-.673 2.208M560.64 834.158l-1.537 1.44M559.106 835.598l-1.44.768M557.666 836.366h-2.208M555.453 836.366l-1.44-.767M554.013 835.598l-1.44-1.44M565.733 830.51h8.735M574.466 830.51v-1.44M574.466 829.07l-.672-1.44M573.799 827.63l-.768-.768M573.026 826.862l-1.44-.767M571.586 826.094h-2.208M569.372 826.094l-1.44.768M567.932 826.862l-1.44 1.44M566.493 828.302l-.768 2.209M565.733 830.51v1.44M565.733 831.95l.768 2.208M566.493 834.158l1.44 1.44M567.932 835.598l1.44.768M569.372 836.366h2.208M571.586 836.366l1.44-.767M573.026 835.598l1.44-1.44M579.652 826.094v10.272M579.652 830.51l.672-2.208M580.319 828.302l1.536-1.44M581.852 826.862l1.44-.767M583.292 826.094h2.208M18.544 636.889h15.36M18.544 636.889l15.36-5.856M18.544 625.169l15.36 5.856M18.544 625.169h15.36M15.568 607.61l23.423 13.15M18.544 603.183h15.36M18.544 603.183l15.36-5.76M18.544 591.57l15.36 5.856M18.544 591.57h15.36M31.12 582.063l.575 1.632M31.695 583.703l1.056 1.632M32.751 585.33l1.632 1.056M34.383 586.383l1.728.576M36.111 586.97h1.632M37.743 586.97l1.632-.576M39.375 586.383l1.632-1.056M41.007 585.33l1.056-1.632M42.063 583.703l.576-1.632M42.639 582.063v-1.728M42.639 580.343l-.576-1.632M42.063 578.703l-1.056-1.632M41.007 577.077l-1.632-1.056M39.375 576.023l-1.632-.576M37.743 575.45h-1.632M36.111 575.45l-1.728.576M34.383 576.023l-1.632 1.056M32.751 577.077l-1.056 1.632M31.695 578.703l-.576 1.632M31.12 580.343v1.728M36.111 581.49l.48.576M36.591 582.063h.576M37.167 582.063l.576-.576M37.743 581.49v-.576M37.743 580.917l-.575-.576M37.167 580.343h-.576M36.591 580.343l-.48.576M36.111 580.917v.576M36.591 581.49h.576M37.167 581.49v-.576M37.167 580.917h-.576M36.591 580.917v.576"/></g><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M483.081 420.214v13.344M491.908 420.214l-8.832 8.928M486.241 425.974l5.664 7.584M495.748 420.214l.672.672M496.414 420.894l.576-.672M497 420.214l-.575-.576M496.414 419.64l-.672.577M496.414 424.734v8.832M501.414 424.734v13.248M501.414 426.547l1.344-1.248M502.76 425.307l1.249-.576M504 424.734h1.92M505.92 424.734l1.249.576M507.174 425.307l1.248 1.248M508.414 426.547l.672 1.92M509.094 428.467v1.248M509.094 429.72l-.672 1.92M508.414 431.64l-1.248 1.248M507.174 432.894l-1.248.672M505.92 433.56H504M504 433.56l-1.247-.672M502.76 432.894l-1.343-1.248M513.507 424.734v13.248M513.507 426.547l1.248-1.248M514.76 425.307l1.248-.576M516 424.734h1.92M517.92 424.734l1.248.576M519.174 425.307l1.248 1.248M520.414 426.547l.672 1.92M521.094 428.467v1.248M521.094 429.72l-.672 1.92M520.414 431.64l-1.248 1.248M519.174 432.894l-1.248.672M517.92 433.56H516M516 433.56l-1.248-.672M514.76 432.894l-1.248-1.248"/></g></g><g stroke="#87cefa" stroke-width="7.2"><path stroke-width=".959976" d="m154.29 789.807-.96-.96M153.33 788.847l-.96-.48M152.37 788.367h-1.536M150.823 788.367l-.96.48M149.863 788.847l-.96.96M148.903 789.807l-.48 1.44M148.423 791.247v1.056M148.423 792.303l.48 1.44M148.903 793.743l.96.96M149.863 794.703l.96.48M150.823 795.183h1.536M152.37 795.183l.96-.48M153.33 794.703l.96-.96M159.663 788.367l-.96.48M158.703 788.847l-1.056.96M157.65 789.807l-.48 1.44M157.17 791.247v1.056M157.17 792.303l.48 1.44M157.65 793.743l1.055.96M158.703 794.703l.96.48M159.663 795.183h1.44M161.103 795.183l.96-.48M162.063 794.703l.96-.96M163.023 793.743l.48-1.44M163.503 792.303v-1.055M163.503 791.247l-.48-1.44M163.023 789.807l-.96-.96M162.063 788.847l-.96-.48M161.103 788.367h-1.44M166.956 788.367v6.816M166.956 790.287l1.44-1.44M168.396 788.847l.96-.48M169.356 788.367h1.44M170.796 788.367l1.056.48M171.849 788.847l.48 1.44M172.329 790.287v4.896M175.209 788.367l2.976 6.816M181.062 788.367l-2.88 6.816"/></g><g stroke="#06f" stroke-width="7.2"><path stroke-width=".959976" d="M314.125 784.911v10.272M317.579 791.247h5.856M323.432 791.247v-.96M323.432 790.287l-.576-.96M322.859 789.327l-.48-.48M322.379 788.847l-.96-.48M321.419 788.367h-1.44M319.979 788.367l-.96.48M319.019 788.847l-.96.96M318.059 789.807l-.48 1.44M317.579 791.247v1.056M317.579 792.303l.48 1.44M318.059 793.743l.96.96M319.019 794.703l.96.48M319.979 795.183h1.44M321.419 795.183l.96-.48M322.379 794.703l1.056-.96M329.765 784.911h-1.056M328.712 784.911l-.96.48M327.752 785.391l-.48 1.536M327.272 786.927v8.257M325.832 788.367h3.36M333.125 784.911v8.352M333.125 793.263l.48 1.44M333.605 794.703l.96.48M334.565 795.183h.96M331.685 788.367h3.36"/></g><g stroke="#f5f5dd" stroke-width="7.2"><path stroke-width=".959976" d="m489.601 788.367-.96.48M488.641 788.847l-1.056.96M487.588 789.807l-.48 1.44M487.108 791.247v1.056M487.108 792.303l.48 1.44M487.588 793.743l1.056.96M488.641 794.703l.96.48M489.601 795.183h1.44M491.041 795.183l.96-.48M492.001 794.703l.96-.96M492.961 793.743l.48-1.44M493.441 792.303v-1.055M493.441 791.247l-.48-1.44M492.961 789.807l-.96-.96M492.001 788.847l-.96-.48M491.041 788.367h-1.44M495.934 788.367l2.88 6.816M501.8 788.367l-2.975 6.816M504.2 791.247h5.857M510.054 791.247v-.96M510.054 790.287l-.48-.96M509.574 789.327l-.48-.48M509.094 788.847l-.96-.48M508.134 788.367h-1.536M506.6 788.367l-.96.48M505.64 788.847l-.96.96M504.68 789.807l-.48 1.44M504.2 791.247v1.056M504.2 792.303l.48 1.44M504.68 793.743l.96.96M505.64 794.703l.96.48M506.6 795.183h1.537M508.134 795.183l.96-.48M509.094 794.703l.96-.96M513.507 788.367v6.816M513.507 791.247l.48-1.44M513.987 789.807l.96-.96M514.947 788.847l.96-.48M515.907 788.367h1.44"/></g><g stroke="#708090" stroke-width="7.2"><path stroke-width=".959976" d="m668.157 789.807-.48-.96M667.677 788.847l-1.44-.48M666.237 788.367h-1.44M664.797 788.367l-1.44.48M663.357 788.847l-.48.96M662.877 789.807l.48.96M663.357 790.767l.96.48M664.317 791.247l2.4.48M666.717 791.727l.96.576M667.677 792.303l.48.96M668.157 793.263v.48M668.157 793.743l-.48.96M667.677 794.703l-1.44.48M666.237 795.183h-1.44M664.797 795.183l-1.44-.48M663.357 794.703l-.48-.96M671.13 791.247h5.856M676.996 791.247v-.96M676.996 790.287l-.48-.96M676.516 789.327l-.48-.48M676.036 788.847l-.96-.48M675.076 788.367h-1.536M673.53 788.367l-.96.48M672.57 788.847l-.96.96M671.61 789.807l-.48 1.44M671.13 791.247v1.056M671.13 792.303l.48 1.44M671.61 793.743l.96.96M672.57 794.703l.96.48M673.53 795.183h1.536M675.076 795.183l.96-.48M676.036 794.703l.96-.96M680.356 788.367v6.816M680.356 790.287l1.536-1.44M681.89 788.847l.96-.48M682.85 788.367h1.44M684.29 788.367l.96.48M685.25 788.847l.48 1.44M685.73 790.287v4.896M685.73 790.287l1.44-1.44M687.17 788.847l1.055-.48M688.223 788.367h1.44M689.663 788.367l.96.48M690.623 788.847l.48 1.44M691.103 790.287v4.896M694.556 784.911l.48.48M695.036 785.391l.48-.48M695.516 784.911l-.48-.48M695.036 784.432l-.48.48M695.036 788.367v6.816"/></g><g stroke="#c9f" stroke-width="7.2"><path stroke-width=".959976" d="M822.913 784.911v8.352M822.913 793.263l.48 1.44M823.393 794.703l1.056.48M824.446 795.183h.96M821.473 788.367h3.456M828.286 784.911v10.272M828.286 790.287l1.44-1.44M829.726 788.847l1.056-.48M830.78 788.367h1.44M832.22 788.367l.96.48M833.18 788.847l.48 1.44M833.66 790.287v4.896M837.592 788.367v6.816M837.592 791.247l.48-1.44M838.072 789.807l.96-.96M839.032 788.847l.96-.48M839.992 788.367h1.44M843.926 788.367v6.816M843.926 790.287l1.44-1.44M845.366 788.847l.96-.48M846.326 788.367h1.44M847.765 788.367l.96.48M848.725 788.847l.576 1.44M849.312 790.287v4.896M849.312 790.287l1.44-1.44M850.752 788.847l.96-.48M851.712 788.367h1.44M853.152 788.367l.96.48M854.112 788.847l.48 1.44M854.592 790.287v4.896"/></g><g stroke="#cd5c5c" stroke-width="7.2"><path stroke-width=".959976" d="M763.194 784.911v10.272M763.194 784.911h4.416M767.607 784.911l1.44.48M769.047 785.391l.48.577M769.527 785.967l.48.96M770.007 786.927v.96M770.007 787.887l-.48.96M769.527 788.847l-.48.48M769.047 789.327l-1.44.48M767.607 789.807h-4.415M766.648 789.807l3.36 5.376M775.394 784.911v10.272M772.034 784.911h6.816M781.247 784.911v10.272"/></g><g stroke="#ff4b4b" stroke-width="7.2"><path stroke-width=".959976" d="M215.248 800.751v10.272M215.248 805.647l.96-.96M216.208 804.687l.96-.48M217.168 804.207h1.536M218.701 804.207l.96.48M219.661 804.687l.96.96M220.621 805.647l.48 1.44M221.101 807.087v1.056M221.101 808.143l-.48 1.44M220.621 809.583l-.96.96M219.661 810.543l-.96.48M218.701 811.023h-1.536M217.168 811.023l-.96-.48M216.208 810.543l-.96-.96M224.554 804.207v4.896M224.554 809.103l.48 1.44M225.034 810.543l.96.48M225.994 811.023h1.44M227.434 811.023l.96-.48M228.394 810.543l1.44-1.44M229.834 804.207v6.816M233.767 804.207v6.816M233.767 807.087l.48-1.44M234.247 805.647l.96-.96M235.207 804.687l.96-.48M236.167 804.207h1.536M240.1 804.207v6.816M240.1 806.127l1.44-1.44M241.54 804.687l.96-.48M242.5 804.207h1.537M244.047 804.207l.96.48M245.007 804.687l.48 1.44M245.487 806.127v4.896M248.847 800.751l.48.48M249.327 801.231l.576-.48M249.9 800.751l-.576-.48M249.327 800.271l-.48.48M249.327 804.207v6.816M253.26 804.207v6.816M253.26 806.127l1.44-1.44M254.7 804.687l.96-.48M255.66 804.207h1.536M257.194 804.207l.96.48M258.154 804.687l.48 1.44M258.634 806.127v4.896M267.847 804.207v7.776M267.847 811.983l-.48 1.44M267.367 813.423l-.48.48M266.887 813.903l-.96.576M265.927 814.479h-1.44M264.487 814.479l-.96-.576M267.847 805.647l-.96-.96M266.887 804.687l-.96-.48M265.927 804.207h-1.44M264.487 804.207l-.96.48M263.527 804.687l-.96.96M262.567 805.647l-.576 1.44M261.993 807.087v1.056M261.993 808.143l.576 1.44M262.567 809.583l.96.96M263.527 810.543l.96.48M264.487 811.023h1.44M265.927 811.023l.96-.48M266.887 810.543l.96-.96"/></g><g stroke="#3838ff" stroke-width="7.2"><path stroke-width=".959976" d="m734.595 805.647-.96-.96M733.635 804.687l-.96-.48M732.675 804.207h-1.536M731.128 804.207l-.96.48M730.168 804.687l-.96.96M729.208 805.647l-.48 1.44M728.728 807.087v1.056M728.728 808.143l.48 1.44M729.208 809.583l.96.96M730.168 810.543l.96.48M731.128 811.023h1.536M732.675 811.023l.96-.48M733.635 810.543l.96-.96M739.968 804.207l-.96.48M739.008 804.687l-1.056.96M737.955 805.647l-.48 1.44M737.475 807.087v1.056M737.475 808.143l.48 1.44M737.955 809.583l1.056.96M739.008 810.543l.96.48M739.968 811.023h1.44M741.408 811.023l.96-.48M742.368 810.543l.96-.96M743.328 809.583l.48-1.44M743.808 808.143v-1.056M743.808 807.087l-.48-1.44M743.328 805.647l-.96-.96M742.368 804.687l-.96-.48M741.408 804.207h-1.44M749.181 804.207l-.96.48M748.221 804.687l-.96.96M747.261 805.647l-.48 1.44M746.781 807.087v1.056M746.781 808.143l.48 1.44M747.261 809.583l.96.96M748.221 810.543l.96.48M749.181 811.023h1.44M750.621 811.023l1.056-.48M751.675 810.543l.96-.96M752.635 809.583l.48-1.44M753.115 808.143v-1.056M753.115 807.087l-.48-1.44M752.635 805.647l-.96-.96M751.675 804.687l-1.056-.48M750.621 804.207h-1.44M756.474 800.751v10.272M759.928 800.751l.48.48M760.408 801.231l.48-.48M760.888 800.751l-.48-.48M760.408 800.271l-.48.48M760.408 804.207v6.816M764.354 804.207v6.816M764.354 806.127l1.44-1.44M765.794 804.687l.96-.48M766.754 804.207h1.44M768.194 804.207l.96.48M769.154 804.687l.48 1.44M769.634 806.127v4.896M778.94 804.207v7.776M778.94 811.983l-.48 1.44M778.46 813.423l-.48.48M777.98 813.903l-.96.576M777.02 814.479h-1.535M775.487 814.479l-.96-.576M778.94 805.647l-.96-.96M777.98 804.687l-.96-.48M777.02 804.207h-1.535M775.487 804.207l-.96.48M774.527 804.687l-.96.96M773.567 805.647l-.48 1.44M773.087 807.087v1.056M773.087 808.143l.48 1.44M773.567 809.583l.96.96M774.527 810.543l.96.48M775.487 811.023h1.536M777.02 811.023l.96-.48M777.98 810.543l.96-.96"/></g><g stroke="#fff"><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M1092.56 794.127h420.376M1512.896 794.127V481.562M1512.896 481.56h-420.377M1092.56 481.56v312.565M1092.56 794.127v-7.583M1113.585 794.127v-3.84M1134.612 794.127v-3.84M1155.638 794.127v-3.84M1176.664 794.127v-3.84M1197.677 794.127v-7.583M1218.703 794.127v-3.84M1239.729 794.127v-3.84M1260.755 794.127v-3.84M1281.781 794.127v-3.84M1302.794 794.127v-7.583M1323.82 794.127v-3.84M1344.9 794.127v-3.84M1365.833 794.127v-3.84M1386.765 794.127v-3.84M1407.831 794.127v-7.583M1428.898 794.127v-3.84M1449.83 794.127v-3.84M1470.897 794.127v-3.84M1491.963 794.127v-3.84M1512.896 794.127v-7.583M1092.56 489.146v-7.584M1113.585 485.399v-3.84M1134.612 485.399v-3.84M1155.638 485.399v-3.84M1176.664 485.399v-3.84M1197.677 489.146v-7.584M1218.703 485.399v-3.84M1239.729 485.399v-3.84M1260.755 485.399v-3.84M1281.781 485.399v-3.84M1302.794 489.146v-7.584M1323.82 485.399v-3.84M1344.9 485.399v-3.84M1365.833 485.399v-3.84M1386.765 485.399v-3.84M1407.831 489.146v-7.584M1428.898 485.399v-3.84M1449.83 485.399v-3.84M1470.897 485.399v-3.84M1491.963 485.399v-3.84M1512.896 489.146v-7.584M1094.106 803.247l-5.088 7.103M1089.013 810.35h7.68M1094.106 803.247v10.656M1187.504 803.247h5.568M1193.077 803.247l-2.976 4.032M1190.104 807.279h1.536M1191.637 807.279l.96.576M1192.597 807.855l.48.48M1193.077 808.335l.576 1.536M1193.65 809.87v.96M1193.65 810.83l-.576 1.537M1193.077 812.367l-.96 1.056M1192.117 813.423l-1.536.48M1190.584 813.903h-1.536M1189.037 813.903l-1.536-.48M1187.504 813.423l-.479-.576M1187.024 812.847l-.482-.96M1197.677 812.847l-.48.576M1197.197 813.423l.48.48M1197.677 813.903l.48-.48M1198.157 813.423l-.48-.576M1208.343 806.799l-.48 1.536M1207.863 808.335l-1.056.96M1206.796 809.295l-1.535.576M1205.263 809.87h-.48M1204.783 809.87l-1.536-.575M1203.25 809.295l-.96-.96M1202.29 808.335l-.576-1.536M1201.717 806.799v-.48M1201.717 806.319l.576-1.536M1202.29 804.783l.96-1.056M1203.25 803.727l1.536-.48M1204.783 803.247h.48M1205.263 803.247l1.536.48M1206.796 803.727l1.056 1.056M1207.863 804.783l.48 2.016M1208.343 806.799v2.496M1208.343 809.295l-.48 2.592M1207.863 811.887l-1.056 1.536M1206.796 813.423l-1.535.48M1205.263 813.903h-.96M1204.303 813.903l-1.536-.48M1202.77 813.423l-.48-1.056M1292.621 803.247h5.568M1298.194 803.247l-3.072 4.032M1295.114 807.279h1.536M1296.66 807.279l1.057.576M1297.714 807.855l.48.48M1298.194 808.335l.48 1.536M1298.674 809.87v.96M1298.674 810.83l-.48 1.537M1298.194 812.367l-.96 1.056M1297.234 813.423l-1.536.48M1295.7 813.903h-1.535M1294.154 813.903l-1.536-.48M1292.621 813.423l-.48-.576M1292.141 812.847l-.48-.96M1302.794 812.847l-.576.576M1302.22 813.423l.577.48M1302.794 813.903l.48-.48M1303.274 813.423l-.48-.576M1309.327 803.247l-1.536.48M1307.794 803.727l-.48 1.056M1307.314 804.783v.96M1307.314 805.743l.48 1.056M1307.794 806.799l1.056.48M1308.847 807.279l2.016.576M1310.86 807.855l1.537.48M1312.394 808.335l1.056.96M1313.46 809.295l.48 1.056M1313.94 810.35v1.537M1313.94 811.887l-.48.96M1313.46 812.847l-.575.576M1312.874 813.423l-1.536.48M1311.34 813.903h-2.015M1309.327 813.903l-1.536-.48M1307.794 813.423l-.48-.576M1307.314 812.847l-.481-.96M1306.834 811.887v-1.537M1306.834 810.35l.481-1.055M1307.314 809.295l1.055-.96M1308.367 808.335l1.536-.48M1309.9 807.855l2.015-.576M1311.914 807.279l.96-.48M1312.874 806.799l.574-1.056M1313.46 805.743v-.96M1313.46 804.783l-.575-1.056M1312.874 803.727l-1.537-.48M1311.34 803.247h-2.015M1397.698 803.247h5.574M1403.298 803.247l-3.08 4.032M1400.232 807.279h1.546M1401.832 807.279l1.053.576M1402.898 807.855l.48.48M1403.298 808.335l.48 1.536M1403.832 809.87v.96M1403.832 810.83l-.48 1.537M1403.298 812.367l-1.053 1.056M1402.232 813.423l-1.547.48M1400.765 813.903h-1.44M1399.298 813.903l-1.533-.48M1397.698 813.423l-.573-.576M1397.165 812.847l-.48-.96M1407.831 812.847l-.48.576M1407.298 813.423l.48.48M1407.831 813.903l.574-.48M1408.365 813.423l-.574-.576M1418.898 803.247l-4.987 10.656M1411.965 803.247h7M1502.762 803.247h5.574M1508.362 803.247l-2.986 4.032M1505.296 807.279h1.546M1506.896 807.279l.96.576M1507.829 807.855l.48.48M1508.362 808.335l.574 1.536M1508.896 809.87v.96M1508.896 810.83l-.574 1.537M1508.362 812.367l-.96 1.056M1507.429 813.423l-1.547.48M1505.829 813.903h-1.533M1504.23 813.903l-1.534-.48M1502.762 813.423l-.48-.576M1502.23 812.847l-.48-.96M1512.896 812.847l-.48.576M1512.496 813.423l.48.48M1512.896 813.903l.48-.48M1513.429 813.423l-.48-.576M1523.562 804.783l-.48-1.056M1523.162 803.727l-1.533-.48M1521.562 803.247h-1.053M1520.495 803.247l-1.533.48M1519.029 803.727l-.96 1.536M1518.095 805.263l-.48 2.592M1517.562 807.855v2.496M1517.562 810.35l.48 2.017M1518.095 812.367l.96 1.056M1519.029 813.423l1.533.48M1520.495 813.903h.48M1521.029 813.903l1.533-.48M1522.495 813.423l1.054-1.056M1523.562 812.367l.48-1.536M1524.095 810.83v-.48M1524.095 810.35l-.48-1.535M1523.562 808.815l-1.053-.96M1522.495 807.855l-1.533-.576M1521.029 807.279h-.48M1520.495 807.279l-1.533.576M1519.029 807.855l-.96.96M1518.095 808.815l-.48 1.536M1092.56 794.127h3.84M1092.56 755.056h7.68M1092.56 715.985h3.84M1092.56 676.914h7.68M1092.56 637.849h3.84M1092.56 598.77h7.68M1092.56 559.704h3.84M1092.56 520.625h7.68M1509.029 794.127h3.84M1505.296 755.056h7.586M1509.029 715.985h3.84M1505.296 676.914h7.586M1509.029 637.849h3.84M1505.296 598.77h7.586M1509.029 559.704h3.84M1505.296 520.625h7.586M1060.307 749.392l-1.536.48M1058.774 749.872l-1.056 1.536M1057.72 751.408l-.48 2.496M1057.24 753.904v1.536M1057.24 755.44l.48 2.496M1057.72 757.936l1.056 1.536M1058.774 759.472l1.535.48M1060.307 759.952h.96M1061.267 759.952l1.536-.48M1062.8 759.472l1.056-1.536M1063.867 757.936l.48-2.496M1064.347 755.44v-1.536M1064.347 753.904l-.48-2.496M1063.867 751.408l-1.056-1.535M1062.8 749.872l-1.536-.48M1061.267 749.392h-.96M1068.373 758.992l-.48.48M1067.893 759.472l.48.48M1068.373 759.952l.48-.48M1068.853 759.472l-.48-.48M1079.026 750.832l-.48-.96M1078.546 749.872l-1.536-.48M1077.013 749.392h-1.056M1075.96 749.392l-1.44.48M1074.52 749.872l-1.056 1.536M1073.466 751.408l-.48 2.496M1072.987 753.904v2.592M1072.987 756.496l.48 2.016M1073.466 758.512l1.056.96M1074.52 759.472l1.44.48M1075.96 759.952h.576M1076.533 759.952l1.536-.48M1078.066 759.472l.96-.96M1079.026 758.512l.48-1.536M1079.506 756.976v-.48M1079.506 756.496l-.48-1.536M1079.026 754.96l-.96-1.056M1078.066 753.904l-1.536-.48M1076.533 753.424h-.576M1075.96 753.424l-1.44.48M1074.52 753.904l-1.056 1.057M1073.466 754.96l-.48 1.536M1060.307 671.248l-1.536.48M1058.774 671.728l-1.056 1.536M1057.72 673.261l-.48 2.496M1057.24 675.768v1.536M1057.24 677.3l.48 2.497M1057.72 679.794l1.056 1.536M1058.774 681.327l1.535.48M1060.307 681.807h.96M1061.267 681.807l1.536-.48M1062.8 681.327l1.056-1.536M1063.867 679.794l.48-2.496M1064.347 677.3v-1.535M1064.347 675.768l-.48-2.496M1063.867 673.261l-1.056-1.536M1062.8 671.728l-1.536-.48M1061.267 671.248h-.96M1068.373 680.847l-.48.48M1067.893 681.327l.48.48M1068.373 681.807l.48-.48M1068.853 681.327l-.48-.48M1075 671.248l-1.536.48M1073.466 671.728l-.48.96M1072.987 672.688v1.056M1072.987 673.74l.48 1.057M1073.466 674.808l1.056.48M1074.52 675.288l2.016.48M1076.533 675.768l1.536.48M1078.066 676.248l.96 1.056M1079.026 677.3l.48 1.057M1079.506 678.354v1.44M1079.506 679.794l-.48 1.056M1079.026 680.847l-.48.48M1078.546 681.327l-1.536.48M1077.013 681.807h-2.016M1075 681.807l-1.536-.48M1073.466 681.327l-.48-.48M1072.987 680.847l-.576-1.056M1072.4 679.794v-1.44M1072.4 678.354l.576-1.056M1072.987 677.3l.96-1.055M1073.946 676.248l1.536-.48M1075.48 675.768l2.016-.48M1077.493 675.288l1.056-.48M1078.546 674.808l.48-1.056M1079.026 673.74v-1.055M1079.026 672.688l-.48-.96M1078.546 671.728l-1.536-.48M1077.013 671.248h-2.016M1073.946 595.13l1.056-.576M1075 594.543l1.536-1.44M1076.533 593.103v10.56M1058.774 516.985l.96-.576M1059.734 516.412l1.535-1.44M1061.267 514.972v10.56M1068.373 524.571l-.48.48M1067.893 525.051l.48.48M1068.373 525.531l.48-.48M1068.853 525.051l-.48-.48M1072.987 517.465v-.48M1072.987 516.985l.48-1.056M1073.466 515.932l.48-.48M1073.946 515.452l1.056-.48M1075 514.972h2.016M1077.013 514.972l1.056.48M1078.066 515.452l.48.48M1078.546 515.932l.48 1.056M1079.026 516.985v.96M1079.026 517.945l-.48 1.056M1078.546 518.998l-1.056 1.536M1077.493 520.531l-5.088 4.992M1072.4 525.531h7.104"/></g><g stroke-width="14.4"><path stroke-width="1.919952" d="M1267.275 826.094v13.344M1274.861 830.606l-1.248.576M1273.621 831.182l-1.247 1.248M1272.368 832.43l-.672 1.92M1271.702 834.35v1.248M1271.702 835.598l.672 1.92M1272.368 837.518l1.248 1.248M1273.621 838.766l1.248.672M1274.861 839.438h1.92M1276.781 839.438l1.248-.672M1278.035 838.766l1.248-1.248M1279.275 837.518l.672-1.92M1279.955 835.598v-1.248M1279.955 834.35l-.672-1.92M1279.275 832.43l-1.248-1.248M1278.035 831.182l-1.248-.576M1276.781 830.606h-1.92M1291.381 830.606v10.08M1291.381 840.686l-.672 1.92M1290.701 842.606l-.576.672M1290.128 843.278l-1.344.576M1288.781 843.854h-1.824M1286.954 843.854l-1.343-.576M1291.381 832.43l-1.248-1.248M1290.128 831.182l-1.344-.576M1288.781 830.606h-1.824M1286.954 830.606l-1.343.576M1285.621 831.182l-1.248 1.248M1284.368 832.43l-.576 1.92M1283.795 834.35v1.248M1283.795 835.598l.576 1.92M1284.368 837.518l1.248 1.248M1285.621 838.766l1.344.672M1286.954 839.438h1.824M1288.781 839.438l1.344-.672M1290.128 838.766l1.248-1.248M1309.14 826.094v13.344M1304.62 826.094h8.928M1316.047 834.35h7.584M1323.634 834.35v-1.248M1323.634 833.102l-.576-1.248M1323.06 831.854l-.672-.671M1322.38 831.182l-1.248-.576M1321.14 830.606h-1.92M1319.22 830.606l-1.248.576M1317.967 831.182l-1.248 1.248M1316.714 832.43l-.672 1.92M1316.047 834.35v1.248M1316.047 835.598l.672 1.92M1316.714 837.518l1.248 1.248M1317.967 838.766l1.248.672M1319.22 839.438h1.92M1321.14 839.438l1.248-.672M1322.38 838.766l1.248-1.248M1331.887 826.094h-1.248M1330.633 826.094l-1.248.672M1329.393 826.766l-.672 1.92M1328.713 828.686v10.752M1326.793 830.606h4.512M1339.433 826.094h-1.253M1338.233 826.094l-1.24.672M1337.033 826.766l-.68 1.92M1336.233 828.686v10.752M1334.5 830.606h4.427M1015.481 677.78h13.248M1019.895 670.194l.671 1.248M1020.561 671.448l1.248 1.344M1021.814 672.781l1.92.576M1023.734 673.368h1.248M1024.988 673.368l1.92-.576M1026.908 672.781l1.248-1.344M1028.148 671.448l.576-1.248M1028.72 670.194v-1.92M1028.72 668.274l-.575-1.248M1028.148 667.021l-1.248-1.248M1026.908 665.781l-1.92-.672M1024.988 665.101h-1.248M1023.734 665.101l-1.92.672M1021.814 665.781l-1.248 1.248M1020.561 667.021l-.672 1.248M1019.895 668.274v1.92M1019.895 653.781h10.175M1030.068 653.781l1.824.576M1031.894 654.355l.672.672M1032.56 655.021l.673 1.248M1033.24 656.275v1.92M1033.24 658.195l-.671 1.248M1021.814 653.781l-1.248 1.248M1020.561 655.021l-.672 1.248M1019.895 656.275v1.92M1019.895 658.195l.671 1.248M1020.561 659.448l1.248 1.248M1021.814 660.688l1.92.672M1023.734 661.368h1.248M1024.988 661.368l1.92-.672M1026.908 660.688l1.248-1.248M1028.148 659.448l.576-1.248M1028.72 658.195v-1.92M1028.72 656.275l-.575-1.248M1028.148 655.021l-1.248-1.248M1015.481 638.515h13.248M1028.72 638.515v-7.584M1012.881 617.582l20.352 11.424M1015.481 613.85h13.248M1028.72 613.85v-7.585M1026.428 599.93l.48 1.44M1026.908 601.37l.864 1.343M1027.761 602.703l1.44.96M1029.2 603.663l1.44.48M1030.64 604.143h1.44M1032.08 604.143l1.44-.48M1033.52 603.663l1.44-.96M1034.96 602.703l.96-1.344M1035.92 601.37l.48-1.44M1036.4 599.93v-1.44M1036.4 598.49l-.48-1.44M1035.92 597.05l-.96-1.44M1034.96 595.61l-1.44-.96M1033.52 594.65l-1.44-.48M1032.08 594.17h-1.44M1030.64 594.17l-1.44.48M1029.2 594.65l-1.439.96M1027.761 595.61l-.864 1.44M1026.908 597.05l-.48 1.44M1026.428 598.49v1.44M1030.64 599.45l.48.48M1031.12 599.93h.48M1031.6 599.93l.48-.48M1032.08 599.45v-.48M1032.08 598.97l-.48-.48M1031.6 598.49h-.48M1031.12 598.49l-.48.48M1030.64 598.97v.48M1031.12 599.45h.48M1031.6 599.45v-.48M1031.6 598.97h-.48M1031.12 598.97v.48"/></g><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M1293.194 450.36v11.616M1300.874 450.36v11.616M1293.194 455.933h7.68M1305.194 450.36v11.616M1305.194 450.36h4.992M1310.194 450.36l1.632.576M1311.82 450.933l.577.576M1312.394 451.507l.48 1.055M1312.874 452.573v1.152M1312.874 453.72l-.48 1.056M1312.394 454.773l-.576.576M1311.82 455.346l-1.631.576M1310.194 455.933h-4.992M1309.034 455.933l3.84 6.048"/></g></g><g stroke="teal" stroke-width="28.8"><path stroke-width="3.839904" d="M1261.515 735.377v-.96M1261.515 734.417l-.288-.48M1261.235 733.937l-.192-.288M1261.035 733.649l-.096-.192M1260.942 733.457l-.096-.288M1260.848 733.169l-.096-.288M1260.755 732.88v-.287M1260.755 732.593l-.096-.288M1260.662 732.305v-.384M1260.662 731.92l.096-.287M1260.755 731.633v-.288M1260.755 731.345v-.288M1260.755 731.057v-.288M1260.755 730.769v-.288M1260.755 730.48l.096-.287M1260.848 730.193V730M1260.848 730l.096-.287M1260.942 729.713v-.288M1260.942 729.425l.096-.288M1261.035 729.137v-.288M1261.035 728.849l.096-.288M1261.142 728.56v-.287M1261.142 728.273l.094-.288M1261.235 727.985v-.288M1261.235 727.697l.096-.288M1261.328 727.409v-.288M1261.328 727.12l.096-.191M1261.422 726.929l.094-.288M1261.515 726.641l.096-.288M1261.622 726.353v-.288M1261.622 726.065l.096-.288M1261.715 725.777l.096-.288M1261.808 725.489l.096-.287M1261.902 725.201v-.192M1261.902 725.009l.096-.288M1261.995 724.721l.096-.288M1262.102 724.433l.096-.288M1262.195 724.145l.096-.288M1262.288 723.857l.096-.288M1262.382 723.569l.096-.192M1262.488 723.377l.095-.288M1262.582 723.089l.096-.287M1262.675 722.801l.096-.288M1262.768 722.513l.095-.192M1262.862 722.321l.096-.288M1262.968 722.033l.096-.288M1263.062 721.745l.096-.288M1263.155 721.457l.096-.192M1263.248 721.265l.192-.288M1263.448 720.977l.096-.288M1263.542 720.69l.096-.288M1263.635 720.401l.096-.192M1263.728 720.21l.096-.289M1263.822 719.921l.192-.288M1264.022 719.633l.096-.192M1264.115 719.441l.096-.288M1264.208 719.153l.192-.288M1264.408 718.865l.096-.288M1264.502 718.577l.192-.191M1264.688 718.385l.096-.288M1264.782 718.097l.192-.192M1264.982 717.905v-.384M1264.982 717.521l.096-.288M1265.075 717.233l.192-.192M1265.262 717.041l.192-.288M1265.462 716.753l.096-.191M1265.555 716.561l.192-.288M1265.742 716.273l.193-.288M1265.942 715.985l.094-.192M1266.035 715.793l.193-.288M1266.235 715.505l.19-.288M1266.422 715.217l.096-.191M1266.515 715.025l.192-.288M1266.715 714.737l.19-.192M1266.902 714.545l.193-.288M1267.088 714.257l.192-.192M1267.288 714.065l.191-.288M1267.475 713.777l.096-.288M1267.568 713.49l.191-.192M1267.768 713.297l.192-.288M1267.955 713.01l.192-.193M1268.155 712.817l.192-.288M1268.342 712.53l.192-.192M1268.528 712.337l.096-.384M1268.635 711.953l.192-.288M1268.822 711.665l.192-.191M1269.008 711.473l.192-.192M1269.208 711.287l.192-.288M1269.395 710.993l.192-.192M1269.595 710.807l.288-.288M1269.875 710.513l.192-.192"/></g><g stroke="#c03" stroke-width="28.8"><path stroke-width="3.839904" d="m1268.915 704.367-2.4 1.152M1266.515 705.527l-1.152 1.248M1265.355 706.767l-1.248 2.304M1264.115 709.073v2.4M1264.115 711.473l1.248 2.4M1265.355 713.873l1.152 1.152M1266.515 715.025l2.4 1.152M1268.915 716.177h2.304M1271.222 716.177l2.4-1.151M1273.621 715.025l1.152-1.152M1274.768 713.873l1.248-2.4M1276.021 711.473v-2.4M1276.021 709.073l-1.248-2.304M1274.768 706.767l-1.152-1.248M1273.621 705.527l-2.4-1.152M1271.222 704.367h-2.304"/></g></g></svg>
\ No newline at end of file
diff --git a/star/test_suite/conv_core_cpm/inlist_conv_core_cpm b/star/test_suite/conv_core_cpm/inlist_conv_core_cpm
index ffd3345be..daa68d8c7 100644
--- a/star/test_suite/conv_core_cpm/inlist_conv_core_cpm
+++ b/star/test_suite/conv_core_cpm/inlist_conv_core_cpm
@@ -1,106 +1,107 @@
-
 &star_job
    show_log_description_at_start = .false.
 
-   load_saved_model = .true. 
-   load_model_filename = '1.5_zams.mod' 
+   load_saved_model = .true.
+   load_model_filename = '1.5_zams.mod'
 
-    set_initial_age = .true. 
-    initial_age = 0 
-    set_initial_model_number = .true. 
-    initial_model_number = 0
+   set_initial_age = .true.
+   initial_age = 0
+   set_initial_model_number = .true.
+   initial_model_number = 0
 
-    save_model_when_terminate = .true.
-    required_termination_code_string = 'xa_central_lower_limit'
-    save_model_filename = 'final.mod'
+   save_model_when_terminate = .true.
+   required_termination_code_string = 'xa_central_lower_limit'
+   save_model_filename = 'final.mod'
 
-    ! display on-screen plots
-    pgstar_flag = .true.
-    save_pgstar_files_when_terminate = .true.
+   ! display on-screen plots
+   pgstar_flag = .true.
+   save_pgstar_files_when_terminate = .true.
 
 / ! end of star_job namelist
 
 
 &eos
-  ! eos options
-  ! see eos/defaults/eos.defaults
+   ! eos options
+   ! see eos/defaults/eos.defaults
 
 / ! end of eos namelist
 
 
 &kap
-  ! kap options
-  ! see kap/defaults/kap.defaults
-  use_Type2_opacities = .true.
-  Zbase = 0.02
-  kap_file_prefix = 'a09' 
-  kap_lowT_prefix = 'lowT_fa05_a09p' 
-  kap_CO_prefix = 'a09_co'
-  
+   ! kap options
+   ! see kap/defaults/kap.defaults
+   use_Type2_opacities = .true.
+   Zbase = 0.02
+   kap_file_prefix = 'a09'
+   kap_lowT_prefix = 'lowT_fa05_a09p'
+   kap_CO_prefix = 'a09_co'
 / ! end of kap namelist
 
 
 &controls
 
-  ! starting specifications
+   ! starting specifications
 
-  ! when to stop
+   ! when to stop
 
-    ! limit max_model_number as part of test_suite
-    max_model_number = 200
+   ! limit max_model_number as part of test_suite
+   max_model_number = 200
 
-    ! stop when the center mass fraction of h1 drops below this limit
-    xa_central_lower_limit_species(1) = 'h1'
-    xa_central_lower_limit(1) = 0.5
+   ! stop when the center mass fraction of h1 drops below this limit
+   xa_central_lower_limit_species(1) = 'h1'
+   xa_central_lower_limit(1) = 0.5
 
-    ! Tolerances for CPM+Ledoux convective core mass,
-    ! expect roughly 0.13
-    x_ctrl(1) = 0.125 ! min core mass at Xc=0.5 
-    x_ctrl(2) = 0.135  ! max core mass at Xc=0.5 
+   ! Tolerances for CPM+Ledoux convective core mass,
+   ! expect roughly 0.13
+   x_ctrl(1) = 0.125 ! min core mass at Xc=0.5
+   x_ctrl(2) = 0.135  ! max core mass at Xc=0.5
 
-  ! mlt
-    mixing_length_alpha = 1.8d0 
-    MLT_option = 'TDC'
-    use_Ledoux_criterion = .true.
-    do_conv_premix = .true. 
+   ! mlt
+   mixing_length_alpha = 1.8d0
+   MLT_option = 'TDC'
+   use_Ledoux_criterion = .true.
+   do_conv_premix = .true.
 
-  ! mixing
+   ! mixing
 
-  ! timesteps
-    max_years_for_timestep = 1d7
+   ! timesteps
+   max_years_for_timestep = 1d7
 
-  ! mesh
+   ! mesh
 
-     convective_bdy_weight = 2
-     num_cells_for_smooth_gradL_composition_term = 10 
-     threshold_for_smooth_gradL_composition_term = 0.02 
-     num_cells_for_smooth_brunt_B = 10 
-     threshold_for_smooth_brunt_B = 0.1 
+   convective_bdy_weight = 2
+   num_cells_for_smooth_gradL_composition_term = 10
+   threshold_for_smooth_gradL_composition_term = 0.02
+   num_cells_for_smooth_brunt_B = 10
+   threshold_for_smooth_brunt_B = 0.1
 
-  ! solver
-     energy_eqn_option = 'dedt'
-     use_gold_tolerances = .true.
-     use_gold2_tolerances = .true.
+   ! solver
+   energy_eqn_option = 'dedt'
+   use_gold_tolerances = .true.
+   use_gold2_tolerances = .true.
 
-  ! output
+   ! output
    photo_interval = 20
-   profile_interval = 100 
+   profile_interval = 100
    history_interval = 1
-   terminal_interval = 10 
-   write_header_frequency = 10 
+   terminal_interval = 10
+   write_header_frequency = 10
 
 / ! end of controls namelist
 
 &pgstar
 
-  pgstar_interval = 1
+   pgstar_interval = 1
 
 !---------------------------------------------------------------------------------------------
 ! grid1 plot of all 5 panels, see below sections setting up each panel
 
 ! file output
+   file_white_on_black_flag = .true.
+   file_device = 'vcps'
+   file_extension = 'ps'
    Grid1_file_flag = .true.
-   Grid1_file_dir = 'png'
+   Grid1_file_dir = 'pgstar_out'
    Grid1_file_prefix = 'grid_'
    Grid1_file_interval = 100000 ! we're just saving the last png for the test suite
    Grid1_file_width = 16
@@ -177,10 +178,10 @@
 
 !---------------------------------------------------------------------------------------------
 
-    HR_logT_min = 3.6
-    HR_logT_max = 4.0
-    HR_logL_min = 0.5
-    HR_logL_max = 1.3
+   HR_logT_min = 3.6
+   HR_logT_max = 4.0
+   HR_logL_min = 0.5
+   HR_logL_max = 1.3
 
 !---------------------------------------------------------------------------------------------
 	! Kippenhahn diagram history plot
@@ -207,18 +208,18 @@
 	Kipp_show_burn = .true.
 	Kipp_show_luminosities = .false.
 
-        Kipp_mix_line_weight = 15
-        Kipp_mix_interval = 2
+   Kipp_mix_line_weight = 15
+   Kipp_mix_interval = 2
 
 !---------------------------------------------------------------------------------------------
-  ! mass of convective core vs. X_c (central H abundance)
-      ! set parameters and labels for the mass of convective core
-          History_Track1_title = 'Evolution of Conv Core Mass'
+   ! mass of convective core vs. X_c (central H abundance)
+   ! set parameters and labels for the mass of convective core
+   History_Track1_title = 'Evolution of Conv Core Mass'
 	  History_Track1_xname = 'center_h1'
 	  History_Track1_yname = 'mass_conv_core'
 	  History_Track1_xaxis_label = 'X\dc\u'
 	  History_Track1_yaxis_label = 'Mass of Convective Core'
-      ! set up limits of the plot
+   ! set up limits of the plot
 	  History_Track1_reverse_xaxis = .true.
 	  History_Track1_reverse_yaxis = .false.
 	  History_Track1_log_xaxis = .false.
@@ -226,54 +227,54 @@
 	  History_Track1_xmin = 0.0 !-101d0
 	  History_Track1_xmax = 0.75 !-101d0
 	  History_Track1_ymin = 0 !-101d0
-         History_Track1_ymax = 0.15 !-101d0
+   History_Track1_ymax = 0.15 !-101d0
 
-         show_History_Track1_target_box = .true.
-         History_Track1_n_sigma = 1
-         History_Track1_xtarget = 0.5
-         History_Track1_xsigma = 0.03
-         History_Track1_ytarget = 0.13 ! The target value between x_ctrl(1) and x_ctrl(2)
-         History_Track1_ysigma = 0.005
+   show_History_Track1_target_box = .true.
+   History_Track1_n_sigma = 1
+   History_Track1_xtarget = 0.5
+   History_Track1_xsigma = 0.03
+   History_Track1_ytarget = 0.13 ! The target value between x_ctrl(1) and x_ctrl(2)
+   History_Track1_ysigma = 0.005
 
-         History_Track1_fname = 'core_evolution.data'
+   History_Track1_fname = 'core_evolution.data'
 
 !---------------------------------------------------------------------------------------------
-    ! set up for evolution of convective boundaries
-    ! grad_rad, grad_ad, grad_L, X, vs mass
-    Summary_Profile_win_width = 5
-    Summary_Profile_win_flag = .false.
-    Summary_Profile_num_lines = 4
-    !Summary_Profile_scaled_value(:)=.false.
-    Summary_Profile_title='\(0583)\d Profiles'
-
-    Summary_Profile_name(1) = 'mixing_type'
-    Summary_Profile_legend(1) = 'convection'
-    !Summary_Profile_txt_scale = 1.0
-    Summary_Profile_scaled_value(1) = .false. !.true.
-
-    Summary_Profile_name(2) = 'grada'
-    Summary_Profile_legend(2) = '\(0583)\dad'
-    Summary_Profile_txt_scale = 1.0
-    Summary_Profile_scaled_value(2) = .false. !.true.
-
-    Summary_Profile_name(3) = 'gradr'
-    Summary_Profile_legend(3) = '\(0583)\drad'
-    Summary_Profile_xmax=0.2
-    Summary_Profile_scaled_value(3) = .false. !.true.
-
-    Summary_Profile_name(4) = 'x' !'center_h1'
-    Summary_Profile_legend(4) = 'X'
-    Summary_Profile_scaled_value(4) = .false.
+   ! set up for evolution of convective boundaries
+   ! grad_rad, grad_ad, grad_L, X, vs mass
+   Summary_Profile_win_width = 5
+   Summary_Profile_win_flag = .false.
+   Summary_Profile_num_lines = 4
+   !Summary_Profile_scaled_value(:)=.false.
+   Summary_Profile_title='\(0583)\d Profiles'
+
+   Summary_Profile_name(1) = 'mixing_type'
+   Summary_Profile_legend(1) = 'convection'
+   !Summary_Profile_txt_scale = 1.0
+   Summary_Profile_scaled_value(1) = .false. !.true.
+
+   Summary_Profile_name(2) = 'grada'
+   Summary_Profile_legend(2) = '\(0583)\dad'
+   Summary_Profile_txt_scale = 1.0
+   Summary_Profile_scaled_value(2) = .false. !.true.
+
+   Summary_Profile_name(3) = 'gradr'
+   Summary_Profile_legend(3) = '\(0583)\drad'
+   Summary_Profile_xmax=0.2
+   Summary_Profile_scaled_value(3) = .false. !.true.
+
+   Summary_Profile_name(4) = 'x' !'center_h1'
+   Summary_Profile_legend(4) = 'X'
+   Summary_Profile_scaled_value(4) = .false.
 
 !---------------------------------------------------------------------------------------------
-  ! Abundance profile plot
-    Abundance_num_isos_to_show = 4
-    Abundance_which_isos_to_show(1)  = 'h1'
-    Abundance_which_isos_to_show(2)  = 'he4'
-    Abundance_which_isos_to_show(3)  = 'c12'
-    Abundance_which_isos_to_show(4)  = 'o16'
-    Abundance_title = 'Abundance'
-    ! number and size of isotope labels along curves
+   ! Abundance profile plot
+   Abundance_num_isos_to_show = 4
+   Abundance_which_isos_to_show(1)  = 'h1'
+   Abundance_which_isos_to_show(2)  = 'he4'
+   Abundance_which_isos_to_show(3)  = 'c12'
+   Abundance_which_isos_to_show(4)  = 'o16'
+   Abundance_title = 'Abundance'
+   ! number and size of isotope labels along curves
 	num_abundance_line_labels = 4
 	Abundance_line_txt_scale_factor = 0.8
 	! number and size of isotopes on legend
diff --git a/star/test_suite/conv_core_cpm/inlist_conv_core_cpm_header b/star/test_suite/conv_core_cpm/inlist_conv_core_cpm_header
index 76ea4e0a3..75a1f1bac 100644
--- a/star/test_suite/conv_core_cpm/inlist_conv_core_cpm_header
+++ b/star/test_suite/conv_core_cpm/inlist_conv_core_cpm_header
@@ -1,39 +1,38 @@
-
 &star_job
 
-      read_extra_star_job_inlist(1) = .true.
-      extra_star_job_inlist_name(1) = 'inlist_conv_core_cpm'
+   read_extra_star_job_inlist(1) = .true.
+   extra_star_job_inlist_name(1) = 'inlist_conv_core_cpm'
 
 / ! end of star_job namelist
 
 
 &eos
 
-      read_extra_eos_inlist(1) = .true.
-      extra_eos_inlist_name(1) = 'inlist_conv_core_cpm'
+   read_extra_eos_inlist(1) = .true.
+   extra_eos_inlist_name(1) = 'inlist_conv_core_cpm'
 
 / ! end of eos namelist
 
 
 &kap
 
-      read_extra_kap_inlist(1) = .true.
-      extra_kap_inlist_name(1) = 'inlist_conv_core_cpm'
+   read_extra_kap_inlist(1) = .true.
+   extra_kap_inlist_name(1) = 'inlist_conv_core_cpm'
 
 / ! end of kap namelist
 
 
 &controls
 
-      read_extra_controls_inlist(1) = .true.
-      extra_controls_inlist_name(1) = 'inlist_conv_core_cpm'
+   read_extra_controls_inlist(1) = .true.
+   extra_controls_inlist_name(1) = 'inlist_conv_core_cpm'
 
 / ! end of controls namelist
 
 
 &pgstar
 
-      read_extra_pgstar_inlist(1) = .true.
-      extra_pgstar_inlist_name(1) = 'inlist_conv_core_cpm'
+   read_extra_pgstar_inlist(1) = .true.
+   extra_pgstar_inlist_name(1) = 'inlist_conv_core_cpm'
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/conv_core_cpm/inlist_to_ZAMS b/star/test_suite/conv_core_cpm/inlist_to_ZAMS
index 5b65fa96b..11ff49027 100644
--- a/star/test_suite/conv_core_cpm/inlist_to_ZAMS
+++ b/star/test_suite/conv_core_cpm/inlist_to_ZAMS
@@ -1,22 +1,21 @@
 &star_job
 
-      show_log_description_at_start = .false.
+   show_log_description_at_start = .false.
 
-      create_pre_main_sequence_model = .true.
+   create_pre_main_sequence_model = .true.
 
-      load_saved_model = .false.
+   load_saved_model = .false.
 
-      save_model_when_terminate = .true.
-      save_model_filename = '1.5_zams.mod'
+   save_model_when_terminate = .true.
+   save_model_filename = '1.5_zams.mod'
 
-      pause_before_terminate = .false.
+   pause_before_terminate = .false.
 
-      !history_columns_file = 'history_columns.list' 
-      !profile_columns_file = 'profile_columns.list' 
+   !history_columns_file = 'history_columns.list'
+   !profile_columns_file = 'profile_columns.list'
 
-      initial_zfracs = 3 ! GS98_zfracs = 3
-      
-/ !end of star_job namelist
+   initial_zfracs = 3 ! GS98_zfracs = 3
+   / !end of star_job namelist
 
 
 &eos
@@ -24,74 +23,67 @@
 
 
 &kap
-      use_Type2_opacities = .true.
-      Zbase = 2d-2
+   use_Type2_opacities = .true.
+   Zbase = 2d-2
 / ! end of kap namelist
 
 &controls
 
-      initial_mass = 1.5
-      initial_z = 2d-2
+   initial_mass = 1.5
+   initial_z = 2d-2
 
 ! When to stop
 
-    Lnuc_div_L_zams_limit = 0.99d0
-    stop_near_zams = .true.
-      
-! mixing controls
+   Lnuc_div_L_zams_limit = 0.99d0
+   stop_near_zams = .true.
+   ! mixing controls
 
-      mixing_length_alpha = 1.8d0
-      MLT_option = 'Henyey'
+   mixing_length_alpha = 1.8d0
+   MLT_option = 'Henyey'
 
-      
-      use_Ledoux_criterion = .false.
-      !alpha_semiconvection = 0.01 
-      !semiconvection_option = 'Langer_85'
+   use_Ledoux_criterion = .false.
+   !alpha_semiconvection = 0.01
+   !semiconvection_option = 'Langer_85'
 
 
-      
-! timestep controls
+   ! timestep controls
 
-      !max_years_for_timestep = 1d4
-      !max_timestep_factor = 1.2
-      
-! output controls
+   !max_years_for_timestep = 1d4
+   !max_timestep_factor = 1.2
+   ! output controls
 
-      log_directory = 'LOGS-ZAMS'
-      photo_interval = 100
-      photo_digits = 5
-      profile_interval = 100
-      history_interval = 10
-      terminal_interval = 50
-      write_header_frequency = 10
-      
-! grid
+   log_directory = 'LOGS-ZAMS'
+   photo_interval = 100
+   photo_digits = 5
+   profile_interval = 100
+   history_interval = 10
+   terminal_interval = 50
+   write_header_frequency = 10
+   ! grid
 
-      mesh_delta_coeff = 0.5
+   mesh_delta_coeff = 0.5
 
 / ! end of controls namelist
 
 &pgstar
-      
-      Grid2_win_flag = .true.
-      file_digits = 7
-      Grid2_file_dir = 'png'
-      Grid2_file_prefix = 'grid'
-
-      Abundance_xmax = 0.5
-
-      Kipp_win_flag = .true.
-      
-      Kipp_xaxis_name = 'star_age'
-      Kipp_xaxis_in_Myr = .true.
-      Kipp_win_width = 9
-      Kipp_win_aspect_ratio = 0.75 ! aspect_ratio = height/width
-      Kipp_show_burn = .false.
-      Kipp_mass_max = 0.16 ! (Msun units) negative means use default
-      Kipp_mass_max = -1 ! (Msun units) negative means use default
-      Kipp_xmin = -1 ! step number.  negative means use default.
-      Kipp_max_width = 0 ! only used if > 0.  causes xmin to move with xmax.
-      Kipp_mix_interval = 1
+   Grid2_win_flag = .true.
+   file_digits = 7
+   Grid2_file_dir = 'png'
+   Grid2_file_prefix = 'grid'
+
+   Abundance_xmax = 0.5
+
+   Kipp_win_flag = .true.
+   Kipp_xaxis_name = 'star_age'
+   Kipp_xaxis_in_Myr = .true.
+   Kipp_win_width = 9
+   Kipp_win_aspect_ratio = 0.75 ! aspect_ratio = height/width
+   Kipp_show_burn = .false.
+   Kipp_mass_max = 0.16 ! (Msun units) negative means use default
+   Kipp_mass_max = -1 ! (Msun units) negative means use default
+   Kipp_xmin = -1 ! step number.  negative means use default.
+   Kipp_max_width = 0 ! only used if > 0.  causes xmin to move with xmax.
+   Kipp_mix_interval = 1
 
 / ! end of pgstar namelist
 
diff --git a/star/test_suite/conv_core_cpm/inlist_to_ZAMS_header b/star/test_suite/conv_core_cpm/inlist_to_ZAMS_header
index b5f970c7c..dd6bc0993 100644
--- a/star/test_suite/conv_core_cpm/inlist_to_ZAMS_header
+++ b/star/test_suite/conv_core_cpm/inlist_to_ZAMS_header
@@ -1,40 +1,39 @@
-
 &star_job
 
 
-      read_extra_star_job_inlist(2) = .true.
-      extra_star_job_inlist_name(2) = 'inlist_to_ZAMS'
+   read_extra_star_job_inlist(2) = .true.
+   extra_star_job_inlist_name(2) = 'inlist_to_ZAMS'
 
 / ! end of star_job namelist
 
 
 &eos
 
-      read_extra_eos_inlist(1) = .true.
-      extra_eos_inlist_name(1) = 'inlist_to_ZAMS'
+   read_extra_eos_inlist(1) = .true.
+   extra_eos_inlist_name(1) = 'inlist_to_ZAMS'
 
 / ! end of eos namelist
 
 
 &kap
 
-      read_extra_kap_inlist(1) = .true.
-      extra_kap_inlist_name(1) = 'inlist_to_ZAMS'
+   read_extra_kap_inlist(1) = .true.
+   extra_kap_inlist_name(1) = 'inlist_to_ZAMS'
 
 / ! end of kap namelist
 
 
 &controls
 
-      read_extra_controls_inlist(1) = .true.
-      extra_controls_inlist_name(1)= 'inlist_to_ZAMS'
+   read_extra_controls_inlist(1) = .true.
+   extra_controls_inlist_name(1)= 'inlist_to_ZAMS'
 
 / ! end of controls namelist
 
 
 &pgstar
 
-      read_extra_pgstar_inlist(1) = .true.
-      extra_pgstar_inlist_name(1)= 'inlist_to_ZAMS'
+   read_extra_pgstar_inlist(1) = .true.
+   extra_pgstar_inlist_name(1)= 'inlist_to_ZAMS'
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/custom_colors/README.rst b/star/test_suite/custom_colors/README.rst
index b44adce77..b0673dd95 100644
--- a/star/test_suite/custom_colors/README.rst
+++ b/star/test_suite/custom_colors/README.rst
@@ -11,13 +11,13 @@ This test case has 1 part. Click to see a larger view of a plot.
 * Part 1 (``inlist_1.0``) builds a 1.0 Msun, Z=0.02 metallicity, pre-main sequence model and evolves until core hydrogen depletion (mass fraction h1 < 0.1). This example loads the default |LCB98| color filter ''lcb98cor.dat'', a custom color filter ``data/blackbody_bc_v.txt`` which in this case is blackbody V band filter, and a custom extinction color correction file ``data/fake_av_v.txt``. Example color-color, color-magnitude, magnitude-color and magnitude-magnitude plots:
 
 .. image:: ../../../star/test_suite/custom_colors/docs/Color_magnitude1_000241.svg
-   :scale: 100%
+   :width: 100%
 
 .. image:: ../../../star/test_suite/custom_colors/docs/Color_magnitude2_000241.svg
-   :scale: 100%
+   :width: 100%
 
 .. image:: ../../../star/test_suite/custom_colors/docs/Color_magnitude3_000241.svg
-   :scale: 100%
+   :width: 100%
 
 
 pgstar commands used for the first 7 plots:
diff --git a/star/test_suite/custom_rates/README.rst b/star/test_suite/custom_rates/README.rst
index e8662357b..4f30bbe46 100644
--- a/star/test_suite/custom_rates/README.rst
+++ b/star/test_suite/custom_rates/README.rst
@@ -11,27 +11,27 @@ This test case has 5 parts. Click to see a larger view of a plot.
 * Part 1 (``inlist_core``) builds a 2.0 Msun, Z=0.02 metallicity, pre-main sequence model and evolves until the helium core reaches 0.3 Msun:
 
 .. image:: ../../../star/test_suite/custom_rates/docs/abund_001005.svg
-   :scale: 100%
+   :width: 100%
 
 * Part 2 (``inlist_make_he_wd``) removes the outer 1.7 Msun by gradually changing the total mass to 0.3 Msun by a wind:
 
 .. image:: ../../../star/test_suite/custom_rates/docs/abund_001102.svg
-   :scale: 100%
+   :width: 100%
 
 * Part 3 (``inlist_cool``) continues the evolution until the central temperature cools to log10(T/K) = 7.43.
 
 * Part 4 (``inlist_NCO_hashimoto``) loads the custom reaction rates, including those from |Hash86|, begins accreting mass at 1e-9 Msun/year, and continues the evolution to just before the nitrogen-carbon-oxygen (NCO) driven flash:
 
 .. image:: ../../../star/test_suite/custom_rates/docs/trho_001540.svg
-   :scale: 100%
+   :width: 100%
 
 * Part 5 (``inlist_NCO_flash``) continues the evolution and terminates when nuclear burning NCO runaway causes the temperature to exceed log10(T/K) = 7.8. See |BSB17| for a science application. The evolution one would get by using the default JINA reaclib rates (yellow curve) instead of the custom rates (green curve) :
 
 .. image:: ../../../star/test_suite/custom_rates/docs/trho_000508.svg
-   :scale: 100%
+   :width: 100%
 
 .. image:: ../../../star/test_suite/custom_rates/docs/abund_000508.svg
-   :scale: 100%
+   :width: 100%
 
 
 pgstar commands used for the first 7 plots:
diff --git a/star/test_suite/diffusion_smoothness/README.rst b/star/test_suite/diffusion_smoothness/README.rst
index d3b3cce66..c188eb447 100644
--- a/star/test_suite/diffusion_smoothness/README.rst
+++ b/star/test_suite/diffusion_smoothness/README.rst
@@ -13,48 +13,15 @@ This test case has 2 part2. Click to see a larger view of a plot.
 * Part 2 (``inlist_diffusion_smoothness``) activates element diffusion and continues the evolution for 3e9 years. The ``run-star_extras.f90`` then checks that the Brunt profile is sufficiently smooth in the central portion of the model.
 
 .. image:: ../../../star/test_suite/diffusion_smoothness/docs/brunt_000036.svg
-   :scale: 100%
+   :width: 100%
 
 pgstar commands used for the plot:
 
-.. code-block:: console
-
- &pgstar
-
-   file_white_on_black_flag = .true. ! white_on_black flags -- true means white foreground color on black background
-   file_device = 'png'            ! png
-   file_extension = 'png'
-
-   !file_device = 'vcps'          ! postscript
-   !file_extension = 'ps'
-
-    pgstar_interval = 1
-
- ! Brunt B profile
-    Profile_Panels1_win_flag = .true.
-    Profile_Panels1_win_width = 14
-    Profile_Panels1_show_grid = .false
-    Profile_Panels1_title = 'diffusion_smoothness'
-
-    Profile_Panels1_xaxis_name = 'zone'
-    Profile_Panels1_xmin = -101d0
-    Profile_Panels1_xmax = -101d0
-    Profile_Panels1_xaxis_reversed = .true.
-    Profile_Panels1_show_mix_regions_on_xaxis = .true.
-
-    Profile_Panels1_num_panels = 1
-    Profile_Panels1_yaxis_name(1) = 'brunt_B'
-    Profile_Panels1_ymin(:) = -101d0
-    Profile_Panels1_ymax(:) = -101d0
-    Profile_Panels1_other_yaxis_name(1) = ''
-
-    Profile_Panels1_file_flag = .true.
-    Profile_Panels1_file_dir = 'png'
-    Profile_Panels1_file_prefix = 'brunt_'
-    Profile_Panels1_file_interval = 10000
-    Profile_Panels1_file_width = 14      
-
- / ! end of pgstar namelist
+.. literalinclude:: ../../../star/test_suite/diffusion_smoothness/inlist_diffusion_smoothness
+  :language: console
+  :start-at: &pgstar
+  :end-at: ! end of pgstar namelist
 
 Last-Updated: 06Jun2021 (MESA 5be9e57) by fxt
 
+Last-Run: 06Aug2024 (MESA 8b152605) by pmocz on C916PXT6XW in 82 seconds using 8 threads.
diff --git a/star/test_suite/diffusion_smoothness/docs/brunt_000036.svg b/star/test_suite/diffusion_smoothness/docs/brunt_000036.svg
index b872075e7..715714029 100644
--- a/star/test_suite/diffusion_smoothness/docs/brunt_000036.svg
+++ b/star/test_suite/diffusion_smoothness/docs/brunt_000036.svg
@@ -1,242 +1 @@
-<?xml version="1.0" encoding="utf-8"?>
-<!-- Generator: Adobe Illustrator 25.2.3, SVG Export Plug-In . SVG Version: 6.00 Build 0)  -->
-<svg version="1.1" id="Layer_1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" x="0px" y="0px"
-	 viewBox="0 0 874.11 660.9" style="enable-background:new 0 0 874.11 660.9;" xml:space="preserve">
-<style type="text/css">
-	.st0{fill-rule:evenodd;clip-rule:evenodd;}
-	.st1{fill:none;stroke:#FFFFFF;stroke-width:1.08;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st2{fill:none;stroke:#DAA520;stroke-width:1.44;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st3{fill:none;stroke:#DAA520;stroke-width:2.88;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st4{fill:none;stroke:#FFFFFF;stroke-width:1.44;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st5{fill:none;stroke:#2E8B57;stroke-width:3.6;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st6{fill:none;stroke:#87CEFA;stroke-width:3.6;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-</style>
-<rect class="st0" width="874.11" height="661.2"/>
-<path class="st1" d="M758.21,11.45v6.48 M758.21,13.25l1.37-1.37 M759.58,11.88l0.94-0.43 M760.51,11.45h1.37 M761.88,11.45
-	l0.94,0.43 M762.82,11.88l0.5,1.37 M763.32,13.25v4.68 M763.32,13.25l1.37-1.37 M764.69,11.88l0.94-0.43 M765.62,11.45h1.37
-	 M766.99,11.45l0.94,0.43 M767.93,11.88l0.5,1.37 M768.43,13.25v4.68 M773.98,11.45l-0.94,0.43 M773.04,11.88l-0.94,0.94
-	 M772.1,12.82l-0.43,1.37 M771.67,14.19v0.94 M771.67,15.12l0.43,1.44 M772.1,16.56l0.94,0.94 M773.04,17.5l0.94,0.43 M773.98,17.93
-	h1.44 M775.42,17.93l0.94-0.43 M776.35,17.5l0.94-0.94 M777.29,16.56l0.43-1.44 M777.72,15.12v-0.94 M777.72,14.19l-0.43-1.37
-	 M777.29,12.82l-0.94-0.94 M776.35,11.88l-0.94-0.43 M775.42,11.45h-1.44 M786.07,8.14v9.79 M786.07,12.82l-0.94-0.94 M785.14,11.88
-	l-0.94-0.43 M784.2,11.45h-1.37 M782.83,11.45l-0.94,0.43 M781.9,11.88l-0.94,0.94 M780.96,12.82l-0.43,1.37 M780.53,14.19v0.94
-	 M780.53,15.12l0.43,1.44 M780.96,16.56l0.94,0.94 M781.9,17.5l0.94,0.43 M782.83,17.93h1.37 M784.2,17.93l0.94-0.43 M785.14,17.5
-	l0.94-0.94 M789.38,14.19h5.54 M794.93,14.19v-0.94 M794.93,13.25l-0.43-0.94 M794.5,12.32l-0.5-0.43 M793.99,11.88l-0.94-0.43
-	 M793.06,11.45h-1.37 M791.69,11.45l-0.94,0.43 M790.75,11.88l-0.94,0.94 M789.82,12.82l-0.43,1.37 M789.38,14.19v0.94
-	 M789.38,15.12l0.43,1.44 M789.82,16.56l0.94,0.94 M790.75,17.5l0.94,0.43 M791.69,17.93h1.37 M793.06,17.93l0.94-0.43 M793.99,17.5
-	l0.94-0.94 M798.17,8.14v9.79 M809.83,8.14h5.11 M814.94,8.14l-2.81,3.74 M812.14,11.88h1.44 M813.58,11.88l0.86,0.43 M814.44,12.32
-	l0.5,0.5 M814.94,12.82l0.43,1.37 M815.38,14.19v0.94 M815.38,15.12l-0.43,1.44 M814.94,16.56l-0.94,0.94 M814.01,17.5l-1.37,0.43
-	 M812.64,17.93h-1.44 M811.2,17.93l-1.37-0.43 M809.83,17.5l-0.5-0.5 M809.33,17l-0.43-0.94 M824.23,9.58l-0.43-0.94 M823.8,8.64
-	l-1.44-0.5 M822.36,8.14h-0.94 M821.42,8.14l-1.37,0.5 M820.06,8.64l-0.94,1.37 M819.12,10.01l-0.43,2.3 M818.69,12.32v2.38
-	 M818.69,14.69l0.43,1.87 M819.12,16.56l0.94,0.94 M820.06,17.5l1.37,0.43 M821.42,17.93h0.5 M821.93,17.93l1.37-0.43 M823.3,17.5
-	l0.94-0.94 M824.23,16.56l0.5-1.44 M824.74,15.12v-0.43 M824.74,14.69l-0.5-1.44 M824.23,13.25l-0.94-0.94 M823.3,12.32l-1.37-0.43
-	 M821.93,11.88h-0.5 M821.42,11.88l-1.37,0.43 M820.06,12.32l-0.94,0.94 M819.12,13.25l-0.43,1.44 M92.21,11.45v6.48 M92.21,12.82
-	l-0.94-0.94 M91.27,11.88l-0.94-0.43 M90.34,11.45h-1.37 M88.97,11.45l-0.94,0.43 M88.03,11.88l-0.94,0.94 M87.1,12.82l-0.5,1.37
-	 M86.59,14.19v0.94 M86.59,15.12l0.5,1.44 M87.1,16.56l0.94,0.94 M88.03,17.5l0.94,0.43 M88.97,17.93h1.37 M90.34,17.93l0.94-0.43
-	 M91.27,17.5l0.94-0.94 M101.06,11.45v7.42 M101.06,18.87l-0.5,1.37 M100.56,20.24l-0.43,0.5 M100.13,20.74l-0.94,0.43 M99.19,21.17
-	h-1.44 M97.75,21.17l-0.86-0.43 M101.06,12.82l-0.94-0.94 M100.13,11.88l-0.94-0.43 M99.19,11.45h-1.44 M97.75,11.45l-0.86,0.43
-	 M96.89,11.88l-0.94,0.94 M95.95,12.82l-0.5,1.37 M95.45,14.19v0.94 M95.45,15.12l0.5,1.44 M95.95,16.56l0.94,0.94 M96.89,17.5
-	l0.86,0.43 M97.75,17.93h1.44 M99.19,17.93l0.94-0.43 M100.13,17.5l0.94-0.94 M104.3,14.19h5.54 M109.85,14.19v-0.94 M109.85,13.25
-	l-0.43-0.94 M109.42,12.32l-0.43-0.43 M108.98,11.88l-0.94-0.43 M108.05,11.45h-1.44 M106.61,11.45l-0.94,0.43 M105.67,11.88
-	l-0.94,0.94 M104.74,12.82l-0.43,1.37 M104.3,14.19v0.94 M104.3,15.12l0.43,1.44 M104.74,16.56l0.94,0.94 M105.67,17.5l0.94,0.43
-	 M106.61,17.93h1.44 M108.05,17.93l0.94-0.43 M108.98,17.5l0.86-0.94 M121.08,8.14h5.11 M126.19,8.14l-2.81,3.74 M123.38,11.88h1.37
-	 M124.75,11.88l0.94,0.43 M125.69,12.32l0.5,0.5 M126.19,12.82l0.43,1.37 M126.62,14.19v0.94 M126.62,15.12l-0.43,1.44
-	 M126.19,16.56l-0.94,0.94 M125.26,17.5l-1.44,0.43 M123.82,17.93h-1.37 M122.45,17.93l-1.37-0.43 M121.08,17.5l-0.5-0.5 M120.58,17
-	l-0.43-0.94 M130.37,17l-0.5,0.5 M129.86,17.5l0.5,0.43 M130.37,17.93l0.43-0.43 M130.8,17.5l-0.43-0.5 M136.85,8.14l-1.37,0.5
-	 M135.48,8.64l-0.94,1.37 M134.54,10.01l-0.5,2.3 M134.04,12.32v1.44 M134.04,13.76l0.5,2.3 M134.54,16.06l0.94,1.44 M135.48,17.5
-	l1.37,0.43 M136.85,17.93h0.94 M137.78,17.93l1.44-0.43 M139.22,17.5l0.86-1.44 M140.09,16.06l0.5-2.3 M140.59,13.76v-1.44
-	 M140.59,12.32l-0.5-2.3 M140.09,10.01l-0.86-1.37 M139.22,8.64l-1.44-0.5 M137.78,8.14h-0.94 M146.14,8.14l-1.37,0.5 M144.77,8.64
-	l-0.94,1.37 M143.83,10.01l-0.43,2.3 M143.4,12.32v1.44 M143.4,13.76l0.43,2.3 M143.83,16.06l0.94,1.44 M144.77,17.5l1.37,0.43
-	 M146.14,17.93h0.94 M147.07,17.93l1.44-0.43 M148.51,17.5l0.94-1.44 M149.45,16.06l0.43-2.3 M149.88,13.76v-1.44 M149.88,12.32
-	l-0.43-2.3 M149.45,10.01l-0.94-1.37 M148.51,8.64l-1.44-0.5 M147.07,8.14h-0.94 M155.5,8.14l-1.44,0.5 M154.06,8.64l-0.94,1.37
-	 M153.12,10.01l-0.43,2.3 M152.69,12.32v1.44 M152.69,13.76l0.43,2.3"/>
-<path class="st1" d="M153.12,16.06l0.94,1.44 M154.06,17.5l1.44,0.43 M155.5,17.93h0.94 M156.43,17.93l1.37-0.43 M157.8,17.5
-	l0.94-1.44 M158.74,16.06l0.43-2.3 M159.17,13.76v-1.44 M159.17,12.32l-0.43-2.3 M158.74,10.01l-0.94-1.37 M157.8,8.64l-1.37-0.5
-	 M156.43,8.14h-0.94 M164.78,8.14l-1.37,0.5 M163.42,8.64l-0.94,1.37 M162.48,10.01l-0.5,2.3 M161.98,12.32v1.44 M161.98,13.76
-	l0.5,2.3 M162.48,16.06l0.94,1.44 M163.42,17.5l1.37,0.43 M164.78,17.93h0.94 M165.72,17.93l1.37-0.43 M167.09,17.5l0.94-1.44
-	 M168.02,16.06l0.5-2.3 M168.53,13.76v-1.44 M168.53,12.32l-0.5-2.3 M168.02,10.01l-0.94-1.37 M167.09,8.64l-1.37-0.5 M165.72,8.14
-	h-0.94 M174.07,8.14l-1.37,0.5 M172.7,8.64l-0.94,1.37 M171.77,10.01l-0.5,2.3 M171.26,12.32v1.44 M171.26,13.76l0.5,2.3
-	 M171.77,16.06l0.94,1.44 M172.7,17.5l1.37,0.43 M174.07,17.93h0.94 M175.01,17.93l1.37-0.43 M176.38,17.5l0.94-1.44 M177.31,16.06
-	l0.5-2.3 M177.82,13.76v-1.44 M177.82,12.32l-0.5-2.3 M177.31,10.01l-0.94-1.37 M176.38,8.64l-1.37-0.5 M175.01,8.14h-0.94
-	 M183.36,8.14l-1.37,0.5 M181.99,8.64l-0.94,1.37 M181.06,10.01l-0.43,2.3 M180.62,12.32v1.44 M180.62,13.76l0.43,2.3 M181.06,16.06
-	l0.94,1.44 M181.99,17.5l1.37,0.43 M183.36,17.93h0.94 M184.3,17.93l1.44-0.43 M185.74,17.5l0.94-1.44 M186.67,16.06l0.43-2.3
-	 M187.1,13.76v-1.44 M187.1,12.32l-0.43-2.3 M186.67,10.01l-0.94-1.37 M185.74,8.64l-1.44-0.5 M184.3,8.14h-0.94 M189.91,14.19h5.54
-	 M195.46,14.19v-0.94 M195.46,13.25l-0.43-0.94 M195.02,12.32l-0.5-0.43 M194.52,11.88l-0.86-0.43 M193.66,11.45h-1.44
-	 M192.22,11.45l-0.94,0.43 M191.28,11.88l-0.94,0.94 M190.34,12.82l-0.43,1.37 M189.91,14.19v0.94 M189.91,15.12l0.43,1.44
-	 M190.34,16.56l0.94,0.94 M191.28,17.5l0.94,0.43 M192.22,17.93h1.44 M193.66,17.93l0.86-0.43 M194.52,17.5l0.94-0.94 M204.31,11.45
-	l-0.43,1.37 M203.88,12.82l-0.94,0.94 M202.94,13.76l-1.44,0.43 M201.5,14.19h-0.43 M201.07,14.19l-1.37-0.43 M199.7,13.76
-	l-0.94-0.94 M198.77,12.82l-0.5-1.37 M198.26,11.45v-0.5 M198.26,10.95l0.5-1.37 M198.77,9.58l0.94-0.94 M199.7,8.64l1.37-0.5
-	 M201.07,8.14h0.43 M201.5,8.14l1.44,0.5 M202.94,8.64l0.94,0.94 M203.88,9.58l0.43,1.87 M204.31,11.45v2.3 M204.31,13.76l-0.43,2.3
-	 M203.88,16.06l-0.94,1.44 M202.94,17.5l-1.44,0.43 M201.5,17.93h-0.94 M200.57,17.93l-1.37-0.43 M199.2,17.5l-0.43-0.94
-	 M214.54,11.45l2.81,6.48 M220.15,11.45l-2.81,6.48 M217.34,17.93l-0.94,1.87 M216.41,19.8l-0.94,0.94 M215.47,20.74l-0.94,0.43
-	 M214.54,21.17h-0.43 M222.96,11.45v6.48 M222.96,14.19l0.43-1.37 M223.39,12.82l0.94-0.94 M224.33,11.88l0.94-0.43 M225.26,11.45
-	h1.37 M233.62,12.82l-0.43-0.94 M233.18,11.88l-1.44-0.43 M231.74,11.45h-1.37 M230.38,11.45l-1.37,0.43 M229.01,11.88l-0.5,0.94
-	 M228.5,12.82l0.5,0.94 M229.01,13.76l0.94,0.43 M229.94,14.19l2.3,0.5 M232.25,14.69l0.94,0.43 M233.18,15.12l0.43,0.94
-	 M233.62,16.06v0.5 M233.62,16.56l-0.43,0.94 M233.18,17.5l-1.44,0.43 M231.74,17.93h-1.37 M230.38,17.93l-1.37-0.43 M229.01,17.5
-	l-0.5-0.94 M349.46,10.59v15.84 M349.46,18.15l-1.51-1.51 M347.95,16.64l-1.51-0.79 M346.44,15.84h-2.3 M344.14,15.84l-1.51,0.79
-	 M342.62,16.64l-1.51,1.51 M341.11,18.15l-0.72,2.23 M340.39,20.38v1.51 M340.39,21.89l0.72,2.3 M341.11,24.2l1.51,1.51
-	 M342.62,25.71l1.51,0.72 M344.14,26.43h2.3 M346.44,26.43l1.51-0.72 M347.95,25.71l1.51-1.51 M354.72,10.59l0.79,0.72
-	 M355.51,11.31l0.72-0.72 M356.23,10.59l-0.72-0.79 M355.51,9.8l-0.79,0.79 M355.51,15.84v10.58 M366.1,10.59h-1.51 M364.58,10.59
-	l-1.51,0.72 M363.07,11.31l-0.79,2.3 M362.28,13.61v12.82 M360.05,15.84h5.26 M375.17,10.59h-1.51 M373.66,10.59l-1.51,0.72
-	 M372.14,11.31l-0.79,2.3 M371.35,13.61v12.82 M369.12,15.84h5.26 M379.7,15.84v7.56 M379.7,23.4l0.72,2.3 M380.42,25.71l1.51,0.72
-	 M381.94,26.43h2.3 M384.24,26.43l1.51-0.72 M385.75,25.71l2.23-2.3 M387.98,15.84v10.58 M401.59,18.15l-0.72-1.51 M400.87,16.64
-	l-2.3-0.79 M398.57,15.84h-2.23 M396.34,15.84l-2.3,0.79 M394.03,16.64l-0.72,1.51 M393.31,18.15l0.72,1.51 M394.03,19.66l1.51,0.72
-	 M395.54,20.38l3.82,0.79 M399.36,21.17l1.51,0.72 M400.87,21.89l0.72,1.51 M401.59,23.4v0.79 M401.59,24.2l-0.72,1.51
-	 M400.87,25.71l-2.3,0.72 M398.57,26.43h-2.23 M396.34,26.43l-2.3-0.72 M394.03,25.71l-0.72-1.51 M406.13,10.59l0.79,0.72
-	 M406.92,11.31l0.72-0.72 M407.64,10.59l-0.72-0.79 M406.92,9.8l-0.79,0.79 M406.92,15.84v10.58 M415.99,15.84l-1.51,0.79
-	 M414.48,16.64l-1.51,1.51 M412.97,18.15l-0.79,2.23 M412.18,20.38v1.51 M412.18,21.89l0.79,2.3 M412.97,24.2l1.51,1.51
-	 M414.48,25.71l1.51,0.72 M415.99,26.43h2.23 M418.22,26.43l1.51-0.72 M419.74,25.71l1.51-1.51 M421.25,24.2l0.79-2.3 M422.04,21.89
-	v-1.51 M422.04,20.38l-0.79-2.23 M421.25,18.15l-1.51-1.51 M419.74,16.64l-1.51-0.79 M418.22,15.84h-2.23 M427.3,15.84v10.58
-	 M427.3,18.87l2.3-2.23 M429.6,16.64l1.51-0.79"/>
-<path class="st1" d="M431.11,15.84h2.23 M433.34,15.84l1.51,0.79 M434.86,16.64l0.79,2.23 M435.65,18.87v7.56 M438.67,27.94h13.61
-	 M463.58,18.15l-0.72-1.51 M462.86,16.64l-2.3-0.79 M460.56,15.84h-2.23 M458.33,15.84l-2.3,0.79 M456.02,16.64l-0.72,1.51
-	 M455.3,18.15l0.72,1.51 M456.02,19.66l1.51,0.72 M457.54,20.38l3.82,0.79 M461.35,21.17l1.51,0.72 M462.86,21.89l0.72,1.51
-	 M463.58,23.4v0.79 M463.58,24.2l-0.72,1.51 M462.86,25.71l-2.3,0.72 M460.56,26.43h-2.23 M458.33,26.43l-2.3-0.72 M456.02,25.71
-	l-0.72-1.51 M468.91,15.84v10.58 M468.91,18.87l2.23-2.23 M471.14,16.64l1.51-0.79 M472.66,15.84h2.3 M474.96,15.84l1.51,0.79
-	 M476.47,16.64l0.72,2.23 M477.19,18.87v7.56 M477.19,18.87l2.3-2.23 M479.5,16.64l1.51-0.79 M481.01,15.84h2.23 M483.24,15.84
-	l1.51,0.79 M484.75,16.64l0.79,2.23 M485.54,18.87v7.56 M494.62,15.84l-1.51,0.79 M493.1,16.64l-1.51,1.51 M491.59,18.15l-0.79,2.23
-	 M490.8,20.38v1.51 M490.8,21.89l0.79,2.3 M491.59,24.2l1.51,1.51 M493.1,25.71l1.51,0.72 M494.62,26.43h2.23 M496.85,26.43
-	l1.51-0.72 M498.36,25.71l1.51-1.51 M499.87,24.2l0.79-2.3 M500.66,21.89v-1.51 M500.66,20.38l-0.79-2.23 M499.87,18.15l-1.51-1.51
-	 M498.36,16.64l-1.51-0.79 M496.85,15.84h-2.23 M508.94,15.84l-1.51,0.79 M507.43,16.64l-1.51,1.51 M505.92,18.15l-0.72,2.23
-	 M505.2,20.38v1.51 M505.2,21.89l0.72,2.3 M505.92,24.2l1.51,1.51 M507.43,25.71l1.51,0.72 M508.94,26.43h2.3 M511.25,26.43
-	l1.51-0.72 M512.76,25.71l1.51-1.51 M514.27,24.2l0.72-2.3 M514.99,21.89v-1.51 M514.99,20.38l-0.72-2.23 M514.27,18.15l-1.51-1.51
-	 M512.76,16.64l-1.51-0.79 M511.25,15.84h-2.3 M521.04,10.59V23.4 M521.04,23.4l0.79,2.3 M521.83,25.71l1.51,0.72 M523.34,26.43
-	h1.51 M518.81,15.84h5.26 M529.39,10.59v15.84 M529.39,18.87l2.23-2.23 M531.62,16.64l1.51-0.79 M533.14,15.84h2.3 M535.44,15.84
-	l1.51,0.79 M536.95,16.64l0.72,2.23 M537.67,18.87v7.56 M543.72,15.84v10.58 M543.72,18.87l2.3-2.23 M546.02,16.64l1.51-0.79
-	 M547.54,15.84h2.23 M549.77,15.84l1.51,0.79 M551.28,16.64l0.79,2.23 M552.07,18.87v7.56 M557.33,20.38h9.07 M566.4,20.38v-1.51
-	 M566.4,18.87l-0.72-1.51 M565.68,17.36l-0.79-0.72 M564.89,16.64l-1.51-0.79 M563.38,15.84h-2.23 M561.14,15.84l-1.51,0.79
-	 M559.63,16.64l-1.51,1.51 M558.12,18.15l-0.79,2.23 M557.33,20.38v1.51 M557.33,21.89l0.79,2.3 M558.12,24.2l1.51,1.51
-	 M559.63,25.71l1.51,0.72 M561.14,26.43h2.23 M563.38,26.43l1.51-0.72 M564.89,25.71l1.51-1.51 M579.29,18.15l-0.79-1.51
-	 M578.5,16.64l-2.23-0.79 M576.26,15.84h-2.3 M573.96,15.84l-2.23,0.79 M571.73,16.64l-0.79,1.51 M570.94,18.15l0.79,1.51
-	 M571.73,19.66l1.51,0.72 M573.24,20.38l3.74,0.79 M576.98,21.17l1.51,0.72 M578.5,21.89l0.79,1.51 M579.29,23.4v0.79 M579.29,24.2
-	l-0.79,1.51 M578.5,25.71l-2.23,0.72 M576.26,26.43h-2.3 M573.96,26.43l-2.23-0.72 M571.73,25.71l-0.79-1.51 M592.1,18.15
-	l-0.72-1.51 M591.38,16.64l-2.3-0.79 M589.08,15.84h-2.23 M586.85,15.84l-2.3,0.79 M584.54,16.64l-0.72,1.51 M583.82,18.15
-	l0.72,1.51 M584.54,19.66l1.51,0.72 M586.06,20.38l3.82,0.79 M589.87,21.17l1.51,0.72 M591.38,21.89l0.72,1.51 M592.1,23.4v0.79
-	 M592.1,24.2l-0.72,1.51 M591.38,25.71l-2.3,0.72 M589.08,26.43h-2.23 M586.85,26.43l-2.3-0.72 M584.54,25.71l-0.72-1.51
-	 M113.45,592.49h705.6 M819.05,592.49V63.29 M819.05,63.29h-705.6 M113.45,63.29v529.2 M116.62,592.49v-5.26 M180.55,592.49v-10.44
-	 M244.49,592.49v-5.26 M308.35,592.49v-10.44 M372.29,592.49v-5.26 M436.22,592.49v-10.44 M500.09,592.49v-5.26 M564.02,592.49
-	v-10.44 M627.96,592.49v-5.26 M691.9,592.49v-10.44 M755.76,592.49v-5.26 M116.62,68.55v-5.26 M180.55,73.73V63.29 M244.49,68.55
-	v-5.26 M308.35,73.73V63.29 M372.29,68.55v-5.26 M436.22,73.73V63.29 M500.09,68.55v-5.26 M564.02,73.73V63.29 M627.96,68.55v-5.26
-	 M691.9,73.73V63.29 M755.76,68.55v-5.26 M156.86,607.83l1.37-0.65 M158.23,607.18l2.09-2.16 M160.32,605.02v14.69 M172.85,605.02
-	l-2.09,0.72 M170.76,605.74l-1.37,2.09 M169.39,607.83l-0.72,3.53 M168.67,611.36v2.09 M168.67,613.44l0.72,3.46 M169.39,616.9
-	l1.37,2.09 M170.76,618.99l2.09,0.72 M172.85,619.71h1.44 M174.29,619.71l2.09-0.72 M176.38,618.99l1.37-2.09 M177.74,616.9
-	l0.72-3.46 M178.46,613.44v-2.09 M178.46,611.36l-0.72-3.53 M177.74,607.83l-1.37-2.09 M176.38,605.74l-2.09-0.72 M174.29,605.02
-	h-1.44 M186.82,605.02l-2.09,0.72 M184.73,605.74l-1.37,2.09 M183.36,607.83l-0.72,3.53 M182.64,611.36v2.09 M182.64,613.44
-	l0.72,3.46 M183.36,616.9l1.37,2.09 M184.73,618.99l2.09,0.72 M186.82,619.71h1.44 M188.26,619.71l2.09-0.72 M190.34,618.99
-	l1.37-2.09 M191.71,616.9l0.72-3.46 M192.43,613.44v-2.09 M192.43,611.36l-0.72-3.53 M191.71,607.83l-1.37-2.09 M190.34,605.74
-	l-2.09-0.72 M188.26,605.02h-1.44 M200.78,605.02l-2.09,0.72 M198.7,605.74l-1.37,2.09 M197.33,607.83l-0.72,3.53 M196.61,611.36
-	v2.09 M196.61,613.44l0.72,3.46 M197.33,616.9l1.37,2.09"/>
-<path class="st1" d="M198.7,618.99l2.09,0.72 M200.78,619.71h1.44 M202.22,619.71l2.09-0.72 M204.31,618.99l1.37-2.09 M205.68,616.9
-	l0.72-3.46 M206.4,613.44v-2.09 M206.4,611.36l-0.72-3.53 M205.68,607.83l-1.37-2.09 M204.31,605.74l-2.09-0.72 M202.22,605.02
-	h-1.44 M293.02,605.02l-2.09,0.72 M290.93,605.74l-0.72,1.44 M290.21,607.18v1.37 M290.21,608.55l0.72,1.37 M290.93,609.92
-	l1.44,0.72 M292.37,610.64l2.74,0.72 M295.1,611.36l2.09,0.65 M297.19,612l1.44,1.44 M298.63,613.44l0.65,1.37 M299.28,614.81v2.09
-	 M299.28,616.9l-0.65,1.44 M298.63,618.34l-0.72,0.65 M297.91,618.99l-2.09,0.72 M295.82,619.71h-2.81 M293.02,619.71l-2.09-0.72
-	 M290.93,618.99l-0.72-0.65 M290.21,618.34l-0.65-1.44 M289.56,616.9v-2.09 M289.56,614.81l0.65-1.37 M290.21,613.44l1.44-1.44
-	 M291.65,612l2.09-0.65 M293.74,611.36l2.81-0.72 M296.54,610.64l1.37-0.72 M297.91,609.92l0.72-1.37 M298.63,608.55v-1.37
-	 M298.63,607.18l-0.72-1.44 M297.91,605.74l-2.09-0.72 M295.82,605.02h-2.81 M307.7,605.02l-2.09,0.72 M305.62,605.74l-1.44,2.09
-	 M304.18,607.83l-0.65,3.53 M303.53,611.36v2.09 M303.53,613.44l0.65,3.46 M304.18,616.9l1.44,2.09 M305.62,618.99l2.09,0.72
-	 M307.7,619.71h1.37 M309.07,619.71l2.09-0.72 M311.16,618.99l1.44-2.09 M312.6,616.9l0.65-3.46 M313.25,613.44v-2.09
-	 M313.25,611.36l-0.65-3.53 M312.6,607.83l-1.44-2.09 M311.16,605.74l-2.09-0.72 M309.07,605.02h-1.37 M321.67,605.02l-2.09,0.72
-	 M319.58,605.74l-1.44,2.09 M318.14,607.83l-0.72,3.53 M317.42,611.36v2.09 M317.42,613.44l0.72,3.46 M318.14,616.9l1.44,2.09
-	 M319.58,618.99l2.09,0.72 M321.67,619.71h1.37 M323.04,619.71l2.09-0.72 M325.13,618.99l1.37-2.09 M326.5,616.9l0.72-3.46
-	 M327.22,613.44v-2.09 M327.22,611.36l-0.72-3.53 M326.5,607.83l-1.37-2.09 M325.13,605.74l-2.09-0.72 M323.04,605.02h-1.37
-	 M426.43,607.18l-0.72-1.44 M425.71,605.74l-2.09-0.72 M423.62,605.02h-1.37 M422.26,605.02l-2.09,0.72 M420.17,605.74l-1.44,2.09
-	 M418.73,607.83l-0.65,3.53 M418.08,611.36v3.46 M418.08,614.81l0.65,2.81 M418.73,617.62l1.44,1.37 M420.17,618.99l2.09,0.72
-	 M422.26,619.71h0.72 M422.98,619.71l2.09-0.72 M425.06,618.99l1.37-1.37 M426.43,617.62l0.72-2.09 M427.15,615.53v-0.72
-	 M427.15,614.81l-0.72-2.09 M426.43,612.72l-1.37-1.37 M425.06,611.36l-2.09-0.72 M422.98,610.64h-0.72 M422.26,610.64l-2.09,0.72
-	 M420.17,611.36l-1.44,1.37 M418.73,612.72l-0.65,2.09 M435.5,605.02l-2.09,0.72 M433.42,605.74l-1.37,2.09 M432.05,607.83
-	l-0.72,3.53 M431.33,611.36v2.09 M431.33,613.44l0.72,3.46 M432.05,616.9l1.37,2.09 M433.42,618.99l2.09,0.72 M435.5,619.71h1.37
-	 M436.87,619.71l2.16-0.72 M439.03,618.99l1.37-2.09 M440.4,616.9l0.72-3.46 M441.12,613.44v-2.09 M441.12,611.36l-0.72-3.53
-	 M440.4,607.83l-1.37-2.09 M439.03,605.74l-2.16-0.72 M436.87,605.02h-1.37 M449.47,605.02l-2.09,0.72 M447.38,605.74l-1.44,2.09
-	 M445.94,607.83l-0.65,3.53 M445.3,611.36v2.09 M445.3,613.44l0.65,3.46 M445.94,616.9l1.44,2.09 M447.38,618.99l2.09,0.72
-	 M449.47,619.71h1.37 M450.84,619.71l2.09-0.72 M452.93,618.99l1.44-2.09 M454.37,616.9l0.65-3.46 M455.02,613.44v-2.09
-	 M455.02,611.36l-0.65-3.53 M454.37,607.83l-1.44-2.09 M452.93,605.74l-2.09-0.72 M450.84,605.02h-1.37 M552.14,605.02l-6.98,9.79
-	 M545.16,614.81h10.51 M552.14,605.02v14.69 M563.3,605.02l-2.09,0.72 M561.22,605.74l-1.37,2.09 M559.85,607.83l-0.72,3.53
-	 M559.13,611.36v2.09 M559.13,613.44l0.72,3.46 M559.85,616.9l1.37,2.09 M561.22,618.99l2.09,0.72 M563.3,619.71h1.44
-	 M564.74,619.71l2.09-0.72 M566.83,618.99l1.37-2.09 M568.2,616.9l0.72-3.46 M568.92,613.44v-2.09 M568.92,611.36l-0.72-3.53
-	 M568.2,607.83l-1.37-2.09 M566.83,605.74l-2.09-0.72 M564.74,605.02h-1.44 M577.27,605.02l-2.09,0.72 M575.18,605.74l-1.37,2.09
-	 M573.82,607.83l-0.72,3.53 M573.1,611.36v2.09 M573.1,613.44l0.72,3.46 M573.82,616.9l1.37,2.09 M575.18,618.99l2.09,0.72
-	 M577.27,619.71h1.44 M578.71,619.71l2.09-0.72 M580.8,618.99l1.37-2.09 M582.17,616.9l0.72-3.46 M582.89,613.44v-2.09
-	 M582.89,611.36l-0.72-3.53 M582.17,607.83l-1.37-2.09 M580.8,605.74l-2.09-0.72 M578.71,605.02h-1.44 M673.75,608.55v-0.72
-	 M673.75,607.83l0.65-1.37 M674.4,606.46l0.72-0.72 M675.12,605.74l1.37-0.72 M676.49,605.02h2.81 M679.3,605.02l1.37,0.72
-	 M680.66,605.74l0.72,0.72 M681.38,606.46l0.72,1.37 M682.1,607.83v1.44 M682.1,609.27l-0.72,1.37 M681.38,610.64l-1.37,2.09
-	 M680.02,612.72l-6.98,6.98 M673.03,619.71h9.79 M691.18,605.02l-2.09,0.72 M689.09,605.74l-1.44,2.09 M687.65,607.83l-0.65,3.53
-	 M687,611.36v2.09 M687,613.44l0.65,3.46 M687.65,616.9l1.44,2.09 M689.09,618.99l2.09,0.72 M691.18,619.71h1.37 M692.54,619.71
-	l2.09-0.72 M694.63,618.99l1.44-2.09 M696.07,616.9l0.65-3.46 M696.72,613.44v-2.09 M696.72,611.36l-0.65-3.53 M696.07,607.83
-	l-1.44-2.09 M694.63,605.74l-2.09-0.72 M692.54,605.02h-1.37 M705.14,605.02l-2.09,0.72 M703.06,605.74l-1.44,2.09 M701.62,607.83
-	l-0.65,3.53 M700.97,611.36v2.09 M700.97,613.44l0.65,3.46 M701.62,616.9l1.44,2.09 M703.06,618.99l2.09,0.72 M705.14,619.71h1.37
-	 M706.51,619.71l2.09-0.72 M708.6,618.99l1.44-2.09 M710.04,616.9l0.65-3.46 M710.69,613.44v-2.09"/>
-<path class="st1" d="M710.69,611.36l-0.65-3.53 M710.04,607.83l-1.44-2.09 M708.6,605.74l-2.09-0.72 M706.51,605.02h-1.37
-	 M113.45,547.28h10.44 M113.45,463.11h5.26 M113.45,378.94h10.44 M113.45,294.77h5.26 M113.45,210.53h10.44 M113.45,126.36h5.26
-	 M808.61,547.28h10.44 M813.79,463.11h5.26 M808.61,378.94h10.44 M813.79,294.77h5.26 M808.61,210.53h10.44 M813.79,126.36h5.26
-	 M89.9,539.43l-2.09,0.72 M87.82,540.15l-1.44,2.09 M86.38,542.24l-0.65,3.46 M85.73,545.69v2.09 M85.73,547.78l0.65,3.53
-	 M86.38,551.31l1.44,2.09 M87.82,553.4l2.09,0.72 M89.9,554.12h1.37 M91.27,554.12l2.09-0.72 M93.36,553.4l1.44-2.09 M94.8,551.31
-	l0.65-3.53 M95.45,547.78v-2.09 M95.45,545.69l-0.65-3.46 M94.8,542.24l-1.44-2.09 M93.36,540.15l-2.09-0.72 M91.27,539.43H89.9
-	 M841.22,539.43l-2.09,0.72 M839.14,540.15l-1.44,2.09 M837.7,542.24l-0.65,3.46 M837.05,545.69v2.09 M837.05,547.78l0.65,3.53
-	 M837.7,551.31l1.44,2.09 M839.14,553.4l2.09,0.72 M841.22,554.12h1.37 M842.59,554.12l2.09-0.72 M844.68,553.4l1.44-2.09
-	 M846.12,551.31l0.65-3.53 M846.77,547.78v-2.09 M846.77,545.69l-0.65-3.46 M846.12,542.24l-1.44-2.09 M844.68,540.15l-2.09-0.72
-	 M842.59,539.43h-1.37 M68.95,371.09l-2.09,0.65 M66.86,371.74l-1.37,2.09 M65.5,373.83l-0.72,3.53 M64.78,377.36v2.09
-	 M64.78,379.44l0.72,3.46 M65.5,382.9l1.37,2.16 M66.86,385.06l2.09,0.65 M68.95,385.71h1.44 M70.39,385.71l2.09-0.65 M72.48,385.06
-	l1.37-2.16 M73.85,382.9l0.72-3.46 M74.57,379.44v-2.09 M74.57,377.36l-0.72-3.53 M73.85,373.83l-1.37-2.09 M72.48,371.74
-	l-2.09-0.65 M70.39,371.09h-1.44 M80.11,384.34l-0.65,0.72 M79.46,385.06l0.65,0.65 M80.11,385.71l0.72-0.65 M80.83,385.06
-	l-0.72-0.72 M86.38,374.55v-0.72 M86.38,373.83l0.72-1.37 M87.1,372.46l0.72-0.72 M87.82,371.74l1.37-0.65 M89.18,371.09h2.81
-	 M91.99,371.09l1.37,0.65 M93.36,371.74l0.72,0.72 M94.08,372.46l0.72,1.37 M94.8,373.83v1.44 M94.8,375.27l-0.72,1.37
-	 M94.08,376.64l-1.37,2.09 M92.71,378.72l-6.98,6.98 M85.73,385.71h9.72 M841.22,371.09l-2.09,0.65 M839.14,371.74l-1.44,2.09
-	 M837.7,373.83l-0.65,3.53 M837.05,377.36v2.09 M837.05,379.44l0.65,3.46 M837.7,382.9l1.44,2.16 M839.14,385.06l2.09,0.65
-	 M841.22,385.71h1.37 M842.59,385.71l2.09-0.65 M844.68,385.06l1.44-2.16 M846.12,382.9l0.65-3.46 M846.77,379.44v-2.09
-	 M846.77,377.36l-0.65-3.53 M846.12,373.83l-1.44-2.09 M844.68,371.74l-2.09-0.65 M842.59,371.09h-1.37 M852.38,384.34l-0.72,0.72
-	 M851.66,385.06l0.72,0.65 M852.38,385.71l0.72-0.65 M853.1,385.06l-0.72-0.72 M858.65,374.55v-0.72 M858.65,373.83l0.72-1.37
-	 M859.37,372.46l0.65-0.72 M860.02,371.74l1.44-0.65 M861.46,371.09h2.81 M864.26,371.09l1.37,0.65 M865.63,371.74l0.72,0.72
-	 M866.35,372.46l0.65,1.37 M867,373.83v1.44 M867,375.27l-0.65,1.37 M866.35,376.64l-1.44,2.09 M864.91,378.72l-6.98,6.98
-	 M857.93,385.71h9.79 M68.95,202.68l-2.09,0.72 M66.86,203.4l-1.37,2.09 M65.5,205.49l-0.72,3.53 M64.78,209.02v2.09 M64.78,211.11
-	l0.72,3.46 M65.5,214.56l1.37,2.09 M66.86,216.65l2.09,0.72 M68.95,217.37h1.44 M70.39,217.37l2.09-0.72 M72.48,216.65l1.37-2.09
-	 M73.85,214.56l0.72-3.46 M74.57,211.11v-2.09 M74.57,209.02l-0.72-3.53 M73.85,205.49l-1.37-2.09 M72.48,203.4l-2.09-0.72
-	 M70.39,202.68h-1.44 M80.11,216l-0.65,0.65 M79.46,216.65l0.65,0.72 M80.11,217.37l0.72-0.72 M80.83,216.65L80.11,216
-	 M92.71,202.68l-6.98,9.79 M85.73,212.48h10.44 M92.71,202.68v14.69 M841.22,202.68l-2.09,0.72 M839.14,203.4l-1.44,2.09
-	 M837.7,205.49l-0.65,3.53 M837.05,209.02v2.09 M837.05,211.11l0.65,3.46 M837.7,214.56l1.44,2.09 M839.14,216.65l2.09,0.72
-	 M841.22,217.37h1.37 M842.59,217.37l2.09-0.72 M844.68,216.65l1.44-2.09 M846.12,214.56l0.65-3.46 M846.77,211.11v-2.09
-	 M846.77,209.02l-0.65-3.53 M846.12,205.49l-1.44-2.09 M844.68,203.4l-2.09-0.72 M842.59,202.68h-1.37 M852.38,216l-0.72,0.65
-	 M851.66,216.65l0.72,0.72 M852.38,217.37l0.72-0.72 M853.1,216.65l-0.72-0.65 M864.91,202.68l-6.98,9.79 M857.93,212.48h10.51
-	 M864.91,202.68v14.69"/>
-<path class="st2" d="M7.25,377.64h18.29 M15.96,377.64l-1.73-1.8 M14.23,375.84l-0.86-1.73 M13.37,374.12v-2.59 M13.37,371.52
-	l0.86-1.73 M14.23,369.8l1.73-1.8 M15.96,368l2.59-0.86 M18.55,367.13h1.8 M20.35,367.13l2.59,0.86 M22.94,368l1.73,1.8
-	 M24.67,369.8l0.86,1.73 M25.54,371.52v2.59 M25.54,374.12l-0.86,1.73 M24.67,375.84l-1.73,1.8 M13.37,361.01h12.17 M18.55,361.01
-	l-2.59-0.86 M15.96,360.15l-1.73-1.73 M14.23,358.42l-0.86-1.73 M13.37,356.69v-2.66 M13.37,349.71h8.71 M22.08,349.71l2.59-0.86
-	 M24.67,348.84l0.86-1.73 M25.54,347.12v-2.66 M25.54,344.45l-0.86-1.73 M24.67,342.72l-2.59-2.59 M13.37,340.13h12.17
-	 M13.37,333.15h12.17 M16.82,333.15l-2.59-2.66 M14.23,330.48l-0.86-1.73 M13.37,328.76v-2.59 M13.37,326.16l0.86-1.73
-	 M14.23,324.44l2.59-0.94 M16.82,323.5h8.71 M7.25,315.65h14.83 M22.08,315.65l2.59-0.86 M24.67,314.79l0.86-1.73 M25.54,313.06
-	v-1.73 M13.37,318.32v-6.12 M27.34,309.6v-15.77 M7.25,289.52h18.29 M7.25,289.52v-7.85 M7.25,281.67l0.86-2.59 M8.11,279.08
-	l0.86-0.94 M8.98,278.14l1.73-0.86 M10.7,277.28h1.8 M12.5,277.28l1.73,0.86 M14.23,278.14l0.86,0.94 M15.1,279.08l0.86,2.59
-	 M15.96,289.52v-7.85 M15.96,281.67l0.86-2.59 M16.82,279.08l0.86-0.94 M17.69,278.14l1.8-0.86 M19.49,277.28h2.59 M22.08,277.28
-	l1.73,0.86 M23.81,278.14l0.86,0.94 M24.67,279.08l0.86,2.59 M25.54,281.67v7.85"/>
-<path class="st3" d="M691.25,547.27c0.3,0,0.92,0,1.22,0c22.17,0,44.35,0,66.53,0c13.84,0,27.7,0,41.54,0
-	c10.95,7.9,3.19-57.48,5.69-58.97c0.65,0.42-0.97,61.27,1.94,58.97c3.61,0,7.26,0,10.87,0"/>
-<path class="st3" d="M563.38,547.27c26.64,0,53.28,0,79.92,0c15.98,0,31.98,0.01,47.95,0"/>
-<path class="st3" d="M435.58,547.27c12.98,0,25.97,0,38.95,0c29.61,0,59.24,0.01,88.85,0"/>
-<path class="st3" d="M307.78,546.48c2.52-0.84,7.21,1.66,8.28-1.51c1.31,3.81,1.42,2.61,2.52-0.5c0.85,3.06-0.24,2.98,2.59,1.44
-	c1.87,0.04,5.27,1.44,5.76-1.08c2.43,8.62,1.58-5.36,3.17,2.74c0.58-1.35,2.4-0.99,2.59-2.66c0.84,1.52,1.11,4.69,1.87,1.22
-	c1.01-1.47,0.8,0.45,1.3,1.01c0,0,0.65-1.94,0.65-1.94c0.93,1.75,1.09,4.84,1.94,1.15c1.07-3.79,0.76,0.9,1.22,1.73
-	c1.1-2.7,5.99-0.08,6.41-3.74c1.87,4.05,1.59-1.13,2.59-2.81c0.87,2.57,0.61,1.37,1.22-0.36c3.68-7.52,8.47-12.89,9-20.66
-	c0.89-6.9,0.74-0.88,1.22,1.66c0.79,0.36-0.97,27.31,1.94,25.13c5.75,0,11.53,0,17.28,0c18.74,0,37.5,0.01,56.23,0"/>
-<path class="st3" d="M179.91,523.3c9.69,9.35,25.9,15.65,35.78,17.93c0.96-1.23,0.94,1.01,1.3,1.44c1.12-1.7,1.41-1.98,1.94,0.14
-	c0.72-1.03,1.71-0.73,2.52,0c0.82-0.4,1.96-0.14,2.59,0.5c1.61-2.26,1.85,1.05,3.17-0.36c0.66-0.71,0.72-0.61,1.3,0.07
-	c0.85-0.03,1.86-0.06,2.52,0.58c0.79-0.56,1.24-1.66,1.94-0.43c0.79,0.16,1.75-0.16,2.52,0.14c0.8,1.35,1.49-0.53,2.59-0.58
-	c0.6,1.56,0.65,1.52,1.94,0.5c0.93-1.89,0.64,0.53,1.87,0.5c1.21,0.36,3.06,0.58,3.89-0.58c0.96,1.26,2.07,1.97,3.17,0.43
-	c1.2,1.58,3.93,0.87,5.76,1.37c3.39,0.28,6.83,0.55,10.22,0.72c2.69-0.3,13.41,2.07,13.39-0.86c0.66,1.37,1.16,4.45,1.94,1.3
-	c1.11-3.55,0.7,0.52,1.3,1.29c3.61-2.79,1.83-3.23,3.82,0.36c1.06-2.82,1.36-3.98,1.87-0.29c3.64-3.03,1.99-3.2,3.89,0.36
-	c1.01-2.74,1.38-3.89,1.87-0.29c0.45-1.46,2.04-1.05,3.24-1.22c0.8-2.43,0.8-0.46,1.3,0.65c0.84,2.87,1.1-1.37,1.87-2.23
-	c0.7,4.02,1.11,2.65,2.59-0.07c0.46,1.99,0.58,4.24,1.22,0.58c0.35,0.57,0.32,4.05,1.3,1.37c1.21,0.5,1.68-1.21,1.95-2.02
-	c0.3,0.44,0.27,4.86,1.3,1.87"/>
-<path class="st3" d="M113.45,107.43c0,0,0.65,139.82,0.65,139.82c0.58,0,1.37-0.02,1.94,0.07c13.28-3.08,9.59,70.78,12.75,82.51
-	c5.19,60.38,6.33,148.38,51.12,193.46"/>
-<path class="st4" d="M446.59,642.68l-9.58,12.17 M437.02,642.68h9.58 M437.02,654.84h9.58 M456.24,642.68l-1.8,0.86 M454.44,643.54
-	l-1.73,1.73 M452.71,645.27l-0.86,2.59 M451.85,647.86v1.8 M451.85,649.66l0.86,2.59 M452.71,652.25l1.73,1.73 M454.44,653.98
-	l1.8,0.86 M456.24,654.84h2.59 M458.83,654.84l1.73-0.86 M460.56,653.98l1.73-1.73 M462.29,652.25l0.94-2.59 M463.22,649.66v-1.8
-	 M463.22,647.86l-0.94-2.59 M462.29,645.27l-1.73-1.73 M460.56,643.54l-1.73-0.86 M458.83,642.68h-2.59 M469.27,642.68v12.17
-	 M469.27,646.13l2.66-2.59 M471.94,643.54l1.73-0.86 M473.66,642.68h2.59 M476.26,642.68l1.8,0.86 M478.06,643.54l0.86,2.59
-	 M478.92,646.13v8.71 M484.97,647.86h10.51 M495.48,647.86v-1.73 M495.48,646.13l-0.86-1.73 M494.62,644.4l-0.86-0.86
-	 M493.75,643.54l-1.8-0.86 M491.95,642.68h-2.59 M489.36,642.68l-1.73,0.86 M487.63,643.54l-1.73,1.73 M485.9,645.27l-0.94,2.59
-	 M484.97,647.86v1.8 M484.97,649.66l0.94,2.59 M485.9,652.25l1.73,1.73 M487.63,653.98l1.73,0.86 M489.36,654.84h2.59
-	 M491.95,654.84l1.8-0.86 M493.75,653.98l1.73-1.73"/>
-<path class="st5" d="M819.05,591.99h-12.82 M360.12,591.99H113.45"/>
-<line class="st6" x1="805.66" y1="591.99" x2="360.77" y2="591.99"/>
-</svg>
+<svg xmlns="http://www.w3.org/2000/svg" width="1344" height="1008"><path fill-rule="evenodd" d="M.016 1007.984h1343.967V.009H.016z"/><g fill="none" stroke-linecap="round" stroke-linejoin="round" stroke-miterlimit="10"><g stroke="#fff" stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M1061.267 82.09v8.64M1061.267 84.49l1.824-1.824M1063.093 82.663l1.248-.576M1064.347 82.09h1.824M1066.16 82.09l1.248.576M1067.413 82.663l.672 1.824M1068.08 84.49v6.24M1068.08 84.49l1.824-1.824M1069.907 82.663l1.248-.576M1071.16 82.09h1.824M1072.987 82.09l1.247.576M1074.226 82.663l.672 1.824M1074.906 84.49v6.24M1082.293 82.09l-1.248.576M1081.04 82.663l-1.248 1.248M1079.8 83.916l-.576 1.824M1079.226 85.73v1.248M1079.226 86.983l.576 1.92M1079.8 88.903l1.248 1.248M1081.04 90.156l1.248.576M1082.293 90.73h1.92M1084.213 90.73l1.248-.576M1085.466 90.156l1.248-1.248M1086.706 88.903l.576-1.92M1087.28 86.983v-1.248M1087.28 85.73l-.577-1.824M1086.706 83.916l-1.248-1.248M1085.466 82.663l-1.248-.576M1084.213 82.09h-1.92M1098.426 77.677v13.055M1098.426 83.916l-1.248-1.248M1097.173 82.663l-1.248-.576M1095.92 82.09h-1.825M1094.106 82.09l-1.248.576M1092.853 82.663l-1.248 1.248M1091.6 83.916l-.577 1.824M1091.026 85.73v1.248M1091.026 86.983l.576 1.92M1091.6 88.903l1.247 1.248M1092.853 90.156l1.248.576M1094.106 90.73h1.824M1095.92 90.73l1.247-.576M1097.173 90.156l1.248-1.248M1102.84 85.73h7.39M1110.226 85.73v-1.248M1110.226 84.49l-.576-1.248M1109.652 83.236l-.672-.576M1108.986 82.663l-1.248-.576M1107.732 82.09h-1.824M1105.906 82.09l-1.248.576M1104.666 82.663l-1.248 1.248M1103.412 83.916l-.576 1.824M1102.84 85.73v1.248M1102.84 86.983l.575 1.92M1103.412 88.903l1.248 1.248M1104.666 90.156l1.248.576M1105.906 90.73h1.824M1107.732 90.73l1.248-.576M1108.986 90.156l1.248-1.248M1114.545 77.677v13.055M1130.105 77.677h6.816M1136.918 77.677l-3.744 4.991M1133.172 82.663h1.92M1135.092 82.663l1.152.576M1136.238 83.236l.672.672M1136.918 83.916l.576 1.824M1137.492 85.73v1.248M1137.492 86.983l-.576 1.92M1136.918 88.903l-1.248 1.248M1135.665 90.156l-1.824.576M1133.838 90.73h-1.92M1131.918 90.73l-1.824-.576M1130.105 90.156l-.672-.672M1129.425 89.476l-.576-1.248M1149.305 79.597l-.576-1.248M1148.718 78.343l-1.92-.672M1146.798 77.677h-1.248M1145.558 77.677l-1.824.672M1143.731 78.343l-1.248 1.824M1142.478 80.17l-.576 3.072M1141.905 83.236v3.168M1141.905 86.41l.576 2.496M1142.478 88.903l1.248 1.248M1143.731 90.156l1.824.576M1145.558 90.73h.672M1146.225 90.73l1.824-.576M1148.051 90.156l1.247-1.248M1149.305 88.903l.672-1.92M1149.971 86.983v-.576M1149.971 86.41l-.672-1.92M1149.305 84.49l-1.247-1.248M1148.051 83.236l-1.825-.576M1146.225 82.663h-.674M1145.558 82.663l-1.824.576M1143.731 83.236l-1.248 1.248M1142.478 84.49l-.576 1.92M173.289 82.09v8.64M173.289 83.916l-1.248-1.248M172.049 82.663l-1.248-.576M170.796 82.09h-1.824M168.97 82.09l-1.249.576M167.73 82.663l-1.249 1.248M166.476 83.916l-.672 1.824M165.81 85.73v1.248M165.81 86.983l.671 1.92M166.476 88.903l1.248 1.248M167.73 90.156l1.247.576M168.97 90.73h1.823M170.796 90.73l1.248-.576M172.049 90.156l1.248-1.248M185.102 82.09v9.888M185.102 91.97l-.672 1.824M184.422 93.796l-.576.672M183.849 94.476l-1.248.576M182.609 95.05h-1.92M180.689 95.05l-1.152-.576M185.102 83.916l-1.248-1.248M183.849 82.663l-1.248-.576M182.609 82.09h-1.92M180.689 82.09l-1.152.576M179.529 82.663l-1.248 1.248M178.289 83.916l-.672 1.824M177.609 85.73v1.248M177.609 86.983l.672 1.92M178.289 88.903l1.248 1.248M179.529 90.156l1.152.576M180.689 90.73h1.92M182.609 90.73l1.248-.576M183.849 90.156l1.248-1.248M189.422 85.73h7.392M196.808 85.73v-1.248M196.808 84.49l-.576-1.248M196.235 83.236l-.576-.576M195.662 82.663l-1.248-.576M194.408 82.09h-1.92M192.489 82.09l-1.248.576M191.249 82.663 190 83.911M189.995 83.916l-.576 1.824M189.422 85.73v1.248M189.422 86.983l.576 1.92M189.995 88.903l1.248 1.248M191.249 90.156l1.248.576M192.489 90.73h1.92M194.408 90.73l1.248-.576M195.662 90.156l1.152-1.248M211.781 77.677h6.816M218.608 77.677l-3.744 4.991M214.861 82.663h1.824M216.688 82.663l1.248.576M217.928 83.236l.672.672M218.608 83.916l.576 1.824M219.181 85.73v1.248M219.181 86.983l-.576 1.92M218.608 88.903l-1.248 1.248M217.355 90.156l-1.92.576M215.435 90.73h-1.824M213.608 90.73l-1.824-.576M211.781 90.156l-.672-.672M211.115 89.476l-.576-1.248M224.168 89.476l-.672.672M223.501 90.156l.672.576M224.168 90.73l.576-.576M224.741 90.156l-.576-.672M232.808 77.677l-1.824.672M230.98 78.343l-1.247 1.824M229.74 80.17l-.671 3.072M229.06 83.236v1.92M229.06 85.156l.673 3.072M229.74 88.236l1.249 1.92M230.98 90.156l1.825.576M232.808 90.73h1.247M234.06 90.73l1.92-.576M235.98 90.156l1.153-1.92M237.127 88.236l.672-3.072M237.807 85.156v-1.92M237.807 83.236l-.672-3.071M237.127 80.17l-1.152-1.824M235.98 78.343l-1.92-.672M234.06 77.677h-1.247M245.194 77.677l-1.824.672M243.367 78.343l-1.248 1.824M242.127 80.17l-.576 3.072M241.54 83.236v1.92M241.54 85.156l.577 3.072M242.127 88.236l1.248 1.92M243.367 90.156l1.824.576M245.194 90.73h1.248M246.447 90.73l1.92-.576M248.367 90.156l1.248-1.92M249.607 88.236l.576-3.072M250.18 85.156v-1.92M250.18 83.236l-.576-3.071M249.607 80.17l-1.248-1.824M248.367 78.343l-1.92-.672M246.447 77.677H245.2M257.674 77.677l-1.92.672M255.754 78.343l-1.248 1.824M254.5 80.17l-.576 3.072M253.927 83.236v1.92M253.927 85.156l.576 3.072M254.5 88.236l1.248 1.92M255.754 90.156l1.92.576M257.674 90.73h1.248M258.927 90.73l1.824-.576M260.74 90.156l1.248-1.92M261.993 88.236l.576-3.072M262.567 85.156v-1.92M262.567 83.236l-.576-3.071M261.993 80.17l-1.248-1.824M260.74 78.343l-1.824-.672M258.927 77.677h-1.248M270.06 77.677l-1.824.672M268.233 78.343l-1.248 1.824M266.98 80.17l-.672 3.072M266.313 83.236v1.92M266.313 85.156l.672 3.072M266.98 88.236l1.248 1.92M268.233 90.156l1.824.576M270.06 90.73h1.248M271.3 90.73l1.824-.576M273.127 90.156l1.247-1.92M274.38 88.236l.672-3.072M275.046 85.156v-1.92M275.046 83.236l-.672-3.071M274.38 80.17l-1.248-1.824M273.127 78.343l-1.824-.672M271.3 77.677h-1.248M282.446 77.677l-1.824.672M280.62 78.343l-1.248 1.824M279.366 80.17l-.672 3.072M278.7 83.236v1.92M278.7 85.156l.672 3.072M279.366 88.236l1.248 1.92M280.62 90.156l1.824.576M282.446 90.73h1.248M283.686 90.73l1.824-.576M285.513 90.156l1.248-1.92M286.766 88.236l.672-3.072M287.433 85.156v-1.92M287.433 83.236l-.672-3.071M286.766 80.17l-1.248-1.824M285.513 78.343l-1.824-.672M283.686 77.677h-1.248M294.82 77.677l-1.825.672M293.006 78.343l-1.248 1.824M291.753 80.17l-.576 3.072M291.18 83.236v1.92M291.18 85.156l.575 3.072M291.753 88.236l1.248 1.92M293.006 90.156l1.824.576M294.82 90.73h1.247M296.073 90.73l1.92-.576M297.993 90.156l1.248-1.92M299.246 88.236l.576-3.072M299.82 85.156v-1.92M299.82 83.236l-.577-3.071M299.246 80.17l-1.248-1.824M297.993 78.343l-1.92-.672M296.073 77.677h-1.248M303.566 85.73h7.392M310.952 85.73v-1.248M310.952 84.49l-.576-1.248M310.379 83.236l-.672-.576M309.699 82.663l-1.152-.576M308.552 82.09h-1.92M306.632 82.09l-1.248.576M305.379 82.663l-1.248 1.248M304.14 83.916l-.577 1.824M303.566 85.73v1.248M303.566 86.983l.576 1.92M304.14 88.903l1.247 1.248M305.379 90.156l1.248.576M306.632 90.73h1.92M308.552 90.73l1.152-.576M309.699 90.156l1.248-1.248M322.765 82.09l-.576 1.824M322.179 83.916l-1.248 1.248M320.939 85.156l-1.92.576M319.019 85.73h-.576M318.445 85.73l-1.824-.576M316.619 85.156l-1.248-1.248M315.365 83.916l-.672-1.824M314.699 82.09v-.672M314.699 81.41l.672-1.824M315.365 79.597l1.248-1.248M316.619 78.343l1.824-.672M318.445 77.677h.576M319.019 77.677l1.92.672M320.939 78.343l1.248 1.248M322.179 79.597l.576 2.495M322.765 82.09v3.072M322.765 85.156l-.576 3.072M322.179 88.236l-1.248 1.92M320.939 90.156l-1.92.576M319.019 90.73h-1.248M317.765 90.73l-1.824-.576M315.939 90.156l-.576-1.248M336.392 82.09l3.743 8.64M343.885 82.09l-3.744 8.64M340.138 90.73l-1.248 2.496M338.885 93.223l-1.248 1.248M337.645 94.476l-1.248.576M336.392 95.05h-.576M347.618 82.09v8.64M347.618 85.73l.576-1.824M348.205 83.916l1.248-1.248M349.445 82.663l1.248-.576M350.698 82.09h1.824M361.831 83.916l-.576-1.248M361.258 82.663l-1.92-.576M359.338 82.09h-1.824M357.511 82.09l-1.824.576M355.684 82.663l-.672 1.248M355.018 83.916l.672 1.248M355.684 85.156l1.248.576M356.938 85.73l3.072.672M360.004 86.41l1.248.576M361.258 86.983l.576 1.248M361.831 88.236v.672M361.831 88.903l-.576 1.248M361.258 90.156l-1.92.576M359.338 90.73h-1.824M357.511 90.73l-1.824-.576M355.684 90.156l-.672-1.248M516.294 80.93v21.12M516.294 91.01l-2.016-2.016M514.28 88.996l-2.015-1.056M512.254 87.943h-3.072M509.187 87.943l-2.016 1.056M507.174 88.996l-2.016 2.016M505.16 91.01l-.96 2.976M504.2 93.996v2.016M504.2 96.01l.96 3.071M505.16 99.076l2.017 2.016M507.174 101.09l2.016.96M509.187 102.05h3.072M512.254 102.05l2.016-.96M514.28 101.09l2.016-2.017M523.294 80.93l1.056.96M524.36 81.89l.96-.96M525.32 80.93l-.96-1.056M524.36 79.877l-1.056 1.056M524.36 87.943v14.112M538.467 80.93h-2.016M536.453 80.93l-2.016.96M534.44 81.89l-1.056 3.072M533.373 84.97v17.087M530.4 87.943h7.008M550.56 80.93h-2.016M548.546 80.93l-2.016.96M546.533 81.89l-1.056 3.072M545.48 84.97v17.087M542.493 87.943h7.008M556.613 87.943v10.08M556.613 98.023l.96 3.072M557.573 101.09l2.016.96M559.586 102.05h3.072M562.653 102.05l2.016-.96M564.68 101.09l2.975-3.073M567.652 87.943v14.112M585.799 91.01l-.96-2.016M584.839 88.996l-3.072-1.056M581.759 87.943h-2.976M578.786 87.943l-3.072 1.056M575.719 88.996l-.96 2.016M574.759 91.01l.96 2.016M575.719 93.036l2.016.96M577.732 93.996l5.088 1.056M582.812 95.05l2.016.96M584.839 96.01l.96 2.015M585.799 98.023v1.056M585.799 99.076l-.96 2.016M584.839 101.09l-3.072.96M581.759 102.05h-2.976M578.786 102.05l-3.072-.96M575.719 101.09l-.96-2.017M591.839 80.93l1.056.96M592.892 81.89l.96-.96M593.852 80.93l-.96-1.056M592.892 79.877l-1.056 1.056M592.892 87.943v14.112M604.998 87.943l-2.016 1.056M602.972 88.996l-2.016 2.016M600.958 91.01l-1.056 2.976M599.905 93.996v2.016M599.905 96.01l1.056 3.071M600.958 99.076l2.016 2.016M602.972 101.09l2.016.96M604.998 102.05h2.976M607.971 102.05l2.016-.96M609.985 101.09 612 99.072M611.998 99.076l1.056-3.072M613.051 96.01v-2.016M613.051 93.996l-1.056-2.976M611.998 91.01l-2.016-2.016M609.985 88.996l-2.016-1.056M607.971 87.943h-2.975M620.064 87.943v14.112M620.064 91.97l3.072-2.976M623.131 88.996l2.016-1.056M625.158 87.943h2.976M628.131 87.943l2.016 1.056M630.144 88.996l1.056 2.976M631.198 91.97v10.08M635.237 104.076h18.144M668.45 91.01l-.96-2.016M667.49 88.996l-3.072-1.056M664.41 87.943h-2.976M661.437 87.943l-3.072 1.056M658.37 88.996l-.96 2.016M657.41 91.01l.96 2.016M658.37 93.036l2.016.96M660.383 93.996l5.088 1.056M665.477 95.05l2.016.96M667.49 96.01l.96 2.015M668.45 98.023v1.056M668.45 99.076l-.96 2.016M667.49 101.09l-3.072.96M664.41 102.05h-2.976M661.437 102.05l-3.072-.96M658.37 101.09l-.96-2.017M675.556 87.943v14.112M675.556 91.97l2.976-2.976M678.53 88.996l2.016-1.056M680.543 87.943h3.072M683.61 87.943l2.016 1.056M685.636 88.996l.96 2.976M686.596 91.97v10.08M686.596 91.97l3.072-2.976M689.663 88.996l2.016-1.056M691.676 87.943h2.976M694.65 87.943l2.015 1.056M696.676 88.996l1.056 2.976M697.73 91.97v10.08M709.822 87.943l-2.016 1.056M707.809 88.996l-2.016 2.016M705.796 91.01l-1.056 2.976M704.729 93.996v2.016M704.729 96.01l1.056 3.071M705.796 99.076l2.016 2.016M707.809 101.09l2.016.96M709.822 102.05h2.976M712.796 102.05l2.015-.96M714.809 101.09l2.016-2.017M716.835 99.076l1.056-3.072M717.889 96.01v-2.016M717.889 93.996l-1.056-2.976M716.835 91.01l-2.016-2.016M714.809 88.996l-2.016-1.056M712.796 87.943h-2.976M728.928 87.943l-2.016 1.056M726.915 88.996l-2.016 2.016M724.889 91.01l-.96 2.976M723.929 93.996v2.016M723.929 96.01l.96 3.071M724.889 99.076l2.015 2.016M726.915 101.09l2.016.96M728.928 102.05H732M731.995 102.05l2.016-.96M734.008 101.09l2.016-2.017M736.035 99.076l.96-3.072M736.995 96.01v-2.016M736.995 93.996l-.96-2.976M736.035 91.01l-2.016-2.016M734.008 88.996l-2.016-1.056M731.995 87.943h-3.072M745.048 80.93v17.087M745.048 98.023l1.056 3.072M746.115 101.09l2.016.96M748.128 102.05h2.016M742.075 87.943h7.008M756.194 80.93v21.12M756.194 91.97l2.976-2.976M759.168 88.996l2.016-1.056M761.181 87.943h3.072M764.248 87.943l2.016 1.056M766.274 88.996l.96 2.976M767.234 91.97v10.08M775.287 87.943v14.112M775.287 91.97l3.072-2.976M778.367 88.996l2.016-1.056M780.38 87.943h2.976M783.354 87.943l2.016 1.056M785.367 88.996l1.056 2.976M786.434 91.97v10.08M793.433 93.996h12.096M805.527 93.996V91.98M805.527 91.97l-.96-2.016M804.567 89.956l-1.056-.96M803.513 88.996l-2.016-1.056M801.5 87.943h-2.976M798.527 87.943l-2.016 1.056M796.513 88.996l-2.016 2.016M794.487 91.01l-1.056 2.976M793.433 93.996v2.016M793.433 96.01l1.056 3.071M794.487 99.076l2.016 2.016M796.513 101.09l2.016.96M798.527 102.05h2.976M801.5 102.05l2.016-.96M803.513 101.09l2.016-2.017M822.713 91.01l-1.056-2.016M821.66 88.996l-2.976-1.056M818.686 87.943h-3.072M815.606 87.943l-2.976 1.056M812.633 88.996l-1.056 2.016M811.58 91.01l1.056 2.016M812.633 93.036l2.016.96M814.646 93.996l4.992 1.056M819.646 95.05l2.016.96M821.66 96.01l1.055 2.015M822.713 98.023v1.056M822.713 99.076l-1.056 2.016M821.66 101.09l-2.976.96M818.686 102.05h-3.072M815.606 102.05l-2.976-.96M812.633 101.09l-1.056-2.017M839.806 91.01l-.96-2.016M838.846 88.996l-3.072-1.056M835.766 87.943h-2.976M832.793 87.943l-3.072 1.056M829.726 88.996l-.96 2.016M828.766 91.01l.96 2.016M829.726 93.036l2.016.96M831.74 93.996l5.087 1.056M836.832 95.05l2.016.96M838.846 96.01l.96 2.015M839.806 98.023v1.056M839.806 99.076l-.96 2.016M838.846 101.09l-3.072.96M835.766 102.05h-2.976M832.793 102.05l-3.072-.96M829.726 101.09l-.96-2.017M201.608 856.79h940.777M1142.385 856.79V151.208M1142.385 151.208H201.608M201.608 151.208V856.79M206.701 856.79v-7.007M291.846 856.79v-13.92M377.004 856.79v-7.007M462.148 856.79v-13.92M547.293 856.79v-7.007M632.45 856.79v-13.92M717.502 856.79v-7.007M802.647 856.79v-13.92M887.804 856.79v-7.007M972.949 856.79v-13.92M1058.107 856.79v-7.007M206.701 158.208V151.2M291.846 165.128v-13.92M377.004 158.208V151.2M462.148 165.128v-13.92M547.293 158.208V151.2M632.45 165.128v-13.92M717.502 158.208V151.2M802.647 165.128v-13.92M887.804 158.208V151.2M972.949 165.128v-13.92M1058.107 158.208V151.2M260.26 877.235l1.824-.863M262.087 876.371l2.784-2.88M264.873 873.497v19.583M281.58 873.497l-2.784.96M278.793 874.457l-1.824 2.783M276.966 877.235l-.96 4.704M276.006 881.94v2.783M276.006 884.723l.96 4.608M276.966 889.331l1.824 2.784M278.793 892.115l2.784.96M281.58 893.075h1.92M283.5 893.075l2.784-.96M286.286 892.115l1.824-2.784M288.1 889.331l.96-4.608M289.06 884.723v-2.784M289.06 881.94l-.96-4.705M288.1 877.235l-1.824-2.783M286.286 874.457l-2.784-.96M283.5 873.497h-1.92M300.206 873.497l-2.784.96M297.42 874.457l-1.825 2.783M295.593 877.235l-.96 4.704M294.633 881.94v2.783M294.633 884.723l.96 4.608M295.593 889.331l1.824 2.784M297.42 892.115l2.783.96M300.206 893.075h1.92M302.126 893.075l2.784-.96M304.899 892.115l1.824-2.784M306.726 889.331l.96-4.608M307.686 884.723v-2.784M307.686 881.94l-.96-4.705M306.726 877.235l-1.824-2.783M304.899 874.457l-2.784-.96M302.126 873.497h-1.92M318.819 873.497l-2.784.96M316.045 874.457l-1.824 2.783M314.219 877.235l-.96 4.704M313.259 881.94v2.783M313.259 884.723l.96 4.608M314.219 889.331l1.824 2.784M316.045 892.115l2.784.96M318.819 893.075h1.92M320.739 893.075l2.784-.96M323.525 892.115l1.824-2.784M325.352 889.331l.96-4.608M326.312 884.723v-2.784M326.312 881.94l-.96-4.705M325.352 877.235l-1.824-2.783M323.525 874.457l-2.784-.96M320.739 873.497h-1.92M441.696 873.497l-2.784.96M438.922 874.457l-.96 1.92M437.962 876.371v1.824M437.962 878.195l.96 1.824M438.922 880.02l1.824.959M440.736 880.98l3.744.96M444.482 881.94l2.784.863M447.269 882.803l1.824 1.92M449.095 884.723l.96 1.824M450.055 886.547v2.784M450.055 889.331l-.96 1.92M449.095 891.25l-.96.865M448.135 892.115l-2.783.96M445.349 893.075H441.7M441.696 893.075l-2.784-.96M438.922 892.115l-.96-.864M437.962 891.25l-.96-1.919M437.002 889.331v-2.784M437.002 886.547l.96-1.824M437.962 884.723l1.824-1.92M439.776 882.803l2.784-.864M442.562 881.94l3.744-.96M446.309 880.98l1.824-.96M448.135 880.02l.96-1.825M449.095 878.195v-1.824M449.095 876.371l-.96-1.92M448.135 874.457l-2.783-.96M445.349 873.497H441.7M461.188 873.497l-2.783.96M458.402 874.457l-1.824 2.783M456.575 877.235l-.96 4.704M455.615 881.94v2.783M455.615 884.723l.96 4.608M456.575 889.331l1.824 2.784M458.402 892.115l2.784.96M461.188 893.075h1.92M463.108 893.075l2.784-.96M465.895 892.115l1.824-2.784M467.722 889.331l.96-4.608M468.682 884.723v-2.784M468.682 881.94l-.96-4.705M467.722 877.235l-1.824-2.783M465.895 874.457l-2.784-.96M463.108 873.497h-1.92M479.815 873.497l-2.784.96M477.028 874.457l-1.824 2.783M475.201 877.235l-.96 4.704M474.241 881.94v2.783M474.241 884.723l.96 4.608M475.201 889.331l1.824 2.784M477.028 892.115l2.784.96M479.815 893.075h1.824M481.641 893.075l2.784-.96M484.415 892.115l1.92-2.784M486.335 889.331l.96-4.608M487.294 884.723v-2.784M487.294 881.94l-.96-4.705M486.335 877.235l-1.92-2.783M484.415 874.457l-2.784-.96M481.641 873.497h-1.824M619.398 876.371l-.96-1.92M618.438 874.457l-2.784-.96M615.651 873.497h-1.824M613.825 873.497l-2.784.96M611.038 874.457l-1.92 2.783M609.118 877.235l-.864 4.704M608.251 881.94v4.607M608.251 886.547l.864 3.744M609.118 890.29l1.92 1.825M611.038 892.115l2.784.96M613.825 893.075h.864M614.691 893.075l2.88-.96M617.571 892.115l1.824-1.824M619.398 890.29l.96-2.783M620.358 887.507v-.96M620.358 886.547l-.96-2.784M619.398 883.763l-1.824-1.824M617.571 881.94l-2.88-.96M614.691 880.98h-.865M613.825 880.98l-2.784.96M611.038 881.94l-1.92 1.823M609.118 883.763l-.864 2.784M631.49 873.497l-2.783.96M628.704 874.457l-1.92 2.783M626.784 877.235l-.864 4.704M625.918 881.94v2.783M625.918 884.723l.864 4.608M626.784 889.331l1.92 2.784M628.704 892.115l2.784.96M631.49 893.075h1.825M633.318 893.075l2.783-.96M636.09 892.115l1.92-2.784M638.01 889.331l.865-4.608M638.877 884.723v-2.784M638.877 881.94l-.864-4.705M638.01 877.235l-1.92-2.783M636.09 874.457l-2.783-.96M633.318 873.497h-1.824M650.117 873.497l-2.784.96M647.33 874.457l-1.92 2.783M645.41 877.235l-.863 4.704M644.544 881.94v2.783M644.544 884.723l.864 4.608M645.41 889.331l1.92 2.784M647.33 892.115l2.784.96M650.117 893.075h1.824M651.93 893.075l2.784-.96M654.717 892.115l1.92-2.784M656.637 889.331l.864-4.608M657.504 884.723v-2.784M657.504 881.94l-.864-4.705M656.637 877.235l-1.92-2.783M654.717 874.457l-2.784-.96M651.93 873.497h-1.824M786.914 873.497l-9.312 13.055M777.594 886.547h13.92M786.914 873.497v19.583M801.793 873.497l-2.784.96M799.007 874.457l-1.92 2.783M797.087 877.235l-.864 4.704M796.22 881.94v2.783M796.22 884.723l.864 4.608M797.087 889.331l1.92 2.784M799.007 892.115l2.784.96M801.793 893.075h1.824M803.607 893.075l2.784-.96M806.393 892.115l1.92-2.784M808.313 889.331l.864-4.608M809.18 884.723v-2.784M809.18 881.94l-.864-4.705M808.313 877.235l-1.92-2.783M806.393 874.457l-2.784-.96M803.607 873.497h-1.824M820.406 873.497l-2.88.96M817.526 874.457l-1.824 2.783M815.713 877.235l-.96 4.704M814.753 881.94v2.783M814.753 884.723l.96 4.608M815.713 889.331l1.824 2.784M817.526 892.115l2.88.96M820.406 893.075h1.824M822.233 893.075l2.784-.96M825.02 892.115l1.823-2.784M826.846 889.331l.96-4.608M827.806 884.723v-2.784M827.806 881.94l-.96-4.705M826.846 877.235l-1.824-2.783M825.02 874.457l-2.785-.96M822.233 873.497h-1.824M948.763 878.195v-.96M948.763 877.235l.96-1.824M949.723 875.411l.864-.96M950.59 874.457l1.92-.96M952.51 873.497h3.743M956.243 873.497l1.824.96M958.07 874.457l.96.96M959.03 875.411l.863 1.824M959.896 877.235v1.92M959.896 879.155l-.864 1.824M959.03 880.98l-1.92 2.783M957.11 883.763l-9.312 9.312M947.803 893.075h13.056M971.989 873.497l-2.784.96M969.202 874.457l-1.824 2.783M967.39 877.235l-.96 4.704M966.43 881.94v2.783M966.43 884.723l.96 4.608M967.39 889.331l1.823 2.784M969.202 892.115l2.784.96M971.989 893.075h1.92M973.909 893.075l2.784-.96M976.696 892.115l1.824-2.784M978.522 889.331l.96-4.608M979.482 884.723v-2.784M979.482 881.94l-.96-4.705M978.522 877.235l-1.824-2.783M976.696 874.457l-2.784-.96M973.909 873.497h-1.92M990.615 873.497l-2.784.96M987.829 874.457l-1.824 2.783M986.002 877.235l-.96 4.704M985.042 881.94v2.783M985.042 884.723l.96 4.608M986.002 889.331l1.824 2.784M987.829 892.115l2.784.96M990.615 893.075h1.92M992.535 893.075l2.784-.96M995.322 892.115l1.824-2.784M997.148 889.331l.96-4.608M998.108 884.723v-2.784M998.108 881.94l-.96-4.705M997.148 877.235l-1.824-2.783M995.322 874.457l-2.784-.96M992.535 873.497h-1.92M201.608 796.499h13.92M201.608 684.568h7.008M201.608 572.638h13.92M201.608 460.707h7.008M201.608 348.67h13.92M201.608 236.74h7.008M1128.465 796.499h13.92M1135.385 684.568h7.008M1128.465 572.638h13.92M1135.385 460.707h7.008M1128.465 348.67h13.92M1135.385 236.74h7.008M170.222 786.032l-2.784.96M167.436 786.992l-1.92 2.784M165.516 789.779l-.864 4.608M164.65 794.392v2.784M164.65 797.179l.863 4.703M165.516 801.872l1.92 2.784M167.436 804.658l2.784.96M170.222 805.618h1.824M172.049 805.618l2.784-.96M174.822 804.658l1.92-2.784M176.742 801.872l.864-4.704M177.609 797.179v-2.784M177.609 794.392l-.864-4.608M176.742 789.779l-1.92-2.784M174.822 786.992l-2.784-.96M172.049 786.032h-1.824M1171.957 786.032l-2.784.96M1169.17 786.992l-1.92 2.784M1167.25 789.779l-.863 4.608M1166.384 794.392v2.784M1166.384 797.179l.864 4.703M1167.25 801.872l1.92 2.784M1169.17 804.658l2.785.96M1171.957 805.618h1.824M1173.784 805.618l2.784-.96M1176.557 804.658l1.92-2.784M1178.477 801.872l.864-4.704M1179.344 797.179v-2.784M1179.344 794.392l-.864-4.608M1178.477 789.779l-1.92-2.784M1176.557 786.992l-2.785-.96M1173.784 786.032h-1.824M142.29 562.171l-2.784.864M139.503 563.038l-1.824 2.784M137.677 565.824l-.96 4.704M136.717 570.518v2.784M136.717 573.304l.96 4.608M137.677 577.917l1.824 2.88M139.503 580.797l2.784.864M142.29 581.664h1.92M144.21 581.664l2.784-.864M146.983 580.797l1.824-2.88M148.81 577.917l.96-4.607M149.77 573.304v-2.784M149.77 570.518l-.96-4.704M148.81 565.824l-1.824-2.784M146.983 563.038l-2.784-.864M144.21 562.171h-1.92M157.17 579.837l-.865.96M156.303 580.797l.864.864M157.17 581.664l.96-.864M158.13 580.797l-.96-.96M165.516 566.784v-.96M165.516 565.824l.96-1.824M166.476 563.998l.96-.96M167.436 563.038l1.824-.864M169.262 562.171h3.744M173.009 562.171l1.824.864M174.822 563.038l.96.96M175.782 563.998l.96 1.824M176.742 565.824v1.92M176.742 567.744l-.96 1.824M175.782 569.558l-1.824 2.784M173.969 572.344l-9.312 9.312M164.65 581.664h12.959M1171.957 562.171l-2.784.864M1169.17 563.038l-1.92 2.784M1167.25 565.824l-.863 4.704M1166.384 570.518v2.784M1166.384 573.304l.864 4.608M1167.25 577.917l1.92 2.88M1169.17 580.797l2.785.864M1171.957 581.664h1.824M1173.784 581.664l2.784-.864M1176.557 580.797l1.92-2.88M1178.477 577.917l.864-4.607M1179.344 573.304v-2.784M1179.344 570.518l-.864-4.704M1178.477 565.824l-1.92-2.784M1176.557 563.038l-2.785-.864M1173.784 562.171h-1.824M1186.837 579.837l-.96.96M1185.877 580.797l.96.864M1186.837 581.664l.96-.864M1187.797 580.797l-.96-.96M1195.183 566.784v-.96M1195.183 565.824l.96-1.824M1196.143 563.998l.864-.96M1197.01 563.038l1.92-.864M1198.93 562.171h3.744M1202.677 562.171l1.824.864M1204.503 563.038l.96.96M1205.463 563.998l.864 1.824M1206.317 565.824v1.92M1206.317 567.744l-.864 1.824M1205.463 569.558l-1.92 2.784M1203.543 572.344l-9.312 9.312M1194.223 581.664h13.056M142.29 338.203l-2.784.96M139.503 339.163l-1.824 2.784M137.677 341.95l-.96 4.704M136.717 346.657v2.783M136.717 349.443l.96 4.608M137.677 354.043l1.824 2.784M139.503 356.83l2.784.96M142.29 357.79h1.92M144.21 357.79l2.784-.96M146.983 356.83l1.824-2.784M148.81 354.043l.96-4.608M149.77 349.443v-2.784M149.77 346.657l-.96-4.704M148.81 341.95l-1.824-2.784M146.983 339.163l-2.784-.96M144.21 338.203h-1.92M157.17 355.963l-.865.864M156.303 356.83l.864.96M157.17 357.79l.96-.96M158.13 356.83l-.96-.864M173.969 338.203l-9.312 13.056M164.65 351.27h13.919M173.969 338.203v19.584M1171.957 338.203l-2.784.96M1169.17 339.163l-1.92 2.784M1167.25 341.95l-.863 4.704M1166.384 346.657v2.783M1166.384 349.443l.864 4.608M1167.25 354.043l1.92 2.784M1169.17 356.83l2.785.96M1171.957 357.79h1.824M1173.784 357.79l2.784-.96M1176.557 356.83l1.92-2.784M1178.477 354.043l.864-4.608M1179.344 349.443v-2.784M1179.344 346.657l-.864-4.704M1178.477 341.95l-1.92-2.784M1176.557 339.163l-2.785-.96M1173.784 338.203h-1.824M1186.837 355.963l-.96.864M1185.877 356.83l.96.96M1186.837 357.79l.96-.96M1187.797 356.83l-.96-.864M1203.543 338.203l-9.312 13.056M1194.223 351.27h14.016M1203.543 338.203v19.584"/></g><g stroke="#daa520"><g stroke-width="14.4"><path stroke-width="1.919952" d="M60.014 570.33h24.384M71.63 570.33l-2.303-2.399M69.326 567.931l-1.152-2.304M68.174 565.624v-3.456M68.174 562.171l1.152-2.304M69.326 559.865l2.304-2.4M71.63 557.465l3.456-1.152M75.086 556.318h2.4M77.486 556.318l3.456 1.152M80.942 557.465l2.304 2.4M83.246 559.865l1.152 2.303M84.398 562.171v3.456M84.398 565.624l-1.152 2.304M83.246 567.931l-2.304 2.4M68.174 548.158h16.224M75.086 548.158l-3.456-1.152M71.63 546.998l-2.303-2.304M69.326 544.705l-1.152-2.304M68.174 542.398v-3.552M68.174 533.079H79.79M79.79 533.079l3.456-1.152M83.246 531.932l1.152-2.304M84.398 529.625v-3.552M84.398 526.079l-1.152-2.304M83.246 523.772l-3.456-3.456M68.174 520.319h16.224M68.174 511h16.224M72.782 511l-3.455-3.553M69.326 507.453l-1.152-2.304M68.174 505.146v-3.456M68.174 501.693l1.152-2.304M69.326 499.386l3.456-1.248M72.782 498.146h11.616M60.014 487.68H79.79M79.79 487.68l3.456-1.152M83.246 486.52l1.152-2.304M84.398 484.226v-2.304M68.174 491.226v-8.16M86.798 479.613V458.59M60.014 452.827h24.384M60.014 452.827v-10.464M60.014 442.36l1.153-3.455M61.166 438.908l1.152-1.248M62.318 437.668l2.305-1.152M64.622 436.508h2.4M67.022 436.508l2.304 1.152M69.326 437.668l1.152 1.248M70.478 438.908l1.152 3.455M71.63 452.827v-10.464M71.63 442.36l1.152-3.455M72.782 438.908l1.152-1.248M73.934 437.668l2.4-1.152M76.334 436.508h3.456M79.79 436.508l2.304 1.152M82.094 437.668l1.152 1.248M83.246 438.908l1.152 3.455M84.398 442.36v10.465"/></g><g stroke-width="28.8"><path stroke-width="3.839904" d="M1142.385 796.499h-.864M1141.518 796.499h-.864M1140.665 796.499h-.864M1139.798 796.499h-.768M1139.025 796.499h-.864M1138.158 796.499h-.864M1137.305 796.499h-.864M1136.438 796.499h-.864M1135.572 796.499h-.864M1134.705 796.499h-.864M1133.838 796.499h-.864M1132.985 796.499h-.768M1132.212 796.499h-.864M1131.345 796.499h-.864M1130.478 796.499h-.864M1129.625 796.499h-.864M1128.758 796.499h-.864M1127.892 796.499h-.864M1127.025 796.499h-.864M1126.159 796.499l-.77-77.95M1125.399 718.554l-.864 77.95M1124.532 796.499h-.864M1123.665 796.499h-.864M1122.799 796.499h-.864M1121.945 796.499h-.864M1121.079 796.499h-.866M1120.212 796.499h-.768M1119.439 796.499h-.864M1118.585 796.499h-.864M1117.719 796.499h-.864M1116.852 796.499h-.864M1115.985 796.499h-.865M1115.119 796.499h-.864M1114.265 796.499h-.864M1113.399 796.499h-.768M1112.626 796.499h-.864M1111.759 796.499h-.865M1110.906 796.499h-.864M1110.039 796.499h-.864M1109.172 796.499h-.864M1108.306 796.499h-.864M1107.439 796.499h-.768M1106.679 796.499h-.864M1105.812 796.499h-.864M1104.946 796.499h-.864M1104.08 796.499h-.865M1103.226 796.499h-.864M1102.36 796.499h-.865M1101.492 796.499h-.864M1100.626 796.499h-.768M1099.866 796.499h-.864M1099 796.499h-.865M1098.133 796.499h-.864M1097.266 796.499h-.864M1096.4 796.499h-.865M1095.546 796.499h-.864M1094.68 796.499h-.865M1093.813 796.499h-.768M1093.04 796.499h-.865M1092.186 796.499h-.864M1091.32 796.499h-.865M1090.453 796.499h-.864M1089.586 796.499h-.864M1088.72 796.499h-.865M1087.866 796.499h-.768M1087.093 796.499h-.864M1086.226 796.499h-.864M1085.36 796.499h-.864M1084.506 796.499h-.864M1083.64 796.499h-.864M1082.773 796.499h-.864M1081.906 796.499h-.864M1081.04 796.499h-.768M1080.28 796.499h-.864M1079.413 796.499h-.864M1078.546 796.499h-.864M1077.68 796.499h-.864M1076.826 796.499h-.864M1075.96 796.499h-.864M1075.093 796.499h-.864M1074.226 796.499h-.768M1073.466 796.499h-.863M1072.6 796.499h-.864M1071.733 796.499h-.864M1070.867 796.499h-.864M1070 796.499h-.864M1069.147 796.499h-.864M1068.28 796.499h-.768M1067.507 796.499h-.864M1066.64 796.499h-.864M1065.787 796.499h-.864M1064.92 796.499h-.864M1064.053 796.499h-.864M1063.187 796.499h-.864M1062.32 796.499h-.864M1061.467 796.499h-.768M1060.693 796.499h-.863M1059.827 796.499h-.864M1058.96 796.499h-.864M1058.107 796.499h-.864M1057.24 796.499h-.864M1056.374 796.499h-.864M1055.507 796.499h-.768M1054.747 796.499h-.864M1053.88 796.499h-.864M1053.014 796.499h-.864M1052.147 796.499h-.864M1051.28 796.499h-.864M1050.427 796.499h-.864M1049.56 796.499h-.864M1048.694 796.499h-.768M1047.92 796.499h-.864M1047.067 796.499h-.864M1046.2 796.499h-.863M1045.334 796.499h-.864M1044.467 796.499h-.864M1043.6 796.499h-.863M1042.747 796.499h-.864M1041.88 796.499h-.767M1041.107 796.499h-.864M1040.24 796.499h-.863M1039.387 796.499h-.864M1038.52 796.499h-.863M1037.654 796.499h-.864M1036.787 796.499h-.864M1035.92 796.499h-.767M1035.16 796.499h-.863M1034.294 796.499h-.864M1033.427 796.499h-.863M1032.56 796.499h-.863M1031.708 796.499h-.864M1030.84 796.499h-.863M1029.974 796.499h-.864M1029.108 796.499h-.768M1028.348 796.499h-.864M1027.481 796.499h-.864M1026.614 796.499h-.864M1025.748 796.499h-.864M1024.881 796.499h-.864M1024.028 796.499h-.864M1023.161 796.499h-.768M1022.388 796.499h-.864M1021.521 796.499h-.864M1020.668 796.499h-.864M1019.801 796.499h-.864M1018.935 796.499h-.864M1018.068 796.499h-.864M1017.201 796.499h-.864M1016.348 796.499h-.768M1015.575 796.499h-.864M1014.708 796.499h-.864M1013.841 796.499h-.864M1012.988 796.499h-.864M1012.121 796.499h-.864M1011.255 796.499h-.864M1010.388 796.499h-.864M1009.521 796.499h-.768M1008.761 796.499h-.864M1007.895 796.499h-.864M1007.028 796.499h-.864M1006.162 796.499h-.864M1005.308 796.499h-.864M1004.442 796.499h-.864M1003.575 796.499h-.768M1002.802 796.499h-.864M1001.948 796.499h-.864M1001.082 796.499h-.864M1000.215 796.499h-.864M999.348 796.499h-.864M998.482 796.499h-.864M997.628 796.499h-.865M996.762 796.499h-.768M995.988 796.499h-.864M995.122 796.499h-.864M994.268 796.499h-.864M993.402 796.499h-.865M992.535 796.499h-.864M991.669 796.499h-.864M990.802 796.499h-.864M989.949 796.499h-.767M989.175 796.499h-.864M988.309 796.499h-.866M987.442 796.499h-.864M986.589 796.499h-.864M985.722 796.499h-.864M984.855 796.499h-.864M983.989 796.499h-.767M983.229 796.499h-.866M982.362 796.499h-.864M981.495 796.499h-.864M980.629 796.499h-.864M979.762 796.499h-.864M978.909 796.499h-.864M978.042 796.499h-.864M977.176 796.499h-.77M976.402 796.499h-.864M975.549 796.499h-.864M974.682 796.499h-.864M973.816 796.499h-.864M972.949 796.499h-.864M972.096 796.499h-.864M971.23 796.499h-.769M970.456 796.499h-.864M969.59 796.499h-.865M968.722 796.499h-.864M967.87 796.499h-.865M967.002 796.499h-.863M966.136 796.499h-.864M965.27 796.499h-.865M964.403 796.499h-.768M963.643 796.499h-.864M962.776 796.499h-.864M961.91 796.499h-.865M961.043 796.499h-.864M960.19 796.499h-.865M959.323 796.499h-.864M958.456 796.499h-.864M957.59 796.499h-.769M956.83 796.499h-.865M955.963 796.499h-.864M955.096 796.499h-.864M954.23 796.499h-.865M953.363 796.499h-.864M952.51 796.499h-.864M951.643 796.499h-.768M950.87 796.499h-.864M950.003 796.499h-.864M949.15 796.499h-.864M948.283 796.499h-.864M947.416 796.499h-.864M946.55 796.499h-.864M945.683 796.499h-.864M944.83 796.499h-.768M944.056 796.499h-.864M943.19 796.499h-.864M942.323 796.499h-.864M941.47 796.499h-.864M940.603 796.499h-.864M939.737 796.499h-.864M938.87 796.499h-.864M938.003 796.499h-.768M937.243 796.499h-.864M936.377 796.499h-.864M935.51 796.499h-.864M934.643 796.499h-.864M933.79 796.499h-.864M932.923 796.499h-.864M932.057 796.499h-.768M931.283 796.499h-.864M930.43 796.499h-.864M929.563 796.499h-.864M928.697 796.499h-.864M927.83 796.499h-.864M926.963 796.499h-.863M926.11 796.499h-.864M925.244 796.499h-.768M924.47 796.499h-.864M923.604 796.499h-.864M922.75 796.499h-.864M921.884 796.499h-.864M921.017 796.499h-.864M920.15 796.499h-.864M919.284 796.499h-.768M918.524 796.499h-.864M917.657 796.499h-.864M916.79 796.499h-.864M915.924 796.499h-.864M915.07 796.499h-.864M914.204 796.499h-.864M913.337 796.499h-.864M912.47 796.499h-.767M911.71 796.499h-.863M910.844 796.499h-.864M909.977 796.499h-.864M909.11 796.499h-.863M908.244 796.499h-.864M907.39 796.499h-.863M906.524 796.499h-.864M905.657 796.499h-.768M904.884 796.499h-.864M904.03 796.499h-.863M903.164 796.499h-.864M902.297 796.499h-.864M901.43 796.499h-.863M900.564 796.499h-.864M899.71 796.499h-.767M898.938 796.499h-.864M898.07 796.499h-.863M897.204 796.499h-.864M896.35 796.499h-.863M895.484 796.499h-.865M894.618 796.499h-.864M893.751 796.499h-.864M892.884 796.499h-.768M892.124 796.499h-.864M891.258 796.499h-.864M890.391 796.499h-.865M889.524 796.499h-.864M888.671 796.499h-.864M887.804 796.499h-.864M886.938 796.499h-.864M886.071 796.499h-.768M885.311 796.499h-.864M884.445 796.499h-.864M883.578 796.499h-.864M882.711 796.499h-.864M881.845 796.499h-.864M880.991 796.499h-.864M880.125 796.499h-.77M879.351 796.499h-.864M878.485 796.499h-.864M877.631 796.499h-.864M876.765 796.499h-.864M875.898 796.499h-.864M875.031 796.499h-.864M874.165 796.499h-.865M873.312 796.499h-.768M872.538 796.499h-.864M871.672 796.499h-.864M870.805 796.499h-.864M869.952 796.499h-.864M869.085 796.499h-.865M868.218 796.499h-.864M867.352 796.499h-.767M866.592 796.499h-.864M865.725 796.499h-.864M864.858 796.499h-.864M863.992 796.499h-.866M863.125 796.499h-.864M862.272 796.499h-.864M861.405 796.499h-.864M860.538 796.499h-.767M859.765 796.499h-.865M858.912 796.499h-.864M858.045 796.499h-.864M857.179 796.499h-.864M856.312 796.499h-.864M855.445 796.499h-.864M854.592 796.499h-.864M853.725 796.499h-.769M852.952 796.499h-.864M852.085 796.499h-.864M851.232 796.499h-.864M850.365 796.499h-.864M849.499 796.499h-.864M848.632 796.499h-.864M847.765 796.499h-.768M847.005 796.499h-.863M846.139 796.499h-.864M845.272 796.499h-.864M844.406 796.499h-.864M843.552 796.499h-.864M842.686 796.499h-.866M841.819 796.499h-.864M840.952 796.499h-.768M840.192 796.499h-.864M839.326 796.499h-.864M838.459 796.499h-.864M837.592 796.499h-.864M836.726 796.499h-.864M835.872 796.499h-.864M835.006 796.499h-.768M834.232 796.499h-.864M833.366 796.499h-.865M832.513 796.499h-.864M831.646 796.499h-.864M830.78 796.499h-.865M829.913 796.499h-.864M829.046 796.499h-.864M828.193 796.499h-.768M827.42 796.499h-.865M826.553 796.499h-.864M825.686 796.499h-.864M824.833 796.499h-.864M823.966 796.499h-.864M823.1 796.499h-.865M822.233 796.499h-.864M821.366 796.499h-.768M820.606 796.499h-.864M819.74 796.499h-.864M818.873 796.499h-.864M818.006 796.499h-.864M817.153 796.499h-.864M816.286 796.499h-.864M815.42 796.499h-.768M814.646 796.499h-.864M813.793 796.499h-.864M812.926 796.499h-.864M812.06 796.499h-.864M811.193 796.499h-.864M810.326 796.499h-.864M809.473 796.499h-.864M808.606 796.499h-.768M807.833 796.499h-.864M806.966 796.499h-.863M806.113 796.499h-.864M805.247 796.499h-.864M804.38 796.499h-.864M803.513 796.499h-.864M802.647 796.499h-.864M801.793 796.499h-.768M801.02 796.499h-.864M800.153 796.499h-.864M799.287 796.499h-.864M798.433 796.499h-.864M797.567 796.499h-.864M796.7 796.499h-.864M795.833 796.499h-.768M795.073 796.499h-.864M794.207 796.499h-.864M793.34 796.499h-.864M792.474 796.499h-.864M791.607 796.499h-.864M790.754 796.499h-.864M789.887 796.499h-.864M789.02 796.499h-.768M788.247 796.499h-.864M787.394 796.499h-.864M786.527 796.499h-.864M785.66 796.499h-.864M784.794 796.499h-.864M783.927 796.499h-.864M783.074 796.499h-.768M782.3 796.499h-.864M781.434 796.499h-.864M780.567 796.499h-.864M779.714 796.499h-.864M778.847 796.499h-.864M777.98 796.499h-.863M777.114 796.499h-.864M776.247 796.499h-.768M775.487 796.499h-.864M774.62 796.499h-.863M773.754 796.499h-.864M772.887 796.499h-.864M772.034 796.499h-.864M771.167 796.499h-.864M770.3 796.499h-.863M769.434 796.499h-.768M768.674 796.499h-.864M767.807 796.499h-.864M766.94 796.499h-.863M766.074 796.499h-.864M765.208 796.499h-.864M764.354 796.499h-.864M763.488 796.499h-.768M762.714 796.499h-.864M761.848 796.499h-.864M760.994 796.499h-.864M760.128 796.499h-.864M759.261 796.499h-.864M758.394 796.499h-.864M757.528 796.499h-.864M756.674 796.499h-.768M755.901 796.499h-.864M755.034 796.499h-.864M754.168 796.499h-.864M753.315 796.499h-.864M752.448 796.499h-.864M751.581 796.499h-.864M750.715 796.499h-.864M749.848 796.499h-.768M749.088 796.499h-.864M748.221 796.499h-.864M747.355 796.499h-.864M746.488 796.499h-.864M745.635 796.499h-.864M744.768 796.499h-.864M743.901 796.499h-.768M743.128 796.499h-.864M742.275 796.499h-.864M741.408 796.499h-.864M740.541 796.499h-.863M739.675 796.499h-.864M738.808 796.499h-.864M737.955 796.499h-.864M737.088 796.499h-.768M736.315 796.499h-.864M735.448 796.499h-.864M734.595 796.499h-.864M733.728 796.499h-.864M732.862 796.499h-.864M731.995 796.499h-.864M731.128 796.499h-.768M730.368 796.499h-.864M729.502 796.499h-.864M728.635 796.499h-.864M727.768 796.499h-.864M726.915 796.499h-.864M726.049 796.499h-.864M725.182 796.499h-.864M724.315 796.499h-.768M723.555 796.499h-.864M722.689 796.499h-.866M721.822 796.499h-.864M720.955 796.499h-.864M720.089 796.499h-.864M719.235 796.499h-.864M718.369 796.499h-.864M717.502 796.499h-.768M716.729 796.499h-.864M715.875 796.499h-.864M715.009 796.499h-.864M714.142 796.499h-.864M713.276 796.499h-.864M712.409 796.499h-.864M711.556 796.499h-.77M710.782 796.499h-.864M709.916 796.499h-.864M709.049 796.499h-.864M708.196 796.499h-.864M707.329 796.499h-.864M706.462 796.499h-.864M705.596 796.499h-.866M704.729 796.499h-.768M703.97 796.499h-.865M703.102 796.499h-.864M702.236 796.499h-.864M701.37 796.499h-.866M700.516 796.499h-.864M699.65 796.499h-.865M698.783 796.499h-.864M697.916 796.499h-.767M697.156 796.499h-.864M696.29 796.499h-.866M695.423 796.499h-.864M694.556 796.499h-.864M693.69 796.499h-.865M692.836 796.499h-.864M691.97 796.499h-.769M691.196 796.499h-.865M690.33 796.499h-.865M689.476 796.499h-.864M688.61 796.499h-.865M687.743 796.499h-.864M686.876 796.499h-.864M686.01 796.499h-.864M685.156 796.499h-.77M684.383 796.499h-.864M683.516 796.499h-.864M682.65 796.499h-.864M681.796 796.499h-.864M680.93 796.499h-.864M680.063 796.499h-.864M679.196 796.499h-.768M678.436 796.499h-.864M677.57 796.499h-.864M676.703 796.499h-.864M675.836 796.499h-.864M674.97 796.499h-.866M674.116 796.499h-.863M673.25 796.499h-.864M672.383 796.499h-.768M671.61 796.499h-.864M670.757 796.499h-.864M669.89 796.499h-.865M669.023 796.499h-.864M668.157 796.499h-.864M667.29 796.499h-.864M666.437 796.499h-.864M665.57 796.499h-.768M664.797 796.499h-.866M663.93 796.499h-.864M663.077 796.499h-.864M662.21 796.499h-.864M661.343 796.499h-.864M660.477 796.499h-.864M659.61 796.499h-.768M658.85 796.499h-.864M657.984 796.499h-.864M657.117 796.499h-.864M656.25 796.499h-.864M655.397 796.499h-.864M654.53 796.499h-.864M653.664 796.499h-.864M652.797 796.499h-.768M652.037 796.499h-.864M651.17 796.499h-.864M650.304 796.499h-.864M649.437 796.499h-.864M648.57 796.499h-.865M647.717 796.499h-.864M646.85 796.499h-.767M646.077 796.499h-.864M645.21 796.499h-.863M644.357 796.499h-.864M643.49 796.499h-.863M642.624 796.499h-.864M641.757 796.499h-.864M640.89 796.499h-.863M640.037 796.499h-.768M639.264 796.499h-.864M638.397 796.499h-.864M637.53 796.499h-.863M636.677 796.499h-.864M635.81 796.499h-.863M634.944 796.499h-.864M634.077 796.499h-.863M633.21 796.499h-.767M632.45 796.499h-.863M631.584 796.499h-.864M630.718 796.499h-.864M629.85 796.499h-.863M628.998 796.499h-.864M628.131 796.499h-.864M627.264 796.499h-.768M626.491 796.499h-.864M625.638 796.499h-.864M624.771 796.499h-.864M623.904 796.499h-.864M623.038 796.499h-.864M622.171 796.499h-.864M621.318 796.499h-.864M620.451 796.499h-.768M619.678 796.499h-.864M618.811 796.499h-.864M617.958 796.499h-.864M617.091 796.499h-.864M616.225 796.499h-.864M615.358 796.499h-.864M614.491 796.499h-.864M613.638 796.499h-.768M612.865 796.499H612M611.998 796.499h-.864M611.131 796.499h-.864M610.278 796.499h-.864M609.411 796.499h-.864M608.545 796.499h-.864M607.678 796.499h-.768M606.918 796.499h-.864M606.052 796.499h-.864M605.185 796.499h-.864M604.318 796.499h-.864M603.452 796.499h-.864M602.598 796.499h-.864M601.732 796.499h-.864M600.865 796.499h-.768M600.092 796.499h-.864M599.238 796.499h-.864M598.372 796.499h-.864M597.505 796.499h-.864M596.638 796.499h-.864M595.772 796.499h-.864M594.918 796.499h-.768M594.145 796.499h-.864M593.279 796.499h-.864M592.412 796.499h-.864M591.559 796.499h-.864M590.692 796.499h-.864M589.825 796.499h-.864M588.959 796.499h-.864M588.092 796.499h-.768M587.332 796.499h-.864M586.465 796.499h-.864M585.599 796.499h-.864M584.732 796.499h-.864M583.879 796.499h-.864M583.012 796.499h-.864M582.145 796.499h-.864M581.279 796.499h-.768M580.519 796.499h-.864M579.652 796.499h-.864M578.786 796.499h-.864M577.919 796.499h-.864M577.052 796.499h-.864M576.199 796.499h-.864M575.332 796.499h-.768M574.559 796.499h-.864M573.692 796.499h-.864M572.839 796.499h-.864M571.972 796.499h-.864M571.106 796.499h-.864M570.24 796.499h-.865M569.372 796.499h-.865M568.52 796.499h-.769M567.746 796.499h-.864M566.88 796.499h-.865M566.013 796.499h-.864M565.16 796.499h-.865M564.293 796.499h-.866M563.426 796.499h-.864M562.56 796.499h-.865M561.693 796.499h-.768M560.933 796.499h-.864M560.066 796.499h-.864M559.2 796.499h-.866M558.333 796.499h-.864M557.48 796.499h-.865M556.613 796.499h-.864M555.746 796.499h-.767M554.973 796.499h-.866M554.12 796.499h-.864M553.253 796.499h-.864M552.386 796.499h-.864M551.52 796.499h-.864M550.653 796.499h-.864M549.8 796.499h-.864M548.933 796.499h-.77M548.16 796.499h-.864M547.293 796.499h-.864M546.44 796.499h-.864M545.573 796.499h-.863M544.706 796.499h-.864M543.84 796.499h-.864M542.973 796.499h-.77M542.213 796.499h-.864M541.346 796.499h-.864M540.48 796.499h-.863M539.613 796.499h-.864M538.76 796.499h-.864M537.893 796.499h-.865M537.027 796.499h-.864M536.16 796.499h-.768M535.4 796.499h-.864M534.533 796.499h-.864M533.667 796.499h-.864M532.8 796.499h-.865M531.933 796.499l-.864-33.312M531.08 763.193l-.864-7.392M530.213 755.793l-.864 4.992M529.347 760.793l-.767 6.336M528.573 767.126l-.865 3.36M527.72 770.486l-.864-.768M526.853 769.713l-.863 3.072M525.987 772.793l-.864 1.344M525.12 774.14l-.864 1.343M524.254 775.472l-.864 1.536M523.4 777.02l-.768 1.631M522.627 778.646l-.864 1.824M521.76 780.472l-.864 1.728M520.894 782.192l-.864 1.728M520.04 783.926l-.864 1.536M519.174 785.459l-.864 1.44M518.307 786.899l-.864 1.536M517.44 788.432l-.864 2.88M516.574 791.312l-.768-2.496M515.814 788.819l-.864 2.592M514.947 791.419l-.864 3.648M514.08 795.059l-.863-1.056M513.214 794.005l-.864-1.344M512.36 792.659l-.863 2.112M511.494 794.779l-.864.384M510.627 795.152l-.864.192M509.76 795.352l-.767.288M509 795.632h-.863M508.134 795.632l-.864.192M507.267 795.832l-.864-.096M506.4 795.739l-.863.384M505.534 796.112h-.864M504.68 796.112l-.863 1.44M503.814 797.552l-.768-4.32M503.04 793.232l-.863 2.016M502.174 795.259l-.864 2.784M501.32 798.032l-.863-1.92M500.454 796.112l-.864-2.4M499.588 793.712l-.864 2.592M498.72 796.312l-.863-2.208M497.854 794.099l-.864.864M497 794.965l-.767 2.496M496.228 797.459l-.864-1.728M495.36 795.739l-.863-2.4M494.494 793.339l-.864 1.92M493.641 795.259l-.864.096M492.774 795.352l-.864.288M491.908 795.632l-.864 1.248M491.041 796.885l-.768-3.936M490.281 792.952l-.864 1.92M489.414 794.872l-.864 2.4M488.548 797.272l-.864-1.632M487.681 795.632l-.864-2.4M486.814 793.232l-.863 1.92M485.961 795.152h-.864M485.095 795.152l-.864-.096M484.228 795.059l-.768.096M483.455 795.152l-.864-.096M482.601 795.059l-.864-.096M481.735 794.965l-.864-.096M480.868 794.872l-.864.096M480.001 794.965l-.864-.288M479.135 794.672l-.864.384M478.281 795.059l-.864.288M477.415 795.352l-.768 1.44M476.641 796.792l-.864-4.032M475.775 792.752l-.864 2.112M474.921 794.872l-.864 2.592M474.055 797.459l-.864-1.728M473.188 795.739l-.864-2.304M472.322 793.432l-.864 1.824M471.455 795.259l-.768.192M470.695 795.445h-.864M469.828 795.445l-.864.096M468.962 795.539l-.864-.096M468.095 795.445l-.864.096M467.242 795.539l-.864-.096M466.375 795.445h-.864M465.508 795.445l-.864-.096M464.642 795.352h-.768M463.882 795.352l-.864-.192M463.015 795.152l-.864.192M462.148 795.352l-.864.096M461.282 795.445l-.864 1.44M460.415 796.885l-.864-3.936M459.562 792.952l-.864 2.304M458.695 795.259l-.768.48M457.922 795.739l-.864-.096M457.055 795.632l-.864 1.44M456.202 797.072l-.864-3.264M455.335 793.819l-.864 3.072M454.469 796.885l-.864-3.84M453.602 793.045l-.864 1.248M452.735 794.299l-.864 2.304M451.882 796.592l-.768.192M451.109 796.792l-.864-3.648M450.242 793.139l-.864 2.016M449.375 795.152l-.864 2.592M448.522 797.752l-.864-1.632M447.655 796.112l-.864-2.688M446.789 793.432l-.864 1.824M445.922 795.259l-.864.096M445.056 795.352h-.768M444.296 795.352l-.864.096M443.429 795.445l-.864.096M442.562 795.539l-.864 1.344M441.696 796.885l-.864-3.744M440.842 793.139l-.864 1.92M439.976 795.059l-.864 2.208M439.109 797.272l-.768-1.632M438.336 795.632l-.864-2.304M437.482 793.339l-.864 1.824M436.616 795.152l-.864.096M435.75 795.259l-.865.192M434.882 795.445l-.864 1.344M434.016 796.792l-.864-3.84M433.163 792.952l-.864 2.016M432.296 794.965l-.768 2.208M431.523 797.179l-.864-1.536M430.656 795.632l-.864-2.4M429.803 793.232l-.864 1.92M428.936 795.152l-.864.096M428.07 795.259l-.865.288M427.203 795.539l-.864 1.152M426.336 796.699l-.864-3.648M425.483 793.045l-.768 1.92M424.71 794.965l-.865 2.208M423.843 797.179l-.864-1.632M422.976 795.539l-.864-2.304M422.123 793.232l-.864 1.92M421.256 795.152h-.864M420.39 795.152h-.864M419.523 795.152h-.768M418.763 795.152l-.864-.096M417.896 795.059h-.864M417.03 795.059l-.864-.096M416.163 794.965h-.864M415.296 794.965h-.864M414.443 794.965l-.864-.096M413.576 794.872h-.864M412.71 794.872h-.768M411.936 794.872l-.864-.096M411.083 794.779h-.864M410.216 794.779l-.864-.096M409.35 794.672h-.864M408.483 794.672l-.864-.096M407.616 794.579h-.864M406.763 794.579l-.768-.096M405.99 794.485h-.864M405.123 794.485l-.864-.096M404.257 794.392h-.864M403.403 794.392l-.864-.096M402.537 794.299h-.864M401.67 794.299l-.864-.096M400.803 794.192l-.864-.096M399.937 794.099h-.768M399.177 794.099l-.864-.096M398.31 794.005h-.864M397.443 794.005l-.864-.096M396.577 793.912l-.864-.096M395.723 793.819h-.864M394.857 793.819l-.864-.096M393.99 793.712l-.864-.096M393.124 793.619h-.768M392.364 793.619l-.864-.096M391.497 793.525l-.864-.096M390.63 793.432l-.864-.096M389.764 793.339l-.864-.096M388.897 793.232l-.864-.096M388.044 793.139l-.864-.096M387.177 793.045l-.768-.096M386.404 792.952l-.864-.096M385.537 792.859l-.864-.096M384.684 792.752l-.864-.096M383.817 792.659l-.864-1.056M382.95 791.605l-.865.768M382.084 792.379l-.864.864M381.217 793.232l-.864-1.056M380.364 792.179h-.768M379.59 792.179l-.863-1.152M378.724 791.032l-.864.96M377.857 791.992h-.865M377.004 791.992h-.864M376.137 791.992l-.864.48M375.27 792.472l-.863-.48M374.404 791.992l-.864-.192M373.537 791.792l-.768-.192M372.777 791.605l-.865-1.632M371.91 789.979l-.863 1.152M371.044 791.125l-.863.576M370.177 791.699l-.864.768M369.324 792.472l-.864-2.016M368.457 790.459l-.864.384M367.59 790.832l-.769.48M366.817 791.312l-.863.768M365.964 792.085l-.862-.768M365.098 791.312l-.864-.288M364.23 791.032l-.863.096M363.364 791.125h-.864M362.498 791.125l-.864-.096M361.644 791.032l-.864-.864M360.778 790.165l-.768.672M360.004 790.832l-.864.864M359.138 791.699l-.864-.672M358.284 791.032l-.864-.192M357.418 790.832h-.864M356.551 790.832h-.865M355.684 790.832l-.864-.864M354.818 789.979l-.767.768M354.058 790.739l-.864.864M353.191 791.605l-.864-.768M352.325 790.832l-.864-.96M351.458 789.872l-.865.672M350.605 790.552l-.864.672M349.738 791.219l-.864-.672M348.871 790.552l-.864-.096M348.005 790.459l-.767-.192M347.245 790.259l-.864.288M346.378 790.552l-.865-.576M345.511 789.979l-.864-.48M344.645 789.499l-.864.288M343.778 789.779l-.864.864M342.925 790.645l-.864-2.592M342.058 788.059l-.864 1.152M341.191 789.205l-.769 1.152M340.418 790.352l-.864-2.4M339.565 787.952l-.864.48M338.698 788.432l-.864-.096M337.832 788.339l-.864-.192M336.965 788.152l-.863.672M336.098 788.819l-.864-2.592M335.245 786.232l-.77 1.056M334.472 787.286l-.864-.192M333.605 787.099l-.864-.288M332.738 786.806l-.864-.192M331.885 786.619l-.863-.288M331.018 786.326l-.864-.288M330.152 786.032l-.866-.288M329.285 785.752l-.864-.192M328.418 785.552l-.768-.288M327.658 785.272l-.864-.288M326.792 784.979l-.863-.288M325.925 784.699l-.864-.288M325.059 784.406l-.866-.384M324.205 784.019l-.864-.288M323.339 783.739l-.864-.288M322.472 783.446l-.864-.384M321.605 783.059l-.766-.288M320.845 782.779l-.864-.384M319.979 782.392l-.866-.384M319.112 782.006l-.864-.288M318.245 781.712l-.864-.384M317.379 781.339l-.864-.384M316.525 780.952l-.864-.384M315.659 780.566l-.768-.288M314.885 780.272l-.864-.48M314.019 779.792l-.864-.384M313.166 779.419l-.864-.384M312.299 779.032l-.864-.384M311.432 778.646l-.864-.48M310.566 778.166l-.864-.48M309.699 777.686l-.864-.384M308.846 777.3l-.768-.48M308.072 776.82l-.864-.48M307.206 776.34l-.864-.48M306.339 775.86l-.864-.577M305.486 775.286l-.864-.48M304.62 774.806l-.865-.576M303.752 774.233l-.864-.48M302.886 773.753l-.768-.576M302.126 773.18l-.864-.577M301.26 772.593l-.865-.576M300.392 772.02l-.863-.577M299.526 771.446l-.864-.576M298.66 770.873l-.865-.672M297.806 770.193l-.864-.672M296.94 769.526l-.865-.576M296.073 768.953l-.768-.672M295.3 768.273l-.865-.672M294.446 767.606l-.864-.768M293.58 766.833l-.865-.672M292.713 766.166l-.864-.768M291.846 765.393l-.864-.768M290.98 764.633l-.865-.768M290.126 763.86l-.864-.865M289.26 762.993l-.769-.768M288.486 762.233l-.864-.864M287.62 761.366l-.865-.864M286.766 760.5l-.864-.96M285.9 759.54l-.864-.864M285.033 758.673l-.864-.96M284.166 757.713l-.864-1.056M283.3 756.66l-.768-.96M282.54 755.7l-.864-1.056M281.673 754.646l-.864-1.056M280.806 753.593l-.864-1.056M279.94 752.54l-.864-1.056M279.086 751.473l-.864-1.152M278.22 750.326l-.864-1.152M277.353 749.18l-.864-1.152M276.486 748.02l-.768-1.152M275.726 746.873l-.864-1.248M274.86 745.62l-.864-1.248M273.993 744.38l-.864-1.248M273.127 743.127l-.864-1.248M272.26 741.873l-.864-1.344M271.407 740.54l-.864-1.344M270.54 739.193l-.768-1.44M269.767 737.753l-.864-1.44M268.9 736.313l-.864-1.44M268.047 734.873l-.864-1.44M267.18 733.434l-.864-1.536M266.313 731.9l-.864-1.536M265.447 730.354l-.864-1.632M264.58 728.727l-.864-1.536M263.727 727.194l-.768-1.632M262.953 725.554l-.864-1.632M262.087 723.927l-.864-1.632M261.22 722.3l-.864-1.727M260.367 720.567l-.864-1.728M259.5 718.834l-.864-1.824M258.634 717.02l-.864-1.727M257.767 715.287l-.864-1.248M256.9 714.034l-.768-3.456M256.14 710.58l-.864-3.647M255.274 706.94l-.864-1.343M254.407 705.594l-.864-2.112M253.54 703.474l-.864-1.728M252.687 701.754l-.864-4.416M251.82 697.341l-.864-1.728M250.954 695.608l-.768-2.4M250.18 693.208l-.864-2.496M249.327 690.715l-.864-2.592M248.46 688.115l-.864-2.592M247.594 685.528l-.864-2.112M246.727 683.421l-.864-4.991M245.86 678.422l-.863-2.016M245.007 676.408l-.864-5.28M244.14 671.128l-.767-2.496M243.367 668.635l-.864-3.072M242.5 665.555l-.863-3.168M241.647 662.395l-.864-3.264M240.78 659.129l-.863-3.36M239.914 655.769l-.864-3.455M239.047 652.316l-.864-3.554M238.18 648.756l-.863-2.88M237.327 645.876l-.768-8.352M236.554 637.53l-.864-5.857M235.687 631.676l-.864-3.552M234.82 628.116l-.863-4.03M233.967 624.09l-.863-4.224M233.1 619.863l-.863-3.457M232.234 616.41l-.864-9.6M231.368 606.81l-.768-6.142M230.608 600.664l-.864-8.162M229.74 592.504l-.863-8.639M228.874 583.864l-.864-6.817M228.008 577.05l-.864-10.751M227.141 566.304l-.864-7.487M226.288 558.811l-.864-9.888M225.421 548.918l-.864-10.56M224.554 538.358l-.768-6.142M223.781 532.225l-.864-11.902M222.928 520.319l-.864-16.417M222.061 503.906l-.864-13.918M221.194 489.986l-.864-15.073M220.328 474.907l-.864-11.808M219.461 463.107l-.864-17.182M218.608 445.92l-.768-11.328M217.835 434.588l-.864-5.76M216.968 428.828l-.864-7.2M216.101 421.628l-.864-8.928M215.248 412.708l-.864-5.182M214.381 407.522l-.864-3.842M213.515 403.682l-.864-2.495M212.648 401.189l-.864-1.632M211.781 399.549l-.768-.96M211.021 398.589l-.864-.576M210.155 398.015l-.864-.288M209.288 397.722l-.864-.384M208.421 397.349l-.864-.288M207.568 397.055l-.864-.192M206.701 396.869l-.863-.192M205.835 396.669l-.864-.096M204.968 396.575h-.768M204.208 396.575h-.864M203.342 396.575h-.864M202.475 396.575l-.864-186.528"/></g></g><g stroke="#fff" stroke-width="14.4"><path stroke-width="1.919952" d="m645.797 923.698-12.767 16.224M633.024 923.698h12.768M633.024 939.922h12.768M658.65 923.698l-2.4 1.152M656.25 924.85l-2.304 2.304M653.957 927.154l-1.152 3.456M652.797 930.61v2.4M652.797 933.01l1.152 3.456M653.957 936.466l2.304 2.304M656.25 938.77l2.4 1.151M658.65 939.922h3.456M662.117 939.922l2.304-1.152M664.41 938.77l2.304-2.304M666.717 936.466l1.248-3.456M667.97 933.01v-2.4M667.97 930.61l-1.248-3.456M666.717 927.154l-2.304-2.304M664.41 924.85l-2.304-1.152M662.117 923.698h-3.456M676.036 923.698v16.224M676.036 928.306l3.552-3.456M679.583 924.85l2.304-1.152M681.89 923.698h3.456M685.343 923.698l2.4 1.152M687.743 924.85l1.152 3.456M688.89 928.306v11.615M696.956 930.61h14.016M710.969 930.61v-2.304M710.969 928.306l-1.152-2.304M709.822 926.002l-1.152-1.152M708.676 924.85l-2.4-1.152M706.276 923.698h-3.456M702.81 923.698l-2.305 1.152M700.516 924.85l-2.304 2.304M698.21 927.154l-1.249 3.456M696.956 930.61v2.4M696.956 933.01l1.248 3.456M698.21 936.466l2.303 2.304M700.516 938.77l2.304 1.151M702.81 939.922h3.455M706.276 939.922l2.4-1.152M708.676 938.77l2.304-2.304"/></g><g stroke-width="36"><path stroke="#2e8b57" stroke-width="4.79988" d="M1142.385 856.11h-16.992M531.08 856.11H201.622"/><path stroke="#87cefa" stroke-width="4.79988" d="M1124.532 856.11H531.933"/></g></g></svg>
\ No newline at end of file
diff --git a/star/test_suite/diffusion_smoothness/inlist_diffusion_smoothness b/star/test_suite/diffusion_smoothness/inlist_diffusion_smoothness
index a6b192683..b61943f0a 100644
--- a/star/test_suite/diffusion_smoothness/inlist_diffusion_smoothness
+++ b/star/test_suite/diffusion_smoothness/inlist_diffusion_smoothness
@@ -1,33 +1,33 @@
 
 &star_job
 
-      show_log_description_at_start = .false.
-      
-      !show_net_species_info = .true.
-      !show_net_reactions_info = .true.
+   show_log_description_at_start = .false.
 
-      load_saved_model = .true.
-      load_model_filename = 'zams.mod'
-      
-      save_model_when_terminate = .true.
-      save_model_filename = 'final.mod'
-      required_termination_code_string = 'max_age'
+   !show_net_species_info = .true.
+   !show_net_reactions_info = .true.
 
+   load_saved_model = .true.
+   load_model_filename = 'zams.mod'
 
-      change_initial_net = .true.      
-      new_net_name = 'o18_and_ne22.net'
-   
-      set_initial_age = .true.
-      initial_age = 0
+   save_model_when_terminate = .true.
+   save_model_filename = 'final.mod'
+   required_termination_code_string = 'max_age'
 
-      set_initial_model_number = .true.
-      initial_model_number = 0
 
-      set_initial_cumulative_energy_error = .true.
-      new_cumulative_energy_error = 0d0
+   change_initial_net = .true.
+   new_net_name = 'o18_and_ne22.net'
 
-      !pgstar_flag = .true.
+   set_initial_age = .true.
+   initial_age = 0
 
+   set_initial_model_number = .true.
+   initial_model_number = 0
+
+   set_initial_cumulative_energy_error = .true.
+   new_cumulative_energy_error = 0d0
+
+   pgstar_flag = .true.
+   save_pgstar_files_when_terminate = .true.
 
 / ! end of star_job namelist
 
@@ -35,94 +35,120 @@
 / ! end of eos namelist
 
 &kap
-      Zbase = 0.02d0
-      kap_file_prefix = 'gs98'
+   Zbase = 0.02d0
+   kap_file_prefix = 'gs98'
 / ! end of kap namelist
 
 &controls
 
-      energy_eqn_option = 'dedt'
-      calculate_Brunt_N2 = .true.
-      use_gold2_tolerances = .true.
-
-      num_trace_history_values = 2
-      trace_history_value_name(1) = 'rel_E_err'
-      trace_history_value_name(2) = 'log_rel_run_E_err'
-         
-      ! limit max_model_number as part of test_suite
-      max_model_number = 100
-
-      x_integer_ctrl(1) = 1 ! part number
-
-      max_age = 3d9
-
-      initial_mass = 1.0
-      initial_z = 0.02d0
-      
-      varcontrol_target = 1d-3
-      mesh_delta_coeff = 0.7
-      
-      limit_for_rel_error_in_energy_conservation = 1d-6 ! this makes d2N2 too large.  takes 63 steps. log_rel_run_E_err  -3.5859393528096946
-      limit_for_rel_error_in_energy_conservation = 1d-5 ! this is smooth enough.  takes 58 steps. log_rel_run_E_err  -3.4820705862368895
-      hard_limit_for_rel_error_in_energy_conservation = 1d-4
-
-      convective_bdy_weight = 1
-      
-      cool_wind_RGB_scheme = 'Reimers'
-      cool_wind_AGB_scheme = 'Blocker'
-      RGB_to_AGB_wind_switch = 1d-4
-      Reimers_scaling_factor = 0.7d0  
-      Blocker_scaling_factor = 0.7d0  
+   energy_eqn_option = 'dedt'
+   calculate_Brunt_N2 = .true.
+   use_gold2_tolerances = .true.
+
+   num_trace_history_values = 2
+   trace_history_value_name(1) = 'rel_E_err'
+   trace_history_value_name(2) = 'log_rel_run_E_err'
+
+   ! limit max_model_number as part of test_suite
+   max_model_number = 100
+
+   x_integer_ctrl(1) = 1 ! part number
+
+   max_age = 3d9
+
+   initial_mass = 1.0
+   initial_z = 0.02d0
+
+   varcontrol_target = 1d-3
+   mesh_delta_coeff = 0.7
+
+   limit_for_rel_error_in_energy_conservation = 1d-6 ! this makes d2N2 too large.  takes 63 steps. log_rel_run_E_err  -3.5859393528096946
+   limit_for_rel_error_in_energy_conservation = 1d-5 ! this is smooth enough.  takes 58 steps. log_rel_run_E_err  -3.4820705862368895
+   hard_limit_for_rel_error_in_energy_conservation = 1d-4
+
+   convective_bdy_weight = 1
+
+   cool_wind_RGB_scheme = 'Reimers'
+   cool_wind_AGB_scheme = 'Blocker'
+   RGB_to_AGB_wind_switch = 1d-4
+   Reimers_scaling_factor = 0.7d0
+   Blocker_scaling_factor = 0.7d0
 
 !      set_min_D_mix = .true.
-      min_D_mix = 1d2 ! D_mix will be at least this large
-      min_center_Ye_for_min_D_mix = 0.47 ! min_D_mix is only used when center Ye >= this
-         ! i.e., when center Ye drops below this, min_D_mix is 0
-      
-      
-      num_cells_for_smooth_brunt_B = 0
-      
-      !show_diffusion_info = .true. ! terminal output for diffusion
-         !show_diffusion_substep_info = .true.         
-         !show_diffusion_timing = .true.
-
-      do_element_diffusion = .true. ! determines whether or not we do diffusion
-      
-      diffusion_calculates_ionization = .true.
-
-      diffusion_num_classes = 4 ! number of classes of species for diffusion calculations
-      diffusion_class_representative(1) = 'h1'
-      diffusion_class_representative(2) = 'he4'
-      diffusion_class_representative(3) = 'o16'
-      diffusion_class_representative(4) = 'fe56'
-
-      ! in ascending order.  species goes into 1st class with A_max >= species A
-      diffusion_class_A_max(1) = 2
-      diffusion_class_A_max(2) = 4
-      diffusion_class_A_max(3) = 16
-      diffusion_class_A_max(4) = 10000
-         
-      diffusion_use_isolve = .true.
-      diffusion_rtol_for_isolve = 1d-4
-      diffusion_atol_for_isolve = 1d-5
-      diffusion_maxsteps_for_isolve = 1000
-      diffusion_isolve_solver = 'ros2_solver'
-
-      photo_interval = 50
-      profile_interval = 100
-      history_interval = 10
-      terminal_interval = 10
+   min_D_mix = 1d2 ! D_mix will be at least this large
+   min_center_Ye_for_min_D_mix = 0.47 ! min_D_mix is only used when center Ye >= this
+   ! i.e., when center Ye drops below this, min_D_mix is 0
 
-/ ! end of controls namelist
 
+   num_cells_for_smooth_brunt_B = 0
+
+   !show_diffusion_info = .true. ! terminal output for diffusion
+   !show_diffusion_substep_info = .true.
+   !show_diffusion_timing = .true.
+
+   do_element_diffusion = .true. ! determines whether or not we do diffusion
+
+   diffusion_calculates_ionization = .true.
+
+   diffusion_num_classes = 4 ! number of classes of species for diffusion calculations
+   diffusion_class_representative(1) = 'h1'
+   diffusion_class_representative(2) = 'he4'
+   diffusion_class_representative(3) = 'o16'
+   diffusion_class_representative(4) = 'fe56'
+
+   ! in ascending order.  species goes into 1st class with A_max >= species A
+   diffusion_class_A_max(1) = 2
+   diffusion_class_A_max(2) = 4
+   diffusion_class_A_max(3) = 16
+   diffusion_class_A_max(4) = 10000
+
+   diffusion_use_isolve = .true.
+   diffusion_rtol_for_isolve = 1d-4
+   diffusion_atol_for_isolve = 1d-5
+   diffusion_maxsteps_for_isolve = 1000
+   diffusion_isolve_solver = 'ros2_solver'
+
+   photo_interval = 50
+   profile_interval = 100
+   history_interval = 10
+   terminal_interval = 10
+
+/ ! end of controls namelist
 
 
 &pgstar
-         
-      ! top level controls
 
-         !pause = .true. 
-            ! if true, the code waits for user to enter a RETURN on the command line
-      
+   ! device
+   file_white_on_black_flag = .true.
+   file_device = 'vcps'      ! postscript
+   file_extension = 'ps'
+   !file_device = 'png'      ! png
+   !file_extension = 'png'
+
+   pgstar_interval = 1
+
+   ! Brunt B profile
+   Profile_Panels1_win_flag = .true.
+   Profile_Panels1_win_width = 14
+   Profile_Panels1_show_grid = .false
+   Profile_Panels1_title = 'diffusion_smoothness'
+
+   Profile_Panels1_xaxis_name = 'zone'
+   Profile_Panels1_xmin = -101d0
+   Profile_Panels1_xmax = -101d0
+   Profile_Panels1_xaxis_reversed = .true.
+   Profile_Panels1_show_mix_regions_on_xaxis = .true.
+
+   Profile_Panels1_num_panels = 1
+   Profile_Panels1_yaxis_name(1) = 'brunt_B'
+   Profile_Panels1_ymin(:) = -101d0
+   Profile_Panels1_ymax(:) = -101d0
+   Profile_Panels1_other_yaxis_name(1) = ''
+
+   Profile_Panels1_file_flag = .true.
+   Profile_Panels1_file_dir = 'pgstar_out'
+   Profile_Panels1_file_prefix = 'brunt_'
+   Profile_Panels1_file_interval = 10000
+   Profile_Panels1_file_width = 14
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/diffusion_smoothness/inlist_diffusion_smoothness_header b/star/test_suite/diffusion_smoothness/inlist_diffusion_smoothness_header
index 90d444869..aaf43854c 100644
--- a/star/test_suite/diffusion_smoothness/inlist_diffusion_smoothness_header
+++ b/star/test_suite/diffusion_smoothness/inlist_diffusion_smoothness_header
@@ -1,41 +1,39 @@
 
 &star_job
 
-
-      read_extra_star_job_inlist(1) = .true.
-      extra_star_job_inlist_name(1) = 'inlist_diffusion_smoothness'
+   read_extra_star_job_inlist(1) = .true.
+   extra_star_job_inlist_name(1) = 'inlist_diffusion_smoothness'
 
 / ! end of star_job namelist
 
 
 &eos
 
-      read_extra_eos_inlist(1) = .true.
-      extra_eos_inlist_name(1) = 'inlist_diffusion_smoothness'
+   read_extra_eos_inlist(1) = .true.
+   extra_eos_inlist_name(1) = 'inlist_diffusion_smoothness'
 
 / ! end of eos namelist
 
 
 &kap
 
-      read_extra_kap_inlist(1) = .true.
-      extra_kap_inlist_name(1) = 'inlist_diffusion_smoothness'
+   read_extra_kap_inlist(1) = .true.
+   extra_kap_inlist_name(1) = 'inlist_diffusion_smoothness'
 
 / ! end of kap namelist
 
 
-
 &controls
 
-      read_extra_controls_inlist(1) = .true.
-      extra_controls_inlist_name(1)= 'inlist_diffusion_smoothness'
+   read_extra_controls_inlist(1) = .true.
+   extra_controls_inlist_name(1)= 'inlist_diffusion_smoothness'
 
 / ! end of controls namelist
 
 
 &pgstar
 
-      read_extra_pgstar_inlist(1) = .true.
-      extra_pgstar_inlist_name(1)= 'inlist_diffusion_smoothness'
+   read_extra_pgstar_inlist(1) = .true.
+   extra_pgstar_inlist_name(1)= 'inlist_diffusion_smoothness'
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/diffusion_smoothness/inlist_zams b/star/test_suite/diffusion_smoothness/inlist_zams
index 8bfa87a5f..fda0c5e76 100644
--- a/star/test_suite/diffusion_smoothness/inlist_zams
+++ b/star/test_suite/diffusion_smoothness/inlist_zams
@@ -1,77 +1,75 @@
 
 &star_job
 
-      show_log_description_at_start = .false.
-      
-      !show_net_species_info = .true.
-      !show_net_reactions_info = .true.
+   show_log_description_at_start = .false.
 
-      create_pre_main_sequence_model = .true.
-      
-      save_model_when_terminate = .true.
-      save_model_filename = 'zams.mod'
-      required_termination_code_string = 'Lnuc_div_L_zams_limit'
+   !show_net_species_info = .true.
+   !show_net_reactions_info = .true.
 
+   create_pre_main_sequence_model = .true.
 
-      change_initial_net = .true.      
-      new_net_name = 'o18_and_ne22.net'
-   
-      !pgstar_flag = .true.
+   save_model_when_terminate = .true.
+   save_model_filename = 'zams.mod'
+   required_termination_code_string = 'Lnuc_div_L_zams_limit'
+
+
+   change_initial_net = .true.
+   new_net_name = 'o18_and_ne22.net'
+
+   !pgstar_flag = .true.
 
 
 / ! end of star_job namelist
 
 &kap
-      Zbase = 0.02d0
+   Zbase = 0.02d0
 
-      kap_file_prefix = 'gs98'
+   kap_file_prefix = 'gs98'
 
 / ! end of kap namelist
 
 &controls
 
-      stop_near_zams = .true.
-      Lnuc_div_L_zams_limit = 0.98d0
-
-      ! limit max_model_number as part of test_suite
-      max_model_number = 10000
-      use_gold2_tolerances = .true.
-
-      num_trace_history_values = 2
-      trace_history_value_name(1) = 'rel_E_err'
-      trace_history_value_name(2) = 'log_rel_run_E_err'
-      
-      x_integer_ctrl(1) = 0 ! part number
-
-      initial_mass = 1.0
-      initial_z = 0.02d0
-      
-      varcontrol_target = 1d-3
-      mesh_delta_coeff = 0.7
-      
+   stop_near_zams = .true.
+   Lnuc_div_L_zams_limit = 0.98d0
+
+   ! limit max_model_number as part of test_suite
+   max_model_number = 10000
+   use_gold2_tolerances = .true.
+
+   num_trace_history_values = 2
+   trace_history_value_name(1) = 'rel_E_err'
+   trace_history_value_name(2) = 'log_rel_run_E_err'
+
+   x_integer_ctrl(1) = 0 ! part number
+
+   initial_mass = 1.0
+   initial_z = 0.02d0
+
+   varcontrol_target = 1d-3
+   mesh_delta_coeff = 0.7
+
 !      set_min_D_mix = .true.
-      min_D_mix = 1d2 ! D_mix will be at least this large
-      min_center_Ye_for_min_D_mix = 0.47 ! min_D_mix is only used when center Ye >= this
-         ! i.e., when center Ye drops below this, min_D_mix is 0
-      
-      
-      num_cells_for_smooth_brunt_B = 0
-      
-      photo_interval = 50
-      profile_interval = 100
-      history_interval = 10
-      terminal_interval = 10
+   min_D_mix = 1d2 ! D_mix will be at least this large
+   min_center_Ye_for_min_D_mix = 0.47 ! min_D_mix is only used when center Ye >= this
+   ! i.e., when center Ye drops below this, min_D_mix is 0
 
-/ ! end of controls namelist
 
+   num_cells_for_smooth_brunt_B = 0
+
+   photo_interval = 50
+   profile_interval = 100
+   history_interval = 10
+   terminal_interval = 10
+
+/ ! end of controls namelist
 
 
 &pgstar
-         
-      ! top level controls
 
-         !pause = .true. 
-            ! if true, the code waits for user to enter a RETURN on the command line
-      
+   ! top level controls
+
+   !pause = .true.
+   ! if true, the code waits for user to enter a RETURN on the command line
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/diffusion_smoothness/inlist_zams_header b/star/test_suite/diffusion_smoothness/inlist_zams_header
index 9b647ddf7..f855a2d43 100644
--- a/star/test_suite/diffusion_smoothness/inlist_zams_header
+++ b/star/test_suite/diffusion_smoothness/inlist_zams_header
@@ -1,25 +1,24 @@
 
 &star_job
 
-
-      read_extra_star_job_inlist(1) = .true.
-      extra_star_job_inlist_name(1) = 'inlist_zams'
+   read_extra_star_job_inlist(1) = .true.
+   extra_star_job_inlist_name(1) = 'inlist_zams'
 
 / ! end of star_job namelist
 
 
 &eos
 
-      read_extra_eos_inlist(1) = .true.
-      extra_eos_inlist_name(1) = 'inlist_zams'
+   read_extra_eos_inlist(1) = .true.
+   extra_eos_inlist_name(1) = 'inlist_zams'
 
 / ! end of eos namelist
 
 
 &kap
 
-      read_extra_kap_inlist(1) = .true.
-      extra_kap_inlist_name(1) = 'inlist_zams'
+   read_extra_kap_inlist(1) = .true.
+   extra_kap_inlist_name(1) = 'inlist_zams'
 
 / ! end of kap namelist
 
@@ -27,15 +26,15 @@
 
 &controls
 
-      read_extra_controls_inlist(1) = .true.
-      extra_controls_inlist_name(1)= 'inlist_zams'
+   read_extra_controls_inlist(1) = .true.
+   extra_controls_inlist_name(1)= 'inlist_zams'
 
 / ! end of controls namelist
 
 
 &pgstar
 
-      read_extra_pgstar_inlist(1) = .true.
-      extra_pgstar_inlist_name(1)= 'inlist_zams'
+   read_extra_pgstar_inlist(1) = .true.
+   extra_pgstar_inlist_name(1)= 'inlist_zams'
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/each_test_compile b/star/test_suite/each_test_compile
index 1424b5224..5fdb014e5 100755
--- a/star/test_suite/each_test_compile
+++ b/star/test_suite/each_test_compile
@@ -1,10 +1,10 @@
 #!/bin/bash
 
 function check_okay {
-	if [ $? -ne 0 ]
-	then
-		exit 1
-	fi
+    if [ $? -ne 0 ]
+    then
+        exit 1
+    fi
 }
 
 function do_one {
@@ -24,6 +24,6 @@ DO_ALL=0
 id=0
 curr_id="$1"
 if [ ! "$1" ]; then
-   DO_ALL=1
+    DO_ALL=1
 fi
 source do1_test_source
diff --git a/star/test_suite/each_test_do b/star/test_suite/each_test_do
index bb0325951..6b892f7da 100755
--- a/star/test_suite/each_test_do
+++ b/star/test_suite/each_test_do
@@ -1,35 +1,33 @@
 #!/bin/bash
 
 function check_okay {
-	if [ $? -ne 0 ]
-	then
-		exit 1
-	fi
+    if [ $? -ne 0 ]
+    then
+        exit 1
+    fi
 }
 
-
-
 function error {
-	echo
-	more diff.txt
-	echo
-	echo "******* failed ******** diff final_check.mod" "$1"
-	echo
+    echo
+    more diff.txt
+    echo
+    echo "******* failed ******** diff final_check.mod" "$1"
+    echo
 }
 
 function do_onex {
 cd $1
 if [ -z profile_columns.list ]
 then
-  pwd
-  cp ../../defaults/profile_columns.list profile_columns.list
-  svn add profile_columns.list
+    pwd
+    cp ../../defaults/profile_columns.list profile_columns.list
+    svn add profile_columns.list
 fi
 if [ -z history_columns.list ]
 then
-  pwd
-  cp ../../defaults/history_columns.list history_columns.list
-  svn add history_columns.list
+    pwd
+    cp ../../defaults/history_columns.list history_columns.list
+    svn add history_columns.list
 fi
 cd ..
 }
@@ -38,13 +36,13 @@ function do_onexx {
 cd $1
 if [ -z $3 ]
 then
-  echo
+    echo
 elif [ "$3" == skip ]
 then
-  echo
+    echo
 else
-  pwd
-  cp "$3" /Users/bpaxton/mesa/star/test_suite/$1/final_check.mod
+    pwd
+    cp "$3" /Users/bpaxton/mesa/star/test_suite/$1/final_check.mod
 fi
 cd ..
 }
@@ -53,19 +51,19 @@ function do_onex {
 cd $1
 if [ ! -r final_check.mod ]
 then
-  if [ ! -z $3 ]
-  then
-    pwd
-    echo cp $3 final_check.mod
-    cp $3 final_check.mod
-    #svn add final_check.mod
-  elif [ -r final.mod ]
-  then
-    pwd
-    echo cp final.mod final_check.mod
-    cp final.mod final_check.mod
-    #svn add final_check.mod
-  fi
+    if [ ! -z $3 ]
+    then
+        pwd
+        echo cp $3 final_check.mod
+      cp $3 final_check.mod
+      #svn add final_check.mod
+    elif [ -r final.mod ]
+    then
+        pwd
+        echo cp final.mod final_check.mod
+        cp final.mod final_check.mod
+        #svn add final_check.mod
+    fi
 fi
 cd ..
 }
@@ -79,13 +77,12 @@ function do_onex {
 }
 
 
-
 function do_one {
-  echo $1
-  cd $1
-  cat history_columns.list >> ../history_columns.combined.list
-  rm history_columns.combined.list
-  cd ..
+    echo $1
+    cd $1
+    cat history_columns.list >> ../history_columns.combined.list
+    rm history_columns.combined.list
+    cd ..
 }
 
 
diff --git a/star/test_suite/each_test_run b/star/test_suite/each_test_run
index 1227ddc88..fcd26c6e1 100755
--- a/star/test_suite/each_test_run
+++ b/star/test_suite/each_test_run
@@ -17,6 +17,95 @@ function testhub_log {
     echo "$1" >> testhub.yml
 }
 
+# Optional function to update the docs after a test has passed.
+# This function checks for images specified in the problem's README.rst file
+# and copies images generated by the run to the appropriate location in the docs,
+# otherwise it generates an error message
+function update_docs {
+    start_time=$1
+    # run python plotting script plot.py if it exists
+    if [ -e plot.py ]; then
+        echo "Running plot.py"
+        if ! python plot.py; then
+            echo "Error: plot.py failed to run"
+        fi
+    fi
+    # check for image filenames in README.rst
+    if grep -q ".. image::" README.rst; then
+        # copy images to docs/ if they exist
+        for img in $(grep ".. image::" README.rst | cut -d' ' -f3); do
+            filename=$(basename -- "$img")
+            extension="${filename##*.}"
+            filename="${filename%.*}"
+            # find the right img directory out of:
+            #   "pgstar_out", "pgstar_out1", "pgstar_out2", "pgstar_out3", 
+            #   "png", "png1", "png2", "png3", 
+            #   "plt_out", "plt_out1", "plt_out2", "plt_out3"
+            img_dir="pgstar_out"
+            if [ \( -e "pgstar_out/$filename.$extension" \) -o \( -e "pgstar_out/$filename.ps" \) ]; then
+                img_dir="pgstar_out"
+            elif [ \( -e "pgstar_out1/$filename.$extension" \) -o \( -e "pgstar_out1/$filename.ps" \) ]; then
+                img_dir="pgstar_out1"
+            elif [ \( -e "pgstar_out2/$filename.$extension" \) -o \( -e "pgstar_out2/$filename.ps" \) ]; then
+                img_dir="pgstar_out2"
+            elif [ \( -e "pgstar_out3/$filename.$extension" \) -o \( -e "pgstar_out3/$filename.ps" \) ]; then
+                img_dir="pgstar_out3"
+            elif [ -e "png/$filename.$extension" ]; then
+                img_dir="png"
+            elif [ -e "png1/$filename.$extension" ]; then
+                img_dir="png1"
+            elif [ -e "png2/$filename.$extension" ]; then
+                img_dir="png2"
+            elif [ -e "png3/$filename.$extension" ]; then
+                img_dir="png3"
+            elif [ -e "plt_out/$filename.$extension" ]; then
+                img_dir="plt_out"
+            elif [ -e "plt_out1/$filename.$extension" ]; then
+                img_dir="plt_out1"
+            elif [ -e "plt_out2/$filename.$extension" ]; then
+                img_dir="plt_out2"
+            elif [ -e "plt_out3/$filename.$extension" ]; then
+                img_dir="plt_out3"
+            fi
+            image_to_copy="$img_dir/$filename.$extension"
+            # if requested extension is .svg, it may need to be converted from .ps (since pgstar outputs .ps):
+            if [ "$extension" == "svg" ]; then
+                if [ -e $img_dir/$filename.ps ]; then
+                    echo "Converting $filename.ps to $filename.svg"
+                    if [ ! command -v epstool &> /dev/null]; then
+                        echo "Error: 'epstool' could not be found! Please install it. Will not be able to convert image to optmized .svg"
+                    elif [ ! command -v ps2pdf &> /dev/null]; then
+                        echo "Error: 'ps2pdf' could not be found! Please install it. Will not be able to convert image to optmized .svg"
+                    elif [ ! command -v inkscape &> /dev/null]; then
+                        echo "Error: 'inkscape' could not be found! Please install it. Will not be able to convert image to optmized .svg"
+                    elif [ ! command -v svgo &> /dev/null]; then
+                        echo "Error: 'svgo' could not be found! Please install it. Will not be able to convert image to optmized .svg"
+                    fi
+                    epstool --copy --bbox  $img_dir/$filename.ps $img_dir/_TMP_$filename.ps
+                    ps2pdf -dEPSCrop $img_dir/_TMP_$filename.ps $img_dir/_TMP_$filename.pdf
+                    inkscape --export-page=1 --export-type="svg" --export-extension=org.inkscape.output.scour_inkscape --export-filename=$img_dir/_TMP_$filename.svg $img_dir/_TMP_$filename.pdf
+                    svgo $img_dir/_TMP_$filename.svg -o $img_dir/$filename.svg
+                    rm $img_dir/_TMP_$filename.ps $img_dir/_TMP_$filename.pdf $img_dir/_TMP_$filename.svg
+                fi
+            fi
+            # perform copy if image exists, and update README.rst
+            if [ -e "$image_to_copy" ]; then
+                cp "$image_to_copy" docs/
+                echo "Updated image $filename.$extension in the docs"
+                # replace the line "Last-Run: ..." in README.rst
+                LAST_RUN="Last-Run: $(date '+%d%b%Y') (MESA $(git rev-parse --short HEAD)) by $USER on $(hostname) in $(expr `date +%s` - $start_time) seconds using $OMP_NUM_THREADS threads."
+                # print name of 
+                sed -i "" "/Last-Run: .*/d" README.rst
+                echo $LAST_RUN >> README.rst
+            else
+                echo "Error: $image_to_copy not found. Test may no longer be producing this file or may now be producing a different final snapshot number! Update test and README.rst accordingly."
+            fi
+        done
+    else
+        echo "(no images found in README.rst)"
+    fi
+}
+
 # remove known false positive messages from stderr output file (err.txt)
 function filter_stderr {
     cp err.txt err.tmp
@@ -190,6 +279,8 @@ function check_run {
 
 function build_and_run {
 
+    start_time=`date +%s`
+
     if ! ./clean; then
         return 1
     fi
@@ -228,6 +319,11 @@ function build_and_run {
 
     # if we made it this far, we passed
     testhub_log "outcome: :pass"
+
+    # if we're updating the docs, try to do it here
+    if [ "$has_update_docs_flag" = true ]; then
+        update_docs $start_time
+    fi
     return
 
 }
@@ -275,6 +371,21 @@ fi
 
 }
 
+# check for '--update-docs' optional flag
+has_update_docs_flag=false
+for i in "$@"; do
+  case $i in
+    -u|--update-docs)
+      has_update_docs_flag=true
+      echo "(updating docs after successful test runs)"
+      shift # past argument with no value
+      ;;
+    -*|--*)
+      echo "Unknown option $i"
+      exit 1
+      ;;
+  esac
+done
 
 date
 echo ""
diff --git a/star/test_suite/extended_convective_penetration/README.rst b/star/test_suite/extended_convective_penetration/README.rst
index db75a683a..bbde74541 100644
--- a/star/test_suite/extended_convective_penetration/README.rst
+++ b/star/test_suite/extended_convective_penetration/README.rst
@@ -72,10 +72,10 @@ we have a radiative temperature gradient (:math:`\nabla_T = \nabla_{rad}`).
 
 
 .. image:: ../../../star/test_suite/extended_convective_penetration/docs/grads_000047.svg
-   :scale: 100%
+   :width: 100%
 
 .. image:: ../../../star/test_suite/extended_convective_penetration/docs/mixing_000047.svg
-   :scale: 100%
+   :width: 100%
 
 pgstar commands used for the plot:
 
diff --git a/star/test_suite/gyre_in_mesa_bcep/make/makefile b/star/test_suite/gyre_in_mesa_bcep/make/makefile
index 68451046a..da1cf8efd 100644
--- a/star/test_suite/gyre_in_mesa_bcep/make/makefile
+++ b/star/test_suite/gyre_in_mesa_bcep/make/makefile
@@ -2,7 +2,7 @@
 
 include $(MESA_DIR)/utils/makefile_header
 
-LOAD_MESA = $(LOAD_EXTRAS1) $(LOAD_MESA_STAR) $(LOAD_EXTRAS)
+LOAD_MESA = $(LOAD_EXTRAS1) $(LOAD_MESA_STAR) $(LOAD_GYRE) $(LOAD_EXTRAS)
 
 #################################################################
 
@@ -18,7 +18,7 @@ WORK_SRC_DIR = $(WORK_DIR)/src
 STAR_JOB_DIR = $(MESA_DIR)/star/job
 
 $(STAR) : $(OBJS)
-	$(LOADER) $(FCopenmp) -o $(WORK_DIR)/$(STAR) $(OBJS) $(LOAD_MESA) -lgyre
+	$(LOADER) $(FCopenmp) -o $(WORK_DIR)/$(STAR) $(OBJS) $(LOAD_MESA)
 
 #################################################################
 
diff --git a/star/test_suite/gyre_in_mesa_bcep/src/run_star_extras.f90 b/star/test_suite/gyre_in_mesa_bcep/src/run_star_extras.f90
index 75dd314b6..b60405fdf 100644
--- a/star/test_suite/gyre_in_mesa_bcep/src/run_star_extras.f90
+++ b/star/test_suite/gyre_in_mesa_bcep/src/run_star_extras.f90
@@ -28,8 +28,9 @@ module run_star_extras
   use star_def
   use const_def
   use math_lib
-      use auto_diff
-  use gyre_lib
+  use auto_diff
+
+  use gyre_mesa_m
 
   ! No implicit typing
       
@@ -81,19 +82,19 @@ subroutine extras_startup(id, restart, ierr)
 
     ! Initialize GYRE
 
-    call gyre_init('gyre.in')
+    call init('gyre.in')
 
     ! Set constants
 
-    call gyre_set_constant('G_GRAVITY', standard_cgrav)
-    call gyre_set_constant('C_LIGHT', clight)
-    call gyre_set_constant('A_RADIATION', crad)
+    call set_constant('G_GRAVITY', standard_cgrav)
+    call set_constant('C_LIGHT', clight)
+    call set_constant('A_RADIATION', crad)
 
-    call gyre_set_constant('M_SUN', Msun)
-    call gyre_set_constant('R_SUN', Rsun)
-    call gyre_set_constant('L_SUN', Lsun)
+    call set_constant('M_SUN', Msun)
+    call set_constant('R_SUN', Rsun)
+    call set_constant('L_SUN', Lsun)
 
-    call gyre_set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
+    call set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
 
   end subroutine extras_startup
 
@@ -140,7 +141,7 @@ subroutine extras_after_evolve(id, ierr)
 
     ! Finalize GYRE
 
-    call gyre_final()
+    call final()
 
   end subroutine extras_after_evolve
 
diff --git a/star/test_suite/gyre_in_mesa_envelope/make/makefile b/star/test_suite/gyre_in_mesa_envelope/make/makefile
index 68451046a..da1cf8efd 100644
--- a/star/test_suite/gyre_in_mesa_envelope/make/makefile
+++ b/star/test_suite/gyre_in_mesa_envelope/make/makefile
@@ -2,7 +2,7 @@
 
 include $(MESA_DIR)/utils/makefile_header
 
-LOAD_MESA = $(LOAD_EXTRAS1) $(LOAD_MESA_STAR) $(LOAD_EXTRAS)
+LOAD_MESA = $(LOAD_EXTRAS1) $(LOAD_MESA_STAR) $(LOAD_GYRE) $(LOAD_EXTRAS)
 
 #################################################################
 
@@ -18,7 +18,7 @@ WORK_SRC_DIR = $(WORK_DIR)/src
 STAR_JOB_DIR = $(MESA_DIR)/star/job
 
 $(STAR) : $(OBJS)
-	$(LOADER) $(FCopenmp) -o $(WORK_DIR)/$(STAR) $(OBJS) $(LOAD_MESA) -lgyre
+	$(LOADER) $(FCopenmp) -o $(WORK_DIR)/$(STAR) $(OBJS) $(LOAD_MESA)
 
 #################################################################
 
diff --git a/star/test_suite/gyre_in_mesa_envelope/src/run_star_extras.f90 b/star/test_suite/gyre_in_mesa_envelope/src/run_star_extras.f90
index 75dd314b6..b60405fdf 100644
--- a/star/test_suite/gyre_in_mesa_envelope/src/run_star_extras.f90
+++ b/star/test_suite/gyre_in_mesa_envelope/src/run_star_extras.f90
@@ -28,8 +28,9 @@ module run_star_extras
   use star_def
   use const_def
   use math_lib
-      use auto_diff
-  use gyre_lib
+  use auto_diff
+
+  use gyre_mesa_m
 
   ! No implicit typing
       
@@ -81,19 +82,19 @@ subroutine extras_startup(id, restart, ierr)
 
     ! Initialize GYRE
 
-    call gyre_init('gyre.in')
+    call init('gyre.in')
 
     ! Set constants
 
-    call gyre_set_constant('G_GRAVITY', standard_cgrav)
-    call gyre_set_constant('C_LIGHT', clight)
-    call gyre_set_constant('A_RADIATION', crad)
+    call set_constant('G_GRAVITY', standard_cgrav)
+    call set_constant('C_LIGHT', clight)
+    call set_constant('A_RADIATION', crad)
 
-    call gyre_set_constant('M_SUN', Msun)
-    call gyre_set_constant('R_SUN', Rsun)
-    call gyre_set_constant('L_SUN', Lsun)
+    call set_constant('M_SUN', Msun)
+    call set_constant('R_SUN', Rsun)
+    call set_constant('L_SUN', Lsun)
 
-    call gyre_set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
+    call set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
 
   end subroutine extras_startup
 
@@ -140,7 +141,7 @@ subroutine extras_after_evolve(id, ierr)
 
     ! Finalize GYRE
 
-    call gyre_final()
+    call final()
 
   end subroutine extras_after_evolve
 
diff --git a/star/test_suite/gyre_in_mesa_ms/make/makefile b/star/test_suite/gyre_in_mesa_ms/make/makefile
index 68451046a..da1cf8efd 100644
--- a/star/test_suite/gyre_in_mesa_ms/make/makefile
+++ b/star/test_suite/gyre_in_mesa_ms/make/makefile
@@ -2,7 +2,7 @@
 
 include $(MESA_DIR)/utils/makefile_header
 
-LOAD_MESA = $(LOAD_EXTRAS1) $(LOAD_MESA_STAR) $(LOAD_EXTRAS)
+LOAD_MESA = $(LOAD_EXTRAS1) $(LOAD_MESA_STAR) $(LOAD_GYRE) $(LOAD_EXTRAS)
 
 #################################################################
 
@@ -18,7 +18,7 @@ WORK_SRC_DIR = $(WORK_DIR)/src
 STAR_JOB_DIR = $(MESA_DIR)/star/job
 
 $(STAR) : $(OBJS)
-	$(LOADER) $(FCopenmp) -o $(WORK_DIR)/$(STAR) $(OBJS) $(LOAD_MESA) -lgyre
+	$(LOADER) $(FCopenmp) -o $(WORK_DIR)/$(STAR) $(OBJS) $(LOAD_MESA)
 
 #################################################################
 
diff --git a/star/test_suite/gyre_in_mesa_ms/src/run_star_extras.f90 b/star/test_suite/gyre_in_mesa_ms/src/run_star_extras.f90
index 75dd314b6..b60405fdf 100644
--- a/star/test_suite/gyre_in_mesa_ms/src/run_star_extras.f90
+++ b/star/test_suite/gyre_in_mesa_ms/src/run_star_extras.f90
@@ -28,8 +28,9 @@ module run_star_extras
   use star_def
   use const_def
   use math_lib
-      use auto_diff
-  use gyre_lib
+  use auto_diff
+
+  use gyre_mesa_m
 
   ! No implicit typing
       
@@ -81,19 +82,19 @@ subroutine extras_startup(id, restart, ierr)
 
     ! Initialize GYRE
 
-    call gyre_init('gyre.in')
+    call init('gyre.in')
 
     ! Set constants
 
-    call gyre_set_constant('G_GRAVITY', standard_cgrav)
-    call gyre_set_constant('C_LIGHT', clight)
-    call gyre_set_constant('A_RADIATION', crad)
+    call set_constant('G_GRAVITY', standard_cgrav)
+    call set_constant('C_LIGHT', clight)
+    call set_constant('A_RADIATION', crad)
 
-    call gyre_set_constant('M_SUN', Msun)
-    call gyre_set_constant('R_SUN', Rsun)
-    call gyre_set_constant('L_SUN', Lsun)
+    call set_constant('M_SUN', Msun)
+    call set_constant('R_SUN', Rsun)
+    call set_constant('L_SUN', Lsun)
 
-    call gyre_set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
+    call set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
 
   end subroutine extras_startup
 
@@ -140,7 +141,7 @@ subroutine extras_after_evolve(id, ierr)
 
     ! Finalize GYRE
 
-    call gyre_final()
+    call final()
 
   end subroutine extras_after_evolve
 
diff --git a/star/test_suite/gyre_in_mesa_rsg/README.rst b/star/test_suite/gyre_in_mesa_rsg/README.rst
index 44edf3f35..627cb00f1 100644
--- a/star/test_suite/gyre_in_mesa_rsg/README.rst
+++ b/star/test_suite/gyre_in_mesa_rsg/README.rst
@@ -13,7 +13,7 @@ This test case has 4 parts.
 * Part 2 (``inlist_to_near_pulses``) continues the evolution until effective temperature goes below log10(Teff/K) = 3.55.
 
 .. image:: ../../../star/test_suite/gyre_in_mesa_rsg/docs/hr000496.svg
-   :scale: 100%
+   :width: 100%
 
 * Part 3 (``inlist_to_pulse``) continues the evolution until luminosity exceeds log10(Lsun/L) = 5.04.
 
diff --git a/star/test_suite/gyre_in_mesa_rsg/make/makefile b/star/test_suite/gyre_in_mesa_rsg/make/makefile
index 68451046a..da1cf8efd 100644
--- a/star/test_suite/gyre_in_mesa_rsg/make/makefile
+++ b/star/test_suite/gyre_in_mesa_rsg/make/makefile
@@ -2,7 +2,7 @@
 
 include $(MESA_DIR)/utils/makefile_header
 
-LOAD_MESA = $(LOAD_EXTRAS1) $(LOAD_MESA_STAR) $(LOAD_EXTRAS)
+LOAD_MESA = $(LOAD_EXTRAS1) $(LOAD_MESA_STAR) $(LOAD_GYRE) $(LOAD_EXTRAS)
 
 #################################################################
 
@@ -18,7 +18,7 @@ WORK_SRC_DIR = $(WORK_DIR)/src
 STAR_JOB_DIR = $(MESA_DIR)/star/job
 
 $(STAR) : $(OBJS)
-	$(LOADER) $(FCopenmp) -o $(WORK_DIR)/$(STAR) $(OBJS) $(LOAD_MESA) -lgyre
+	$(LOADER) $(FCopenmp) -o $(WORK_DIR)/$(STAR) $(OBJS) $(LOAD_MESA)
 
 #################################################################
 
diff --git a/star/test_suite/gyre_in_mesa_rsg/src/run_star_extras.f90 b/star/test_suite/gyre_in_mesa_rsg/src/run_star_extras.f90
index 75dd314b6..b60405fdf 100644
--- a/star/test_suite/gyre_in_mesa_rsg/src/run_star_extras.f90
+++ b/star/test_suite/gyre_in_mesa_rsg/src/run_star_extras.f90
@@ -28,8 +28,9 @@ module run_star_extras
   use star_def
   use const_def
   use math_lib
-      use auto_diff
-  use gyre_lib
+  use auto_diff
+
+  use gyre_mesa_m
 
   ! No implicit typing
       
@@ -81,19 +82,19 @@ subroutine extras_startup(id, restart, ierr)
 
     ! Initialize GYRE
 
-    call gyre_init('gyre.in')
+    call init('gyre.in')
 
     ! Set constants
 
-    call gyre_set_constant('G_GRAVITY', standard_cgrav)
-    call gyre_set_constant('C_LIGHT', clight)
-    call gyre_set_constant('A_RADIATION', crad)
+    call set_constant('G_GRAVITY', standard_cgrav)
+    call set_constant('C_LIGHT', clight)
+    call set_constant('A_RADIATION', crad)
 
-    call gyre_set_constant('M_SUN', Msun)
-    call gyre_set_constant('R_SUN', Rsun)
-    call gyre_set_constant('L_SUN', Lsun)
+    call set_constant('M_SUN', Msun)
+    call set_constant('R_SUN', Rsun)
+    call set_constant('L_SUN', Lsun)
 
-    call gyre_set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
+    call set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
 
   end subroutine extras_startup
 
@@ -140,7 +141,7 @@ subroutine extras_after_evolve(id, ierr)
 
     ! Finalize GYRE
 
-    call gyre_final()
+    call final()
 
   end subroutine extras_after_evolve
 
diff --git a/star/test_suite/gyre_in_mesa_spb/make/makefile b/star/test_suite/gyre_in_mesa_spb/make/makefile
index 68451046a..da1cf8efd 100644
--- a/star/test_suite/gyre_in_mesa_spb/make/makefile
+++ b/star/test_suite/gyre_in_mesa_spb/make/makefile
@@ -2,7 +2,7 @@
 
 include $(MESA_DIR)/utils/makefile_header
 
-LOAD_MESA = $(LOAD_EXTRAS1) $(LOAD_MESA_STAR) $(LOAD_EXTRAS)
+LOAD_MESA = $(LOAD_EXTRAS1) $(LOAD_MESA_STAR) $(LOAD_GYRE) $(LOAD_EXTRAS)
 
 #################################################################
 
@@ -18,7 +18,7 @@ WORK_SRC_DIR = $(WORK_DIR)/src
 STAR_JOB_DIR = $(MESA_DIR)/star/job
 
 $(STAR) : $(OBJS)
-	$(LOADER) $(FCopenmp) -o $(WORK_DIR)/$(STAR) $(OBJS) $(LOAD_MESA) -lgyre
+	$(LOADER) $(FCopenmp) -o $(WORK_DIR)/$(STAR) $(OBJS) $(LOAD_MESA)
 
 #################################################################
 
diff --git a/star/test_suite/gyre_in_mesa_spb/src/run_star_extras.f90 b/star/test_suite/gyre_in_mesa_spb/src/run_star_extras.f90
index 75dd314b6..b60405fdf 100644
--- a/star/test_suite/gyre_in_mesa_spb/src/run_star_extras.f90
+++ b/star/test_suite/gyre_in_mesa_spb/src/run_star_extras.f90
@@ -28,8 +28,9 @@ module run_star_extras
   use star_def
   use const_def
   use math_lib
-      use auto_diff
-  use gyre_lib
+  use auto_diff
+
+  use gyre_mesa_m
 
   ! No implicit typing
       
@@ -81,19 +82,19 @@ subroutine extras_startup(id, restart, ierr)
 
     ! Initialize GYRE
 
-    call gyre_init('gyre.in')
+    call init('gyre.in')
 
     ! Set constants
 
-    call gyre_set_constant('G_GRAVITY', standard_cgrav)
-    call gyre_set_constant('C_LIGHT', clight)
-    call gyre_set_constant('A_RADIATION', crad)
+    call set_constant('G_GRAVITY', standard_cgrav)
+    call set_constant('C_LIGHT', clight)
+    call set_constant('A_RADIATION', crad)
 
-    call gyre_set_constant('M_SUN', Msun)
-    call gyre_set_constant('R_SUN', Rsun)
-    call gyre_set_constant('L_SUN', Lsun)
+    call set_constant('M_SUN', Msun)
+    call set_constant('R_SUN', Rsun)
+    call set_constant('L_SUN', Lsun)
 
-    call gyre_set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
+    call set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
 
   end subroutine extras_startup
 
@@ -140,7 +141,7 @@ subroutine extras_after_evolve(id, ierr)
 
     ! Finalize GYRE
 
-    call gyre_final()
+    call final()
 
   end subroutine extras_after_evolve
 
diff --git a/star/test_suite/gyre_in_mesa_wd/make/makefile b/star/test_suite/gyre_in_mesa_wd/make/makefile
index 68451046a..da1cf8efd 100644
--- a/star/test_suite/gyre_in_mesa_wd/make/makefile
+++ b/star/test_suite/gyre_in_mesa_wd/make/makefile
@@ -2,7 +2,7 @@
 
 include $(MESA_DIR)/utils/makefile_header
 
-LOAD_MESA = $(LOAD_EXTRAS1) $(LOAD_MESA_STAR) $(LOAD_EXTRAS)
+LOAD_MESA = $(LOAD_EXTRAS1) $(LOAD_MESA_STAR) $(LOAD_GYRE) $(LOAD_EXTRAS)
 
 #################################################################
 
@@ -18,7 +18,7 @@ WORK_SRC_DIR = $(WORK_DIR)/src
 STAR_JOB_DIR = $(MESA_DIR)/star/job
 
 $(STAR) : $(OBJS)
-	$(LOADER) $(FCopenmp) -o $(WORK_DIR)/$(STAR) $(OBJS) $(LOAD_MESA) -lgyre
+	$(LOADER) $(FCopenmp) -o $(WORK_DIR)/$(STAR) $(OBJS) $(LOAD_MESA)
 
 #################################################################
 
diff --git a/star/test_suite/gyre_in_mesa_wd/src/run_star_extras.f90 b/star/test_suite/gyre_in_mesa_wd/src/run_star_extras.f90
index 75dd314b6..b60405fdf 100644
--- a/star/test_suite/gyre_in_mesa_wd/src/run_star_extras.f90
+++ b/star/test_suite/gyre_in_mesa_wd/src/run_star_extras.f90
@@ -28,8 +28,9 @@ module run_star_extras
   use star_def
   use const_def
   use math_lib
-      use auto_diff
-  use gyre_lib
+  use auto_diff
+
+  use gyre_mesa_m
 
   ! No implicit typing
       
@@ -81,19 +82,19 @@ subroutine extras_startup(id, restart, ierr)
 
     ! Initialize GYRE
 
-    call gyre_init('gyre.in')
+    call init('gyre.in')
 
     ! Set constants
 
-    call gyre_set_constant('G_GRAVITY', standard_cgrav)
-    call gyre_set_constant('C_LIGHT', clight)
-    call gyre_set_constant('A_RADIATION', crad)
+    call set_constant('G_GRAVITY', standard_cgrav)
+    call set_constant('C_LIGHT', clight)
+    call set_constant('A_RADIATION', crad)
 
-    call gyre_set_constant('M_SUN', Msun)
-    call gyre_set_constant('R_SUN', Rsun)
-    call gyre_set_constant('L_SUN', Lsun)
+    call set_constant('M_SUN', Msun)
+    call set_constant('R_SUN', Rsun)
+    call set_constant('L_SUN', Lsun)
 
-    call gyre_set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
+    call set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
 
   end subroutine extras_startup
 
@@ -140,7 +141,7 @@ subroutine extras_after_evolve(id, ierr)
 
     ! Finalize GYRE
 
-    call gyre_final()
+    call final()
 
   end subroutine extras_after_evolve
 
diff --git a/star/test_suite/hb_2M/README.rst b/star/test_suite/hb_2M/README.rst
index 4845237cd..9937d465f 100644
--- a/star/test_suite/hb_2M/README.rst
+++ b/star/test_suite/hb_2M/README.rst
@@ -33,7 +33,7 @@ Then we specify the output. We save the final model, which will be the starting
    :end-before: initial_zfracs = 6 
 
 Next, we specify the initial composition. There is no consensus yet on which is "the best" solar composition. By default, the initial composition in MESA is ``initial_zfracs = 3`` which corresponds to the `GS98 <https://link.springer.com/article/10.1023%2FA%3A1005161325181>`__ metal fraction. Here we want to use the more recent available solar composition given in `AGSS09 <https://www.annualreviews.org/doi/pdf/10.1146/annurev.astro.46.060407.145222>`__ , therefore we set ``initial_zfracs = 6``.
-Since it is very important to use the opacity tables which are built using the solar composition we use, we also have to set the ``kappa_file_prefix`` to the 2009 solar composition (the default table corresponds to the gs98 composition).
+Since it is very important to use the opacity tables which are built using the solar composition we use, we also have to set the ``kap_file_prefix`` to the 2009 solar composition (the default table corresponds to the gs98 composition).
 
 .. literalinclude:: ../../../star/test_suite/hb_2M/inlist_to_TAMS
    :start-after: history_columns_file = 'history_columns.list' 
@@ -43,7 +43,7 @@ We also have to choose a network of nuclear reactions. This network should be ch
 Here we want to use a nuclear reactions network, called ``pp_and_cno_extras.net``, which provides a more complete coverage for hydrogen and helium burning.
 
 .. literalinclude:: ../../../star/test_suite/hb_2M/inlist_to_TAMS
-   :start-after:  kappa_file_prefix = 'a09'
+   :start-after:  kap_file_prefix = 'a09'
    :end-before: /
 
 We do not specify anything about the eos, which means we use the default one.
@@ -60,14 +60,14 @@ The energy equation can be written in the dLdm or the dedt form in MESA (see `ME
 Next we specify the starting model, i.e., its initial mass, metallicity, and helium  mass fraction. Here we only specify M and Z; the helium content is by default 0.24 + 2Z. 
 
 .. literalinclude:: ../../../star/test_suite/hb_2M/inlist_to_TAMS
-   :start-after:  use_dedt
-   :end-before: opacity
+   :start-at:  initial_mass
+   :end-at: initial_z
 
-Because we will evolve the star through core helium burning, we want to use the Type2 opacities because they take into account extra C/O, important for this stage of stellar evolution. As explained in the controls_default file, when using Type 2 opacities you need to specify a base metallicity ``Z_base`` which gives the metal abundances previous to any CO enhancement. 
+Because we will evolve the star through core helium burning, we want to use the Type2 opacities because they take into account extra C/O, important for this stage of stellar evolution. As explained in the controls_default file, when using Type 2 opacities you need to specify a base metallicity ``Zbase`` which gives the metal abundances previous to any CO enhancement. 
 
 .. literalinclude:: ../../../star/test_suite/hb_2M/inlist_to_TAMS
-   :start-after:  opacity controls
-   :end-before: mixing
+   :start-at: kap
+   :end-at: ! end of kap namelist
 
 We now specify the non-default mixing parameters we want to use.
 We will use the `Henyey theory of convection <http://articles.adsabs.harvard.edu/pdf/1965ApJ...142..841H>`__  with ``mixing_length_alpha=1.8``. We will use the Ledoux criterion and the "predictive mixing" scheme described in `MESAIV <https://arxiv.org/pdf/1710.08424.pdf>`__ to find the convective boundaries at the core and at the surface. 
@@ -143,8 +143,8 @@ We use the same mixing controls as for the PMS-to-TAMS part of the evolution.
 We use the ``HB_limit`` control to find the beginning of the Horizontal Branch (our ZACheB model). 
 
 .. literalinclude:: ../../../star/test_suite/hb_2M/inlist_to_ZACHeB
-   :start-after: threshold_for_smooth_brunt_B = 0.1
-   :end-before: max_
+   :start-at: HB_limit
+   :end-at: HB_limit
 
 .. warning:: It is sometimes useful to specify a maximum number of models to avoid running out of space on your drive with runaway runs! Here we specify  ``max_model_number = 25000``
 
@@ -203,7 +203,7 @@ We specify the output. Here we use the default LOG directory, so we do not speci
 
 .. literalinclude:: ../../../star/test_suite/hb_2M/inlist_hb_2M
    :start-after: output controls
-   :end-before: !num_trace_history_values = 2
+   :end-before: num_trace_history_values = 2
 
 
 
diff --git a/star/test_suite/hb_2M/inlist_hb_2M b/star/test_suite/hb_2M/inlist_hb_2M
index 8f4aad55d..47958ec4f 100644
--- a/star/test_suite/hb_2M/inlist_hb_2M
+++ b/star/test_suite/hb_2M/inlist_hb_2M
@@ -90,7 +90,6 @@
       terminal_interval = 10
       write_header_frequency = 10
 
-     
       num_trace_history_values = 2
       trace_history_value_name(1) = 'rel_E_err'
       trace_history_value_name(2) = 'log_rel_run_E_err'
diff --git a/star/test_suite/high_mass/README.rst b/star/test_suite/high_mass/README.rst
index 0c1fcf2cb..5e13c2cb8 100644
--- a/star/test_suite/high_mass/README.rst
+++ b/star/test_suite/high_mass/README.rst
@@ -4,91 +4,25 @@
 high_mass
 *********
 
-This test case checks the evolution of a 300 Msun, Z = 1e-4 metallicity, model through core hydrogen depletion.
+This test case checks the evolution of a 300 |Msun|, Z = 1e-4 metallicity, model through core hydrogen depletion.
 
 This test case has 1 part. Click to see a larger version of a plot.
 
-* Part 1 (``inlist_high_mass``) loads a 300 Msun, Z=1e-4 metallicity, zero-age main squence model and evolves it until the central hydrogen mass fraction drops belw 0.05:
+* Part 1 (``inlist_high_mass``) loads a 300 |Msun|, Z=1e-4 metallicity, zero-age main sequence model and evolves it until the central hydrogen mass fraction drops belw 0.05:
 
 .. image:: ../../../star/test_suite/high_mass/docs/abund_000488.svg
-   :scale: 100%
+   :width: 100%
 
 .. image:: ../../../star/test_suite/high_mass/docs/hr000488.svg
-   :scale: 100%
-
+   :width: 100%
 
 
 pgstar commands used for the plots above:
 
-
-.. code-block:: console
-
- &pgstar
-
-  file_white_on_black_flag = .true. ! white_on_black flags -- true means white foreground color on black background
-  !file_device = 'png'            ! png
-  !file_extension = 'png'
-
-  file_device = 'vcps'          ! postscript
-  file_extension = 'ps'
-
-   pgstar_interval = 10
-
-  HR_win_flag = .true.
-  HR_win_width = 12
-  HR_win_aspect_ratio = 1.2 ! aspect_ratio = height/width
-  HR_title = 'inlist_high_mass'
-
-  HR_logT_min = 4.5
-  HR_logT_max = 5.0
-  HR_logL_min = 6.6
-  HR_logL_max = 7.2
-
-  HR_file_flag = .true.
-  HR_file_dir = 'pgstar_out'
-  HR_file_prefix = 'hr'
-  HR_file_interval = 100 ! output when mod(model_number,HR_file_interval)==0
-  HR_file_width = 15 ! negative means use same value as for window
-  HR_file_aspect_ratio = -1 ! negative means use same value as for window
-
-
- Abundance_win_flag = .true.
- Abundance_win_width = 12
- Abundance_win_aspect_ratio = 1.2
- Abundance_title = 'inlist_high_mass'
-
- Abundance_num_isos_to_show = 7
- Abundance_which_isos_to_show(1)  = 'h1'
- Abundance_which_isos_to_show(2)  = 'he3'
- Abundance_which_isos_to_show(3)  = 'he4'
- Abundance_which_isos_to_show(4)  = 'c12'
- Abundance_which_isos_to_show(5)  = 'n14'
- Abundance_which_isos_to_show(6)  = 'o16'
- Abundance_which_isos_to_show(7)  = 'ne20'
-
- num_abundance_line_labels = 4
- Abundance_line_txt_scale_factor = 1.1
- Abundance_legend_max_cnt = 0
- Abundance_legend_txt_scale_factor = 1.0
-
- Abundance_xaxis_name = 'mass'
- Abundance_xaxis_reversed = .false.
- Abundance_xmin = 0.0
- Abundance_xmax = -101d0
-
- Abundance_log_mass_frac_min = -6.0
- Abundance_log_mass_frac_max =  0.3
-
- Abundance_file_flag = .true.
- Abundance_file_dir = 'pgstar_out'
- Abundance_file_prefix = 'abund_'
- Abundance_file_interval = 100 ! output when mod(model_number,HR_file_interval)==0
- Abundance_file_width = -1        ! (inches) negative means use same value as for window
- Abundance_file_aspect_ratio = -1 ! negative means use same value as for window
-
- / ! end of pgstar namelist
+.. literalinclude:: ../../../star/test_suite/high_mass/inlist_pgstar
+   :language: console
 
 
 Last-Updated: 12Jun2021 (MESA 5be9e57) by fxt.
 
-
+Last-Updated: 17Jul2024 (MESA beef2c3b) by pmocz on C916PXT6XW in 67 seconds using 8 threads.
diff --git a/star/test_suite/high_mass/docs/abund_000488.svg b/star/test_suite/high_mass/docs/abund_000488.svg
index 39fea33da..65396e0e2 100644
--- a/star/test_suite/high_mass/docs/abund_000488.svg
+++ b/star/test_suite/high_mass/docs/abund_000488.svg
@@ -1,404 +1 @@
-<?xml version="1.0" encoding="utf-8"?>
-<!-- Generator: Adobe Illustrator 25.2.3, SVG Export Plug-In . SVG Version: 6.00 Build 0)  -->
-<svg version="1.1" id="Layer_1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" x="0px" y="0px"
-	 viewBox="0 0 762.71 888.93" style="enable-background:new 0 0 762.71 888.93;" xml:space="preserve">
-<style type="text/css">
-	.st0{fill-rule:evenodd;clip-rule:evenodd;}
-	.st1{fill:none;stroke:#FFFFFF;stroke-width:1.08;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st2{fill:none;stroke:#FFFFFF;stroke-width:1.44;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st3{fill:none;stroke:#FFD700;stroke-width:2.88;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st4{fill:none;stroke:#FFD700;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st5{fill:none;stroke:#87CEFA;stroke-width:2.88;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st6{fill:none;stroke:#87CEFA;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st7{fill:none;stroke:#CC0033;stroke-width:2.88;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st8{fill:none;stroke:#CC0033;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st9{fill:none;stroke:#DAA520;stroke-width:2.88;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st10{fill:none;stroke:#DAA520;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st11{fill:none;stroke:#7C68EE;stroke-width:2.88;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st12{fill:none;stroke:#7C68EE;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st13{fill:none;stroke:#FF7F4F;stroke-width:2.88;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st14{fill:none;stroke:#FF7F4F;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st15{fill:none;stroke:#20B2AA;stroke-width:2.88;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st16{fill:none;stroke:#20B2AA;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st17{fill:none;stroke:#2E8B57;stroke-width:3.6;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st18{fill:none;stroke:#87CEFA;stroke-width:3.6;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st19{fill:none;stroke:#F5F5DC;stroke-width:3.6;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-</style>
-<rect y="-1.66" class="st0" width="762.71" height="891.15"/>
-<path class="st1" d="M652.18,13.19v7.42 M652.18,15.28l1.58-1.58 M653.76,13.69l1.08-0.5 M654.84,13.19h1.58 M656.42,13.19l1.08,0.5
-	 M657.5,13.69l0.5,1.58 M658.01,15.28v5.33 M658.01,15.28l1.66-1.58 M659.66,13.69l1.01-0.5 M660.67,13.19h1.58 M662.26,13.19
-	l1.08,0.5 M663.34,13.69l0.58,1.58 M663.91,15.28v5.33 M670.25,13.19l-1.08,0.5 M669.17,13.69l-1.01,1.08 M668.16,14.77l-0.58,1.58
-	 M667.58,16.36v1.08 M667.58,17.44l0.58,1.58 M668.16,19.02l1.01,1.08 M669.17,20.1l1.08,0.5 M670.25,20.61h1.58 M671.83,20.61
-	l1.08-0.5 M672.91,20.1l1.08-1.08 M673.99,19.02l0.5-1.58 M674.5,17.44v-1.08 M674.5,16.36l-0.5-1.58 M673.99,14.77l-1.08-1.08
-	 M672.91,13.69l-1.08-0.5 M671.83,13.19h-1.58 M684.07,9.45v11.16 M684.07,14.77l-1.08-1.08 M682.99,13.69l-1.01-0.5 M681.98,13.19
-	h-1.58 M680.4,13.19l-1.08,0.5 M679.32,13.69l-1.08,1.08 M678.24,14.77l-0.5,1.58 M677.74,16.36v1.08 M677.74,17.44l0.5,1.58
-	 M678.24,19.02l1.08,1.08 M679.32,20.1l1.08,0.5 M680.4,20.61h1.58 M681.98,20.61l1.01-0.5 M682.99,20.1l1.08-1.08 M687.82,16.36
-	h6.41 M694.22,16.36v-1.08 M694.22,15.28l-0.58-1.08 M693.65,14.2l-0.5-0.5 M693.14,13.69l-1.08-0.5 M692.06,13.19h-1.58
-	 M690.48,13.19l-1.08,0.5 M689.4,13.69l-1.08,1.08 M688.32,14.77l-0.5,1.58 M687.82,16.36v1.08 M687.82,17.44l0.5,1.58
-	 M688.32,19.02l1.08,1.08 M689.4,20.1l1.08,0.5 M690.48,20.61h1.58 M692.06,20.61l1.08-0.5 M693.14,20.1l1.08-1.08 M697.9,9.45
-	v11.16 M715.46,9.45l-5.33,7.42 M710.14,16.86h7.99 M715.46,9.45v11.16 M723.46,9.45l-1.58,0.5 M721.87,9.95l-0.58,1.08
-	 M721.3,11.03v1.08 M721.3,12.11l0.58,1.08 M721.87,13.19l1.01,0.5 M722.88,13.69l2.16,0.5 M725.04,14.2l1.58,0.58 M726.62,14.77
-	l1.08,1.08 M727.7,15.85l0.5,1.01 M728.21,16.86v1.58 M728.21,18.45l-0.5,1.08 M727.7,19.53l-0.58,0.58 M727.13,20.1l-1.58,0.5
-	 M725.54,20.61h-2.09 M723.46,20.61l-1.58-0.5 M721.87,20.1l-0.58-0.58 M721.3,19.53l-0.5-1.08 M720.79,18.45v-1.58 M720.79,16.86
-	l0.5-1.01 M721.3,15.85l1.08-1.08 M722.38,14.77l1.58-0.58 M723.96,14.2l2.16-0.5 M726.12,13.69l1.01-0.5 M727.13,13.19l0.58-1.08
-	 M727.7,12.11v-1.08 M727.7,11.03l-0.58-1.08 M727.13,9.95l-1.58-0.5 M725.54,9.45h-2.09 M734.04,9.45l-1.58,0.5 M732.46,9.95
-	l-0.5,1.08 M731.95,11.03v1.08 M731.95,12.11l0.5,1.08 M732.46,13.19l1.08,0.5 M733.54,13.69l2.16,0.5 M735.7,14.2l1.58,0.58
-	 M737.28,14.77l1.01,1.08 M738.29,15.85l0.58,1.01 M738.86,16.86v1.58 M738.86,18.45l-0.58,1.08 M738.29,19.53l-0.5,0.58
-	 M737.78,20.1l-1.58,0.5 M736.2,20.61h-2.16 M734.04,20.61l-1.58-0.5 M732.46,20.1l-0.5-0.58 M731.95,19.53l-0.58-1.08
-	 M731.38,18.45v-1.58 M731.38,16.86l0.58-1.01 M731.95,15.85l1.08-1.08 M733.03,14.77l1.58-0.58 M734.62,14.2l2.09-0.5 M736.7,13.69
-	l1.08-0.5 M737.78,13.19l0.5-1.08 M738.29,12.11v-1.08 M738.29,11.03l-0.5-1.08 M737.78,9.95l-1.58-0.5 M736.2,9.45h-2.16
-	 M113.4,13.19v7.42 M113.4,14.77l-1.08-1.08 M112.32,13.69l-1.08-0.5 M111.24,13.19h-1.58 M109.66,13.19l-1.08,0.5 M108.58,13.69
-	l-1.01,1.08 M107.57,14.77l-0.58,1.58 M106.99,16.36v1.08 M106.99,17.44l0.58,1.58 M107.57,19.02l1.01,1.08 M108.58,20.1l1.08,0.5
-	 M109.66,20.61h1.58 M111.24,20.61l1.08-0.5 M112.32,20.1l1.08-1.08 M123.48,13.19v8.5 M123.48,21.69l-0.5,1.58 M122.98,23.27
-	l-0.58,0.5 M122.4,23.77l-1.01,0.58 M121.39,24.35h-1.66 M119.74,24.35l-1.01-0.58 M123.48,14.77l-1.08-1.08 M122.4,13.69l-1.01-0.5
-	 M121.39,13.19h-1.66 M119.74,13.19l-1.01,0.5 M118.73,13.69l-1.08,1.08 M117.65,14.77l-0.58,1.58 M117.07,16.36v1.08 M117.07,17.44
-	l0.58,1.58 M117.65,19.02l1.08,1.08 M118.73,20.1l1.01,0.5 M119.74,20.61h1.66 M121.39,20.61l1.01-0.5 M122.4,20.1l1.08-1.08
-	 M127.22,16.36h6.34 M133.56,16.36v-1.08 M133.56,15.28l-0.5-1.08 M133.06,14.2l-0.5-0.5 M132.55,13.69l-1.08-0.5 M131.47,13.19
-	h-1.58 M129.89,13.19l-1.08,0.5 M128.81,13.69l-1.08,1.08 M127.73,14.77l-0.5,1.58 M127.22,16.36v1.08 M127.22,17.44l0.5,1.58
-	 M127.73,19.02l1.08,1.08 M128.81,20.1l1.08,0.5 M129.89,20.61h1.58 M131.47,20.61l1.08-0.5 M132.55,20.1l1.01-1.08 M145.8,12.11
-	v-0.58 M145.8,11.53l0.58-1.01 M146.38,10.53l0.5-0.58 M146.88,9.95l1.08-0.5 M147.96,9.45h2.09 M150.05,9.45l1.08,0.5 M151.13,9.95
-	l0.5,0.58 M151.63,10.53l0.58,1.01 M152.21,11.53v1.08 M152.21,12.61l-0.58,1.08 M151.63,13.69l-1.01,1.58 M150.62,15.28l-5.33,5.33
-	 M145.3,20.61h7.42 M156.96,19.53l-0.5,0.58 M156.46,20.1l0.5,0.5 M156.96,20.61l0.58-0.5 M157.54,20.1l-0.58-0.58 M162.86,11.53
-	l1.01-0.5 M163.87,11.03l1.58-1.58 M165.46,9.45v11.16 M172.37,12.11v-0.58 M172.37,11.53l0.58-1.01 M172.94,10.53l0.5-0.58
-	 M173.45,9.95l1.08-0.5 M174.53,9.45h2.16 M176.69,9.45l1.01,0.5 M177.7,9.95l0.58,0.58 M178.27,10.53l0.5,1.01 M178.78,11.53v1.08
-	 M178.78,12.61l-0.5,1.08 M178.27,13.69l-1.08,1.58 M177.19,15.28l-5.33,5.33"/>
-<path class="st1" d="M171.86,20.61h7.42 M188.86,9.45h-5.26 M183.6,9.45l-0.58,4.75 M183.02,14.2l0.58-0.5 M183.6,13.69l1.58-0.5
-	 M185.18,13.19h1.58 M186.77,13.19l1.58,0.5 M188.35,13.69l1.08,1.08 M189.43,14.77l0.5,1.58 M189.94,16.36v1.08 M189.94,17.44
-	l-0.5,1.58 M189.43,19.02l-1.08,1.08 M188.35,20.1l-1.58,0.5 M186.77,20.61h-1.58 M185.18,20.61l-1.58-0.5 M183.6,20.1l-0.58-0.58
-	 M183.02,19.53l-0.5-1.08 M198.43,9.45l-5.33,7.42 M193.1,16.86h7.99 M198.43,9.45v11.16 M209.09,9.45l-5.33,7.42 M203.76,16.86
-	h7.99 M209.09,9.45v11.16 M214.92,12.11v-0.58 M214.92,11.53l0.58-1.01 M215.5,10.53l0.5-0.58 M216,9.95l1.08-0.5 M217.08,9.45h2.09
-	 M219.17,9.45l1.08,0.5 M220.25,9.95l0.5,0.58 M220.75,10.53l0.58,1.01 M221.33,11.53v1.08 M221.33,12.61l-0.58,1.08 M220.75,13.69
-	l-1.01,1.58 M219.74,15.28l-5.33,5.33 M214.42,20.61h7.42 M225.07,16.36h6.34 M231.41,16.36v-1.08 M231.41,15.28l-0.5-1.08
-	 M230.9,14.2l-0.58-0.5 M230.33,13.69l-1.01-0.5 M229.32,13.19h-1.66 M227.66,13.19l-1.01,0.5 M226.66,13.69l-1.08,1.08
-	 M225.58,14.77l-0.5,1.58 M225.07,16.36v1.08 M225.07,17.44l0.5,1.58 M225.58,19.02l1.08,1.08 M226.66,20.1l1.01,0.5 M227.66,20.61
-	h1.66 M229.32,20.61l1.01-0.5 M230.33,20.1l1.08-1.08 M241.49,11.03l-0.5-1.08 M240.98,9.95l-1.58-0.5 M239.4,9.45h-1.08
-	 M238.32,9.45l-1.58,0.5 M236.74,9.95l-1.08,1.58 M235.66,11.53l-0.5,2.66 M235.15,14.2v2.66 M235.15,16.86l0.5,2.16 M235.66,19.02
-	l1.08,1.08 M236.74,20.1l1.58,0.5 M238.32,20.61h0.58 M238.9,20.61l1.58-0.5 M240.48,20.1l1.01-1.08 M241.49,19.02l0.58-1.58
-	 M242.06,17.44v-0.58 M242.06,16.86l-0.58-1.58 M241.49,15.28l-1.01-1.08 M240.48,14.2l-1.58-0.5 M238.9,13.69h-0.58 M238.32,13.69
-	l-1.58,0.5 M236.74,14.2l-1.08,1.08 M235.66,15.28l-0.5,1.58 M253.22,13.19l3.17,7.42 M259.63,13.19l-3.24,7.42 M256.39,20.61
-	l-1.08,2.16 M255.31,22.77l-1.01,1.01 M254.3,23.77l-1.08,0.58 M253.22,24.35h-0.5 M262.8,13.19v7.42 M262.8,16.36l0.5-1.58
-	 M263.3,14.77l1.08-1.08 M264.38,13.69l1.08-0.5 M265.46,13.19h1.58 M275.04,14.77l-0.58-1.08 M274.46,13.69l-1.58-0.5
-	 M272.88,13.19h-1.58 M271.3,13.19l-1.58,0.5 M269.71,13.69l-0.58,1.08 M269.14,14.77l0.58,1.08 M269.71,15.85l1.08,0.5
-	 M270.79,16.36l2.66,0.5 M273.46,16.86l1.01,0.58 M274.46,17.44l0.58,1.01 M275.04,18.45v0.58 M275.04,19.02l-0.58,1.08
-	 M274.46,20.1l-1.58,0.5 M272.88,20.61h-1.58 M271.3,20.61l-1.58-0.5 M269.71,20.1l-0.58-1.08 M323.14,23.41l0.86,0.86 M324,24.28
-	l0.86-0.86 M324.86,23.41L324,22.55 M324,22.55l-0.86,0.86 M324,29.46v12.1 M330.91,29.46v12.1 M330.91,32.92l2.59-2.59
-	 M333.5,30.33l1.73-0.86 M335.23,29.46h2.59 M337.82,29.46l1.73,0.86 M339.55,30.33l0.86,2.59 M340.42,32.92v8.64 M347.33,23.41
-	v18.14 M353.38,23.41l0.86,0.86 M354.24,24.28l0.86-0.86 M355.1,23.41l-0.86-0.86 M354.24,22.55l-0.86,0.86 M354.24,29.46v12.1
-	 M369.79,32.05l-0.86-1.73 M368.93,30.33l-2.59-0.86 M366.34,29.46h-2.59 M363.74,29.46l-2.59,0.86 M361.15,30.33l-0.86,1.73
-	 M360.29,32.05l0.86,1.73 M361.15,33.78l1.73,0.86 M362.88,34.65l4.32,0.86 M367.2,35.51l1.73,0.86 M368.93,36.37l0.86,1.73
-	 M369.79,38.1v0.86 M369.79,38.97l-0.86,1.73 M368.93,40.69l-2.59,0.86 M366.34,41.56h-2.59 M363.74,41.56l-2.59-0.86 M361.15,40.69
-	l-0.86-1.73 M376.7,23.41V38.1 M376.7,38.1l0.86,2.59 M377.57,40.69l1.73,0.86 M379.3,41.56h1.73 M374.11,29.46h6.05 M382.75,43.29
-	h15.55 M402.62,23.41v18.14 M402.62,32.92l2.59-2.59 M405.22,30.33l1.73-0.86 M406.94,29.46h2.59 M409.54,29.46l1.73,0.86
-	 M411.26,30.33l0.86,2.59 M412.13,32.92v8.64 M418.18,23.41l0.86,0.86 M419.04,24.28l0.86-0.86 M419.9,23.41l-0.86-0.86
-	 M419.04,22.55l-0.86,0.86 M419.04,29.46v12.1 M435.46,29.46v13.82 M435.46,43.29l-0.86,2.59 M434.59,45.88l-0.86,0.86
-	 M433.73,46.74L432,47.61 M432,47.61h-2.59 M429.41,47.61l-1.73-0.86 M435.46,32.05l-1.73-1.73 M433.73,30.33L432,29.46 M432,29.46
-	h-2.59 M429.41,29.46l-1.73,0.86 M427.68,30.33l-1.73,1.73 M425.95,32.05l-0.86,2.59 M425.09,34.65v1.73 M425.09,36.37l0.86,2.59
-	 M425.95,38.97l1.73,1.73 M427.68,40.69l1.73,0.86 M429.41,41.56H432 M432,41.56l1.73-0.86 M433.73,40.69l1.73-1.73 M442.37,23.41
-	v18.14 M442.37,32.92l2.59-2.59 M444.96,30.33l1.73-0.86 M446.69,29.46h2.59 M449.28,29.46l1.73,0.86 M451.01,30.33l0.86,2.59
-	 M451.87,32.92v8.64 M455.33,43.29h15.55 M475.2,29.46v12.1 M475.2,32.92l2.59-2.59 M477.79,30.33l1.73-0.86 M479.52,29.46h2.59
-	 M482.11,29.46l1.73,0.86 M483.84,30.33l0.86,2.59 M484.7,32.92v8.64 M484.7,32.92l2.59-2.59 M487.3,30.33l1.73-0.86 M489.02,29.46
-	h2.59 M491.62,29.46l1.73,0.86 M493.34,30.33l0.86,2.59 M494.21,32.92v8.64 M510.62,29.46v12.1 M510.62,32.05l-1.73-1.73
-	 M508.9,30.33l-1.73-0.86 M507.17,29.46h-2.59 M504.58,29.46l-1.73,0.86 M502.85,30.33l-1.73,1.73 M501.12,32.05l-0.86,2.59"/>
-<path class="st1" d="M500.26,34.65v1.73 M500.26,36.37l0.86,2.59 M501.12,38.97l1.73,1.73 M502.85,40.69l1.73,0.86 M504.58,41.56
-	h2.59 M507.17,41.56l1.73-0.86 M508.9,40.69l1.73-1.73 M526.18,32.05l-0.86-1.73 M525.31,30.33l-2.59-0.86 M522.72,29.46h-2.59
-	 M520.13,29.46l-2.59,0.86 M517.54,30.33l-0.86,1.73 M516.67,32.05l0.86,1.73 M517.54,33.78l1.73,0.86 M519.26,34.65l4.32,0.86
-	 M523.58,35.51l1.73,0.86 M525.31,36.37l0.86,1.73 M526.18,38.1v0.86 M526.18,38.97l-0.86,1.73 M525.31,40.69l-2.59,0.86
-	 M522.72,41.56h-2.59 M520.13,41.56l-2.59-0.86 M517.54,40.69l-0.86-1.73 M540.86,32.05L540,30.33 M540,30.33l-2.59-0.86
-	 M537.41,29.46h-2.59 M534.82,29.46l-2.59,0.86 M532.22,30.33l-0.86,1.73 M531.36,32.05l0.86,1.73 M532.22,33.78l1.73,0.86
-	 M533.95,34.65l4.32,0.86 M538.27,35.51l1.73,0.86 M540,36.37l0.86,1.73 M540.86,38.1v0.86 M540.86,38.97L540,40.69 M540,40.69
-	l-2.59,0.86 M537.41,41.56h-2.59 M534.82,41.56l-2.59-0.86 M532.22,40.69l-0.86-1.73"/>
-<path class="st2" d="M390.02,855.52v13.97 M390.02,859.55l3.02-3.02 M393.05,856.53l1.94-1.01 M394.99,855.52h3.02 M398.02,855.52
-	l2.02,1.01 M400.03,856.53l0.94,3.02 M400.97,859.55v9.94 M400.97,859.55l3.02-3.02 M403.99,856.53l2.02-1.01 M406.01,855.52h2.95
-	 M408.96,855.52l2.02,1.01 M410.98,856.53l1.01,3.02 M411.98,859.55v9.94 M435.89,844.57l-17.93,31.9 M441.86,848.53v20.95
-	 M441.86,848.53l7.99,20.95 M457.85,848.53l-7.99,20.95 M457.85,848.53v20.95 M470.81,865.74l-2.3,0.72 M468.5,866.46l-2.23,1.51
-	 M466.27,867.97l-1.44,2.23 M464.83,870.21l-0.79,2.3 M464.04,872.51v2.23 M464.04,874.74l0.79,2.23 M464.83,876.97l1.44,2.23
-	 M466.27,879.21l2.23,1.51 M468.5,880.72l2.3,0.72 M470.81,881.44h2.23 M473.04,881.44l2.23-0.72 M475.27,880.72l2.23-1.51
-	 M477.5,879.21l1.51-2.23 M479.02,876.97l0.72-2.23 M479.74,874.74v-2.23 M479.74,872.51l-0.72-2.3 M479.02,870.21l-1.51-2.23
-	 M477.5,867.97l-2.23-1.51 M475.27,866.46l-2.23-0.72 M473.04,865.74h-2.23 M471.53,872.51l-0.72,0.72 M470.81,873.23v0.72
-	 M470.81,873.95l0.72,0.79 M471.53,874.74h0.72 M472.25,874.74l0.79-0.79 M473.04,873.95v-0.72 M473.04,873.23l-0.79-0.72
-	 M472.25,872.51h-0.72 M471.53,873.23v0.72 M471.53,873.95h0.72 M472.25,873.95v-0.72 M472.25,873.23h-0.72"/>
-<path class="st1" d="M129.6,798.21h604.8 M734.4,798.21V72.45 M734.4,72.45H129.6 M129.6,72.45v725.76 M129.6,798.21v-11.95
-	 M169.92,798.21v-5.98 M210.24,798.21v-5.98 M250.56,798.21v-5.98 M290.88,798.21v-5.98 M331.2,798.21v-11.95 M371.52,798.21v-5.98
-	 M411.84,798.21v-5.98 M452.16,798.21v-5.98 M492.48,798.21v-5.98 M532.8,798.21v-11.95 M573.12,798.21v-5.98 M613.44,798.21v-5.98
-	 M653.76,798.21v-5.98 M694.08,798.21v-5.98 M734.4,798.21v-11.95 M129.6,84.4V72.45 M169.92,78.42v-5.98 M210.24,78.42v-5.98
-	 M250.56,78.42v-5.98 M290.88,78.42v-5.98 M331.2,84.4V72.45 M371.52,78.42v-5.98 M411.84,78.42v-5.98 M452.16,78.42v-5.98
-	 M492.48,78.42v-5.98 M532.8,84.4V72.45 M573.12,78.42v-5.98 M613.44,78.42v-5.98 M653.76,78.42v-5.98 M694.08,78.42v-5.98
-	 M734.4,84.4V72.45 M128.81,812.53l-2.38,0.79 M126.43,813.33l-1.58,2.45 M124.85,815.77l-0.86,3.96 M123.98,819.73v2.38
-	 M123.98,822.11l0.86,4.03 M124.85,826.14l1.58,2.38 M126.43,828.52l2.38,0.79 M128.81,829.31h1.58 M130.39,829.31l2.38-0.79
-	 M132.77,828.52l1.58-2.38 M134.35,826.14l0.86-4.03 M135.22,822.11v-2.38 M135.22,819.73l-0.86-3.96 M134.35,815.77l-1.58-2.45
-	 M132.77,813.33l-2.38-0.79 M130.39,812.53h-1.58 M312.05,815.77l1.58-0.79 M313.63,814.98l2.45-2.45 M316.08,812.53v16.78
-	 M330.41,812.53l-2.38,0.79 M328.03,813.33l-1.58,2.45 M326.45,815.77l-0.86,3.96 M325.58,819.73v2.38 M325.58,822.11l0.86,4.03
-	 M326.45,826.14l1.58,2.38 M328.03,828.52l2.38,0.79 M330.41,829.31h1.58 M331.99,829.31l2.38-0.79 M334.37,828.52l1.58-2.38
-	 M335.95,826.14l0.86-4.03 M336.82,822.11v-2.38 M336.82,819.73l-0.86-3.96 M335.95,815.77l-1.58-2.45 M334.37,813.33l-2.38-0.79
-	 M331.99,812.53h-1.58 M346.32,812.53l-2.38,0.79 M343.94,813.33l-1.58,2.45 M342.36,815.77l-0.79,3.96 M341.57,819.73v2.38
-	 M341.57,822.11l0.79,4.03 M342.36,826.14l1.58,2.38 M343.94,828.52l2.38,0.79 M346.32,829.31h1.66 M347.98,829.31l2.38-0.79
-	 M350.35,828.52l1.58-2.38 M351.94,826.14l0.79-4.03 M352.73,822.11v-2.38 M352.73,819.73l-0.79-3.96 M351.94,815.77l-1.58-2.45
-	 M350.35,813.33l-2.38-0.79 M347.98,812.53h-1.66 M512.06,816.57v-0.79 M512.06,815.77l0.79-1.58 M512.86,814.19l0.79-0.86
-	 M513.65,813.33l1.58-0.79 M515.23,812.53h3.24 M518.47,812.53l1.58,0.79 M520.06,813.33l0.79,0.86 M520.85,814.19l0.79,1.58
-	 M521.64,815.77v1.58 M521.64,817.36l-0.79,1.58 M520.85,818.94l-1.58,2.38 M519.26,821.32l-7.99,7.99 M511.27,829.31h11.16
-	 M532.01,812.53l-2.38,0.79 M529.63,813.33l-1.58,2.45 M528.05,815.77l-0.86,3.96 M527.18,819.73v2.38 M527.18,822.11l0.86,4.03
-	 M528.05,826.14l1.58,2.38 M529.63,828.52l2.38,0.79 M532.01,829.31h1.58 M533.59,829.31l2.38-0.79 M535.97,828.52l1.58-2.38
-	 M537.55,826.14l0.86-4.03 M538.42,822.11v-2.38 M538.42,819.73l-0.86-3.96 M537.55,815.77l-1.58-2.45 M535.97,813.33l-2.38-0.79
-	 M533.59,812.53h-1.58 M547.92,812.53l-2.38,0.79 M545.54,813.33l-1.58,2.45 M543.96,815.77l-0.79,3.96 M543.17,819.73v2.38
-	 M543.17,822.11l0.79,4.03 M543.96,826.14l1.58,2.38 M545.54,828.52l2.38,0.79 M547.92,829.31h1.66 M549.58,829.31l2.38-0.79
-	 M551.95,828.52l1.58-2.38 M553.54,826.14l0.79-4.03 M554.33,822.11v-2.38 M554.33,819.73l-0.79-3.96 M553.54,815.77l-1.58-2.45
-	 M551.95,813.33l-2.38-0.79 M549.58,812.53h-1.66 M714.46,812.53h8.78 M723.24,812.53l-4.82,6.41 M718.42,818.94h2.45
-	 M720.86,818.94l1.58,0.79 M722.45,819.73l0.79,0.79 M723.24,820.53l0.79,2.38 M724.03,822.9v1.66 M724.03,824.56l-0.79,2.38
-	 M723.24,826.93l-1.58,1.58 M721.66,828.52l-2.38,0.79 M719.28,829.31h-2.45 M716.83,829.31l-2.38-0.79 M714.46,828.52l-0.79-0.79
-	 M713.66,827.73l-0.79-1.58 M733.61,812.53l-2.38,0.79 M731.23,813.33l-1.58,2.45 M729.65,815.77l-0.86,3.96 M728.78,819.73v2.38
-	 M728.78,822.11l0.86,4.03 M729.65,826.14l1.58,2.38 M731.23,828.52l2.38,0.79 M733.61,829.31h1.58 M735.19,829.31l2.38-0.79
-	 M737.57,828.52l1.58-2.38 M739.15,826.14l0.86-4.03 M740.02,822.11v-2.38 M740.02,819.73l-0.86-3.96 M739.15,815.77l-1.58-2.45
-	 M737.57,813.33l-2.38-0.79 M735.19,812.53h-1.58 M749.52,812.53l-2.38,0.79 M747.14,813.33l-1.58,2.45 M745.56,815.77l-0.79,3.96
-	 M744.77,819.73v2.38 M744.77,822.11l0.79,4.03 M745.56,826.14l1.58,2.38 M747.14,828.52l2.38,0.79 M749.52,829.31h1.66
-	 M751.18,829.31l2.38-0.79 M753.55,828.52l1.58-2.38 M755.14,826.14l0.79-4.03 M755.93,822.11v-2.38 M755.93,819.73l-0.79-3.96
-	 M755.14,815.77l-1.58-2.45 M753.55,813.33l-2.38-0.79 M751.18,812.53h-1.66 M129.6,792.52h11.95 M129.6,678.18h5.98 M129.6,563.92
-	h11.95 M129.6,449.58h5.98 M129.6,335.32h11.95 M129.6,221.05h5.98 M129.6,106.72h11.95 M722.45,792.52h11.95 M728.42,678.18h5.98
-	 M722.45,563.92h11.95 M728.42,449.58h5.98 M722.45,335.32h11.95 M728.42,221.05h5.98 M722.45,106.72h11.95 M77.98,793.09H92.3
-	 M108.29,785.89l-0.79-1.58 M107.5,784.31l-2.45-0.79 M105.05,783.52h-1.58 M103.46,783.52l-2.38,0.79 M101.09,784.31l-1.58,2.38
-	 M99.5,786.69l-0.79,4.03 M98.71,790.72v3.96"/>
-<path class="st1" d="M98.71,794.68l0.79,3.17 M99.5,797.85l1.58,1.66 M101.09,799.5l2.38,0.79 M103.46,800.29h0.79 M104.26,800.29
-	l2.45-0.79 M106.7,799.5l1.58-1.66 M108.29,797.85l0.79-2.38 M109.08,795.47v-0.79 M109.08,794.68l-0.79-2.38 M108.29,792.3
-	l-1.58-1.58 M106.7,790.72l-2.45-0.79 M104.26,789.93h-0.79 M103.46,789.93l-2.38,0.79 M101.09,790.72l-1.58,1.58 M99.5,792.3
-	l-0.79,2.38 M77.98,564.49H92.3 M105.84,554.92l-7.92,11.16 M97.92,566.08h11.95 M105.84,554.92v16.78 M77.98,335.89H92.3
-	 M98.71,330.35v-0.79 M98.71,329.56l0.79-1.58 M99.5,327.97l0.79-0.86 M100.3,327.11l1.58-0.79 M101.88,326.32h3.17 M105.05,326.32
-	l1.66,0.79 M106.7,327.11l0.79,0.86 M107.5,327.97l0.79,1.58 M108.29,329.56v1.58 M108.29,331.14l-0.79,1.58 M107.5,332.73
-	l-1.66,2.38 M105.84,335.1l-7.92,7.99 M97.92,343.09h11.16 M102.67,97.79l-2.38,0.79 M100.3,98.58l-1.58,2.38 M98.71,100.96
-	l-0.79,3.96 M97.92,104.92v2.45 M97.92,107.37l0.79,3.96 M98.71,111.33l1.58,2.38 M100.3,113.7l2.38,0.79 M102.67,114.49h1.58
-	 M104.26,114.49l2.45-0.79 M106.7,113.7l1.58-2.38 M108.29,111.33l0.79-3.96 M109.08,107.37v-2.45 M109.08,104.92l-0.79-3.96
-	 M108.29,100.96l-1.58-2.38 M106.7,98.58l-2.45-0.79 M104.26,97.79h-1.58"/>
-<path class="st2" d="M8.21,571.41h20.95 M15.19,559.45l1.01,2.02 M16.2,561.47l2.02,1.94 M18.22,563.41l2.95,1.01 M21.17,564.42
-	h2.02 M23.18,564.42l2.95-1.01 M26.14,563.41l2.02-1.94 M28.15,561.47l1.01-2.02 M29.16,559.45v-3.02 M29.16,556.43l-1.01-1.94
-	 M28.15,554.49l-2.02-2.02 M26.14,552.47l-2.95-1.01 M23.18,551.46h-2.02 M21.17,551.46l-2.95,1.01 M18.22,552.47l-2.02,2.02
-	 M16.2,554.49l-1.01,1.94 M15.19,556.43v3.02 M15.19,533.53h15.98 M31.18,533.53l2.95,1.01 M34.13,534.54l1.01,1.01 M35.14,535.55
-	l1.01,1.94 M36.14,537.49v3.02 M36.14,540.52l-1.01,1.94 M18.22,533.53l-2.02,2.02 M16.2,535.55l-1.01,1.94 M15.19,537.49v3.02
-	 M15.19,540.52l1.01,1.94 M16.2,542.46l2.02,2.02 M18.22,544.48l2.95,1.01 M21.17,545.49h2.02 M23.18,545.49l2.95-1.01
-	 M26.14,544.48l2.02-2.02 M28.15,542.46l1.01-1.94 M29.16,540.52v-3.02 M29.16,537.49l-1.01-1.94 M28.15,535.55l-2.02-2.02
-	 M15.19,509.63h13.97 M19.22,509.63l-3.02-3.02 M16.2,506.61l-1.01-2.02 M15.19,504.59v-2.95 M15.19,501.64l1.01-2.02 M16.2,499.62
-	l3.02-1.01 M19.22,498.61h9.94 M19.22,498.61l-3.02-2.95 M16.2,495.66l-1.01-2.02 M15.19,493.65v-3.02 M15.19,490.62l1.01-1.94
-	 M16.2,488.68l3.02-1.01 M19.22,487.67h9.94 M15.19,468.73h13.97 M18.22,468.73l-2.02,2.02 M16.2,470.75l-1.01,1.94 M15.19,472.69
-	v3.02 M15.19,475.72l1.01,1.94 M16.2,477.66l2.02,2.02 M18.22,479.68l2.95,1.01 M21.17,480.69h2.02 M23.18,480.69l2.95-1.01
-	 M26.14,479.68l2.02-2.02 M28.15,477.66l1.01-1.94 M29.16,475.72v-3.02 M29.16,472.69l-1.01-1.94 M28.15,470.75l-2.02-2.02
-	 M18.22,450.81l-2.02,0.94 M16.2,451.74l-1.01,3.02 M15.19,454.77v3.02 M15.19,457.79l1.01,2.95 M16.2,460.74l2.02,1.01
-	 M18.22,461.75l1.94-1.01 M20.16,460.74l1.01-2.02 M21.17,458.73l1.01-4.97 M22.18,453.76l1.01-2.02 M23.18,451.74l2.02-0.94
-	 M25.2,450.81h0.94 M26.14,450.81l2.02,0.94 M28.15,451.74l1.01,3.02 M29.16,454.77v3.02 M29.16,457.79l-1.01,2.95 M28.15,460.74
-	l-2.02,1.01 M18.22,433.81l-2.02,1.01 M16.2,434.82l-1.01,3.02 M15.19,437.85v2.95 M15.19,440.8l1.01,3.02 M16.2,443.82l2.02,1.01
-	 M18.22,444.83l1.94-1.01 M20.16,443.82l1.01-2.02 M21.17,441.81l1.01-4.97 M22.18,436.84l1.01-2.02 M23.18,434.82l2.02-1.01
-	 M25.2,433.81h0.94 M26.14,433.81l2.02,1.01 M28.15,434.82l1.01,3.02 M29.16,437.85v2.95 M29.16,440.8l-1.01,3.02 M28.15,443.82
-	l-2.02,1.01 M8.21,404.94v1.94 M8.21,406.89l1.01,2.02 M9.22,408.9l3.02,1.01 M12.24,409.91h16.92 M15.19,412.86v-6.91
-	 M15.19,398.97h13.97 M21.17,398.97l-2.95-1.01 M18.22,397.96l-2.02-2.02 M16.2,395.94l-1.01-2.02 M15.19,393.93v-2.95
-	 M15.19,374.99h13.97 M18.22,374.99l-2.02,2.02 M16.2,377.01l-1.01,2.02 M15.19,379.02v2.95 M15.19,381.97l1.01,2.02 M16.2,383.99
-	l2.02,2.02 M18.22,386.01l2.95,0.94 M21.17,386.94h2.02 M23.18,386.94l2.95-0.94 M26.14,386.01l2.02-2.02 M28.15,383.99l1.01-2.02
-	 M29.16,381.97v-2.95 M29.16,379.02l-1.01-2.02 M28.15,377.01l-2.02-2.02 M18.22,356.05l-2.02,2.02 M16.2,358.07l-1.01,2.02
-	 M15.19,360.09v2.95 M15.19,363.04l1.01,2.02 M16.2,365.05l2.02,2.02 M18.22,367.07l2.95,0.94 M21.17,368.01h2.02 M23.18,368.01
-	l2.95-0.94 M26.14,367.07l2.02-2.02 M28.15,365.05l1.01-2.02 M29.16,363.04v-2.95 M29.16,360.09l-1.01-2.02 M28.15,358.07
-	l-2.02-2.02 M8.21,348.06H25.2 M25.2,348.06l2.95-0.94 M28.15,347.13l1.01-2.02 M29.16,345.11v-2.02 M15.19,351.09v-6.98
-	 M8.21,338.13l1.01-1.01 M9.22,337.12l-1.01-1.01 M8.21,336.11l-1.01,1.01 M7.2,337.12l1.01,1.01 M15.19,337.12h13.97 M15.19,325.17
-	l1.01,2.02 M16.2,327.18l2.02,1.94 M18.22,329.13l2.95,1.01 M21.17,330.13h2.02 M23.18,330.13l2.95-1.01 M26.14,329.13l2.02-1.94
-	 M28.15,327.18l1.01-2.02 M29.16,325.17v-3.02 M29.16,322.14l-1.01-1.94 M28.15,320.2l-2.02-2.02 M26.14,318.18l-2.95-1.01
-	 M23.18,317.17h-2.02 M21.17,317.17l-2.95,1.01 M18.22,318.18l-2.02,2.02 M16.2,320.2l-1.01,1.94 M15.19,322.14v3.02 M15.19,310.19
-	h13.97 M19.22,310.19l-3.02-2.95 M16.2,307.24l-1.01-2.02 M15.19,305.22v-2.95 M15.19,302.27l1.01-2.02 M16.2,300.25l3.02-1.01
-	 M19.22,299.25h9.94"/>
-<path class="st3" d="M474.98,253.67c5-12.14,9.99-24.5,18.07-34.49c4.6-8.87,11.64-14.98,16.92-21.38
-	c5.69-4.28-1.22-33.57,5.47-35.57c0.92,0,1.89,0,2.81,0c0.92,0,1.96,0,2.89,0c10.34,0,20.68,0,31.02,0c1.79,0,3.68,0,5.47,0
-	c5.56,0.56,3.03-0.98,5.89-2.3c18.65-8.58,38.26-14.99,58-20.51c6.04-1.69,16.45-2.23,21.58-6c3.77-2.77-0.92-5.68,7.4-4.82
-	c0.5,0,1.49,0,2,0c8.1,0,16.23-0.24,24.26-1.36c6.94-0.97,13.97-4.47,20.68-4.47c0.29,0,0.87,0,1.15,0c2.6-0.24,6.41,0.54,8.14-1.66
-	c9.22,0,18.43-0.71,27.65-0.72"/>
-<path class="st3" d="M129.6,256.55c109.77,0,219.54,0,329.31,0c3.96,0,7.93,0,11.89,0c2.24,0.34,4.03-0.4,4.18-2.88"/>
-<path class="st4" d="M193.9,230.41v15.34 M193.9,238.48l2.16-2.23 M196.06,236.25l1.44-0.72 M197.5,235.53h2.23 M199.73,235.53
-	l1.44,0.72 M201.17,236.25l0.72,2.23 M201.89,238.48v7.27 M209.23,233.37l1.44-0.79 M210.67,232.57l2.23-2.16 M212.9,230.41v15.34
-	 M345.1,230.41v15.34 M345.1,238.48l2.16-2.23 M347.26,236.25l1.44-0.72 M348.7,235.53h2.23 M350.93,235.53l1.44,0.72
-	 M352.37,236.25l0.72,2.23 M353.09,238.48v7.27 M360.43,233.37l1.44-0.79 M361.87,232.57l2.23-2.16 M364.1,230.41v15.34
-	 M496.3,174.25v15.34 M496.3,182.32l2.16-2.23 M498.46,180.09l1.44-0.72 M499.9,179.37h2.23 M502.13,179.37l1.44,0.72
-	 M503.57,180.09l0.72,2.23 M504.29,182.32v7.27 M511.63,177.21l1.44-0.79 M513.07,176.41l2.23-2.16 M515.3,174.25v15.34
-	 M647.5,102.4v15.41 M647.5,110.46l2.16-2.16 M649.66,108.3l1.44-0.79 M651.1,107.51h2.23 M653.33,107.51l1.44,0.79 M654.77,108.3
-	l0.72,2.16 M655.49,110.46v7.34 M662.83,105.35l1.44-0.72 M664.27,104.63l2.23-2.23 M666.5,102.4v15.41"/>
-<path class="st5" d="M734.4,631.6L734.4,631.6 M734.4,631.6h-0.07 M734.33,631.6h-0.07 M734.26,631.6h-0.07 M734.18,631.6h-0.07
-	 M734.11,631.6h-0.07 M734.04,631.6h-0.07 M733.97,631.6h-0.07 M733.9,631.6h-0.07 M733.82,631.6h-0.07 M733.75,631.6h-0.07
-	 M733.68,631.6h-0.07 M733.61,631.6h-0.07 M733.54,631.6h-0.07 M733.46,631.6h-0.07 M733.39,631.6h-0.07 M733.32,631.6h-0.07
-	 M733.25,631.6h-0.07 M733.18,631.6h-0.07 M733.1,631.6h-0.07 M733.03,631.6h-0.07 M732.96,631.6h-0.07 M732.89,631.6h-0.07
-	 M732.82,631.6h-0.07 M732.74,631.6h-0.07 M732.67,631.6h-0.07 M732.6,631.6h-0.14 M732.46,631.6h-0.07 M732.38,631.6h-0.07
-	 M732.31,631.6h-0.14 M732.17,631.6h-0.07 M732.1,631.6h-0.07 M732.02,631.6h-0.07 M731.95,631.6h-0.14 M731.81,631.6h-0.07
-	 M731.74,631.6h-0.07 M731.66,631.6h-0.07 M731.59,631.6h-0.07 M731.52,631.6h-0.14 M731.38,631.6h-0.14 M731.23,631.6h-0.07
-	 M731.16,631.6h-0.14 M731.02,631.6h-0.07 M730.94,631.6h-0.07 M730.87,631.6h-0.14 M730.73,631.6h-0.14 M730.58,631.6h-0.14
-	 M730.44,631.6h-0.07 M730.37,631.6h-0.14 M730.22,631.6h-0.14 M730.08,631.6h-0.07 M730.01,631.6h-0.14 M729.86,631.6h-0.14
-	 M729.72,631.6h-0.14 M729.58,631.6h-0.14 M729.43,631.6h-0.14 M729.29,631.6h-0.14 M729.14,631.6H729 M729,631.6h-0.07
-	 M728.93,631.6h-0.14 M728.78,631.6h-0.14 M728.64,631.6h-0.14 M728.5,631.6h-0.14 M728.35,631.6h-0.14 M728.21,631.6h-0.22
-	 M727.99,631.6h-0.22 M727.78,631.6h-0.29 M727.49,631.6h-0.14 M727.34,631.6h-0.22 M727.13,631.6h-0.22 M726.91,631.6h-0.29
-	 M726.62,631.6h-0.14 M726.48,631.6h-0.22 M726.26,631.6h-0.36 M725.9,631.6h-0.22 M725.69,631.6h-0.29 M725.4,631.6h-0.29
-	 M725.11,631.6h-0.36 M724.75,631.6h-0.22 M724.54,631.6h-0.22 M724.32,631.6h-0.29 M724.03,631.6h-0.22 M723.82,631.6h-0.14
-	 M723.67,631.6h-0.29 M723.38,631.6h-0.29 M723.1,631.6h-0.22 M722.88,631.6h-0.29 M722.59,631.6h-0.29 M722.3,631.6h-0.29
-	 M722.02,631.6l-0.29,2.09 M721.73,633.69h-0.29 M721.44,633.69h-0.29 M721.15,633.69h-0.14 M721.01,633.69h-0.14 M720.86,633.69
-	l-0.29,3.24 M720.58,636.93h-0.65 M719.93,636.93h-0.36 M719.57,636.93h-0.29 M719.28,636.93h-0.36 M718.92,636.93l-0.36,6.34
-	 M718.56,643.26h-0.72 M717.84,643.26h-0.36 M717.48,643.26h-0.43 M717.05,643.26h-0.36 M716.69,643.26h-0.43 M716.26,643.26h-0.43
-	 M715.82,643.26h-0.14 M715.68,643.26l-0.22,0.58 M715.46,643.84l-0.5,1.3 M714.96,645.13h-0.43 M714.53,645.13h-0.43 M714.1,645.13
-	h-0.43 M713.66,645.13h-0.5 M713.16,645.13h-0.5 M712.66,645.13h-0.22 M712.44,645.13h-0.22 M712.22,645.13h-0.58 M711.65,645.13
-	h-0.5 M711.14,645.13h-0.5 M710.64,645.13h-0.5 M710.14,645.13h-0.58 M709.56,645.13h-0.5 M709.06,645.13h-0.58 M708.48,645.13
-	h-0.29 M708.19,645.13h-0.29 M707.9,645.13h-0.58 M707.33,645.13h-0.58 M706.75,645.13l-0.65,14.26 M706.1,659.39l-0.58,2.88
-	 M705.53,662.27h-0.65 M704.88,662.27l-0.65,1.87 M704.23,664.14h-0.65 M703.58,664.14h-0.29 M703.3,664.14l-0.36,1.94
-	 M702.94,666.09l-0.5,2.38 M702.43,668.46l-0.5,0.07 M701.93,668.53h-1.01 M700.92,668.53h-0.72 M700.2,668.53h-0.5 M699.7,668.53
-	h-0.58 M699.12,668.53h-0.5 M698.62,668.53h-0.58 M698.04,668.53h-0.58 M697.46,668.53h-0.5 M696.96,668.53h-0.58 M696.38,668.53
-	h-0.58 M695.81,668.53h-0.79 M695.02,668.53h-0.79 M694.22,668.53l-0.79,3.1 M693.43,671.63L693,691.14 M693,691.14h-0.43
-	 M692.57,691.14h-0.58 M691.99,691.14l-0.65,3.96 M691.34,695.1h-1.3 M690.05,695.1h-0.79 M689.26,695.1l-0.5,3.82 M688.75,698.92
-	h-0.86 M687.89,698.92h-0.65 M687.24,698.92l-0.65,4.75 M686.59,703.67h-0.5 M686.09,703.67h-0.43 M685.66,703.67l-0.72,0.07
-	 M684.94,703.74l-0.65,2.38 M684.29,706.12l-0.72,2.95 M683.57,709.07h-1.22 M682.34,709.07l-0.94,5.98 M681.41,715.05l-1.01,0.43
-	 M680.4,715.48h-1.22 M679.18,715.48h-0.79 M678.38,715.48l-0.79,5.76 M677.59,721.24h-1.51 M676.08,721.24h-0.79 M675.29,721.24
-	l-1.22,5.26 M674.06,726.49h-1.44 M672.62,726.49h-0.79 M671.83,726.49l-1.37,3.53 M670.46,730.02h-1.22 M669.24,730.02h-1.01
-	 M668.23,730.02h-1.15 M667.08,730.02h-1.01 M666.07,730.02h-0.86 M665.21,730.02h-0.94 M664.27,730.02h-1.51 M662.76,730.02h-0.94
-	 M661.82,730.02h-0.94 M660.89,730.02h-1.22 M659.66,730.02h-1.22 M658.44,730.02h-1.3 M657.14,730.02h-1.01 M656.14,730.02h-0.94
-	 M655.2,730.02h-1.37 M653.83,730.02h-1.3 M652.54,730.02h-1.01 M651.53,730.02h-1.01 M650.52,730.02h-2.09 M648.43,730.02h-1.08
-	 M647.35,730.02h-1.01 M646.34,730.02h-1.08 M645.26,730.02l-1.08,0.43 M644.18,730.45l-0.72,49.82"/>
-<path class="st5" d="M643.46,780.28l-1.51,3.1 M641.95,783.37l-1.08-0.07 M640.87,783.3l-1.08,1.66 M639.79,784.96l-1.51,2.45
-	 M638.28,787.41h-1.15 M637.13,787.41h-1.15 M635.98,787.41l-1.58,4.54 M634.39,791.94h-1.51 M632.88,791.94h-1.22 M631.66,791.94
-	h-1.15 M630.5,791.94l-0.94,4.61 M629.57,796.55h-1.51 M628.06,796.55l-1.8,0.07 M626.26,796.62l-0.79,1.58"/>
-<path class="st6" d="M640.87,703.89v15.34 M640.87,711.88l2.23-2.16 M643.1,709.72l1.44-0.72 M644.54,709h2.16 M646.7,709l1.51,0.72
-	 M648.22,709.72l0.72,2.16 M648.94,711.88v7.34 M654.05,713.39h8.78 M662.83,713.39v-1.51 M662.83,711.88l-0.72-1.44 M662.11,710.44
-	l-0.72-0.72 M661.39,709.72l-1.51-0.72 M659.88,709h-2.16 M657.72,709l-1.51,0.72 M656.21,709.72l-1.44,1.44 M654.77,711.16
-	l-0.72,2.23 M654.05,713.39v1.44 M654.05,714.83l0.72,2.23 M654.77,717.06l1.44,1.44 M656.21,718.5l1.51,0.72 M657.72,719.22h2.16
-	 M659.88,719.22l1.51-0.72 M661.39,718.5l1.44-1.44 M668.66,703.89h8.06 M676.73,703.89l-4.39,5.83 M672.34,709.72h2.16
-	 M674.5,709.72l1.51,0.72 M676.01,710.44l0.72,0.72 M676.73,711.16l0.72,2.23 M677.45,713.39v1.44 M677.45,714.83l-0.72,2.23
-	 M676.73,717.06l-1.51,1.44 M675.22,718.5l-2.16,0.72 M673.06,719.22h-2.16 M670.9,719.22l-2.23-0.72 M668.66,718.5l-0.72-0.72
-	 M667.94,717.78l-0.72-1.51"/>
-<path class="st7" d="M643.46,149.77c0.7,6.32-1.05,9.29,7.06,8.21c0.01,0,0.02,0,0.04,0c4.42,0,17.66-2.23,21.27,0.94
-	c2.34-0.56,3.4,1.88,5.76,1.29c1.23-0.29,14.1,5.9,14.4,6.99c2.17-0.62,0.36,4.21,3.02,3.53c0.76,0,1.69,0,2.45,0
-	c0.29,0,0.87,0,1.15,0c1.83,0,3.68-0.32,4.96,0.93c1.33,1.29,2.92,0.76,3.2,3.46c-0.04-0.4,8.57,0.68,9.47,0.58
-	c2.11-0.17,1.92-0.03,3.02,1.08c2.4,2.41,12.21,0.8,15.12,0.79"/>
-<path class="st7" d="M474.98,109.38c9.84,1.44,19.73,3.04,29.45,4.97c2.43,0.17,4.89,0.89,7.27,1.37
-	c1.36,2.67-0.51,11.11,3.74,10.66c13.96-1.48,28.19,0,42.2,0c3.12-0.34,3.54,0.31,5.91,1.15c7.64-1.85,23.46,5.47,30.97,7.47
-	c7.59,2.03,15.15,4.2,22.67,6.5c4.01,1.23,16.46,2.78,18.79,6.47c2.74-0.43,4.75,1.87,7.49,1.8"/>
-<path class="st7" d="M196.71,109.24c46.7,0,93.4,0,140.11,0c45.82,0,92.44-2.53,138.17,0.14"/>
-<path class="st7" d="M129.6,109.24c22.37,0,44.74,0,67.11,0"/>
-<path class="st8" d="M187.27,83.1v15.34 M187.27,91.09l2.23-2.16 M189.5,88.93l1.44-0.72 M190.94,88.21h2.16 M193.1,88.21l1.51,0.72
-	 M194.62,88.93l0.72,2.16 M195.34,91.09v7.34 M200.45,92.61h8.78 M209.23,92.61v-1.51 M209.23,91.09l-0.72-1.44 M208.51,89.65
-	l-0.72-0.72 M207.79,88.93l-1.51-0.72 M206.28,88.21h-2.16 M204.12,88.21l-1.51,0.72 M202.61,88.93l-1.44,1.44 M201.17,90.37
-	l-0.72,2.23 M200.45,92.61v1.44 M200.45,94.05l0.72,2.16 M201.17,96.21l1.44,1.51 M202.61,97.72l1.51,0.72 M204.12,98.44h2.16
-	 M206.28,98.44l1.51-0.72 M207.79,97.72l1.44-1.51 M220.9,83.1l-7.27,10.22 M213.62,93.33h10.94 M220.9,83.1v15.34 M338.47,83.1
-	v15.34 M338.47,91.09l2.23-2.16 M340.7,88.93l1.44-0.72 M342.14,88.21h2.16 M344.3,88.21l1.51,0.72 M345.82,88.93l0.72,2.16
-	 M346.54,91.09v7.34 M351.65,92.61h8.78 M360.43,92.61v-1.51 M360.43,91.09l-0.72-1.44 M359.71,89.65l-0.72-0.72 M358.99,88.93
-	l-1.51-0.72 M357.48,88.21h-2.16 M355.32,88.21l-1.51,0.72 M353.81,88.93l-1.44,1.44 M352.37,90.37l-0.72,2.23 M351.65,92.61v1.44
-	 M351.65,94.05l0.72,2.16 M352.37,96.21l1.44,1.51 M353.81,97.72l1.51,0.72 M355.32,98.44h2.16 M357.48,98.44l1.51-0.72
-	 M358.99,97.72l1.44-1.51 M372.1,83.1l-7.27,10.22 M364.82,93.33h10.94 M372.1,83.1v15.34 M489.67,88.72v15.41 M489.67,96.78
-	l2.23-2.16 M491.9,94.62l1.44-0.79 M493.34,93.83h2.16 M495.5,93.83l1.51,0.79 M497.02,94.62l0.72,2.16 M497.74,96.78v7.34
-	 M502.85,98.22h8.78 M511.63,98.22v-1.44 M511.63,96.78l-0.72-1.44 M510.91,95.34l-0.72-0.72 M510.19,94.62l-1.51-0.79
-	 M508.68,93.83h-2.16 M506.52,93.83l-1.51,0.79 M505.01,94.62l-1.44,1.44 M503.57,96.06l-0.72,2.16 M502.85,98.22v1.51
-	 M502.85,99.73l0.72,2.16 M503.57,101.89l1.44,1.44 M505.01,103.33l1.51,0.79 M506.52,104.13h2.16 M508.68,104.13l1.51-0.79
-	 M510.19,103.33l1.44-1.44 M523.3,88.72l-7.27,10.22 M516.02,98.94h10.94 M523.3,88.72v15.41 M640.87,131.85v15.34 M640.87,139.91
-	l2.23-2.23 M643.1,137.68l1.44-0.72 M644.54,136.96h2.16 M646.7,136.96l1.51,0.72 M648.22,137.68l0.72,2.23 M648.94,139.91v7.27
-	 M654.05,141.35h8.78 M662.83,141.35v-1.44 M662.83,139.91l-0.72-1.44 M662.11,138.47l-0.72-0.79 M661.39,137.68l-1.51-0.72
-	 M659.88,136.96h-2.16 M657.72,136.96l-1.51,0.72 M656.21,137.68l-1.44,1.51 M654.77,139.19l-0.72,2.16 M654.05,141.35v1.51
-	 M654.05,142.86l0.72,2.16 M654.77,145.02l1.44,1.44 M656.21,146.46l1.51,0.72 M657.72,147.18h2.16 M659.88,147.18l1.51-0.72
-	 M661.39,146.46l1.44-1.44 M674.5,131.85l-7.27,10.22 M667.22,142.07h10.94 M674.5,131.85v15.34"/>
-<path class="st9" d="M643.46,764.73l0.72-31.54c1.93-0.58,4.34-0.17,6.34-0.29c0.5,0,1.52,0,2.02,0c0,0,1.3,0,1.3,0
-	c0.97,0,2.34,0,3.31,0c2.31,0,4.82,0,7.13,0c2.99-0.23,6.69,1.2,7.56-2.59c3.42,1.39,2.15-3.89,4.25-3.96
-	c2.97,1.28,0.97-4.76,3.1-4.32c2.89,1.05,2.67-3.32,3.17-4.9c1.46,0.55,1.6-1.31,1.94-2.23c0.26-1.37,0.81-2.15,2.3-1.94
-	c-0.01-4.48,2.62-2.79,2.66-6.77c2.41,0.75,2.42-1.54,2.74-3.24c3.12,0.21-0.71-18.96,3.02-18.72c0.76,0,1.69,0,2.45,0
-	c0.29,0,0.87,0,1.15,0c3.68,0.37,4.2-0.12,4.68-3.74c4.24-0.53,2.8-13.43,3.46-16.92c1.1,0,2.28,0,3.38,0c0.65,0,1.43,0,2.09,0
-	c0.11,0,0.33,0,0.43,0c0.43,0,1.02,0,1.44,0c1.47,0.53,0.96-1.89,2.16-1.66c4.13,1.4,1.5-4.79,3.02-5.76
-	c2.58,0.97,0.39-3.55,2.45-3.02c-0.12-2.09,1.06-1.98,2.81-1.87c0.78,0,1.6,0,2.38,0c0.11,0,0.33,0,0.43,0c0.09,0,0.34,0,0.43,0
-	c0,0,0.22,0,0.22,0c0.15,0,0.36,0,0.5,0c0.57,0,1.16,0,1.73,0c0.1,0,0.26,0,0.36,0c0.13,0,0.3,0,0.43,0c0.1,0,0.26,0,0.36,0
-	c0.11,0,0.25,0,0.36,0c0.11,0,0.25,0,0.36,0c0.48,0,0.96,0,1.44,0c0.11,0,0.25,0,0.36,0c0.11,0,0.25,0,0.36,0c0.03,0,0.11,0,0.14,0"
-	/>
-<path class="st9" d="M307.87,761.56c52.78,0,105.55,0,158.33,0c0.87,0,2.24,0,3.1,0c6.54-1.44,5.16,5.86,6.05,10.15
-	c1.86,8,3.7,16.34,7.49,23.69c3.96,5.64,102.73,4.38,105.7-1.15c4.23-0.12,7.71-4.29,11.95-4.1c1.3-3.07,5.3-1.3,6.77-4.25
-	c2.1-0.34,4.21,0,4.54-2.66c2.18,0.15,4.77-0.34,5.76-2.52c3-0.24,7.06-3,8.71-5.33c2.62,0.31,3.94-0.4,4.25-3.1
-	c2.75,0.44,4.68-0.31,5.47-3.1c2.27,0.45,3.55-1.35,4.9-2.88c0.97,0.41,2.05-1,2.59-1.58"/>
-<path class="st9" d="M129.6,761.41c59.4,0.91,118.87,0.13,178.27,0.18"/>
-<path class="st10" d="M194.98,742.69l-1.44-1.44 M193.54,741.25l-1.51-0.72 M192.02,740.53h-2.16 M189.86,740.53l-1.51,0.72
-	 M188.35,741.25l-1.44,1.44 M186.91,742.69l-0.72,2.23 M186.19,744.93v1.44 M186.19,746.37l0.72,2.16 M186.91,748.53l1.44,1.51
-	 M188.35,750.04l1.51,0.72 M189.86,750.76h2.16 M192.02,750.76l1.51-0.72 M193.54,750.04l1.44-1.51 M201.53,738.3l1.51-0.72
-	 M203.04,737.58l2.16-2.16 M205.2,735.42v15.34 M214.7,739.02v-0.72 M214.7,738.3l0.72-1.44 M215.42,736.86l0.72-0.72
-	 M216.14,736.14l1.51-0.72 M217.66,735.42h2.88 M220.54,735.42l1.51,0.72 M222.05,736.14l0.72,0.72 M222.77,736.86l0.72,1.44
-	 M223.49,738.3v1.51 M223.49,739.81l-0.72,1.44 M222.77,741.25l-1.51,2.16 M221.26,743.41l-7.27,7.34 M213.98,750.76h10.22
-	 M346.18,742.77l-1.44-1.51 M344.74,741.25l-1.51-0.72 M343.22,740.53h-2.16 M341.06,740.53l-1.51,0.72 M339.55,741.25l-1.44,1.51
-	 M338.11,742.77l-0.72,2.16 M337.39,744.93v1.44 M337.39,746.37l0.72,2.23 M338.11,748.6l1.44,1.44 M339.55,750.04l1.51,0.72
-	 M341.06,750.76h2.16 M343.22,750.76l1.51-0.72 M344.74,750.04l1.44-1.44 M352.73,738.37l1.51-0.79 M354.24,737.58l2.16-2.16
-	 M356.4,735.42v15.34 M365.9,739.09v-0.72 M365.9,738.37l0.72-1.51 M366.62,736.86l0.72-0.72 M367.34,736.14l1.51-0.72
-	 M368.86,735.42h2.88 M371.74,735.42l1.51,0.72 M373.25,736.14l0.72,0.72 M373.97,736.86l0.72,1.51 M374.69,738.37v1.44
-	 M374.69,739.81l-0.72,1.44 M373.97,741.25l-1.51,2.23 M372.46,743.49l-7.27,7.27 M365.18,750.76h10.22 M648.58,714.04l-1.44-1.44
-	 M647.14,712.6l-1.51-0.72 M645.62,711.88h-2.16 M643.46,711.88l-1.51,0.72 M641.95,712.6l-1.44,1.44 M640.51,714.04l-0.72,2.16
-	 M639.79,716.2v1.51 M639.79,717.71l0.72,2.16 M640.51,719.87l1.44,1.51 M641.95,721.38l1.51,0.72 M643.46,722.1h2.16 M645.62,722.1
-	l1.51-0.72 M647.14,721.38l1.44-1.51 M655.13,709.65l1.51-0.72 M656.64,708.93l2.16-2.23 M658.8,706.69v15.41 M668.3,710.37v-0.72
-	 M668.3,709.65l0.72-1.44 M669.02,708.21l0.72-0.72 M669.74,707.49l1.51-0.79 M671.26,706.69h2.88 M674.14,706.69l1.51,0.79
-	 M675.65,707.49l0.72,0.72 M676.37,708.21l0.72,1.44 M677.09,709.65v1.44 M677.09,711.09l-0.72,1.51 M676.37,712.6l-1.51,2.16
-	 M674.86,714.76l-7.27,7.34 M667.58,722.1h10.22"/>
-<path class="st11" d="M643.46,587.53c-0.22,9.83,23.22,2.93,28.36,5.11c3.62,1.54,19.35,4.61,20.17,9.08
-	c2.94-0.37-0.46,12.79,3.02,12.53c0.76,0,1.69,0,2.45,0c0.29,0,0.87,0,1.15,0c3.58-0.34,4.26,0.05,4.68,3.67
-	c4.93,0.68,2.55,23.92,3.46,27.86c1.1,0,2.28,0,3.38,0c0.65,0,1.43,0,2.09,0c0.11,0,0.33,0,0.43,0c0.43,0,1.02,0,1.44,0
-	c2.13-0.6,0.45,4.87,2.16,4.68c6.19-3.37-0.85,25.05,4.32,22.75c-0.29,10.63,1.72,28.33,1.44,38.95c4.13-0.01,8.25,0,12.38,0"/>
-<path class="st11" d="M129.6,586.4c109.94-0.07,219.87-0.14,329.81-0.21c61.17-0.04,123.14-2.61,184.05,1.34"/>
-<path class="st12" d="M186.55,565.36v10.22 M186.55,568.31l2.23-2.23 M188.78,566.08l1.44-0.72 M190.22,565.36h2.16 M192.38,565.36
-	l1.51,0.72 M193.9,566.08l0.72,2.23 M194.62,568.31v7.27 M201.89,563.13l1.51-0.72 M203.4,562.41l2.16-2.16 M205.56,560.25v15.34
-	 M221.62,560.25l-7.27,10.22 M214.34,570.47h10.94 M221.62,560.25v15.34 M337.75,565.36v10.22 M337.75,568.31l2.23-2.23
-	 M339.98,566.08l1.44-0.72 M341.42,565.36h2.16 M343.58,565.36l1.51,0.72 M345.1,566.08l0.72,2.23 M345.82,568.31v7.27
-	 M353.09,563.13l1.51-0.72 M354.6,562.41l2.16-2.16 M356.76,560.25v15.34 M372.82,560.25l-7.27,10.22 M365.54,570.47h10.94
-	 M372.82,560.25v15.34 M488.95,564.35v10.22 M488.95,567.3l2.23-2.23 M491.18,565.07l1.44-0.72 M492.62,564.35h2.16 M494.78,564.35
-	l1.51,0.72 M496.3,565.07l0.72,2.23 M497.02,567.3v7.27 M504.29,562.19l1.51-0.79 M505.8,561.4l2.16-2.16 M507.96,559.24v15.34
-	 M524.02,559.24l-7.27,10.22 M516.74,569.46h10.94 M524.02,559.24v15.34 M640.15,571.05v10.3 M640.15,574l2.23-2.16 M642.38,571.84
-	l1.44-0.79 M643.82,571.05h2.16 M645.98,571.05l1.51,0.79 M647.5,571.84l0.72,2.16 M648.22,574v7.34 M655.49,568.89l1.51-0.72
-	 M657,568.17l2.16-2.23 M659.16,565.93v15.41 M675.22,565.93l-7.27,10.3 M667.94,576.23h10.94 M675.22,565.93v15.41"/>
-<path class="st13" d="M643.46,752.92c2.44-3.25-5.4-59.52,7.06-52.06c0.01,0,0.03,0,0.04,0c5.8,0,15.61,1.87,20.7-1.67
-	c2.26-1.57,2.37-5.54,4.72-7c0.5-0.31,1.11-0.46,1.52-0.88c1.28-1.34-0.33-4.3,1.34-5.09c0.42-0.2,0.92-0.15,1.37-0.29
-	c1.16-0.38,1.47-1.84,1.7-3.04c0.65-3.44,2.15-6.72,4.33-9.47c2.7-7.1,6.36-10.71,7.11-18.15c0.2-1.95-1.55-16.84,1.67-16.77
-	c0.76,0,1.69,0,2.45,0c0.29,0,0.87,0,1.15,0c4.17,0.56,4.17-0.68,4.68-4.39c4.34-0.82,2.76-15.17,3.46-19
-	c-0.14,0.78,8.85-0.42,10.03-1.47c1.06-0.94,2.25-6.67,2.79-6.74c2.24,0.86,0.1-3.94,2.16-3.24c-0.04-2.28,0.77-2.22,2.81-2.09
-	c0.78,0,1.6,0,2.38,0c0.11,0,0.33,0,0.43,0c2.35,0,4.7,0,7.06,0"/>
-<path class="st13" d="M577.22,798.21v-0.14l1.37-0.07c0,0,1.28,0,1.3,0c5.23,0,15.41-8.49,20.29-11.21
-	c2.19-1.44,4.39-2.87,6.58-4.31c1.23-0.8,2.66-1.65,4.08-1.26c0.33-1.02,0.66-2.04,0.98-3.06c1.69,0.65,3.47-0.55,4.89-1.67
-	c2.23-1.78,4.45-3.55,6.68-5.33c1.84-1.47,3.81-2.99,6.14-3.27c0.34-1.24,0.67-2.49,1.01-3.73c1.27-0.03,2.54-0.05,3.82-0.08
-	c0.55-1.33,1.1-2.66,1.65-3.98c0.8-1.92,6.18-3.72,7.46-7.17"/>
-<path class="st14" d="M643.1,679.84l-1.51,0.72 M641.59,680.56l-1.44,1.44 M640.15,682l-0.72,2.23 M639.43,684.23v1.44
-	 M639.43,685.67l0.72,2.16 M640.15,687.83l1.44,1.51 M641.59,689.34l1.51,0.72 M643.1,690.06h2.16 M645.26,690.06l1.44-0.72
-	 M646.7,689.34l1.51-1.51 M648.22,687.83l0.72-2.16 M648.94,685.67v-1.44 M648.94,684.23l-0.72-2.23 M648.22,682l-1.51-1.44
-	 M646.7,680.56l-1.44-0.72 M645.26,679.84h-2.16 M655.49,677.61l1.51-0.72 M657,676.89l2.16-2.16 M659.16,674.73v15.34
-	 M677.45,676.89l-0.72-1.44 M676.73,675.45l-2.23-0.72 M674.5,674.73h-1.44 M673.06,674.73l-2.16,0.72 M670.9,675.45l-1.51,2.16
-	 M669.38,677.61l-0.72,3.67 M668.66,681.28v3.67 M668.66,684.95l0.72,2.88 M669.38,687.83l1.51,1.51 M670.9,689.34l2.16,0.72
-	 M673.06,690.06h0.72 M673.78,690.06l2.23-0.72 M676.01,689.34l1.44-1.51 M677.45,687.83l0.72-2.16 M678.17,685.67v-0.72
-	 M678.17,684.95l-0.72-2.23 M677.45,682.72l-1.44-1.44 M676.01,681.28l-2.23-0.72 M673.78,680.56h-0.72 M673.06,680.56l-2.16,0.72
-	 M670.9,681.28l-1.51,1.44 M669.38,682.72l-0.72,2.23"/>
-<path class="st15" d="M129.6,675.81c201.6,0,403.2,0,604.8,0"/>
-<path class="st16" d="M180,654.78v10.22 M180,657.66l2.16-2.16 M182.16,655.5l1.44-0.72 M183.6,654.78h2.23 M185.83,654.78
-	l1.44,0.72 M187.27,655.5l0.72,2.16 M187.99,657.66v7.34 M193.1,659.17h8.78 M201.89,659.17v-1.51 M201.89,657.66l-0.72-1.44
-	 M201.17,656.22l-0.72-0.72 M200.45,655.5l-1.44-0.72 M199.01,654.78h-2.23 M196.78,654.78l-1.44,0.72 M195.34,655.5l-1.44,1.44
-	 M193.9,656.94l-0.79,2.23 M193.1,659.17v1.44 M193.1,660.61l0.79,2.16 M193.9,662.77l1.44,1.51 M195.34,664.29l1.44,0.72
-	 M196.78,665.01h2.23 M199.01,665.01l1.44-0.72 M200.45,664.29l1.44-1.51 M207,653.27v-0.72 M207,652.55l0.79-1.44 M207.79,651.11
-	l0.72-0.72 M208.51,650.39l1.44-0.72 M209.95,649.67h2.95 M212.9,649.67l1.44,0.72 M214.34,650.39l0.72,0.72 M215.06,651.11
-	l0.72,1.44 M215.78,652.55v1.44 M215.78,653.99l-0.72,1.51 M215.06,655.5l-1.44,2.16 M213.62,657.66l-7.34,7.34 M206.28,665.01
-	h10.22 M225.29,649.67l-2.16,0.72 M223.13,650.39l-1.51,2.16 M221.62,652.55l-0.72,3.67 M220.9,656.22v2.16 M220.9,658.38l0.72,3.67
-	 M221.62,662.05l1.51,2.23 M223.13,664.29l2.16,0.72 M225.29,665.01h1.51 M226.8,665.01l2.16-0.72 M228.96,664.29l1.44-2.23
-	 M230.4,662.05l0.72-3.67 M231.12,658.38v-2.16 M231.12,656.22l-0.72-3.67 M230.4,652.55l-1.44-2.16 M228.96,650.39l-2.16-0.72
-	 M226.8,649.67h-1.51 M331.2,654.78v10.22 M331.2,657.66l2.16-2.16 M333.36,655.5l1.44-0.72 M334.8,654.78h2.23 M337.03,654.78
-	l1.44,0.72 M338.47,655.5l0.72,2.16 M339.19,657.66v7.34 M344.3,659.17h8.78 M353.09,659.17v-1.51 M353.09,657.66l-0.72-1.44
-	 M352.37,656.22l-0.72-0.72 M351.65,655.5l-1.44-0.72 M350.21,654.78h-2.23 M347.98,654.78l-1.44,0.72 M346.54,655.5l-1.44,1.44
-	 M345.1,656.94l-0.79,2.23 M344.3,659.17v1.44 M344.3,660.61l0.79,2.16 M345.1,662.77l1.44,1.51 M346.54,664.29l1.44,0.72
-	 M347.98,665.01h2.23 M350.21,665.01l1.44-0.72 M351.65,664.29l1.44-1.51 M358.2,653.27v-0.72 M358.2,652.55l0.79-1.44
-	 M358.99,651.11l0.72-0.72 M359.71,650.39l1.44-0.72 M361.15,649.67h2.95 M364.1,649.67l1.44,0.72 M365.54,650.39l0.72,0.72
-	 M366.26,651.11l0.72,1.44 M366.98,652.55v1.44 M366.98,653.99l-0.72,1.51 M366.26,655.5l-1.44,2.16 M364.82,657.66l-7.34,7.34
-	 M357.48,665.01h10.22 M376.49,649.67l-2.16,0.72 M374.33,650.39l-1.51,2.16 M372.82,652.55l-0.72,3.67 M372.1,656.22v2.16
-	 M372.1,658.38l0.72,3.67 M372.82,662.05l1.51,2.23 M374.33,664.29l2.16,0.72 M376.49,665.01H378 M378,665.01l2.16-0.72
-	 M380.16,664.29l1.44-2.23 M381.6,662.05l0.72-3.67 M382.32,658.38v-2.16 M382.32,656.22l-0.72-3.67 M381.6,652.55l-1.44-2.16
-	 M380.16,650.39l-2.16-0.72 M378,649.67h-1.51 M482.4,654.78v10.22 M482.4,657.66l2.16-2.16 M484.56,655.5l1.44-0.72 M486,654.78
-	h2.23 M488.23,654.78l1.44,0.72 M489.67,655.5l0.72,2.16 M490.39,657.66v7.34 M495.5,659.17h8.78 M504.29,659.17v-1.51
-	 M504.29,657.66l-0.72-1.44 M503.57,656.22l-0.72-0.72 M502.85,655.5l-1.44-0.72 M501.41,654.78h-2.23 M499.18,654.78l-1.44,0.72
-	 M497.74,655.5l-1.44,1.44 M496.3,656.94l-0.79,2.23 M495.5,659.17v1.44 M495.5,660.61l0.79,2.16 M496.3,662.77l1.44,1.51
-	 M497.74,664.29l1.44,0.72 M499.18,665.01h2.23 M501.41,665.01l1.44-0.72 M502.85,664.29l1.44-1.51 M509.4,653.27v-0.72
-	 M509.4,652.55l0.79-1.44 M510.19,651.11l0.72-0.72 M510.91,650.39l1.44-0.72 M512.35,649.67h2.95 M515.3,649.67l1.44,0.72
-	 M516.74,650.39l0.72,0.72 M517.46,651.11l0.72,1.44 M518.18,652.55v1.44 M518.18,653.99l-0.72,1.51 M517.46,655.5l-1.44,2.16
-	 M516.02,657.66l-7.34,7.34 M508.68,665.01h10.22 M527.69,649.67l-2.16,0.72 M525.53,650.39l-1.51,2.16 M524.02,652.55l-0.72,3.67
-	 M523.3,656.22v2.16 M523.3,658.38l0.72,3.67 M524.02,662.05l1.51,2.23 M525.53,664.29l2.16,0.72 M527.69,665.01h1.51 M529.2,665.01
-	l2.16-0.72 M531.36,664.29l1.44-2.23 M532.8,662.05l0.72-3.67 M533.52,658.38v-2.16 M533.52,656.22l-0.72-3.67 M532.8,652.55
-	l-1.44-2.16 M531.36,650.39l-2.16-0.72 M529.2,649.67h-1.51 M633.6,654.78v10.22 M633.6,657.66l2.16-2.16 M635.76,655.5l1.44-0.72
-	 M637.2,654.78h2.23 M639.43,654.78l1.44,0.72 M640.87,655.5l0.72,2.16 M641.59,657.66v7.34 M646.7,659.17h8.78 M655.49,659.17
-	v-1.51 M655.49,657.66l-0.72-1.44 M654.77,656.22l-0.72-0.72 M654.05,655.5l-1.44-0.72 M652.61,654.78h-2.23 M650.38,654.78
-	l-1.44,0.72 M648.94,655.5l-1.44,1.44 M647.5,656.94l-0.79,2.23 M646.7,659.17v1.44 M646.7,660.61l0.79,2.16 M647.5,662.77
-	l1.44,1.51 M648.94,664.29l1.44,0.72 M650.38,665.01h2.23 M652.61,665.01l1.44-0.72 M654.05,664.29l1.44-1.51 M660.6,653.27v-0.72
-	 M660.6,652.55l0.79-1.44 M661.39,651.11l0.72-0.72 M662.11,650.39l1.44-0.72 M663.55,649.67h2.95 M666.5,649.67l1.44,0.72
-	 M667.94,650.39l0.72,0.72 M668.66,651.11l0.72,1.44 M669.38,652.55v1.44 M669.38,653.99l-0.72,1.51 M668.66,655.5l-1.44,2.16
-	 M667.22,657.66l-7.34,7.34 M659.88,665.01h10.22 M678.89,649.67l-2.16,0.72 M676.73,650.39l-1.51,2.16 M675.22,652.55l-0.72,3.67
-	 M674.5,656.22v2.16 M674.5,658.38l0.72,3.67 M675.22,662.05l1.51,2.23 M676.73,664.29l2.16,0.72 M678.89,665.01h1.51"/>
-<path class="st16" d="M680.4,665.01l2.16-0.72 M682.56,664.29l1.44-2.23 M684,662.05l0.72-3.67 M684.72,658.38v-2.16 M684.72,656.22
-	l-0.72-3.67 M684,652.55l-1.44-2.16 M682.56,650.39l-2.16-0.72 M680.4,649.67h-1.51"/>
-<path class="st17" d="M734.4,797.49h-18.94 M705.53,797.49h-2.59 M692.57,797.49h-20.74 M641.95,797.49h-78.41 M509.98,797.49h-30.1
-	"/>
-<path class="st18" d="M714.53,797.49h-7.2 M700.92,797.49h-6.7 M668.23,797.49h-21.89 M558.5,797.49h-41.76 M465.48,797.49H129.6"/>
-<path class="st19" d="M714.96,797.49L714.96,797.49 M706.75,797.49h-0.65 M702.43,797.49h-0.5 M693.43,797.49H693 M670.46,797.49
-	h-1.22 M645.26,797.49h-1.8 M562.68,797.49h-3.6 M516.46,797.49h-5.83 M479.09,797.49H466.2"/>
-</svg>
+<svg xmlns="http://www.w3.org/2000/svg" width="1152" height="1152"><path fill-rule="evenodd" d="M.016 1151.984h1151.971V.013H.017z"/><g fill="none" stroke-linecap="round" stroke-linejoin="round" stroke-miterlimit="10"><g stroke="#fff"><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M869.565 93.8v9.888M869.565 96.586l2.112-2.112M871.672 94.48l1.44-.672M873.112 93.8h2.111M875.231 93.8l1.44.672M876.671 94.48l.672 2.112M877.338 96.586v7.104M877.338 96.586l2.208-2.112M879.551 94.48l1.344-.672M880.885 93.8h2.112M883.005 93.8l1.44.672M884.445 94.48l.768 2.112M885.205 96.586v7.104M893.658 93.8l-1.44.672M892.218 94.48l-1.344 1.44M890.871 95.92l-.768 2.112M890.111 98.026v1.44M890.111 99.466l.768 2.112M890.871 101.573l1.344 1.44M892.218 103.013l1.44.672M893.658 103.693h2.112M895.764 103.693l1.44-.672M897.204 103.013l1.44-1.44M898.644 101.573l.672-2.112M899.324 99.466v-1.44M899.324 98.026l-.672-2.112M898.644 95.92l-1.44-1.44M897.204 94.48l-1.44-.672M895.764 93.8h-2.112M912.084 88.813v14.88M912.084 95.92l-1.44-1.44M910.644 94.48l-1.344-.672M909.31 93.8H907.2M907.19 93.8l-1.44.672M905.75 94.48l-1.44 1.44M904.31 95.92l-.671 2.112M903.644 98.026v1.44M903.644 99.466l.672 2.112M904.31 101.573l1.44 1.44M905.75 103.013l1.44.672M907.19 103.693h2.113M909.31 103.693l1.345-.672M910.644 103.013l1.44-1.44M917.084 98.026h8.544M925.63 98.026v-1.44M925.63 96.586l-.768-1.44M924.857 95.146l-.672-.672M924.19 94.48l-1.44-.672M922.75 93.8h-2.112M920.63 93.8l-1.44.672M919.19 94.48l-1.44 1.44M917.75 95.92l-.672 2.112M917.084 98.026v1.44M917.084 99.466l.672 2.112M917.75 101.573l1.44 1.44M919.19 103.013l1.44.672M920.63 103.693h2.112M922.75 103.693l1.44-.672M924.19 103.013l1.44-1.44M930.523 88.813v14.88M953.95 88.813l-7.104 9.888M946.843 98.693h10.656M953.95 88.813v14.88M964.603 88.813l-2.112.672M962.483 89.48l-.768 1.44M961.723 90.92v1.44M961.723 92.36l.768 1.44M962.483 93.8l1.344.672M963.83 94.48l2.88.672M966.71 95.146l2.111.768M968.83 95.92l1.44 1.44M970.27 97.36l.671 1.344M970.936 98.693v2.112M970.936 100.813l-.672 1.44M970.27 102.253l-.769.768M969.496 103.013l-2.112.672M967.39 103.693h-2.785M964.603 103.693l-2.112-.672M962.483 103.013l-.768-.768M961.723 102.253l-.672-1.44M961.043 100.813V98.7M961.043 98.693l.672-1.344M961.723 97.36l1.44-1.44M963.163 95.92l2.112-.768M965.27 95.146l2.88-.672M968.15 94.48l1.343-.672M969.496 93.8l.768-1.44M970.27 92.36v-1.44M970.27 90.92l-.769-1.44M969.496 89.48l-2.112-.672M967.39 88.813h-2.785M978.709 88.813l-2.112.672M976.602 89.48l-.672 1.44M975.922 90.92v1.44M975.922 92.36l.672 1.44M976.602 93.8l1.44.672M978.042 94.48l2.88.672M980.922 95.146l2.112.768M983.029 95.92l1.344 1.44M984.375 97.36l.768 1.344M985.149 98.693v2.112M985.149 100.813l-.768 1.44M984.375 102.253l-.672.768M983.709 103.013l-2.112.672M981.589 103.693h-2.88M978.709 103.693l-2.112-.672M976.602 103.013l-.672-.768M975.922 102.253l-.768-1.44M975.162 100.813V98.7M975.162 98.693l.768-1.344M975.922 97.36l1.44-1.44M977.362 95.92l2.112-.768M979.482 95.146l2.784-.672M982.269 94.48l1.44-.672M983.709 93.8l.672-1.44M984.375 92.36v-1.44M984.375 90.92l-.672-1.44M983.709 89.48l-2.112-.672M981.589 88.813h-2.88M151.21 93.8v9.888M151.21 95.92l-1.44-1.44M149.77 94.48l-1.44-.672M148.33 93.8h-2.112M146.223 93.8l-1.44.672M144.783 94.48l-1.344 1.44M143.436 95.92l-.768 2.112M142.663 98.026v1.44M142.663 99.466l.768 2.112M143.436 101.573l1.344 1.44M144.783 103.013l1.44.672M146.223 103.693h2.112M148.33 103.693l1.44-.672M149.77 103.013l1.44-1.44M164.65 93.8v11.328M164.65 105.133l-.673 2.112M163.983 107.24l-.768.671M163.21 107.92l-1.345.767M161.863 108.68h-2.208M159.663 108.68l-1.344-.769M164.65 95.92l-1.44-1.44M163.21 94.48l-1.345-.672M161.863 93.8h-2.208M159.663 93.8l-1.344.672M158.316 94.48l-1.44 1.44M156.876 95.92l-.768 2.112M156.103 98.026v1.44M156.103 99.466l.768 2.112M156.876 101.573l1.44 1.44M158.316 103.013l1.344.672M159.663 103.693h2.208M161.863 103.693l1.344-.672M163.21 103.013l1.44-1.44M169.65 98.026h8.447M178.089 98.026v-1.44M178.089 96.586l-.672-1.44M177.422 95.146l-.672-.672M176.742 94.48l-1.44-.672M175.302 93.8h-2.112M173.196 93.8l-1.44.672M171.756 94.48l-1.44 1.44M170.316 95.92l-.672 2.112M169.65 98.026v1.44M169.65 99.466l.671 2.112M170.316 101.573l1.44 1.44M171.756 103.013l1.44.672M173.196 103.693h2.112M175.302 103.693l1.44-.672M176.742 103.013l1.344-1.44M194.408 92.36v-.768M194.408 91.6l.768-1.344M195.182 90.253l.672-.768M195.848 89.48l1.44-.672M197.288 88.813h2.784M200.075 88.813l1.44.672M201.515 89.48l.672.768M202.182 90.253l.768 1.344M202.955 91.6v1.44M202.955 93.04l-.768 1.44M202.182 94.48l-1.344 2.112M200.848 96.586l-7.104 7.104M193.742 103.693h9.888M209.288 102.253l-.672.768M208.621 103.013l.672.672M209.288 103.693l.768-.672M210.061 103.013l-.768-.768M217.168 91.6l1.344-.672M218.501 90.92l2.112-2.112M220.621 88.813v14.88M230.608 88.813h7.775M238.38 88.813l-4.223 5.664M234.154 94.48h2.112M236.26 94.48l1.44.672M237.7 95.146l.673.768M238.38 95.92l.673 2.112M239.047 98.026v1.44M239.047 99.466l-.672 2.112M238.38 101.573l-1.44 1.44M236.94 103.013l-2.111.672M234.82 103.693h-2.111M232.714 103.693l-2.112-.672M230.608 103.013l-.768-.768M229.834 102.253l-.672-1.44M245.487 91.6l1.44-.672M246.927 90.92l2.112-2.112M249.034 88.813v14.88M266.7 90.92l-.672-1.44M266.02 89.48l-2.112-.672M263.913 88.813h-1.44M262.473 88.813l-2.112.672M260.367 89.48l-1.44 2.112M258.927 91.6l-.672 3.552M258.247 95.146v3.552M258.247 98.693l.672 2.88M258.927 101.573l1.44 1.44M260.367 103.013l2.112.672M262.473 103.693h.768M263.247 103.693l2.112-.672M265.353 103.013l1.344-1.44M266.7 101.573l.768-2.112M267.46 99.466v-.768M267.46 98.693l-.768-2.112M266.7 96.586l-1.344-1.44M265.353 95.146l-2.112-.672M263.247 94.48h-.768M262.473 94.48l-2.112.672M260.367 95.146l-1.44 1.44M258.927 96.586l-.672 2.112M273.806 91.6l1.44-.672M275.246 90.92l2.112-2.112M277.353 88.813v14.88M290.126 88.813l-2.112.672M288.006 89.48l-1.44 2.112M286.566 91.6l-.672 3.552M285.9 95.146v2.208M285.9 97.36l.672 3.456M286.566 100.813l1.44 2.208M288.006 103.013l2.112.672M290.126 103.693h1.44M291.566 103.693l2.112-.672M293.673 103.013l1.44-2.208M295.113 100.813l.672-3.456M295.78 97.36v-2.208M295.78 95.146l-.673-3.551M295.113 91.6l-1.44-2.112M293.673 89.48l-2.112-.672M291.566 88.813h-1.44M300.1 98.026h8.447M308.552 98.026v-1.44M308.552 96.586l-.672-1.44M307.886 95.146l-.768-.672M307.112 94.48l-1.344-.672M305.766 93.8h-2.208M303.566 93.8l-1.344.672M302.22 94.48l-1.44 1.44M300.78 95.92l-.673 2.112M300.1 98.026v1.44M300.1 99.466l.671 2.112M300.78 101.573l1.44 1.44M302.22 103.013l1.343.672M303.566 103.693h2.208M305.766 103.693l1.344-.672M307.112 103.013l1.44-1.44M321.992 90.92l-.672-1.44M321.325 89.48l-2.112-.672M319.205 88.813h-1.44M317.765 88.813l-2.112.672M315.659 89.48l-1.44 2.112M314.219 91.6l-.672 3.552M313.539 95.146v3.552M313.539 98.693l.672 2.88M314.219 101.573l1.44 1.44M315.659 103.013l2.112.672M317.765 103.693h.768M318.539 103.693l2.112-.672M320.645 103.013l1.344-1.44M321.992 101.573l.768-2.112M322.765 99.466v-.768M322.765 98.693l-.768-2.112M321.992 96.586l-1.344-1.44M320.645 95.146l-2.112-.672M318.539 94.48h-.768M317.765 94.48l-2.112.672M315.659 95.146l-1.44 1.44M314.219 96.586l-.672 2.112M337.645 93.8l4.224 9.888M346.178 93.8l-4.32 9.888M341.858 103.693l-1.44 2.88M340.418 106.573l-1.344 1.344M339.085 107.92l-1.44.767M337.645 108.68h-.672M350.405 93.8v9.888M350.405 98.026l.672-2.112M351.085 95.92l1.44-1.44M352.525 94.48l1.44-.672M353.964 93.8h2.112M366.724 95.92l-.768-1.44M365.964 94.48l-2.112-.672M363.844 93.8h-2.112M361.738 93.8l-2.112.672M359.618 94.48l-.768 1.44M358.858 95.92l.768 1.44M359.618 97.36l1.44.672M361.058 98.026l3.552.672M364.618 98.693l1.344.768M365.964 99.466l.768 1.344M366.724 100.813v.768M366.724 101.573l-.768 1.44M365.964 103.013l-2.112.672M363.844 103.693h-2.112M361.738 103.693l-2.112-.672M359.618 103.013l-.768-1.44M430.856 107.44l1.152 1.151M432.003 108.586l1.152-1.152M433.163 107.44l-1.152-1.153M432.003 106.28l-1.152 1.151M432.003 115.493v16.127M441.216 115.493v16.127M441.216 120.106l3.456-3.456M444.682 116.653l2.304-1.152M446.975 115.493h3.456M450.442 115.493l2.304 1.152M452.735 116.653l1.152 3.455M453.895 120.106v11.52M463.108 107.44v24.19M471.175 107.44l1.152 1.151M472.322 108.586l1.151-1.152M473.481 107.44l-1.151-1.153M472.322 106.28l-1.152 1.151M472.322 115.493v16.127M493.054 118.96l-1.152-2.305M491.908 116.653l-3.456-1.152M488.454 115.493H485M485.001 115.493l-3.456 1.152M481.535 116.653l-1.152 2.303M480.388 118.96l1.152 2.303M481.535 121.252l2.304 1.152M483.841 122.412l5.76 1.152M489.601 123.559l2.304 1.152M491.908 124.719l1.152 2.304M493.054 127.012v1.152M493.054 128.172l-1.152 2.304M491.908 130.479l-3.456 1.152M488.454 131.626H485M485.001 131.626l-3.456-1.152M481.535 130.479l-1.152-2.304M502.28 107.44v19.583M502.28 127.012l1.153 3.456M503.427 130.479l2.304 1.152M505.734 131.626h2.304M498.814 115.493h8.064M510.334 133.932h20.735M536.84 107.44v24.19M536.84 120.106l3.456-3.456M540.293 116.653l2.304-1.152M542.6 115.493h3.456M546.053 115.493l2.304 1.152M548.36 116.653l1.152 3.455M549.506 120.106v11.52M557.573 107.44l1.152 1.151M558.72 108.586l1.151-1.152M559.88 107.44l-1.153-1.153M558.72 106.28l-1.153 1.151M558.72 115.493v16.127M580.612 115.493v18.431M580.612 133.932l-1.152 3.456M579.452 137.385l-1.152 1.152M578.306 138.532l-2.304 1.152M575.999 139.692h-3.456M572.546 139.692l-2.304-1.152M580.612 118.96l-2.304-2.305M578.306 116.653l-2.304-1.152M575.999 115.493h-3.456M572.546 115.493l-2.304 1.152M570.24 116.653l-2.305 2.303M567.932 118.96l-1.152 3.455M566.786 122.412v2.304M566.786 124.719l1.152 3.456M567.932 128.172l2.304 2.304M570.24 130.479l2.303 1.152M572.546 131.626h3.456M575.999 131.626l2.304-1.152M578.306 130.479l2.303-2.304M589.825 107.44v24.19M589.825 120.106l3.456-3.456M593.279 116.653l2.303-1.152M595.585 115.493h3.456M599.038 115.493l2.304 1.152M601.345 116.653l1.152 3.455M602.492 120.106v11.52M607.105 133.932h20.735M633.597 115.493v16.127M633.597 120.106l3.456-3.456M637.05 116.653l2.305-1.152M639.357 115.493h3.456M642.81 115.493l2.305 1.152M645.117 116.653l1.152 3.455M646.277 120.106v11.52M646.277 120.106l3.456-3.456M649.73 116.653l2.304-1.152M652.037 115.493h3.456M655.49 115.493l2.304 1.152M657.797 116.653l1.152 3.455M658.944 120.106v11.52M680.836 115.493v16.127M680.836 118.96l-2.304-2.305M678.53 116.653l-2.304-1.152M676.223 115.493h-3.456M672.77 115.493l-2.304 1.152M670.463 116.653l-2.304 2.303M668.157 118.96l-1.152 3.455M667.01 122.412v2.304M667.01 124.719l1.152 3.456M668.157 128.172l2.304 2.304M670.463 130.479l2.304 1.152M672.77 131.626h3.456M676.223 131.626l2.304-1.152M678.53 130.479l2.304-2.304M701.57 118.96l-1.153-2.305M700.41 116.653l-3.457-1.152M696.956 115.493H693.5M693.503 115.493l-3.456 1.152M690.05 116.653l-1.153 2.303M688.89 118.96l1.151 2.303M690.05 121.252l2.303 1.152M692.356 122.412l5.76 1.152M698.116 123.559l2.304 1.152M700.41 124.719l1.151 2.304M701.57 127.012v1.152M701.57 128.172l-1.153 2.304M700.41 130.479l-3.457 1.152M696.956 131.626H693.5M693.503 131.626l-3.456-1.152M690.05 130.479l-1.153-2.304M721.155 118.96l-1.152-2.305M719.995 116.653l-3.456-1.152M716.542 115.493h-3.456M713.089 115.493l-3.456 1.152M709.636 116.653l-1.152 2.303M708.476 118.96l1.152 2.303M709.636 121.252l2.304 1.152M711.929 122.412l5.76 1.152M717.689 123.559l2.304 1.152M719.995 124.719l1.152 2.304M721.155 127.012v1.152M721.155 128.172l-1.152 2.304M719.995 130.479l-3.456 1.152M716.542 131.626h-3.456M713.089 131.626l-3.456-1.152M709.636 130.479l-1.152-2.304"/></g><g stroke-width="14.4"><path stroke-width="1.919952" d="M520.04 1055.602v18.624M520.04 1060.978l4.032-4.032M524.067 1056.946l2.592-1.343M526.654 1055.602h4.031M530.693 1055.602l2.688 1.344M533.373 1056.946l1.248 4.033M534.627 1060.978v13.248M534.627 1060.978l4.032-4.032M538.653 1056.946l2.688-1.343M541.346 1055.602h3.936M545.28 1055.602l2.688 1.344M547.973 1056.946l1.344 4.033M549.32 1060.978v13.248M581.185 1041.01l-23.903 42.528M589.159 1046.29v27.936M589.159 1046.29l10.655 27.936M610.465 1046.29l-10.656 27.936M610.465 1046.29v27.936M627.744 1069.234l-3.072.96M624.678 1070.194l-2.976 2.016M621.691 1072.21l-1.92 2.976M619.771 1075.186l-1.056 3.072M618.718 1078.258v2.975M618.718 1081.234l1.056 2.976M619.771 1084.21l1.92 2.976M621.691 1087.186l2.976 2.016M624.678 1089.202l3.072.96M627.744 1090.162h2.976M630.718 1090.162l2.975-.96M633.69 1089.202l2.977-2.017M636.677 1087.186l2.016-2.976M638.69 1084.21l.96-2.976M639.65 1081.234v-2.976M639.65 1078.258l-.96-3.072M638.69 1075.186l-2.017-2.976M636.677 1072.21l-2.976-2.016M633.69 1070.194l-2.975-.96M630.718 1069.234h-2.976M628.704 1078.258l-.96.96M627.744 1079.218v.96M627.744 1080.178l.96 1.056M628.704 1081.234h.96M629.664 1081.234l1.056-1.056M630.718 1080.178v-.96M630.718 1079.218l-1.056-.96M629.664 1078.258h-.96M628.704 1079.218v.96M628.704 1080.178h.96M629.664 1080.178v-.96M629.664 1079.218h-.96"/></g><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M172.809 979.191h806.38M979.189 979.191v-806.38M979.189 172.811h-806.38M172.809 172.811v806.38M172.809 979.191v-15.936M226.568 979.191v-7.968M280.326 979.191v-7.968M334.085 979.191v-7.968M387.844 979.191v-7.968M441.602 979.191v-15.936M495.36 979.191v-7.968M549.12 979.191v-7.968M602.878 979.191v-7.968M656.637 979.191v-7.968M710.396 979.191v-15.936M764.154 979.191v-7.968M817.913 979.191v-7.968M871.672 979.191v-7.968M925.43 979.191v-7.968M979.189 979.191v-15.936M172.809 188.744v-15.936M226.568 180.77v-7.967M280.326 180.77v-7.967M334.085 180.77v-7.967M387.844 180.77v-7.967M441.602 188.744v-15.936M495.36 180.77v-7.967M549.12 180.77v-7.967M602.878 180.77v-7.967M656.637 180.77v-7.967M710.396 188.744v-15.936M764.154 180.77v-7.967M817.913 180.77v-7.967M871.672 180.77v-7.967M925.43 180.77v-7.967M979.189 188.744v-15.936M171.756 998.297l-3.168 1.056M168.582 999.35l-2.111 3.264M166.476 1002.617l-1.152 5.28M165.33 1007.897v3.168M165.33 1011.057l1.151 5.376M166.476 1016.43l2.112 3.168M168.582 1019.603l3.168 1.057M171.756 1020.66h2.112M173.862 1020.66l3.168-1.057M177.036 1019.603l2.112-3.168M179.142 1016.43l1.152-5.376M180.302 1011.057v-3.168M180.302 1007.897l-1.152-5.28M179.142 1002.617l-2.112-3.264M177.036 999.35l-3.168-1.055M173.862 998.297h-2.112M416.07 1002.617l2.112-1.056M418.176 1001.55l3.264-3.263M421.443 998.297v22.368M440.549 998.297l-3.168 1.056M437.376 999.35l-2.112 3.264M435.27 1002.617l-1.153 5.28M434.122 1007.897v3.168M434.122 1011.057l1.152 5.376M435.27 1016.43l2.111 3.168M437.376 1019.603l3.168 1.057M440.549 1020.66h2.112M442.656 1020.66l3.168-1.057M445.829 1019.603l2.112-3.168M447.935 1016.43l1.152-5.376M449.095 1011.057v-3.168M449.095 1007.897l-1.152-5.28M447.935 1002.617l-2.111-3.264M445.829 999.35l-3.168-1.055M442.656 998.297h-2.112M461.762 998.297l-3.168 1.056M458.602 999.35l-2.112 3.264M456.482 1002.617l-1.056 5.28M455.429 1007.897v3.168M455.429 1011.057l1.056 5.376M456.482 1016.43l2.112 3.168M458.602 1019.603l3.168 1.057M461.762 1020.66h2.208M463.975 1020.66l3.168-1.057M467.135 1019.603l2.112-3.168M469.255 1016.43l1.056-5.376M470.308 1011.057v-3.168M470.308 1007.897l-1.056-5.28M469.255 1002.617l-2.112-3.264M467.135 999.35l-3.168-1.055M463.975 998.297h-2.208M682.756 1003.67v-1.056M682.756 1002.617l1.056-2.112M683.81 1000.497l1.056-1.152M684.863 999.35l2.112-1.055M686.97 998.297h4.32M691.29 998.297l2.111 1.056M693.41 999.35l1.055 1.152M694.463 1000.497l1.056 2.112M695.516 1002.617v2.112M695.516 1004.724l-1.056 2.112M694.463 1006.83l-2.112 3.168M692.356 1010.004 681.7 1020.66M681.69 1020.66h14.88M709.342 998.297l-3.168 1.056M706.169 999.35l-2.112 3.264M704.062 1002.617l-1.152 5.28M702.916 1007.897v3.168M702.916 1011.057l1.152 5.376M704.062 1016.43l2.112 3.168M706.169 1019.603l3.168 1.057M709.342 1020.66h2.112M711.449 1020.66l3.168-1.057M714.622 1019.603l2.112-3.168M716.729 1016.43l1.152-5.376M717.889 1011.057v-3.168M717.889 1007.897l-1.152-5.28M716.729 1002.617l-2.112-3.264M714.622 999.35l-3.168-1.055M711.449 998.297h-2.112M730.555 998.297l-3.168 1.056M727.395 999.35l-2.112 3.264M725.275 1002.617l-1.056 5.28M724.222 1007.897v3.168M724.222 1011.057l1.056 5.376M725.275 1016.43l2.112 3.168M727.395 1019.603l3.168 1.057M730.555 1020.66h2.208M732.768 1020.66l3.168-1.057M735.928 1019.603l2.112-3.168M738.048 1016.43l1.056-5.376M739.102 1011.057v-3.168M739.102 1007.897l-1.056-5.28M738.048 1002.617l-2.112-3.264M735.928 999.35l-3.168-1.055M732.768 998.297h-2.208M952.603 998.297h11.712M964.31 998.297l-6.433 8.544M957.883 1006.83h3.264M961.15 1006.83l2.111 1.056M963.256 1007.897l1.056 1.056M964.31 1008.95l1.055 3.168M965.363 1012.11v2.208M965.363 1014.323l-1.056 3.168M964.31 1017.497l-2.113 2.112M962.203 1019.603l-3.168 1.057M959.03 1020.66h-3.265M955.763 1020.66l-3.168-1.057M952.603 1019.603l-1.056-1.056M951.55 1018.55l-1.056-2.112M978.136 998.297l-3.168 1.056M974.962 999.35l-2.112 3.264M972.856 1002.617l-1.152 5.28M971.709 1007.897v3.168M971.709 1011.057l1.152 5.376M972.856 1016.43l2.112 3.168M974.962 1019.603l3.168 1.057M978.136 1020.66h2.111M980.242 1020.66l3.168-1.057M983.415 1019.603l2.112-3.168M985.522 1016.43l1.152-5.376M986.682 1011.057v-3.168M986.682 1007.897l-1.152-5.28M985.522 1002.617l-2.112-3.264M983.415 999.35l-3.168-1.055M980.242 998.297h-2.112M999.348 998.297l-3.168 1.056M996.188 999.35l-2.112 3.264M994.068 1002.617l-1.055 5.28M993.015 1007.897v3.168M993.015 1011.057l1.056 5.376M994.068 1016.43l2.112 3.168M996.188 1019.603l3.168 1.057M999.348 1020.66h2.208M1001.562 1020.66l3.168-1.057M1004.722 1019.603l2.111-3.168M1006.841 1016.43l1.056-5.376M1007.895 1011.057v-3.168M1007.895 1007.897l-1.056-5.28M1006.841 1002.617l-2.111-3.264M1004.722 999.35l-3.168-1.055M1001.562 998.297h-2.208M172.809 972.858h15.936M172.809 845.848h7.968M172.809 718.837h15.936M172.809 591.84h7.968M172.809 464.924h15.936M172.809 337.927h7.968M172.809 210.917h15.936M963.256 972.858h15.936M971.23 845.848h7.967M963.256 718.837h15.936M971.23 591.84h7.967M963.256 464.924h15.936M971.23 337.927h7.967M963.256 210.917h15.936M103.981 973.618h19.104M144.396 964.018l-1.056-2.112M143.343 961.911l-3.264-1.056M140.076 960.858h-2.111M137.97 960.858l-3.168 1.056M134.797 961.911l-2.112 3.264M132.685 965.178l-1.057 5.28M131.629 970.458v5.28M131.629 975.738l1.056 4.32M132.685 980.058l2.112 2.112M134.797 982.164l3.168 1.056M137.97 983.218h1.056M139.023 983.218l3.264-1.056M142.29 982.164l2.112-2.112M144.396 980.058l1.056-3.264M145.45 976.791v-1.056M145.45 975.738l-1.056-3.168M144.396 972.564l-2.112-2.111M142.29 970.458l-3.264-1.056M139.023 969.391h-1.056M137.97 969.391l-3.168 1.056M134.797 970.458l-2.112 2.112M132.685 972.564l-1.056 3.168M103.981 719.61h19.104M141.13 706.944l-10.56 14.88M130.573 721.824h15.935M141.13 706.944v22.272M103.981 465.697h19.104M131.629 458.204v-1.056M131.629 457.15l1.056-2.111M132.685 455.044l1.056-1.056M133.743 453.99l2.112-1.055M135.85 452.924h4.224M140.076 452.924l2.208 1.056M142.29 453.99l1.056 1.057M143.343 455.044l1.056 2.112M144.396 457.15v2.113M144.396 459.27l-1.056 2.209M143.343 461.47l-2.208 3.169M141.13 464.644 130.57 475.3M130.573 475.297h14.88M136.903 198.917l-3.168 1.056M133.743 199.97l-2.112 3.264M131.629 203.237l-1.056 5.28M130.573 208.517v3.168M130.573 211.69l1.055 5.376M131.629 217.063l2.112 3.168M133.743 220.237l3.168 1.056M136.903 221.29h2.112M139.023 221.29l3.264-1.056M142.29 220.237l2.112-3.168M144.396 217.063l1.056-5.375M145.45 211.69v-3.168M145.45 208.517l-1.056-5.28M144.396 203.237l-2.112-3.264M142.29 199.97l-3.264-1.056M139.023 198.917h-2.112"/></g><g stroke-width="14.4"><path stroke-width="1.919952" d="M10.96 757.437h27.935M20.271 741.504l1.345 2.688M21.615 744.184l2.688 2.591M24.303 746.783l3.936 1.344M28.24 748.117h2.687M30.927 748.117l3.936-1.344M34.863 746.783l2.688-2.591M37.551 744.184l1.344-2.688M38.895 741.504v-4.032M38.895 737.464l-1.344-2.592M37.551 734.877l-2.688-2.688M34.863 732.184l-3.936-1.344M30.927 730.837H28.24M28.24 730.837l-3.937 1.344M24.303 732.184l-2.688 2.688M21.615 734.877l-1.344 2.592M20.271 737.464v4.032M20.271 706.944h21.312M41.583 706.944l3.936 1.344M45.519 708.278l1.344 1.344M46.863 709.624l1.344 2.592M48.207 712.224v4.032M48.207 716.25l-1.344 2.593M24.303 706.944l-2.688 2.688M21.615 709.624l-1.344 2.592M20.271 712.224v4.032M20.271 716.25l1.345 2.593M21.615 718.837l2.688 2.688M24.303 721.53l3.936 1.345M28.24 722.877h2.687M30.927 722.877l3.936-1.344M34.863 721.53l2.688-2.687M37.551 718.837l1.344-2.591M38.895 716.25v-4.031M38.895 712.224l-1.344-2.592M37.551 709.624l-2.688-2.688M20.271 675.065h18.624M25.647 675.065l-4.031-4.032M21.615 671.039l-1.344-2.688M20.271 668.345v-3.935M20.271 664.412l1.345-2.688M21.615 661.719l4.032-1.344M25.647 660.386h13.248M25.647 660.386l-4.031-3.936M21.615 656.44l-1.344-2.689M20.271 653.76v-4.033M20.271 649.72l1.345-2.593M21.615 647.133l4.032-1.344M25.647 645.786h13.248M20.271 620.547h18.624M24.303 620.547l-2.688 2.688M21.615 623.227l-1.344 2.591M20.271 625.826v4.032M20.271 629.853l1.345 2.592M21.615 632.44l2.688 2.688M24.303 635.133l3.936 1.344M28.24 636.48h2.687M30.927 636.48l3.936-1.344M34.863 635.133l2.688-2.688M37.551 632.44l1.344-2.592M38.895 629.853v-4.032M38.895 625.826l-1.344-2.591M37.551 623.227l-2.688-2.688M24.303 596.64l-2.688 1.249M21.615 597.88l-1.344 4.032M20.271 601.92v4.032M20.271 605.947l1.345 3.936M21.615 609.88l2.688 1.344M24.303 611.227l2.592-1.344M26.895 609.88l1.345-2.688M28.24 607.2l1.343-6.624M29.583 600.574l1.344-2.688M30.927 597.88l2.688-1.247M33.615 596.64h1.248M34.863 596.64l2.688 1.249M37.551 597.88l1.344 4.032M38.895 601.92v4.032M38.895 605.947l-1.344 3.936M37.551 609.88l-2.688 1.344M24.303 573.988l-2.688 1.344M21.615 575.321l-1.344 4.032M20.271 579.361v3.936M20.271 583.294l1.345 4.032M21.615 587.32l2.688 1.345M24.303 588.667l2.592-1.344M26.895 587.32l1.345-2.687M28.24 584.64l1.343-6.623M29.583 578.014l1.344-2.688M30.927 575.321l2.688-1.344M33.615 573.988h1.248M34.863 573.988l2.688 1.344M37.551 575.321l1.344 4.032M38.895 579.361v3.936M38.895 583.294l-1.344 4.032M37.551 587.32l-2.688 1.345M10.96 535.482v2.592M10.96 538.082l1.344 2.688M12.304 540.762l4.032 1.344M16.336 542.109h22.559M20.271 546.042v-9.216M20.271 527.522h18.624M28.24 527.522l-3.937-1.344M24.303 526.176l-2.688-2.688M21.615 523.482l-1.344-2.688M20.271 520.802v-3.935M20.271 495.55h18.624M24.303 495.55l-2.688 2.688M21.615 498.243l-1.344 2.688M20.271 500.923v3.936M20.271 504.87l1.345 2.687M21.615 507.55l2.688 2.687M24.303 510.243l3.936 1.248M28.24 511.483h2.687M30.927 511.483l3.936-1.248M34.863 510.243l2.688-2.688M37.551 507.55l1.344-2.688M38.895 504.87v-3.936M38.895 500.923l-1.344-2.688M37.551 498.243l-2.688-2.688M24.303 470.31l-2.688 2.688M21.615 472.99l-1.344 2.688M20.271 475.684v3.935M20.271 479.617l1.345 2.688M21.615 482.31l2.688 2.688M24.303 484.99l3.936 1.248M28.24 486.243h2.687M30.927 486.243l3.936-1.248M34.863 484.99l2.688-2.688M37.551 482.31l1.344-2.688M38.895 479.617v-3.936M38.895 475.684l-1.344-2.688M37.551 472.99l-2.688-2.688M10.96 459.644h22.655M33.615 459.644l3.936-1.248M37.551 458.404l1.344-2.688M38.895 455.71v-2.687M20.271 463.684v-9.312M10.96 446.404l1.344-1.344M12.304 445.058l-1.344-1.344M10.96 443.711l-1.344 1.344M9.616 445.058l1.344 1.344M20.271 445.058h18.624M20.271 429.125l1.345 2.688M21.615 431.805l2.688 2.592M24.303 434.405l3.936 1.344M28.24 435.751h2.687M30.927 435.751l3.936-1.344M34.863 434.405l2.688-2.592M37.551 431.805l1.344-2.688M38.895 429.125v-4.032M38.895 425.085l-1.344-2.592M37.551 422.498l-2.688-2.688M34.863 419.805l-3.936-1.344M30.927 418.472H28.24M28.24 418.472l-3.937 1.344M24.303 419.805l-2.688 2.688M21.615 422.498l-1.344 2.592M20.271 425.085v4.032M20.271 409.152h18.624M25.647 409.152l-4.031-3.936M21.615 405.219l-1.344-2.688M20.271 402.525v-3.935M20.271 398.592l1.345-2.688M21.615 395.912l4.032-1.344M25.647 394.566h13.248"/></g></g><g stroke="gold"><g stroke-width="28.8"><path stroke-width="3.839904" d="M979.189 226.09h-.096M979.096 226.09H979M979.002 226.09h-.096M978.909 226.09h-.096M978.802 226.09h-.096M978.709 226.09h-.096M978.616 226.09h-.096M978.522 226.09h-.096M978.429 226.09h-.096M978.322 226.09h-.096M978.229 226.09h-.096M978.136 226.09h-.096M978.042 226.09h-.096M977.949 226.09h-.096M977.842 226.09h-.096M977.749 226.09h-.096M977.656 226.09h-.096M977.562 226.09h-.096M977.469 226.09h-.096M977.362 226.09h-.096M977.269 226.09h-.096M977.176 226.09h-.096M977.082 226.09h-.096M976.989 226.09h-.096M976.882 226.09h-.096M976.789 226.09h-.192M976.602 226.09h-.096M976.509 226.09h-.096M976.402 226.09h-.192M976.216 226.09h-.096M976.122 226.09h-.096M976.029 226.09h-.096M975.922 226.09h-.192M975.736 226.09h-.096M975.642 226.09h-.096M975.549 226.09h-.096M975.442 226.09h-.096M975.349 226.09h-.192M975.162 226.09h-.192M974.962 226.09h-.096M974.869 226.09h-.192M974.682 226.09h-.096M974.589 226.09h-.096M974.482 226.09h-.192M974.296 226.09h-.192M974.109 226.09h-.192M973.909 226.09h-.096M973.816 226.09h-.192M973.629 226.09h-.192M973.429 226.09h-.096M973.336 226.09h-.192M973.149 226.09h-.192M972.949 226.09h-.192M972.762 226.09h-.192M972.562 226.09h-.193M972.376 226.09h-.192M972.189 226.09h-.19M971.989 226.09h-.097M971.896 226.09h-.192M971.709 226.09h-.192M971.509 226.09h-.192M971.322 226.09h-.193M971.122 226.09h-.192M970.936 226.09h-.288M970.642 226.09h-.288M970.362 226.09h-.384M969.976 226.09h-.192M969.79 226.09h-.289M969.496 226.09h-.288M969.202 226.09h-.385M968.83 226.09h-.192M968.63 226.09h-.289M968.35 226.09h-.482M967.87 226.09h-.289M967.576 226.09h-.383M967.19 226.09h-.385M966.802 226.09h-.48M966.323 226.09h-.288M966.043 226.09h-.288M965.75 226.09h-.383M965.363 226.09h-.288M965.083 226.09h-.194M964.883 226.09h-.384M964.51 226.09h-.383M964.123 226.09h-.288M963.83 226.09h-.385M963.443 226.09h-.386M963.07 226.09h-.383M962.683 226.09h-.384M962.296 226.09h-.385M961.91 226.09h-.386M961.523 226.09l-.191.096M961.336 226.183h-.192M961.15 226.183h-.385M960.763 226.183l-.864.384M959.896 226.57h-.481M959.416 226.57h-.383M959.03 226.57h-.48M958.55 226.57h-.48M958.07 226.57h-.96M957.11 226.57h-.48M956.63 226.57h-.577M956.056 226.57l-.48.096M955.576 226.663l-.576.096M955.003 226.756h-.576M954.43 226.756h-.48M953.95 226.756h-.672M953.27 226.756h-.576M952.696 226.756h-.576M952.123 226.756h-.576M951.55 226.756h-.672M950.87 226.756h-.672M950.203 226.756h-.288M949.91 226.756h-.288M949.63 226.756h-.768M948.856 226.756h-.672M948.19 226.756h-.672M947.51 226.756h-.672M946.843 226.756h-.768M946.07 226.756h-.672M945.403 226.756h-.768M944.63 226.756h-.768M943.87 226.756l-.768 1.056M943.096 227.81l-.768.384M942.323 228.196h-.864M941.47 228.196h-.768M940.696 228.196h-.863M939.83 228.196h-.864M938.963 228.196h-.865M938.11 228.196h-.384M937.723 228.196h-.48M937.243 228.196h-.672M936.563 228.196h-.672M935.897 228.196h-1.344M934.55 228.196h-.672M933.883 228.196h-.768M933.11 228.196h-.96M932.15 228.196h-1.44M930.71 228.196h-.96M929.75 228.196l-.48.576M929.27 228.77l-1.056.864M928.217 229.636h-1.056M927.163 229.636h-1.535M925.63 229.636l-1.056.384M924.564 230.023h-1.152M923.417 230.023l-1.056.288M922.364 230.316l-.864.096M921.497 230.41l-.864.384M920.63 230.796h-1.632M919.004 230.796l-1.248.384M917.75 231.17h-1.152M916.604 231.17l-1.152.288M915.444 231.463l-1.44.48M914.004 231.943h-1.632M912.377 231.943h-.96M911.417 231.943l-.96.48M910.457 232.423h-1.92M908.537 232.423l-1.344.48M907.19 232.903h-1.631M905.564 232.903h-1.056M904.51 232.903l-1.055.672M903.444 233.57h-2.016M901.43 233.57l-1.055.48M900.377 234.05h-1.631M898.75 234.05h-1.247M897.498 234.05h-.864M896.63 234.05h-.863M895.764 234.05h-1.344M894.431 234.05h-1.344M893.084 234.05h-1.536M891.551 234.05h-1.152M890.391 234.05h-1.344M889.044 234.05H887.7M887.711 234.05h-.864M886.844 234.05h-.863M885.978 234.05h-1.152M884.831 234.05h-1.152M883.671 234.05h-1.056M882.618 234.05h-.96M881.658 234.05h-.672M880.991 234.05h-.576M880.405 234.05h-1.44M878.965 234.05h-1.536M877.431 234.05h-2.112M875.325 234.05h-1.728M873.591 234.05l-.863 3.072M872.725 237.13l-1.824.864M870.912 237.996l-1.344.672M869.565 238.663l-1.824.48M867.738 239.143h-2.208M865.525 239.143l-1.92.288M863.605 239.436l-.96.96M862.645 240.396h-1.824M860.832 240.396h-.96M859.872 240.396l-1.92.288M857.952 240.676l-.96 1.152M856.992 241.836h-2.016M854.965 241.836h-1.728M853.245 241.836h-1.44M851.805 241.836l-1.248 1.344M850.552 243.17h-2.592M847.965 243.17l-2.111.863M845.846 244.036l-2.784.864M843.072 244.903h-1.248M841.819 244.903h-1.152M840.672 244.903h-1.632M839.032 244.903l-2.016 1.344M837.02 246.25l-1.249.383M835.766 246.636h-1.632M834.14 246.636l-3.36.864M830.78 247.49l-1.633.96M829.153 248.45h-1.44M827.713 248.45H825.6M825.593 248.45h-1.344M824.246 248.45l-1.344 1.631M822.913 250.09l-1.536.095M821.366 250.183l-3.264.384M818.113 250.57l-2.976 1.44M815.126 252.01h-1.248M813.886 252.01h-2.4M811.486 252.01l-2.496 1.631M808.993 253.636l-2.112.288M806.873 253.93l-2.88.191M803.993 254.116l-2.88 1.824M801.113 255.942h-1.92M799.193 255.942h-2.016M797.18 255.942l-2.688 1.344M794.487 257.289l-1.44.768M793.047 258.049h-3.552M789.5 258.049l-1.824 1.632M787.674 259.689l-2.016.576M785.66 260.262h-2.016M783.647 260.262l-2.016.096M781.634 260.356l-1.536 2.112M780.087 262.476l-2.688.192M777.407 262.662h-2.112M775.287 262.662h-1.056M774.234 262.662l-1.056.672M773.18 263.329l-.863 1.632M772.314 264.969l-.864.096M771.447 265.062h-.864M770.594 265.062h-.96M769.634 265.062h-.768M768.86 265.062h-.863M767.994 265.062l-.768.096M767.234 265.156l-1.44 1.44M765.794 266.595l-.672 1.056M765.114 267.649l-.576.192M764.54 267.849h-.671M763.874 267.849h-1.44M762.434 267.849h-1.536M760.888 267.849h-.672M760.221 267.849h-.768M759.448 267.849h-.576M758.874 267.849l-.576 2.016M758.301 269.862l-1.057.768M757.248 270.635l-1.152.096M756.088 270.729h-.96M755.128 270.729h-.959M754.168 270.729h-.672M753.501 270.729h-1.152M752.355 270.729h-.96M751.395 270.729l-.576.768M750.808 271.489l-1.152 2.112M749.661 273.609l-1.153.096M748.515 273.702h-1.152M747.355 273.702h-.767M746.595 273.702h-.77M745.821 273.702h-.766M745.048 273.702h-.768M744.288 273.702h-1.632M742.648 273.702l-.768.576M741.888 274.275l-.768 2.304M741.115 276.582l-.768.192M740.355 276.769l-.768.096M739.582 276.875h-.768M738.808 276.875h-.864M737.955 276.875h-1.152M736.795 276.875h-.576M736.222 276.875h-1.248M734.968 276.875h-1.152M733.822 276.875h-1.056M732.768 276.875H732M731.995 276.875h-1.248M730.755 276.875h-.768M729.982 276.875h-1.248M728.728 276.875h-.768M727.968 276.875h-.864M727.102 276.875h-1.152M725.955 276.875h-1.248M724.702 276.875h-.864M723.835 276.875h-1.248M722.595 276.875h-.768M721.822 276.875h-.864M720.955 276.875h-1.248M719.715 276.875h-.864M718.849 276.875h-.768M718.075 276.875h-.864M717.209 276.875h-.864M716.355 276.875h-.384M715.969 276.875h-.864M715.102 276.875h-.864M714.235 276.875h-1.247M712.996 276.875h-.576M712.409 276.875h-.48M711.929 276.875h-.672M711.262 276.875h-.768M710.489 276.875h-.864M709.636 276.875h-.48M709.156 276.875h-.864M708.289 276.875h-.864M707.422 276.875h-1.248M706.169 276.875h-.864M705.316 276.875h-1.344M703.97 276.875h-1.249M702.716 276.875h-.674M702.05 276.875h-.673M701.37 276.875h-.865M700.516 276.875h-.864M699.65 276.875h-1.345M698.303 276.875h-.864M697.436 276.875h-.864M696.57 276.875h-.865M695.716 276.875h-.864M694.85 276.875h-.48M694.37 276.875h-.865M693.503 276.875h-1.344M692.156 276.875h-.864M691.303 276.875h-.482M690.81 276.875h-.865M689.956 276.875h-.96M688.996 276.875h-.864M688.13 276.875h-.48M687.65 276.875h-.386M687.263 276.875h-.96M686.303 276.875h-.864M685.436 276.875h-.96M684.476 276.875h-1.342M683.143 276.875h-.673M682.463 276.875h-.48M681.983 276.875h-.672M681.316 276.875h-.864M680.45 276.875h-.96M679.49 276.875h-.48M679.01 276.875h-.866M678.143 276.875h-.959M677.183 276.875h-.96M676.223 276.875h-.384M675.836 276.875h-.48M675.356 276.875h-.48M674.876 276.875h-.48M674.396 276.875h-.48M673.916 276.875h-.48M673.436 276.875h-.383M673.063 276.875h-.48M672.583 276.875h-.288M672.29 276.875h-.192M672.103 276.875h-.48M671.623 276.875h-.96M670.663 276.875l-1.824.192M668.837 277.062l-.96 1.536M667.877 278.595l-.96 12.288M666.917 290.888l-.96 29.951M665.957 320.834l-.864 5.952M665.09 326.794l-.96.576M664.13 327.367l-.96 1.152M663.17 328.514l-.96 1.536M662.21 330.047l-.96 1.056M661.25 331.114l-.96.48M660.29 331.594l-.48.48M659.81 332.074l-.48.96M659.33 333.034l-.96 1.632M658.37 334.66l-.96 1.536M657.41 336.194l-1.92 1.056M655.49 337.247l-.96 1.632M654.53 338.887l-.96 1.344M653.57 340.234l-.96.96M652.61 341.194l-.96 1.44M651.65 342.634l-.96 1.824M650.69 344.447l-1.056 1.248M649.637 345.7l-.96 1.152M648.677 346.847l-.96 3.072M647.717 349.927l-1.92 1.536M645.797 351.46l-1.057.672M644.744 352.127l-.48.768M644.264 352.9l-.48 1.536M643.784 354.433l-.959 1.824M642.824 356.26l-1.057 2.016M641.757 358.273l-1.918 3.264M639.85 361.54l-1.057 1.728M638.784 363.273l-.96 1.152M637.824 364.42l-.959 2.208M636.864 366.633l-1.057 2.592M635.81 369.22l-.96 1.632M634.85 370.846l-1.054.96M633.797 371.806l-.48 1.056M633.318 372.873l-.48 2.208M632.838 375.073l-1.058 3.84M631.784 378.913l-2.014.672M629.77 379.593l-.96.096M628.798 379.686h-.576M628.224 379.686h-.48M627.744 379.686h-.96M626.784 379.686h-1.056M625.731 379.686h-2.016M623.718 379.686h-1.056M622.651 379.686h-1.056M621.598 379.686h-.96M620.638 379.686h-1.056M619.585 379.686h-1.056M618.531 379.686h-1.056M617.478 379.686h-2.016M615.451 379.686h-1.056M614.398 379.686h-1.056M613.345 379.686h-1.056M612.291 379.686h-1.056M611.238 379.686h-1.056M610.171 379.686h-.96M609.211 379.686h-1.056M608.158 379.686h-1.056M607.105 379.686h-1.056M606.052 379.686h-1.056M604.998 379.686h-2.112M602.878 379.686h-1.056M601.825 379.686h-1.152M600.678 379.686h-1.056M599.612 379.686h-1.056M598.558 379.686h-2.112M596.452 379.686h-1.056M595.398 379.686h-1.056M594.332 379.686h-2.208M592.132 379.686h-1.056M591.079 379.686h-.576M590.492 379.686h-.48M590.012 379.686h-1.056M588.959 379.686h-1.152M587.812 379.686H585.7M585.692 379.686h-1.152M584.545 379.686h-1.056M583.492 379.686h-1.056M582.439 379.686h-1.152M581.279 379.686h-1.056M580.225 379.686h-1.151M579.079 379.686h-1.056M578.012 379.686h-1.15M576.866 379.686h-2.21M574.652 379.686h-1.054M573.599 379.686h-1.153M572.452 379.686h-1.056M571.399 379.686h-1.152M570.24 379.686h-1.058M569.186 379.686h-1.152M568.04 379.686h-2.209M565.826 379.686h-1.152M564.68 379.686h-1.153M563.52 379.686h-1.057M562.466 379.686h-1.153M561.32 379.686h-1.153M560.16 379.686h-1.151M559.013 379.686h-1.056M557.96 379.686h-1.153M556.8 379.686h-2.305M554.493 379.686h-1.152M553.346 379.686h-1.152M552.2 379.686h-1.056M551.133 379.686h-1.152M549.986 379.686h-1.152M548.84 379.686h-1.152M547.68 379.686h-2.304M545.373 379.686h-2.304M543.08 379.686h-1.152M541.92 379.686h-1.152M540.773 379.686h-1.152M539.613 379.686h-1.152M538.467 379.686h-1.152M537.32 379.686h-1.152M536.16 379.686h-2.4M533.76 379.686h-1.152M532.613 379.686h-1.152M531.453 379.686h-1.152M530.307 379.686h-1.152M529.16 379.686h-2.4M526.76 379.686h-2.304M524.454 379.686h-1.248M523.2 379.686h-1.152M522.054 379.686h-1.152M520.894 379.686h-1.248M519.654 379.686h-2.304M517.347 379.686H516.1M516.094 379.686h-1.152M514.947 379.686h-2.4M512.547 379.686h-2.4M510.147 379.686h-1.152M509 379.686h-1.247M507.747 379.686h-2.4M505.347 379.686h-2.4M502.947 379.686h-1.152M501.8 379.686h-1.247M500.547 379.686h-2.4M498.148 379.686H496.9M496.894 379.686h-1.152M495.748 379.686h-2.496M493.254 379.686h-2.4M490.854 379.686h-1.248M489.601 379.686h-1.152M488.454 379.686h-2.495M485.961 379.686h-2.4M483.561 379.686h-1.248M482.308 379.686h-1.248M481.055 379.686h-2.496M478.561 379.686h-2.4M476.161 379.686h-2.496M473.668 379.686h-2.496M471.175 379.686h-1.248M469.922 379.686h-1.248M468.682 379.686h-2.496M466.175 379.686h-2.4M463.775 379.686h-2.592M461.188 379.686h-1.249M459.935 379.686h-1.246M458.695 379.686H456.2M456.202 379.686h-2.496M453.695 379.686H451.2M451.202 379.686h-2.496M448.709 379.686h-2.496M446.216 379.686h-1.344M444.869 379.686h-1.248M443.616 379.686h-2.496M441.122 379.686h-2.497M438.629 379.686h-2.59M436.042 379.686h-2.497M433.536 379.686h-2.59M430.95 379.686h-2.498M428.456 379.686h-2.59M425.856 379.686h-1.25M424.616 379.686h-1.343M423.27 379.686h-2.498M420.776 379.686h-2.59M418.176 379.686h-2.593M415.59 379.686h-2.495M413.096 379.686h-2.593M410.496 379.686h-2.592M407.91 379.686h-2.592M405.323 379.686h-2.592M402.723 379.686h-2.592M400.137 379.686h-1.248M398.883 379.686h-1.248M397.643 379.686h-2.592M395.043 379.686h-2.591M392.457 379.686h-2.592M389.857 379.686h-2.592M387.27 379.686h-2.592M384.684 379.686h-2.592M382.084 379.686h-2.592M379.497 379.686h-1.344M378.15 379.686h-1.247M376.897 379.686h-2.592M374.31 379.686h-2.591M371.724 379.686h-2.592M369.124 379.686h-2.592M366.538 379.686h-2.592M363.938 379.686h-2.592M361.351 379.686h-2.688M358.658 379.686h-2.592M356.071 379.686h-2.592M353.484 379.686h-1.247M352.231 379.686h-1.344M350.885 379.686h-2.592M348.298 379.686h-2.592M345.698 379.686h-2.592M343.111 379.686h-2.592M340.525 379.686h-2.592M337.925 379.686h-2.592M335.338 379.686h-2.592M332.738 379.686h-2.496M330.245 379.686h-5.184M325.059 379.686h-2.592M322.472 379.686h-2.592M319.885 379.686h-2.592M317.285 379.686h-2.496M314.792 379.686H312.2M312.206 379.686h-2.592M309.606 379.686h-2.496M307.112 379.686h-2.592M304.526 379.686h-5.088M299.433 379.686h-2.496M296.94 379.686h-2.497M294.446 379.686h-2.592M291.846 379.686h-2.496M289.353 379.686h-2.496M286.86 379.686h-2.496M284.366 379.686h-4.992M279.366 379.686h-2.4M276.966 379.686h-2.496M274.473 379.686h-2.496M271.98 379.686h-2.4M269.58 379.686h-2.496M267.087 379.686h-2.4M264.687 379.686h-2.4M262.287 379.686h-2.4M259.887 379.686h-4.8M255.087 379.686h-2.4M252.687 379.686h-2.304M250.38 379.686h-2.4M247.98 379.686h-2.303M245.674 379.686h-2.304M243.367 379.686h-2.304M241.06 379.686h-2.303M238.767 379.686h-2.208M236.554 379.686h-2.304M234.247 379.686h-2.207M232.048 379.686h-2.208M229.834 379.686h-2.208M227.621 379.686h-4.32M223.301 379.686h-2.112M221.194 379.686h-2.207M218.981 379.686h-4.128M214.861 379.686h-2.016M212.848 379.686h-2.016M210.821 379.686h-2.016M208.808 379.686h-1.92M206.888 379.686h-1.92M204.968 379.686h-1.92M203.048 379.686h-1.92M201.128 379.686h-1.824M199.302 379.686h-3.552M195.755 379.686h-1.728M194.022 379.686h-1.728M192.302 379.686h-1.536M190.769 379.686h-1.632M189.129 379.686h-1.632M187.502 379.686h-1.536M185.969 379.686h-2.784M183.182 379.686h-1.344M181.835 379.686h-1.44M180.395 379.686h-1.151M179.249 379.686H178M177.996 379.686h-2.112M175.889 379.686h-.864M175.022 379.686h-1.152M173.862 379.686h-.576M173.289 379.686h-.192M173.102 379.686h-.192M172.902 379.686h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M258.54 347.233v20.448M258.54 357.993l2.88-2.976M261.42 355.007l1.92-.96M263.34 354.047h2.976M266.313 354.047l1.92.96M268.233 355.007l.96 2.976M269.193 357.993v9.696M278.98 351.167l1.92-.96M280.9 350.207l2.976-2.976M283.886 347.233v20.448M460.135 347.233v20.448M460.135 357.993l2.88-2.976M463.015 355.007l1.92-.96M464.935 354.047h2.976M467.908 354.047l1.92.96M469.828 355.007l.96 2.976M470.788 357.993v9.696M480.575 351.167l1.92-.96M482.495 350.207l2.976-2.976M485.481 347.233v20.448M661.73 244.33v20.543M661.73 255.076l2.88-2.88M664.61 252.196l1.92-1.056M666.53 251.143h2.976M669.503 251.143l1.92 1.055M671.423 252.196l.96 2.88M672.383 255.076v9.792M682.17 248.263l1.92-.96M684.09 247.303l2.975-2.976M687.076 244.33v20.543M863.325 201.61v20.448M863.325 212.263l2.88-2.88M866.205 209.384l1.92-.96M868.125 208.424h2.976M871.098 208.424l1.92.96M873.018 209.384l.96 2.88M873.978 212.263v9.792M883.765 205.45l1.92-.96M885.685 204.49l2.975-2.88M888.671 201.61v20.448"/></g></g><g stroke="#87cefa"><g stroke-width="28.8"><path stroke-width="3.839904" d="M979.189 794.102h-.096M979.096 794.102H979M979.002 794.102h-.096M978.909 794.102h-.096M978.802 794.102h-.096M978.709 794.102h-.096M978.616 794.102h-.096M978.522 794.102h-.096M978.429 794.102h-.096M978.322 794.102h-.096M978.229 794.102h-.096M978.136 794.102h-.096M978.042 794.102h-.096M977.949 794.102h-.096M977.842 794.102h-.096M977.749 794.102h-.096M977.656 794.102h-.096M977.562 794.102h-.096M977.469 794.102h-.096M977.362 794.102h-.096M977.269 794.102h-.096M977.176 794.102h-.096M977.082 794.102h-.096M976.989 794.102h-.096M976.882 794.102h-.096M976.789 794.102h-.192M976.602 794.102h-.096M976.509 794.102h-.096M976.402 794.102h-.192M976.216 794.102h-.096M976.122 794.102h-.096M976.029 794.102h-.096M975.922 794.102h-.192M975.736 794.102h-.096M975.642 794.102h-.096M975.549 794.102h-.096M975.442 794.102h-.096M975.349 794.102h-.192M975.162 794.102h-.192M974.962 794.102h-.096M974.869 794.102h-.192M974.682 794.102h-.096M974.589 794.102h-.096M974.482 794.102h-.192M974.296 794.102h-.192M974.109 794.102h-.192M973.909 794.102h-.096M973.816 794.102h-.192M973.629 794.102h-.192M973.429 794.102h-.096M973.336 794.102h-.192M973.149 794.102h-.192M972.949 794.102h-.192M972.762 794.102h-.192M972.562 794.102h-.193M972.376 794.102h-.192M972.189 794.102h-.19M971.989 794.102h-.097M971.896 794.102h-.192M971.709 794.102h-.192M971.509 794.102h-.192M971.322 794.102h-.193M971.122 794.102h-.192M970.936 794.102h-.288M970.642 794.102h-.288M970.362 794.102h-.384M969.976 794.102h-.192M969.79 794.102h-.289M969.496 794.102h-.288M969.202 794.102h-.385M968.83 794.102h-.192M968.63 794.102h-.289M968.35 794.102h-.482M967.87 794.102h-.289M967.576 794.102h-.383M967.19 794.102h-.385M966.802 794.102h-.48M966.323 794.102h-.288M966.043 794.102h-.288M965.75 794.102h-.383M965.363 794.102h-.288M965.083 794.102h-.194M964.883 794.102h-.384M964.51 794.102h-.383M964.123 794.102h-.288M963.83 794.102h-.385M963.443 794.102h-.386M963.07 794.102h-.383M962.683 794.102h-.384M962.296 794.102h-.385M961.91 794.102l-.386 1.152M961.523 795.262l-.191.768M961.336 796.022l-.192 1.44M961.15 797.462l-.385.288M960.763 797.756l-.864 6.911M959.896 804.662h-.481M959.416 804.662h-.383M959.03 804.662h-.48M958.55 804.662h-.48M958.07 804.662h-.96M957.11 804.662h-.48M956.63 804.662h-.577M956.056 804.662l-.48 1.728M955.576 806.395l-.576.288M955.003 806.675h-.576M954.43 806.675h-.48M953.95 806.675h-.672M953.27 806.675h-.576M952.696 806.675h-.576M952.123 806.675h-.576M951.55 806.675h-.672M950.87 806.675h-.672M950.203 806.675h-.288M949.91 806.675h-.288M949.63 806.675h-.768M948.856 806.675h-.672M948.19 806.675h-.672M947.51 806.675h-.672M946.843 806.675h-.768M946.07 806.675h-.672M945.403 806.675h-.768M944.63 806.675h-.768M943.87 806.675l-.768 19.872M943.096 826.555l-.768 4.704M942.323 831.261l-.864.192M941.47 831.448h-.768M940.696 831.448h-.863M939.83 831.448h-.864M938.963 831.448h-.865M938.11 831.448h-.384M937.723 831.448h-.48M937.243 831.448h-.672M936.563 831.448h-.672M935.897 831.448h-1.344M934.55 831.448h-.672M933.883 831.448h-.768M933.11 831.448h-.96M932.15 831.448h-1.44M930.71 831.448h-.96M929.75 831.448l-.48 7.392M929.27 838.834l-1.056 14.112M928.217 852.954h-1.056M927.163 852.954l-1.535.288M925.63 853.234l-1.056 3.552M924.564 856.794h-1.152M923.417 856.794l-1.056 2.976M922.364 859.767l-.864 1.152M921.497 860.914l-.864 4.128M920.63 865.047h-1.632M919.004 865.047l-1.248 4.416M917.75 869.46h-1.152M916.604 869.46l-1.152 2.208M915.444 871.674l-1.44 4.128M914.004 875.794h-1.632M912.377 875.794h-.96M911.417 875.794l-.96 3.167M910.457 878.967l-1.92.096M908.537 879.06l-1.344 3.456M907.19 882.513l-1.631.096M905.564 882.62h-1.056M904.51 882.62l-1.055 4.992M903.444 887.607h-2.016M901.43 887.607l-1.055 3.552M900.377 891.153l-1.631.288M898.75 891.447h-1.247M897.498 891.447h-.864M896.63 891.447h-.863M895.764 891.447h-1.344M894.431 891.447h-1.344M893.084 891.447h-1.536M891.551 891.447h-1.152M890.391 891.447h-1.344M889.044 891.447H887.7M887.711 891.447h-.864M886.844 891.447h-.863M885.978 891.447h-1.152M884.831 891.447h-1.152M883.671 891.447h-1.056M882.618 891.447h-.96M881.658 891.447h-.672M880.991 891.447h-.576M880.405 891.447h-1.44M878.965 891.447h-1.536M877.431 891.447h-2.112M875.325 891.447h-1.728M873.591 891.447l-.863 33.983M872.725 925.432l-1.824 15.84M870.912 941.272l-1.344 2.688M869.565 943.952l-1.824 1.824M867.738 945.778l-2.208-.096M865.525 945.685l-1.92 1.248M863.605 946.938l-.96 3.552M862.645 950.485h-1.824M860.832 950.485h-.96M859.872 950.485l-1.92.96M857.952 951.445l-.96 4.416M856.992 955.858h-2.016M854.965 955.858l-1.728-.096M853.245 955.765h-1.44M851.805 955.765l-1.248 4.896M850.552 960.658h-2.592M847.965 960.658l-2.111 2.88M845.846 963.538l-2.784 2.88M843.072 966.418h-1.248M841.819 966.418h-1.152M840.672 966.418h-1.632M839.032 966.418l-2.016 4.224M837.02 970.645l-1.249 1.344M835.766 971.991h-1.632M834.14 971.991l-3.36 2.592M830.78 974.578l-1.633 3.168M829.153 977.751l-1.44-.096M827.713 977.658H825.6M825.593 977.658h-1.344M824.246 977.658l-.384 1.536"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M854.485 858.994v20.447M854.485 869.66l2.976-2.88M857.472 866.78l1.92-.96M859.392 865.82h2.88M862.272 865.82l2.016.96M864.285 866.78l.96 2.88M865.245 869.66v9.792M872.058 871.674h11.712M883.765 871.674v-2.016M883.765 869.66l-.96-1.92M882.805 867.74l-.96-.96M881.845 866.78l-2.016-.96M879.831 865.82h-2.88M876.951 865.82l-2.016.96M874.938 866.78l-1.92 1.92M873.018 868.7l-.96 2.976M872.058 871.674v1.92M872.058 873.594l.96 2.88M873.018 876.474l1.92 2.016M874.938 878.487l2.016.96M876.951 879.447h2.88M879.831 879.447l2.016-.96M881.845 878.487l1.92-2.016M891.551 858.994h10.752M902.297 858.994l-5.855 7.776M896.444 866.78h2.88M899.324 866.78l2.016.96M901.337 867.74l.96.96M902.297 868.7l.96 2.976M903.257 871.674v1.92M903.257 873.594l-.96 2.88M902.297 876.474l-2.016 2.016M900.284 878.487l-2.88.96M897.404 879.447h-2.88M894.524 879.447l-2.976-.96M891.551 878.487l-.96-.96M890.591 877.527l-.96-2.016"/></g></g><g stroke="#c03"><g stroke-width="28.8"><path stroke-width="3.839904" d="M979.189 289.542h-.096M979.096 289.542H979M979.002 289.542h-.096M978.909 289.542h-.096M978.802 289.542h-.096M978.709 289.542h-.096M978.616 289.542h-.096M978.522 289.542h-.096M978.429 289.542h-.096M978.322 289.542h-.096M978.229 289.542h-.096M978.136 289.542h-.096M978.042 289.542h-.096M977.949 289.542h-.096M977.842 289.542h-.096M977.749 289.542h-.096M977.656 289.542h-.096M977.562 289.542h-.096M977.469 289.542h-.096M977.362 289.542h-.096M977.269 289.542h-.096M977.176 289.542h-.096M977.082 289.542h-.096M976.989 289.542h-.096M976.882 289.542h-.096M976.789 289.542h-.192M976.602 289.542h-.096M976.509 289.542h-.096M976.402 289.542h-.192M976.216 289.542h-.096M976.122 289.542h-.096M976.029 289.542h-.096M975.922 289.542h-.192M975.736 289.542h-.096M975.642 289.542h-.096M975.549 289.542h-.096M975.442 289.542h-.096M975.349 289.542h-.192M975.162 289.542h-.192M974.962 289.542h-.096M974.869 289.542h-.192M974.682 289.542h-.096M974.589 289.542h-.096M974.482 289.542h-.192M974.296 289.542h-.192M974.109 289.542h-.192M973.909 289.542h-.096M973.816 289.542h-.192M973.629 289.542h-.192M973.429 289.542h-.096M973.336 289.542h-.192M973.149 289.542h-.192M972.949 289.542h-.192M972.762 289.542h-.192M972.562 289.542h-.193M972.376 289.542h-.192M972.189 289.542h-.19M971.989 289.542h-.097M971.896 289.542h-.192M971.709 289.542h-.192M971.509 289.542h-.192M971.322 289.542h-.193M971.122 289.542h-.192M970.936 289.542h-.288M970.642 289.542h-.288M970.362 289.542h-.384M969.976 289.542h-.192M969.79 289.542h-.289M969.496 289.542h-.288M969.202 289.542h-.385M968.83 289.542h-.192M968.63 289.542h-.289M968.35 289.542h-.482M967.87 289.542h-.289M967.576 289.542h-.383M967.19 289.542h-.385M966.802 289.542h-.48M966.323 289.542h-.288M966.043 289.542h-.288M965.75 289.542h-.383M965.363 289.542h-.288M965.083 289.542h-.194M964.883 289.542h-.384M964.51 289.542h-.383M964.123 289.542h-.288M963.83 289.542h-.385M963.443 289.542h-.386M963.07 289.542h-.383M962.683 289.542h-.384M962.296 289.542h-.385M961.91 289.542l-.386-.096M961.523 289.448l-.191-.096M961.336 289.355l-.192-.288M961.15 289.062h-.385M960.763 289.062l-.864-1.152M959.896 287.915h-.481M959.416 287.915h-.383M959.03 287.915h-.48M958.55 287.915h-.48M958.07 287.915h-.96M957.11 287.915h-.48M956.63 287.915h-.577M956.056 287.915l-.48-.288M955.576 287.622l-.576-.096M955.003 287.528h-.576M954.43 287.528h-.48M953.95 287.528h-.672M953.27 287.528h-.576M952.696 287.528h-.576M952.123 287.528h-.576M951.55 287.528h-.672M950.87 287.528h-.672M950.203 287.528h-.288M949.91 287.528h-.288M949.63 287.528h-.768M948.856 287.528h-.672M948.19 287.528h-.672M947.51 287.528h-.672M946.843 287.528h-.768M946.07 287.528h-.672M945.403 287.528h-.768M944.63 287.528h-.768M943.87 287.528l-.768-3.168M943.096 284.355l-.768-.96M942.323 283.395h-.864M941.47 283.395h-.768M940.696 283.395h-.863M939.83 283.395h-.864M938.963 283.395h-.865M938.11 283.395h-.384M937.723 283.395h-.48M937.243 283.395h-.672M936.563 283.395h-.672M935.897 283.395h-1.344M934.55 283.395h-.672M933.883 283.395h-.768M933.11 283.395h-.96M932.15 283.395h-1.44M930.71 283.395h-.96M929.75 283.395l-.48-1.536M929.27 281.862l-1.056-2.208M928.217 279.648h-1.056M927.163 279.648l-1.535-.096M925.63 279.555l-1.056-.864M924.564 278.689h-1.152M923.417 278.689l-1.056-.672M922.364 278.022l-.864-.192M921.497 277.835l-.864-.96M920.63 276.875h-1.632M919.004 276.875l-1.248-1.056M917.75 275.809h-1.152M916.604 275.809l-1.152-.576M915.444 275.235l-1.44-1.056M914.004 274.182h-1.632M912.377 274.182h-.96M911.417 274.182l-.96-.96M910.457 273.222h-1.92M908.537 273.222l-1.344-1.056M907.19 272.169h-1.631M905.564 272.169h-1.056M904.51 272.169l-1.055-1.248M903.444 270.915h-2.016M901.43 270.915l-1.055-.864M900.377 270.049l-1.631-.096M898.75 269.955h-1.247M897.498 269.955h-.864M896.63 269.955h-.863M895.764 269.955h-1.344M894.431 269.955h-1.344M893.084 269.955h-1.536M891.551 269.955h-1.152M890.391 269.955h-1.344M889.044 269.955H887.7M887.711 269.955h-.864M886.844 269.955h-.863M885.978 269.955h-1.152M884.831 269.955h-1.152M883.671 269.955h-1.056M882.618 269.955h-.96M881.658 269.955h-.672M880.991 269.955h-.576M880.405 269.955h-1.44M878.965 269.955h-1.536M877.431 269.955h-2.112M875.325 269.955h-1.728M873.591 269.955l-.863-5.375M872.725 264.582l-1.824-1.536M870.912 263.049l-1.344-1.056M869.565 261.996l-1.824-.672M867.738 261.316h-2.208M865.525 261.316l-1.92-.48M863.605 260.836l-.96-1.248M862.645 259.596h-1.824M860.832 259.596h-.96M859.872 259.596l-1.92-.48M857.952 259.116l-.96-1.536M856.992 257.569h-2.016M854.965 257.569h-1.728M853.245 257.569h-1.44M851.805 257.569l-1.248-1.824M850.552 255.756h-2.592M847.965 255.756l-2.111-1.056M845.846 254.69l-2.784-.96M843.072 253.73h-1.248M841.819 253.73h-1.152M840.672 253.73h-1.632M839.032 253.73l-2.016-1.537M837.02 252.196l-1.249-.48M835.766 251.716h-1.632M834.14 251.716l-3.36-.864M830.78 250.85l-1.633-.96M829.153 249.89h-1.44M827.713 249.89H825.6M825.593 249.89h-1.344M824.246 249.89l-1.344-1.729M822.913 248.17l-1.536-.097M821.366 248.076l-3.264-.384M818.113 247.69l-2.976-1.249M815.126 246.436h-1.248M813.886 246.436h-2.4M811.486 246.436l-2.496-1.44M808.993 244.996l-2.112-.288M806.873 244.716l-2.88-.096M803.993 244.61l-2.88-1.537M801.113 243.076h-1.92M799.193 243.076h-2.016M797.18 243.076l-2.688-1.056M794.487 242.023l-1.44-.48M793.047 241.543l-3.552-.096M789.5 241.45l-1.824-1.153M787.674 240.29l-2.016-.385M785.66 239.916h-2.016M783.647 239.916l-2.016-.096M781.634 239.81l-1.536-1.344M780.087 238.476l-2.688-.192M777.407 238.276h-2.112M775.287 238.276h-1.056M774.234 238.276l-1.056-.384M773.18 237.89l-.863-1.056M772.314 236.836l-.864-.096M771.447 236.743h-.864M770.594 236.743h-.96M769.634 236.743h-.768M768.86 236.743h-.863M767.994 236.743h-.768M767.234 236.743l-1.44-.864M765.794 235.876l-.672-.576M765.114 235.303l-.576-.096M764.54 235.21h-.671M763.874 235.21h-1.44M762.434 235.21h-1.536M760.888 235.21h-.672M760.221 235.21h-.768M759.448 235.21h-.576M758.874 235.21l-.576-1.152M758.301 234.05l-1.057-.384M757.248 233.676h-1.152M756.088 233.676h-.96M755.128 233.676h-.959M754.168 233.676h-.672M753.501 233.676h-1.152M752.355 233.676h-.96M751.395 233.676l-.576-.384M750.808 233.29l-1.152-1.056M749.661 232.236h-1.153M748.515 232.236h-1.152M747.355 232.236h-.767M746.595 232.236h-.77M745.821 232.236h-.766M745.048 232.236h-.768M744.288 232.236h-1.632M742.648 232.236l-.768-.288M741.888 231.943l-.768-1.056M741.115 230.89l-.768-.096M740.355 230.796h-.768M739.582 230.796h-.768M738.808 230.796h-.864M737.955 230.796h-1.152M736.795 230.796h-.576M736.222 230.796h-1.248M734.968 230.796h-1.152M733.822 230.796h-1.056M732.768 230.796H732M731.995 230.796h-1.248M730.755 230.796h-.768M729.982 230.796h-1.248M728.728 230.796h-.768M727.968 230.796h-.864M727.102 230.796h-1.152M725.955 230.796h-1.248M724.702 230.796h-.864M723.835 230.796h-1.248M722.595 230.796h-.768M721.822 230.796h-.864M720.955 230.796h-1.248M719.715 230.796h-.864M718.849 230.796h-.768M718.075 230.796h-.864M717.209 230.796h-.864M716.355 230.796h-.384M715.969 230.796h-.864M715.102 230.796h-.864M714.235 230.796h-1.247M712.996 230.796h-.576M712.409 230.796h-.48M711.929 230.796h-.672M711.262 230.796h-.768M710.489 230.796h-.864M709.636 230.796h-.48M709.156 230.796h-.864M708.289 230.796h-.864M707.422 230.796h-1.248M706.169 230.796h-.864M705.316 230.796h-1.344M703.97 230.796h-1.249M702.716 230.796h-.674M702.05 230.796h-.673M701.37 230.796h-.865M700.516 230.796h-.864M699.65 230.796h-1.345M698.303 230.796h-.864M697.436 230.796h-.864M696.57 230.796h-.865M695.716 230.796h-.864M694.85 230.796h-.48M694.37 230.796h-.865M693.503 230.796h-1.344M692.156 230.796h-.864M691.303 230.796h-.482M690.81 230.796h-.865M689.956 230.796h-.96M688.996 230.796h-.864M688.13 230.796h-.48M687.65 230.796h-.386M687.263 230.796h-.96M686.303 230.796h-.864M685.436 230.796h-.96M684.476 230.796h-1.342M683.143 230.796h-.673M682.463 230.796h-.48M681.983 230.796h-.672M681.316 230.796h-.864M680.45 230.796h-.96M679.49 230.796h-.48M679.01 230.796h-.866M678.143 230.796h-.959M677.183 230.796h-.96M676.223 230.796h-.384M675.836 230.796h-.48M675.356 230.796h-.48M674.876 230.796h-.48M674.396 230.796h-.48M673.916 230.796h-.48M673.436 230.796h-.383M673.063 230.796h-.48M672.583 230.796h-.288M672.29 230.796h-.192M672.103 230.796h-.48M671.623 230.796h-.96M670.663 230.796l-1.824-.096M668.837 230.69l-.96-.672M667.877 230.023l-.96-4.416M666.917 225.61l-.96-6.624M665.957 218.983l-.864-.864M665.09 218.117l-.96-.096M664.13 218.023l-.96-.192M663.17 217.837l-.96-.192M662.21 217.637l-.96-.096M661.25 217.543l-.96-.096M660.29 217.45h-.48M659.81 217.45l-.48-.192M659.33 217.25l-.96-.192M658.37 217.063l-.96-.192M657.41 216.877l-1.92-.096M655.49 216.77l-.96-.192M654.53 216.583l-.96-.096M653.57 216.49l-.96-.096M652.61 216.397l-.96-.192M651.65 216.197l-.96-.192M650.69 216.01l-1.056-.096M649.637 215.917l-.96-.096M648.677 215.81l-.96-.288M647.717 215.53l-1.92-.096M645.797 215.437l-1.057-.096M644.744 215.33l-.48-.096M644.264 215.237l-.48-.098M643.784 215.143l-.959-.094M642.824 215.05l-1.057-.193M641.757 214.85l-1.918-.192M639.85 214.663l-1.057-.19M638.784 214.477h-.96M637.824 214.477l-.959-.194M636.864 214.277l-1.057-.192M635.81 214.09l-.96-.096M634.85 213.997h-1.054M633.797 213.997l-.48-.096M633.318 213.89l-.48-.096M632.838 213.797l-1.058-.192M631.784 213.61h-2.014M629.77 213.61h-.96M628.798 213.61l-.576-.096M628.224 213.517h-.48M627.744 213.517h-.96M626.784 213.517h-1.056M625.731 213.517h-2.016M623.718 213.517h-1.056M622.651 213.517h-1.056M621.598 213.517h-.96M620.638 213.517h-1.056M619.585 213.517h-1.056M618.531 213.517h-1.056M617.478 213.517h-2.016M615.451 213.517h-1.056M614.398 213.517h-1.056M613.345 213.517h-1.056M612.291 213.517h-1.056M611.238 213.517h-1.056M610.171 213.517h-.96M609.211 213.517h-1.056M608.158 213.517h-1.056M607.105 213.517h-1.056M606.052 213.517h-1.056M604.998 213.517h-2.112M602.878 213.517h-1.056M601.825 213.517h-1.152M600.678 213.517h-1.056M599.612 213.517h-1.056M598.558 213.517h-2.112M596.452 213.517h-1.056M595.398 213.517h-1.056M594.332 213.517h-2.208M592.132 213.517h-1.056M591.079 213.517h-.576M590.492 213.517h-.48M590.012 213.517h-1.056M588.959 213.517h-1.152M587.812 213.517H585.7M585.692 213.517h-1.152M584.545 213.517h-1.056M583.492 213.517h-1.056M582.439 213.517h-1.152M581.279 213.517h-1.056M580.225 213.517h-1.151M579.079 213.517h-1.056M578.012 213.517h-1.15M576.866 213.517h-2.21M574.652 213.517h-1.054M573.599 213.517h-1.153M572.452 213.517h-1.056M571.399 213.517h-1.152M570.24 213.517h-1.058M569.186 213.517h-1.152M568.04 213.517h-2.209M565.826 213.517h-1.152M564.68 213.517h-1.153M563.52 213.517h-1.057M562.466 213.517h-1.153M561.32 213.517h-1.153M560.16 213.517h-1.151M559.013 213.517h-1.056M557.96 213.517h-1.153M556.8 213.517h-2.305M554.493 213.517h-1.152M553.346 213.517h-1.152M552.2 213.517h-1.056M551.133 213.517h-1.152M549.986 213.517h-1.152M548.84 213.517h-1.152M547.68 213.517h-2.304M545.373 213.517h-2.304M543.08 213.517h-1.152M541.92 213.517h-1.152M540.773 213.517h-1.152M539.613 213.517h-1.152M538.467 213.517h-1.152M537.32 213.517h-1.152M536.16 213.517h-2.4M533.76 213.517h-1.152M532.613 213.517h-1.152M531.453 213.517h-1.152M530.307 213.517h-1.152M529.16 213.517h-2.4M526.76 213.517h-2.304M524.454 213.517h-1.248M523.2 213.517h-1.152M522.054 213.517h-1.152M520.894 213.517h-1.248M519.654 213.517h-2.304M517.347 213.517H516.1M516.094 213.517h-1.152M514.947 213.517h-2.4M512.547 213.517h-2.4M510.147 213.517h-1.152M509 213.517h-1.247M507.747 213.517h-2.4M505.347 213.517h-2.4M502.947 213.517h-1.152M501.8 213.517h-1.247M500.547 213.517h-2.4M498.148 213.517H496.9M496.894 213.517h-1.152M495.748 213.517h-2.496M493.254 213.517h-2.4M490.854 213.517h-1.248M489.601 213.517h-1.152M488.454 213.517h-2.495M485.961 213.517h-2.4M483.561 213.517h-1.248M482.308 213.517h-1.248M481.055 213.517h-2.496M478.561 213.517h-2.4M476.161 213.517h-2.496M473.668 213.517h-2.496M471.175 213.517h-1.248M469.922 213.517h-1.248M468.682 213.517h-2.496M466.175 213.517h-2.4M463.775 213.517h-2.592M461.188 213.517h-1.249M459.935 213.517h-1.246M458.695 213.517H456.2M456.202 213.517h-2.496M453.695 213.517H451.2M451.202 213.517h-2.496M448.709 213.517h-2.496M446.216 213.517h-1.344M444.869 213.517h-1.248M443.616 213.517h-2.496M441.122 213.517h-2.497M438.629 213.517h-2.59M436.042 213.517h-2.497M433.536 213.517h-2.59M430.95 213.517h-2.498M428.456 213.517h-2.59M425.856 213.517h-1.25M424.616 213.517h-1.343M423.27 213.517h-2.498M420.776 213.517h-2.59M418.176 213.517h-2.593M415.59 213.517h-2.495M413.096 213.517h-2.593M410.496 213.517h-2.592M407.91 213.517h-2.592M405.323 213.517h-2.592M402.723 213.517h-2.592M400.137 213.517h-1.248M398.883 213.517h-1.248M397.643 213.517h-2.592M395.043 213.517h-2.591M392.457 213.517h-2.592M389.857 213.517h-2.592M387.27 213.517h-2.592M384.684 213.517h-2.592M382.084 213.517h-2.592M379.497 213.517h-1.344M378.15 213.517h-1.247M376.897 213.517h-2.592M374.31 213.517h-2.591M371.724 213.517h-2.592M369.124 213.517h-2.592M366.538 213.517h-2.592M363.938 213.517h-2.592M361.351 213.517h-2.688M358.658 213.517h-2.592M356.071 213.517h-2.592M353.484 213.517h-1.247M352.231 213.517h-1.344M350.885 213.517h-2.592M348.298 213.517h-2.592M345.698 213.517h-2.592M343.111 213.517h-2.592M340.525 213.517h-2.592M337.925 213.517h-2.592M335.338 213.517h-2.592M332.738 213.517h-2.496M330.245 213.517h-5.184M325.059 213.517h-2.592M322.472 213.517h-2.592M319.885 213.517h-2.592M317.285 213.517h-2.496M314.792 213.517H312.2M312.206 213.517h-2.592M309.606 213.517h-2.496M307.112 213.517h-2.592M304.526 213.517h-5.088M299.433 213.517h-2.496M296.94 213.517h-2.497M294.446 213.517h-2.592M291.846 213.517h-2.496M289.353 213.517h-2.496M286.86 213.517h-2.496M284.366 213.517h-4.992M279.366 213.517h-2.4M276.966 213.517h-2.496M274.473 213.517h-2.496M271.98 213.517h-2.4M269.58 213.517h-2.496M267.087 213.517h-2.4M264.687 213.517h-2.4M262.287 213.517h-2.4M259.887 213.517h-4.8M255.087 213.517h-2.4M252.687 213.517h-2.304M250.38 213.517h-2.4M247.98 213.517h-2.303M245.674 213.517h-2.304M243.367 213.517h-2.304M241.06 213.517h-2.303M238.767 213.517h-2.208M236.554 213.517h-2.304M234.247 213.517h-2.207M232.048 213.517h-2.208M229.834 213.517h-2.208M227.621 213.517h-4.32M223.301 213.517h-2.112M221.194 213.517h-2.207M218.981 213.517h-4.128M214.861 213.517h-2.016M212.848 213.517h-2.016M210.821 213.517h-2.016M208.808 213.517h-1.92M206.888 213.517h-1.92M204.968 213.517h-1.92M203.048 213.517h-1.92M201.128 213.517h-1.824M199.302 213.517h-3.552M195.755 213.517h-1.728M194.022 213.517h-1.728M192.302 213.517h-1.536M190.769 213.517h-1.632M189.129 213.517h-1.632M187.502 213.517h-1.536M185.969 213.517h-2.784M183.182 213.517h-1.344M181.835 213.517h-1.44M180.395 213.517h-1.151M179.249 213.517H178M177.996 213.517h-2.112M175.889 213.517h-.864M175.022 213.517h-1.152M173.862 213.517h-.576M173.289 213.517h-.192M173.102 213.517h-.192M172.902 213.517h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M249.7 181.064v20.448M249.7 191.81l2.976-2.975M252.687 188.837l1.92-.96M254.607 187.877h2.88M257.487 187.877l2.016.96M259.5 188.837l.96 2.976M260.46 191.81v9.696M267.273 193.73h11.712M278.98 193.73v-1.92M278.98 191.81l-.96-1.92M278.02 189.89l-.96-1.055M277.06 188.837l-2.016-.96M275.046 187.877h-2.88M272.167 187.877l-2.016.96M270.153 188.837l-1.92 2.016M268.233 190.85l-.96 2.88M267.273 193.73v2.017M267.273 195.757l.96 2.88M268.233 198.637l1.92 1.92M270.153 200.557l2.016.96M272.167 201.517h2.88M275.046 201.517l2.016-.96M277.06 200.557l1.92-1.92M294.54 181.064l-9.696 13.632M284.846 194.69h14.592M294.54 181.064v20.448M451.295 181.064v20.448M451.295 191.81l2.976-2.975M454.282 188.837l1.92-.96M456.202 187.877h2.88M459.082 187.877l2.016.96M461.095 188.837l.96 2.976M462.055 191.81v9.696M468.868 193.73h11.712M480.575 193.73v-1.92M480.575 191.81l-.96-1.92M479.615 189.89l-.96-1.055M478.655 188.837l-2.016-.96M476.641 187.877h-2.88M473.761 187.877l-2.015.96M471.748 188.837l-1.92 2.016M469.828 190.85l-.96 2.88M468.868 193.73v2.017M468.868 195.757l.96 2.88M469.828 198.637l1.92 1.92M471.748 200.557l2.016.96M473.761 201.517h2.88M476.641 201.517l2.016-.96M478.655 200.557l1.92-1.92M496.134 181.064l-9.695 13.632M486.441 194.69h14.592M496.134 181.064v20.448M652.89 198.344v20.447M652.89 208.997l2.976-2.88M655.877 206.117l1.92-.96M657.797 205.157h2.88M660.677 205.157l2.016.96M662.69 206.117l.96 2.88M663.65 208.997v9.792M670.463 211.01h11.712M682.17 211.01v-2.016M682.17 208.997l-.96-1.92M681.21 207.077l-.96-.96M680.25 206.117l-2.016-.96M678.236 205.157h-2.88M675.356 205.157l-2.016.96M673.343 206.117l-1.92 1.92M671.423 208.037l-.96 2.976M670.463 211.01v1.92M670.463 212.93l.96 2.976M671.423 215.917l1.92 1.92M673.343 217.837l2.016.96M675.356 218.797h2.88M678.236 218.797l2.016-.96M680.25 217.837l1.92-1.92M697.73 198.344l-9.697 13.632M688.036 211.97h14.592M697.73 198.344v20.447M854.485 237.516v20.448M854.485 248.263l2.976-2.976M857.472 245.29l1.92-.96M859.392 244.33h2.88M862.272 244.33l2.016.96M864.285 245.29l.96 2.975M865.245 248.263v9.695M872.058 250.183h11.712M883.765 250.183v-1.92M883.765 248.263l-.96-2.016M882.805 246.25l-.96-.96M881.845 245.29l-2.016-.96M879.831 244.33h-2.88M876.951 244.33l-2.016.96M874.938 245.29l-1.92 2.015M873.018 247.303l-.96 2.88M872.058 250.183v1.92M872.058 252.102l.96 2.976M873.018 255.076l1.92 1.92M874.938 256.996l2.016.96M876.951 257.956h2.88M879.831 257.956l2.016-.96M881.845 256.996l1.92-1.92M899.324 237.516l-9.696 13.632M889.631 251.143h14.592M899.324 237.516v20.448"/></g></g><g stroke="#daa520"><g stroke-width="28.8"><path stroke-width="3.839904" d="M979.189 815.902h-.096M979.096 815.902H979M979.002 815.902h-.096M978.909 815.902h-.096M978.802 815.902h-.096M978.709 815.902h-.096M978.616 815.902h-.096M978.522 815.902h-.096M978.429 815.902h-.096M978.322 815.902h-.096M978.229 815.902h-.096M978.136 815.902h-.096M978.042 815.902h-.096M977.949 815.902h-.096M977.842 815.902h-.096M977.749 815.902h-.096M977.656 815.902h-.096M977.562 815.902h-.096M977.469 815.902h-.096M977.362 815.902h-.096M977.269 815.902h-.096M977.176 815.902h-.096M977.082 815.902h-.096M976.989 815.902h-.096M976.882 815.902h-.096M976.789 815.902h-.192M976.602 815.902h-.096M976.509 815.902h-.096M976.402 815.902h-.192M976.216 815.902h-.096M976.122 815.902h-.096M976.029 815.902h-.096M975.922 815.902h-.192M975.736 815.902h-.096M975.642 815.902h-.096M975.549 815.902h-.096M975.442 815.902h-.096M975.349 815.902h-.192M975.162 815.902h-.192M974.962 815.902h-.096M974.869 815.902h-.192M974.682 815.902h-.096M974.589 815.902h-.096M974.482 815.902h-.192M974.296 815.902h-.192M974.109 815.902h-.192M973.909 815.902h-.096M973.816 815.902h-.192M973.629 815.902h-.192M973.429 815.902h-.096M973.336 815.902h-.192M973.149 815.902h-.192M972.949 815.902h-.192M972.762 815.902h-.192M972.562 815.902h-.193M972.376 815.902h-.192M972.189 815.902h-.19M971.989 815.902h-.097M971.896 815.902h-.192M971.709 815.902h-.192M971.509 815.902h-.192M971.322 815.902h-.193M971.122 815.902h-.192M970.936 815.902h-.288M970.642 815.902h-.288M970.362 815.902h-.384M969.976 815.902h-.192M969.79 815.902h-.289M969.496 815.902h-.288M969.202 815.902h-.385M968.83 815.902h-.192M968.63 815.902h-.289M968.35 815.902h-.482M967.87 815.902h-.289M967.576 815.902h-.383M967.19 815.902h-.385M966.802 815.902h-.48M966.323 815.902h-.288M966.043 815.902h-.288M965.75 815.902h-.383M965.363 815.902h-.288M965.083 815.902h-.194M964.883 815.902h-.384M964.51 815.902h-.383M964.123 815.902h-.288M963.83 815.902h-.385M963.443 815.902h-.386M963.07 815.902h-.383M962.683 815.902h-.384M962.296 815.902h-.385M961.91 815.902l-.386 1.152M961.523 817.048l-.191.672M961.336 817.715l-.192 1.344M961.15 819.062l-.385.192M960.763 819.262l-.864 6.431M959.896 825.688h-.481M959.416 825.688h-.383M959.03 825.688h-.48M958.55 825.688h-.48M958.07 825.688h-.96M957.11 825.688h-.48M956.63 825.688h-.577M956.056 825.688l-.48 1.536M955.576 827.221l-.576.288M955.003 827.515h-.576M954.43 827.515h-.48M953.95 827.515h-.672M953.27 827.515h-.576M952.696 827.515h-.576M952.123 827.515h-.576M951.55 827.515h-.672M950.87 827.515h-.672M950.203 827.515h-.288M949.91 827.515h-.288M949.63 827.515h-.768M948.856 827.515h-.672M948.19 827.515h-.672M947.51 827.515h-.672M946.843 827.515h-.768M946.07 827.515h-.672M945.403 827.515h-.768M944.63 827.515h-.768M943.87 827.515l-.768 17.567M943.096 845.074l-.768 4.128M942.323 849.208l-.864.096M941.47 849.3h-.768M940.696 849.3h-.863M939.83 849.3h-.864M938.963 849.3h-.865M938.11 849.3h-.384M937.723 849.3h-.48M937.243 849.3h-.672M936.563 849.3h-.672M935.897 849.3h-1.344M934.55 849.3h-.672M933.883 849.3h-.768M933.11 849.3h-.96M932.15 849.3h-1.44M930.71 849.3h-.96M929.75 849.3l-.48 6.337M929.27 855.634l-1.056 11.808M928.217 867.447h-1.056M927.163 867.447l-1.535.192M925.63 867.634l-1.056 2.976M924.564 870.62h-1.152M923.417 870.62l-1.056 2.4M922.364 873.02l-.864.96M921.497 873.98l-.864 3.264M920.63 877.234h-1.632M919.004 877.234l-1.248 3.455M917.75 880.7h-1.152M916.604 880.7l-1.152 1.824M915.444 882.513l-1.44 3.264M914.004 885.78h-1.632M912.377 885.78h-.96M911.417 885.78l-.96 2.496M910.457 888.273l-1.92.096M908.537 888.38l-1.344 2.688M907.19 891.06l-1.631.096M905.564 891.153h-1.056M904.51 891.153l-1.055 3.84M903.444 894.993h-2.016M901.43 894.993l-1.055 2.688M900.377 897.686l-1.631.192M898.75 897.873h-1.247M897.498 897.873h-.864M896.63 897.873h-.863M895.764 897.873h-1.344M894.431 897.873h-1.344M893.084 897.873h-1.536M891.551 897.873h-1.152M890.391 897.873h-1.344M889.044 897.873H887.7M887.711 897.873h-.864M886.844 897.873h-.863M885.978 897.873h-1.152M884.831 897.873h-1.152M883.671 897.873h-1.056M882.618 897.873h-.96M881.658 897.873h-.672M880.991 897.873h-.576M880.405 897.873h-1.44M878.965 897.873h-1.536M877.431 897.873h-2.112M875.325 897.873h-1.728M873.591 897.873l-.863 23.327M872.725 921.206l-1.824 9.216M870.912 930.419l-1.344 1.92M869.565 932.339l-1.824 1.344M867.738 933.685h-2.208M865.525 933.685l-1.92.864M863.605 934.552l-.96 2.496M862.645 937.045h-1.824M860.832 937.045h-.96M859.872 937.045l-1.92.768M857.952 937.819l-.96 3.072M856.992 940.885h-2.016M854.965 940.885h-1.728M853.245 940.885l-1.44.096M851.805 940.979l-1.248 3.36M850.552 944.339h-2.592M847.965 944.339l-2.111 1.92M845.846 946.258l-2.784 2.016M843.072 948.272h-1.248M841.819 948.272h-1.152M840.672 948.272h-1.632M839.032 948.272l-2.016 2.784M837.02 951.058l-1.249.864M835.766 951.925h-1.632M834.14 951.925l-3.36 1.632M830.78 953.552l-1.633 1.92M829.153 955.472h-1.44M827.713 955.472H825.6M825.593 955.472h-1.344M824.246 955.472l-1.344 3.072M822.913 958.552l-1.536.096M821.366 958.645l-3.264.672M818.113 959.311l-2.976 2.4M815.126 961.711h-1.248M813.886 961.711h-2.4M811.486 961.711l-2.496 2.496M808.993 964.218l-2.112.48M806.873 964.698l-2.88.288M803.993 964.978l-2.88 2.592M801.113 967.578h-1.92M799.193 967.578h-2.016M797.18 967.578l-2.688 1.728M794.487 969.298l-1.44.96M793.047 970.258h-3.552M789.5 970.258l-1.824 1.92M787.674 972.178l-2.016.672M785.66 972.858h-2.016M783.647 972.858l-2.016.096M781.634 972.951l-1.536 2.208M780.087 975.151l-2.688.192M777.407 975.351h-2.112M775.287 975.351h-1.056M774.234 975.351l-1.056.576M773.18 975.924l-.863 1.632M772.314 977.551h-.864M771.447 977.551l-.864.096M770.594 977.658h-.96M769.634 977.658h-.768M768.86 977.658h-.863M767.994 977.658h-.768M767.234 977.658l-1.44 1.152M765.794 978.804l-.288.384M646.757 979.191l-.96-.48M645.797 978.711l-1.056-.192M644.73 978.511l-.48-.384M644.25 978.138l-.48-1.152M643.77 976.978l-.96-1.536M642.81 975.444l-1.055-1.536M641.757 973.911l-1.92-3.168M639.837 970.738l-1.056-2.208M638.784 968.538l-.96-1.152M637.824 967.378l-.96-2.592M636.864 964.791l-1.056-4.512M635.81 960.271l-.96-2.975M634.85 957.298l-1.055-1.248M633.797 956.058l-.48-1.728M633.318 954.325l-.48-4.416M632.838 949.912l-1.056-9.12M631.77 940.792l-2.015-1.92M629.758 938.872l-.96-.288M628.798 938.579l-.576-.096M628.224 938.485l-.48-.096M627.744 938.392h-.96M626.784 938.392h-1.056M625.731 938.392h-2.016M623.718 938.392h-1.056M622.651 938.392h-1.056M621.598 938.392h-.962M620.638 938.392h-1.056M619.585 938.392h-1.056M618.531 938.392h-1.056M617.478 938.392h-2.016M615.451 938.392h-1.056M614.398 938.392h-1.057M613.345 938.392h-1.056M612.291 938.392h-1.057M611.238 938.392h-1.056M610.171 938.392h-.96M609.211 938.392h-1.056M608.158 938.392h-1.056M607.105 938.392h-1.056M606.052 938.392h-1.056M604.998 938.392h-2.112M602.878 938.392h-1.056M601.825 938.392h-1.152M600.678 938.392h-1.054M599.612 938.392h-1.058M598.558 938.392h-2.112M596.452 938.392h-1.055M595.398 938.392h-1.057M594.332 938.392h-2.207M592.132 938.392h-1.057M591.079 938.392h-.576M590.492 938.392h-.479M590.012 938.392h-1.057M588.959 938.392h-1.152M587.812 938.392H585.7M585.692 938.392h-1.15M584.545 938.392h-1.056M583.492 938.392h-1.057M582.439 938.392h-1.152M581.279 938.392h-1.058M580.225 938.392h-1.151M579.079 938.392h-1.055M578.012 938.392h-1.152M576.866 938.392h-2.208M574.652 938.392h-1.056M573.599 938.392h-1.153M572.452 938.392h-1.054M571.399 938.392h-1.152M570.24 938.392h-1.058M569.186 938.392h-1.152M568.04 938.392h-2.21M565.826 938.392h-1.15M564.68 938.392h-1.153M563.52 938.392h-1.057M562.466 938.392h-1.152M561.32 938.392h-1.153M560.16 938.392h-1.153M559.013 938.392h-1.056M557.96 938.392h-1.153M556.8 938.392h-2.305M554.493 938.392h-1.152M553.346 938.392h-1.152M552.2 938.392h-1.056M551.133 938.392h-1.152M549.986 938.392h-1.152M548.84 938.392h-1.152M547.68 938.392h-2.304M545.373 938.392h-2.304M543.08 938.392h-1.152M541.92 938.392h-1.152M540.773 938.392h-1.152M539.613 938.392h-1.152M538.467 938.392h-1.152M537.32 938.392h-1.152M536.16 938.392h-2.4M533.76 938.392h-1.152M532.613 938.392h-1.152M531.453 938.392h-1.152M530.307 938.392h-1.152M529.16 938.392h-2.4M526.76 938.392h-2.304M524.454 938.392h-1.248M523.2 938.392h-1.152M522.054 938.392h-1.152M520.894 938.392h-1.248M519.654 938.392h-2.304M517.347 938.392H516.1M516.094 938.392h-1.152M514.947 938.392h-2.4M512.547 938.392h-2.4M510.147 938.392h-1.152M509 938.392h-1.247M507.747 938.392h-2.4M505.347 938.392h-2.4M502.947 938.392h-1.152M501.8 938.392h-1.247M500.547 938.392h-2.4M498.148 938.392H496.9M496.894 938.392h-1.152M495.748 938.392h-2.496M493.254 938.392h-2.4M490.854 938.392h-1.248M489.601 938.392h-1.152M488.454 938.392h-2.495M485.961 938.392h-2.4M483.561 938.392h-1.248M482.308 938.392h-1.248M481.055 938.392h-2.496M478.561 938.392h-2.4M476.161 938.392h-2.496M473.668 938.392h-2.496M471.175 938.392h-1.248M469.922 938.392h-1.248M468.682 938.392h-2.496M466.175 938.392h-2.4M463.775 938.392h-2.592M461.188 938.392h-1.249M459.935 938.392h-1.246M458.695 938.392H456.2M456.202 938.392h-2.496M453.695 938.392H451.2M451.202 938.392h-2.496M448.709 938.392h-2.496M446.216 938.392h-1.344M444.869 938.392h-1.248M443.616 938.392h-2.496M441.122 938.392h-2.497M438.629 938.392h-2.59M436.042 938.392h-2.497M433.536 938.392h-2.59M430.95 938.392h-2.498M428.456 938.392h-2.59M425.856 938.392h-1.25M424.616 938.392h-1.343M423.27 938.392h-2.498M420.776 938.392h-2.59M418.176 938.392h-2.593M415.59 938.392h-2.495M413.096 938.392h-2.593M410.496 938.392h-2.592M407.91 938.392h-2.592M405.323 938.392h-2.592M402.723 938.392h-2.592M400.137 938.392h-1.248M398.883 938.392h-1.248M397.643 938.392h-2.592M395.043 938.392h-2.591M392.457 938.392h-2.592M389.857 938.392h-2.592M387.27 938.392h-2.592M384.684 938.392h-2.592M382.084 938.392h-2.592M379.497 938.392h-1.344M378.15 938.392h-1.247M376.897 938.392h-2.592M374.31 938.392h-2.591M371.724 938.392h-2.592M369.124 938.392h-2.592M366.538 938.392h-2.592M363.938 938.392l-2.592-.096M361.351 938.299h-2.688M358.658 938.299h-2.592M356.071 938.299h-2.592M353.484 938.299h-1.247M352.231 938.299h-1.344M350.885 938.299h-2.592M348.298 938.299h-2.592M345.698 938.299h-2.592M343.111 938.299h-2.592M340.525 938.299h-2.592M337.925 938.299h-2.592M335.338 938.299h-2.592M332.738 938.299h-2.496M330.245 938.299h-5.184M325.059 938.299h-2.592M322.472 938.299h-2.592M319.885 938.299h-2.592M317.285 938.299h-2.496M314.792 938.299H312.2M312.206 938.299h-2.592M309.606 938.299h-2.496M307.112 938.299h-2.592M304.526 938.299h-5.088M299.433 938.299h-2.496M296.94 938.299h-2.497M294.446 938.299h-2.592M291.846 938.299h-2.496M289.353 938.299h-2.496M286.86 938.299h-2.496M284.366 938.299h-4.992M279.366 938.299h-2.4M276.966 938.299h-2.496M274.473 938.299h-2.496M271.98 938.299h-2.4M269.58 938.299h-2.496M267.087 938.299h-2.4M264.687 938.299h-2.4M262.287 938.299h-2.4M259.887 938.299h-4.8M255.087 938.299h-2.4M252.687 938.299h-2.304M250.38 938.299h-2.4M247.98 938.299h-2.303M245.674 938.299h-2.304M243.367 938.299h-2.304M241.06 938.299h-2.303M238.767 938.299h-2.208M236.554 938.299h-2.304M234.247 938.299h-2.207M232.048 938.299h-2.208M229.834 938.299h-2.208M227.621 938.299h-4.32M223.301 938.299h-2.112M221.194 938.299h-2.207M218.981 938.299h-4.128M214.861 938.299h-2.016M212.848 938.299h-2.016M210.821 938.299h-2.016M208.808 938.299h-1.92M206.888 938.299h-1.92M204.968 938.299h-1.92M203.048 938.299h-1.92M201.128 938.299h-1.824M199.302 938.299l-3.552-.096M195.755 938.192h-1.728M194.022 938.192h-1.728M192.302 938.192h-1.536M190.769 938.192h-1.632M189.129 938.192h-1.632M187.502 938.192h-1.536M185.969 938.192h-2.784M183.182 938.192h-1.344M181.835 938.192h-1.44M180.395 938.192h-1.151M179.249 938.192H178M177.996 938.192h-2.112M175.889 938.192h-.864M175.022 938.192h-1.152M173.862 938.192h-.576M173.289 938.192h-.192M173.102 938.192h-.192M172.902 938.192h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="m259.98 915.633-1.92-2.016M258.06 913.62l-2.016-.96M256.047 912.66h-2.88M253.167 912.66l-2.016.96M251.14 913.62l-1.92 2.015M249.22 915.633l-.96 2.88M248.26 918.513v1.92M248.26 920.432l.96 2.976M249.22 923.419l1.92 1.92M251.14 925.339l2.016.96M253.167 926.299h2.88M256.047 926.299l2.016-.96M258.06 925.339l1.92-1.92M268.713 909.78l2.016-1.057M270.727 908.726l2.88-2.88M273.606 905.846v20.448M286.286 910.74v-.96M286.286 909.78l.96-2.017M287.246 907.766l.96-.96M288.206 906.806l2.016-.96M290.22 905.846h3.84M294.06 905.846l2.015.96M296.073 906.806l.96.96M297.033 907.766l.96 2.016M297.993 909.78v1.92M297.993 911.7l-.96 1.92M297.033 913.62l-2.016 2.975M295.02 916.593l-9.696 9.695M285.326 926.299h13.632M461.575 915.633l-1.92-1.92M459.655 913.713l-2.016-1.056M457.642 912.66h-2.88M454.762 912.66l-2.016 1.055M452.735 913.713l-1.92 1.92M450.815 915.633l-.96 2.88M449.855 918.513v2.015M449.855 920.54l.96 2.879M450.815 923.419l1.92 1.92M452.735 925.339l2.016 1.056M454.762 926.392h2.88M457.642 926.392l2.016-1.056M459.655 925.339l1.92-1.92M470.308 909.78l2.016-.96M472.322 908.82l2.88-2.977M475.201 905.846v20.544M487.881 910.74v-.96M487.881 909.78l.96-1.92M488.841 907.86l.96-1.057M489.801 906.806l2.016-.96M491.814 905.846h3.84M495.654 905.846l2.016.96M497.668 906.806l.96 1.056M498.628 907.86l.96 1.92M499.588 909.78v1.92M499.588 911.7l-.96 2.015M498.628 913.713l-2.016 2.88M496.614 916.593l-9.696 9.791M486.921 926.392h13.632M864.765 875.127l-1.92-1.92M862.845 873.207l-2.016-.96M860.832 872.247h-2.88M857.952 872.247l-2.016.96M855.925 873.207l-1.92 1.92M854.005 875.127l-.96 2.976M853.045 878.1v1.92M853.045 880.02l.96 2.88M854.005 882.9l1.92 2.016M855.925 884.913l2.016.96M857.952 885.873h2.88M860.832 885.873l2.016-.96M862.845 884.913l1.92-2.016M873.498 869.274l2.016-.96M875.511 868.314l2.88-2.88M878.391 865.434v20.447M891.071 870.234v-.96M891.071 869.274l.96-1.92M892.031 867.354l.96-.96M892.991 866.394l2.016-.96M895.004 865.434h3.84M898.844 865.434l2.016.96M900.857 866.394l.96.96M901.817 867.354l.96 1.92M902.777 869.274v2.016M902.777 871.287l-.96 1.92M901.817 873.207l-2.015 2.88M899.804 876.087l-9.696 9.792M890.111 885.873h13.632"/></g></g><g stroke="#7c68ee"><g stroke-width="28.8"><path stroke-width="3.839904" d="M979.189 883.673h-.096M979.096 883.673H979M979.002 883.673h-.096M978.909 883.673h-.096M978.802 883.673h-.096M978.709 883.673h-.096M978.616 883.673h-.096M978.522 883.673h-.096M978.429 883.673h-.096M978.322 883.673h-.096M978.229 883.673h-.096M978.136 883.673h-.096M978.042 883.673h-.096M977.949 883.673h-.096M977.842 883.673h-.096M977.749 883.673h-.096M977.656 883.673h-.096M977.562 883.673h-.096M977.469 883.673h-.096M977.362 883.673h-.096M977.269 883.673h-.096M977.176 883.673h-.096M977.082 883.673h-.096M976.989 883.673h-.096M976.882 883.673h-.096M976.789 883.673h-.192M976.602 883.673h-.096M976.509 883.673h-.096M976.402 883.673h-.192M976.216 883.673h-.096M976.122 883.673h-.096M976.029 883.673h-.096M975.922 883.673h-.192M975.736 883.673h-.096M975.642 883.673h-.096M975.549 883.673h-.096M975.442 883.673h-.096M975.349 883.673h-.192M975.162 883.673h-.192M974.962 883.673h-.096M974.869 883.673h-.192M974.682 883.673h-.096M974.589 883.673h-.096M974.482 883.673h-.192M974.296 883.673h-.192M974.109 883.673h-.192M973.909 883.673h-.096M973.816 883.673h-.192M973.629 883.673h-.192M973.429 883.673h-.096M973.336 883.673h-.192M973.149 883.673h-.192M972.949 883.673h-.192M972.762 883.673h-.192M972.562 883.673h-.193M972.376 883.673h-.192M972.189 883.673h-.19M971.989 883.673h-.097M971.896 883.673h-.192M971.709 883.673h-.192M971.509 883.673h-.192M971.322 883.673h-.193M971.122 883.673h-.192M970.936 883.673h-.288M970.642 883.673h-.288M970.362 883.673h-.384M969.976 883.673h-.192M969.79 883.673h-.289M969.496 883.673h-.288M969.202 883.673h-.385M968.83 883.673h-.192M968.63 883.673h-.289M968.35 883.673h-.482M967.87 883.673h-.289M967.576 883.673h-.383M967.19 883.673h-.385M966.802 883.673h-.48M966.323 883.673h-.288M966.043 883.673h-.288M965.75 883.673h-.383M965.363 883.673h-.288M965.083 883.673h-.194M964.883 883.673h-.384M964.51 883.673h-.383M964.123 883.673h-.288M963.83 883.673h-.385M963.443 883.673h-.386M963.07 883.673h-.383M962.683 883.673h-.384M962.296 883.673h-.385M961.91 883.673l-.386-12.575M961.523 871.1l-.191-6.24M961.336 864.86l-.192-10.847M961.15 854.007l-.385-1.44M960.763 852.567l-.864-30.719M959.896 821.848h-.481M959.416 821.848h-.383M959.03 821.848h-.48M958.55 821.848h-.48M958.07 821.848h-.96M957.11 821.848h-.48M956.63 821.848h-.577M956.056 821.848l-.48-5.088M955.576 816.755l-.576-.864M955.003 815.902h-.576M954.43 815.902h-.48M953.95 815.902h-.672M953.27 815.902h-.576M952.696 815.902h-.576M952.123 815.902h-.576M951.55 815.902h-.672M950.87 815.902h-.672M950.203 815.902h-.288M949.91 815.902h-.288M949.63 815.902h-.768M948.856 815.902h-.672M948.19 815.902h-.672M947.51 815.902h-.672M946.843 815.902h-.768M946.07 815.902h-.672M945.403 815.902h-.768M944.63 815.902h-.768M943.87 815.902l-.768-33.311M943.096 782.583l-.768-4.608M942.323 777.983l-.864-.096M941.47 777.876h-.768M940.696 777.876h-.863M939.83 777.876h-.864M938.963 777.876h-.865M938.11 777.876h-.384M937.723 777.876h-.48M937.243 777.876h-.672M936.563 777.876h-.672M935.897 777.876h-1.344M934.55 777.876h-.672M933.883 777.876h-.768M933.11 777.876h-.96M932.15 777.876h-1.44M930.71 777.876h-.96M929.75 777.876l-.48-5.856M929.27 772.023l-1.056-8.064M928.217 763.956h-1.056M927.163 763.956l-1.535-.096M925.63 763.863l-1.056-1.536M924.564 762.33h-1.152M923.417 762.33l-1.056-1.248M922.364 761.076l-.864-.48M921.497 760.596l-.864-1.44M920.63 759.156h-1.632M919.004 759.156l-1.248-1.44M917.75 757.717h-1.152M916.604 757.717l-1.152-.672M915.444 757.05l-1.44-1.248M914.004 755.797h-1.632M912.377 755.797h-.96M911.417 755.797l-.96-.768M910.457 755.037h-1.92M908.537 755.037l-1.344-.864M907.19 754.17l-1.631-.096M905.564 754.077h-1.056M904.51 754.077l-1.055-1.056M903.444 753.023h-2.016M901.43 753.023l-1.055-.768M900.377 752.25h-1.631M898.75 752.25h-1.247M897.498 752.25h-.864M896.63 752.25h-.863M895.764 752.25h-1.344M894.431 752.25h-1.344M893.084 752.25h-1.536M891.551 752.25h-1.152M890.391 752.25h-1.344M889.044 752.25H887.7M887.711 752.25h-.864M886.844 752.25h-.863M885.978 752.25h-1.152M884.831 752.25h-1.152M883.671 752.25h-1.056M882.618 752.25h-.96M881.658 752.25h-.672M880.991 752.25h-.576M880.405 752.25h-1.44M878.965 752.25h-1.536M877.431 752.25h-2.112M875.325 752.25h-1.728M873.591 752.25l-.863-4.704M872.725 747.543l-1.824-1.248M870.912 746.303l-1.344-.192M869.565 746.103l-1.824-.192M867.738 745.917h-2.208M865.525 745.917l-1.92-.096M863.605 745.823l-.96-.192M862.645 745.623h-1.824M860.832 745.623h-.96M859.872 745.623l-1.92-.096M857.952 745.53l-.96-.192M856.992 745.344h-2.016M854.965 745.344h-1.728M853.245 745.344h-1.44M851.805 745.344l-1.248-.288M850.552 745.05h-2.592M847.965 745.05l-2.111-.096M845.846 744.957l-2.784-.192M843.072 744.757h-1.248M841.819 744.757h-1.152M840.672 744.757h-1.632M839.032 744.757l-2.016-.096M837.02 744.664l-1.249-.096M835.766 744.57h-1.632M834.14 744.57l-3.36-.096M830.78 744.477l-1.633-.096M829.153 744.384h-1.44M827.713 744.384H825.6M825.593 744.384h-1.344M824.246 744.384l-1.344-.192M822.913 744.184h-1.536M821.366 744.184h-3.264M818.113 744.184l-2.976-.192M815.126 743.997h-1.248M813.886 743.997h-2.4M811.486 743.997l-2.496-.096M808.993 743.904h-2.112M806.873 743.904h-2.88M803.993 743.904l-2.88-.096M801.113 743.797h-1.92M799.193 743.797h-2.016M797.18 743.797l-2.688-.096M794.487 743.704l-1.44-.096M793.047 743.61h-3.552M789.5 743.61h-1.824M787.674 743.61l-2.016-.096M785.66 743.517h-2.016M783.647 743.517h-2.016M781.634 743.517l-1.536-.096M780.087 743.424H777.4M777.407 743.424h-2.112M775.287 743.424h-1.056M774.234 743.424h-1.056M773.18 743.424h-.863M772.314 743.424l-.864-.096M771.447 743.317h-.864M770.594 743.317h-.96M769.634 743.317h-.768M768.86 743.317h-.863M767.994 743.317h-.768M767.234 743.317h-1.44M765.794 743.317h-.672M765.114 743.317h-.576M764.54 743.317h-.671M763.874 743.317h-1.44M762.434 743.317h-1.536M760.888 743.317h-.672M760.221 743.317h-.768M759.448 743.317h-.576M758.874 743.317l-.576-.096M758.301 743.224h-1.057M757.248 743.224h-1.152M756.088 743.224h-.96M755.128 743.224h-.959M754.168 743.224h-.672M753.501 743.224h-1.152M752.355 743.224h-.96M751.395 743.224h-.576M750.808 743.224l-1.152-.096M749.661 743.13h-1.153M748.515 743.13h-1.152M747.355 743.13h-.767M746.595 743.13h-.77M745.821 743.13h-.766M745.048 743.13h-.768M744.288 743.13h-1.632M742.648 743.13h-.768M741.888 743.13h-.768M741.115 743.13h-.768M740.355 743.13h-.768M739.582 743.13h-.768M738.808 743.13h-.864M737.955 743.13h-1.152M736.795 743.13h-.576M736.222 743.13h-1.248M734.968 743.13h-1.152M733.822 743.13h-1.056M732.768 743.13H732M731.995 743.13h-1.248M730.755 743.13h-.768M729.982 743.13h-1.248M728.728 743.13h-.768M727.968 743.13h-.864M727.102 743.13h-1.152M725.955 743.13h-1.248M724.702 743.13h-.864M723.835 743.13h-1.248M722.595 743.13h-.768M721.822 743.13h-.864M720.955 743.13h-1.248M719.715 743.13h-.864M718.849 743.13h-.768M718.075 743.13h-.864M717.209 743.13h-.864M716.355 743.13h-.384M715.969 743.13h-.864M715.102 743.13h-.864M714.235 743.13h-1.247M712.996 743.13h-.576M712.409 743.13h-.48M711.929 743.13h-.672M711.262 743.13h-.768M710.489 743.13h-.864M709.636 743.13h-.48M709.156 743.13h-.864M708.289 743.13h-.864M707.422 743.13h-1.248M706.169 743.13h-.864M705.316 743.13h-1.344M703.97 743.13h-1.249M702.716 743.13h-.674M702.05 743.13h-.673M701.37 743.13h-.865M700.516 743.13h-.864M699.65 743.13h-1.345M698.303 743.13h-.864M697.436 743.13h-.864M696.57 743.13h-.865M695.716 743.13h-.864M694.85 743.13h-.48M694.37 743.13h-.865M693.503 743.13h-1.344M692.156 743.13h-.864M691.303 743.13h-.482M690.81 743.13h-.865M689.956 743.13h-.96M688.996 743.13h-.864M688.13 743.13h-.48M687.65 743.13h-.386M687.263 743.13h-.96M686.303 743.13h-.864M685.436 743.13h-.96M684.476 743.13h-1.342M683.143 743.13h-.673M682.463 743.13h-.48M681.983 743.13h-.672M681.316 743.13h-.864M680.45 743.13h-.96M679.49 743.13h-.48M679.01 743.13h-.866M678.143 743.13h-.959M677.183 743.13h-.96M676.223 743.13h-.384M675.836 743.13h-.48M675.356 743.13h-.48M674.876 743.13h-.48M674.396 743.13h-.48M673.916 743.13h-.48M673.436 743.13h-.383M673.063 743.13h-.48M672.583 743.13h-.288M672.29 743.13h-.192M672.103 743.13h-.48M671.623 743.13h-.96M670.663 743.13h-1.824M668.837 743.13l-.96-.096M667.877 743.037l-.96-.096M666.917 742.944l-.96-.192M665.957 742.744h-.864M665.09 742.744h-.96M664.13 742.744h-.96M663.17 742.744h-.96M662.21 742.744h-.96M661.25 742.744h-.96M660.29 742.744h-.48M659.81 742.744h-.48M659.33 742.744h-.96M658.37 742.744l-.96.096M657.41 742.837h-1.92M655.49 742.837h-.96M654.53 742.837h-.96M653.57 742.837h-.96M652.61 742.837h-.96M651.65 742.837h-.96M650.69 742.837h-1.056M649.637 742.837h-.96M648.677 742.837h-.96M647.717 742.837h-1.92M645.797 742.837l-1.057.096M644.744 742.944h-.48M644.264 742.944h-.48M643.784 742.944h-.959M642.824 742.944h-1.057M641.757 742.944l-1.918.096M639.85 743.037h-1.057M638.784 743.037l-.96.096M637.824 743.13h-.959M636.864 743.13l-1.057.096M635.81 743.224l-.96.096M634.85 743.317h-1.054M633.797 743.317l-.48.096M633.318 743.424l-.48.096M632.838 743.517l-1.058.288M631.784 743.797h-2.014M629.77 743.797h-.96M628.798 743.797h-.576M628.224 743.797h-.48M627.744 743.797h-.96M626.784 743.797h-1.056M625.731 743.797h-2.016M623.718 743.797h-1.056M622.651 743.797h-1.056M621.598 743.797h-.96M620.638 743.797h-1.056M619.585 743.797h-1.056M618.531 743.797h-1.056M617.478 743.797h-2.016M615.451 743.797h-1.056M614.398 743.797h-1.056M613.345 743.797h-1.056M612.291 743.797h-1.056M611.238 743.797h-1.056M610.171 743.797h-.96M609.211 743.797h-1.056M608.158 743.797h-1.056M607.105 743.797h-1.056M606.052 743.797h-1.056M604.998 743.797h-2.112M602.878 743.797h-1.056M601.825 743.797h-1.152M600.678 743.797h-1.056M599.612 743.797h-1.056M598.558 743.797h-2.112M596.452 743.797h-1.056M595.398 743.797h-1.056M594.332 743.797h-2.208M592.132 743.797h-1.056M591.079 743.797h-.576M590.492 743.797h-.48M590.012 743.797h-1.056M588.959 743.797h-1.152M587.812 743.797H585.7M585.692 743.797h-1.152M584.545 743.797h-1.056M583.492 743.797h-1.056M582.439 743.797h-1.152M581.279 743.797h-1.056M580.225 743.797h-1.151M579.079 743.797h-1.056M578.012 743.797h-1.15M576.866 743.797h-2.21M574.652 743.797h-1.054M573.599 743.797h-1.153M572.452 743.797h-1.056M571.399 743.797h-1.152M570.24 743.797h-1.058M569.186 743.797h-1.152M568.04 743.797h-2.209M565.826 743.797h-1.152M564.68 743.797h-1.153M563.52 743.797h-1.057M562.466 743.797h-1.153M561.32 743.797h-1.153M560.16 743.797h-1.151M559.013 743.797h-1.056M557.96 743.797h-1.153M556.8 743.797h-2.305M554.493 743.797h-1.152M553.346 743.797h-1.152M552.2 743.797h-1.056M551.133 743.797h-1.152M549.986 743.797h-1.152M548.84 743.797h-1.152M547.68 743.797h-2.304M545.373 743.797h-2.304M543.08 743.797h-1.152M541.92 743.797h-1.152M540.773 743.797h-1.152M539.613 743.797h-1.152M538.467 743.797h-1.152M537.32 743.797h-1.152M536.16 743.797h-2.4M533.76 743.797h-1.152M532.613 743.797h-1.152M531.453 743.797h-1.152M530.307 743.797h-1.152M529.16 743.797h-2.4M526.76 743.797h-2.304M524.454 743.797h-1.248M523.2 743.797h-1.152M522.054 743.797h-1.152M520.894 743.797h-1.248M519.654 743.797h-2.304M517.347 743.797H516.1M516.094 743.797h-1.152M514.947 743.797h-2.4M512.547 743.797h-2.4M510.147 743.797h-1.152M509 743.797h-1.247M507.747 743.797h-2.4M505.347 743.797h-2.4M502.947 743.797h-1.152M501.8 743.797h-1.247M500.547 743.797h-2.4M498.148 743.797H496.9M496.894 743.797h-1.152M495.748 743.797h-2.496M493.254 743.797h-2.4M490.854 743.797h-1.248M489.601 743.797h-1.152M488.454 743.797h-2.495M485.961 743.797h-2.4M483.561 743.797h-1.248M482.308 743.797h-1.248M481.055 743.797h-2.496M478.561 743.797h-2.4M476.161 743.797h-2.496M473.668 743.797h-2.496M471.175 743.797h-1.248M469.922 743.797h-1.248M468.682 743.797h-2.496M466.175 743.797h-2.4M463.775 743.797h-2.592M461.188 743.797h-1.249M459.935 743.797h-1.246M458.695 743.797H456.2M456.202 743.797h-2.496M453.695 743.797H451.2M451.202 743.797h-2.496M448.709 743.797h-2.496M446.216 743.797h-1.344M444.869 743.797h-1.248M443.616 743.797h-2.496M441.122 743.797h-2.497M438.629 743.797h-2.59M436.042 743.797h-2.497M433.536 743.797h-2.59M430.95 743.797h-2.498M428.456 743.797h-2.59M425.856 743.797h-1.25M424.616 743.797h-1.343M423.27 743.797h-2.498M420.776 743.797h-2.59M418.176 743.797h-2.593M415.59 743.797h-2.495M413.096 743.797h-2.593M410.496 743.797h-2.592M407.91 743.797h-2.592M405.323 743.797h-2.592M402.723 743.797h-2.592M400.137 743.797h-1.248M398.883 743.797h-1.248M397.643 743.797h-2.592M395.043 743.797h-2.591M392.457 743.797h-2.592M389.857 743.797h-2.592M387.27 743.797h-2.592M384.684 743.797h-2.592M382.084 743.797h-2.592M379.497 743.797h-1.344M378.15 743.797h-1.247M376.897 743.797h-2.592M374.31 743.797h-2.591M371.724 743.797h-2.592M369.124 743.797h-2.592M366.538 743.797h-2.592M363.938 743.797h-2.592M361.351 743.797h-2.688M358.658 743.797h-2.592M356.071 743.797h-2.592M353.484 743.797h-1.247M352.231 743.797h-1.344M350.885 743.797h-2.592M348.298 743.797h-2.592M345.698 743.797h-2.592M343.111 743.797h-2.592M340.525 743.797h-2.592M337.925 743.797h-2.592M335.338 743.797h-2.592M332.738 743.797h-2.496M330.245 743.797h-5.184M325.059 743.797h-2.592M322.472 743.797h-2.592M319.885 743.797h-2.592M317.285 743.797h-2.496M314.792 743.797H312.2M312.206 743.797h-2.592M309.606 743.797h-2.496M307.112 743.797h-2.592M304.526 743.797h-5.088M299.433 743.797h-2.496M296.94 743.797h-2.497M294.446 743.797h-2.592M291.846 743.797h-2.496M289.353 743.797h-2.496M286.86 743.797h-2.496M284.366 743.797h-4.992M279.366 743.797h-2.4M276.966 743.797h-2.496M274.473 743.797h-2.496M271.98 743.797h-2.4M269.58 743.797h-2.496M267.087 743.797h-2.4M264.687 743.797h-2.4M262.287 743.797h-2.4M259.887 743.797h-4.8M255.087 743.797h-2.4M252.687 743.797h-2.304M250.38 743.797h-2.4M247.98 743.797h-2.303M245.674 743.797h-2.304M243.367 743.797h-2.304M241.06 743.797h-2.303M238.767 743.797h-2.208M236.554 743.797h-2.304M234.247 743.797h-2.207M232.048 743.797h-2.208M229.834 743.797h-2.208M227.621 743.797h-4.32M223.301 743.797h-2.112M221.194 743.797h-2.207M218.981 743.797h-4.128M214.861 743.797h-2.016M212.848 743.797h-2.016M210.821 743.797h-2.016M208.808 743.797h-1.92M206.888 743.797h-1.92M204.968 743.797h-1.92M203.048 743.797h-1.92M201.128 743.797h-1.824M199.302 743.797h-3.552M195.755 743.797h-1.728M194.022 743.797h-1.728M192.302 743.797l-1.536.096M190.769 743.904h-1.632M189.129 743.904h-1.632M187.502 743.904h-1.536M185.969 743.904h-2.784M183.182 743.904h-1.344M181.835 743.904h-1.44M180.395 743.904h-1.151M179.249 743.904H178M177.996 743.904h-2.112M175.889 743.904h-.864M175.022 743.904h-1.152M173.862 743.904h-.576M173.289 743.904h-.192M173.102 743.904h-.192M172.902 743.904h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M248.74 718.17v13.633M248.74 722.104l2.976-2.976M251.727 719.13l1.92-.96M253.647 718.17h2.88M256.527 718.17l2.016.96M258.54 719.13l.96 2.977M259.5 722.104v9.696M269.193 715.29l2.016-.96M271.207 714.33l2.88-2.975M274.086 711.358v20.447M295.5 711.358l-9.696 13.631M285.806 724.984h14.592M295.5 711.358v20.447M450.335 718.17v13.633M450.335 722.104l2.976-2.976M453.322 719.13l1.92-.96M455.242 718.17h2.88M458.122 718.17l2.016.96M460.135 719.13l.96 2.977M461.095 722.104v9.696M470.788 715.29l2.016-.96M472.802 714.33l2.88-2.975M475.681 711.358v20.447M497.094 711.358l-9.696 13.631M487.401 724.984h14.592M497.094 711.358v20.447M651.93 717.504v13.632M651.93 721.344l2.976-2.88M654.917 718.464l1.92-.96M656.837 717.504h2.88M659.717 717.504l2.016.96M661.73 718.464l.96 2.88M662.69 721.344v9.792M672.383 714.518l2.016-.96M674.396 713.558l2.88-2.976M677.276 710.584v20.544M698.69 710.584l-9.697 13.728M688.996 724.317h14.592M698.69 710.584v20.544M853.525 726.624v13.632M853.525 730.464l2.976-2.88M856.512 727.584l1.92-.96M858.432 726.624h2.88M861.312 726.624l2.016.96M863.325 727.584l.96 2.88M864.285 730.464v9.792M873.978 723.637l2.016-.96M875.991 722.677l2.88-2.88M878.871 719.797v20.448M900.284 719.797l-9.696 13.632M890.591 733.437h14.592M900.284 719.797v20.448"/></g></g><g stroke="#ff7f4f"><g stroke-width="28.8"><path stroke-width="3.839904" d="M979.189 760.703h-.096M979.096 760.703H979M979.002 760.703h-.096M978.909 760.703h-.096M978.802 760.703h-.096M978.709 760.703h-.096M978.616 760.703h-.096M978.522 760.703h-.096M978.429 760.703h-.096M978.322 760.703h-.096M978.229 760.703h-.096M978.136 760.703h-.096M978.042 760.703h-.096M977.949 760.703h-.096M977.842 760.703h-.096M977.749 760.703h-.096M977.656 760.703h-.096M977.562 760.703h-.096M977.469 760.703h-.096M977.362 760.703h-.096M977.269 760.703h-.096M977.176 760.703h-.096M977.082 760.703h-.096M976.989 760.703h-.096M976.882 760.703h-.096M976.789 760.703h-.192M976.602 760.703h-.096M976.509 760.703h-.096M976.402 760.703h-.192M976.216 760.703h-.096M976.122 760.703h-.096M976.029 760.703h-.096M975.922 760.703h-.192M975.736 760.703h-.096M975.642 760.703h-.096M975.549 760.703h-.096M975.442 760.703h-.096M975.349 760.703h-.192M975.162 760.703h-.192M974.962 760.703h-.096M974.869 760.703h-.192M974.682 760.703h-.096M974.589 760.703h-.096M974.482 760.703h-.192M974.296 760.703h-.192M974.109 760.703h-.192M973.909 760.703h-.096M973.816 760.703h-.192M973.629 760.703h-.192M973.429 760.703h-.096M973.336 760.703h-.192M973.149 760.703h-.192M972.949 760.703h-.192M972.762 760.703h-.192M972.562 760.703h-.193M972.376 760.703h-.192M972.189 760.703h-.19M971.989 760.703h-.097M971.896 760.703h-.192M971.709 760.703h-.192M971.509 760.703h-.192M971.322 760.703h-.193M971.122 760.703h-.192M970.936 760.703h-.288M970.642 760.703h-.288M970.362 760.703h-.384M969.976 760.703h-.192M969.79 760.703h-.289M969.496 760.703h-.288M969.202 760.703h-.385M968.83 760.703h-.192M968.63 760.703h-.289M968.35 760.703h-.482M967.87 760.703h-.289M967.576 760.703h-.383M967.19 760.703h-.385M966.802 760.703h-.48M966.323 760.703h-.288M966.043 760.703h-.288M965.75 760.703h-.383M965.363 760.703h-.288M965.083 760.703h-.194M964.883 760.703h-.384M964.51 760.703h-.383M964.123 760.703h-.288M963.83 760.703h-.385M963.443 760.703h-.386M963.07 760.703h-.383M962.683 760.703h-.384M962.296 760.703h-.385M961.91 760.703l-.386 1.248M961.523 761.943l-.191.672M961.336 762.623l-.192 1.536M961.15 764.156l-.385.192M960.763 764.343l-.864 7.008M959.896 771.356h-.481M959.416 771.356h-.383M959.03 771.356h-.48M958.55 771.356h-.48M958.07 771.356h-.96M957.11 771.356h-.48M956.63 771.356h-.577M956.056 771.356l-.48 1.728M955.576 773.076l-.576.288M955.003 773.37h-.576M954.43 773.37h-.48M953.95 773.37h-.672M953.27 773.37h-.576M952.696 773.37h-.576M952.123 773.37h-.576M951.55 773.37h-.672M950.87 773.37h-.672M950.203 773.37h-.288M949.91 773.37h-.288M949.63 773.37h-.768M948.856 773.37h-.672M948.19 773.37h-.672M947.51 773.37h-.672M946.843 773.37h-.768M946.07 773.37h-.672M945.403 773.37h-.768M944.63 773.37h-.768M943.87 773.37l-.768 19.775M943.096 793.142l-.768 4.8M942.323 797.942l-.864.096M941.47 798.036h-.768M940.696 798.036h-.863M939.83 798.036h-.864M938.963 798.036h-.865M938.11 798.036h-.384M937.723 798.036h-.48M937.243 798.036h-.672M936.563 798.036h-.672M935.897 798.036h-1.344M934.55 798.036h-.672M933.883 798.036h-.768M933.11 798.036h-.96M932.15 798.036h-1.44M930.71 798.036h-.96M929.75 798.036l-.48 7.487M929.27 805.529l-1.056 14.111M928.217 819.635h-1.056M927.163 819.635l-1.535.288M925.63 819.928l-1.056 3.552M924.564 823.475h-1.152M923.417 823.475l-1.056 3.072M922.364 826.555l-.864 1.152M921.497 827.701l-.864 4.032M920.63 831.741h-1.632M919.004 831.741l-1.248 4.512M917.75 836.248h-1.152M916.604 836.248l-1.152 2.208M915.444 838.461l-1.44 4.32M914.004 842.781h-1.632M912.377 842.781h-.96M911.417 842.781l-.96 3.168M910.457 845.941l-1.92.096M908.537 846.034l-1.344 3.552M907.19 849.594l-1.631.096M905.564 849.688h-1.056M904.51 849.688l-1.055 5.087M903.444 854.78h-2.016M901.43 854.78l-1.055 3.649M900.377 858.42l-1.631.193M898.75 858.62h-1.247M897.498 858.62h-.864M896.63 858.62h-.863M895.764 858.62h-1.344M894.431 858.62h-1.344M893.084 858.62h-1.536M891.551 858.62h-1.152M890.391 858.62h-1.344M889.044 858.62H887.7M887.711 858.62h-.864M886.844 858.62h-.863M885.978 858.62h-1.152M884.831 858.62h-1.152M883.671 858.62h-1.056M882.618 858.62h-.96M881.658 858.62h-.672M880.991 858.62h-.576M880.405 858.62h-1.44M878.965 858.62h-1.536M877.431 858.62h-2.112M875.325 858.62l-1.728.098M873.591 858.714l-.863 35.04M872.725 893.753 870.9 910.36M870.912 910.353l-1.344 2.688M869.565 913.046l-1.824 1.824M867.738 914.873h-2.208M865.525 914.873l-1.92 1.248M863.605 916.113l-.96 3.457M862.645 919.58h-1.824M860.832 919.58h-.96M859.872 919.58l-1.92.958M857.952 920.54l-.96 4.128M856.992 924.659h-2.016M854.965 924.659h-1.728M853.245 924.659h-1.44M851.805 924.659l-1.248 4.512M850.552 929.179h-2.592M847.965 929.179l-2.111 2.496M845.846 931.672l-2.784 2.592M843.072 934.259h-1.248M841.819 934.259h-1.152M840.672 934.259h-1.632M839.032 934.259l-2.016 3.552M837.02 937.819l-1.249 1.152M835.766 938.965h-1.632M834.14 938.965l-3.36 2.112M830.78 941.072l-1.633 2.4M829.153 943.472h-1.44M827.713 943.472H825.6M825.593 943.472l-1.344.096M824.246 943.579l-1.344 3.84M822.913 947.418l-1.536.192M821.366 947.605l-3.264.864M818.113 948.472l-2.976 3.072M815.126 951.538h-1.248M813.886 951.538h-2.4M811.486 951.538l-2.496 3.168M808.993 954.712l-2.112.672M806.873 955.378l-2.88.288M803.993 955.672l-2.88 3.36M801.113 959.031l-1.92.096M799.193 959.125h-2.016M797.18 959.125l-2.688 2.208M794.487 961.338l-1.44 1.248M793.047 962.578l-3.552.096M789.5 962.671l-1.824 2.496M787.674 965.178l-2.016.96M785.66 966.138h-2.016M783.647 966.138l-2.016.096M781.634 966.231l-1.536 2.976M780.087 969.205l-2.688.288M777.407 969.498h-2.112M775.287 969.498h-1.056M774.234 969.498l-1.056.864M773.18 970.351l-.863 2.208M772.314 972.564l-.864.096M771.447 972.658h-.864M770.594 972.658h-.96M769.634 972.658h-.768M768.86 972.658h-.863M767.994 972.658l-.768.096M767.234 972.751l-1.44 1.632M765.794 974.391l-.672 1.344M765.114 975.738l-.576.096M764.54 975.831l-.671.096M763.874 975.924h-1.44M762.434 975.924h-1.536M760.888 975.924h-.672M760.221 975.924h-.768M759.448 975.924h-.576M758.874 975.924l-.576 2.208M758.301 978.138l-1.057.768M757.248 978.898h-1.152M756.088 978.898h-.96M755.128 978.898h-.959M754.168 978.898h-.672M753.501 978.898h-1.152M752.355 978.898h-.96M751.395 978.898l-.192.288"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="m655.877 959.031-2.016.96M653.85 959.991l-1.92 1.92M651.93 961.911l-.96 2.976M650.97 964.885v1.92M650.97 966.805l.96 2.976M651.93 969.778l1.92 1.92M653.85 971.698l2.016.96M655.877 972.658h2.88M658.757 972.658l1.92-.96M660.677 971.698l2.016-1.92M662.69 969.778l.96-2.976M663.65 966.805v-1.92M663.65 964.885l-.96-2.976M662.69 961.911l-2.016-1.92M660.677 959.991l-1.92-.96M658.757 959.031h-2.88M672.383 956.152l2.016-1.056M674.396 955.098l2.88-2.88M677.276 952.218v20.448M701.662 955.098l-.96-1.92M700.702 953.178l-2.975-.96M697.73 952.218h-1.92M695.81 952.218l-2.88.96M692.93 953.178l-2.017 2.976M690.916 956.152l-.96 4.8M689.956 960.951v4.896M689.956 965.845l.96 3.936M690.916 969.778l2.016 1.92M692.93 971.698l2.88.96M695.81 972.658h.96M696.77 972.658l2.975-.96M699.743 971.698l1.92-1.92M701.662 969.778l.96-2.976M702.622 966.805v-.96M702.622 965.845l-.958-2.88M701.662 962.965l-1.92-2.016M699.743 960.951l-2.976-.96M696.77 959.991h-.96M695.81 959.991l-2.88.96M692.93 960.951l-2.018 2.016M690.916 962.965l-.959 2.88M857.472 832.981l-2.016.96M855.445 833.941l-1.92 2.016M853.525 835.955l-.96 2.88M852.565 838.834v1.92M852.565 840.754l.96 2.976M853.525 843.741l1.92 1.92M855.445 845.661l2.016.96M857.472 846.621h2.88M860.352 846.621l1.92-.96M862.272 845.661l2.016-1.92M864.285 843.741l.96-2.976M865.245 840.754v-1.92M865.245 838.834l-.96-2.88M864.285 835.955l-2.016-2.016M862.272 833.941l-1.92-.96M860.352 832.981h-2.88M873.978 830.101l2.016-.96M875.991 829.141l2.88-2.976M878.871 826.168v20.448M903.257 829.141l-.96-2.016M902.297 827.128l-2.975-.96M899.324 826.168h-1.92M897.404 826.168l-2.88.96M894.524 827.128l-2.016 2.976M892.511 830.101l-.96 4.896M891.551 834.995v4.8M891.551 839.794l.96 3.936M892.511 843.741l2.016 1.92M894.524 845.661l2.88.96M897.404 846.621h.96M898.364 846.621l2.976-.96M901.337 845.661l1.92-1.92M903.257 843.741l.96-2.976M904.217 840.754v-.96M904.217 839.794l-.96-2.88M903.257 836.915l-1.92-1.92M901.337 834.995l-2.975-1.056M898.364 833.941h-.96M897.404 833.941l-2.88 1.056M894.524 834.995l-2.016 1.92M892.511 836.915l-.96 2.88"/></g></g><g stroke="#20b2aa"><g stroke-width="28.8"><path stroke-width="3.839904" d="M979.189 843.154h-.096M979.096 843.154H979M979.002 843.154h-.096M978.909 843.154h-.096M978.802 843.154h-.096M978.709 843.154h-.096M978.616 843.154h-.096M978.522 843.154h-.096M978.429 843.154h-.096M978.322 843.154h-.096M978.229 843.154h-.096M978.136 843.154h-.096M978.042 843.154h-.096M977.949 843.154h-.096M977.842 843.154h-.096M977.749 843.154h-.096M977.656 843.154h-.096M977.562 843.154h-.096M977.469 843.154h-.096M977.362 843.154h-.096M977.269 843.154h-.096M977.176 843.154h-.096M977.082 843.154h-.096M976.989 843.154h-.096M976.882 843.154h-.096M976.789 843.154h-.192M976.602 843.154h-.096M976.509 843.154h-.096M976.402 843.154h-.192M976.216 843.154h-.096M976.122 843.154h-.096M976.029 843.154h-.096M975.922 843.154h-.192M975.736 843.154h-.096M975.642 843.154h-.096M975.549 843.154h-.096M975.442 843.154h-.096M975.349 843.154h-.192M975.162 843.154h-.192M974.962 843.154h-.096M974.869 843.154h-.192M974.682 843.154h-.096M974.589 843.154h-.096M974.482 843.154h-.192M974.296 843.154h-.192M974.109 843.154h-.192M973.909 843.154h-.096M973.816 843.154h-.192M973.629 843.154h-.192M973.429 843.154h-.096M973.336 843.154h-.192M973.149 843.154h-.192M972.949 843.154h-.192M972.762 843.154h-.192M972.562 843.154h-.193M972.376 843.154h-.192M972.189 843.154h-.19M971.989 843.154h-.097M971.896 843.154h-.192M971.709 843.154h-.192M971.509 843.154h-.192M971.322 843.154h-.193M971.122 843.154h-.192M970.936 843.154h-.288M970.642 843.154h-.288M970.362 843.154h-.384M969.976 843.154h-.192M969.79 843.154h-.289M969.496 843.154h-.288M969.202 843.154h-.385M968.83 843.154h-.192M968.63 843.154h-.289M968.35 843.154h-.482M967.87 843.154h-.289M967.576 843.154h-.383M967.19 843.154h-.385M966.802 843.154h-.48M966.323 843.154h-.288M966.043 843.154h-.288M965.75 843.154h-.383M965.363 843.154h-.288M965.083 843.154h-.194M964.883 843.154h-.384M964.51 843.154h-.383M964.123 843.154h-.288M963.83 843.154h-.385M963.443 843.154h-.386M963.07 843.154h-.383M962.683 843.154h-.384M962.296 843.154h-.385M961.91 843.154h-.386M961.523 843.154h-.191M961.336 843.154h-.192M961.15 843.154h-.385M960.763 843.154h-.864M959.896 843.154h-.481M959.416 843.154h-.383M959.03 843.154h-.48M958.55 843.154h-.48M958.07 843.154h-.96M957.11 843.154h-.48M956.63 843.154h-.577M956.056 843.154h-.48M955.576 843.154H955M955.003 843.154h-.576M954.43 843.154h-.48M953.95 843.154h-.672M953.27 843.154h-.576M952.696 843.154h-.576M952.123 843.154h-.576M951.55 843.154h-.672M950.87 843.154h-.672M950.203 843.154h-.288M949.91 843.154h-.288M949.63 843.154h-.768M948.856 843.154h-.672M948.19 843.154h-.672M947.51 843.154h-.672M946.843 843.154h-.768M946.07 843.154h-.672M945.403 843.154h-.768M944.63 843.154h-.768M943.87 843.154h-.768M943.096 843.154h-.768M942.323 843.154h-.864M941.47 843.154h-.768M940.696 843.154h-.863M939.83 843.154h-.864M938.963 843.154h-.865M938.11 843.154h-.384M937.723 843.154h-.48M937.243 843.154h-.672M936.563 843.154h-.672M935.897 843.154h-1.344M934.55 843.154h-.672M933.883 843.154h-.768M933.11 843.154h-.96M932.15 843.154h-1.44M930.71 843.154h-.96M929.75 843.154h-.48M929.27 843.154h-1.056M928.217 843.154h-1.056M927.163 843.154h-1.535M925.63 843.154h-1.056M924.564 843.154h-1.152M923.417 843.154h-1.056M922.364 843.154h-.864M921.497 843.154h-.864M920.63 843.154h-1.632M919.004 843.154h-1.248M917.75 843.154h-1.152M916.604 843.154h-1.152M915.444 843.154h-1.44M914.004 843.154h-1.632M912.377 843.154h-.96M911.417 843.154h-.96M910.457 843.154h-1.92M908.537 843.154h-1.344M907.19 843.154h-1.631M905.564 843.154h-1.056M904.51 843.154h-1.055M903.444 843.154h-2.016M901.43 843.154h-1.055M900.377 843.154h-1.631M898.75 843.154h-1.247M897.498 843.154h-.864M896.63 843.154h-.863M895.764 843.154h-1.344M894.431 843.154h-1.344M893.084 843.154h-1.536M891.551 843.154h-1.152M890.391 843.154h-1.344M889.044 843.154H887.7M887.711 843.154h-.864M886.844 843.154h-.863M885.978 843.154h-1.152M884.831 843.154h-1.152M883.671 843.154h-1.056M882.618 843.154h-.96M881.658 843.154h-.672M880.991 843.154h-.576M880.405 843.154h-1.44M878.965 843.154h-1.536M877.431 843.154h-2.112M875.325 843.154h-1.728M873.591 843.154h-.863M872.725 843.154H870.9M870.912 843.154h-1.344M869.565 843.154h-1.824M867.738 843.154h-2.208M865.525 843.154h-1.92M863.605 843.154h-.96M862.645 843.154h-1.824M860.832 843.154h-.96M859.872 843.154h-1.92M857.952 843.154h-.96M856.992 843.154h-2.016M854.965 843.154h-1.728M853.245 843.154h-1.44M851.805 843.154h-1.248M850.552 843.154h-2.592M847.965 843.154h-2.111M845.846 843.154h-2.784M843.072 843.154h-1.248M841.819 843.154h-1.152M840.672 843.154h-1.632M839.032 843.154h-2.016M837.02 843.154h-1.249M835.766 843.154h-1.632M834.14 843.154h-3.36M830.78 843.154h-1.633M829.153 843.154h-1.44M827.713 843.154H825.6M825.593 843.154h-1.344M824.246 843.154h-1.344M822.913 843.154h-1.536M821.366 843.154h-3.264M818.113 843.154h-2.976M815.126 843.154h-1.248M813.886 843.154h-2.4M811.486 843.154h-2.496M808.993 843.154h-2.112M806.873 843.154h-2.88M803.993 843.154h-2.88M801.113 843.154h-1.92M799.193 843.154h-2.016M797.18 843.154h-2.688M794.487 843.154h-1.44M793.047 843.154h-3.552M789.5 843.154h-1.824M787.674 843.154h-2.016M785.66 843.154h-2.016M783.647 843.154h-2.016M781.634 843.154h-1.536M780.087 843.154H777.4M777.407 843.154h-2.112M775.287 843.154h-1.056M774.234 843.154h-1.056M773.18 843.154h-.863M772.314 843.154h-.864M771.447 843.154h-.864M770.594 843.154h-.96M769.634 843.154h-.768M768.86 843.154h-.863M767.994 843.154h-.768M767.234 843.154h-1.44M765.794 843.154h-.672M765.114 843.154h-.576M764.54 843.154h-.671M763.874 843.154h-1.44M762.434 843.154h-1.536M760.888 843.154h-.672M760.221 843.154h-.768M759.448 843.154h-.576M758.874 843.154h-.576M758.301 843.154h-1.057M757.248 843.154h-1.152M756.088 843.154h-.96M755.128 843.154h-.959M754.168 843.154h-.672M753.501 843.154h-1.152M752.355 843.154h-.96M751.395 843.154h-.576M750.808 843.154h-1.152M749.661 843.154h-1.153M748.515 843.154h-1.152M747.355 843.154h-.767M746.595 843.154h-.77M745.821 843.154h-.766M745.048 843.154h-.768M744.288 843.154h-1.632M742.648 843.154h-.768M741.888 843.154h-.768M741.115 843.154h-.768M740.355 843.154h-.768M739.582 843.154h-.768M738.808 843.154h-.864M737.955 843.154h-1.152M736.795 843.154h-.576M736.222 843.154h-1.248M734.968 843.154h-1.152M733.822 843.154h-1.056M732.768 843.154H732M731.995 843.154h-1.248M730.755 843.154h-.768M729.982 843.154h-1.248M728.728 843.154h-.768M727.968 843.154h-.864M727.102 843.154h-1.152M725.955 843.154h-1.248M724.702 843.154h-.864M723.835 843.154h-1.248M722.595 843.154h-.768M721.822 843.154h-.864M720.955 843.154h-1.248M719.715 843.154h-.864M718.849 843.154h-.768M718.075 843.154h-.864M717.209 843.154h-.864M716.355 843.154h-.384M715.969 843.154h-.864M715.102 843.154h-.864M714.235 843.154h-1.247M712.996 843.154h-.576M712.409 843.154h-.48M711.929 843.154h-.672M711.262 843.154h-.768M710.489 843.154h-.864M709.636 843.154h-.48M709.156 843.154h-.864M708.289 843.154h-.864M707.422 843.154h-1.248M706.169 843.154h-.864M705.316 843.154h-1.344M703.97 843.154h-1.249M702.716 843.154h-.674M702.05 843.154h-.673M701.37 843.154h-.865M700.516 843.154h-.864M699.65 843.154h-1.345M698.303 843.154h-.864M697.436 843.154h-.864M696.57 843.154h-.865M695.716 843.154h-.864M694.85 843.154h-.48M694.37 843.154h-.865M693.503 843.154h-1.344M692.156 843.154h-.864M691.303 843.154h-.482M690.81 843.154h-.865M689.956 843.154h-.96M688.996 843.154h-.864M688.13 843.154h-.48M687.65 843.154h-.386M687.263 843.154h-.96M686.303 843.154h-.864M685.436 843.154h-.96M684.476 843.154h-1.342M683.143 843.154h-.673M682.463 843.154h-.48M681.983 843.154h-.672M681.316 843.154h-.864M680.45 843.154h-.96M679.49 843.154h-.48M679.01 843.154h-.866M678.143 843.154h-.959M677.183 843.154h-.96M676.223 843.154h-.384M675.836 843.154h-.48M675.356 843.154h-.48M674.876 843.154h-.48M674.396 843.154h-.48M673.916 843.154h-.48M673.436 843.154h-.383M673.063 843.154h-.48M672.583 843.154h-.288M672.29 843.154h-.192M672.103 843.154h-.48M671.623 843.154h-.96M670.663 843.154h-1.824M668.837 843.154h-.96M667.877 843.154h-.96M666.917 843.154h-.96M665.957 843.154h-.864M665.09 843.154h-.96M664.13 843.154h-.96M663.17 843.154h-.96M662.21 843.154h-.96M661.25 843.154h-.96M660.29 843.154h-.48M659.81 843.154h-.48M659.33 843.154h-.96M658.37 843.154h-.96M657.41 843.154h-1.92M655.49 843.154h-.96M654.53 843.154h-.96M653.57 843.154h-.96M652.61 843.154h-.96M651.65 843.154h-.96M650.69 843.154h-1.056M649.637 843.154h-.96M648.677 843.154h-.96M647.717 843.154h-1.92M645.797 843.154h-1.057M644.744 843.154h-.48M644.264 843.154h-.48M643.784 843.154h-.959M642.824 843.154h-1.057M641.757 843.154h-1.918M639.85 843.154h-1.057M638.784 843.154h-.96M637.824 843.154h-.959M636.864 843.154h-1.057M635.81 843.154h-.96M634.85 843.154h-1.054M633.797 843.154h-.48M633.318 843.154h-.48M632.838 843.154h-1.058M631.784 843.154h-2.014M629.77 843.154h-.96M628.798 843.154h-.576M628.224 843.154h-.48M627.744 843.154h-.96M626.784 843.154h-1.056M625.731 843.154h-2.016M623.718 843.154h-1.056M622.651 843.154h-1.056M621.598 843.154h-.96M620.638 843.154h-1.056M619.585 843.154h-1.056M618.531 843.154h-1.056M617.478 843.154h-2.016M615.451 843.154h-1.056M614.398 843.154h-1.056M613.345 843.154h-1.056M612.291 843.154h-1.056M611.238 843.154h-1.056M610.171 843.154h-.96M609.211 843.154h-1.056M608.158 843.154h-1.056M607.105 843.154h-1.056M606.052 843.154h-1.056M604.998 843.154h-2.112M602.878 843.154h-1.056M601.825 843.154h-1.152M600.678 843.154h-1.056M599.612 843.154h-1.056M598.558 843.154h-2.112M596.452 843.154h-1.056M595.398 843.154h-1.056M594.332 843.154h-2.208M592.132 843.154h-1.056M591.079 843.154h-.576M590.492 843.154h-.48M590.012 843.154h-1.056M588.959 843.154h-1.152M587.812 843.154H585.7M585.692 843.154h-1.152M584.545 843.154h-1.056M583.492 843.154h-1.056M582.439 843.154h-1.152M581.279 843.154h-1.056M580.225 843.154h-1.151M579.079 843.154h-1.056M578.012 843.154h-1.15M576.866 843.154h-2.21M574.652 843.154h-1.054M573.599 843.154h-1.153M572.452 843.154h-1.056M571.399 843.154h-1.152M570.24 843.154h-1.058M569.186 843.154h-1.152M568.04 843.154h-2.209M565.826 843.154h-1.152M564.68 843.154h-1.153M563.52 843.154h-1.057M562.466 843.154h-1.153M561.32 843.154h-1.153M560.16 843.154h-1.151M559.013 843.154h-1.056M557.96 843.154h-1.153M556.8 843.154h-2.305M554.493 843.154h-1.152M553.346 843.154h-1.152M552.2 843.154h-1.056M551.133 843.154h-1.152M549.986 843.154h-1.152M548.84 843.154h-1.152M547.68 843.154h-2.304M545.373 843.154h-2.304M543.08 843.154h-1.152M541.92 843.154h-1.152M540.773 843.154h-1.152M539.613 843.154h-1.152M538.467 843.154h-1.152M537.32 843.154h-1.152M536.16 843.154h-2.4M533.76 843.154h-1.152M532.613 843.154h-1.152M531.453 843.154h-1.152M530.307 843.154h-1.152M529.16 843.154h-2.4M526.76 843.154h-2.304M524.454 843.154h-1.248M523.2 843.154h-1.152M522.054 843.154h-1.152M520.894 843.154h-1.248M519.654 843.154h-2.304M517.347 843.154H516.1M516.094 843.154h-1.152M514.947 843.154h-2.4M512.547 843.154h-2.4M510.147 843.154h-1.152M509 843.154h-1.247M507.747 843.154h-2.4M505.347 843.154h-2.4M502.947 843.154h-1.152M501.8 843.154h-1.247M500.547 843.154h-2.4M498.148 843.154H496.9M496.894 843.154h-1.152M495.748 843.154h-2.496M493.254 843.154h-2.4M490.854 843.154h-1.248M489.601 843.154h-1.152M488.454 843.154h-2.495M485.961 843.154h-2.4M483.561 843.154h-1.248M482.308 843.154h-1.248M481.055 843.154h-2.496M478.561 843.154h-2.4M476.161 843.154h-2.496M473.668 843.154h-2.496M471.175 843.154h-1.248M469.922 843.154h-1.248M468.682 843.154h-2.496M466.175 843.154h-2.4M463.775 843.154h-2.592M461.188 843.154h-1.249M459.935 843.154h-1.246M458.695 843.154H456.2M456.202 843.154h-2.496M453.695 843.154H451.2M451.202 843.154h-2.496M448.709 843.154h-2.496M446.216 843.154h-1.344M444.869 843.154h-1.248M443.616 843.154h-2.496M441.122 843.154h-2.497M438.629 843.154h-2.59M436.042 843.154h-2.497M433.536 843.154h-2.59M430.95 843.154h-2.498M428.456 843.154h-2.59M425.856 843.154h-1.25M424.616 843.154h-1.343M423.27 843.154h-2.498M420.776 843.154h-2.59M418.176 843.154h-2.593M415.59 843.154h-2.495M413.096 843.154h-2.593M410.496 843.154h-2.592M407.91 843.154h-2.592M405.323 843.154h-2.592M402.723 843.154h-2.592M400.137 843.154h-1.248M398.883 843.154h-1.248M397.643 843.154h-2.592M395.043 843.154h-2.591M392.457 843.154h-2.592M389.857 843.154h-2.592M387.27 843.154h-2.592M384.684 843.154h-2.592M382.084 843.154h-2.592M379.497 843.154h-1.344M378.15 843.154h-1.247M376.897 843.154h-2.592M374.31 843.154h-2.591M371.724 843.154h-2.592M369.124 843.154h-2.592M366.538 843.154h-2.592M363.938 843.154h-2.592M361.351 843.154h-2.688M358.658 843.154h-2.592M356.071 843.154h-2.592M353.484 843.154h-1.247M352.231 843.154h-1.344M350.885 843.154h-2.592M348.298 843.154h-2.592M345.698 843.154h-2.592M343.111 843.154h-2.592M340.525 843.154h-2.592M337.925 843.154h-2.592M335.338 843.154h-2.592M332.738 843.154h-2.496M330.245 843.154h-5.184M325.059 843.154h-2.592M322.472 843.154h-2.592M319.885 843.154h-2.592M317.285 843.154h-2.496M314.792 843.154H312.2M312.206 843.154h-2.592M309.606 843.154h-2.496M307.112 843.154h-2.592M304.526 843.154h-5.088M299.433 843.154h-2.496M296.94 843.154h-2.497M294.446 843.154h-2.592M291.846 843.154h-2.496M289.353 843.154h-2.496M286.86 843.154h-2.496M284.366 843.154h-4.992M279.366 843.154h-2.4M276.966 843.154h-2.496M274.473 843.154h-2.496M271.98 843.154h-2.4M269.58 843.154h-2.496M267.087 843.154h-2.4M264.687 843.154h-2.4M262.287 843.154h-2.4M259.887 843.154h-4.8M255.087 843.154h-2.4M252.687 843.154h-2.304M250.38 843.154h-2.4M247.98 843.154h-2.303M245.674 843.154h-2.304M243.367 843.154h-2.304M241.06 843.154h-2.303M238.767 843.154h-2.208M236.554 843.154h-2.304M234.247 843.154h-2.207M232.048 843.154h-2.208M229.834 843.154h-2.208M227.621 843.154h-4.32M223.301 843.154h-2.112M221.194 843.154h-2.207M218.981 843.154h-4.128M214.861 843.154h-2.016M212.848 843.154h-2.016M210.821 843.154h-2.016M208.808 843.154h-1.92M206.888 843.154h-1.92M204.968 843.154h-1.92M203.048 843.154h-1.92M201.128 843.154h-1.824M199.302 843.154h-3.552M195.755 843.154h-1.728M194.022 843.154h-1.728M192.302 843.154h-1.536M190.769 843.154h-1.632M189.129 843.154h-1.632M187.502 843.154h-1.536M185.969 843.154h-2.784M183.182 843.154h-1.344M181.835 843.154h-1.44M180.395 843.154h-1.151M179.249 843.154H178M177.996 843.154h-2.112M175.889 843.154h-.864M175.022 843.154h-1.152M173.862 843.154h-.576M173.289 843.154h-.192M173.102 843.154h-.192M172.902 843.154h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M240.007 817.528v13.632M240.007 821.462l2.88-2.976M242.887 818.488l1.92-.96M244.807 817.528h2.976M247.78 817.528l1.92.96M249.7 818.488l.96 2.976M250.66 821.462v9.695M257.487 823.382h11.712M269.193 823.382v-1.92M269.193 821.462l-.96-2.016M268.233 819.448l-.96-.96M267.273 818.488l-1.92-.96M265.353 817.528h-2.976M262.38 817.528l-1.92.96M260.46 818.488l-1.92 1.92M258.54 820.408l-1.056 2.976M257.487 823.382v1.92M257.487 825.302l1.056 2.975M258.54 828.275l1.92 1.92M260.46 830.195l1.92.96M262.38 831.155h2.976M265.353 831.155l1.92-.96M267.273 830.195l1.92-1.92M276.006 815.608v-.96M276.006 814.648l1.056-2.016M277.06 812.635l.96-.96M278.02 811.675l1.92-.96M279.94 810.715h3.936M283.886 810.715l1.92.96M285.806 811.675l.96.96M286.766 812.635l.96 2.016M287.726 814.648v1.92M287.726 816.568l-.96 1.92M286.766 818.488l-1.92 2.976M284.846 821.462l-9.792 9.695M275.046 831.155h13.632M300.392 810.715l-2.88.96M297.513 811.675l-2.016 2.976M295.5 814.648l-.96 4.8M294.54 819.448v2.976M294.54 822.422l.96 4.895M295.5 827.315l2.015 2.88M297.513 830.195l2.88.96M300.392 831.155h2.016M302.406 831.155l2.88-.96M305.286 830.195l1.92-2.88M307.206 827.315l.96-4.896M308.166 822.422v-2.976M308.166 819.448l-.96-4.8M307.206 814.648l-1.92-2.975M305.286 811.675l-2.88-.96M302.406 810.715h-2.016M441.602 817.528v13.632M441.602 821.462l2.88-2.976M444.482 818.488l1.92-.96M446.402 817.528h2.976M449.375 817.528l1.92.96M451.295 818.488l.96 2.976M452.255 821.462v9.695M459.082 823.382h11.712M470.788 823.382v-1.92M470.788 821.462l-.96-2.016M469.828 819.448l-.96-.96M468.868 818.488l-1.92-.96M466.948 817.528h-2.976M463.975 817.528l-1.92.96M462.055 818.488l-1.92 1.92M460.135 820.408l-1.056 2.976M459.082 823.382v1.92M459.082 825.302l1.056 2.975M460.135 828.275l1.92 1.92M462.055 830.195l1.92.96M463.975 831.155h2.976M466.948 831.155l1.92-.96M468.868 830.195l1.92-1.92M477.601 815.608v-.96M477.601 814.648l1.056-2.016M478.655 812.635l.96-.96M479.615 811.675l1.92-.96M481.535 810.715h3.936M485.481 810.715l1.92.96M487.401 811.675l.96.96M488.361 812.635l.96 2.016M489.321 814.648v1.92M489.321 816.568l-.96 1.92M488.361 818.488l-1.92 2.976M486.441 821.462l-9.792 9.695M476.641 831.155h13.632M501.987 810.715l-2.88.96M499.108 811.675l-2.016 2.976M497.094 814.648l-.96 4.8M496.134 819.448v2.976M496.134 822.422l.96 4.895M497.094 827.315l2.016 2.88M499.108 830.195l2.88.96M501.987 831.155h2.016M504 831.155l2.88-.96M506.88 830.195l1.92-2.88M508.8 827.315l.96-4.896M509.76 822.422v-2.976M509.76 819.448l-.96-4.8M508.8 814.648l-1.92-2.975M506.88 811.675l-2.88-.96M504 810.715h-2.015M643.197 817.528v13.632M643.197 821.462l2.88-2.976M646.077 818.488l1.92-.96M647.997 817.528h2.976M650.97 817.528l1.92.96M652.89 818.488l.96 2.976M653.85 821.462v9.695M660.677 823.382h11.712M672.383 823.382v-1.92M672.383 821.462l-.96-2.016M671.423 819.448l-.96-.96M670.463 818.488l-1.92-.96M668.543 817.528h-2.976M665.57 817.528l-1.92.96M663.65 818.488l-1.92 1.92M661.73 820.408l-1.056 2.976M660.677 823.382v1.92M660.677 825.302l1.056 2.975M661.73 828.275l1.92 1.92M663.65 830.195l1.92.96M665.57 831.155h2.976M668.543 831.155l1.92-.96M670.463 830.195l1.92-1.92M679.196 815.608v-.96M679.196 814.648l1.056-2.016M680.25 812.635l.96-.96M681.21 811.675l1.92-.96M683.13 810.715h3.935M687.076 810.715l1.92.96M688.996 811.675l.96.96M689.956 812.635l.96 2.016M690.916 814.648v1.92M690.916 816.568l-.96 1.92M689.956 818.488l-1.92 2.976M688.036 821.462l-9.792 9.695M678.236 831.155h13.632M703.582 810.715l-2.88.96M700.702 811.675l-2.015 2.976M698.69 814.648l-.96 4.8M697.73 819.448v2.976M697.73 822.422l.96 4.895M698.69 827.315l2.015 2.88M700.702 830.195l2.88.96M703.582 831.155h2.016M705.596 831.155l2.88-.96M708.476 830.195l1.92-2.88M710.396 827.315l.96-4.896M711.356 822.422v-2.976M711.356 819.448l-.96-4.8M710.396 814.648l-1.92-2.975M708.476 811.675l-2.88-.96M705.596 810.715h-2.016M844.792 817.528v13.632M844.792 821.462l2.88-2.976M847.672 818.488l1.92-.96M849.592 817.528h2.976M852.565 817.528l1.92.96M854.485 818.488l.96 2.976M855.445 821.462v9.695M862.272 823.382h11.711M873.978 823.382v-1.92M873.978 821.462l-.96-2.016M873.018 819.448l-.96-.96M872.058 818.488l-1.92-.96M870.138 817.528h-2.976M867.165 817.528l-1.92.96M865.245 818.488l-1.92 1.92M863.325 820.408l-1.056 2.976M862.272 823.382v1.92M862.272 825.302l1.056 2.975M863.325 828.275l1.92 1.92M865.245 830.195l1.92.96M867.165 831.155h2.976M870.138 831.155l1.92-.96M872.058 830.195l1.92-1.92M880.791 815.608v-.96M880.791 814.648l1.056-2.016M881.845 812.635l.96-.96M882.805 811.675l1.92-.96M884.725 810.715h3.935M888.671 810.715l1.92.96M890.591 811.675l.96.96M891.551 812.635l.96 2.016M892.511 814.648v1.92M892.511 816.568l-.96 1.92M891.551 818.488l-1.92 2.976M889.631 821.462l-9.792 9.695M879.831 831.155h13.632M905.177 810.715l-2.88.96M902.297 811.675l-2.016 2.976M900.284 814.648l-.96 4.8M899.324 819.448v2.976M899.324 822.422l.96 4.895M900.284 827.315l2.016 2.88M902.297 830.195l2.88.96M905.177 831.155h2.016M907.19 831.155l2.88-.96M910.07 830.195l1.92-2.88M911.99 827.315l.96-4.896M912.95 822.422v-2.976M912.95 819.448l-.96-4.8M911.99 814.648l-1.92-2.975M910.07 811.675l-2.88-.96M907.19 810.715h-2.015"/></g></g><g stroke="#2e8b57" stroke-width="36"><path stroke-width="4.79988" d="M979.189 978.418h-23.136M928.217 978.418h-27.84M870.912 978.418H744.29M663.17 978.418h-24.383"/></g><g stroke="#87cefa" stroke-width="36"><path stroke-width="4.79988" d="M954.43 978.418h-9.792M940.696 978.418h-9.983M897.498 978.418h-22.176M736.795 978.418h-63.359M619.585 978.418H172.809"/></g><g stroke="#f5f5dd" stroke-width="36"><path stroke-width="4.79988" d="M955.576 978.418H955M943.87 978.418h-.768M929.75 978.418h-.48M873.591 978.418h-.863M742.648 978.418h-4.704M673.05 978.418h-8.928M637.824 978.418H620.64"/></g></g></svg>
\ No newline at end of file
diff --git a/star/test_suite/high_mass/docs/hr000488.svg b/star/test_suite/high_mass/docs/hr000488.svg
index ca24d55c0..7d6082ff1 100644
--- a/star/test_suite/high_mass/docs/hr000488.svg
+++ b/star/test_suite/high_mass/docs/hr000488.svg
@@ -1,183 +1 @@
-<?xml version="1.0" encoding="utf-8"?>
-<!-- Generator: Adobe Illustrator 25.2.3, SVG Export Plug-In . SVG Version: 6.00 Build 0)  -->
-<svg version="1.1" id="Layer_1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" x="0px" y="0px"
-	 viewBox="0 0 936.33 1100.61" style="enable-background:new 0 0 936.33 1100.61;" xml:space="preserve">
-<style type="text/css">
-	.st0{fill-rule:evenodd;clip-rule:evenodd;}
-	.st1{fill:none;stroke:#FFFFFF;stroke-width:1.08;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st2{fill:none;stroke:#FFFFFF;stroke-width:1.44;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st3{fill:none;stroke:#008080;stroke-width:2.88;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-</style>
-<rect class="st0" width="936.33" height="1100.61"/>
-<path class="st1" d="M162,997.1h756 M918,997.1V89.9 M918,89.9H162 M162,89.9v907.2 M162,997.1v-14.98 M192.24,997.1v-7.49
-	 M222.48,997.1v-7.49 M252.72,997.1v-7.49 M282.96,997.1v-7.49 M313.2,997.1v-14.98 M343.44,997.1v-7.49 M373.68,997.1v-7.49
-	 M403.92,997.1v-7.49 M434.16,997.1v-7.49 M464.4,997.1v-14.98 M494.64,997.1v-7.49 M524.88,997.1v-7.49 M555.12,997.1v-7.49
-	 M585.36,997.1v-7.49 M615.6,997.1v-14.98 M645.84,997.1v-7.49 M676.08,997.1v-7.49 M706.32,997.1v-7.49 M736.56,997.1v-7.49
-	 M766.8,997.1v-14.98 M797.04,997.1v-7.49 M827.28,997.1v-7.49 M857.52,997.1v-7.49 M887.76,997.1v-7.49 M918,997.1v-14.98
-	 M162,104.87V89.9 M192.24,97.39V89.9 M222.48,97.39V89.9 M252.72,97.39V89.9 M282.96,97.39V89.9 M313.2,104.87V89.9 M343.44,97.39
-	V89.9 M373.68,97.39V89.9 M403.92,97.39V89.9 M434.16,97.39V89.9 M464.4,104.87V89.9 M494.64,97.39V89.9 M524.88,97.39V89.9
-	 M555.12,97.39V89.9 M585.36,97.39V89.9 M615.6,104.87V89.9 M645.84,97.39V89.9 M676.08,97.39V89.9 M706.32,97.39V89.9
-	 M736.56,97.39V89.9 M766.8,104.87V89.9 M797.04,97.39V89.9 M827.28,97.39V89.9 M857.52,97.39V89.9 M887.76,97.39V89.9 M918,104.87
-	V89.9 M166.97,1015.03h-9.94 M157.03,1015.03l-1.01,9 M156.02,1024.03l1.01-1.01 M157.03,1023.02l2.95-1.01 M159.98,1022.01h3.02
-	 M163.01,1022.01l2.95,1.01 M165.96,1023.02l2.02,2.02 M167.98,1025.03l1.01,2.95 M168.98,1027.99v2.02 M168.98,1030l-1.01,2.95
-	 M167.98,1032.95l-2.02,2.02 M165.96,1034.97l-2.95,1.01 M163.01,1035.98h-3.02 M159.98,1035.98l-2.95-1.01 M157.03,1034.97
-	l-1.01-1.01 M156.02,1033.96l-1.01-1.94 M301.25,1015.03l-10.01,13.97 M291.24,1028.99h14.98 M301.25,1015.03v20.95 M313.2,1033.96
-	l-1.01,1.01 M312.19,1034.97l1.01,1.01 M313.2,1035.98l1.01-1.01 M314.21,1034.97l-1.01-1.01 M334.15,1022.01l-1.01,3.02
-	 M333.14,1025.03l-2.02,1.94 M331.13,1026.98l-2.95,1.01 M328.18,1027.99h-1.01 M327.17,1027.99l-3.02-1.01 M324.14,1026.98
-	l-1.94-1.94 M322.2,1025.03l-1.01-3.02 M321.19,1022.01V1021 M321.19,1021l1.01-2.95 M322.2,1018.05l1.94-2.02 M324.14,1016.03
-	l3.02-1.01 M327.17,1015.03h1.01 M328.18,1015.03l2.95,1.01 M331.13,1016.03l2.02,2.02 M333.14,1018.05l1.01,3.96 M334.15,1022.01
-	v4.97 M334.15,1026.98l-1.01,5.04 M333.14,1032.02l-2.02,2.95 M331.13,1034.97l-2.95,1.01 M328.18,1035.98h-2.02 M326.16,1035.98
-	l-3.02-1.01 M323.14,1034.97l-0.94-2.02 M452.45,1015.03l-10.01,13.97 M442.44,1028.99h14.98 M452.45,1015.03v20.95 M464.4,1033.96
-	l-1.01,1.01 M463.39,1034.97l1.01,1.01 M464.4,1035.98l1.01-1.01 M465.41,1034.97l-1.01-1.01 M477.36,1015.03l-3.02,1.01
-	 M474.34,1016.03l-0.94,2.02 M473.4,1018.05v1.94 M473.4,1019.99l0.94,2.02 M474.34,1022.01l2.02,1.01 M476.35,1023.02l4.03,1.01
-	 M480.38,1024.03l2.95,1.01 M483.34,1025.03l2.02,1.94 M485.35,1026.98l1.01,2.02 M486.36,1028.99v3.02 M486.36,1032.02l-1.01,1.94
-	 M485.35,1033.96l-1.01,1.01 M484.34,1034.97l-3.02,1.01 M481.32,1035.98h-3.96 M477.36,1035.98l-3.02-1.01 M474.34,1034.97
-	l-0.94-1.01 M473.4,1033.96l-1.01-1.94 M472.39,1032.02v-3.02 M472.39,1028.99l1.01-2.02 M473.4,1026.98l1.94-1.94 M475.34,1025.03
-	l3.02-1.01 M478.37,1024.03l3.96-1.01 M482.33,1023.02l2.02-1.01 M484.34,1022.01l1.01-2.02 M485.35,1019.99v-1.94 M485.35,1018.05
-	l-1.01-2.02 M484.34,1016.03l-3.02-1.01 M481.32,1015.03h-3.96 M603.65,1015.03l-10.01,13.97 M593.64,1028.99h14.98 M603.65,1015.03
-	v20.95 M615.6,1033.96l-1.01,1.01 M614.59,1034.97l1.01,1.01 M615.6,1035.98l1.01-1.01 M616.61,1034.97l-1.01-1.01 M637.56,1015.03
-	l-10.01,20.95 M623.59,1015.03h13.97 M754.85,1015.03l-10.01,13.97 M744.84,1028.99h14.98 M754.85,1015.03v20.95 M766.8,1033.96
-	l-1.01,1.01 M765.79,1034.97l1.01,1.01 M766.8,1035.98l1.01-1.01 M767.81,1034.97l-1.01-1.01 M787.75,1018.05l-1.01-2.02
-	 M786.74,1016.03l-3.02-1.01 M783.72,1015.03h-1.94 M781.78,1015.03l-3.02,1.01 M778.75,1016.03l-2.02,3.02 M776.74,1019.06
-	l-0.94,4.97 M775.8,1024.03v4.97 M775.8,1028.99l0.94,3.96 M776.74,1032.95l2.02,2.02 M778.75,1034.97l3.02,1.01 M781.78,1035.98
-	h1.01 M782.78,1035.98l2.95-1.01 M785.74,1034.97l2.02-2.02 M787.75,1032.95l1.01-2.95 M788.76,1030v-1.01 M788.76,1028.99
-	l-1.01-2.95 M787.75,1026.04l-2.02-2.02 M785.74,1024.03l-2.95-1.01 M782.78,1023.02h-1.01 M781.78,1023.02l-3.02,1.01
-	 M778.75,1024.03l-2.02,2.02 M776.74,1026.04l-0.94,2.95 M162,997.1h14.98 M162,845.9h7.49 M162,694.7h14.98 M162,543.5h7.49
-	 M162,392.3h14.98 M162,241.1h7.49 M903.02,997.1H918 M910.51,845.9H918 M903.02,694.7H918 M910.51,543.5H918 M903.02,392.3H918
-	 M910.51,241.1H918 M105.41,988.89l-1.01-2.02 M104.4,986.87l-2.95-1.01 M101.45,985.87h-2.02 M99.43,985.87l-2.95,1.01
-	 M96.48,986.87l-2.02,3.02 M94.46,989.9l-1.01,4.97 M93.46,994.87v4.97 M93.46,999.83l1.01,3.96 M94.46,1003.79l2.02,2.02
-	 M96.48,1005.81l2.95,1.01 M99.43,1006.82h1.01 M100.44,1006.82l3.02-1.01 M103.46,1005.81l1.94-2.02 M105.41,1003.79l1.01-2.95"/>
-<path class="st1" d="M106.42,1000.84v-1.01 M106.42,999.83l-1.01-2.95 M105.41,996.88l-1.94-2.02 M103.46,994.87l-3.02-1.01
-	 M100.44,993.86h-1.01 M99.43,993.86l-2.95,1.01 M96.48,994.87l-2.02,2.02 M94.46,996.88l-1.01,2.95 M114.41,1004.8l-1.01,1.01
-	 M113.4,1005.81l1.01,1.01 M114.41,1006.82l1.01-1.01 M115.42,1005.81l-1.01-1.01 M135.36,988.89l-1.01-2.02 M134.35,986.87
-	l-3.02-1.01 M131.33,985.87h-1.94 M129.38,985.87l-3.02,1.01 M126.36,986.87l-2.02,3.02 M124.34,989.9l-1.01,4.97 M123.34,994.87
-	v4.97 M123.34,999.83l1.01,3.96 M124.34,1003.79l2.02,2.02 M126.36,1005.81l3.02,1.01 M129.38,1006.82h0.94 M130.32,1006.82
-	l3.02-1.01 M133.34,1005.81l2.02-2.02 M135.36,1003.79l0.94-2.95 M136.3,1000.84v-1.01 M136.3,999.83l-0.94-2.95 M135.36,996.88
-	l-2.02-2.02 M133.34,994.87l-3.02-1.01 M130.32,993.86h-0.94 M129.38,993.86l-3.02,1.01 M126.36,994.87l-2.02,2.02 M124.34,996.88
-	l-1.01,2.95 M105.41,686.49l-1.01-2.02 M104.4,684.47l-2.95-1.01 M101.45,683.47h-2.02 M99.43,683.47l-2.95,1.01 M96.48,684.47
-	l-2.02,3.02 M94.46,687.5l-1.01,4.97 M93.46,692.47v4.97 M93.46,697.43l1.01,3.96 M94.46,701.39l2.02,2.02 M96.48,703.41l2.95,1.01
-	 M99.43,704.42h1.01 M100.44,704.42l3.02-1.01 M103.46,703.41l1.94-2.02 M105.41,701.39l1.01-2.95 M106.42,698.44v-1.01
-	 M106.42,697.43l-1.01-2.95 M105.41,694.48l-1.94-2.02 M103.46,692.47l-3.02-1.01 M100.44,691.46h-1.01 M99.43,691.46l-2.95,1.01
-	 M96.48,692.47l-2.02,2.02 M94.46,694.48l-1.01,2.95 M114.41,702.4l-1.01,1.01 M113.4,703.41l1.01,1.01 M114.41,704.42l1.01-1.01
-	 M115.42,703.41l-1.01-1.01 M127.37,683.47l-3.02,1.01 M124.34,684.47l-1.01,2.02 M123.34,686.49v1.94 M123.34,688.43l1.01,2.02
-	 M124.34,690.45l2.02,1.01 M126.36,691.46l3.96,1.01 M130.32,692.47l3.02,1.01 M133.34,693.47l2.02,1.94 M135.36,695.42l0.94,2.02
-	 M136.3,697.43v3.02 M136.3,700.46l-0.94,1.94 M135.36,702.4l-1.01,1.01 M134.35,703.41l-3.02,1.01 M131.33,704.42h-3.96
-	 M127.37,704.42l-3.02-1.01 M124.34,703.41l-1.01-1.01 M123.34,702.4l-0.94-1.94 M122.4,700.46v-3.02 M122.4,697.43l0.94-2.02
-	 M123.34,695.42l2.02-1.94 M125.35,693.47l3.02-1.01 M128.38,692.47l3.96-1.01 M132.34,691.46l2.02-1.01 M134.35,690.45l1.01-2.02
-	 M135.36,688.43v-1.94 M135.36,686.49l-1.01-2.02 M134.35,684.47l-3.02-1.01 M131.33,683.47h-3.96 M136.3,381.07l-9.94,20.95
-	 M122.4,381.07h13.9 M106.42,78.67l-9.94,20.95 M92.45,78.67h13.97 M114.41,97.6l-1.01,1.01 M113.4,98.61l1.01,1.01 M114.41,99.62
-	l1.01-1.01 M115.42,98.61l-1.01-1.01 M123.34,83.63V82.7 M123.34,82.7l1.01-2.02 M124.34,80.68l1.01-1.01 M125.35,79.67l2.02-1.01
-	 M127.37,78.67h3.96 M131.33,78.67l2.02,1.01 M133.34,79.67l1.01,1.01 M134.35,80.68l1.01,2.02 M135.36,82.7v1.94 M135.36,84.64
-	l-1.01,2.02 M134.35,86.66l-2.02,3.02 M132.34,89.68l-9.94,9.94 M122.4,99.62h13.9"/>
-<path class="st2" d="M470.23,1060.03v26.14 M485.14,1068.74l-2.45,1.22 M482.69,1069.96l-2.52,2.52 M480.17,1072.48l-1.22,3.74
-	 M478.94,1076.23v2.52 M478.94,1078.75l1.22,3.74 M480.17,1082.49l2.52,2.45 M482.69,1084.94l2.45,1.22 M485.14,1086.16h3.74
-	 M488.88,1086.16l2.52-1.22 M491.4,1084.94l2.52-2.45 M493.92,1082.49l1.22-3.74 M495.14,1078.75v-2.52 M495.14,1076.23l-1.22-3.74
-	 M493.92,1072.48l-2.52-2.52 M491.4,1069.96l-2.52-1.22 M488.88,1068.74h-3.74 M517.54,1068.74v19.94 M517.54,1088.68l-1.22,3.74
-	 M516.31,1092.43l-1.22,1.22 M515.09,1093.65l-2.52,1.3 M512.57,1094.95h-3.74 M508.82,1094.95l-2.45-1.3 M517.54,1072.48
-	l-2.45-2.52 M515.09,1069.96l-2.52-1.22 M512.57,1068.74h-3.74 M508.82,1068.74l-2.45,1.22 M506.38,1069.96l-2.52,2.52
-	 M503.86,1072.48l-1.22,3.74 M502.63,1076.23v2.52 M502.63,1078.75l1.22,3.74 M503.86,1082.49l2.52,2.45 M506.38,1084.94l2.45,1.22
-	 M508.82,1086.16h3.74 M512.57,1086.16l2.52-1.22 M515.09,1084.94l2.45-2.45 M552.46,1060.03v26.14 M543.74,1060.03h17.42
-	 M566.14,1076.23h14.98 M581.11,1076.23v-2.52 M581.11,1073.71l-1.22-2.45 M579.89,1071.26l-1.22-1.3 M578.66,1069.96l-2.52-1.22
-	 M576.14,1068.74h-3.74 M572.4,1068.74l-2.52,1.22 M569.88,1069.96l-2.45,2.52 M567.43,1072.48l-1.3,3.74 M566.14,1076.23v2.52
-	 M566.14,1078.75l1.3,3.74 M567.43,1082.49l2.45,2.45 M569.88,1084.94l2.52,1.22 M572.4,1086.16h3.74 M576.14,1086.16l2.52-1.22
-	 M578.66,1084.94l2.45-2.45 M597.31,1060.03h-2.45 M594.86,1060.03l-2.52,1.22 M592.34,1061.25l-1.22,3.74 M591.12,1064.99v21.17
-	 M587.38,1068.74h8.71 M612.29,1060.03h-2.52 M609.77,1060.03l-2.45,1.22 M607.32,1061.25l-1.3,3.74 M606.02,1064.99v21.17
-	 M602.28,1068.74h8.78 M10.3,622.12h26.14 M19.01,607.15l1.22,2.52 M20.23,609.67l2.52,2.52 M22.75,612.19l3.74,1.22 M26.5,613.41
-	h2.45 M28.94,613.41l3.74-1.22 M32.69,612.19l2.52-2.52 M35.21,609.67l1.22-2.52 M36.43,607.15v-3.74 M36.43,603.4l-1.22-2.45
-	 M35.21,600.95l-2.52-2.52 M32.69,598.43l-3.74-1.22 M28.94,597.21H26.5 M26.5,597.21l-3.74,1.22 M22.75,598.43l-2.52,2.52
-	 M20.23,600.95l-1.22,2.45 M19.01,603.4v3.74 M19.01,574.75h19.94 M38.95,574.75l3.74,1.3 M42.7,576.04l1.22,1.22 M43.92,577.27
-	l1.22,2.52 M45.14,579.79v3.74 M45.14,583.53l-1.22,2.45 M22.75,574.75l-2.52,2.52 M20.23,577.27l-1.22,2.52 M19.01,579.79v3.74
-	 M19.01,583.53l1.22,2.45 M20.23,585.98l2.52,2.52 M22.75,588.5l3.74,1.22 M26.5,589.72h2.45 M28.94,589.72l3.74-1.22 M32.69,588.5
-	l2.52-2.52 M35.21,585.98l1.22-2.45 M36.43,583.53v-3.74 M36.43,579.79l-1.22-2.52 M35.21,577.27l-2.52-2.52 M10.3,544.87h26.14
-	 M36.43,544.87v-14.98 M5.33,503.75l39.82,22.39 M10.3,496.27h26.14 M36.43,496.27v-14.98 M31.75,468.83l0.94,2.81 M32.69,471.64
-	l1.87,2.81 M34.56,474.45l2.81,1.87 M37.37,476.32l2.81,0.94 M40.18,477.26h2.81 M42.98,477.26l2.81-0.94 M45.79,476.32l2.81-1.87
-	 M48.6,474.45l1.87-2.81 M50.47,471.64l0.94-2.81 M51.41,468.83v-2.81 M51.41,466.03l-0.94-2.81 M50.47,463.22l-1.87-2.81
-	 M48.6,460.41l-2.81-1.87 M45.79,458.54l-2.81-0.86 M42.98,457.67h-2.81 M40.18,457.67l-2.81,0.86 M37.37,458.54l-2.81,1.87
-	 M34.56,460.41l-1.87,2.81 M32.69,463.22l-0.94,2.81 M31.75,466.03v2.81 M40.18,467.9l0.94,0.94 M41.11,468.83h0.94 M42.05,468.83
-	l0.94-0.94 M42.98,467.9v-0.94 M42.98,466.96l-0.94-0.94 M42.05,466.03h-0.94 M41.11,466.03l-0.94,0.94 M40.18,466.96v0.94
-	 M41.11,467.9h0.94 M42.05,467.9v-0.94 M42.05,466.96h-0.94 M41.11,466.96v0.94"/>
-<path class="st1" d="M815.26,15.81v9.29 M815.26,18.47l1.94-2.02 M817.2,16.46l1.37-0.65 M818.57,15.81h2.02 M820.58,15.81l1.3,0.65
-	 M821.88,16.46l0.65,2.02 M822.53,18.47v6.62 M822.53,18.47l2.02-2.02 M824.54,16.46l1.3-0.65 M825.84,15.81h2.02 M827.86,15.81
-	l1.37,0.65 M829.22,16.46l0.65,2.02 M829.87,18.47v6.62 M837.86,15.81l-1.37,0.65 M836.5,16.46l-1.3,1.3 M835.2,17.75l-0.72,2.02
-	 M834.48,19.77v1.37 M834.48,21.14l0.72,1.94 M835.2,23.08l1.3,1.37 M836.5,24.45l1.37,0.65 M837.86,25.1h1.94 M839.81,25.1
-	l1.37-0.65 M841.18,24.45l1.3-1.37 M842.47,23.08l0.65-1.94 M843.12,21.14v-1.37 M843.12,19.77l-0.65-2.02 M842.47,17.75l-1.3-1.3
-	 M841.18,16.46l-1.37-0.65 M839.81,15.81h-1.94 M855.14,11.13V25.1 M855.14,17.75l-1.37-1.3 M853.78,16.46l-1.3-0.65 M852.48,15.81
-	h-2.02 M850.46,15.81l-1.37,0.65 M849.1,16.46l-1.3,1.3 M847.8,17.75l-0.65,2.02 M847.15,19.77v1.37 M847.15,21.14l0.65,1.94
-	 M847.8,23.08l1.3,1.37 M849.1,24.45l1.37,0.65 M850.46,25.1h2.02 M852.48,25.1l1.3-0.65 M853.78,24.45l1.37-1.37 M859.75,19.77
-	h7.99 M867.74,19.77v-1.3 M867.74,18.47l-0.65-1.37 M867.1,17.11l-0.72-0.65 M866.38,16.46l-1.3-0.65 M865.08,15.81h-2.02
-	 M863.06,15.81l-1.3,0.65 M861.77,16.46l-1.37,1.3 M860.4,17.75l-0.65,2.02 M859.75,19.77v1.37 M859.75,21.14l0.65,1.94
-	 M860.4,23.08l1.37,1.37 M861.77,24.45l1.3,0.65 M863.06,25.1h2.02 M865.08,25.1l1.3-0.65 M866.38,24.45l1.37-1.37 M872.42,11.13
-	V25.1 M894.31,11.13l-6.62,9.29 M887.69,20.42h9.94 M894.31,11.13V25.1 M904.32,11.13l-2.02,0.65 M902.3,11.78l-0.65,1.37
-	 M901.66,13.15v1.3 M901.66,14.44l0.65,1.37 M902.3,15.81l1.3,0.65 M903.6,16.46l2.66,0.65 M906.26,17.11l2.02,0.65 M908.28,17.75
-	l1.3,1.37 M909.58,19.12l0.72,1.3 M910.3,20.42v2.02 M910.3,22.43l-0.72,1.37 M909.58,23.8l-0.65,0.65 M908.93,24.45l-1.94,0.65
-	 M906.98,25.1h-2.66 M904.32,25.1l-2.02-0.65 M902.3,24.45l-0.65-0.65 M901.66,23.8l-0.72-1.37 M900.94,22.43v-2.02 M900.94,20.42
-	l0.72-1.3 M901.66,19.12l1.3-1.37 M902.95,17.75l2.02-0.65 M904.97,17.11l2.66-0.65 M907.63,16.46l1.3-0.65 M908.93,15.81l0.65-1.37
-	 M909.58,14.44v-1.3 M909.58,13.15l-0.65-1.37 M908.93,11.78l-1.94-0.65 M906.98,11.13h-2.66 M917.57,11.13l-1.94,0.65
-	 M915.62,11.78l-0.72,1.37 M914.9,13.15v1.3 M914.9,14.44l0.72,1.37 M915.62,15.81l1.3,0.65 M916.92,16.46l2.66,0.65 M919.58,17.11
-	l2.02,0.65 M921.6,17.75l1.3,1.37 M922.9,19.12l0.65,1.3 M923.54,20.42v2.02 M923.54,22.43l-0.65,1.37 M922.9,23.8l-0.65,0.65
-	 M922.25,24.45l-2.02,0.65 M920.23,25.1h-2.66 M917.57,25.1l-1.94-0.65 M915.62,24.45l-0.72-0.65 M914.9,23.8l-0.65-1.37
-	 M914.26,22.43v-2.02 M914.26,20.42l0.65-1.3 M914.9,19.12l1.37-1.37 M916.27,17.75l1.94-0.65 M918.22,17.11l2.66-0.65
-	 M920.88,16.46l1.37-0.65 M922.25,15.81l0.65-1.37 M922.9,14.44v-1.3 M922.9,13.15l-0.65-1.37 M922.25,11.78l-2.02-0.65
-	 M920.23,11.13h-2.66 M141.7,15.81v9.29 M141.7,17.75l-1.3-1.3 M140.4,16.46l-1.3-0.65 M139.1,15.81h-2.02 M137.09,15.81l-1.37,0.65
-	 M135.72,16.46l-1.3,1.3 M134.42,17.75l-0.65,2.02 M133.78,19.77v1.37 M133.78,21.14l0.65,1.94 M134.42,23.08l1.3,1.37
-	 M135.72,24.45l1.37,0.65 M137.09,25.1h2.02 M139.1,25.1l1.3-0.65 M140.4,24.45l1.3-1.37 M154.37,15.81v10.58 M154.37,26.39
-	l-0.65,2.02 M153.72,28.41L153,29.06 M153,29.06l-1.3,0.72 M151.7,29.78h-2.02 M149.69,29.78l-1.3-0.72 M154.37,17.75l-1.37-1.3
-	 M153,16.46l-1.3-0.65 M151.7,15.81h-2.02 M149.69,15.81l-1.3,0.65 M148.39,16.46l-1.37,1.3 M147.02,17.75l-0.65,2.02 M146.38,19.77
-	v1.37 M146.38,21.14l0.65,1.94 M147.02,23.08l1.37,1.37 M148.39,24.45l1.3,0.65 M149.69,25.1h2.02 M151.7,25.1l1.3-0.65 M153,24.45
-	l1.37-1.37 M158.98,19.77h7.99 M166.97,19.77v-1.3 M166.97,18.47l-0.65-1.37 M166.32,17.11l-0.65-0.65 M165.67,16.46l-1.37-0.65
-	 M164.3,15.81h-1.94 M162.36,15.81l-1.37,0.65 M160.99,16.46l-1.3,1.3 M159.7,17.75l-0.72,2.02 M158.98,19.77v1.37 M158.98,21.14
-	l0.72,1.94 M159.7,23.08l1.3,1.37 M160.99,24.45l1.37,0.65 M162.36,25.1h1.94 M164.3,25.1l1.37-0.65 M165.67,24.45l1.3-1.37
-	 M182.3,14.44v-0.65 M182.3,13.79l0.65-1.3 M182.95,12.5l0.65-0.72 M183.6,11.78l1.3-0.65 M184.9,11.13h2.66 M187.56,11.13
-	l1.37,0.65 M188.93,11.78l0.65,0.72 M189.58,12.5l0.65,1.3 M190.22,13.79v1.37 M190.22,15.16l-0.65,1.3 M189.58,16.46l-1.3,2.02
-	 M188.28,18.47l-6.7,6.62 M181.58,25.1h9.36 M196.2,23.8l-0.65,0.65 M195.55,24.45l0.65,0.65 M196.2,25.1l0.72-0.65 M196.92,24.45
-	l-0.72-0.65 M203.54,13.79l1.3-0.65 M204.84,13.15l2.02-2.02 M206.86,11.13V25.1 M215.5,14.44v-0.65 M215.5,13.79l0.65-1.3
-	 M216.14,12.5l0.72-0.72 M216.86,11.78l1.3-0.65 M218.16,11.13h2.66 M220.82,11.13l1.3,0.65 M222.12,11.78l0.72,0.72 M222.84,12.5
-	l0.65,1.3 M223.49,13.79v1.37 M223.49,15.16l-0.65,1.3 M222.84,16.46l-1.37,2.02 M221.47,18.47l-6.62,6.62"/>
-<path class="st1" d="M214.85,25.1h9.29 M236.09,11.13h-6.62 M229.46,11.13l-0.65,5.98 M228.82,17.11l0.65-0.65 M229.46,16.46
-	l2.02-0.65 M231.48,15.81h1.94 M233.42,15.81l2.02,0.65 M235.44,16.46l1.3,1.3 M236.74,17.75l0.72,2.02 M237.46,19.77v1.37
-	 M237.46,21.14l-0.72,1.94 M236.74,23.08l-1.3,1.37 M235.44,24.45l-2.02,0.65 M233.42,25.1h-1.94 M231.48,25.1l-2.02-0.65
-	 M229.46,24.45l-0.65-0.65 M228.82,23.8l-0.72-1.37 M248.04,11.13l-6.62,9.29 M241.42,20.42h10.01 M248.04,11.13V25.1 M261.36,11.13
-	l-6.62,9.29 M254.74,20.42h9.94 M261.36,11.13V25.1 M268.7,14.44v-0.65 M268.7,13.79l0.65-1.3 M269.35,12.5l0.65-0.72 M270,11.78
-	l1.3-0.65 M271.3,11.13h2.66 M273.96,11.13l1.37,0.65 M275.33,11.78l0.65,0.72 M275.98,12.5l0.65,1.3 M276.62,13.79v1.37
-	 M276.62,15.16l-0.65,1.3 M275.98,16.46l-1.3,2.02 M274.68,18.47l-6.7,6.62 M267.98,25.1h9.36 M281.3,19.77h7.99 M289.3,19.77v-1.3
-	 M289.3,18.47l-0.72-1.37 M288.58,17.11l-0.65-0.65 M287.93,16.46l-1.3-0.65 M286.63,15.81h-2.02 M284.62,15.81l-1.3,0.65
-	 M283.32,16.46l-1.37,1.3 M281.95,17.75l-0.65,2.02 M281.3,19.77v1.37 M281.3,21.14l0.65,1.94 M281.95,23.08l1.37,1.37
-	 M283.32,24.45l1.3,0.65 M284.62,25.1h2.02 M286.63,25.1l1.3-0.65 M287.93,24.45l1.37-1.37 M301.9,13.15l-0.65-1.37 M301.25,11.78
-	l-2.02-0.65 M299.23,11.13h-1.3 M297.94,11.13l-2.02,0.65 M295.92,11.78l-1.3,2.02 M294.62,13.79l-0.72,3.31 M293.9,17.11v3.31
-	 M293.9,20.42l0.72,2.66 M294.62,23.08l1.3,1.37 M295.92,24.45l2.02,0.65 M297.94,25.1h0.65 M298.58,25.1l2.02-0.65 M300.6,24.45
-	l1.3-1.37 M301.9,23.08l0.65-1.94 M302.54,21.14v-0.72 M302.54,20.42l-0.65-1.94 M301.9,18.47l-1.3-1.37 M300.6,17.11l-2.02-0.65
-	 M298.58,16.46h-0.65 M297.94,16.46l-2.02,0.65 M295.92,17.11l-1.3,1.37 M294.62,18.47l-0.72,1.94 M316.51,15.81l4.03,9.29
-	 M324.5,15.81l-3.96,9.29 M320.54,25.1l-1.37,2.66 M319.18,27.76l-1.3,1.3 M317.88,29.06l-1.37,0.72 M316.51,29.78h-0.65
-	 M328.46,15.81v9.29 M328.46,19.77l0.72-2.02 M329.18,17.75l1.3-1.3 M330.48,16.46l1.3-0.65 M331.78,15.81h2.02 M343.8,17.75
-	l-0.72-1.3 M343.08,16.46l-1.94-0.65 M341.14,15.81h-2.02 M339.12,15.81l-2.02,0.65 M337.1,16.46l-0.65,1.3 M336.46,17.75l0.65,1.37
-	 M337.1,19.12l1.37,0.65 M338.47,19.77l3.31,0.65 M341.78,20.42l1.3,0.72 M343.08,21.14l0.72,1.3 M343.8,22.43v0.65 M343.8,23.08
-	l-0.72,1.37 M343.08,24.45l-1.94,0.65 M341.14,25.1h-2.02 M339.12,25.1l-2.02-0.65 M337.1,24.45l-0.65-1.37 M403.92,28.63l1.08,1.08
-	 M405,29.71l1.08-1.08 M406.08,28.63L405,27.55 M405,27.55l-1.08,1.08 M405,36.19v15.12 M413.64,36.19v15.12 M413.64,40.51
-	l3.24-3.24 M416.88,37.27l2.16-1.08 M419.04,36.19h3.24 M422.28,36.19l2.16,1.08 M424.44,37.27l1.08,3.24 M425.52,40.51v10.8
-	 M434.16,28.63v22.68 M441.72,28.63l1.08,1.08 M442.8,29.71l1.08-1.08 M443.88,28.63l-1.08-1.08 M442.8,27.55l-1.08,1.08
-	 M442.8,36.19v15.12 M462.24,39.43l-1.08-2.16 M461.16,37.27l-3.24-1.08 M457.92,36.19h-3.24 M454.68,36.19l-3.24,1.08
-	 M451.44,37.27l-1.08,2.16 M450.36,39.43l1.08,2.16 M451.44,41.59l2.16,1.08 M453.6,42.67l5.4,1.08 M459,43.75l2.16,1.08
-	 M461.16,44.83l1.08,2.16 M462.24,46.99v1.08 M462.24,48.07l-1.08,2.16 M461.16,50.23l-3.24,1.08 M457.92,51.31h-3.24 M454.68,51.31
-	l-3.24-1.08 M451.44,50.23l-1.08-2.16 M470.88,28.63v18.36 M470.88,46.99l1.08,3.24 M471.96,50.23l2.16,1.08 M474.12,51.31h2.16
-	 M467.64,36.19h7.56 M478.44,53.47h19.44 M503.28,28.63v22.68 M503.28,40.51l3.24-3.24 M506.52,37.27l2.16-1.08 M508.68,36.19h3.24
-	 M511.92,36.19l2.16,1.08 M514.08,37.27l1.08,3.24 M515.16,40.51v10.8 M522.72,28.63l1.08,1.08 M523.8,29.71l1.08-1.08
-	 M524.88,28.63l-1.08-1.08 M523.8,27.55l-1.08,1.08 M523.8,36.19v15.12 M544.32,36.19v17.28 M544.32,53.47l-1.08,3.24 M543.24,56.71
-	l-1.08,1.08 M542.16,57.79L540,58.87 M540,58.87h-3.24 M536.76,58.87l-2.16-1.08 M544.32,39.43l-2.16-2.16 M542.16,37.27L540,36.19
-	 M540,36.19h-3.24 M536.76,36.19l-2.16,1.08 M534.6,37.27l-2.16,2.16 M532.44,39.43l-1.08,3.24 M531.36,42.67v2.16 M531.36,44.83
-	l1.08,3.24 M532.44,48.07l2.16,2.16 M534.6,50.23l2.16,1.08 M536.76,51.31H540 M540,51.31l2.16-1.08 M542.16,50.23l2.16-2.16
-	 M552.96,28.63v22.68 M552.96,40.51l3.24-3.24 M556.2,37.27l2.16-1.08 M558.36,36.19h3.24 M561.6,36.19l2.16,1.08 M563.76,37.27
-	l1.08,3.24 M564.84,40.51v10.8 M569.16,53.47h19.44 M594,36.19v15.12 M594,40.51l3.24-3.24 M597.24,37.27l2.16-1.08 M599.4,36.19
-	h3.24 M602.64,36.19l2.16,1.08 M604.8,37.27l1.08,3.24 M605.88,40.51v10.8 M605.88,40.51l3.24-3.24 M609.12,37.27l2.16-1.08
-	 M611.28,36.19h3.24 M614.52,36.19l2.16,1.08 M616.68,37.27l1.08,3.24 M617.76,40.51v10.8 M638.28,36.19v15.12 M638.28,39.43
-	l-2.16-2.16 M636.12,37.27l-2.16-1.08 M633.96,36.19h-3.24 M630.72,36.19l-2.16,1.08 M628.56,37.27l-2.16,2.16 M626.4,39.43
-	l-1.08,3.24"/>
-<path class="st1" d="M625.32,42.67v2.16 M625.32,44.83l1.08,3.24 M626.4,48.07l2.16,2.16 M628.56,50.23l2.16,1.08 M630.72,51.31
-	h3.24 M633.96,51.31l2.16-1.08 M636.12,50.23l2.16-2.16 M657.72,39.43l-1.08-2.16 M656.64,37.27l-3.24-1.08 M653.4,36.19h-3.24
-	 M650.16,36.19l-3.24,1.08 M646.92,37.27l-1.08,2.16 M645.84,39.43l1.08,2.16 M646.92,41.59l2.16,1.08 M649.08,42.67l5.4,1.08
-	 M654.48,43.75l2.16,1.08 M656.64,44.83l1.08,2.16 M657.72,46.99v1.08 M657.72,48.07l-1.08,2.16 M656.64,50.23l-3.24,1.08
-	 M653.4,51.31h-3.24 M650.16,51.31l-3.24-1.08 M646.92,50.23l-1.08-2.16 M676.08,39.43L675,37.27 M675,37.27l-3.24-1.08
-	 M671.76,36.19h-3.24 M668.52,36.19l-3.24,1.08 M665.28,37.27l-1.08,2.16 M664.2,39.43l1.08,2.16 M665.28,41.59l2.16,1.08
-	 M667.44,42.67l5.4,1.08 M672.84,43.75l2.16,1.08 M675,44.83l1.08,2.16 M676.08,46.99v1.08 M676.08,48.07L675,50.23 M675,50.23
-	l-3.24,1.08 M671.76,51.31h-3.24 M668.52,51.31l-3.24-1.08 M665.28,50.23l-1.08-2.16"/>
-<path class="st3" d="M918,488.56c-143.66,15.74-467.11,27.89-515.16,193.03c-1.62,2.21-5.58-0.3-5.04-2.81"/>
-</svg>
+<svg xmlns="http://www.w3.org/2000/svg" width="1152" height="1152"><path fill-rule="evenodd" d="M.016 1151.984h1151.971V.013H.017z"/><g fill="none" stroke-linecap="round" stroke-linejoin="round" stroke-miterlimit="10"><g stroke="#fff"><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M172.809 979.191h806.38M979.189 979.191v-806.38M979.189 172.811h-806.38M172.809 172.811v806.38M172.809 979.191v-15.936M205.062 979.191v-7.968M237.327 979.191v-7.968M269.58 979.191v-7.968M301.832 979.191v-7.968M334.085 979.191v-15.936M366.338 979.191v-7.968M398.603 979.191v-7.968M430.856 979.191v-7.968M463.108 979.191v-7.968M495.36 979.191v-15.936M527.613 979.191v-7.968M559.88 979.191v-7.968M592.132 979.191v-7.968M624.384 979.191v-7.968M656.637 979.191v-15.936M688.89 979.191v-7.968M721.155 979.191v-7.968M753.408 979.191v-7.968M785.66 979.191v-7.968M817.913 979.191v-15.936M850.165 979.191v-7.968M882.431 979.191v-7.968M914.684 979.191v-7.968M946.936 979.191v-7.968M979.189 979.191v-15.936M172.809 188.744v-15.936M205.062 180.77v-7.967M237.327 180.77v-7.967M269.58 180.77v-7.967M301.832 180.77v-7.967M334.085 188.744v-15.936M366.338 180.77v-7.967M398.603 180.77v-7.967M430.856 180.77v-7.967M463.108 180.77v-7.967M495.36 188.744v-15.936M527.613 180.77v-7.967M559.88 180.77v-7.967M592.132 180.77v-7.967M624.384 180.77v-7.967M656.637 188.744v-15.936M688.89 180.77v-7.967M721.155 180.77v-7.967M753.408 180.77v-7.967M785.66 180.77v-7.967M817.913 188.744v-15.936M850.165 180.77v-7.967M882.431 180.77v-7.967M914.684 180.77v-7.967M946.936 180.77v-7.967M979.189 188.744v-15.936M178.089 998.297h-10.56M167.53 998.297l-1.057 9.6M166.476 1007.897l1.056-1.056M167.53 1006.83l3.167-1.056M170.702 1005.777h3.168M173.862 1005.777l3.168 1.056M177.036 1006.83l2.112 2.112M179.142 1008.95l1.152 3.168M180.302 1012.11v2.208M180.302 1014.323l-1.152 3.168M179.142 1017.497l-2.112 2.112M177.036 1019.603l-3.168 1.057M173.862 1020.66h-3.168M170.702 1020.66l-3.168-1.057M167.53 1019.603l-1.057-1.056M166.476 1018.55l-1.152-2.112M321.325 998.297l-10.655 14.88M310.659 1013.177h15.936M321.325 998.297v22.368M334.085 1018.55l-1.056 1.056M333.032 1019.603l1.056 1.057M334.085 1020.66l1.056-1.057M335.138 1019.603l-1.056-1.056M356.458 1005.777l-1.056 3.168M355.404 1008.95l-2.207 2.112M353.191 1011.057l-3.168 1.056M350.018 1012.11h-1.056M348.965 1012.11l-3.168-1.056M345.805 1011.057l-2.112-2.112M343.685 1008.95l-1.056-3.168M342.631 1005.777v-1.056M342.631 1004.724l1.056-3.168M343.685 1001.55l2.112-2.208M345.805 999.35l3.168-1.055M348.965 998.297h1.056M350.018 998.297l3.168 1.056M353.191 999.35l2.208 2.208M355.404 1001.55l1.056 4.224M356.458 1005.777v5.28M356.458 1011.057l-1.056 5.376M355.404 1016.43l-2.207 3.168M353.191 1019.603l-3.168 1.056M350.018 1020.66h-2.112M347.911 1020.66l-3.168-1.056M344.738 1019.603l-1.056-2.112M482.601 998.297l-10.655 14.88M471.935 1013.177h15.935M482.601 998.297v22.368M495.36 1018.55l-1.055 1.056M494.308 1019.603l1.056 1.057M495.36 1020.66l1.057-1.057M496.414 1019.603l-1.056-1.056M509.187 998.297l-3.168 1.056M506.014 999.35l-1.056 2.208M504.96 1001.55v2.112M504.96 1003.67l1.057 2.112M506.014 1005.777l2.112 1.056M508.134 1006.83l4.224 1.056M512.36 1007.897l3.168 1.056M515.52 1008.95l2.208 2.112M517.734 1011.057l1.056 2.112M518.787 1013.177v3.264M518.787 1016.43l-1.056 2.112M517.734 1018.55l-1.056 1.056M516.68 1019.603l-3.264 1.056M513.414 1020.66h-4.224M509.187 1020.66l-3.168-1.056M506.014 1019.603l-1.056-1.056M504.96 1018.55l-1.055-2.112M503.907 1016.43v-3.264M503.907 1013.177l1.056-2.112M504.96 1011.057l2.113-2.112M507.08 1008.95l3.169-1.056M510.24 1007.897l4.224-1.056M514.467 1006.83l2.208-1.056M516.68 1005.777l1.056-2.112M517.734 1003.67v-2.112M517.734 1001.55l-1.056-2.208M516.68 999.35l-3.264-1.055M513.414 998.297h-4.224M643.877 998.297l-10.655 14.88M633.21 1013.177h15.936M643.877 998.297v22.368M656.637 1018.55l-1.056 1.056M655.584 1019.603l1.056 1.057M656.637 1020.66l1.056-1.057M657.69 1019.603l-1.056-1.056M680.063 998.297l-10.656 22.368M665.183 998.297h14.88M805.153 998.297l-10.656 14.88M794.487 1013.177h15.935M805.153 998.297v22.368M817.913 1018.55l-1.056 1.056M816.86 1019.603l1.056 1.057M817.913 1020.66l1.056-1.057M818.966 1019.603l-1.056-1.056M840.286 1001.55l-1.056-2.208M839.232 999.35l-3.264-1.055M835.966 998.297h-2.112M833.846 998.297l-3.168 1.056M830.686 999.35l-2.112 3.264M828.566 1002.617l-1.056 5.28M827.513 1007.897v5.28M827.513 1013.177l1.056 4.32M828.566 1017.497l2.112 2.112M830.686 1019.603l3.168 1.056M833.846 1020.66h1.056M834.912 1020.66l3.168-1.056M838.072 1019.603l2.208-2.112M840.286 1017.497l1.056-3.168M841.339 1014.323v-1.152M841.339 1013.177l-1.056-3.168M840.286 1010.004l-2.208-2.112M838.072 1007.897l-3.168-1.056M834.912 1006.83h-1.056M833.846 1006.83l-3.168 1.056M830.686 1007.897l-2.112 2.112M828.566 1010.004l-1.056 3.167M172.809 979.191h15.936M172.809 844.794h7.968M172.809 710.398h15.936M172.809 576.001h7.968M172.809 441.604h15.936M172.809 307.208h7.968M963.256 979.191h15.936M971.23 844.794h7.967M963.256 710.398h15.936M971.23 576.001h7.967M963.256 441.604h15.936M971.23 307.208h7.967M112.43 970.458l-1.057-2.208M111.373 968.245l-3.168-1.056M108.205 967.191h-2.112M106.093 967.191l-3.167 1.056M102.925 968.245l-2.112 3.264M100.813 971.511l-1.152 5.28M99.662 976.791v5.28M99.662 982.07l1.152 4.32M100.813 986.39l2.112 2.113M102.925 988.497l3.168 1.056M106.093 989.55h1.057M107.15 989.55l3.167-1.055M110.317 988.497l2.112-2.112M112.43 986.39l1.055-3.167M113.485 983.218v-1.152M113.485 982.07l-1.056-3.167M112.43 978.898l-2.113-2.112M110.317 976.791l-3.167-1.056M107.15 975.738h-1.057M106.093 975.738l-3.167 1.056M102.925 976.791l-2.112 2.112M100.813 978.898l-1.152 3.168M122.029 987.444l-1.056 1.056M120.973 988.497l1.056 1.056M122.029 989.55l1.056-1.055M123.085 988.497l-1.056-1.056M144.396 970.458l-1.056-2.208M143.343 968.245l-3.264-1.056M140.076 967.191h-2.111M137.97 967.191l-3.168 1.056M134.797 968.245l-2.112 3.264M132.685 971.511l-1.057 5.28M131.629 976.791v5.28M131.629 982.07l1.056 4.32M132.685 986.39l2.112 2.113M134.797 988.497l3.168 1.056M137.97 989.55h1.056M139.023 989.55l3.264-1.055M142.29 988.497l2.112-2.112M144.396 986.39l1.056-3.167M145.45 983.218v-1.152M145.45 982.07l-1.056-3.167M144.396 978.898l-2.112-2.112M142.29 976.791l-3.264-1.056M139.023 975.738h-1.056M137.97 975.738l-3.168 1.056M134.797 976.791l-2.112 2.112M132.685 978.898l-1.056 3.168M112.43 701.665l-1.057-2.208M111.373 699.451l-3.168-1.056M108.205 698.398h-2.112M106.093 698.398l-3.167 1.056M102.925 699.451l-2.112 3.264M100.813 702.718l-1.152 5.28M99.662 707.998v5.28M99.662 713.278l1.152 4.32M100.813 717.598l2.112 2.111M102.925 719.704l3.168 1.056M106.093 720.757h1.057M107.15 720.757l3.167-1.056M110.317 719.704l2.112-2.112M112.43 717.598l1.055-3.168M113.485 714.424v-1.152M113.485 713.278l-1.056-3.168M112.43 710.104l-2.113-2.112M110.317 707.998l-3.167-1.056M107.15 706.944h-1.057M106.093 706.944 102.926 708M102.925 707.998l-2.112 2.112M100.813 710.104l-1.152 3.168M122.029 718.65l-1.056 1.057M120.973 719.704l1.056 1.056M122.029 720.757l1.056-1.056M123.085 719.704l-1.056-1.056M135.85 698.398l-3.168 1.056M132.685 699.451l-1.057 2.208M131.629 701.665v2.112M131.629 703.771l1.056 2.112M132.685 705.878l2.112 1.056M134.797 706.944 139.02 708M139.023 707.998l3.264 1.056M142.29 709.051l2.112 2.112M144.396 711.158l1.056 2.112M145.45 713.278v3.264M145.45 716.544l-1.056 2.112M144.396 718.65l-1.056 1.057M143.343 719.704l-3.264 1.056M140.076 720.757h-4.223M135.85 720.757l-3.168-1.056M132.685 719.704l-1.057-1.056M131.629 718.65l-1.056-2.111M130.573 716.544v-3.264M130.573 713.278l1.055-2.112M131.629 711.158l2.112-2.112M133.743 709.051l3.168-1.056M136.903 707.998l4.224-1.056M141.13 706.944l2.208-1.056M143.343 705.878l1.056-2.112M144.396 703.771v-2.112M144.396 701.665l-1.056-2.208M143.343 699.451l-3.264-1.056M140.076 698.398h-4.223M145.45 429.605l-10.656 22.367M130.573 429.605h14.88M113.485 160.811l-10.56 22.368M98.606 160.811h14.88M122.029 181.064l-1.056 1.056M120.973 182.118l1.056 1.056M122.029 183.17l1.056-1.055M123.085 182.118l-1.056-1.056M131.629 166.185v-1.056M131.629 165.131l1.056-2.112M132.685 163.011l1.056-1.152M133.743 161.865l2.112-1.056M135.85 160.811h4.224M140.076 160.811l2.208 1.056M142.29 161.865l1.056 1.152M143.343 163.011l1.056 2.112M144.396 165.131v2.112M144.396 167.238l-1.056 2.112M143.343 169.358l-2.208 3.168M141.13 172.518l-10.56 10.656M130.573 183.17h14.88"/></g><g stroke-width="14.4"><path stroke-width="1.919952" d="M501.6 1046.29v27.936M517.534 1055.602l-2.688 1.344M514.854 1056.946l-2.688 2.688M512.16 1059.634l-1.247 3.937M510.92 1063.57v2.688M510.92 1066.258l1.249 3.936M512.16 1070.194l2.688 2.688M514.854 1072.882l2.688 1.344M517.534 1074.226h3.936M521.48 1074.226l2.688-1.344M524.16 1072.882l2.688-2.688M526.853 1070.194l1.344-3.936M528.2 1066.258v-2.687M528.2 1063.57l-1.344-3.936M526.853 1059.634l-2.687-2.688M524.16 1056.946l-2.688-1.343M521.48 1055.602h-3.936M552.093 1055.602v21.312M552.093 1076.914l-1.344 3.936M550.76 1080.85l-1.344 1.344M549.413 1082.194l-2.688 1.344M546.72 1083.538h-3.936M542.786 1083.538l-2.688-1.344M552.093 1059.634l-2.688-2.688M549.413 1056.946l-2.688-1.343M546.72 1055.602h-3.936M542.786 1055.602l-2.688 1.344M540.093 1056.946l-2.688 2.688M537.413 1059.634l-1.248 3.937M536.16 1063.57v2.688M536.16 1066.258l1.248 3.936M537.413 1070.194l2.688 2.688M540.093 1072.882l2.688 1.344M542.786 1074.226h3.936M546.72 1074.226l2.688-1.344M549.413 1072.882l2.688-2.688M589.252 1046.29v27.936M580.039 1046.29h18.527M603.932 1063.57h15.935M619.878 1063.57v-2.592M619.878 1060.978l-1.344-2.688M618.531 1058.29l-1.344-1.344M617.185 1056.946l-2.592-1.343M614.598 1055.602h-4.032M610.558 1055.602l-2.688 1.344M607.878 1056.946l-2.592 2.688M605.278 1059.634l-1.344 3.937M603.932 1063.57v2.688M603.932 1066.258l1.344 3.936M605.278 1070.194l2.592 2.688M607.878 1072.882l2.688 1.344M610.558 1074.226h4.032M614.598 1074.226l2.592-1.344M617.185 1072.882l2.688-2.688M637.157 1046.29h-2.688M634.464 1046.29l-2.592 1.344M631.878 1047.635l-1.344 4.032M630.53 1051.667v22.559M626.491 1055.602h9.312M653.09 1046.29h-2.688M650.397 1046.29l-2.592 1.344M647.81 1047.635l-1.343 4.032M646.464 1051.667v22.559M642.437 1055.602h9.312M10.96 659.906h27.935M20.271 643.96l1.345 2.591M21.615 646.56l2.688 2.687M24.303 649.24l3.936 1.343M28.24 650.586h2.687M30.927 650.586l3.936-1.344M34.863 649.24l2.688-2.689M37.551 646.56l1.344-2.593M38.895 643.96v-4.033M38.895 639.933l-1.344-2.688M37.551 637.24l-2.688-2.592M34.863 634.653l-3.936-1.344M30.927 633.306H28.24M28.24 633.306l-3.937 1.344M24.303 634.653l-2.688 2.592M21.615 637.24l-1.344 2.687M20.271 639.933v4.032M20.271 609.4h21.312M41.583 609.4l3.936 1.248M45.519 610.654l1.344 1.344M46.863 612l1.344 2.688M48.207 614.68v3.936M48.207 618.627l-1.344 2.688M24.303 609.4l-2.688 2.592M21.615 612l-1.344 2.688M20.271 614.68v3.936M20.271 618.627l1.345 2.688M21.615 621.307l2.688 2.688M24.303 624l3.936 1.344M28.24 625.347h2.687M30.927 625.347l3.936-1.344M34.863 624l2.688-2.688M37.551 621.307l1.344-2.688M38.895 618.627v-3.936M38.895 614.68l-1.344-2.688M37.551 612l-2.688-2.592M10.96 577.441h27.935M38.895 577.441v-15.936M5.68 533.562l42.527 24M10.96 525.602h27.935M38.895 525.602v-15.935M33.903 496.416l.96 2.976M34.863 499.39l2.016 2.976M36.88 502.363l2.975 2.016M39.855 504.39l3.072.96M42.927 505.35h2.976M45.903 505.35l2.976-.96M48.879 504.39l2.976-2.016M51.855 502.363l2.015-2.976M53.87 499.39l.96-2.976M54.83 496.416v-3.072M54.83 493.35l-.96-2.976M53.87 490.363l-2.015-2.976M51.855 487.39l-2.976-2.016M48.879 485.377l-2.976-.96M45.903 484.417h-2.976M42.927 484.417l-3.072.96M39.855 485.377l-2.976 2.016M36.88 487.39l-2.017 2.976M34.863 490.363l-.96 2.976M33.903 493.35v3.072M42.927 495.363l.96 1.056M43.887 496.416h.96M44.847 496.416l1.056-1.056M45.903 495.363v-.96M45.903 494.403l-1.056-1.056M44.847 493.35h-.96M43.887 493.35l-.96 1.056M42.927 494.403v.96M43.887 495.363h.96M44.847 495.363v-.96M44.847 494.403h-.96M43.887 494.403v.96"/></g><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M869.565 93.8v9.888M869.565 96.586l2.112-2.112M871.672 94.48l1.44-.672M873.112 93.8h2.111M875.231 93.8l1.44.672M876.671 94.48l.672 2.112M877.338 96.586v7.104M877.338 96.586l2.208-2.112M879.551 94.48l1.344-.672M880.885 93.8h2.112M883.005 93.8l1.44.672M884.445 94.48l.768 2.112M885.205 96.586v7.104M893.658 93.8l-1.44.672M892.218 94.48l-1.344 1.44M890.871 95.92l-.768 2.112M890.111 98.026v1.44M890.111 99.466l.768 2.112M890.871 101.573l1.344 1.44M892.218 103.013l1.44.672M893.658 103.693h2.112M895.764 103.693l1.44-.672M897.204 103.013l1.44-1.44M898.644 101.573l.672-2.112M899.324 99.466v-1.44M899.324 98.026l-.672-2.112M898.644 95.92l-1.44-1.44M897.204 94.48l-1.44-.672M895.764 93.8h-2.112M912.084 88.813v14.88M912.084 95.92l-1.44-1.44M910.644 94.48l-1.344-.672M909.31 93.8H907.2M907.19 93.8l-1.44.672M905.75 94.48l-1.44 1.44M904.31 95.92l-.671 2.112M903.644 98.026v1.44M903.644 99.466l.672 2.112M904.31 101.573l1.44 1.44M905.75 103.013l1.44.672M907.19 103.693h2.113M909.31 103.693l1.345-.672M910.644 103.013l1.44-1.44M917.084 98.026h8.544M925.63 98.026v-1.44M925.63 96.586l-.768-1.44M924.857 95.146l-.672-.672M924.19 94.48l-1.44-.672M922.75 93.8h-2.112M920.63 93.8l-1.44.672M919.19 94.48l-1.44 1.44M917.75 95.92l-.672 2.112M917.084 98.026v1.44M917.084 99.466l.672 2.112M917.75 101.573l1.44 1.44M919.19 103.013l1.44.672M920.63 103.693h2.112M922.75 103.693l1.44-.672M924.19 103.013l1.44-1.44M930.523 88.813v14.88M953.95 88.813l-7.104 9.888M946.843 98.693h10.656M953.95 88.813v14.88M964.603 88.813l-2.112.672M962.483 89.48l-.768 1.44M961.723 90.92v1.44M961.723 92.36l.768 1.44M962.483 93.8l1.344.672M963.83 94.48l2.88.672M966.71 95.146l2.111.768M968.83 95.92l1.44 1.44M970.27 97.36l.671 1.344M970.936 98.693v2.112M970.936 100.813l-.672 1.44M970.27 102.253l-.769.768M969.496 103.013l-2.112.672M967.39 103.693h-2.785M964.603 103.693l-2.112-.672M962.483 103.013l-.768-.768M961.723 102.253l-.672-1.44M961.043 100.813V98.7M961.043 98.693l.672-1.344M961.723 97.36l1.44-1.44M963.163 95.92l2.112-.768M965.27 95.146l2.88-.672M968.15 94.48l1.343-.672M969.496 93.8l.768-1.44M970.27 92.36v-1.44M970.27 90.92l-.769-1.44M969.496 89.48l-2.112-.672M967.39 88.813h-2.785M978.709 88.813l-2.112.672M976.602 89.48l-.672 1.44M975.922 90.92v1.44M975.922 92.36l.672 1.44M976.602 93.8l1.44.672M978.042 94.48l2.88.672M980.922 95.146l2.112.768M983.029 95.92l1.344 1.44M984.375 97.36l.768 1.344M985.149 98.693v2.112M985.149 100.813l-.768 1.44M984.375 102.253l-.672.768M983.709 103.013l-2.112.672M981.589 103.693h-2.88M978.709 103.693l-2.112-.672M976.602 103.013l-.672-.768M975.922 102.253l-.768-1.44M975.162 100.813V98.7M975.162 98.693l.768-1.344M975.922 97.36l1.44-1.44M977.362 95.92l2.112-.768M979.482 95.146l2.784-.672M982.269 94.48l1.44-.672M983.709 93.8l.672-1.44M984.375 92.36v-1.44M984.375 90.92l-.672-1.44M983.709 89.48l-2.112-.672M981.589 88.813h-2.88M151.21 93.8v9.888M151.21 95.92l-1.44-1.44M149.77 94.48l-1.44-.672M148.33 93.8h-2.112M146.223 93.8l-1.44.672M144.783 94.48l-1.344 1.44M143.436 95.92l-.768 2.112M142.663 98.026v1.44M142.663 99.466l.768 2.112M143.436 101.573l1.344 1.44M144.783 103.013l1.44.672M146.223 103.693h2.112M148.33 103.693l1.44-.672M149.77 103.013l1.44-1.44M164.65 93.8v11.328M164.65 105.133l-.673 2.112M163.983 107.24l-.768.671M163.21 107.92l-1.345.767M161.863 108.68h-2.208M159.663 108.68l-1.344-.769M164.65 95.92l-1.44-1.44M163.21 94.48l-1.345-.672M161.863 93.8h-2.208M159.663 93.8l-1.344.672M158.316 94.48l-1.44 1.44M156.876 95.92l-.768 2.112M156.103 98.026v1.44M156.103 99.466l.768 2.112M156.876 101.573l1.44 1.44M158.316 103.013l1.344.672M159.663 103.693h2.208M161.863 103.693l1.344-.672M163.21 103.013l1.44-1.44M169.65 98.026h8.447M178.089 98.026v-1.44M178.089 96.586l-.672-1.44M177.422 95.146l-.672-.672M176.742 94.48l-1.44-.672M175.302 93.8h-2.112M173.196 93.8l-1.44.672M171.756 94.48l-1.44 1.44M170.316 95.92l-.672 2.112M169.65 98.026v1.44M169.65 99.466l.671 2.112M170.316 101.573l1.44 1.44M171.756 103.013l1.44.672M173.196 103.693h2.112M175.302 103.693l1.44-.672M176.742 103.013l1.344-1.44M194.408 92.36v-.768M194.408 91.6l.768-1.344M195.182 90.253l.672-.768M195.848 89.48l1.44-.672M197.288 88.813h2.784M200.075 88.813l1.44.672M201.515 89.48l.672.768M202.182 90.253l.768 1.344M202.955 91.6v1.44M202.955 93.04l-.768 1.44M202.182 94.48l-1.344 2.112M200.848 96.586l-7.104 7.104M193.742 103.693h9.888M209.288 102.253l-.672.768M208.621 103.013l.672.672M209.288 103.693l.768-.672M210.061 103.013l-.768-.768M217.168 91.6l1.344-.672M218.501 90.92l2.112-2.112M220.621 88.813v14.88M230.608 88.813h7.775M238.38 88.813l-4.223 5.664M234.154 94.48h2.112M236.26 94.48l1.44.672M237.7 95.146l.673.768M238.38 95.92l.673 2.112M239.047 98.026v1.44M239.047 99.466l-.672 2.112M238.38 101.573l-1.44 1.44M236.94 103.013l-2.111.672M234.82 103.693h-2.111M232.714 103.693l-2.112-.672M230.608 103.013l-.768-.768M229.834 102.253l-.672-1.44M245.487 91.6l1.44-.672M246.927 90.92l2.112-2.112M249.034 88.813v14.88M266.7 90.92l-.672-1.44M266.02 89.48l-2.112-.672M263.913 88.813h-1.44M262.473 88.813l-2.112.672M260.367 89.48l-1.44 2.112M258.927 91.6l-.672 3.552M258.247 95.146v3.552M258.247 98.693l.672 2.88M258.927 101.573l1.44 1.44M260.367 103.013l2.112.672M262.473 103.693h.768M263.247 103.693l2.112-.672M265.353 103.013l1.344-1.44M266.7 101.573l.768-2.112M267.46 99.466v-.768M267.46 98.693l-.768-2.112M266.7 96.586l-1.344-1.44M265.353 95.146l-2.112-.672M263.247 94.48h-.768M262.473 94.48l-2.112.672M260.367 95.146l-1.44 1.44M258.927 96.586l-.672 2.112M273.806 91.6l1.44-.672M275.246 90.92l2.112-2.112M277.353 88.813v14.88M290.126 88.813l-2.112.672M288.006 89.48l-1.44 2.112M286.566 91.6l-.672 3.552M285.9 95.146v2.208M285.9 97.36l.672 3.456M286.566 100.813l1.44 2.208M288.006 103.013l2.112.672M290.126 103.693h1.44M291.566 103.693l2.112-.672M293.673 103.013l1.44-2.208M295.113 100.813l.672-3.456M295.78 97.36v-2.208M295.78 95.146l-.673-3.551M295.113 91.6l-1.44-2.112M293.673 89.48l-2.112-.672M291.566 88.813h-1.44M300.1 98.026h8.447M308.552 98.026v-1.44M308.552 96.586l-.672-1.44M307.886 95.146l-.768-.672M307.112 94.48l-1.344-.672M305.766 93.8h-2.208M303.566 93.8l-1.344.672M302.22 94.48l-1.44 1.44M300.78 95.92l-.673 2.112M300.1 98.026v1.44M300.1 99.466l.671 2.112M300.78 101.573l1.44 1.44M302.22 103.013l1.343.672M303.566 103.693h2.208M305.766 103.693l1.344-.672M307.112 103.013l1.44-1.44M321.992 90.92l-.672-1.44M321.325 89.48l-2.112-.672M319.205 88.813h-1.44M317.765 88.813l-2.112.672M315.659 89.48l-1.44 2.112M314.219 91.6l-.672 3.552M313.539 95.146v3.552M313.539 98.693l.672 2.88M314.219 101.573l1.44 1.44M315.659 103.013l2.112.672M317.765 103.693h.768M318.539 103.693l2.112-.672M320.645 103.013l1.344-1.44M321.992 101.573l.768-2.112M322.765 99.466v-.768M322.765 98.693l-.768-2.112M321.992 96.586l-1.344-1.44M320.645 95.146l-2.112-.672M318.539 94.48h-.768M317.765 94.48l-2.112.672M315.659 95.146l-1.44 1.44M314.219 96.586l-.672 2.112M337.645 93.8l4.224 9.888M346.178 93.8l-4.32 9.888M341.858 103.693l-1.44 2.88M340.418 106.573l-1.344 1.344M339.085 107.92l-1.44.767M337.645 108.68h-.672M350.405 93.8v9.888M350.405 98.026l.672-2.112M351.085 95.92l1.44-1.44M352.525 94.48l1.44-.672M353.964 93.8h2.112M366.724 95.92l-.768-1.44M365.964 94.48l-2.112-.672M363.844 93.8h-2.112M361.738 93.8l-2.112.672M359.618 94.48l-.768 1.44M358.858 95.92l.768 1.44M359.618 97.36l1.44.672M361.058 98.026l3.552.672M364.618 98.693l1.344.768M365.964 99.466l.768 1.344M366.724 100.813v.768M366.724 101.573l-.768 1.44M365.964 103.013l-2.112.672M363.844 103.693h-2.112M361.738 103.693l-2.112-.672M359.618 103.013l-.768-1.44M430.856 107.44l1.152 1.151M432.003 108.586l1.152-1.152M433.163 107.44l-1.152-1.153M432.003 106.28l-1.152 1.151M432.003 115.493v16.127M441.216 115.493v16.127M441.216 120.106l3.456-3.456M444.682 116.653l2.304-1.152M446.975 115.493h3.456M450.442 115.493l2.304 1.152M452.735 116.653l1.152 3.455M453.895 120.106v11.52M463.108 107.44v24.19M471.175 107.44l1.152 1.151M472.322 108.586l1.151-1.152M473.481 107.44l-1.151-1.153M472.322 106.28l-1.152 1.151M472.322 115.493v16.127M493.054 118.96l-1.152-2.305M491.908 116.653l-3.456-1.152M488.454 115.493H485M485.001 115.493l-3.456 1.152M481.535 116.653l-1.152 2.303M480.388 118.96l1.152 2.303M481.535 121.252l2.304 1.152M483.841 122.412l5.76 1.152M489.601 123.559l2.304 1.152M491.908 124.719l1.152 2.304M493.054 127.012v1.152M493.054 128.172l-1.152 2.304M491.908 130.479l-3.456 1.152M488.454 131.626H485M485.001 131.626l-3.456-1.152M481.535 130.479l-1.152-2.304M502.28 107.44v19.583M502.28 127.012l1.153 3.456M503.427 130.479l2.304 1.152M505.734 131.626h2.304M498.814 115.493h8.064M510.334 133.932h20.735M536.84 107.44v24.19M536.84 120.106l3.456-3.456M540.293 116.653l2.304-1.152M542.6 115.493h3.456M546.053 115.493l2.304 1.152M548.36 116.653l1.152 3.455M549.506 120.106v11.52M557.573 107.44l1.152 1.151M558.72 108.586l1.151-1.152M559.88 107.44l-1.153-1.153M558.72 106.28l-1.153 1.151M558.72 115.493v16.127M580.612 115.493v18.431M580.612 133.932l-1.152 3.456M579.452 137.385l-1.152 1.152M578.306 138.532l-2.304 1.152M575.999 139.692h-3.456M572.546 139.692l-2.304-1.152M580.612 118.96l-2.304-2.305M578.306 116.653l-2.304-1.152M575.999 115.493h-3.456M572.546 115.493l-2.304 1.152M570.24 116.653l-2.305 2.303M567.932 118.96l-1.152 3.455M566.786 122.412v2.304M566.786 124.719l1.152 3.456M567.932 128.172l2.304 2.304M570.24 130.479l2.303 1.152M572.546 131.626h3.456M575.999 131.626l2.304-1.152M578.306 130.479l2.303-2.304M589.825 107.44v24.19M589.825 120.106l3.456-3.456M593.279 116.653l2.303-1.152M595.585 115.493h3.456M599.038 115.493l2.304 1.152M601.345 116.653l1.152 3.455M602.492 120.106v11.52M607.105 133.932h20.735M633.597 115.493v16.127M633.597 120.106l3.456-3.456M637.05 116.653l2.305-1.152M639.357 115.493h3.456M642.81 115.493l2.305 1.152M645.117 116.653l1.152 3.455M646.277 120.106v11.52M646.277 120.106l3.456-3.456M649.73 116.653l2.304-1.152M652.037 115.493h3.456M655.49 115.493l2.304 1.152M657.797 116.653l1.152 3.455M658.944 120.106v11.52M680.836 115.493v16.127M680.836 118.96l-2.304-2.305M678.53 116.653l-2.304-1.152M676.223 115.493h-3.456M672.77 115.493l-2.304 1.152M670.463 116.653l-2.304 2.303M668.157 118.96l-1.152 3.455M667.01 122.412v2.304M667.01 124.719l1.152 3.456M668.157 128.172l2.304 2.304M670.463 130.479l2.304 1.152M672.77 131.626h3.456M676.223 131.626l2.304-1.152M678.53 130.479l2.304-2.304M701.57 118.96l-1.153-2.305M700.41 116.653l-3.457-1.152M696.956 115.493H693.5M693.503 115.493l-3.456 1.152M690.05 116.653l-1.153 2.303M688.89 118.96l1.151 2.303M690.05 121.252l2.303 1.152M692.356 122.412l5.76 1.152M698.116 123.559l2.304 1.152M700.41 124.719l1.151 2.304M701.57 127.012v1.152M701.57 128.172l-1.153 2.304M700.41 130.479l-3.457 1.152M696.956 131.626H693.5M693.503 131.626l-3.456-1.152M690.05 130.479l-1.153-2.304M721.155 118.96l-1.152-2.305M719.995 116.653l-3.456-1.152M716.542 115.493h-3.456M713.089 115.493l-3.456 1.152M709.636 116.653l-1.152 2.303M708.476 118.96l1.152 2.303M709.636 121.252l2.304 1.152M711.929 122.412l5.76 1.152M717.689 123.559l2.304 1.152M719.995 124.719l1.152 2.304M721.155 127.012v1.152M721.155 128.172l-1.152 2.304M719.995 130.479l-3.456 1.152M716.542 131.626h-3.456M713.089 131.626l-3.456-1.152M709.636 130.479l-1.152-2.304"/></g></g><g stroke="teal" stroke-width="28.8"><path stroke-width="3.839904" d="m426.243 696.665-.48.96M425.763 697.625v.864M425.763 698.491l.288.864M426.056 699.358l.576.672M426.63 700.025l.671.384M427.296 700.411l.672.288M427.976 700.705l.576.096M428.55 700.798l.48-.096M429.03 700.705h.383M429.416 700.705l.192-.096M429.603 700.598l.192-.096M429.803 700.505l.096-.096M429.896 700.411l.096-.192M429.99 700.225l.095-.096M430.083 700.118l.096-.192M430.176 699.931v-.192M430.176 699.745l.096-.288M430.283 699.451l.096-.288M430.376 699.158l.192-.384M430.563 698.785l.096-.48M430.656 698.305l.192-.48M430.856 697.825l.288-.672M431.136 697.145l.288-.768M431.43 696.385l.383-.96M431.816 695.425l.384-1.152M432.203 694.265l.576-1.344M432.776 692.918l.672-1.632M433.442 691.292l.864-2.016M434.31 689.278l1.151-2.304M435.456 686.972l1.44-2.88M436.896 684.092l1.824-3.552M438.722 680.545l2.496-4.32M441.216 676.225l2.304-3.648M443.522 672.572l2.208-3.264M445.736 669.305l2.207-3.168M447.935 666.145l2.4-3.071M450.335 663.066l2.4-2.976M452.735 660.092l2.496-2.88M455.242 657.212l2.688-2.88M457.922 654.332l2.688-2.88M460.615 651.453l2.88-2.88M463.495 648.573l2.88-2.784M466.375 645.786l3.072-2.783M469.442 643l3.264-2.786M472.708 640.226l3.264-2.688M475.975 637.533l3.456-2.688M479.428 634.84l3.552-2.688M482.975 632.16l3.743-2.594M486.721 629.56l3.744-3.07M490.468 626.493l4.032-2.593M494.494 623.907l4.224-2.592M498.72 621.307l4.417-2.687M503.134 618.627l4.512-2.594M507.654 616.027l4.8-2.495M512.454 613.533l4.896-2.497M517.347 611.04l5.184-2.496M522.534 608.547l5.375-2.495M527.907 606.04l5.472-2.496M533.373 603.547l5.76-2.399M539.133 601.147l6.048-2.496M545.186 598.654l6.24-2.4M551.426 596.254l6.528-2.4M557.96 593.854l6.72-2.304M564.68 591.547l6.911-2.496M571.586 589.054l7.296-2.495M578.879 586.56l7.776-2.4M586.652 584.16l8.064-2.304M594.718 581.854l8.544-2.304M603.265 579.548l8.832-2.304M612.091 577.241l9.312-2.399M621.411 574.841l9.696-2.208M631.104 572.641l10.08-2.208M641.184 570.428l10.464-2.88M651.65 567.548l10.464-2.496M662.117 565.055l11.04-2.4M673.157 562.655l12.575-3.264M685.73 559.388l11.423-2.112M697.156 557.282l12.48-2.112M709.636 555.162l13.631-2.208M723.262 552.962l14.208-2.112M737.475 550.842l15.36-2.208M752.835 548.642l15.551-2.208M768.38 546.428l16.8-2.111M785.18 544.322l17.088-2.208M802.273 542.109l18.24-2.016M820.513 540.095l18.527-2.016M839.032 538.082l18.624-1.728M857.659 536.349l18.431-1.728M876.085 534.629l17.951-1.632M894.044 532.989l18.048-1.44M912.084 531.549l16.991-1.44M929.083 530.109l17.376-1.248M946.456 528.869l17.28-1.248M963.736 527.616l15.456-1.248"/></g></g></svg>
\ No newline at end of file
diff --git a/star/test_suite/high_mass/inlist_high_mass b/star/test_suite/high_mass/inlist_high_mass
index 1154c24a5..22a5665d5 100644
--- a/star/test_suite/high_mass/inlist_high_mass
+++ b/star/test_suite/high_mass/inlist_high_mass
@@ -1,16 +1,19 @@
-
 &star_job
-      show_log_description_at_start = .false.
-      
-      load_saved_model = .true.
-      load_model_filename = 'zams.mod' ! from make_zams_ultra_high_mass, 13830.
 
-      save_model_when_terminate = .true.
-      save_model_filename = 'final.mod'
-      required_termination_code_string = 'xa_central_lower_limit'
+   show_log_description_at_start = .false.
+
+   load_saved_model = .true.
+   load_model_filename = 'zams.mod' ! from make_zams_ultra_high_mass, 13830.
+
+   save_model_when_terminate = .true.
+   save_model_filename = 'final.mod'
+   required_termination_code_string = 'xa_central_lower_limit'
+
+   set_initial_cumulative_energy_error = .true.
+   new_cumulative_energy_error = 0d0
 
-      set_initial_cumulative_energy_error = .true.
-      new_cumulative_energy_error = 0d0
+   pgstar_flag = .true.
+   save_pgstar_files_when_terminate = .true.
 
 / ! end of star_job namelist
 
@@ -18,53 +21,49 @@
 /
 
 &kap
-      Zbase = 1d-5
+   Zbase = 1d-5
 / ! end of kap namelist
 
 &controls
 
-      energy_eqn_option = 'dedt'
-
-      num_trace_history_values = 2
-      trace_history_value_name(1) = 'rel_E_err'
-      trace_history_value_name(2) = 'log_rel_run_E_err'
-      
-      ! limit max_model_number as part of test_suite
-      max_model_number = 1550  
-      use_gold2_tolerances = .true.
-
-      initial_mass = 300
-      initial_z = 1d-5
-      
-      mixing_length_alpha = 2
-
-      conv_core_gap_dq_limit = 0.1
-      
-      xa_central_lower_limit_species(1) = 'h1'
-      xa_central_lower_limit(1) = 0.05
-           
-      overshoot_scheme(1) = 'exponential'
-      overshoot_zone_type(1) = 'nonburn'
-      overshoot_zone_loc(1) = 'shell'
-      overshoot_bdy_loc(1) = 'bottom'
-      overshoot_f(1) = 0.128
-      overshoot_f0(1) = 0.100
-
-      overshoot_scheme(2) = 'exponential'
-      overshoot_zone_type(2) = 'any'
-      overshoot_zone_loc(2) = 'any'
-      overshoot_bdy_loc(2) = 'any'
-      overshoot_f(2) = 0.014
-      overshoot_f0(2) = 0.004
-     
-      
-
-      photo_interval = 50
-      profile_interval = 100
-      history_interval = 10
-      terminal_interval = 10
-      write_header_frequency = 100
+   energy_eqn_option = 'dedt'
 
+   num_trace_history_values = 2
+   trace_history_value_name(1) = 'rel_E_err'
+   trace_history_value_name(2) = 'log_rel_run_E_err'
 
-/ ! end of controls namelist
+   ! limit max_model_number as part of test_suite
+   max_model_number = 1550
+   use_gold2_tolerances = .true.
+
+   initial_mass = 300
+   initial_z = 1d-5
+
+   mixing_length_alpha = 2
 
+   conv_core_gap_dq_limit = 0.1
+
+   xa_central_lower_limit_species(1) = 'h1'
+   xa_central_lower_limit(1) = 0.05
+
+   overshoot_scheme(1) = 'exponential'
+   overshoot_zone_type(1) = 'nonburn'
+   overshoot_zone_loc(1) = 'shell'
+   overshoot_bdy_loc(1) = 'bottom'
+   overshoot_f(1) = 0.128
+   overshoot_f0(1) = 0.100
+
+   overshoot_scheme(2) = 'exponential'
+   overshoot_zone_type(2) = 'any'
+   overshoot_zone_loc(2) = 'any'
+   overshoot_bdy_loc(2) = 'any'
+   overshoot_f(2) = 0.014
+   overshoot_f0(2) = 0.004
+
+   photo_interval = 50
+   profile_interval = 100
+   history_interval = 10
+   terminal_interval = 10
+   write_header_frequency = 100
+
+/ ! end of controls namelist
diff --git a/star/test_suite/high_mass/inlist_high_mass_header b/star/test_suite/high_mass/inlist_high_mass_header
index 4557f7b6a..0eaa542f3 100644
--- a/star/test_suite/high_mass/inlist_high_mass_header
+++ b/star/test_suite/high_mass/inlist_high_mass_header
@@ -1,41 +1,38 @@
-
 &star_job
 
-
-      read_extra_star_job_inlist(2) = .true.
-      extra_star_job_inlist_name(2) = 'inlist_high_mass'
+   read_extra_star_job_inlist(2) = .true.
+   extra_star_job_inlist_name(2) = 'inlist_high_mass'
 
 / ! end of star_job namelist
 
 
 &eos
 
-      read_extra_eos_inlist(1) = .true.
-      extra_eos_inlist_name(1) = 'inlist_high_mass'
+   read_extra_eos_inlist(1) = .true.
+   extra_eos_inlist_name(1) = 'inlist_high_mass'
 
 / ! end of eos namelist
 
 
 &kap
 
-      read_extra_kap_inlist(1) = .true.
-      extra_kap_inlist_name(1) = 'inlist_high_mass'
+   read_extra_kap_inlist(1) = .true.
+   extra_kap_inlist_name(1) = 'inlist_high_mass'
 
 / ! end of kap namelist
 
 
-
 &controls
 
-      read_extra_controls_inlist(1) = .true.
-      extra_controls_inlist_name(1)= 'inlist_high_mass'
+   read_extra_controls_inlist(1) = .true.
+   extra_controls_inlist_name(1)= 'inlist_high_mass'
 
 / ! end of controls namelist
 
 
 &pgstar
 
-      read_extra_pgstar_inlist(1) = .true.
-      extra_pgstar_inlist_name(1)= 'inlist_high_mass'
+   read_extra_pgstar_inlist(1) = .true.
+   extra_pgstar_inlist_name(1)= 'inlist_pgstar'
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/high_mass/inlist_pgstar b/star/test_suite/high_mass/inlist_pgstar
new file mode 100644
index 000000000..ecf511d13
--- /dev/null
+++ b/star/test_suite/high_mass/inlist_pgstar
@@ -0,0 +1,65 @@
+&pgstar
+
+   ! device
+   file_white_on_black_flag = .true.
+   file_device = 'vcps'      ! postscript
+   file_extension = 'ps'
+   !file_device = 'png'      ! png
+   !file_extension = 'png'
+
+   pgstar_interval = 10
+
+   HR_win_flag = .false.  ! set to .true. for on-the-fly plotting
+   HR_file_flag = .true.
+   HR_file_dir = 'pgstar_out'
+   HR_file_prefix = 'hr'
+
+   HR_win_width = 12
+   HR_win_aspect_ratio = 1.0d0 ! aspect_ratio = height/width
+   HR_title = 'inlist_high_mass'
+
+   HR_logT_min = 4.5
+   HR_logT_max = 5.0
+   HR_logL_min = 6.6
+   HR_logL_max = 7.2
+
+   HR_file_interval = 100 ! output when mod(model_number,HR_file_interval)==0
+   HR_file_width = -1 ! negative means use same value as for window
+   HR_file_aspect_ratio = -1 ! negative means use same value as for window
+
+   Abundance_win_flag = .false. ! set to .true. for on-the-fly plotting
+   Abundance_file_flag = .true.
+   Abundance_file_dir = 'pgstar_out'
+   Abundance_file_prefix = 'abund_'
+
+   Abundance_win_width = 12
+   Abundance_win_aspect_ratio = 1.0d0
+   Abundance_title = 'inlist_high_mass'
+
+   Abundance_num_isos_to_show = 7
+   Abundance_which_isos_to_show(1)  = 'h1'
+   Abundance_which_isos_to_show(2)  = 'he3'
+   Abundance_which_isos_to_show(3)  = 'he4'
+   Abundance_which_isos_to_show(4)  = 'c12'
+   Abundance_which_isos_to_show(5)  = 'n14'
+   Abundance_which_isos_to_show(6)  = 'o16'
+   Abundance_which_isos_to_show(7)  = 'ne20'
+
+   num_abundance_line_labels = 4
+   Abundance_line_txt_scale_factor = 1.1
+   Abundance_legend_max_cnt = 0
+   Abundance_legend_txt_scale_factor = 1.0
+
+   Abundance_xaxis_name = 'mass'
+   Abundance_xaxis_reversed = .false.
+   Abundance_xmin = 0.0
+   Abundance_xmax = -101d0
+
+   Abundance_log_mass_frac_min = -6.0
+   Abundance_log_mass_frac_max =  0.3
+
+   Abundance_file_interval = 100 ! output when mod(model_number,HR_file_interval)==0
+   Abundance_file_width = -1        ! (inches) negative means use same value as for window
+   Abundance_file_aspect_ratio = -1 ! negative means use same value as for window
+
+/ ! end of pgstar namelist
diff --git a/star/test_suite/high_z/README.rst b/star/test_suite/high_z/README.rst
index 1b13def1a..6e1348e44 100644
--- a/star/test_suite/high_z/README.rst
+++ b/star/test_suite/high_z/README.rst
@@ -13,10 +13,10 @@ This test case has 2 parts. Click to see a larger version of a plot.
 * Part 2 (``inlist_high_z``) continues the evolution until the central helium mass fraction drops below 1e-6:
 
 .. image:: ../../../star/test_suite/high_z/docs/hr000438.svg
-   :scale: 100%
+   :width: 100%
 
 .. image:: ../../../star/test_suite/high_z/docs/kipp000438.svg
-   :scale: 100%
+   :width: 100%
 
 
 
diff --git a/star/test_suite/hot_cool_wind/README.rst b/star/test_suite/hot_cool_wind/README.rst
index 3b8a10b0c..df3a751c0 100644
--- a/star/test_suite/hot_cool_wind/README.rst
+++ b/star/test_suite/hot_cool_wind/README.rst
@@ -11,10 +11,10 @@ This test case has 1 parts. Click to see a larger version of a plot.
 * Part 1 (``inlist_hot_cool_wind``) loads  a 7 Msun, Z=0.02 metallicity, main sequence model. A Reimers_scaling_factor = 1 cool wind above Teff = 8000 K and a Vink_scaling_factor = 1 hot wind above 12,000 K is enabled and the model evolves until the central helium mass fraction drops below 1e-6. At this point the mass is 6.75 Msun:
 
 .. image:: ../../../star/test_suite/hot_cool_wind/docs/kipp000527.svg
-   :scale: 100%
+   :width: 100%
 
 .. image:: ../../../star/test_suite/hot_cool_wind/docs/hr000527.svg
-   :scale: 100%
+   :width: 100%
 
 
 
diff --git a/star/test_suite/hse_riemann/README.rst b/star/test_suite/hse_riemann/README.rst
index 4846ef950..9dbc1d90b 100644
--- a/star/test_suite/hse_riemann/README.rst
+++ b/star/test_suite/hse_riemann/README.rst
@@ -8,7 +8,7 @@ This test case checks Riemann HLLC solver can hold an envelope model in hydrosta
 
 This test case has 1 parts. Click to see a larger version of a plot.
 
-* Part 1 (``inlist_finish``) loads a model containing the envelope from a 12 msun model with its core excised. The model is then evolved for 1e5 s, and the ``run_star_extras.f90`` then checks that the peak mach number is less than 0.1. This is an example of a null test; if the Riemann HLLC solver is working, then the profiles should remain static and the peak mach number should be small:
+* Part 1 (``inlist_finish``) loads a model containing the envelope from a 12 Msun model with its core excised. The model is then evolved for 1e5 s, and the ``run_star_extras.f90`` then checks that the peak mach number is less than 0.1. This is an example of a null test; if the Riemann HLLC solver is working, then the profiles should remain static and the peak mach number should be small:
 
 .. raw:: html
 
diff --git a/star/test_suite/irradiated_planet/README.rst b/star/test_suite/irradiated_planet/README.rst
index bb956d76f..09d155a04 100644
--- a/star/test_suite/irradiated_planet/README.rst
+++ b/star/test_suite/irradiated_planet/README.rst
@@ -11,12 +11,12 @@ This test case has 2 parts. Click to see a larger version of a plot.
 * Part 1 (``inlist_create``) loads a 1 Mjup model, relaxes the surface to an optical depth of 10, irradiates the surface with a flux of 1e7 erg cm :sup:`-2` s :sup:`-1` to a column depth of 1 g cm :sup:`-2`, and terminates when the inflated envelope reaches a surface pressure of log10 (P/(erg cm :sup:`-3`)) = 6.0  (about 1 bar):
 
 .. image:: ../../../star/test_suite/irradiated_planet/docs/pres_000084.svg
-   :scale: 100%
+   :width: 100%
 
 * Part 2 (``inlist_evolves``) continues the evolution, without irradiation, for 15 Gyr. The irradiated planet model cools and shrinks with time:
 
 .. image:: ../../../star/test_suite/irradiated_planet/docs/track1_000127.svg
-   :scale: 100%
+   :width: 100%
 
 
 
diff --git a/star/test_suite/low_z/README.rst b/star/test_suite/low_z/README.rst
index a4972d7c2..61501c67c 100644
--- a/star/test_suite/low_z/README.rst
+++ b/star/test_suite/low_z/README.rst
@@ -13,10 +13,10 @@ This test case has 2 parts. Click to see a larger version of a plot.
 * Part 2 (``inlist_low_z``) continues the evolution until the mass fraction of hydrogen is less than 1e-6. A novelty of this inlist is exercising the custom opacity table controls desscribed at :ref:`kap/defaults:kap module controls`.
 
 .. image:: ../../../star/test_suite/low_z/docs/kip000335.svg
-   :scale: 100%
+   :width: 100%
 
 .. image:: ../../../star/test_suite/low_z/docs/hr000335.svg
-   :scale: 100%
+   :width: 100%
 
 
 
diff --git a/star/test_suite/make_brown_dwarf/README.rst b/star/test_suite/make_brown_dwarf/README.rst
index 5ad1a556e..27910a290 100644
--- a/star/test_suite/make_brown_dwarf/README.rst
+++ b/star/test_suite/make_brown_dwarf/README.rst
@@ -11,7 +11,7 @@ This test case has 1 part. Click to see a larger version of a plot.
 * Part 1 (``inlist_make_brown_dwarf``) creates a 1.05 Mjup, Z=1e-4 metallicity model, using the less frequently deployed ``create_initial_model`` capability, and evolves the brown drawf model for 20 billion years.
 
 .. image:: ../../../star/test_suite/make_brown_dwarf/docs/grid1_000237.svg
-   :scale: 100%
+   :width: 100%
 
 pgstar commands used for the plots above:
 
diff --git a/star/test_suite/make_co_wd/inlist_remove_env b/star/test_suite/make_co_wd/inlist_remove_env
index d67526e97..c7c805edc 100644
--- a/star/test_suite/make_co_wd/inlist_remove_env
+++ b/star/test_suite/make_co_wd/inlist_remove_env
@@ -13,7 +13,7 @@
       ! the envelope on the AGB
       timescale_for_relax_entropy = 1d-5
       max_dt_for_relax_entropy = 1d-6
-      num_timescales_for_relax_entropy = 30
+      num_timescales_for_relax_entropy = 50
       max_steps_to_relax_entropy = 10000
       
       remove_surface_by_relax_to_star_cut = .true.
diff --git a/star/test_suite/make_env/README.rst b/star/test_suite/make_env/README.rst
index ef187d182..678e3cc1f 100644
--- a/star/test_suite/make_env/README.rst
+++ b/star/test_suite/make_env/README.rst
@@ -11,7 +11,7 @@ This test case has 1 part. Click to see a larger version of a plot.
 * Part 1 (``inlist_env_header``) first creates an initial neutron star envelope through its significant ``run_star_extras.f90`` and saves the result as ``start.mod``.  This initial model is then loaded and the evolution begins. The envelope should remain stable - no changes in the thermodynamic or structure profiles - over the 10 million year evolution.
 
 .. image:: ../../../star/test_suite/make_env/docs/profile1_000172.svg
-   :scale: 100%
+   :width: 100%
 
 pgstar commands used for the plots above:
 
diff --git a/star/test_suite/make_he_wd/README.rst b/star/test_suite/make_he_wd/README.rst
index cd96b81db..6759f8cd8 100644
--- a/star/test_suite/make_he_wd/README.rst
+++ b/star/test_suite/make_he_wd/README.rst
@@ -11,18 +11,18 @@ This test case has 3 parts. Click to see a larger version of a plot.
 * Part 1 (``inlist_to_he_core``) creates a 1.5 Msun, Z=0.01 metallicity, pre-main sequence model and evolves the model until the helium core reaches 0.15 Msun:
 
 .. image:: ../../../star/test_suite/make_he_wd/docs/abund_000515.svg
-   :scale: 100%
+   :width: 100%
 
-* Part 2 (``inlist_remove_envelope``) relaxes the model to a new mass of 0.15 Msun, sheddind the outer 1.35 Msun with a wind whose maximum mass loss rate is 1e-5 Msun/yr, and then evolving the hot He white dwarf for 100 million years:
+* Part 2 (``inlist_remove_envelope``) relaxes the model to a new mass of 0.15 Msun, shedding the outer 1.35 Msun with a wind whose maximum mass loss rate is 1e-5 Msun/yr, and then evolving the hot He white dwarf for 100 million years:
 
 .. image:: ../../../star/test_suite/make_he_wd/docs/abund_000119.svg
-   :scale: 100%
+   :width: 100%
 
 
 * Part 3 (``inlist_evolve``) continues the evolution as the 0.15 Msun helium white dwarf model slides down a white dwarf cooling track for 10 billion years:
 
 .. image:: ../../../star/test_suite/make_he_wd/docs/hr000195.svg
-   :scale: 100%
+   :width: 100%
 
 pgstar commands used for the plots above:
 
diff --git a/star/test_suite/make_metals/README.rst b/star/test_suite/make_metals/README.rst
index 353497236..ad532207d 100644
--- a/star/test_suite/make_metals/README.rst
+++ b/star/test_suite/make_metals/README.rst
@@ -11,17 +11,17 @@ This test case has 1 part. Click to see a larger version of a plot.
 * Part 1 (``inlist_make_metals``) creates a metal-free 3 Msun pre-main sequence model, and evolves the initial pure hydrogen + helium model until the central helium mass fraction drops below 1e-4 :
 
 .. image:: ../../../star/test_suite/make_metals/docs/abund_000516.svg
-   :scale: 100%
+   :width: 100%
 
 The core gets hot enough to make its own carbon from the triple-alpha reaction:
 
 .. image:: ../../../star/test_suite/make_metals/docs/trhoc_000516.svg
-   :scale: 100%
+   :width: 100%
 
 Which makes for an interesting journey in the HR diagram:
 
 .. image:: ../../../star/test_suite/make_metals/docs/hr_000516.svg
-   :scale: 100%
+   :width: 100%
 
 
 pgstar commands used for the plots above:
diff --git a/star/test_suite/make_planets/README.rst b/star/test_suite/make_planets/README.rst
index 21dea7526..334ee6e04 100644
--- a/star/test_suite/make_planets/README.rst
+++ b/star/test_suite/make_planets/README.rst
@@ -11,19 +11,19 @@ This test case has 3 part. Click to see a larger version of a plot.
 * Part 1 (``inlist_create``) creates a 0.9685 Mjup, 2.0 Rjup, Z=0.02 metallicity, Y=0.24 helium mass fraction initial model which is evolved for 50 years.
 
 .. image:: ../../../star/test_suite/make_planets/docs/trho_000026.svg
-   :scale: 100%
+   :width: 100%
 
 * Part 2 (``inlist_core``) adds a 10 Mearth core with a density of 10 g cm\ :sup:`-3` and then further evolves the model for 2000 years.
 
 .. image:: ../../../star/test_suite/make_planets/docs/trho_000076.svg
-   :scale: 100%
+   :width: 100%
 
 * Part 3 (``inlist_evolve``) continuously deposits a flux of 5.5e8 erg cm\ :sup:`-2` s\ :sup:`-1` at a column depth of 300 cmcm\ :sup:`2` g cm\ :sup:`-3` and evolves the model for 10 billion years:
 
 555501654.562d0 ! 1.d9 erg/cm^2/s
 
 .. image:: ../../../star/test_suite/make_planets/docs/trho_000118.svg
-   :scale: 100%
+   :width: 100%
 
 
 pgstar commands used for the plots above:
diff --git a/star/test_suite/make_sdb/README.rst b/star/test_suite/make_sdb/README.rst
index d09f17f58..d4149cc8d 100644
--- a/star/test_suite/make_sdb/README.rst
+++ b/star/test_suite/make_sdb/README.rst
@@ -11,7 +11,7 @@ This test case has 1 part. Click to see a larger version of a plot.
 * Part 1 (``inlist_make_sdb``) first loads a prebuilt helium core model ``start_core_he_burn.mod`` that comes from the :ref:`1M_pre_ms_to_wd` test case (specifically ``inlist_to_end_core_he_burn`` is modified to stop when the mass fraction of helium dropes below 0.95). Then the hydrogen envelope is removed with ``relax_initial_mass_to_remove_H_env = .true.`` as a model for a common envelope event removal of the envelope. The model is then evolved until the mass fraction of carbon rises above 0.05 :
 
 .. image:: ../../../star/test_suite/make_sdb/docs/grid_000064.svg
-   :scale: 100%
+   :width: 100%
 
 
 pgstar commands used for the plot above:
diff --git a/star/test_suite/make_zams/README.rst b/star/test_suite/make_zams/README.rst
index b35badcae..38d225508 100644
--- a/star/test_suite/make_zams/README.rst
+++ b/star/test_suite/make_zams/README.rst
@@ -11,160 +11,17 @@ This test case has 1 part. Click to see a larger version of a plot.
 * Part 1 (``inlist_zams``) creates a 4 Msun, Z = 0.01 metallicity, pre-main sequence model and evolves the model to the zero age main sequence, terminating when Lnuc / L = 0.9.
 
 .. image:: ../../../star/test_suite/make_zams/docs/grid_000192.svg
-   :scale: 100%
+   :width: 100%
 
 
 pgstar commands used for the plot above:
 
-.. code-block:: console
-
- &pgstar
-
-  file_white_on_black_flag = .true. ! white_on_black flags -- true means white foreground color on black background
-  !file_device = 'png'            ! png
-  !file_extension = 'png'
-
-  file_device = 'vcps'          ! postscript
-  file_extension = 'ps'
-
-  pgstar_interval = 10
-
-  Abundance_win_flag = .false.
-  Abundance_win_width = 15
-  Abundance_win_aspect_ratio = 0.75
-
-  Abundance_title = ''
-  Abundance_num_isos_to_show = 6
-
-  Abundance_which_isos_to_show(1)  = 'h1'
-  Abundance_which_isos_to_show(2)  = 'he3'
-  Abundance_which_isos_to_show(3)  = 'he4'
-  Abundance_which_isos_to_show(4)  = 'c12'
-  Abundance_which_isos_to_show(5)  = 'n14'
-  Abundance_which_isos_to_show(6)  = 'o16'
-
-  num_abundance_line_labels = 4
-  Abundance_line_txt_scale_factor = 1.0
-  Abundance_legend_max_cnt = 0
-
-  Abundance_xaxis_name = 'mass'
-  Abundance_xaxis_reversed = .false.
-  Abundance_xmin = 0.0
-  Abundance_xmax = 1.0
-
-  Abundance_log_mass_frac_min = -3.0
-  Abundance_log_mass_frac_max =  0.3
-
-
-  HR_win_flag = .false.
-  HR_win_width = 12
-  HR_win_aspect_ratio = 1.2 ! aspect_ratio = height/width
-  HR_title = ''
-
-  HR_logT_min = 3.5
-  HR_logT_max = 4.5
-  HR_logL_min = 1.0
-  HR_logL_max = 3.0
-
-
-  Text_Summary1_win_flag = .false.
-  Text_Summary1_win_width = 10
-  Text_Summary1_win_aspect_ratio = 0.15
-
-  Text_Summary1_xleft = 0.01
-  Text_Summary1_xright = 0.99
-  Text_Summary1_ybot = 0.0
-  Text_Summary1_ytop = 1.0
-  Text_Summary1_txt_scale = 1.0
-
-  Text_Summary1_num_rows = 1 ! <= 20
-  Text_Summary1_num_cols = 3 ! <= 20
-  Text_Summary1_name(:,:) = ''
-
-  Text_Summary1_name(1,1) = 'star_mass'
-  Text_Summary1_name(1,2) = 'log_LH'
-  Text_Summary1_name(1,3) = 'num_zones'
-
-  Grid1_title = 'make_zams'
-  Grid1_win_flag = .true.
-  Grid1_win_width = 15
-  Grid1_win_aspect_ratio = 0.6
-
-  Grid1_plot_name(:) = ''
-  Grid1_plot_row(:) = 1           ! number from 1 at top
-  Grid1_plot_rowspan(:) = 1       ! plot spans this number of rows
-  Grid1_plot_col(:) =  1          ! number from 1 at left
-  Grid1_plot_colspan(:) = 1       ! plot spans this number of columns
-  Grid1_plot_pad_left(:) = 0.0    ! fraction of full window width for padding on left
-  Grid1_plot_pad_right(:) = 0.0   ! fraction of full window width for padding on right
-  Grid1_plot_pad_top(:) = 0.0     ! fraction of full window height for padding at top
-  Grid1_plot_pad_bot(:) = 0.0     ! fraction of full window height for padding at bottom
-  Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this
-
-  Grid1_num_cols = 6 ! divide plotting region into this many equal width cols
-  Grid1_num_rows = 2 ! divide plotting region into this many equal height rows
-  Grid1_num_plots = 10 ! <= 10
-
-   pgstar_show_model_number = .true.
-   pgstar_model_scale = 1.0
-   pgstar_model_lw = 3
-   pgstar_model_disp = 2.0
-   pgstar_model_coord = 0.92
-   pgstar_model_fjust = 1.0
-
-   pgstar_show_age = .true.
-   pgstar_age_scale = 1.0
-   pgstar_age_lw = 3
-   pgstar_age_disp = 2.0
-   pgstar_age_coord = -0.10
-   pgstar_age_fjust = 0.0
-
-  Grid1_plot_name(1) = 'Text_Summary1'
-  Grid1_plot_row(1) = 1           ! number from 1 at top
-  Grid1_plot_rowspan(1) = 1       ! plot spans this number of rows
-  Grid1_plot_col(1) =  1          ! number from 1 at left
-  Grid1_plot_colspan(1) = 6       ! plot spans this number of columns
-
-  Grid1_plot_pad_left(1) = -0.06    ! fraction of full window width for padding on left
-  Grid1_plot_pad_right(1) = 0.05   ! fraction of full window width for padding on right
-  Grid1_plot_pad_top(1) = -0.02     ! fraction of full window height for padding at top
-  Grid1_plot_pad_bot(1) = 0.39     ! fraction of full window height for padding at bottom
-  Grid1_txt_scale_factor(1) = 1.2 ! multiply txt_scale for subplot by this
-
-
-  Grid1_plot_name(2) = 'Abundance'
-  Grid1_plot_row(2) = 1           ! number from 1 at top
-  Grid1_plot_rowspan(2) = 2       ! plot spans this number of rows
-  Grid1_plot_col(2) =  1          ! number from 1 at left
-  Grid1_plot_colspan(2) = 3       ! plot spans this number of columns
-
-  Grid1_plot_pad_left(2) = -0.05    ! fraction of full window width for padding on left
-  Grid1_plot_pad_right(2) = 0.10   ! fraction of full window width for padding on right
-  Grid1_plot_pad_top(2) = 0.03     ! fraction of full window height for padding at top
-  Grid1_plot_pad_bot(2) = 0.03     ! fraction of full window height for padding at bottom
-  Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this
-
-
-  Grid1_plot_name(3) = 'HR'
-  Grid1_plot_row(3) = 1          ! number from 1 at top
-  Grid1_plot_rowspan(3) = 2       ! plot spans this number of rows
-  Grid1_plot_col(3) =  5          ! Number from 1 at left
-  Grid1_plot_colspan(3) = 3       ! plot spans this number of columns
-
-  Grid1_plot_pad_left(3) = -0.15    ! fraction of full window width for padding on left
-  Grid1_plot_pad_right(3) = 0.20   ! fraction of full window width for padding on right
-  Grid1_plot_pad_top(3) = 0.03     ! fraction of full window height for padding at top
-  Grid1_plot_pad_bot(3) = 0.03     ! fraction of full window height for padding at bottom
-  Grid1_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this
-
-
-  Grid1_file_flag = .true.
-  Grid1_file_dir = 'pgstar_out'
-  Grid1_file_prefix = 'grid_'
-  Grid1_file_interval = 10000
-  Grid1_file_width = -1       ! (inches) negative means use same value as for window
-
- / ! end of pgstar namelist
+.. literalinclude:: ../../../star/test_suite/make_zams/inlist_zams
+  :language: console
+  :start-at: &pgstar
+  :end-at: ! end of pgstar namelist
 
 
 Last-Updated: 20Jun2021 (MESA e2acbc2) by fxt.
+
+Last-Run: 06Aug2024 (MESA 76b223b5) by aurimontem on MWKMFHK9LH in 65 seconds using 8 threads.
diff --git a/star/test_suite/make_zams/docs/grid_000192.svg b/star/test_suite/make_zams/docs/grid_000192.svg
index 27c9e4408..f9378b4e7 100644
--- a/star/test_suite/make_zams/docs/grid_000192.svg
+++ b/star/test_suite/make_zams/docs/grid_000192.svg
@@ -1,476 +1 @@
-<?xml version="1.0" encoding="utf-8"?>
-<!-- Generator: Adobe Illustrator 25.2.3, SVG Export Plug-In . SVG Version: 6.00 Build 0)  -->
-<svg version="1.1" id="Layer_1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" x="0px" y="0px"
-	 viewBox="0 0 982.39 627.34" style="enable-background:new 0 0 982.39 627.34;" xml:space="preserve">
-<style type="text/css">
-	.st0{fill-rule:evenodd;clip-rule:evenodd;}
-	.st1{fill:none;stroke:#FFFFFF;stroke-width:1.08;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st2{fill:none;stroke:#FFFFFF;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st3{fill:none;stroke:#FFFFFF;stroke-width:1.44;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st4{fill:none;stroke:#FFD700;stroke-width:2.88;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st5{fill:none;stroke:#FFD700;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st6{fill:none;stroke:#87CEFA;stroke-width:2.88;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st7{fill:none;stroke:#87CEFA;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st8{fill:none;stroke:#CC0033;stroke-width:2.88;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st9{fill:none;stroke:#CC0033;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st10{fill:none;stroke:#DAA520;stroke-width:2.88;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st11{fill:none;stroke:#DAA520;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st12{fill:none;stroke:#2E8B57;stroke-width:3.6;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st13{fill:none;stroke:#87CEFA;stroke-width:3.6;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-	.st14{fill:none;stroke:#008080;stroke-width:2.88;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:10;}
-</style>
-<rect x="-0.02" y="-1.88" class="st0" width="982.41" height="628.37"/>
-<path class="st1" d="M871.54,10.58v6.98 M871.54,12.59l1.51-1.51 M873.05,11.08l0.94-0.5 M873.98,10.58h1.51 M875.5,10.58l1.01,0.5
-	 M876.5,11.08l0.5,1.51 M877.01,12.59v4.97 M877.01,12.59l1.51-1.51 M878.52,11.08l1.01-0.5 M879.53,10.58h1.44 M880.97,10.58
-	l1.01,0.5 M881.98,11.08l0.5,1.51 M882.48,12.59v4.97 M888.46,10.58l-1.01,0.5 M887.45,11.08l-1.01,1.01 M886.44,12.09l-0.43,1.51
-	 M886.01,13.6v0.94 M886.01,14.54l0.43,1.51 M886.44,16.05l1.01,1.01 M887.45,17.06l1.01,0.5 M888.46,17.56h1.51 M889.97,17.56
-	l1.01-0.5 M890.98,17.06l1.01-1.01 M891.98,16.05l0.5-1.51 M892.49,14.54V13.6 M892.49,13.6l-0.5-1.51 M891.98,12.09l-1.01-1.01
-	 M890.98,11.08l-1.01-0.5 M889.97,10.58h-1.51 M901.42,7.12v10.44 M901.42,12.09l-1.01-1.01 M900.41,11.08l-1.01-0.5 M899.4,10.58
-	h-1.44 M897.96,10.58l-1.01,0.5 M896.95,11.08l-1.01,1.01 M895.94,12.09l-0.5,1.51 M895.44,13.6v0.94 M895.44,14.54l0.5,1.51
-	 M895.94,16.05l1.01,1.01 M896.95,17.06l1.01,0.5 M897.96,17.56h1.44 M899.4,17.56l1.01-0.5 M900.41,17.06l1.01-1.01 M904.94,13.6
-	h5.98 M910.92,13.6v-1.01 M910.92,12.59l-0.5-1.01 M910.42,11.58l-0.5-0.5 M909.91,11.08l-1.01-0.5 M908.9,10.58h-1.51
-	 M907.39,10.58l-1.01,0.5 M906.38,11.08l-0.94,1.01 M905.45,12.09l-0.5,1.51 M904.94,13.6v0.94 M904.94,14.54l0.5,1.51
-	 M905.45,16.05l0.94,1.01 M906.38,17.06l1.01,0.5 M907.39,17.56h1.51 M908.9,17.56l1.01-0.5 M909.91,17.06l1.01-1.01 M914.38,7.12
-	v10.44 M927.34,9.06l1.01-0.5 M928.34,8.56l1.51-1.44 M929.86,7.12v10.44 M942.31,10.58l-0.5,1.51 M941.81,12.09l-1.01,1.01
-	 M940.8,13.1l-1.51,0.5 M939.29,13.6h-0.5 M938.78,13.6l-1.44-0.5 M937.34,13.1l-1.01-1.01 M936.34,12.09l-0.5-1.51 M935.83,10.58
-	v-0.5 M935.83,10.07l0.5-1.51 M936.34,8.56l1.01-0.94 M937.34,7.62l1.44-0.5 M938.78,7.12h0.5 M939.29,7.12l1.51,0.5 M940.8,7.62
-	l1.01,0.94 M941.81,8.56l0.5,2.02 M942.31,10.58v2.52 M942.31,13.1l-0.5,2.45 M941.81,15.54l-1.01,1.51 M940.8,17.06l-1.51,0.5
-	 M939.29,17.56h-1.01 M938.28,17.56l-1.44-0.5 M936.84,17.06l-0.5-1.01 M946.27,9.57v-0.5 M946.27,9.06l0.5-1.01 M946.78,8.06
-	l0.5-0.43 M947.28,7.62l1.01-0.5 M948.29,7.12h2.02 M950.3,7.12l0.94,0.5 M951.24,7.62l0.5,0.43 M951.74,8.06l0.5,1.01 M952.25,9.06
-	v1.01 M952.25,10.07l-0.5,1.01 M951.74,11.08l-0.94,1.51 M950.81,12.59l-5.04,4.97 M945.77,17.56h6.98 M47.42,10.58v6.98
-	 M47.42,12.09l-1.01-1.01 M46.42,11.08l-1.01-0.5 M45.41,10.58H43.9 M43.9,10.58l-0.94,0.5 M42.96,11.08l-1.01,1.01 M41.95,12.09
-	l-0.5,1.51 M41.45,13.6v0.94 M41.45,14.54l0.5,1.51 M41.95,16.05l1.01,1.01 M42.96,17.06l0.94,0.5 M43.9,17.56h1.51 M45.41,17.56
-	l1.01-0.5 M46.42,17.06l1.01-1.01 M56.86,10.58v7.99 M56.86,18.57l-0.5,1.51 M56.35,20.08l-0.43,0.5 M55.92,20.58l-1.01,0.43
-	 M54.91,21.02H53.4 M53.4,21.02l-1.01-0.43 M56.86,12.09l-0.94-1.01 M55.92,11.08l-1.01-0.5 M54.91,10.58H53.4 M53.4,10.58
-	l-1.01,0.5 M52.39,11.08l-1.01,1.01 M51.38,12.09l-0.5,1.51 M50.88,13.6v0.94 M50.88,14.54l0.5,1.51 M51.38,16.05l1.01,1.01
-	 M52.39,17.06l1.01,0.5 M53.4,17.56h1.51 M54.91,17.56l1.01-0.5 M55.92,17.06l0.94-1.01 M60.38,13.6h5.98 M66.36,13.6v-1.01
-	 M66.36,12.59l-0.5-1.01 M65.86,11.58l-0.5-0.5 M65.35,11.08l-1.01-0.5 M64.34,10.58h-1.51 M62.83,10.58l-0.94,0.5 M61.9,11.08
-	l-1.01,1.01 M60.89,12.09l-0.5,1.51 M60.38,13.6v0.94 M60.38,14.54l0.5,1.51 M60.89,16.05l1.01,1.01 M61.9,17.06l0.94,0.5
-	 M62.83,17.56h1.51 M64.34,17.56l1.01-0.5 M65.35,17.06l1.01-1.01 M78.82,9.06l1.01-0.5 M79.82,8.56l1.51-1.44 M81.34,7.12v10.44
-	 M88.32,16.55l-0.5,0.5 M87.82,17.06l0.5,0.5 M88.32,17.56l0.43-0.5 M88.75,17.06l-0.43-0.5 M92.78,9.57v-0.5 M92.78,9.06l0.5-1.01
-	 M93.29,8.06l0.5-0.43 M93.79,7.62l1.01-0.5 M94.8,7.12h1.94 M96.74,7.12l1.01,0.5 M97.75,7.62l0.5,0.43 M98.26,8.06l0.5,1.01
-	 M98.76,9.06v1.01 M98.76,10.07l-0.5,1.01 M98.26,11.08l-1.01,1.51 M97.25,12.59l-4.97,4.97 M92.28,17.56h6.98 M108.7,10.58
-	l-0.5,1.51 M108.19,12.09l-0.94,1.01 M107.26,13.1l-1.51,0.5 M105.74,13.6h-0.5 M105.24,13.6l-1.51-0.5 M103.73,13.1l-1.01-1.01
-	 M102.72,12.09l-0.5-1.51 M102.22,10.58v-0.5 M102.22,10.07l0.5-1.51 M102.72,8.56l1.01-0.94 M103.73,7.62l1.51-0.5 M105.24,7.12
-	h0.5 M105.74,7.12l1.51,0.5 M107.26,7.62l0.94,0.94 M108.19,8.56l0.5,2.02 M108.7,10.58v2.52 M108.7,13.1l-0.5,2.45 M108.19,15.54
-	l-0.94,1.51 M107.26,17.06l-1.51,0.5 M105.74,17.56h-1.01 M104.74,17.56l-1.51-0.5 M103.22,17.06l-0.5-1.01 M119.21,7.12
-	l-4.97,10.44 M112.22,7.12h6.98 M127.2,7.12l-5.04,6.98 M122.16,14.1h7.49 M127.2,7.12v10.44 M132.67,9.57v-0.5 M132.67,9.06
-	l0.5-1.01 M133.18,8.06l0.5-0.43 M133.68,7.62l0.94-0.5 M134.62,7.12h2.02 M136.63,7.12l1.01,0.5"/>
-<path class="st1" d="M137.64,7.62l0.5,0.43 M138.14,8.06l0.5,1.01 M138.65,9.06v1.01 M138.65,10.07l-0.5,1.01 M138.14,11.08
-	l-1.01,1.51 M137.14,12.59l-4.97,4.97 M132.17,17.56h6.98 M148.58,10.58l-0.5,1.51 M148.08,12.09l-1.01,1.01 M147.07,13.1l-1.44,0.5
-	 M145.63,13.6h-0.5 M145.13,13.6l-1.51-0.5 M143.62,13.1l-1.01-1.01 M142.61,12.09l-0.5-1.51 M142.1,10.58v-0.5 M142.1,10.07
-	l0.5-1.51 M142.61,8.56l1.01-0.94 M143.62,7.62l1.51-0.5 M145.13,7.12h0.5 M145.63,7.12l1.44,0.5 M147.07,7.62l1.01,0.94
-	 M148.08,8.56l0.5,2.02 M148.58,10.58v2.52 M148.58,13.1l-0.5,2.45 M148.08,15.54l-1.01,1.51 M147.07,17.06l-1.44,0.5 M145.63,17.56
-	h-1.01 M144.62,17.56l-1.51-0.5 M143.11,17.06l-0.5-1.01 M152.11,13.6h5.98 M158.09,13.6v-1.01 M158.09,12.59l-0.5-1.01
-	 M157.58,11.58l-0.5-0.5 M157.08,11.08l-1.01-0.5 M156.07,10.58h-1.51 M154.56,10.58l-1.01,0.5 M153.55,11.08l-0.94,1.01
-	 M152.62,12.09l-0.5,1.51 M152.11,13.6v0.94 M152.11,14.54l0.5,1.51 M152.62,16.05l0.94,1.01 M153.55,17.06l1.01,0.5 M154.56,17.56
-	h1.51 M156.07,17.56l1.01-0.5 M157.08,17.06l1.01-1.01 M167.52,8.56l-0.5-0.94 M167.02,7.62l-1.44-0.5 M165.58,7.12h-1.01
-	 M164.57,7.12l-1.51,0.5 M163.06,7.62l-1.01,1.44 M162.05,9.06l-0.5,2.52 M161.54,11.58v2.52 M161.54,14.1l0.5,1.94 M162.05,16.05
-	l1.01,1.01 M163.06,17.06l1.51,0.5 M164.57,17.56h0.5 M165.07,17.56l1.44-0.5 M166.51,17.06l1.01-1.01 M167.52,16.05l0.5-1.51
-	 M168.02,14.54V14.1 M168.02,14.1l-0.5-1.51 M167.52,12.59l-1.01-1.01 M166.51,11.58l-1.44-0.5 M165.07,11.08h-0.5 M164.57,11.08
-	l-1.51,0.5 M163.06,11.58l-1.01,1.01 M162.05,12.59l-0.5,1.51 M178.54,10.58l2.95,6.98 M184.51,10.58l-3.02,6.98 M181.49,17.56
-	l-1.01,2.02 M180.48,19.58l-1.01,1.01 M179.47,20.58l-0.94,0.43 M178.54,21.02h-0.5 M187.46,10.58v6.98 M187.46,13.6l0.5-1.51
-	 M187.97,12.09l1.01-1.01 M188.98,11.08l1.01-0.5 M189.98,10.58h1.51 M198.91,12.09l-0.43-1.01 M198.48,11.08l-1.51-0.5
-	 M196.97,10.58h-1.51 M195.46,10.58l-1.51,0.5 M193.94,11.08l-0.5,1.01 M193.44,12.09l0.5,1.01 M193.94,13.1l1.01,0.5 M194.95,13.6
-	l2.52,0.5 M197.47,14.1l1.01,0.43 M198.48,14.54l0.43,1.01 M198.91,15.54v0.5 M198.91,16.05l-0.43,1.01 M198.48,17.06l-1.51,0.5
-	 M196.97,17.56h-1.51 M195.46,17.56l-1.51-0.5 M193.94,17.06l-0.5-1.01 M524.57,6.62v8.35 M524.57,8.99l1.8-1.8 M526.37,7.19
-	l1.15-0.58 M527.52,6.62h1.8 M529.32,6.62l1.22,0.58 M530.54,7.19l0.58,1.8 M531.12,8.99v5.98 M531.12,8.99l1.8-1.8 M532.92,7.19
-	l1.22-0.58 M534.14,6.62h1.73 M535.87,6.62l1.22,0.58 M537.1,7.19l0.58,1.8 M537.67,8.99v5.98 M549.05,6.62v8.35 M549.05,8.42
-	L547.9,7.2 M547.9,7.19l-1.22-0.58 M546.67,6.62h-1.8 M544.87,6.62l-1.22,0.58 M543.65,7.19l-1.15,1.22 M542.5,8.42l-0.58,1.8
-	 M541.92,10.22v1.15 M541.92,11.37l0.58,1.8 M542.5,13.17l1.15,1.22 M543.65,14.39l1.22,0.58 M544.87,14.97h1.8 M546.67,14.97
-	l1.22-0.58 M547.9,14.39l1.15-1.22 M553.87,2.44v12.53 M559.85,6.62l-5.98,5.98 M556.25,10.22l4.18,4.75 M563.45,10.22h7.13
-	 M570.58,10.22V8.99 M570.58,8.99L570,7.77 M570,7.77l-0.58-0.58 M569.42,7.19l-1.22-0.58 M568.2,6.62h-1.8 M566.4,6.62l-1.15,0.58
-	 M565.25,7.19l-1.22,1.22 M564.02,8.42l-0.58,1.8 M563.45,10.22v1.15 M563.45,11.37l0.58,1.8 M564.02,13.17l1.22,1.22 M565.25,14.39
-	l1.15,0.58 M566.4,14.97h1.8 M568.2,14.97l1.22-0.58 M569.42,14.39l1.15-1.22 M572.38,16.19h10.8 M592.1,6.62l-6.55,8.35
-	 M585.55,6.62h6.55 M585.55,14.97h6.55 M602.9,6.62v8.35 M602.9,8.42l-1.22-1.22 M601.68,7.19l-1.15-0.58 M600.53,6.62h-1.8
-	 M598.73,6.62l-1.22,0.58 M597.5,7.19l-1.15,1.22 M596.35,8.42l-0.65,1.8 M595.7,10.22v1.15 M595.7,11.37l0.65,1.8 M596.35,13.17
-	l1.15,1.22 M597.5,14.39l1.22,0.58 M598.73,14.97h1.8 M600.53,14.97l1.15-0.58 M601.68,14.39l1.22-1.22 M607.66,6.62v8.35
-	 M607.66,8.99l1.8-1.8 M609.46,7.19l1.22-0.58 M610.68,6.62h1.8 M612.48,6.62l1.15,0.58 M613.63,7.19l0.65,1.8 M614.28,8.99v5.98
-	 M614.28,8.99l1.8-1.8 M616.08,7.19l1.15-0.58 M617.23,6.62h1.8 M619.03,6.62l1.22,0.58 M620.26,7.19l0.58,1.8 M620.83,8.99v5.98
-	 M631.63,8.42l-0.65-1.22 M630.98,7.19l-1.8-0.58 M629.18,6.62h-1.73 M627.46,6.62l-1.8,0.58 M625.66,7.19l-0.65,1.22 M625.01,8.42
-	l0.65,1.15 M625.66,9.57l1.15,0.65 M626.81,10.22l3.02,0.58 M629.83,10.79l1.15,0.58 M630.98,11.37l0.65,1.22 M631.63,12.59v0.58
-	 M631.63,13.17l-0.65,1.22 M630.98,14.39l-1.8,0.58 M629.18,14.97h-1.73 M627.46,14.97l-1.8-0.58 M625.66,14.39l-0.65-1.22"/>
-<path class="st2" d="M144.7,34.98l-0.5-0.94 M144.19,34.05l-1.44-0.5 M142.75,33.54h-1.44 M141.31,33.54l-1.44,0.5 M139.87,34.05
-	l-0.43,0.94 M139.44,34.98l0.43,0.94 M139.87,35.92l1.01,0.5 M140.88,36.42l2.38,0.43 M143.26,36.86l0.94,0.5 M144.19,37.36
-	l0.5,0.94 M144.7,38.3v0.5 M144.7,38.8l-0.5,0.94 M144.19,39.74l-1.44,0.5 M142.75,40.24h-1.44 M141.31,40.24l-1.44-0.5
-	 M139.87,39.74l-0.43-0.94 M148.51,30.16v8.14 M148.51,38.3l0.5,1.44 M149.02,39.74l0.94,0.5 M149.95,40.24h0.94 M147.07,33.54h3.31
-	 M159.02,33.54v6.7 M159.02,34.98l-0.94-0.94 M158.09,34.05l-0.94-0.5 M157.15,33.54h-1.44 M155.71,33.54l-1.01,0.5 M154.7,34.05
-	l-0.94,0.94 M153.77,34.98l-0.5,1.44 M153.26,36.42v0.94 M153.26,37.36l0.5,1.44 M153.77,38.8l0.94,0.94 M154.7,39.74l1.01,0.5
-	 M155.71,40.24h1.44 M157.15,40.24l0.94-0.5 M158.09,39.74l0.94-0.94 M162.84,33.54v6.7 M162.84,36.42l0.5-1.44 M163.34,34.98
-	l0.94-0.94 M164.28,34.05l1.01-0.5 M165.29,33.54h1.37 M167.16,41.18h8.64 M178.18,33.54v6.7 M178.18,35.49l1.44-1.44 M179.62,34.05
-	l0.94-0.5 M180.55,33.54h1.44 M181.99,33.54l0.94,0.5 M182.93,34.05l0.5,1.44 M183.43,35.49v4.75 M183.43,35.49l1.44-1.44
-	 M184.87,34.05l0.94-0.5 M185.81,33.54h1.44 M187.25,33.54l1.01,0.5 M188.26,34.05l0.43,1.44 M188.69,35.49v4.75 M197.76,33.54v6.7
-	 M197.76,34.98l-0.94-0.94 M196.82,34.05l-0.94-0.5 M195.89,33.54h-1.44 M194.45,33.54l-0.94,0.5 M193.51,34.05l-1.01,0.94
-	 M192.5,34.98l-0.43,1.44 M192.07,36.42v0.94 M192.07,37.36l0.43,1.44 M192.5,38.8l1.01,0.94 M193.51,39.74l0.94,0.5 M194.45,40.24
-	h1.44 M195.89,40.24l0.94-0.5 M196.82,39.74l0.94-0.94 M206.4,34.98l-0.5-0.94 M205.9,34.05l-1.44-0.5 M204.46,33.54h-1.37
-	 M203.09,33.54l-1.44,0.5 M201.65,34.05l-0.5,0.94 M201.14,34.98l0.5,0.94 M201.65,35.92l0.94,0.5 M202.58,36.42l2.38,0.43
-	 M204.96,36.86l0.94,0.5 M205.9,37.36l0.5,0.94 M206.4,38.3v0.5 M206.4,38.8l-0.5,0.94 M205.9,39.74l-1.44,0.5 M204.46,40.24h-1.37
-	 M203.09,40.24l-1.44-0.5 M201.65,39.74l-0.5-0.94 M214.54,34.98l-0.5-0.94 M214.03,34.05l-1.44-0.5 M212.59,33.54h-1.37
-	 M211.22,33.54l-1.44,0.5 M209.78,34.05l-0.5,0.94 M209.28,34.98l0.5,0.94 M209.78,35.92l0.94,0.5 M210.72,36.42l2.38,0.43
-	 M213.1,36.86l0.94,0.5 M214.03,37.36l0.5,0.94 M214.54,38.3v0.5 M214.54,38.8l-0.5,0.94 M214.03,39.74l-1.44,0.5 M212.59,40.24
-	h-1.37 M211.22,40.24l-1.44-0.5 M209.78,39.74l-0.5-0.94 M240.31,30.16l-4.75,6.7 M235.56,36.86h7.2 M240.31,30.16v10.08
-	 M246.07,39.3l-0.43,0.43 M245.64,39.74l0.43,0.5 M246.07,40.24l0.5-0.5 M246.58,39.74l-0.5-0.43 M252.77,30.16l-1.44,0.5
-	 M251.33,30.66l-0.94,1.44 M250.39,32.1l-0.5,2.38 M249.89,34.48v1.44 M249.89,35.92l0.5,2.38 M250.39,38.3l0.94,1.44 M251.33,39.74
-	l1.44,0.5 M252.77,40.24h0.94 M253.7,40.24l1.44-0.5 M255.14,39.74l1.01-1.44 M256.15,38.3l0.43-2.38 M256.58,35.92v-1.44
-	 M256.58,34.48l-0.43-2.38 M256.15,32.1l-1.01-1.44 M255.14,30.66l-1.44-0.5 M253.7,30.16h-0.94 M262.34,30.16l-1.44,0.5
-	 M260.9,30.66l-0.94,1.44 M259.97,32.1l-0.5,2.38 M259.46,34.48v1.44 M259.46,35.92l0.5,2.38 M259.97,38.3l0.94,1.44 M260.9,39.74
-	l1.44,0.5 M262.34,40.24h0.94 M263.28,40.24l1.44-0.5 M264.72,39.74l1.01-1.44 M265.73,38.3l0.43-2.38 M266.16,35.92v-1.44
-	 M266.16,34.48l-0.43-2.38 M265.73,32.1l-1.01-1.44 M264.72,30.66l-1.44-0.5 M263.28,30.16h-0.94 M271.92,30.16l-1.44,0.5
-	 M270.48,30.66l-0.94,1.44 M269.54,32.1l-0.5,2.38 M269.04,34.48v1.44 M269.04,35.92l0.5,2.38 M269.54,38.3l0.94,1.44 M270.48,39.74
-	l1.44,0.5 M271.92,40.24h0.94 M272.86,40.24l1.44-0.5 M274.3,39.74l1.01-1.44 M275.3,38.3l0.43-2.38 M275.74,35.92v-1.44
-	 M275.74,34.48l-0.43-2.38 M275.3,32.1l-1.01-1.44 M274.3,30.66l-1.44-0.5 M272.86,30.16h-0.94 M281.5,30.16l-1.44,0.5
-	 M280.06,30.66l-0.94,1.44 M279.12,32.1l-0.5,2.38 M278.62,34.48v1.44 M278.62,35.92l0.5,2.38 M279.12,38.3l0.94,1.44 M280.06,39.74
-	l1.44,0.5 M281.5,40.24h0.94 M282.43,40.24l1.44-0.5 M283.87,39.74l0.94-1.44 M284.81,38.3l0.5-2.38 M285.31,35.92v-1.44
-	 M285.31,34.48l-0.5-2.38 M284.81,32.1l-0.94-1.44 M283.87,30.66l-1.44-0.5 M282.43,30.16h-0.94 M291.07,30.16l-1.44,0.5
-	 M289.63,30.66l-0.94,1.44 M288.7,32.1l-0.5,2.38 M288.19,34.48v1.44 M288.19,35.92l0.5,2.38 M288.7,38.3l0.94,1.44 M289.63,39.74
-	l1.44,0.5 M291.07,40.24h0.94 M292.01,40.24l1.44-0.5 M293.45,39.74l0.94-1.44 M294.38,38.3l0.5-2.38 M294.89,35.92v-1.44
-	 M294.89,34.48l-0.5-2.38 M294.38,32.1l-0.94-1.44 M293.45,30.66l-1.44-0.5 M292.01,30.16h-0.94 M300.65,30.16l-1.44,0.5
-	 M299.21,30.66l-0.94,1.44 M298.27,32.1l-0.5,2.38 M297.77,34.48v1.44 M297.77,35.92l0.5,2.38 M298.27,38.3l0.94,1.44 M299.21,39.74
-	l1.44,0.5 M300.65,40.24h0.94 M301.58,40.24l1.44-0.5 M303.02,39.74l0.94-1.44 M303.96,38.3l0.5-2.38 M304.46,35.92v-1.44
-	 M304.46,34.48l-0.5-2.38"/>
-<path class="st2" d="M303.96,32.1l-0.94-1.44 M303.02,30.66l-1.44-0.5 M301.58,30.16h-0.94 M310.22,30.16l-1.44,0.5 M308.78,30.66
-	l-0.94,1.44 M307.85,32.1l-0.5,2.38 M307.34,34.48v1.44 M307.34,35.92l0.5,2.38 M307.85,38.3l0.94,1.44 M308.78,39.74l1.44,0.5
-	 M310.22,40.24h0.94 M311.16,40.24l1.44-0.5 M312.6,39.74l0.94-1.44 M313.54,38.3l0.5-2.38 M314.04,35.92v-1.44 M314.04,34.48
-	l-0.5-2.38 M313.54,32.1l-0.94-1.44 M312.6,30.66l-1.44-0.5 M311.16,30.16h-0.94 M470.5,30.16v10.08 M476.26,33.54l-0.94,0.5
-	 M475.32,34.05l-0.94,0.94 M474.38,34.98l-0.5,1.44 M473.88,36.42v0.94 M473.88,37.36l0.5,1.44 M474.38,38.8l0.94,0.94
-	 M475.32,39.74l0.94,0.5 M476.26,40.24h1.44 M477.7,40.24l0.94-0.5 M478.63,39.74l1.01-0.94 M479.64,38.8l0.43-1.44 M480.07,37.36
-	v-0.94 M480.07,36.42l-0.43-1.44 M479.64,34.98l-1.01-0.94 M478.63,34.05l-0.94-0.5 M477.7,33.54h-1.44 M488.71,33.54v7.63
-	 M488.71,41.18l-0.5,1.44 M488.21,42.62l-0.43,0.5 M487.78,43.12l-1.01,0.5 M486.77,43.62h-1.44 M485.33,43.62l-0.94-0.5
-	 M488.71,34.98l-0.94-0.94 M487.78,34.05l-1.01-0.5 M486.77,33.54h-1.44 M485.33,33.54l-0.94,0.5 M484.39,34.05l-0.94,0.94
-	 M483.46,34.98l-0.5,1.44 M482.95,36.42v0.94 M482.95,37.36l0.5,1.44 M483.46,38.8l0.94,0.94 M484.39,39.74l0.94,0.5 M485.33,40.24
-	h1.44 M486.77,40.24l1.01-0.5 M487.78,39.74l0.94-0.94 M490.66,41.18h8.57 M501.6,30.16v10.08 M501.6,40.24h5.76 M509.74,30.16
-	v10.08 M516.43,30.16v10.08 M509.74,34.98h6.7 M538.46,32.61v-0.5 M538.46,32.1l0.43-0.94 M538.9,31.17l0.5-0.5 M539.4,30.66
-	l0.94-0.5 M540.34,30.16h1.94 M542.28,30.16l0.94,0.5 M543.22,30.66l0.5,0.5 M543.72,31.17l0.43,0.94 M544.15,32.1v0.94
-	 M544.15,33.04l-0.43,1.01 M543.72,34.05l-1.01,1.44 M542.71,35.49l-4.75,4.75 M537.96,40.24h6.7 M548.47,39.3l-0.43,0.43
-	 M548.04,39.74l0.43,0.5 M548.47,40.24l0.5-0.5 M548.98,39.74l-0.5-0.43 M557.11,30.16l-4.82,6.7 M552.29,36.86h7.2 M557.11,30.16
-	v10.08 M562.37,32.61v-0.5 M562.37,32.1l0.5-0.94 M562.87,31.17l0.43-0.5 M563.3,30.66l0.94-0.5 M564.24,30.16h1.94 M566.18,30.16
-	l0.94,0.5 M567.12,30.66l0.5,0.5 M567.62,31.17l0.5,0.94 M568.13,32.1v0.94 M568.13,33.04l-0.5,1.01 M567.62,34.05l-0.94,1.44
-	 M566.69,35.49l-4.82,4.75 M561.86,40.24h6.7 M577.7,31.6l-0.5-0.94 M577.2,30.66l-1.44-0.5 M575.76,30.16h-0.94 M574.82,30.16
-	l-1.44,0.5 M573.38,30.66l-1.01,1.44 M572.38,32.1l-0.43,2.38 M571.94,34.48v2.38 M571.94,36.86l0.43,1.94 M572.38,38.8l1.01,0.94
-	 M573.38,39.74l1.44,0.5 M574.82,40.24h0.43 M575.26,40.24l1.44-0.5 M576.7,39.74l1.01-0.94 M577.7,38.8l0.43-1.44 M578.14,37.36
-	v-0.5 M578.14,36.86l-0.43-1.37 M577.7,35.49l-1.01-1.01 M576.7,34.48l-1.44-0.43 M575.26,34.05h-0.43 M574.82,34.05l-1.44,0.43
-	 M573.38,34.48l-1.01,1.01 M572.38,35.49l-0.43,1.37 M587.71,30.16l-4.75,10.08 M581.02,30.16h6.7 M597.29,30.16l-4.75,10.08
-	 M590.59,30.16h6.7 M606.36,33.54l-0.43,1.44 M605.93,34.98l-1.01,0.94 M604.92,35.92l-1.44,0.5 M603.48,36.42h-0.43 M603.05,36.42
-	l-1.44-0.5 M601.61,35.92l-0.94-0.94 M600.67,34.98l-0.5-1.44 M600.17,33.54v-0.5 M600.17,33.04l0.5-1.44 M600.67,31.6l0.94-0.94
-	 M601.61,30.66l1.44-0.5 M603.05,30.16h0.43 M603.48,30.16l1.44,0.5 M604.92,30.66l1.01,0.94 M605.93,31.6l0.43,1.94 M606.36,33.54
-	v2.38 M606.36,35.92l-0.43,2.38 M605.93,38.3l-1.01,1.44 M604.92,39.74l-1.44,0.5 M603.48,40.24h-0.94 M602.54,40.24l-1.44-0.5
-	 M601.1,39.74l-0.43-0.94 M611.18,32.1l0.94-0.5 M612.12,31.6l1.44-1.44 M613.56,30.16v10.08 M737.98,33.54v6.7 M737.98,35.49
-	l1.44-1.44 M739.42,34.05l0.94-0.5 M740.35,33.54h1.44 M741.79,33.54l1.01,0.5 M742.8,34.05l0.43,1.44 M743.23,35.49v4.75
-	 M747.05,33.54v4.75 M747.05,38.3l0.5,1.44 M747.55,39.74l0.94,0.5 M748.49,40.24h1.44 M749.93,40.24l1.01-0.5 M750.94,39.74
-	l1.44-1.44 M752.38,33.54v6.7 M756.19,33.54v6.7 M756.19,35.49l1.44-1.44 M757.63,34.05l0.94-0.5 M758.57,33.54h1.44 M760.01,33.54
-	l0.94,0.5 M760.94,34.05l0.5,1.44 M761.45,35.49v4.75 M761.45,35.49l1.44-1.44 M762.89,34.05l0.94-0.5 M763.82,33.54h1.44
-	 M765.26,33.54l0.94,0.5 M766.2,34.05l0.5,1.44 M766.7,35.49v4.75 M768.65,41.18h8.57 M784.42,33.54l-5.26,6.7 M779.16,33.54h5.26
-	 M779.16,40.24h5.26 M789.67,33.54l-0.94,0.5 M788.74,34.05l-1.01,0.94 M787.73,34.98l-0.43,1.44 M787.3,36.42v0.94 M787.3,37.36
-	l0.43,1.44 M787.73,38.8l1.01,0.94 M788.74,39.74l0.94,0.5 M789.67,40.24h1.44 M791.11,40.24l0.94-0.5 M792.05,39.74l1.01-0.94
-	 M793.06,38.8l0.43-1.44 M793.49,37.36v-0.94 M793.49,36.42l-0.43-1.44 M793.06,34.98l-1.01-0.94 M792.05,34.05l-0.94-0.5
-	 M791.11,33.54h-1.44 M796.87,33.54v6.7 M796.87,35.49l1.44-1.44 M798.31,34.05l0.94-0.5 M799.25,33.54h1.44 M800.69,33.54l0.94,0.5
-	 M801.62,34.05l0.5,1.44 M802.13,35.49v4.75 M805.44,36.42h5.76"/>
-<path class="st2" d="M811.2,36.42v-0.94 M811.2,35.49l-0.5-1.01 M810.7,34.48l-0.43-0.43 M810.26,34.05l-1.01-0.5 M809.26,33.54
-	h-1.37 M807.89,33.54l-1.01,0.5 M806.88,34.05l-0.94,0.94 M805.94,34.98l-0.5,1.44 M805.44,36.42v0.94 M805.44,37.36l0.5,1.44
-	 M805.94,38.8l0.94,0.94 M806.88,39.74l1.01,0.5 M807.89,40.24h1.37 M809.26,40.24l1.01-0.5 M810.26,39.74l0.94-0.94 M819.34,34.98
-	l-0.5-0.94 M818.83,34.05l-1.44-0.5 M817.39,33.54h-1.37 M816.02,33.54l-1.44,0.5 M814.58,34.05l-0.5,0.94 M814.08,34.98l0.5,0.94
-	 M814.58,35.92l0.94,0.5 M815.52,36.42l2.38,0.43 M817.9,36.86l0.94,0.5 M818.83,37.36l0.5,0.94 M819.34,38.3v0.5 M819.34,38.8
-	l-0.5,0.94 M818.83,39.74l-1.44,0.5 M817.39,40.24h-1.37 M816.02,40.24l-1.44-0.5 M814.58,39.74l-0.5-0.94 M842.74,30.16l-1.44,0.5
-	 M841.3,30.66l-0.43,0.94 M840.86,31.6v1.01 M840.86,32.61l0.43,0.94 M841.3,33.54l1.01,0.5 M842.3,34.05l1.87,0.43 M844.18,34.48
-	l1.44,0.5 M845.62,34.98l0.94,0.94 M846.55,35.92l0.5,0.94 M847.06,36.86v1.44 M847.06,38.3l-0.5,1.01 M846.55,39.3l-0.43,0.43
-	 M846.12,39.74l-1.44,0.5 M844.68,40.24h-1.94 M842.74,40.24l-1.44-0.5 M841.3,39.74l-0.43-0.43 M840.86,39.3l-0.5-1.01
-	 M840.36,38.3v-1.44 M840.36,36.86l0.5-0.94 M840.86,35.92l0.94-0.94 M841.8,34.98l1.44-0.5 M843.24,34.48l1.87-0.43 M845.11,34.05
-	l1.01-0.5 M846.12,33.54l0.43-0.94 M846.55,32.61V31.6 M846.55,31.6l-0.43-0.94 M846.12,30.66l-1.44-0.5 M844.68,30.16h-1.94
-	 M856.63,30.16l-4.82,10.08 M849.94,30.16h6.7 M862.39,30.16l-1.44,0.5 M860.95,30.66l-1.01,1.44 M859.94,32.1l-0.43,2.38
-	 M859.51,34.48v1.44 M859.51,35.92l0.43,2.38 M859.94,38.3l1.01,1.44 M860.95,39.74l1.44,0.5 M862.39,40.24h0.94 M863.33,40.24
-	l1.44-0.5 M864.77,39.74l0.94-1.44 M865.7,38.3l0.5-2.38 M866.21,35.92v-1.44 M866.21,34.48l-0.5-2.38 M865.7,32.1l-0.94-1.44
-	 M864.77,30.66l-1.44-0.5 M863.33,30.16h-0.94"/>
-<path class="st3" d="M250.61,604.94v7.34 M250.61,607.02l1.58-1.58 M252.19,605.44l1.08-0.5 M253.27,604.94h1.58 M254.86,604.94
-	l1.01,0.5 M255.86,605.44l0.5,1.58 M256.37,607.02v5.26 M256.37,607.02l1.58-1.58 M257.95,605.44l1.08-0.5 M259.03,604.94h1.58
-	 M260.62,604.94l1.01,0.5 M261.62,605.44l0.5,1.58 M262.13,607.02v5.26 M274.73,599.18l-9.43,16.78 M277.82,601.26v11.02
-	 M277.82,601.26l4.25,11.02 M286.25,601.26l-4.18,11.02 M286.25,601.26v11.02 M293.02,610.26l-1.15,0.43 M291.86,610.7l-1.15,0.79
-	 M290.71,611.49l-0.79,1.15 M289.92,612.64l-0.43,1.22 M289.49,613.86v1.15 M289.49,615.02l0.43,1.15 M289.92,616.17l0.79,1.22
-	 M290.71,617.39l1.15,0.79 M291.86,618.18l1.15,0.36 M293.02,618.54h1.22 M294.24,618.54l1.15-0.36 M295.39,618.18l1.15-0.79
-	 M296.54,617.39l0.79-1.22 M297.34,616.17l0.43-1.15 M297.77,615.02v-1.15 M297.77,613.86l-0.43-1.22 M297.34,612.64l-0.79-1.15
-	 M296.54,611.49l-1.15-0.79 M295.39,610.7l-1.15-0.43 M294.24,610.26h-1.22 M293.45,613.86l-0.43,0.36 M293.02,614.22v0.36
-	 M293.02,614.58l0.43,0.43 M293.45,615.02h0.36 M293.81,615.02l0.43-0.43 M294.24,614.58v-0.36 M294.24,614.22l-0.43-0.36
-	 M293.81,613.86h-0.36 M293.45,614.22v0.36 M293.45,614.58h0.36 M293.81,614.58v-0.36 M293.81,614.22h-0.36"/>
-<path class="st1" d="M75.58,574.84h394.2 M469.78,574.84V69.4 M469.78,69.4H75.58 M75.58,69.4v505.44 M75.58,574.84v-6.26
-	 M115.03,574.84v-3.17 M154.42,574.84v-6.26 M193.87,574.84v-3.17 M233.26,574.84v-6.26 M272.71,574.84v-3.17 M312.1,574.84v-6.26
-	 M351.55,574.84v-3.17 M390.94,574.84v-6.26 M430.39,574.84v-3.17 M469.78,574.84v-6.26 M75.58,75.66V69.4 M115.03,72.57V69.4
-	 M154.42,75.66V69.4 M193.87,72.57V69.4 M233.26,75.66V69.4 M272.71,72.57V69.4 M312.1,75.66V69.4 M351.55,72.57V69.4 M390.94,75.66
-	V69.4 M430.39,72.57V69.4 M469.78,75.66V69.4 M75.14,582.4l-1.22,0.36 M73.92,582.76l-0.86,1.3 M73.06,584.06l-0.43,2.09
-	 M72.62,586.14v1.22 M72.62,587.37l0.43,2.16 M73.06,589.53l0.86,1.22 M73.92,590.75l1.22,0.43 M75.14,591.18H76 M76.01,591.18
-	l1.22-0.43 M77.23,590.75l0.86-1.22 M78.1,589.53l0.43-2.16 M78.53,587.37v-1.22 M78.53,586.14l-0.43-2.09 M78.1,584.06l-0.86-1.3
-	 M77.23,582.76l-1.22-0.36 M76.01,582.4h-0.86 M147.72,582.4l-1.22,0.36 M146.5,582.76l-0.86,1.3 M145.63,584.06l-0.43,2.09
-	 M145.2,586.14v1.22 M145.2,587.37l0.43,2.16 M145.63,589.53l0.86,1.22 M146.5,590.75l1.22,0.43 M147.72,591.18h0.86 M148.58,591.18
-	l1.22-0.43 M149.81,590.75l0.86-1.22 M150.67,589.53l0.36-2.16 M151.03,587.37v-1.22 M151.03,586.14l-0.36-2.09 M150.67,584.06
-	l-0.86-1.3 M149.81,582.76l-1.22-0.36 M148.58,582.4h-0.86 M154.42,590.32l-0.43,0.43 M153.98,590.75l0.43,0.43 M154.42,591.18
-	l0.43-0.43 M154.85,590.75l-0.43-0.43 M158.16,584.49v-0.43 M158.16,584.06l0.43-0.86 M158.59,583.19l0.43-0.43 M159.02,582.76
-	l0.86-0.36 M159.89,582.4h1.66 M161.54,582.4l0.79,0.36 M162.34,582.76l0.43,0.43 M162.77,583.19l0.43,0.86 M163.2,584.06v0.86
-	 M163.2,584.92l-0.43,0.79 M162.77,585.71l-0.79,1.3 M161.98,587.01l-4.18,4.18 M157.8,591.18h5.83 M226.56,582.4l-1.22,0.36
-	 M225.34,582.76l-0.86,1.3 M224.47,584.06l-0.43,2.09 M224.04,586.14v1.22 M224.04,587.37l0.43,2.16 M224.47,589.53l0.86,1.22
-	 M225.34,590.75l1.22,0.43 M226.56,591.18h0.86 M227.42,591.18l1.22-0.43 M228.65,590.75l0.86-1.22 M229.51,589.53l0.36-2.16
-	 M229.87,587.37v-1.22 M229.87,586.14l-0.36-2.09 M229.51,584.06l-0.86-1.3 M228.65,582.76l-1.22-0.36 M227.42,582.4h-0.86
-	 M233.26,590.32l-0.43,0.43 M232.82,590.75l0.43,0.43 M233.26,591.18l0.43-0.43 M233.69,590.75l-0.43-0.43 M240.82,582.4l-4.18,5.83
-	 M236.64,588.23h6.26 M240.82,582.4v8.78 M305.4,582.4l-1.22,0.36 M304.18,582.76l-0.86,1.3 M303.31,584.06l-0.43,2.09
-	 M302.88,586.14v1.22 M302.88,587.37l0.43,2.16 M303.31,589.53l0.86,1.22 M304.18,590.75l1.22,0.43 M305.4,591.18h0.86
-	 M306.26,591.18l1.22-0.43 M307.49,590.75l0.86-1.22 M308.35,589.53l0.36-2.16 M308.71,587.37v-1.22 M308.71,586.14l-0.36-2.09
-	 M308.35,584.06l-0.86-1.3 M307.49,582.76l-1.22-0.36 M306.26,582.4h-0.86 M312.1,590.32l-0.43,0.43 M311.66,590.75l0.43,0.43
-	 M312.1,591.18l0.43-0.43 M312.53,590.75l-0.43-0.43 M320.88,583.62l-0.43-0.86 M320.45,582.76l-1.22-0.36 M319.22,582.4h-0.86
-	 M318.36,582.4l-1.22,0.36 M317.14,582.76l-0.86,1.3 M316.27,584.06l-0.43,2.09 M315.84,586.14v2.09 M315.84,588.23l0.43,1.66
-	 M316.27,589.89l0.86,0.86 M317.14,590.75l1.22,0.43 M318.36,591.18h0.43 M318.79,591.18l1.22-0.43 M320.02,590.75l0.86-0.86
-	 M320.88,589.89l0.43-1.22 M321.31,588.66v-0.43 M321.31,588.23l-0.43-1.22 M320.88,587.01l-0.86-0.86 M320.02,586.14l-1.22-0.43
-	 M318.79,585.71h-0.43 M318.36,585.71l-1.22,0.43 M317.14,586.14l-0.86,0.86 M316.27,587.01l-0.43,1.22 M384.24,582.4l-1.22,0.36
-	 M383.02,582.76l-0.86,1.3 M382.15,584.06l-0.43,2.09 M381.72,586.14v1.22 M381.72,587.37l0.43,2.16 M382.15,589.53l0.86,1.22
-	 M383.02,590.75l1.22,0.43 M384.24,591.18h0.86 M385.1,591.18l1.22-0.43 M386.33,590.75l0.86-1.22 M387.19,589.53l0.36-2.16
-	 M387.55,587.37v-1.22 M387.55,586.14l-0.36-2.09 M387.19,584.06l-0.86-1.3 M386.33,582.76l-1.22-0.36 M385.1,582.4h-0.86
-	 M390.94,590.32l-0.43,0.43 M390.5,590.75l0.43,0.43 M390.94,591.18l0.43-0.43 M391.37,590.75l-0.43-0.43 M396.41,582.4l-1.3,0.36
-	 M395.11,582.76l-0.43,0.86 M394.68,583.62v0.86 M394.68,584.49l0.43,0.79 M395.11,585.28l0.86,0.43 M395.98,585.71l1.66,0.43
-	 M397.63,586.14l1.22,0.43 M398.86,586.58l0.86,0.79 M399.72,587.37l0.43,0.86 M400.15,588.23v1.3 M400.15,589.53l-0.43,0.79
-	 M399.72,590.32l-0.43,0.43 M399.29,590.75l-1.22,0.43 M398.06,591.18h-1.66 M396.41,591.18l-1.3-0.43 M395.11,590.75l-0.43-0.43
-	 M394.68,590.32l-0.36-0.79 M394.32,589.53v-1.3 M394.32,588.23l0.36-0.86 M394.68,587.37l0.86-0.79 M395.54,586.58l1.22-0.43
-	 M396.77,586.14l1.73-0.43 M398.5,585.71l0.79-0.43 M399.29,585.28l0.43-0.79 M399.72,584.49v-0.86 M399.72,583.62l-0.43-0.86
-	 M399.29,582.76l-1.22-0.36 M398.06,582.4h-1.66 M468.12,584.06l0.79-0.43 M468.91,583.62l1.3-1.22 M470.21,582.4v8.78
-	 M75.58,567.28h6.26 M75.58,552.23h3.17 M75.58,537.11h3.17 M75.58,522.06h3.17 M75.58,506.94h3.17 M75.58,491.82h6.26
-	 M75.58,476.78h3.17 M75.58,461.66h3.17 M75.58,446.61h3.17"/>
-<path class="st1" d="M75.58,431.49h3.17 M75.58,416.44h6.26 M75.58,401.32h3.17 M75.58,386.27h3.17 M75.58,371.15h3.17
-	 M75.58,356.03h3.17 M75.58,340.98h6.26 M75.58,325.86h3.17 M75.58,310.82h3.17 M75.58,295.7h3.17 M75.58,280.65h3.17 M75.58,265.53
-	h6.26 M75.58,250.48h3.17 M75.58,235.36h3.17 M75.58,220.31h3.17 M75.58,205.19h3.17 M75.58,190.07h6.26 M75.58,175.02h3.17
-	 M75.58,159.9h3.17 M75.58,144.86h3.17 M75.58,129.74h3.17 M75.58,114.69h6.26 M75.58,99.57h3.17 M75.58,84.52h3.17 M75.58,69.4
-	h3.17 M463.51,567.28h6.26 M466.61,552.23h3.17 M466.61,537.11h3.17 M466.61,522.06h3.17 M466.61,506.94h3.17 M463.51,491.82h6.26
-	 M466.61,476.78h3.17 M466.61,461.66h3.17 M466.61,446.61h3.17 M466.61,431.49h3.17 M463.51,416.44h6.26 M466.61,401.32h3.17
-	 M466.61,386.27h3.17 M466.61,371.15h3.17 M466.61,356.03h3.17 M463.51,340.98h6.26 M466.61,325.86h3.17 M466.61,310.82h3.17
-	 M466.61,295.7h3.17 M466.61,280.65h3.17 M463.51,265.53h6.26 M466.61,250.48h3.17 M466.61,235.36h3.17 M466.61,220.31h3.17
-	 M466.61,205.19h3.17 M463.51,190.07h6.26 M466.61,175.02h3.17 M466.61,159.9h3.17 M466.61,144.86h3.17 M466.61,129.74h3.17
-	 M463.51,114.69h6.26 M466.61,99.57h3.17 M466.61,84.52h3.17 M466.61,69.4h3.17 M48.43,567.64h7.56 M59.74,562.6h4.61 M64.34,562.6
-	l-2.45,3.31 M61.9,565.91h1.22 M63.12,565.91l0.86,0.43 M63.98,566.34l0.36,0.43 M64.34,566.78l0.43,1.22 M64.78,568v0.86
-	 M64.78,568.86l-0.43,1.22 M64.34,570.09l-0.79,0.86 M63.55,570.95l-1.3,0.43 M62.26,571.38h-1.22 M61.03,571.38l-1.3-0.43
-	 M59.74,570.95l-0.36-0.43 M59.38,570.52l-0.43-0.79 M35.9,492.18h7.56 M46.78,489.23v-0.43 M46.78,488.8l0.43-0.79 M47.21,488.01
-	l0.43-0.43 M47.64,487.58l0.79-0.43 M48.43,487.14h1.73 M50.16,487.14l0.79,0.43 M50.95,487.58l0.43,0.43 M51.38,488.01l0.43,0.79
-	 M51.82,488.8v0.86 M51.82,489.66l-0.43,0.86 M51.38,490.53l-0.79,1.22 M50.59,491.75l-4.25,4.18 M46.34,495.93h5.9 M55.56,495.14
-	l-0.36,0.36 M55.2,495.5l0.36,0.43 M55.56,495.93l0.43-0.43 M55.99,495.5l-0.43-0.36 M63.98,487.14h-4.25 M59.74,487.14l-0.36,3.74
-	 M59.38,490.89l0.36-0.36 M59.74,490.53l1.3-0.43 M61.03,490.1h1.22 M62.26,490.1l1.3,0.43 M63.55,490.53l0.79,0.79 M64.34,491.32
-	l0.43,1.3 M64.78,492.62v0.79 M64.78,493.41l-0.43,1.3 M64.34,494.7l-0.79,0.79 M63.55,495.5l-1.3,0.43 M62.26,495.93h-1.22
-	 M61.03,495.93l-1.3-0.43 M59.74,495.5l-0.36-0.36 M59.38,495.14l-0.43-0.86 M48.43,416.73h7.56 M59.38,413.78v-0.36 M59.38,413.42
-	l0.36-0.86 M59.74,412.55l0.43-0.43 M60.17,412.12l0.86-0.43 M61.03,411.69h1.66 M62.69,411.69l0.86,0.43 M63.55,412.12l0.43,0.43
-	 M63.98,412.55l0.36,0.86 M64.34,413.42v0.79 M64.34,414.21l-0.36,0.86 M63.98,415.07l-0.86,1.22 M63.12,416.3l-4.18,4.18
-	 M58.94,420.47h5.83 M35.9,341.27h7.56 M47.64,337.96l0.79-0.43 M48.43,337.53l1.3-1.22 M49.73,336.3v8.78 M55.56,344.22l-0.36,0.43
-	 M55.2,344.66l0.36,0.43 M55.56,345.09l0.43-0.43 M55.99,344.66l-0.43-0.43 M63.98,336.3h-4.25 M59.74,336.3l-0.36,3.74
-	 M59.38,340.05l0.36-0.43 M59.74,339.62l1.3-0.43 M61.03,339.18h1.22 M62.26,339.18l1.3,0.43 M63.55,339.62l0.79,0.86 M64.34,340.48
-	l0.43,1.22 M64.78,341.7v0.86 M64.78,342.57l-0.43,1.22 M64.34,343.79l-0.79,0.86 M63.55,344.66l-1.3,0.43 M62.26,345.09h-1.22
-	 M61.03,345.09l-1.3-0.43 M59.74,344.66l-0.36-0.43 M59.38,344.22l-0.43-0.86 M48.43,265.89h7.56 M60.17,262.5l0.86-0.43
-	 M61.03,262.07l1.22-1.22 M62.26,260.85v8.78 M35.9,190.43h7.56 M48.86,185.39l-1.22,0.43 M47.64,185.82l-0.86,1.22 M46.78,187.05
-	l-0.43,2.09 M46.34,189.14v1.3 M46.34,190.43l0.43,2.09 M46.78,192.52l0.86,1.22 M47.64,193.74l1.22,0.43 M48.86,194.18h0.86
-	 M49.73,194.18l1.22-0.43 M50.95,193.74l0.86-1.22 M51.82,192.52l0.43-2.09 M52.25,190.43v-1.3 M52.25,189.14l-0.43-2.09
-	 M51.82,187.05l-0.86-1.22 M50.95,185.82l-1.22-0.43 M49.73,185.39h-0.86 M55.56,193.31l-0.36,0.43 M55.2,193.74l0.36,0.43
-	 M55.56,194.18l0.43-0.43 M55.99,193.74l-0.43-0.43 M63.98,185.39h-4.25 M59.74,185.39l-0.36,3.74 M59.38,189.14l0.36-0.36
-	 M59.74,188.78l1.3-0.43 M61.03,188.34h1.22 M62.26,188.34l1.3,0.43 M63.55,188.78l0.79,0.79 M64.34,189.57l0.43,1.3 M64.78,190.86
-	v0.79 M64.78,191.66l-0.43,1.3 M64.34,192.95l-0.79,0.79 M63.55,193.74l-1.3,0.43 M62.26,194.18h-1.22 M61.03,194.18l-1.3-0.43
-	 M59.74,193.74l-0.36-0.43 M59.38,193.31l-0.43-0.79 M61.46,109.94l-1.3,0.43 M60.17,110.37l-0.79,1.22 M59.38,111.59l-0.43,2.16
-	 M58.94,113.75v1.22 M58.94,114.98l0.43,2.09 M59.38,117.06l0.79,1.3 M60.17,118.36l1.3,0.36 M61.46,118.72h0.79 M62.26,118.72
-	l1.3-0.36 M63.55,118.36l0.79-1.3 M64.34,117.06l0.43-2.09 M64.78,114.98v-1.22 M64.78,113.75l-0.43-2.16"/>
-<path class="st1" d="M64.34,111.59l-0.79-1.22 M63.55,110.37l-1.3-0.43 M62.26,109.94h-0.79"/>
-<path class="st3" d="M11.86,393.54h11.02 M15.53,387.28l0.5,1.08 M16.03,388.36l1.08,1.01 M17.11,389.37l1.51,0.5 M18.62,389.87
-	h1.08 M19.7,389.87l1.58-0.5 M21.29,389.37l1.01-1.01 M22.3,388.36l0.58-1.08 M22.87,387.28v-1.58 M22.87,385.7l-0.58-1.01
-	 M22.3,384.69l-1.01-1.08 M21.29,383.61l-1.58-0.5 M19.7,383.1h-1.08 M18.62,383.1l-1.51,0.5 M17.11,383.61l-1.08,1.08
-	 M16.03,384.69l-0.5,1.01 M15.53,385.7v1.58 M15.53,373.67h8.35 M23.88,373.67l1.58,0.5 M25.46,374.18l0.5,0.58 M25.97,374.75
-	l0.58,1.01 M26.54,375.76v1.58 M26.54,377.34l-0.58,1.01 M17.11,373.67l-1.08,1.08 M16.03,374.75l-0.5,1.01 M15.53,375.76v1.58
-	 M15.53,377.34l0.5,1.01 M16.03,378.35l1.08,1.08 M17.11,379.43l1.51,0.5 M18.62,379.94h1.08 M19.7,379.94l1.58-0.5 M21.29,379.43
-	l1.01-1.08 M22.3,378.35l0.58-1.01 M22.87,377.34v-1.58 M22.87,375.76l-0.58-1.01 M22.3,374.75l-1.01-1.08 M15.53,361.14h7.34
-	 M17.62,361.14l-1.58-1.58 M16.03,359.56l-0.5-1.08 M15.53,358.48v-1.58 M15.53,356.9l0.5-1.01 M16.03,355.89l1.58-0.5
-	 M17.62,355.38h5.26 M17.62,355.38l-1.58-1.58 M16.03,353.8l-0.5-1.08 M15.53,352.72v-1.58 M15.53,351.14l0.5-1.01 M16.03,350.13
-	l1.58-0.5 M17.62,349.62h5.26 M15.53,339.69h7.34 M17.11,339.69l-1.08,1.01 M16.03,340.7l-0.5,1.08 M15.53,341.78v1.51
-	 M15.53,343.29l0.5,1.08 M16.03,344.37l1.08,1.01 M17.11,345.38l1.51,0.58 M18.62,345.95h1.08 M19.7,345.95l1.58-0.58 M21.29,345.38
-	l1.01-1.01 M22.3,344.37l0.58-1.08 M22.87,343.29v-1.51 M22.87,341.78l-0.58-1.08 M22.3,340.7l-1.01-1.01 M17.11,330.26l-1.08,0.5
-	 M16.03,330.76l-0.5,1.58 M15.53,332.34v1.58 M15.53,333.93l0.5,1.51 M16.03,335.44l1.08,0.58 M17.11,336.02l1.01-0.58
-	 M18.12,335.44l0.5-1.01 M18.62,334.43l0.58-2.66 M19.2,331.77l0.5-1.01 M19.7,330.76l1.08-0.5 M20.78,330.26h0.5 M21.29,330.26
-	l1.01,0.5 M22.3,330.76l0.58,1.58 M22.87,332.34v1.58 M22.87,333.93l-0.58,1.51 M22.3,335.44l-1.01,0.58 M17.11,321.33l-1.08,0.5
-	 M16.03,321.83l-0.5,1.58 M15.53,323.42V325 M15.53,325l0.5,1.58 M16.03,326.58l1.08,0.5 M17.11,327.09l1.01-0.5 M18.12,326.58
-	l0.5-1.08 M18.62,325.5l0.58-2.59 M19.2,322.91l0.5-1.08 M19.7,321.83l1.08-0.5 M20.78,321.33h0.5 M21.29,321.33l1.01,0.5
-	 M22.3,321.83l0.58,1.58 M22.87,323.42V325 M22.87,325l-0.58,1.58 M22.3,326.58l-1.01,0.5 M11.86,306.14v1.08 M11.86,307.22
-	l0.5,1.01 M12.36,308.22l1.58,0.58 M13.94,308.8h8.93 M15.53,310.31v-3.6 M15.53,303.04h7.34 M18.62,303.04l-1.51-0.58
-	 M17.11,302.46l-1.08-1.01 M16.03,301.46l-0.5-1.08 M15.53,300.38v-1.51 M15.53,290.44h7.34 M17.11,290.44l-1.08,1.08 M16.03,291.52
-	l-0.5,1.01 M15.53,292.53v1.58 M15.53,294.11l0.5,1.08 M16.03,295.19l1.08,1.01 M17.11,296.2l1.51,0.5 M18.62,296.7h1.08
-	 M19.7,296.7l1.58-0.5 M21.29,296.2l1.01-1.01 M22.3,295.19l0.58-1.08 M22.87,294.11v-1.58 M22.87,292.53l-0.58-1.01 M22.3,291.52
-	l-1.01-1.08 M17.11,280.5l-1.08,1.08 M16.03,281.58l-0.5,1.01 M15.53,282.59v1.58 M15.53,284.18l0.5,1.08 M16.03,285.26l1.08,1.01
-	 M17.11,286.26l1.51,0.5 M18.62,286.77h1.08 M19.7,286.77l1.58-0.5 M21.29,286.26l1.01-1.01 M22.3,285.26l0.58-1.08 M22.87,284.18
-	v-1.58 M22.87,282.59l-0.58-1.01 M22.3,281.58l-1.01-1.08 M11.86,276.33h8.93 M20.78,276.33l1.51-0.5 M22.3,275.82l0.58-1.08
-	 M22.87,274.74v-1.01 M15.53,277.91v-3.67 M11.86,271.07l0.5-0.5 M12.36,270.57l-0.5-0.5 M11.86,270.06l-0.5,0.5 M11.35,270.57
-	l0.5,0.5 M15.53,270.57h7.34 M15.53,264.3l0.5,1.01 M16.03,265.31l1.08,1.08 M17.11,266.39l1.51,0.5 M18.62,266.9h1.08 M19.7,266.9
-	l1.58-0.5 M21.29,266.39l1.01-1.08 M22.3,265.31l0.58-1.01 M22.87,264.3v-1.58 M22.87,262.72l-0.58-1.08 M22.3,261.64l-1.01-1.01
-	 M21.29,260.63l-1.58-0.5 M19.7,260.13h-1.08 M18.62,260.13l-1.51,0.5 M17.11,260.63l-1.08,1.01 M16.03,261.64l-0.5,1.08
-	 M15.53,262.72v1.58 M15.53,256.46h7.34 M17.62,256.46l-1.58-1.58 M16.03,254.87l-0.5-1.08 M15.53,253.79v-1.51 M15.53,252.28
-	l0.5-1.08 M16.03,251.2l1.58-0.5 M17.62,250.7h5.26"/>
-<path class="st4" d="M75.58,135.35c10.15,0,20.45,0,30.6,0h-0.01c2.39,0,5.9,0,8.29,0h-0.01c10.57,0,21.55,0,32.12,0h-0.01
-	c2.97,0,7.4,0,10.38,0h-0.01c14.64,0,29.65,0,44.29,0h-0.01c10.83,0,22.3,0,33.13,0h-0.01c2.71,0,6.99,0,9.73,0h-0.01
-	c2.44,0,7.36,0,9.8,0h-0.01c9.41,0,20.44,0,29.89,0c18.12-0.03,37.99,0.07,56.08-0.07c23.84,0,48.89,0,72.73,0h-0.01
-	c18.65,0,38.62,0,57.25,0"/>
-<path class="st5" d="M119.42,120.59v7.27 M119.42,124.41l1.08-1.08 M120.5,123.33l0.65-0.29 M121.15,123.04h1.08 M122.23,123.04
-	l0.72,0.29 M122.95,123.33l0.36,1.08 M123.31,124.41v3.46 M126.77,121.96l0.72-0.36 M127.49,121.6l1.01-1.01 M128.5,120.59v7.27
-	 M217.99,120.59v7.27 M217.99,124.41l1.08-1.08 M219.07,123.33l0.65-0.29 M219.72,123.04h1.08 M220.8,123.04l0.65,0.29
-	 M221.45,123.33l0.36,1.08 M221.81,124.41v3.46 M225.34,121.96l0.65-0.36 M225.98,121.6l1.08-1.01 M227.06,120.59v7.27
-	 M316.56,120.59v7.27 M316.56,124.41l1.01-1.08 M317.57,123.33l0.72-0.29 M318.29,123.04h1.08 M319.37,123.04l0.65,0.29
-	 M320.02,123.33l0.36,1.08 M320.38,124.41v3.46 M323.9,121.96l0.65-0.36 M324.55,121.6l1.08-1.01 M325.63,120.59v7.27
-	 M415.13,120.52v7.34 M415.13,124.34l1.01-1.01 M416.14,123.33l0.72-0.36 M416.86,122.97h1.01 M417.86,122.97l0.72,0.36
-	 M418.58,123.33l0.36,1.01 M418.94,124.34v3.53 M422.4,121.89l0.72-0.36 M423.12,121.53l1.08-1.01 M424.2,120.52v7.34"/>
-<path class="st6" d="M75.58,202.74c10.15,0,20.45,0,30.6,0h-0.01c2.39,0,5.9,0,8.29,0h-0.01c10.57,0,21.55,0,32.12,0h-0.01
-	c2.97,0,7.4,0,10.38,0h-0.01c14.64,0,29.65,0,44.29,0h-0.01c10.83,0,22.3,0,33.13,0h-0.01c2.71,0,6.99,0,9.73,0h-0.01
-	c2.44,0,7.36,0,9.8,0h-0.01c9.41,0,20.44,0,29.89,0c18.12,0.05,38-0.14,56.08,0.15c23.84-0.01,48.89-0.01,72.73,0.07h-0.01
-	c18.65,0,38.62,0,57.25,0"/>
-<path class="st7" d="M116.33,187.98v7.34 M116.33,191.8l1.01-1.01 M117.34,190.79l0.72-0.36 M118.06,190.43h1.01 M119.06,190.43
-	l0.72,0.36 M119.78,190.79l0.36,1.01 M120.14,191.8v3.53 M122.59,192.52h4.18 M126.77,192.52v-0.72 M126.77,191.8l-0.36-0.72
-	 M126.41,191.08l-0.36-0.29 M126.05,190.79l-0.65-0.36 M125.4,190.43h-1.08 M124.32,190.43l-0.72,0.36 M123.6,190.79l-0.65,0.65
-	 M122.95,191.44l-0.36,1.08 M122.59,192.52v0.72 M122.59,193.24l0.36,1.01 M122.95,194.25l0.65,0.72 M123.6,194.97l0.72,0.36
-	 M124.32,195.33h1.08 M125.4,195.33l0.65-0.36 M126.05,194.97l0.72-0.72 M132.38,187.98l-3.53,4.9 M128.86,192.88h5.26
-	 M132.38,187.98v7.34 M214.82,187.98v7.34 M214.82,191.8l1.08-1.01 M215.9,190.79l0.72-0.36 M216.62,190.43h1.01 M217.63,190.43
-	l0.72,0.36 M218.35,190.79l0.36,1.01 M218.71,191.8v3.53 M221.16,192.52h4.18 M225.34,192.52v-0.72 M225.34,191.8l-0.36-0.72
-	 M224.98,191.08l-0.36-0.29 M224.62,190.79l-0.72-0.36 M223.9,190.43h-1.01 M222.89,190.43l-0.72,0.36 M222.17,190.79l-0.72,0.65
-	 M221.45,191.44l-0.29,1.08 M221.16,192.52v0.72 M221.16,193.24l0.29,1.01 M221.45,194.25l0.72,0.72 M222.17,194.97l0.72,0.36
-	 M222.89,195.33h1.01 M223.9,195.33l0.72-0.36 M224.62,194.97l0.72-0.72 M230.88,187.98l-3.46,4.9 M227.42,192.88h5.26
-	 M230.88,187.98v7.34 M313.39,187.98v7.34 M313.39,191.8l1.08-1.01 M314.47,190.79l0.65-0.36 M315.12,190.43h1.08 M316.2,190.43
-	l0.72,0.36 M316.92,190.79l0.29,1.01 M317.21,191.8v3.53 M319.66,192.52h4.25 M323.9,192.52v-0.72 M323.9,191.8l-0.36-0.72
-	 M323.54,191.08l-0.36-0.29 M323.18,190.79l-0.72-0.36 M322.46,190.43h-1.01 M321.46,190.43l-0.72,0.36 M320.74,190.79l-0.72,0.65
-	 M320.02,191.44l-0.36,1.08 M319.66,192.52v0.72 M319.66,193.24l0.36,1.01 M320.02,194.25l0.72,0.72 M320.74,194.97l0.72,0.36
-	 M321.46,195.33h1.01 M322.46,195.33l0.72-0.36 M323.18,194.97l0.72-0.72 M329.45,187.98l-3.46,4.9 M325.99,192.88h5.18
-	 M329.45,187.98v7.34 M411.96,188.13v7.34 M411.96,191.94l1.01-1.01 M412.97,190.94l0.72-0.36 M413.69,190.58h1.08 M414.77,190.58
-	l0.65,0.36 M415.42,190.94l0.36,1.01 M415.78,191.94v3.53 M418.22,192.66h4.18 M422.4,192.66v-0.72 M422.4,191.94l-0.36-0.65
-	 M422.04,191.3l-0.29-0.36 M421.75,190.94l-0.72-0.36 M421.03,190.58h-1.08 M419.95,190.58l-0.65,0.36 M419.3,190.94l-0.72,0.65
-	 M418.58,191.58l-0.36,1.08 M418.22,192.66v0.72 M418.22,193.38l0.36,1.01 M418.58,194.39l0.72,0.72 M419.3,195.11l0.65,0.36
-	 M419.95,195.47h1.08 M421.03,195.47l0.72-0.36 M421.75,195.11l0.65-0.72 M428.02,188.13l-3.53,4.9 M424.49,193.02h5.26
-	 M428.02,188.13v7.34"/>
-<path class="st8" d="M75.58,506.01c10.15,0,20.45,0,30.6,0h-0.01c2.39,0,5.9,0,8.29,0h-0.01c10.57,0,21.55,0,32.12,0h-0.01
-	c2.97,0,7.4,0,10.38,0h-0.01c14.64,0,29.65,0,44.29,0h-0.01c10.83,0,22.3,0,33.13,0h-0.01c2.71,0,6.99,0,9.73,0h-0.01
-	c2.44,0,7.36,0,9.8,0h-0.01c9.41,0,20.44,0,29.89,0c62.4,0.02,126.37,3.46,186.05,23.18"/>
-<path class="st9" d="M115.97,493.62v4.9 M115.97,495.06l1.01-1.08 M116.98,493.98l0.72-0.36 M117.7,493.62h1.08 M118.78,493.62
-	l0.65,0.36 M119.42,493.98l0.36,1.08 M119.78,495.06v3.46 M123.31,492.62l0.65-0.36 M123.96,492.26l1.08-1.08 M125.04,491.18v7.34
-	 M132.67,491.18l-3.46,4.9 M129.22,496.07h5.26 M132.67,491.18v7.34 M214.54,493.62v4.9 M214.54,495.06l1.01-1.08 M215.54,493.98
-	l0.72-0.36 M216.26,493.62h1.01 M217.27,493.62l0.72,0.36 M217.99,493.98l0.36,1.08 M218.35,495.06v3.46 M221.81,492.62l0.72-0.36
-	 M222.53,492.26l1.08-1.08 M223.61,491.18v7.34 M231.24,491.18l-3.46,4.9 M227.78,496.07h5.18 M231.24,491.18v7.34 M313.03,493.62
-	v4.9 M313.03,495.06l1.08-1.08 M314.11,493.98l0.72-0.36 M314.83,493.62h1.01 M315.84,493.62l0.72,0.36 M316.56,493.98l0.36,1.08
-	 M316.92,495.06v3.46 M320.38,492.62l0.72-0.36 M321.1,492.26l1.01-1.08 M322.1,491.18v7.34 M329.81,491.18l-3.53,4.9
-	 M326.28,496.07h5.26 M329.81,491.18v7.34 M411.6,503.85v4.9 M411.6,505.29l1.08-1.08 M412.68,504.21l0.65-0.36 M413.33,503.85h1.08
-	 M414.41,503.85l0.72,0.36 M415.13,504.21l0.29,1.08 M415.42,505.29v3.46 M418.94,502.84l0.72-0.36 M419.66,502.48l1.01-1.08
-	 M420.67,501.4v7.34 M428.38,501.4l-3.53,4.9 M424.85,506.3h5.26 M428.38,501.4v7.34"/>
-<path class="st10" d="M75.58,466.98c10.15,0,20.45,0,30.6,0h-0.01c2.39,0,5.9,0,8.29,0h-0.01c10.57,0,21.55,0,32.12,0h-0.01
-	c2.97,0,7.4,0,10.38,0h-0.01c14.64,0,29.65,0,44.29,0h-0.01c10.83,0,22.3,0,33.13,0h-0.01c2.71,0,6.99,0,9.73,0h-0.01
-	c2.44,0,7.36,0,9.8,0h-0.01c9.41,0,20.44,0,29.89,0c18.12-0.35,38.07,0.92,56.08-0.93c23.84,0,48.89,0,72.73,0h-0.01
-	c18.65,0,38.62,0,57.25,0"/>
-<path class="st11" d="M117.34,454.6l-0.72,0.36 M116.62,454.96l-0.65,0.72 M115.97,455.68l-0.36,1.01 M115.61,456.69v0.72
-	 M115.61,457.41l0.36,1.01 M115.97,458.42l0.65,0.72 M116.62,459.14l0.72,0.36 M117.34,459.5h1.08 M118.42,459.5l0.65-0.36
-	 M119.06,459.14l0.72-0.72 M119.78,458.42l0.36-1.01 M120.14,457.41v-0.72 M120.14,456.69l-0.36-1.01 M119.78,455.68l-0.72-0.72
-	 M119.06,454.96l-0.65-0.36 M118.42,454.6h-1.08 M123.31,453.52l0.65-0.29 M123.96,453.23l1.08-1.08 M125.04,452.15v7.34
-	 M133.75,453.23l-0.36-0.72 M133.39,452.51l-1.01-0.36 M132.38,452.15h-0.72 M131.66,452.15l-1.08,0.36 M130.58,452.51l-0.65,1.01
-	 M129.94,453.52l-0.36,1.8 M129.58,455.32v1.73 M129.58,457.05l0.36,1.37 M129.94,458.42l0.65,0.72 M130.58,459.14l1.08,0.36
-	 M131.66,459.5h0.36 M132.02,459.5l1.01-0.36 M133.03,459.14l0.72-0.72 M133.75,458.42l0.36-1.01 M134.11,457.41v-0.36
-	 M134.11,457.05l-0.36-1.08 M133.75,455.97l-0.72-0.65 M133.03,455.32l-1.01-0.36 M132.02,454.96h-0.36 M131.66,454.96l-1.08,0.36
-	 M130.58,455.32l-0.65,0.65 M129.94,455.97l-0.36,1.08 M215.9,454.6l-0.72,0.36 M215.18,454.96l-0.65,0.72 M214.54,455.68
-	l-0.36,1.01 M214.18,456.69v0.72 M214.18,457.41l0.36,1.01 M214.54,458.42l0.65,0.72 M215.18,459.14l0.72,0.36 M215.9,459.5h1.01
-	 M216.91,459.5l0.72-0.36 M217.63,459.14l0.72-0.72 M218.35,458.42l0.36-1.01 M218.71,457.41v-0.72 M218.71,456.69l-0.36-1.01
-	 M218.35,455.68l-0.72-0.72 M217.63,454.96l-0.72-0.36 M216.91,454.6h-1.01 M221.81,453.52l0.72-0.29 M222.53,453.23l1.08-1.08
-	 M223.61,452.15v7.34 M232.32,453.23l-0.36-0.72 M231.96,452.51l-1.08-0.36 M230.88,452.15h-0.65 M230.23,452.15l-1.08,0.36
-	 M229.15,452.51l-0.72,1.01 M228.43,453.52l-0.29,1.8 M228.14,455.32v1.73 M228.14,457.05l0.29,1.37 M228.43,458.42l0.72,0.72
-	 M229.15,459.14l1.08,0.36 M230.23,459.5h0.29 M230.52,459.5l1.08-0.36 M231.6,459.14l0.72-0.72 M232.32,458.42l0.36-1.01
-	 M232.68,457.41v-0.36 M232.68,457.05l-0.36-1.08 M232.32,455.97l-0.72-0.65 M231.6,455.32l-1.08-0.36 M230.52,454.96h-0.29
-	 M230.23,454.96l-1.08,0.36 M229.15,455.32l-0.72,0.65 M228.43,455.97l-0.29,1.08 M314.47,454.6l-0.72,0.36 M313.75,454.96
-	l-0.72,0.72 M313.03,455.68l-0.36,1.01 M312.67,456.69v0.72 M312.67,457.41l0.36,1.01 M313.03,458.42l0.72,0.72 M313.75,459.14
-	l0.72,0.36 M314.47,459.5h1.01 M315.48,459.5l0.72-0.36 M316.2,459.14l0.72-0.72 M316.92,458.42l0.29-1.01 M317.21,457.41v-0.72
-	 M317.21,456.69l-0.29-1.01 M316.92,455.68l-0.72-0.72 M316.2,454.96l-0.72-0.36 M315.48,454.6h-1.01 M320.38,453.52l0.72-0.29
-	 M321.1,453.23l1.01-1.08 M322.1,452.15v7.34 M330.82,453.23l-0.29-0.72 M330.53,452.51l-1.08-0.36 M329.45,452.15h-0.72
-	 M328.73,452.15l-1.01,0.36 M327.72,452.51l-0.72,1.01 M327,453.52l-0.36,1.8 M326.64,455.32v1.73 M326.64,457.05l0.36,1.37
-	 M327,458.42l0.72,0.72 M327.72,459.14l1.01,0.36 M328.73,459.5h0.36 M329.09,459.5l1.08-0.36 M330.17,459.14l0.65-0.72
-	 M330.82,458.42l0.36-1.01 M331.18,457.41v-0.36 M331.18,457.05l-0.36-1.08 M330.82,455.97l-0.65-0.65 M330.17,455.32l-1.08-0.36
-	 M329.09,454.96h-0.36 M328.73,454.96l-1.01,0.36 M327.72,455.32l-0.72,0.65 M327,455.97l-0.36,1.08 M412.97,453.66l-0.65,0.36
-	 M412.32,454.02l-0.72,0.72 M411.6,454.74l-0.36,1.01 M411.24,455.75v0.72 M411.24,456.47l0.36,1.08 M411.6,457.55l0.72,0.65
-	 M412.32,458.2l0.65,0.36 M412.97,458.56h1.08 M414.05,458.56l0.72-0.36 M414.77,458.2l0.65-0.65 M415.42,457.55l0.36-1.08
-	 M415.78,456.47v-0.72 M415.78,455.75l-0.36-1.01 M415.42,454.74l-0.65-0.72 M414.77,454.02l-0.72-0.36 M414.05,453.66h-1.08
-	 M418.94,452.66l0.72-0.36 M419.66,452.3l1.01-1.08 M420.67,451.22v7.34 M429.38,452.3l-0.36-0.72 M429.02,451.58l-1.01-0.36
-	 M428.02,451.22h-0.72 M427.3,451.22l-1.01,0.36 M426.29,451.58l-0.72,1.08 M425.57,452.66l-0.36,1.73 M425.21,454.38v1.73
-	 M425.21,456.11l0.36,1.44 M425.57,457.55l0.72,0.65 M426.29,458.2l1.01,0.36 M427.3,458.56h0.36 M427.66,458.56l1.08-0.36
-	 M428.74,458.2l0.65-0.65 M429.38,457.55l0.36-1.08 M429.74,456.47v-0.36 M429.74,456.11l-0.36-1.01 M429.38,455.1l-0.65-0.72
-	 M428.74,454.38l-1.08-0.36 M427.66,454.02h-0.36 M427.3,454.02l-1.01,0.36 M426.29,454.38l-0.72,0.72 M425.57,455.1l-0.36,1.01"/>
-<line class="st12" x1="469.78" y1="574.34" x2="329.52" y2="574.34"/>
-<line class="st13" x1="319.3" y1="574.34" x2="75.58" y2="574.34"/>
-<path class="st1" d="M565.18,574.84h394.2 M959.38,574.84V69.4 M959.38,69.4h-394.2 M565.18,69.4v505.44 M565.18,574.84v-3.17
-	 M604.56,574.84v-6.26 M644.02,574.84v-3.17 M683.4,574.84v-6.26 M722.86,574.84v-3.17 M762.31,574.84v-6.26 M801.7,574.84v-3.17
-	 M841.15,574.84v-6.26 M880.54,574.84v-3.17 M919.99,574.84v-6.26 M959.38,574.84v-3.17 M565.18,72.57V69.4 M604.56,75.66V69.4
-	 M644.02,72.57V69.4 M683.4,75.66V69.4 M722.86,72.57V69.4 M762.31,75.66V69.4 M801.7,72.57V69.4 M841.15,75.66V69.4 M880.54,72.57
-	V69.4 M919.99,75.66V69.4 M959.38,72.57V69.4 M599.59,582.4l-4.18,5.83 M595.42,588.23h6.26 M599.59,582.4v8.78 M604.56,590.32
-	l-0.36,0.43 M604.2,590.75l0.36,0.43 M604.56,591.18l0.43-0.43 M604.99,590.75l-0.43-0.43 M612.12,582.4l-4.18,5.83 M607.94,588.23
-	h6.26 M612.12,582.4v8.78 M678.43,582.4l-4.18,5.83 M674.26,588.23h6.26 M678.43,582.4v8.78 M683.4,590.32l-0.36,0.43
-	 M683.04,590.75l0.36,0.43 M683.4,591.18l0.43-0.43 M683.83,590.75l-0.43-0.43 M687.22,584.49v-0.43 M687.22,584.06l0.43-0.86
-	 M687.65,583.19l0.36-0.43 M688.01,582.76l0.86-0.36 M688.87,582.4h1.66 M690.53,582.4l0.86,0.36 M691.39,582.76l0.43,0.43
-	 M691.82,583.19l0.43,0.86 M692.26,584.06v0.86 M692.26,584.92l-0.43,0.79 M691.82,585.71l-0.86,1.3 M690.96,587.01l-4.18,4.18
-	 M686.78,591.18h5.83 M763.54,582.4l-4.18,5.83 M759.36,588.23h6.26 M763.54,582.4v8.78 M832.73,582.4h4.61 M837.34,582.4
-	l-2.52,3.31 M834.82,585.71h1.3 M836.11,585.71l0.79,0.43 M836.9,586.14l0.43,0.43 M837.34,586.58l0.43,1.22 M837.77,587.8v0.86
-	 M837.77,588.66l-0.43,1.22 M837.34,589.89l-0.79,0.86 M836.54,590.75l-1.3,0.43 M835.25,591.18h-1.22 M834.02,591.18l-1.3-0.43
-	 M832.73,590.75l-0.43-0.43 M832.3,590.32l-0.36-0.79 M841.15,590.32l-0.43,0.43 M840.72,590.75l0.43,0.43 M841.15,591.18l0.36-0.43
-	 M841.51,590.75l-0.36-0.43 M846.55,582.4l-1.22,0.36 M845.33,582.76l-0.43,0.86 M844.9,583.62v0.86 M844.9,584.49l0.43,0.79
-	 M845.33,585.28l0.79,0.43 M846.12,585.71l1.73,0.43 M847.85,586.14l1.22,0.43 M849.07,586.58l0.86,0.79 M849.94,587.37l0.36,0.86
-	 M850.3,588.23v1.3 M850.3,589.53l-0.36,0.79 M849.94,590.32l-0.43,0.43 M849.5,590.75l-1.3,0.43 M848.21,591.18h-1.66
-	 M846.55,591.18l-1.22-0.43 M845.33,590.75l-0.43-0.43 M844.9,590.32l-0.43-0.79 M844.46,589.53v-1.3 M844.46,588.23l0.43-0.86
-	 M844.9,587.37l0.79-0.79 M845.69,586.58l1.3-0.43 M846.98,586.14l1.66-0.43 M848.64,585.71l0.86-0.43 M849.5,585.28l0.43-0.79
-	 M849.94,584.49v-0.86 M849.94,583.62l-0.43-0.86 M849.5,582.76l-1.3-0.36 M848.21,582.4h-1.66 M911.57,582.4h4.61 M916.18,582.4
-	l-2.52,3.31 M913.66,585.71h1.3 M914.95,585.71l0.79,0.43 M915.74,586.14l0.43,0.43 M916.18,586.58l0.43,1.22 M916.61,587.8v0.86
-	 M916.61,588.66l-0.43,1.22 M916.18,589.89l-0.79,0.86 M915.38,590.75l-1.3,0.43 M914.09,591.18h-1.22 M912.86,591.18l-1.3-0.43
-	 M911.57,590.75l-0.43-0.43 M911.14,590.32l-0.36-0.79 M919.99,590.32l-0.43,0.43 M919.56,590.75l0.43,0.43 M919.99,591.18
-	l0.36-0.43 M920.35,590.75l-0.36-0.43 M928.78,583.62l-0.43-0.86 M928.34,582.76l-1.3-0.36 M927.05,582.4h-0.79 M926.26,582.4
-	l-1.3,0.36 M924.96,582.76l-0.79,1.3 M924.17,584.06l-0.43,2.09 M923.74,586.14v2.09 M923.74,588.23l0.43,1.66 M924.17,589.89
-	l0.79,0.86 M924.96,590.75l1.3,0.43 M926.26,591.18h0.43 M926.69,591.18l1.22-0.43 M927.91,590.75l0.86-0.86 M928.78,589.89
-	l0.36-1.22 M929.14,588.66v-0.43 M929.14,588.23l-0.36-1.22 M928.78,587.01l-0.86-0.86 M927.91,586.14l-1.22-0.43 M926.69,585.71
-	h-0.43 M926.26,585.71l-1.3,0.43 M924.96,586.14l-0.79,0.86 M924.17,587.01l-0.43,1.22 M565.18,574.84h6.26 M565.18,549.57h3.17
-	 M565.18,524.3h3.17 M565.18,499.02h3.17 M565.18,473.75h3.17 M565.18,448.48h6.26 M565.18,423.21h3.17 M565.18,397.94h3.17
-	 M565.18,372.66h3.17 M565.18,347.39h3.17 M565.18,322.12h6.26 M565.18,296.85h3.17 M565.18,271.58h3.17 M565.18,246.3h3.17
-	 M565.18,221.03h3.17 M565.18,195.76h6.26 M565.18,170.49h3.17 M565.18,145.22h3.17 M565.18,119.94h3.17 M565.18,94.67h3.17
-	 M565.18,69.4h6.26 M953.11,574.84h6.26 M956.21,549.57h3.17 M956.21,524.3h3.17 M956.21,499.02h3.17 M956.21,473.75h3.17
-	 M953.11,448.48h6.26 M956.21,423.21h3.17 M956.21,397.94h3.17 M956.21,372.66h3.17 M956.21,347.39h3.17 M953.11,322.12h6.26
-	 M956.21,296.85h3.17 M956.21,271.58h3.17 M956.21,246.3h3.17 M956.21,221.03h3.17 M953.11,195.76h6.26 M956.21,170.49h3.17
-	 M956.21,145.22h3.17 M956.21,119.94h3.17 M956.21,94.67h3.17 M953.11,69.4h6.26 M549.77,571.82l0.86-0.43 M550.63,571.38l1.22-1.22
-	 M551.86,570.16v8.78 M537.24,445.46l0.79-0.43 M538.03,445.02l1.3-1.22 M539.33,443.8v8.78 M545.16,451.72l-0.36,0.43
-	 M544.8,452.15l0.36,0.43 M545.16,452.58l0.43-0.43 M545.59,452.15l-0.43-0.43 M553.58,443.8h-4.25 M549.34,443.8l-0.36,3.74
-	 M548.98,447.54l0.36-0.43"/>
-<path class="st1" d="M549.34,447.11l1.3-0.43 M550.63,446.68h1.22 M551.86,446.68l1.3,0.43 M553.15,447.11l0.79,0.86 M553.94,447.98
-	l0.43,1.22 M554.38,449.2v0.86 M554.38,450.06l-0.43,1.22 M553.94,451.29l-0.79,0.86 M553.15,452.15l-1.3,0.43 M551.86,452.58h-1.22
-	 M550.63,452.58l-1.3-0.43 M549.34,452.15l-0.36-0.43 M548.98,451.72l-0.43-0.86 M548.98,319.53v-0.43 M548.98,319.1l0.36-0.86
-	 M549.34,318.23l0.43-0.43 M549.77,317.8l0.86-0.36 M550.63,317.44h1.66 M552.29,317.44l0.86,0.36 M553.15,317.8l0.43,0.43
-	 M553.58,318.23l0.36,0.86 M553.94,319.1v0.79 M553.94,319.89l-0.36,0.86 M553.58,320.75l-0.86,1.3 M552.72,322.05l-4.18,4.18
-	 M548.54,326.22h5.83 M536.38,193.17v-0.43 M536.38,192.74l0.43-0.86 M536.81,191.87l0.43-0.43 M537.24,191.44l0.79-0.36
-	 M538.03,191.08h1.73 M539.76,191.08l0.79,0.36 M540.55,191.44l0.43,0.43 M540.98,191.87l0.43,0.86 M541.42,192.74v0.79
-	 M541.42,193.53l-0.43,0.86 M540.98,194.39l-0.79,1.3 M540.19,195.69l-4.25,4.18 M535.94,199.86h5.9 M545.16,199l-0.36,0.43
-	 M544.8,199.43l0.36,0.43 M545.16,199.86l0.43-0.43 M545.59,199.43l-0.43-0.43 M553.58,191.08h-4.25 M549.34,191.08l-0.36,3.74
-	 M548.98,194.82l0.36-0.43 M549.34,194.39l1.3-0.43 M550.63,193.96h1.22 M551.86,193.96l1.3,0.43 M553.15,194.39l0.79,0.86
-	 M553.94,195.26l0.43,1.22 M554.38,196.48v0.86 M554.38,197.34l-0.43,1.22 M553.94,198.57l-0.79,0.86 M553.15,199.43l-1.3,0.43
-	 M551.86,199.86h-1.22 M550.63,199.86l-1.3-0.43 M549.34,199.43l-0.36-0.43 M548.98,199l-0.43-0.86 M549.34,64.72h4.61
-	 M553.94,64.72l-2.45,3.31 M551.5,68.03h1.22 M552.72,68.03l0.86,0.43 M553.58,68.46l0.36,0.43 M553.94,68.9l0.43,1.22
-	 M554.38,70.12v0.86 M554.38,70.98l-0.43,1.22 M553.94,72.21l-0.79,0.86 M553.15,73.07l-1.3,0.43 M551.86,73.5h-1.22 M550.63,73.5
-	l-1.3-0.43 M549.34,73.07l-0.36-0.43 M548.98,72.64l-0.43-0.86"/>
-<path class="st3" d="M732.94,601.26v11.02 M739.27,604.94l-1.08,0.5 M738.19,605.44l-1.01,1.08 M737.18,606.52l-0.58,1.58
-	 M736.61,608.1v1.01 M736.61,609.11l0.58,1.58 M737.18,610.7l1.01,1.01 M738.19,611.7l1.08,0.58 M739.27,612.28h1.51 M740.78,612.28
-	l1.08-0.58 M741.86,611.7l1.08-1.01 M742.94,610.7l0.5-1.58 M743.45,609.11v-1.01 M743.45,608.1l-0.5-1.58 M742.94,606.52
-	l-1.08-1.08 M741.86,605.44l-1.08-0.5 M740.78,604.94h-1.51 M752.88,604.94v8.35 M752.88,613.29l-0.58,1.58 M752.3,614.87l-0.5,0.5
-	 M751.8,615.38l-1.01,0.58 M750.79,615.95h-1.58 M749.21,615.95l-1.08-0.58 M752.88,606.52l-1.08-1.08 M751.8,605.44l-1.01-0.5
-	 M750.79,604.94h-1.58 M749.21,604.94l-1.08,0.5 M748.13,605.44l-1.01,1.08 M747.12,606.52l-0.58,1.58 M746.54,608.1v1.01
-	 M746.54,609.11l0.58,1.58 M747.12,610.7l1.01,1.01 M748.13,611.7l1.08,0.58 M749.21,612.28h1.58 M750.79,612.28l1.01-0.58
-	 M751.8,611.7l1.08-1.01 M767.5,601.26v11.02 M763.82,601.26h7.34 M773.26,608.1h6.26 M779.52,608.1v-1.08 M779.52,607.02l-0.5-1.01
-	 M779.02,606.02l-0.5-0.58 M778.51,605.44l-1.08-0.5 M777.43,604.94h-1.51 M775.92,604.94l-1.08,0.5 M774.84,605.44l-1.08,1.08
-	 M773.76,606.52l-0.5,1.58 M773.26,608.1v1.01 M773.26,609.11l0.5,1.58 M773.76,610.7l1.08,1.01 M774.84,611.7l1.08,0.58
-	 M775.92,612.28h1.51 M777.43,612.28l1.08-0.58 M778.51,611.7l1.01-1.01 M786.36,601.26h-1.08 M785.28,601.26l-1.01,0.5
-	 M784.27,601.77l-0.5,1.58 M783.77,603.35v8.93 M782.18,604.94h3.67 M792.62,601.26h-1.01 M791.62,601.26l-1.08,0.5 M790.54,601.77
-	l-0.5,1.58 M790.03,603.35v8.93 M788.45,604.94h3.67 M501.46,355.17h11.02 M505.13,348.83l0.5,1.08 M505.63,349.91l1.08,1.08
-	 M506.71,350.99l1.51,0.5 M508.22,351.5h1.08 M509.3,351.5l1.58-0.5 M510.89,350.99l1.01-1.08 M511.9,349.91l0.58-1.08
-	 M512.47,348.83v-1.51 M512.47,347.32l-0.58-1.08 M511.9,346.24l-1.01-1.01 M510.89,345.23l-1.58-0.58 M509.3,344.66h-1.08
-	 M508.22,344.66l-1.51,0.58 M506.71,345.23l-1.08,1.01 M505.63,346.24l-0.5,1.08 M505.13,347.32v1.51 M505.13,335.22h8.35
-	 M513.48,335.22l1.58,0.58 M515.06,335.8l0.5,0.5 M515.57,336.3l0.58,1.08 M516.14,337.38v1.51 M516.14,338.9l-0.58,1.08
-	 M506.71,335.22l-1.08,1.08 M505.63,336.3l-0.5,1.08 M505.13,337.38v1.51 M505.13,338.9l0.5,1.08 M505.63,339.98l1.08,1.01
-	 M506.71,340.98l1.51,0.58 M508.22,341.56h1.08 M509.3,341.56l1.58-0.58 M510.89,340.98l1.01-1.01 M511.9,339.98l0.58-1.08
-	 M512.47,338.9v-1.51 M512.47,337.38l-0.58-1.08 M511.9,336.3l-1.01-1.08 M501.46,322.7h11.02 M512.47,322.7v-6.26 M499.37,305.42
-	l16.78,9.43 M501.46,302.25h11.02 M512.47,302.25v-6.26 M510.46,290.8l0.43,1.15 M510.89,291.95l0.79,1.15 M511.68,293.1l1.15,0.79
-	 M512.83,293.9l1.15,0.43 M513.98,294.33h1.22 M515.21,294.33l1.15-0.43 M516.36,293.9l1.15-0.79 M517.51,293.1l0.79-1.15
-	 M518.3,291.95l0.43-1.15 M518.74,290.8v-1.22 M518.74,289.58l-0.43-1.15 M518.3,288.42l-0.79-1.15 M517.51,287.27l-1.15-0.79
-	 M516.36,286.48l-1.15-0.43 M515.21,286.05h-1.22 M513.98,286.05l-1.15,0.43 M512.83,286.48l-1.15,0.79 M511.68,287.27l-0.79,1.15
-	 M510.89,288.42l-0.43,1.15 M510.46,289.58v1.22 M513.98,290.37l0.43,0.43 M514.42,290.8h0.36 M514.78,290.8l0.43-0.43
-	 M515.21,290.37v-0.36 M515.21,290.01l-0.43-0.43 M514.78,289.58h-0.36 M514.42,289.58l-0.43,0.43 M513.98,290.01v0.36
-	 M514.42,290.37h0.36 M514.78,290.37v-0.36 M514.78,290.01h-0.36 M514.42,290.01v0.36"/>
-<path class="st14" d="M680.88,209.37c-1.15-7.94-1.31-17.89,5.83-23.19c4.8-5.72,5.86-17.05,14.97-17.57
-	c53.35,16.07,115.34,108.14,148.04,153.87c6.33,12.76,9.6,27.55,12.17,41.47c2.47,14.51,6.33,44.99,10.8,9.01
-	c4.8-43.17,8.15-87.41,12.38-130.26c0.06-0.01,0.08,0.01,0.07,0.07"/>
-<path class="st8" d="M679.94,204.47l-1.94,0.94 M678,205.41l-1.01,1.01 M676.99,206.42l-0.94,1.94 M676.06,208.36v1.94
-	 M676.06,210.3l0.94,1.94 M676.99,212.25l1.01,1.01 M678,213.26l1.94,1.01 M679.94,214.26h1.94 M681.89,214.26l1.94-1.01
-	 M683.83,213.26l1.01-1.01 M684.84,212.25l0.94-1.94 M685.78,210.3v-1.94 M685.78,208.36l-0.94-1.94 M684.84,206.42l-1.01-1.01
-	 M683.83,205.41l-1.94-0.94 M681.89,204.47h-1.94"/>
-</svg>
+<svg xmlns="http://www.w3.org/2000/svg" width="1440" height="864.03"><path fill-rule="evenodd" d="M.016 864.014H1439.98V.035H.016z"/><g fill="none" stroke-linecap="round" stroke-linejoin="round" stroke-miterlimit="10"><g stroke="#fff"><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M1162.064 16.638v9.312M1162.064 19.331l2.016-2.016M1164.078 17.318l1.248-.672M1165.33 16.638h2.017M1167.344 16.638l1.344.672M1168.69 17.318l.673 2.016M1169.357 19.331v6.624M1169.357 19.331l2.016-2.016M1171.384 17.318l1.344-.672M1172.717 16.638h1.92M1174.637 16.638l1.344.672M1175.984 17.318l.672 2.016M1176.664 19.331v6.624M1184.624 16.638l-1.344.672M1183.277 17.318l-1.344 1.344M1181.944 18.664l-.576 2.016M1181.357 20.678v1.248M1181.357 21.918l.576 2.016M1181.944 23.944l1.344 1.344M1183.277 25.278l1.344.672M1184.624 25.958h2.016M1186.637 25.958l1.344-.672M1187.984 25.278l1.344-1.344M1189.33 23.944l.672-2.016M1189.997 21.918V20.67M1189.997 20.678l-.672-2.016M1189.33 18.664l-1.344-1.343M1187.984 17.318l-1.344-.672M1186.637 16.638h-2.016M1201.903 12.038v13.92M1201.903 18.664l-1.344-1.343M1200.557 17.318l-1.344-.672M1199.223 16.638h-1.92M1197.303 16.638l-1.344.672M1195.957 17.318l-1.344 1.344M1194.61 18.664l-.672 2.016M1193.943 20.678v1.248M1193.943 21.918l.672 2.016M1194.61 23.944l1.344 1.344M1195.957 25.278l1.344.672M1197.303 25.958h1.92M1199.223 25.958l1.344-.672M1200.557 25.278l1.344-1.344M1206.61 20.678h7.968M1214.583 20.678v-1.344M1214.583 19.331l-.672-1.344M1213.903 17.984l-.672-.671M1213.236 17.318l-1.344-.672M1211.89 16.638h-2.016M1209.876 16.638l-1.344.672M1208.53 17.318l-1.248 1.344M1207.276 18.664l-.671 2.016M1206.61 20.678v1.248M1206.61 21.918l.672 2.016M1207.276 23.944l1.248 1.344M1208.53 25.278l1.344.672M1209.876 25.958h2.016M1211.89 25.958l1.344-.672M1213.236 25.278l1.344-1.344M1219.183 12.038v13.92M1236.462 14.625l1.344-.672M1237.81 13.958l2.015-1.92M1239.822 12.038v13.92M1256.435 16.638l-.672 2.016M1255.755 18.664l-1.344 1.344M1254.422 19.998l-2.016.672M1252.395 20.678h-.672M1251.729 20.678l-1.92-.672M1249.809 19.998l-1.344-1.344M1248.462 18.664l-.672-2.015M1247.795 16.638v-.672M1247.795 15.971l.672-2.016M1248.462 13.958l1.344-1.248M1249.809 12.705l1.92-.672M1251.729 12.038h.672M1252.395 12.038l2.016.672M1254.422 12.705l1.344 1.248M1255.755 13.958l.672 2.688M1256.435 16.638v3.36M1256.435 19.998l-.672 3.264M1255.755 23.264l-1.344 2.016M1254.422 25.278l-2.016.672M1252.395 25.958h-1.344M1251.062 25.958l-1.92-.672M1249.142 25.278l-.672-1.344M1261.715 15.305v-.672M1261.715 14.625l.672-1.344M1262.382 13.278l.672-.576M1263.062 12.705l1.344-.672M1264.395 12.038h2.688M1267.088 12.038l1.248.672M1268.342 12.705l.672.576M1269.008 13.278l.672 1.344M1269.675 14.625v1.344M1269.675 15.971l-.672 1.344M1269.008 17.318l-1.248 2.016M1267.755 19.331l-6.72 6.624M1261.035 25.958h9.312M63.278 16.638v9.312M63.278 18.664l-1.344-1.343M61.934 17.318l-1.343-.672M60.59 16.638h-2.016M58.575 16.638l-1.248.672M57.327 17.318l-1.345 1.344M55.983 18.664l-.672 2.016M55.31 20.678v1.248M55.31 21.918l.672 2.016M55.983 23.944l1.344 1.344M57.327 25.278l1.247.672M58.575 25.958h2.016M60.59 25.958l1.344-.672M61.934 25.278l1.345-1.344M75.854 16.638v10.656M75.854 27.304l-.672 2.016M75.182 29.318l-.576.672M74.606 29.984l-1.344.576M73.262 30.558h-2.016M71.246 30.558l-1.343-.576M75.854 18.664l-1.248-1.343M74.606 17.318l-1.344-.672M73.262 16.638h-2.016M71.246 16.638l-1.343.672M69.902 17.318l-1.344 1.344M68.558 18.664l-.672 2.016M67.886 20.678v1.248M67.886 21.918l.672 2.016M68.558 23.944l1.345 1.344M69.902 25.278l1.344.672M71.246 25.958h2.016M73.262 25.958l1.344-.672M74.606 25.278l1.249-1.344M80.558 20.678h7.968M88.526 20.678v-1.344M88.526 19.331l-.672-1.344M87.854 17.984l-.673-.671M87.182 17.318l-1.344-.672M85.838 16.638h-2.016M83.822 16.638l-1.248.672M82.574 17.318l-1.344 1.344M81.23 18.664l-.672 2.016M80.558 20.678v1.248M80.558 21.918l.672 2.016M81.23 23.944l1.344 1.344M82.574 25.278l1.248.672M83.822 25.958h2.016M85.838 25.958l1.344-.672M87.182 25.278l1.344-1.344M105.133 14.625l1.345-.672M106.477 13.958l2.016-1.92M108.493 12.038v13.92M117.805 24.611l-.672.672M117.133 25.278l.672.672M117.805 25.958l.576-.672M118.381 25.278l-.576-.672M123.757 15.305v-.672M123.757 14.625l.672-1.344M124.429 13.278l.672-.576M125.1 12.705l1.345-.672M126.445 12.038h2.592M129.037 12.038l1.343.672M130.38 12.705l.673.576M131.053 13.278l.672 1.344M131.725 14.625v1.344M131.725 15.971l-.672 1.344M131.053 17.318l-1.345 2.016M129.709 19.331l-6.624 6.624M123.085 25.958h9.312M144.97 16.638l-.672 2.016M144.303 18.664l-1.248 1.344M143.05 19.998l-2.016.672M141.036 20.678h-.672M140.37 20.678l-2.016-.672M138.343 19.998 137 18.654M137.01 18.664l-.672-2.015M136.33 16.638v-.672M136.33 15.971l.672-2.016M137.01 13.958l1.344-1.248M138.343 12.705l2.016-.672M140.37 12.038h.672M141.036 12.038l2.016.672M143.05 12.705l1.248 1.248M144.303 13.958l.672 2.688M144.97 16.638v3.36M144.97 19.998l-.672 3.264M144.303 23.264l-1.248 2.016M143.05 25.278l-2.016.672M141.036 25.958h-1.343M139.69 25.958l-2.016-.672M137.677 25.278l-.672-1.344M158.983 12.038l-6.624 13.92M149.676 12.038h9.312M171.569 13.958l-.672-1.248M170.89 12.705l-1.92-.672M168.97 12.038h-1.345M167.622 12.038l-2.015.672M165.61 12.705l-1.345 1.92M164.263 14.625l-.672 3.36M163.596 17.984v3.36M163.596 21.344l.672 2.592M164.263 23.944l1.344 1.344M165.61 25.278l2.015.672M167.622 25.958h.672M168.302 25.958l1.92-.672M170.222 25.278l1.344-1.344M171.569 23.944l.672-2.016M172.236 21.918v-.576M172.236 21.344l-.672-2.016M171.569 19.331l-1.344-1.344M170.222 17.984l-1.92-.671M168.302 17.318h-.672M167.622 17.318l-2.015.672M165.61 17.984l-1.345 1.344M164.263 19.331l-.672 2.016M177.609 12.038h7.296M184.902 12.038l-4.032 5.28M180.875 17.318h2.016M182.889 17.318l1.344.672M184.235 17.984l.672.672M184.902 18.664l.672 2.016M185.582 20.678v1.248M185.582 21.918l-.672 2.016M184.902 23.944l-1.344 1.344M183.569 25.278l-2.016.672M181.542 25.958h-2.016M179.529 25.958l-1.92-.672M177.609 25.278l-.672-.672M176.942 24.611l-.672-1.344M191.529 14.625l1.344-.672M192.875 13.958l2.016-1.92M194.888 12.038v13.92M202.862 20.678h7.967M210.821 20.678v-1.344M210.821 19.331l-.672-1.344M210.155 17.984l-.672-.671M209.488 17.318l-1.344-.672M208.141 16.638h-2.015M206.128 16.638l-1.344.672M204.782 17.318l-1.248 1.344M203.528 18.664l-.672 2.016M202.862 20.678v1.248M202.862 21.918l.672 2.016M203.528 23.944l1.248 1.344M204.782 25.278l1.344.672M206.128 25.958h2.016M208.141 25.958l1.344-.672M209.488 25.278l1.344-1.344M223.408 13.958l-.672-1.248M222.728 12.705l-1.92-.672M220.808 12.038h-1.344M219.461 12.038l-2.016.672M217.448 12.705l-1.344 1.92M216.101 14.625l-.672 3.36M215.435 17.984v3.36M215.435 21.344l.672 2.592M216.101 23.944l1.344 1.344M217.448 25.278l2.016.672M219.461 25.958h.672M220.141 25.958l1.92-.672M222.061 25.278l1.344-1.344M223.408 23.944l.672-2.016M224.074 21.918v-.576M224.074 21.344l-.672-2.016M223.408 19.331l-1.344-1.344M222.061 17.984l-1.92-.671M220.141 17.318h-.672M219.461 17.318l-2.016.672M217.448 17.984l-1.344 1.344M216.101 19.331l-.672 2.016M238.087 16.638l3.936 9.312M246.06 16.638l-4.031 9.312M242.02 25.958l-1.343 2.688M240.687 28.638l-1.344 1.344M239.34 29.984l-1.247.576M238.087 30.558h-.672M249.994 16.638v9.312M249.994 20.678l.672-2.016M250.66 18.664l1.344-1.343M252.007 17.318l1.344-.672M253.354 16.638h2.016M265.26 18.664l-.576-1.343M264.687 17.318l-2.016-.672M262.66 16.638h-2.016M260.647 16.638l-2.016.672M258.634 17.318l-.672 1.344M257.967 18.664l.672 1.344M258.634 19.998l1.344.672M259.98 20.678l3.36.672M263.34 21.344l1.344.576M264.687 21.918l.576 1.344M265.26 23.264v.672M265.26 23.944l-.576 1.344M264.687 25.278l-2.016.672M262.66 25.958h-2.016M260.647 25.958l-2.016-.672M258.634 25.278l-.672-1.344M699.45 11.358v11.136M699.45 14.531l2.4-2.4M701.85 12.131l1.535-.768M703.396 11.358h2.4M705.796 11.358l1.632.768M707.422 12.131l.768 2.4M708.196 14.531V22.5M708.196 14.531l2.4-2.4M710.596 12.131l1.632-.768M712.222 11.358h2.304M714.529 11.358l1.632.768M716.155 12.131l.768 2.4M716.929 14.531V22.5M732.088 11.358v11.136M732.088 13.758l-1.536-1.632M730.555 12.131l-1.632-.768M728.928 11.358h-2.4M726.529 11.358l-1.632.768M724.889 12.131l-1.536 1.632M723.355 13.758l-.768 2.4M722.595 16.158v1.536M722.595 17.704l.768 2.4M723.355 20.104l1.536 1.632M724.889 21.731l1.632.768M726.529 22.504h2.4M728.928 22.504l1.632-.768M730.555 21.731l1.536-1.632M738.528 5.798v16.704M746.488 11.358l-7.968 7.968M741.688 16.158l5.568 6.336M751.288 16.158h9.504M760.794 16.158v-1.632M760.794 14.531l-.768-1.632M760.034 12.905l-.768-.768M759.261 12.131l-1.632-.768M757.634 11.358h-2.4M755.234 11.358l-1.536.768M753.688 12.131l-1.632 1.632M752.061 13.758l-.768 2.4M751.288 16.158v1.536M751.288 17.704l.768 2.4M752.061 20.104l1.632 1.632M753.688 21.731l1.536.768M755.234 22.504h2.4M757.634 22.504l1.632-.768M759.261 21.731l1.536-1.632M763.194 24.131h14.4M789.5 11.358l-8.736 11.136M780.767 11.358h8.736M780.767 22.504h8.736M803.9 11.358v11.136M803.9 13.758l-1.632-1.632M802.273 12.131l-1.536-.768M800.727 11.358h-2.4M798.327 11.358l-1.632.768M796.7 12.131l-1.536 1.632M795.167 13.758l-.864 2.4M794.3 16.158v1.536M794.3 17.704l.864 2.4M795.167 20.104l1.536 1.632M796.7 21.731l1.632.768M798.327 22.504h2.4M800.727 22.504l1.536-.768M802.273 21.731l1.632-1.632M810.233 11.358v11.136M810.233 14.531l2.4-2.4M812.633 12.131l1.632-.768M814.273 11.358h2.4M816.673 11.358l1.536.768M818.206 12.131l.864 2.4M819.073 14.531V22.5M819.073 14.531l2.4-2.4M821.473 12.131l1.536-.768M823.006 11.358h2.4M825.406 11.358l1.632.768M827.033 12.131l.768 2.4M827.806 14.531V22.5M842.206 13.758l-.864-1.632M841.339 12.131l-2.4-.768M838.939 11.358h-2.304M836.632 11.358l-2.4.768M834.232 12.131l-.864 1.632M833.366 13.758l.864 1.536M834.232 15.305l1.536.864M835.766 16.158l4.032.768M839.806 16.931l1.536.768M841.339 17.704l.864 1.632M842.206 19.331v.768M842.206 20.104l-.864 1.632M841.339 21.731l-2.4.768M838.939 22.504h-2.304M836.632 22.504l-2.4-.768M834.232 21.731l-.864-1.632"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="m192.969 49.184-.672-1.248M192.302 47.944l-1.92-.672M190.382 47.264h-1.92M188.462 47.264l-1.92.672M186.542 47.944l-.576 1.248M185.969 49.184l.576 1.248M186.542 50.437l1.344.672M187.889 51.104l3.168.576M191.049 51.677l1.248.672M192.302 52.357l.672 1.248M192.969 53.597v.672M192.969 54.277l-.672 1.248M192.302 55.517l-1.92.672M190.382 56.197h-1.92M188.462 56.197l-1.92-.672M186.542 55.517l-.576-1.248M198.062 42.757v10.848M198.062 53.597l.672 1.92M198.728 55.517l1.248.672M199.982 56.197h1.248M196.142 47.264h4.416M212.075 47.264v8.928M212.075 49.184l-1.248-1.248M210.821 47.944l-1.248-.672M209.581 47.264h-1.92M207.661 47.264l-1.343.672M206.315 47.944l-1.248 1.248M205.062 49.184l-.672 1.92M204.395 51.104v1.248M204.395 52.357l.672 1.92M205.062 54.277l1.248 1.248M206.315 55.517l1.344.672M207.661 56.197h1.92M209.581 56.197l1.248-.672M210.821 55.517l1.248-1.248M217.168 47.264v8.928M217.168 51.104l.672-1.92M217.835 49.184l1.248-1.248M219.088 47.944l1.344-.672M220.421 47.264h1.824M222.928 57.437h11.52M237.607 47.264v8.928M237.607 49.864l1.92-1.92M239.527 47.944l1.248-.672M240.78 47.264h1.92M242.7 47.264l1.249.672M243.94 47.944l.673 1.92M244.62 49.864V56.2M244.62 49.864l1.92-1.92M246.54 47.944l1.248-.672M247.78 47.264h1.92M249.7 47.264l1.344.672M251.047 47.944l.576 1.92M251.62 49.864V56.2M263.727 47.264v8.928M263.727 49.184l-1.248-1.248M262.473 47.944l-1.248-.672M261.22 47.264h-1.92M259.3 47.264l-1.248.672M258.06 47.944l-1.344 1.248M256.714 49.184l-.576 1.92M256.14 51.104v1.248M256.14 52.357l.576 1.92M256.714 54.277l1.344 1.248M258.06 55.517l1.248.672M259.3 56.197h1.92M261.22 56.197l1.248-.672M262.473 55.517l1.248-1.248M275.246 49.184l-.672-1.248M274.566 47.944l-1.92-.672M272.647 47.264h-1.824M270.82 47.264l-1.92.672M268.9 47.944l-.672 1.248M268.233 49.184l.672 1.248M268.9 50.437l1.248.672M270.153 51.104l3.168.576M273.327 51.677l1.247.672M274.566 52.357l.672 1.248M275.246 53.597v.672M275.246 54.277l-.672 1.248M274.566 55.517l-1.92.672M272.647 56.197h-1.824M270.82 56.197l-1.92-.672M268.9 55.517l-.672-1.248M286.086 49.184l-.672-1.248M285.42 47.944l-1.92-.672M283.5 47.264h-1.824M281.673 47.264l-1.92.672M279.753 47.944l-.672 1.248M279.086 49.184l.672 1.248M279.753 50.437l1.248.672M281.006 51.104l3.168.576M284.166 51.677l1.248.672M285.42 52.357l.672 1.248M286.086 53.597v.672M286.086 54.277l-.672 1.248M285.42 55.517l-1.92.672M283.5 56.197h-1.824M281.673 56.197l-1.92-.672M279.753 55.517l-.672-1.248M320.459 42.757l-6.336 8.928M314.125 51.677h9.6M320.459 42.757v13.44M328.138 54.944l-.576.576M327.565 55.517l.576.672M328.138 56.197l.672-.672M328.805 55.517l-.672-.576M337.058 42.757l-1.92.672M335.138 43.424l-1.248 1.92M333.898 45.344l-.672 3.168M333.218 48.517v1.92M333.218 50.437l.672 3.168M333.898 53.597l1.248 1.92M335.138 55.517l1.92.672M337.058 56.197h1.248M338.312 56.197l1.92-.672M340.231 55.517l1.344-1.92M341.578 53.597l.576-3.168M342.151 50.437v-1.92M342.151 48.517l-.576-3.168M341.578 45.344l-1.344-1.92M340.231 43.424l-1.92-.672M338.312 42.757h-1.248M349.831 42.757l-1.92.672M347.911 43.424l-1.248 1.92M346.658 45.344l-.672 3.168M345.991 48.517v1.92M345.991 50.437l.672 3.168M346.658 53.597l1.248 1.92M347.911 55.517l1.92.672M349.831 56.197h1.248M351.085 56.197l1.92-.672M353.005 55.517l1.343-1.92M354.338 53.597l.576-3.168M354.924 50.437v-1.92M354.924 48.517l-.576-3.168M354.338 45.344l-1.344-1.92M353.005 43.424l-1.92-.672M351.085 42.757h-1.248M362.604 42.757l-1.92.672M360.684 43.424l-1.248 1.92M359.431 45.344l-.672 3.168M358.764 48.517v1.92M358.764 50.437l.672 3.168M359.431 53.597l1.248 1.92M360.684 55.517l1.92.672M362.604 56.197h1.248M363.844 56.197l1.92-.672M365.764 55.517l1.344-1.92M367.11 53.597l.577-3.168M367.684 50.437v-1.92M367.684 48.517l-.576-3.168M367.11 45.344l-1.343-1.92M365.764 43.424l-1.92-.672M363.844 42.757h-1.248M375.364 42.757l-1.92.672M373.444 43.424l-1.248 1.92M372.204 45.344l-.672 3.168M371.524 48.517v1.92M371.524 50.437l.672 3.168M372.204 53.597l1.248 1.92M373.444 55.517l1.92.672M375.364 56.197h1.248M376.617 56.197l1.92-.672M378.537 55.517l1.248-1.92M379.777 53.597l.672-3.168M380.457 50.437v-1.92M380.457 48.517l-.672-3.168M379.777 45.344l-1.248-1.92M378.537 43.424l-1.92-.672M376.617 42.757h-1.248M388.137 42.757l-1.92.672M386.217 43.424l-1.248 1.92M384.964 45.344l-.672 3.168M384.297 48.517v1.92M384.297 50.437l.672 3.168M384.964 53.597l1.248 1.92M386.217 55.517l1.92.672M388.137 56.197h1.248M389.377 56.197l1.92-.672M391.297 55.517l1.248-1.92M392.55 53.597l.672-3.168M393.217 50.437v-1.92M393.217 48.517l-.672-3.168M392.55 45.344l-1.248-1.92M391.297 43.424l-1.92-.672M389.377 42.757h-1.248M400.897 42.757l-1.92.672M398.977 43.424l-1.248 1.92M397.737 45.344l-.672 3.168M397.057 48.517v1.92M397.057 50.437l.672 3.168M397.737 53.597l1.248 1.92M398.977 55.517l1.92.672M400.897 56.197h1.248M402.15 56.197l1.92-.672M404.07 55.517l1.248-1.92M405.323 53.597l.672-3.168M405.99 50.437v-1.92M405.99 48.517l-.672-3.168M405.323 45.344l-1.248-1.92M404.07 43.424l-1.92-.672M402.15 42.757h-1.248M413.67 42.757l-1.92.672M411.75 43.424l-1.248 1.92M410.496 45.344l-.672 3.168M409.83 48.517v1.92M409.83 50.437l.672 3.168M410.496 53.597l1.248 1.92M411.75 55.517l1.92.672M413.67 56.197h1.248M414.923 56.197l1.92-.672M416.843 55.517l1.248-1.92M418.083 53.597l.672-3.168M418.763 50.437v-1.92M418.763 48.517l-.672-3.168M418.083 45.344l-1.248-1.92M416.843 43.424l-1.92-.672M414.923 42.757h-1.248M627.358 42.757v13.44M635.037 47.264l-1.248.672M633.797 47.944l-1.247 1.248M632.544 49.184l-.672 1.92M631.878 51.104v1.248M631.878 52.357l.672 1.92M632.544 54.277l1.248 1.248M633.797 55.517l1.248.672M635.037 56.197h1.92M636.957 56.197l1.248-.672M638.21 55.517l1.345-1.248M639.557 54.277l.576-1.92M640.13 52.357v-1.248M640.13 51.104l-.575-1.92M639.557 49.184l-1.344-1.248M638.21 47.944l-1.247-.672M636.957 47.264h-1.92M651.65 47.264v10.175M651.65 57.437l-.672 1.92M650.97 59.357l-.576.672M650.397 60.037l-1.344.672M649.05 60.703h-1.92M647.13 60.703l-1.247-.672M651.65 49.184l-1.248-1.248M650.397 47.944l-1.344-.672M649.05 47.264h-1.92M647.13 47.264l-1.247.672M645.89 47.944l-1.247 1.248M644.637 49.184l-.672 1.92M643.97 51.104v1.248M643.97 52.357l.673 1.92M644.637 54.277l1.248 1.248M645.89 55.517l1.248.672M647.13 56.197h1.92M649.05 56.197l1.344-.672M650.397 55.517l1.248-1.248M654.237 57.437h11.424M668.837 42.757v13.44M668.837 56.197h7.68M679.676 42.757v13.44M688.61 42.757v13.44M679.676 49.184h8.928M717.982 46.024v-.672M717.982 45.344l.576-1.248M718.555 44.104l.672-.672M719.235 43.424l1.248-.672M720.475 42.757h2.592M723.075 42.757l1.248.672M724.315 43.424l.672.672M724.995 44.104l.576 1.248M725.569 45.344v1.248M725.569 46.597l-.576 1.344M724.995 47.944l-1.344 1.92M723.649 49.864l-6.336 6.336M717.315 56.197h8.928M731.328 54.944l-.576.576M730.755 55.517l.576.672M731.328 56.197l.672-.672M731.995 55.517l-.672-.576M742.848 42.757l-6.432 8.928M736.408 51.677h9.6M742.848 42.757v13.44M749.848 46.024v-.672M749.848 45.344l.672-1.248M750.528 44.104l.576-.672M751.101 43.424l1.248-.672M752.355 42.757h2.591M754.941 42.757l1.248.672M756.194 43.424l.672.672M756.861 44.104l.672 1.248M757.528 45.344v1.248M757.528 46.597l-.672 1.344M756.861 47.944l-1.248 1.92M755.608 49.864l-6.432 6.336M749.181 56.197h8.928M770.3 44.677l-.671-1.248M769.634 43.424l-1.92-.672M767.714 42.757h-1.248M766.46 42.757l-1.92.672M764.54 43.424l-1.343 1.92M763.194 45.344l-.576 3.168M762.62 48.517v3.168M762.62 51.677l.577 2.592M763.194 54.277l1.344 1.248M764.54 55.517l1.92.672M766.46 56.197h.577M767.034 56.197l1.92-.672M768.954 55.517l1.344-1.248M770.3 54.277l.577-1.92M770.874 52.357v-.672M770.874 51.677l-.576-1.824M770.3 49.864l-1.343-1.344M768.954 48.517l-1.92-.576M767.034 47.944h-.576M766.46 47.944l-1.92.576M764.54 48.517l-1.343 1.344M763.194 49.864l-.576 1.824M783.647 42.757l-6.336 13.44M774.714 42.757h8.928M795.74 44.677l-.576-1.248M795.167 43.424l-1.92-.672M793.247 42.757h-1.248M791.994 42.757l-1.92.672M790.074 43.424l-1.344 1.92M788.727 45.344l-.576 3.168M788.154 48.517v3.168M788.154 51.677l.576 2.592M788.727 54.277l1.344 1.248M790.074 55.517l1.92.672M791.994 56.197h.576M792.567 56.197l1.92-.672M794.487 55.517l1.248-1.248M795.74 54.277l.672-1.92M796.407 52.357v-.672M796.407 51.677l-.672-1.824M795.74 49.864l-1.248-1.344M794.487 48.517l-1.92-.576M792.567 47.944h-.576M791.994 47.944l-1.92.576M790.074 48.517l-1.344 1.344M788.727 49.864l-.576 1.824M806.593 42.757l-6.336 8.928M800.247 51.677h9.6M806.593 42.757v13.44M820.7 42.757h-6.432M814.273 42.757l-.576 5.76M813.686 48.517l.576-.576M814.273 47.944l1.92-.672M816.193 47.264h1.92M818.113 47.264l1.92.672M820.033 47.944l1.248 1.248M821.273 49.184l.672 1.92M821.953 51.104v1.248M821.953 52.357l-.672 1.92M821.273 54.277l-1.248 1.248M820.033 55.517l-1.92.672M818.113 56.197h-1.92M816.193 56.197l-1.92-.672M814.273 55.517l-.576-.576M813.686 54.944l-.672-1.344M983.989 47.264v8.928M983.989 49.864l1.92-1.92M985.909 47.944l1.248-.672M987.162 47.264h1.92M989.082 47.264l1.344.672M990.429 47.944l.576 1.92M991.002 49.864V56.2M996.082 47.264V53.6M996.082 53.597l.672 1.92M996.762 55.517l1.248.672M998.002 56.197h1.92M999.922 56.197l1.344-.672M1001.268 55.517l1.92-1.92M1003.188 47.264v8.928M1008.281 47.264v8.928M1008.281 49.864l1.92-1.92M1010.201 47.944l1.248-.672M1011.441 47.264h1.92M1013.361 47.264l1.248.672M1014.615 47.944l.672 1.92M1015.281 49.864V56.2M1015.281 49.864l1.92-1.92M1017.201 47.944l1.248-.672M1018.455 47.264h1.92M1020.374 47.264l1.248.672M1021.628 47.944l.672 1.92M1022.294 49.864V56.2M1024.881 57.437h11.424M1045.907 47.264l-7.008 8.928M1038.907 47.264h7.008M1038.907 56.197h7.008M1052.92 47.264l-1.248.672M1051.667 47.944l-1.344 1.248M1050.32 49.184l-.576 1.92M1049.747 51.104v1.248M1049.747 52.357l.576 1.92M1050.32 54.277l1.344 1.248M1051.667 55.517l1.248.672M1052.92 56.197h1.92M1054.84 56.197l1.248-.672M1056.08 55.517l1.344-1.248M1057.427 54.277l.576-1.92M1058 52.357v-1.248M1058 51.104l-.576-1.92M1057.427 49.184l-1.344-1.248M1056.08 47.944l-1.248-.672M1054.84 47.264h-1.92M1062.52 47.264v8.928M1062.52 49.864l1.92-1.92M1064.44 47.944l1.248-.672M1065.68 47.264h1.92M1067.6 47.264l1.248.672M1068.853 47.944l.672 1.92M1069.52 49.864V56.2M1073.946 51.104h7.68M1081.626 51.104v-1.248M1081.626 49.864l-.672-1.344M1080.946 48.517l-.576-.576M1080.373 47.944l-1.344-.672M1079.026 47.264h-1.824M1077.2 47.264l-1.344.672M1075.866 47.944l-1.248 1.248M1074.613 49.184l-.672 1.92M1073.946 51.104v1.248M1073.946 52.357l.672 1.92M1074.613 54.277l1.248 1.248M1075.866 55.517l1.344.672M1077.2 56.197h1.824M1079.026 56.197l1.344-.672M1080.373 55.517l1.248-1.248M1092.466 49.184l-.672-1.248M1091.8 47.944l-1.92-.672M1089.88 47.264h-1.825M1088.053 47.264l-1.92.672M1086.133 47.944l-.672 1.248M1085.466 49.184l.672 1.248M1086.133 50.437l1.248.672M1087.386 51.104l3.168.576M1090.546 51.677l1.248.672M1091.8 52.357l.671 1.248M1092.466 53.597v.672M1092.466 54.277l-.672 1.248M1091.8 55.517l-1.92.672M1089.88 56.197h-1.825M1088.053 56.197l-1.92-.672M1086.133 55.517l-.672-1.248M1123.665 42.757l-1.92.672M1121.745 43.424l-.576 1.248M1121.172 44.677v1.344M1121.172 46.024l.576 1.248M1121.745 47.264l1.344.672M1123.092 47.944l2.496.576M1125.585 48.517l1.92.672M1127.505 49.184l1.248 1.248M1128.758 50.437l.672 1.248M1129.425 51.677v1.92M1129.425 53.597l-.672 1.344M1128.758 54.944l-.576.576M1128.185 55.517l-1.92.672M1126.265 56.197h-2.592M1123.665 56.197l-1.92-.672M1121.745 55.517l-.576-.576M1121.172 54.944l-.672-1.344M1120.505 53.597v-1.92M1120.505 51.677l.672-1.248M1121.172 50.437l1.248-1.248M1122.425 49.184l1.92-.672M1124.345 48.517l2.495-.576M1126.838 47.944l1.344-.672M1128.185 47.264l.575-1.248M1128.758 46.024V44.68M1128.758 44.677l-.576-1.248M1128.185 43.424l-1.921-.672M1126.265 42.757h-2.59M1141.518 44.677l-.576-1.248M1140.945 43.424l-1.92-.672M1139.025 42.757h-1.344M1137.678 42.757l-1.92.672M1135.758 43.424l-1.248 1.92M1134.518 45.344l-.576 3.168M1133.945 48.517v3.168M1133.945 51.677l.576 2.592M1134.518 54.277l1.248 1.248M1135.758 55.517l1.92.672M1137.678 56.197h.672M1138.358 56.197l1.92-.672M1140.278 55.517l1.248-1.248M1141.518 54.277l.672-1.92M1142.198 52.357v-.672M1142.198 51.677l-.672-1.824M1141.518 49.864l-1.248-1.344M1140.278 48.517l-1.92-.576M1138.358 47.944h-.672M1137.678 47.944l-1.918.576M1135.758 48.517l-1.248 1.344M1134.518 49.864l-.576 1.824M1154.291 47.264l-.576 1.92M1153.718 49.184l-1.344 1.248M1152.371 50.437l-1.92.672M1150.451 51.104h-.576M1149.878 51.104l-1.92-.672M1147.958 50.437l-1.344-1.248M1146.611 49.184l-.576-1.92M1146.038 47.264v-.672M1146.038 46.597l.576-1.92M1146.611 44.677l1.344-1.248M1147.958 43.424l1.92-.672M1149.878 42.757h.576M1150.451 42.757l1.92.672M1152.371 43.424l1.344 1.248M1153.718 44.677l.576 2.592M1154.291 47.264v3.168M1154.291 50.437l-.576 3.168M1153.718 53.597l-1.344 1.92M1152.371 55.517l-1.92.672M1150.451 56.197h-1.25M1149.198 56.197l-1.921-.672M1147.278 55.517l-.672-1.248"/></g><g stroke-width="14.4"><path stroke-width="1.919952" d="M334.178 809.103v9.792M334.178 811.887l2.112-2.112M336.298 809.775l1.44-.671M337.738 809.103h2.112M339.845 809.103l1.344.672M341.191 809.775l.672 2.113M341.858 811.887v7.008M341.858 811.887l2.112-2.112M343.978 809.775l1.44-.671M345.418 809.103h2.112M347.525 809.103l1.344.672M348.871 809.775l.672 2.113M349.538 811.887v7.008M366.338 801.424l-12.576 22.367M370.47 804.207v14.688M370.47 804.207l5.665 14.688M381.697 804.207l-5.568 14.688M381.697 804.207v14.688M390.724 816.207l-1.536.576M389.19 816.783l-1.536 1.056M387.657 817.84l-1.056 1.535M386.604 819.375l-.576 1.632M386.017 821.007v1.536M386.017 822.543l.576 1.536M386.604 824.079l1.056 1.632M387.657 825.711l1.536 1.056M389.19 826.767l1.536.48M390.724 827.247h1.632M392.364 827.247l1.535-.48M393.897 826.767l1.536-1.056M395.43 825.711l1.056-1.632M396.483 824.079l.576-1.536M397.057 822.543v-1.536M397.057 821.007l-.576-1.632M396.483 819.375l-1.056-1.536M395.43 817.84l-1.536-1.057M393.897 816.783l-1.536-.576M392.364 816.207h-1.632M391.297 821.007l-.576.48M390.724 821.487v.48M390.724 821.967l.576.576M391.297 822.543h.48M391.777 822.543l.576-.576M392.364 821.967v-.48M392.364 821.487l-.576-.48M391.777 821.007h-.48M391.297 821.487v.48M391.297 821.967h.48M391.777 821.967v-.48M391.777 821.487h-.48"/></g><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M100.813 768.976H626.4M626.398 768.976V95.073M626.398 95.076H100.81M100.813 95.076v673.903M100.813 768.976v-8.351M153.423 768.976v-4.224M205.928 768.976v-8.351M258.54 768.976v-4.224M311.046 768.976v-8.351M363.658 768.976v-4.224M416.163 768.976v-8.351M468.775 768.976v-4.224M521.28 768.976v-8.351M573.892 768.976v-4.224M626.398 768.976v-8.351M100.813 103.422v-8.351M153.423 99.302V95.08M205.928 103.422v-8.351M258.54 99.302V95.08M311.046 103.422v-8.351M363.658 99.302V95.08M416.163 103.422v-8.351M468.775 99.302V95.08M521.28 103.422v-8.351M573.892 99.302V95.08M626.398 103.422v-8.351M100.237 779.056l-1.632.48M98.606 779.536l-1.152 1.728M97.454 781.264l-.576 2.784M96.878 784.048v1.632M96.878 785.68l.576 2.88M97.454 788.56l1.151 1.632M98.606 790.192l1.632.576M100.237 790.768h1.152M101.39 790.768l1.631-.576M103.021 790.192l1.152-1.632M104.173 788.56l.577-2.88M104.75 785.68v-1.632M104.75 784.048l-.577-2.784M104.173 781.264l-1.152-1.727M103.021 779.536l-1.631-.48M101.39 779.056h-1.153M197.008 779.056l-1.632.48M195.368 779.536l-1.152 1.728M194.222 781.264l-.576 2.784M193.648 784.048v1.632M193.648 785.68l.576 2.88M194.222 788.56l1.152 1.632M195.368 790.192l1.632.576M197.008 790.768h1.152M198.155 790.768l1.632-.576M199.782 790.192l1.152-1.632M200.942 788.56l.48-2.88M201.422 785.68v-1.632M201.422 784.048l-.48-2.784M200.942 781.264l-1.152-1.727M199.782 779.536l-1.632-.48M198.155 779.056h-1.152M205.928 789.616l-.576.576M205.355 790.192l.576.576M205.928 790.768l.576-.576M206.502 790.192l-.576-.576M210.928 781.84v-.576M210.928 781.264l.576-1.151M211.501 780.112l.576-.576M212.075 779.536l1.152-.48M213.221 779.056h2.208M215.435 779.056l1.056.48M216.488 779.536l.576.576M217.061 780.112l.576 1.152M217.648 781.264v1.152M217.648 782.416l-.576 1.056M217.061 783.472l-1.056 1.728M216.008 785.2l-5.568 5.568M210.448 790.768h7.776M302.126 779.056l-1.632.48M300.486 779.536l-1.152 1.728M299.34 781.264l-.577 2.784M298.766 784.048v1.632M298.766 785.68l.576 2.88M299.34 788.56l1.151 1.632M300.486 790.192l1.632.576M302.126 790.768h1.152M303.272 790.768l1.632-.576M304.899 790.192l1.152-1.632M306.059 788.56l.48-2.88M306.539 785.68v-1.632M306.539 784.048l-.48-2.784M306.059 781.264l-1.152-1.727M304.899 779.536l-1.632-.48M303.272 779.056h-1.152M311.046 789.616l-.576.576M310.472 790.192l.576.576M311.046 790.768l.576-.576M311.619 790.192l-.576-.576M321.125 779.056l-5.568 7.776M315.565 786.832h8.352M321.125 779.056v11.712M407.243 779.056l-1.632.48M405.603 779.536l-1.152 1.728M404.457 781.264l-.576 2.784M403.883 784.048v1.632M403.883 785.68l.576 2.88M404.457 788.56l1.152 1.632M405.603 790.192l1.632.576M407.243 790.768h1.152M408.39 790.768l1.632-.576M410.016 790.192l1.152-1.632M411.176 788.56l.48-2.88M411.656 785.68v-1.632M411.656 784.048l-.48-2.784M411.176 781.264l-1.152-1.727M410.016 779.536l-1.632-.48M408.39 779.056h-1.152M416.163 789.616l-.576.576M415.59 790.192l.576.576M416.163 790.768l.576-.576M416.736 790.192l-.576-.576M427.883 780.688l-.576-1.152M427.296 779.536l-1.632-.48M425.67 779.056h-1.153M424.523 779.056l-1.632.48M422.883 779.536l-1.152 1.728M421.736 781.264l-.576 2.784M421.163 784.048v2.784M421.163 786.832l.576 2.208M421.736 789.04l1.152 1.152M422.883 790.192l1.632.576M424.523 790.768h.576M425.096 790.768l1.632-.576M426.723 790.192l1.152-1.152M427.883 789.04l.576-1.632M428.456 787.408v-.576M428.456 786.832l-.576-1.632M427.883 785.2l-1.152-1.152M426.723 784.048l-1.632-.576M425.096 783.472h-.576M424.523 783.472l-1.632.576M422.883 784.048l-1.152 1.152M421.736 785.2l-.576 1.632M512.36 779.056l-1.631.48M510.72 779.536l-1.151 1.728M509.574 781.264l-.576 2.784M509 784.048v1.632M509 785.68l.577 2.88M509.574 788.56l1.152 1.632M510.72 790.192l1.633.576M512.36 790.768h1.152M513.507 790.768l1.632-.576M515.134 790.192l1.152-1.632M516.294 788.56l.48-2.88M516.774 785.68v-1.632M516.774 784.048l-.48-2.784M516.294 781.264l-1.152-1.727M515.134 779.536l-1.632-.48M513.507 779.056h-1.152M521.28 789.616l-.576.576M520.707 790.192l.576.576M521.28 790.768l.576-.576M521.854 790.192l-.576-.576M528.573 779.056l-1.728.48M526.853 779.536l-.575 1.152M526.28 780.688v1.152M526.28 781.84l.576 1.056M526.853 782.896l1.152.576M528 783.472l2.208.576M530.213 784.048l1.632.576M531.84 784.624l1.152 1.056M533 785.68l.576 1.152M533.573 786.832v1.728M533.573 788.56l-.576 1.056M533 789.616l-.576.576M532.413 790.192l-1.632.576M530.787 790.768h-2.208M528.573 790.768l-1.728-.576M526.853 790.192l-.575-.576M526.28 789.616l-.48-1.056M525.8 788.56v-1.728M525.8 786.832l.48-1.152M526.28 785.68l1.152-1.056M527.427 784.624l1.632-.576M529.053 784.048l2.304-.576M531.36 783.472l1.056-.576M532.413 782.896l.576-1.056M533 781.84v-1.152M533 780.688l-.576-1.151M532.413 779.536l-1.632-.48M530.787 779.056h-2.208M624.198 781.264l1.056-.575M625.251 780.688l1.728-1.632M626.971 779.056v11.712M100.813 758.897h8.352M100.813 738.833h4.224M100.813 718.674h4.224M100.813 698.607h4.224M100.813 678.448h4.224M100.813 658.288h8.352M100.813 638.222h4.224M100.813 618.063h4.224M100.813 598.01h4.224M100.813 577.85h4.224M100.813 557.784h8.352M100.813 537.625h4.224M100.813 517.559h4.224M100.813 497.4h4.224M100.813 477.24h4.224M100.813 457.174h8.352M100.813 437.014h4.224M100.813 416.948h4.224M100.813 396.788h4.224M100.813 376.736h4.224M100.813 356.576h8.352M100.813 336.51h4.224M100.813 316.35h4.224M100.813 296.284h4.224M100.813 276.125h4.224M100.813 255.965h8.352M100.813 235.899h4.224M100.813 215.74h4.224M100.813 195.673h4.224M100.813 175.514h4.224M100.813 155.461h8.352M100.813 135.302h4.224M100.813 115.235h4.224M100.813 95.076h4.224M618.051 758.897h8.352M622.171 738.833h4.224M622.171 718.674h4.224M622.171 698.607h4.224M622.171 678.448h4.224M618.051 658.288h8.352M622.171 638.222h4.224M622.171 618.063h4.224M622.171 598.01h4.224M622.171 577.85h4.224M618.051 557.784h8.352M622.171 537.625h4.224M622.171 517.559h4.224M622.171 497.4h4.224M622.171 477.24h4.224M618.051 457.174h8.352M622.171 437.014h4.224M622.171 416.948h4.224M622.171 396.788h4.224M622.171 376.736h4.224M618.051 356.576h8.352M622.171 336.51h4.224M622.171 316.35h4.224M622.171 296.284h4.224M622.171 276.125h4.224M618.051 255.965h8.352M622.171 235.899h4.224M622.171 215.74h4.224M622.171 195.673h4.224M622.171 175.514h4.224M618.051 155.461h8.352M622.171 135.302h4.224M622.171 115.235h4.224M622.171 95.076h4.224M64.622 759.377h10.08M79.694 752.657h6.144M85.838 752.657l-3.264 4.416M82.574 757.073h1.632M84.206 757.073l1.152.576M85.358 757.649l.48.576M85.838 758.225l.576 1.631M86.414 759.857v1.152M86.414 761.009l-.576 1.631M85.838 762.64l-1.056 1.153M84.782 763.793l-1.728.576M83.054 764.368h-1.632M81.422 764.368l-1.728-.576M79.694 763.793l-.48-.576M79.214 763.217l-.576-1.056M47.919 658.768h10.08M62.414 654.835v-.576M62.414 654.262l.576-1.056M62.99 653.209l.577-.576M63.566 652.622l1.056-.576M64.622 652.049h2.304M66.926 652.049l1.056.576M67.982 652.622l.576.576M68.558 653.209l.576 1.056M69.134 654.262v1.152M69.134 655.409l-.576 1.152M68.558 656.569l-1.055 1.631M67.502 658.195l-5.664 5.568M61.838 663.768h7.872M74.126 662.702l-.48.48M73.646 663.182l.48.576M74.126 663.768l.576-.576M74.702 663.182l-.576-.48M85.358 652.049h-5.664M79.694 652.049l-.48 4.992M79.214 657.049l.48-.48M79.694 656.569l1.728-.576M81.422 655.982h1.632M83.054 655.982l1.727.576M84.782 656.569l1.056 1.055M85.838 657.622l.576 1.728M86.414 659.342v1.056M86.414 660.408l-.576 1.728M85.838 662.128l-1.056 1.056M84.782 663.182l-1.728.576M83.054 663.768h-1.632M81.422 663.768l-1.728-.576M79.694 663.182l-.48-.48M79.214 662.702l-.576-1.152M64.622 558.171h10.08M79.214 554.224v-.48M79.214 553.744l.48-1.152M79.694 552.598l.576-.576M80.27 552.024l1.152-.576M81.422 551.451h2.208M83.63 551.451l1.152.576M84.782 552.024l.576.576M85.358 552.598l.48 1.152M85.838 553.744v1.056M85.838 554.811l-.48 1.152M85.358 555.958l-1.152 1.632M84.206 557.584l-5.568 5.568M78.638 563.158h7.776M47.919 457.56h10.08M63.566 453.147l1.056-.576M64.622 452.574l1.728-1.632M66.35 450.934v11.711M74.126 461.493l-.48.576M73.646 462.067l.48.576M74.126 462.653l.576-.576M74.702 462.067l-.576-.576M85.358 450.934h-5.664M79.694 450.934l-.48 4.992M79.214 455.934l.48-.576M79.694 455.347l1.728-.576M81.422 454.774h1.632M83.054 454.774l1.727.576M84.782 455.347l1.056 1.152M85.838 456.507l.576 1.632M86.414 458.133v1.152M86.414 459.293l-.576 1.632M85.838 460.92l-1.056 1.152M84.782 462.067l-1.728.576M83.054 462.653h-1.632M81.422 462.653l-1.728-.576M79.694 462.067l-.48-.576M79.214 461.493l-.576-1.152M64.622 357.056h10.08M80.27 352.536l1.152-.576M81.422 351.963l1.632-1.632M83.054 350.336v11.712M47.919 256.445h10.08M65.198 249.725l-1.631.576M63.566 250.299l-1.152 1.632M62.414 251.939l-.576 2.784M61.838 254.712v1.728M61.838 256.445l.576 2.784M62.414 259.232l1.153 1.632M63.566 260.858l1.632.576M65.198 261.432h1.152M66.35 261.432l1.632-.576M67.982 260.858l1.152-1.632M69.134 259.232l.576-2.784M69.71 256.445v-1.728M69.71 254.712l-.576-2.784M69.134 251.939l-1.152-1.632M67.982 250.299l-1.631-.576M66.35 249.725h-1.152M74.126 260.285l-.48.576M73.646 260.858l.48.576M74.126 261.432l.576-.576M74.702 260.858l-.576-.576M85.358 249.725h-5.664M79.694 249.725l-.48 4.992M79.214 254.712l.48-.48M79.694 254.232l1.728-.576M81.422 253.659h1.632M83.054 253.659l1.727.576M84.782 254.232l1.056 1.056M85.838 255.299l.576 1.728M86.414 257.019v1.055M86.414 258.072l-.576 1.728M85.838 259.805l-1.056 1.056M84.782 260.858l-1.728.576M83.054 261.432h-1.632M81.422 261.432l-1.728-.576M79.694 260.858l-.48-.576M79.214 260.285l-.576-1.056M81.998 149.115l-1.728.576M80.27 149.701l-1.056 1.632M79.214 151.328l-.576 2.88M78.638 154.208v1.632M78.638 155.834l.576 2.784M79.214 158.621l1.056 1.728M80.27 160.354l1.728.48M81.998 160.834h1.056M83.054 160.834l1.727-.48M84.782 160.354l1.056-1.728M85.838 158.621l.576-2.784M86.414 155.834v-1.632M86.414 154.208l-.576-2.88M85.838 151.328l-1.056-1.632M84.782 149.701l-1.728-.576M83.054 149.115h-1.056"/></g><g stroke-width="14.4"><path stroke-width="1.919952" d="M15.856 527.252h14.687M20.751 518.905l.672 1.44M21.423 520.345l1.44 1.344M22.863 521.692l2.017.672M24.88 522.359h1.439M26.32 522.359l2.111-.672M28.431 521.692l1.345-1.344M29.775 520.345l.768-1.44M30.543 518.905v-2.112M30.543 516.785l-.767-1.344M29.775 515.452l-1.344-1.44M28.431 514.012l-2.112-.672M26.32 513.332h-1.44M24.88 513.332l-2.017.672M22.863 514.012l-1.44 1.44M21.423 515.452l-.671 1.344M20.751 516.785v2.112M20.751 500.76h11.136M31.887 500.76l2.112.671M34 501.426l.671.768M34.671 502.199l.768 1.344M35.44 503.546v2.112M35.44 505.652l-.77 1.344M22.863 500.76l-1.44 1.439M21.423 502.199l-.671 1.344M20.751 503.546v2.112M20.751 505.652l.672 1.344M21.423 506.999l1.44 1.44M22.863 508.439l2.017.672M24.88 509.106h1.439M26.32 509.106l2.111-.672M28.431 508.439l1.345-1.44M29.775 506.999l.768-1.344M30.543 505.652v-2.112M30.543 503.546l-.767-1.344M29.775 502.199l-1.344-1.44M20.751 484.053h9.792M23.535 484.053l-2.112-2.112M21.423 481.946l-.671-1.44M20.751 480.506v-2.112M20.751 478.386l.672-1.344M21.423 477.053l2.112-.672M23.535 476.373h7.008M23.535 476.373l-2.112-2.112M21.423 474.266l-.671-1.44M20.751 472.826v-2.112M20.751 470.706l.672-1.343M21.423 469.373l2.112-.672M23.535 468.693h7.008M20.751 455.454h9.792M22.863 455.454l-1.44 1.344M21.423 456.787l-.671 1.44M20.751 458.227v2.016M20.751 460.253l.672 1.44M21.423 461.693l1.44 1.344M22.863 463.027l2.017.768M24.88 463.8h1.439M26.32 463.8l2.111-.768M28.431 463.027l1.345-1.344M29.775 461.693l.768-1.44M30.543 460.253v-2.016M30.543 458.227l-.767-1.44M29.775 456.787l-1.344-1.344M22.863 442.867l-1.44.672M21.423 443.547l-.671 2.112M20.751 445.654v2.112M20.751 447.774l.672 2.016M21.423 449.787l1.44.768M22.863 450.547l1.344-.768M24.207 449.787l.673-1.344M24.88 448.44l.767-3.552M25.647 444.894l.672-1.344M26.32 443.547l1.44-.672M27.76 442.867h.671M28.431 442.867l1.345.672M29.775 443.547l.768 2.112M30.543 445.654v2.112M30.543 447.774l-.767 2.016M29.775 449.787l-1.344.768M22.863 430.974l-1.44.672M21.423 431.64l-.671 2.113M20.751 433.747v2.112M20.751 435.867l.672 2.112M21.423 437.974l1.44.672M22.863 438.654l1.344-.672M24.207 437.974l.673-1.44M24.88 436.534l.767-3.456M25.647 433.08l.672-1.44M26.32 431.64l1.44-.671M27.76 430.974h.671M28.431 430.974l1.345.672M29.775 431.64l.768 2.113M30.543 433.747v2.112M30.543 435.867l-.767 2.112M29.775 437.974l-1.344.672M15.856 410.708v1.44M15.856 412.148l.671 1.344M16.528 413.495l2.112.768M18.64 414.268h11.903M20.751 416.281v-4.8M20.751 406.588h9.792M24.88 406.588l-2.017-.768M22.863 405.815l-1.44-1.344M21.423 404.468l-.671-1.44M20.751 403.028v-2.016M20.751 389.789h9.792M22.863 389.789l-1.44 1.44M21.423 391.228l-.671 1.344M20.751 392.575v2.112M20.751 394.682l.672 1.44M21.423 396.122l1.44 1.344M22.863 397.468l2.017.672M24.88 398.135h1.439M26.32 398.135l2.111-.672M28.431 397.468l1.345-1.344M29.775 396.122l.768-1.44M30.543 394.682v-2.112M30.543 392.575l-.767-1.344M29.775 391.228l-1.344-1.44M22.863 376.536l-1.44 1.44M21.423 377.975l-.671 1.344M20.751 379.322v2.112M20.751 381.429l.672 1.44M21.423 382.869l1.44 1.344M22.863 384.215l2.017.672M24.88 384.895h1.439M26.32 384.895l2.111-.672M28.431 384.215l1.345-1.344M29.775 382.869l.768-1.44M30.543 381.429v-2.112M30.543 379.322l-.767-1.344M29.775 377.975l-1.344-1.44M15.856 370.976h11.903M27.76 370.976l2.015-.672M29.775 370.296l.768-1.44M30.543 368.856v-1.344M20.751 373.082v-4.896M15.856 363.963l.671-.672M16.528 363.296l-.672-.672M15.856 362.616l-.673.672M15.184 363.296l.672.672M20.751 363.296h9.792M20.751 354.936l.672 1.344M21.423 356.283l1.44 1.44M22.863 357.723l2.017.672M24.88 358.39h1.439M26.32 358.39l2.111-.673M28.431 357.723l1.345-1.44M29.775 356.283l.768-1.344M30.543 354.936v-2.112M30.543 352.83l-.767-1.44M29.775 351.39l-1.344-1.344M28.431 350.043l-2.112-.672M26.32 349.376h-1.44M24.88 349.376l-2.017.672M22.863 350.043l-1.44 1.344M21.423 351.39l-.671 1.44M20.751 352.83v2.111M20.751 344.47h9.792M23.535 344.47l-2.112-2.112M21.423 342.363l-.671-1.44M20.751 340.923v-2.016M20.751 338.91l.672-1.44M21.423 337.47l2.112-.672M23.535 336.79h7.008"/></g></g><g stroke="gold"><g stroke-width="28.8"><path stroke-width="3.839904" d="M626.398 182.914h-7.008M619.398 182.914h-6.912M612.478 182.914H602.11M602.118 182.914h-10.367M591.745 182.914h-13.92M577.826 182.914h-13.92M563.906 182.914h-13.824M550.08 182.914h-13.92M536.16 182.914h-6.912M529.253 182.914h-13.92M515.334 182.914H501.51M501.507 182.914h-13.92M487.588 182.914h-13.824M473.761 182.914H463.49M463.495 182.914h-10.368M453.122 182.914l-13.728.096M439.402 183.007h-13.631M425.763 183.007H412.13M412.136 183.007h-13.631M398.497 183.007h-13.44M385.057 183.007h-6.72M378.337 183.007h-13.343M365.004 183.007h-6.72M358.284 183.007h-6.623M351.658 183.007h-6.624M345.031 183.007h-6.527M338.498 183.007h-6.528M331.978 183.007h-6.527M325.445 183.007h-6.528M318.925 183.007h-3.168M315.752 183.007h-3.264M312.486 183.007h-6.432M306.059 183.007h-6.336M299.726 183.007h-6.432M293.286 183.007h-6.24M287.046 183.007h-6.336M280.713 183.007h-6.24M274.473 183.007h-6.144M268.327 183.007h-6.144M262.18 183.007h-6.144M256.047 183.007h-2.976M253.06 183.007h-3.072M249.994 183.007h-5.952M244.047 183.007h-5.952M238.087 183.007h-5.951M232.14 183.007h-5.759M226.381 183.007h-5.76M220.621 183.007h-5.664M214.955 183.007h-5.664M209.288 183.007h-5.568M203.728 183.007h-5.568M198.155 183.007h-2.688M195.462 183.007h-2.688M192.782 183.007h-5.376M187.409 183.007h-5.184M182.222 183.007h-5.28M176.942 183.007h-4.992M171.942 183.007h-4.992M166.956 183.007h-4.896M162.063 183.007h-4.8M157.263 183.007h-4.608M152.65 183.007h-4.608M148.05 183.007h-2.208M145.836 183.007h-4.224M141.61 183.007h-4.224M137.383 183.007h-2.112M135.277 183.007h-2.113M133.165 183.007h-2.112M131.053 183.007h-3.648M127.405 183.007h-3.648M123.757 183.007h-3.552M120.205 183.007h-3.648M116.557 183.007h-1.536M115.021 183.007h-1.536M113.485 183.007h-2.976M110.51 183.007h-2.689M107.821 183.007h-1.632M106.19 183.007h-1.729M104.461 183.007h-1.823M102.637 183.007h-.864M101.773 183.007h-.48M101.293 183.007h-.191M101.101 183.007h-.192M100.91 183.007h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M159.276 163.328v9.695M159.276 168.42l1.44-1.44M160.716 166.98l.864-.383M161.583 166.594h1.44M163.023 166.594l.96.384M163.983 166.98l.48 1.44M164.463 168.42v4.609M169.062 165.154l.96-.48M170.022 164.674l1.344-1.344M171.369 163.328v9.695M290.7 163.328v9.695M290.7 168.42l1.44-1.44M292.14 166.98l.863-.383M293.006 166.594h1.44M294.446 166.594l.864.384M295.3 166.98l.48 1.44M295.78 168.42v4.609M300.486 165.154l.864-.48M301.352 164.674l1.44-1.344M302.792 163.328v9.695M422.123 163.328v9.695M422.123 168.42l1.344-1.44M423.456 166.98l.96-.383M424.416 166.594h1.44M425.856 166.594l.864.384M426.723 166.98l.48 1.44M427.203 168.42v4.609M431.91 165.154l.863-.48M432.776 164.674l1.44-1.344M434.216 163.328v9.695M553.533 163.234v9.792M553.533 168.314l1.344-1.344M554.88 166.98l.96-.48M555.84 166.5h1.343M557.186 166.5l.96.48M558.146 166.98l.48 1.345M558.626 168.314v4.704M563.24 165.06l.96-.48M564.2 164.58l1.44-1.343M565.64 163.234v9.792"/></g></g><g stroke="#87cefa"><g stroke-width="28.8"><path stroke-width="3.839904" d="M626.398 273.151h-7.008M619.398 273.151h-6.912M612.478 273.151H602.11M602.118 273.151h-10.367M591.745 273.151h-13.92M577.826 273.151h-13.92M563.906 273.151h-13.824M550.08 273.151h-13.92M536.16 273.151l-6.912-.096M529.253 273.058h-13.92M515.334 273.058H501.51M501.507 273.058h-13.92M487.588 273.058h-13.824M473.761 273.058H463.49M463.495 273.058h-10.368M453.122 273.058l-13.728-.192M439.402 272.858h-13.631M425.763 272.858H412.13M412.136 272.858h-13.631M398.497 272.858h-13.44M385.057 272.858h-6.72M378.337 272.858h-13.343M365.004 272.858h-6.72M358.284 272.858h-6.623M351.658 272.858h-6.624M345.031 272.858h-6.527M338.498 272.858h-6.528M331.978 272.858h-6.527M325.445 272.858h-6.528M318.925 272.858h-3.168M315.752 272.858h-3.264M312.486 272.858h-6.432M306.059 272.858h-6.336M299.726 272.858h-6.432M293.286 272.858h-6.24M287.046 272.858h-6.336M280.713 272.858h-6.24M274.473 272.858h-6.144M268.327 272.858h-6.144M262.18 272.858h-6.144M256.047 272.858h-2.976M253.06 272.858h-3.072M249.994 272.858h-5.952M244.047 272.858h-5.952M238.087 272.858h-5.951M232.14 272.858h-5.759M226.381 272.858h-5.76M220.621 272.858h-5.664M214.955 272.858h-5.664M209.288 272.858h-5.568M203.728 272.858h-5.568M198.155 272.858h-2.688M195.462 272.858h-2.688M192.782 272.858h-5.376M187.409 272.858h-5.184M182.222 272.858h-5.28M176.942 272.858h-4.992M171.942 272.858h-4.992M166.956 272.858h-4.896M162.063 272.858h-4.8M157.263 272.858h-4.608M152.65 272.858h-4.608M148.05 272.858h-2.208M145.836 272.858h-4.224M141.61 272.858h-4.224M137.383 272.858h-2.112M135.277 272.858h-2.113M133.165 272.858h-2.112M131.053 272.858h-3.648M127.405 272.858h-3.648M123.757 272.858h-3.552M120.205 272.858h-3.648M116.557 272.858h-1.536M115.021 272.858h-1.536M113.485 272.858h-2.976M110.51 272.858h-2.689M107.821 272.858h-1.632M106.19 272.858h-1.729M104.461 272.858h-1.823M102.637 272.858h-.864M101.773 272.858h-.48M101.293 272.858h-.191M101.101 272.858h-.192M100.91 272.858h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M155.143 253.179v9.791M155.143 258.272l1.344-1.344M156.49 256.925l.96-.48M157.45 256.445h1.343M158.796 256.445l.96.48M159.756 256.925l.48 1.344M160.236 258.272v4.704M163.503 259.232h5.567M169.062 259.232v-.96M169.062 258.272l-.48-.96M168.582 257.312l-.48-.384M168.102 256.925l-.864-.48M167.25 256.445h-1.44M165.81 256.445l-.96.48M164.85 256.925l-.865.864M163.983 257.792l-.48 1.44M163.503 259.232v.96M163.503 260.192l.48 1.344M163.983 261.538l.864.96M164.85 262.498l.96.48M165.81 262.978h1.44M167.25 262.978l.863-.48M168.102 262.498l.96-.96M176.556 253.179l-4.704 6.527M171.849 259.712h7.008M176.556 253.179v9.791M286.473 253.179v9.791M286.473 258.272l1.44-1.344M287.913 256.925l.96-.48M288.873 256.445h1.344M290.22 256.445l.96.48M291.18 256.925l.48 1.344M291.66 258.272v4.704M294.926 259.232h5.568M300.486 259.232v-.96M300.486 258.272l-.48-.96M300.006 257.312l-.48-.384M299.526 256.925l-.96-.48M298.566 256.445h-1.344M297.22 256.445l-.96.48M296.26 256.925l-.96.864M295.3 257.792l-.385 1.44M294.926 259.232v.96M294.926 260.192l.384 1.344M295.3 261.538l.96.96M296.26 262.498l.96.48M297.22 262.978h1.343M298.566 262.978l.96-.48M299.526 262.498l.96-.96M307.886 253.179l-4.608 6.527M303.272 259.712h7.008M307.886 253.179v9.791M417.896 253.179v9.791M417.896 258.272l1.44-1.344M419.336 256.925l.864-.48M420.203 256.445h1.44M421.643 256.445l.96.48M422.603 256.925l.384 1.344M422.976 258.272v4.704M426.243 259.232h5.664M431.91 259.232v-.96M431.91 258.272l-.48-.96M431.43 257.312l-.48-.384M430.95 256.925l-.96-.48M429.99 256.445h-1.345M428.643 256.445l-.96.48M427.683 256.925l-.96.864M426.723 257.792l-.48 1.44M426.243 259.232v.96M426.243 260.192l.48 1.344M426.723 261.538l.96.96M427.683 262.498l.96.48M428.643 262.978h1.344M429.99 262.978l.96-.48M430.95 262.498l.96-.96M439.296 253.179l-4.608 6.527M434.696 259.712h6.912M439.296 253.179v9.791M549.32 253.379v9.791M549.32 258.458l1.344-1.343M550.653 257.112l.96-.48M551.613 256.632h1.44M553.053 256.632l.864.48M553.92 257.112l.48 1.344M554.4 258.458v4.704M557.666 259.418h5.568M563.24 259.418v-.96M563.24 258.458l-.48-.864M562.76 257.592l-.385-.48M562.373 257.112l-.96-.48M561.413 256.632h-1.44M559.973 256.632l-.864.48M559.106 257.112l-.96.864M558.146 257.978l-.48 1.44M557.666 259.418v.96M557.666 260.378l.48 1.344M558.146 261.725l.96.96M559.106 262.685l.864.48M559.973 263.165h1.44M561.413 263.165l.96-.48M562.373 262.685l.864-.96M570.72 253.379l-4.705 6.527M566.013 259.898h7.007M570.72 253.379v9.791"/></g></g><g stroke="#c03"><g stroke-width="28.8"><path stroke-width="3.839904" d="m626.398 708.114-7.008-1.632M619.398 706.487l-6.912-2.592M612.478 703.887l-10.368-2.976M602.118 700.914l-10.367-3.264M591.745 697.647l-13.92-3.263M577.826 694.38l-13.92-2.975M563.906 691.408l-13.824-2.592M550.08 688.821l-13.92-1.632M536.16 687.181l-6.912-1.536M529.253 685.648l-13.92-1.632M515.334 684.021l-13.824-1.344M501.507 682.675l-13.92-1.056M487.588 681.621l-13.824-.672M473.761 680.941l-10.271-.48M463.495 680.461l-10.368-.48M453.122 679.981l-13.728-2.784M439.402 677.208h-13.631M425.763 677.208H412.13M412.136 677.208h-13.631M398.497 677.208h-13.44M385.057 677.208h-6.72M378.337 677.208h-13.343M365.004 677.208h-6.72M358.284 677.208h-6.623M351.658 677.208h-6.624M345.031 677.208h-6.527M338.498 677.208h-6.528M331.978 677.208h-6.527M325.445 677.208h-6.528M318.925 677.208h-3.168M315.752 677.208h-3.264M312.486 677.208h-6.432M306.059 677.208h-6.336M299.726 677.208h-6.432M293.286 677.208h-6.24M287.046 677.208h-6.336M280.713 677.208h-6.24M274.473 677.208h-6.144M268.327 677.208h-6.144M262.18 677.208h-6.144M256.047 677.208h-2.976M253.06 677.208h-3.072M249.994 677.208h-5.952M244.047 677.208h-5.952M238.087 677.208h-5.951M232.14 677.208h-5.759M226.381 677.208h-5.76M220.621 677.208h-5.664M214.955 677.208h-5.664M209.288 677.208h-5.568M203.728 677.208h-5.568M198.155 677.208h-2.688M195.462 677.208h-2.688M192.782 677.208h-5.376M187.409 677.208h-5.184M182.222 677.208h-5.28M176.942 677.208h-4.992M171.942 677.208h-4.992M166.956 677.208h-4.896M162.063 677.208h-4.8M157.263 677.208h-4.608M152.65 677.208h-4.608M148.05 677.208h-2.208M145.836 677.208h-4.224M141.61 677.208h-4.224M137.383 677.208h-2.112M135.277 677.208h-2.113M133.165 677.208h-2.112M131.053 677.208h-3.648M127.405 677.208h-3.648M123.757 677.208h-3.552M120.205 677.208h-3.648M116.557 677.208h-1.536M115.021 677.208h-1.536M113.485 677.208h-2.976M110.51 677.208h-2.689M107.821 677.208h-1.632M106.19 677.208h-1.729M104.461 677.208h-1.823M102.637 677.208h-.864M101.773 677.208h-.48M101.293 677.208h-.191M101.101 677.208h-.192M100.91 677.208h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="M154.663 660.688v6.528M154.663 662.608l1.344-1.44M156.01 661.168l.96-.48M156.97 660.688h1.44M158.41 660.688l.863.48M159.276 661.168l.48 1.44M159.756 662.608v4.608M164.463 659.342l.864-.48M165.33 658.862l1.44-1.44M166.77 657.422v9.792M176.942 657.422l-4.608 6.528M172.329 663.955h7.008M176.942 657.422v9.792M286.086 660.688v6.528M286.086 662.608l1.344-1.44M287.433 661.168l.96-.48M288.393 660.688h1.344M289.74 660.688l.96.48M290.7 661.168l.48 1.44M291.18 662.608v4.608M295.78 659.342l.96-.48M296.74 658.862l1.44-1.44M298.18 657.422v9.792M308.366 657.422l-4.608 6.528M303.752 663.955h6.912M308.366 657.422v9.792M417.416 660.688v6.528M417.416 662.608l1.44-1.44M418.856 661.168l.96-.48M419.816 660.688h1.344M421.163 660.688l.96.48M422.123 661.168l.48 1.44M422.603 662.608v4.608M427.203 659.342l.96-.48M428.163 658.862l1.344-1.44M429.51 657.422v9.792M439.776 657.422l-4.704 6.528M435.082 663.955h7.008M439.776 657.422v9.792M548.84 674.328v6.528M548.84 676.141l1.44-1.344M550.28 674.808l.864-.48M551.133 674.328h1.44M552.573 674.328l.96.48M553.533 674.808l.384 1.344M553.92 676.141v4.704M558.626 672.981l.96-.48M559.586 672.501l1.344-1.44M560.933 671.061v9.792M571.2 671.061l-4.705 6.528M566.493 677.581h7.007M571.2 671.061v9.792"/></g></g><g stroke="#daa520"><g stroke-width="28.8"><path stroke-width="3.839904" d="M626.398 623.93h-7.008M619.398 623.93h-6.912M612.478 623.93H602.11M602.118 623.93h-10.367M591.745 623.93h-13.92M577.826 623.93h-13.92M563.906 623.93h-13.824M550.08 623.93h-13.92M536.16 623.93h-6.912M529.253 623.93h-13.92M515.334 623.93H501.51M501.507 623.93h-13.92M487.588 623.93h-13.824M473.761 623.93H463.49M463.495 623.93h-10.368M453.122 623.93l-13.728 1.247M439.402 625.17h-13.631M425.763 625.17H412.13M412.136 625.17h-13.631M398.497 625.17h-13.44M385.057 625.17h-6.72M378.337 625.17h-13.343M365.004 625.17h-6.72M358.284 625.17h-6.623M351.658 625.17h-6.624M345.031 625.17h-6.527M338.498 625.17h-6.528M331.978 625.17h-6.527M325.445 625.17h-6.528M318.925 625.17h-3.168M315.752 625.17h-3.264M312.486 625.17h-6.432M306.059 625.17h-6.336M299.726 625.17h-6.432M293.286 625.17h-6.24M287.046 625.17h-6.336M280.713 625.17h-6.24M274.473 625.17h-6.144M268.327 625.17h-6.144M262.18 625.17h-6.144M256.047 625.17h-2.976M253.06 625.17h-3.072M249.994 625.17h-5.952M244.047 625.17h-5.952M238.087 625.17h-5.951M232.14 625.17h-5.759M226.381 625.17h-5.76M220.621 625.17h-5.664M214.955 625.17h-5.664M209.288 625.17h-5.568M203.728 625.17h-5.568M198.155 625.17h-2.688M195.462 625.17h-2.688M192.782 625.17h-5.376M187.409 625.17h-5.184M182.222 625.17h-5.28M176.942 625.17h-4.992M171.942 625.17h-4.992M166.956 625.17h-4.896M162.063 625.17h-4.8M157.263 625.17h-4.608M152.65 625.17h-4.608M148.05 625.17h-2.208M145.836 625.17h-4.224M141.61 625.17h-4.224M137.383 625.17h-2.112M135.277 625.17h-2.113M133.165 625.17h-2.112M131.053 625.17h-3.648M127.405 625.17h-3.648M123.757 625.17h-3.552M120.205 625.17h-3.648M116.557 625.17h-1.536M115.021 625.17h-1.536M113.485 625.17h-2.976M110.51 625.17h-2.689M107.821 625.17h-1.632M106.19 625.17h-1.729M104.461 625.17h-1.823M102.637 625.17h-.864M101.773 625.17h-.48M101.293 625.17h-.191M101.101 625.17h-.192M100.91 625.17h-.096"/></g><g stroke-width="3.6"><path stroke-width=".479988" d="m156.49 608.663-.96.48M155.53 609.143l-.865.96M154.663 610.103l-.48 1.344M154.183 611.45v.96M154.183 612.41l.48 1.344M154.663 613.743l.864.96M155.53 614.703l.96.48M156.49 615.183h1.44M157.93 615.183l.863-.48M158.796 614.703l.96-.96M159.756 613.743l.48-1.344M160.236 612.41v-.96M160.236 611.45l-.48-1.344M159.756 610.103l-.96-.96M158.796 609.143l-.864-.48M157.93 608.663h-1.44M164.463 607.223l.864-.384M165.33 606.836l1.44-1.44M166.77 605.396v9.792M178.382 606.836l-.48-.96M177.902 605.876l-1.344-.48M176.556 605.396h-.96M175.596 605.396l-1.44.48M174.156 605.876l-.864 1.344M173.289 607.223l-.48 2.4M172.809 609.623v2.304M172.809 611.93l.48 1.824M173.289 613.743l.864.96M174.156 614.703l1.44.48M175.596 615.183h.48M176.076 615.183l1.344-.48M177.422 614.703l.96-.96M178.382 613.743l.48-1.344M178.862 612.41v-.48M178.862 611.93l-.48-1.44M178.382 610.49l-.96-.864M177.422 609.623l-1.344-.48M176.076 609.143h-.48M175.596 609.143l-1.44.48M174.156 609.623l-.864.864M173.289 610.49l-.48 1.44M287.913 608.663l-.96.48M286.953 609.143l-.864.96M286.086 610.103l-.48 1.344M285.606 611.45v.96M285.606 612.41l.48 1.344M286.086 613.743l.864.96M286.953 614.703l.96.48M287.913 615.183h1.344M289.26 615.183l.96-.48M290.22 614.703l.96-.96M291.18 613.743l.48-1.344M291.66 612.41v-.96M291.66 611.45l-.48-1.344M291.18 610.103l-.96-.96M290.22 609.143l-.96-.48M289.26 608.663h-1.345M295.78 607.223l.96-.384M296.74 606.836l1.44-1.44M298.18 605.396v9.792M309.806 606.836l-.48-.96M309.326 605.876l-1.44-.48M307.886 605.396h-.864M307.019 605.396l-1.44.48M305.579 605.876l-.96 1.344M304.62 607.223l-.385 2.4M304.232 609.623v2.304M304.232 611.93l.384 1.824M304.62 613.743l.959.96M305.579 614.703l1.44.48M307.019 615.183h.384M307.406 615.183l1.44-.48M308.846 614.703l.96-.96M309.806 613.743l.48-1.344M310.286 612.41v-.48M310.286 611.93l-.48-1.44M309.806 610.49l-.96-.864M308.846 609.623l-1.44-.48M307.406 609.143h-.384M307.019 609.143l-1.44.48M305.579 609.623l-.96.864M304.62 610.49l-.385 1.44M419.336 608.663l-.96.48M418.376 609.143l-.96.96M417.416 610.103l-.48 1.344M416.936 611.45v.96M416.936 612.41l.48 1.344M417.416 613.743l.96.96M418.376 614.703l.96.48M419.336 615.183h1.344M420.683 615.183l.96-.48M421.643 614.703l.96-.96M422.603 613.743l.384-1.344M422.976 612.41v-.96M422.976 611.45l-.384-1.344M422.603 610.103l-.96-.96M421.643 609.143l-.96-.48M420.683 608.663h-1.344M427.203 607.223l.96-.384M428.163 606.836l1.344-1.44M429.51 605.396v9.792M441.122 606.836l-.384-.96M440.736 605.876l-1.44-.48M439.296 605.396h-.96M438.336 605.396l-1.344.48M437.002 605.876l-.96 1.344M436.042 607.223l-.48 2.4M435.562 609.623v2.304M435.562 611.93l.48 1.824M436.042 613.743l.96.96M437.002 614.703l1.344.48M438.336 615.183h.48M438.816 615.183l1.44-.48M440.256 614.703l.864-.96M441.122 613.743l.48-1.344M441.602 612.41v-.48M441.602 611.93l-.48-1.44M441.122 610.49l-.864-.864M440.256 609.623l-1.44-.48M438.816 609.143h-.48M438.336 609.143l-1.344.48M437.002 609.623l-.96.864M436.042 610.49l-.48 1.44M550.653 607.41l-.864.48M549.8 607.89l-.96.96M548.84 608.85l-.48 1.344M548.36 610.196v.96M548.36 611.156l.48 1.44M548.84 612.596l.96.864M549.8 613.463l.864.48M550.653 613.943h1.44M552.093 613.943l.96-.48M553.053 613.463l.864-.864M553.92 612.596l.48-1.44M554.4 611.156v-.96M554.4 610.196l-.48-1.344M553.92 608.85l-.864-.96M553.053 607.89l-.96-.48M552.093 607.41h-1.44M558.626 606.063l.96-.48M559.586 605.583l1.344-1.44M560.933 604.143v9.792M572.546 605.583l-.48-.96M572.066 604.623l-1.344-.48M570.72 604.143h-.96M569.76 604.143l-1.345.48M568.412 604.623l-.96 1.44M567.452 606.063l-.48 2.304M566.972 608.37v2.304M566.972 610.676l.48 1.92M567.452 612.596l.96.864M568.412 613.463l1.344.48M569.76 613.943h.48M570.24 613.943l1.439-.48M571.679 613.463l.864-.864M572.546 612.596l.48-1.44M573.026 611.156v-.48M573.026 610.676l-.48-1.344M572.546 609.33l-.864-.96M571.679 608.37l-1.44-.48M570.24 607.89h-.48M569.76 607.89l-1.345.48M568.412 608.37l-.96.96M567.452 609.33l-.478 1.344"/></g></g><path stroke="#2e8b57" stroke-width="4.79988" d="M626.398 768.304H439.389"/><path stroke="#87cefa" stroke-width="4.79988" d="M425.763 768.304H100.81"/><g stroke="#fff"><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M753.594 768.976h525.587M1279.181 768.976V95.073M1279.181 95.076H753.594M753.594 95.076v673.903M753.594 768.976v-4.224M806.113 768.976v-8.351M858.712 768.976v-4.224M911.23 768.976v-8.351M963.83 768.976v-4.224M1016.441 768.976v-8.351M1068.947 768.976v-4.224M1121.559 768.976v-8.351M1174.064 768.976v-4.224M1226.676 768.976v-8.351M1279.181 768.976v-4.224M753.594 99.302V95.08M806.113 103.422v-8.351M858.712 99.302V95.08M911.23 103.422v-8.351M963.83 99.302V95.08M1016.441 103.422v-8.351M1068.947 99.302V95.08M1121.559 103.422v-8.351M1174.064 99.302V95.08M1226.676 103.422v-8.351M1279.181 99.302V95.08M799.487 779.056l-5.568 7.776M793.913 786.832h8.352M799.487 779.056v11.712M806.113 789.616l-.48.576M805.633 790.192l.48.576M806.113 790.768l.576-.576M806.686 790.192l-.575-.576M816.193 779.056l-5.568 7.776M810.62 786.832h8.352M816.193 779.056v11.712M904.604 779.056l-5.568 7.776M899.03 786.832h8.353M904.604 779.056v11.712M911.23 789.616l-.48.576M910.75 790.192l.48.576M911.23 790.768l.577-.576M911.804 790.192l-.576-.576M916.31 781.84v-.576M916.31 781.264l.576-1.151M916.884 780.112l.48-.576M917.364 779.536l1.152-.48M918.524 779.056h2.208M920.724 779.056l1.152.48M921.884 779.536l.576.576M922.457 780.112l.576 1.152M923.03 781.264v1.152M923.03 782.416l-.576 1.056M922.457 783.472l-1.152 1.728M921.31 785.2l-5.568 5.568M915.737 790.768h7.776M1018.068 779.056l-5.568 7.776M1012.508 786.832h8.352M1018.068 779.056v11.712M1110.319 779.056h6.144M1116.465 779.056l-3.36 4.416M1113.106 783.472h1.727M1114.839 783.472l1.056.576M1115.892 784.048l.576.576M1116.465 784.624l.576 1.632M1117.039 786.256v1.152M1117.039 787.408l-.576 1.632M1116.465 789.04l-1.056 1.152M1115.412 790.192l-1.728.576M1113.679 790.768h-1.632M1112.052 790.768l-1.728-.576M1110.319 790.192l-.576-.576M1109.746 789.616l-.48-1.056M1121.559 789.616l-.576.576M1120.985 790.192l.576.576M1121.559 790.768l.48-.576M1122.039 790.192l-.48-.576M1128.758 779.056l-1.632.48M1127.118 779.536l-.575 1.152M1126.545 780.688v1.152M1126.545 781.84l.576 1.056M1127.118 782.896l1.056.576M1128.185 783.472l2.304.576M1130.478 784.048l1.632.576M1132.118 784.624l1.152 1.056M1133.265 785.68l.48 1.152M1133.745 786.832v1.728M1133.745 788.56l-.48 1.056M1133.265 789.616l-.576.576M1132.692 790.192l-1.728.576M1130.958 790.768h-2.208M1128.758 790.768l-1.632-.576M1127.118 790.192l-.575-.576M1126.545 789.616l-.576-1.056M1125.972 788.56v-1.728M1125.972 786.832l.576-1.152M1126.545 785.68l1.056-1.056M1127.598 784.624l1.728-.576M1129.332 784.048l2.208-.576M1131.545 783.472l1.15-.576M1132.692 782.896l.574-1.056M1133.265 781.84v-1.152M1133.265 780.688l-.576-1.151M1132.692 779.536l-1.728-.48M1130.958 779.056h-2.209M1215.436 779.056h6.144M1221.583 779.056l-3.36 4.416M1218.223 783.472h1.728M1219.956 783.472l1.056.576M1221.01 784.048l.575.576M1221.583 784.624l.576 1.632M1222.156 786.256v1.152M1222.156 787.408l-.576 1.632M1221.583 789.04l-1.056 1.152M1220.53 790.192l-1.728.576M1218.796 790.768h-1.632M1217.17 790.768l-1.728-.576M1215.436 790.192l-.576-.576M1214.863 789.616l-.479-1.056M1226.676 789.616l-.576.576M1226.103 790.192l.576.576M1226.676 790.768l.48-.576M1227.156 790.192l-.48-.576M1238.382 780.688l-.576-1.152M1237.81 779.536l-1.729-.48M1236.076 779.056h-1.056M1235.022 779.056l-1.727.48M1233.303 779.536l-1.056 1.728M1232.236 781.264l-.576 2.784M1231.663 784.048v2.784M1231.663 786.832l.576 2.208M1232.236 789.04l1.056 1.152M1233.303 790.192l1.727.576M1235.022 790.768h.576M1235.596 790.768l1.632-.576M1237.236 790.192l1.152-1.152M1238.382 789.04l.48-1.632M1238.862 787.408v-.576M1238.862 786.832l-.48-1.632M1238.382 785.2l-1.152-1.152M1237.236 784.048l-1.632-.576M1235.596 783.472h-.576M1235.022 783.472l-1.727.576M1233.303 784.048l-1.056 1.152M1232.236 785.2l-.576 1.632M753.594 768.976h8.352M753.594 735.281h4.224M753.594 701.58h4.224M753.594 667.888h4.224M753.594 634.196h4.224M753.594 600.503h8.352M753.594 566.81h4.224M753.594 533.105h4.224M753.594 499.412h4.224M753.594 465.72h4.224M753.594 432.027h8.352M753.594 398.335h4.224M753.594 364.63h4.224M753.594 330.937h4.224M753.594 297.244h4.224M753.594 263.552h8.352M753.594 229.86h4.224M753.594 196.153h4.224M753.594 162.46h4.224M753.594 128.768h4.224M753.594 95.076h8.352M1270.835 768.976h8.352M1274.955 735.281h4.224M1274.955 701.58h4.224M1274.955 667.888h4.224M1274.955 634.196h4.224M1270.835 600.503h8.352M1274.955 566.81h4.224M1274.955 533.105h4.224M1274.955 499.412h4.224M1274.955 465.72h4.224M1270.835 432.027h8.352M1274.955 398.335h4.224M1274.955 364.63h4.224M1274.955 330.937h4.224M1274.955 297.244h4.224M1270.835 263.552h8.352M1274.955 229.86h4.224M1274.955 196.153h4.224M1274.955 162.46h4.224M1274.955 128.768h4.224M1270.835 95.076h8.352M733.048 764.944l1.152-.576M734.208 764.368l1.632-1.631M735.835 762.737v11.711M716.355 596.463l1.056-.576M717.409 595.89l1.728-1.632M719.129 594.263v11.712M726.915 604.823l-.48.576M726.435 605.396l.48.576M726.915 605.97l.576-.576M727.488 605.396l-.576-.576M738.142 594.263h-5.664M732.475 594.263l-.48 4.992M731.995 599.25l.48-.576M732.475 598.677l1.728-.576M734.208 598.103h1.632M735.835 598.103l1.728.576M737.568 598.677l1.056 1.152M738.622 599.823l.576 1.632M739.195 601.463v1.152M739.195 602.61l-.576 1.632M738.622 604.25l-1.056 1.152M737.568 605.396l-1.728.576M735.835 605.97h-1.632M734.208 605.97l-1.728-.576M732.475 605.396l-.48-.576M731.995 604.823l-.576-1.152M731.995 428.574v-.576M731.995 427.988l.48-1.152M732.475 426.84l.576-.575M733.048 426.268l1.152-.48M734.208 425.788h2.208M736.408 425.788l1.152.48M737.568 426.268l.576.576M738.142 426.84l.48 1.153M738.622 427.988v1.056M738.622 429.054l-.48 1.152M738.142 430.2l-1.152 1.729M736.995 431.934l-5.568 5.568M731.422 437.494h7.776M715.195 260.098v-.576M715.195 259.512l.576-1.152M715.769 258.365l.576-.576M716.355 257.792l1.056-.48M717.409 257.312h2.304M719.715 257.312l1.056.48M720.769 257.792l.576.576M721.342 258.365l.576 1.152M721.915 259.512v1.056M721.915 260.578l-.576 1.152M721.342 261.725l-1.056 1.728M720.289 263.458l-5.664 5.568M714.622 269.018h7.872M726.915 267.872l-.48.576M726.435 268.445l.48.576M726.915 269.018l.576-.576M727.488 268.445l-.576-.576M738.142 257.312h-5.664M732.475 257.312l-.48 4.992M731.995 262.298l.48-.576M732.475 261.725l1.728-.576M734.208 261.152h1.632M735.835 261.152l1.728.576M737.568 261.725l1.056 1.152M738.622 262.872l.576 1.632M739.195 264.512v1.152M739.195 265.658l-.576 1.632M738.622 267.298l-1.056 1.152M737.568 268.445l-1.728.576M735.835 269.018h-1.632M734.208 269.018l-1.728-.576M732.475 268.445l-.48-.576M731.995 267.872l-.576-1.152M732.475 88.836h6.144M738.622 88.836l-3.264 4.416M735.355 93.25h1.632M736.995 93.25l1.152.575M738.142 93.823l.48.576M738.622 94.396l.576 1.632M739.195 96.036v1.152M739.195 97.183l-.576 1.631M738.622 98.822l-1.056 1.152M737.568 99.97l-1.728.575M735.835 100.542h-1.632M734.208 100.542l-1.728-.576M732.475 99.97l-.48-.577M731.995 99.396l-.576-1.152"/></g><g stroke-width="14.4"><path stroke-width="1.919952" d="M977.269 804.207v14.688M985.722 809.103l-1.44.672M984.282 809.775l-1.344 1.44M982.935 811.215l-.768 2.112M982.162 813.327v1.345M982.162 814.671l.768 2.112M982.935 816.783l1.344 1.344M984.282 818.127l1.44.768M985.722 818.895h2.016M987.735 818.895l1.44-.768M989.175 818.127l1.44-1.344M990.615 816.783l.672-2.112M991.282 814.671v-1.344M991.282 813.327l-.672-2.112M990.615 811.215l-1.44-1.44M989.175 809.775l-1.44-.672M987.735 809.103h-2.016M1003.868 809.103v11.136M1003.868 820.24l-.768 2.11M1003.095 822.351l-.672.672M1002.428 823.023l-1.344.768M1001.082 823.791h-2.112M998.962 823.791l-1.44-.768M1003.868 811.215l-1.44-1.44M1002.428 809.775l-1.344-.671M1001.082 809.103h-2.112M998.962 809.103l-1.44.673M997.522 809.775l-1.344 1.44M996.188 811.215l-.768 2.112M995.415 813.327v1.345M995.415 814.671l.768 2.112M996.188 816.783l1.344 1.344M997.522 818.127l1.44.768M998.962 818.895h2.112M1001.082 818.895l1.344-.768M1002.428 818.127l1.44-1.344M1023.348 804.207v14.688M1018.455 804.207h9.791M1031.028 813.327h8.351M1039.387 813.327v-1.44M1039.387 811.887l-.672-1.344M1038.707 810.543l-.672-.768M1038.04 809.775l-1.44-.671M1036.6 809.103h-2.015M1034.587 809.103l-1.44.672M1033.148 809.775l-1.44 1.44M1031.708 811.215l-.672 2.112M1031.028 813.327v1.345M1031.028 814.671l.672 2.112M1031.708 816.783l1.44 1.344M1033.148 818.127l1.44.768M1034.587 818.895h2.016M1036.6 818.895l1.44-.768M1038.04 818.127l1.345-1.344M1048.507 804.207h-1.44M1047.067 804.207l-1.344.672M1045.72 804.88l-.671 2.111M1045.04 806.991v11.904M1042.934 809.103h4.896M1056.854 804.207h-1.344M1055.507 804.207l-1.44.672M1054.067 804.88l-.672 2.111M1053.4 806.991v11.904M1051.28 809.103h4.896M668.637 476.093h14.687M673.53 467.64l.672 1.44M674.21 469.08l1.44 1.44M675.65 470.52l2.016.672M677.663 471.186h1.44M679.103 471.186l2.112-.671M681.21 470.52l1.344-1.44M682.556 469.08l.768-1.44M683.33 467.64v-2.016M683.33 465.627l-.768-1.44M682.556 464.187l-1.344-1.344M681.21 462.84l-2.112-.768M679.103 462.067h-1.44M677.663 462.067l-2.016.768M675.65 462.84l-1.44 1.344M674.21 464.187l-.672 1.44M673.53 465.627v2.016M673.53 449.494h11.136M684.676 449.494l2.112.768M686.783 450.267l.672.672M687.45 450.934l.767 1.44M688.223 452.374v2.016M688.223 454.387l-.768 1.44M675.65 449.494l-1.44 1.44M674.21 450.934l-.672 1.44M673.53 452.374v2.016M673.53 454.387l.672 1.44M674.21 455.827l1.44 1.344M675.65 457.174l2.016.767M677.663 457.947h1.44M679.103 457.947l2.112-.768M681.21 457.174l1.344-1.344M682.556 455.827l.768-1.44M683.33 454.387v-2.016M683.33 452.374l-.768-1.44M682.556 450.934l-1.344-1.44M668.637 432.787h14.687M683.33 432.787v-8.351M665.85 409.748l22.367 12.576M668.637 405.535h14.687M683.33 405.535v-8.352M680.636 390.269l.576 1.535M681.21 391.802l1.056 1.536M682.276 393.335l1.536 1.056M683.81 394.388l1.536.576M685.343 394.975h1.632M686.97 394.975l1.535-.576M688.516 394.388l1.536-1.056M690.05 393.335l1.055-1.536M691.103 391.802l.576-1.536M691.676 390.269v-1.632M691.676 388.629l-.576-1.536M691.103 387.095l-1.056-1.536M690.05 385.562l-1.537-1.056M688.516 384.509l-1.536-.576M686.97 383.935h-1.632M685.343 383.935l-1.536.576M683.81 384.509l-1.536 1.056M682.276 385.562l-1.056 1.536M681.21 387.095l-.576 1.536M680.636 388.629v1.632M685.343 389.695l.576.576M685.916 390.269h.48M686.396 390.269l.576-.576M686.97 389.695v-.48M686.97 389.215l-.576-.576M686.396 388.629h-.48M685.916 388.629l-.576.576M685.343 389.215v.48M685.916 389.695h.48M686.396 389.695v-.48M686.396 389.215h-.48M685.916 389.215v.48"/></g></g><g stroke="teal" stroke-width="28.8"><path stroke-width="3.839904" d="M1180.21 326.23v-.096M1180.21 326.137h-.096M1180.117 326.137h.096M1180.21 326.137v.096M1180.21 326.23h-.096M1180.117 326.23v.096M1180.117 326.337v.096M1180.117 326.43v.096M1180.117 326.523v.096M1180.117 326.617v.096M1180.117 326.71v.096M1180.117 326.817v.192M1180.117 327.003v.192M1180.117 327.19l-.096.192M1180.024 327.39v.192M1180.024 327.577v.288M1180.024 327.87v.384M1180.024 328.257l-.096.384M1179.917 328.63v.48M1179.917 329.11l-.096.576M1179.824 329.697l-.096.672M1179.73 330.363v.864M1179.73 331.23l-.095.96M1179.637 332.19l-.192 1.152M1179.437 333.337l-.096 1.44M1179.344 334.777l-.192 1.632M1179.157 336.417l-.096 1.823M1179.064 338.23l-.288 2.208M1178.77 340.443l-.191 2.592M1178.584 343.03l-.288 2.976M1178.29 346.016l-.385 3.552M1177.904 349.563l-.384 3.936M1177.517 353.496l-.382 4.608M1177.144 358.11l-.481 5.28M1176.664 363.39l-.67 5.663M1175.984 369.056l-.577 6.528M1175.41 375.576l-.67 7.2M1174.744 382.775l-.672 7.968M1174.064 390.748l-.77 8.64M1173.304 399.388l-.767 8.544M1172.53 407.935l-.671 7.296M1171.864 415.228l-.672 7.968M1171.184 423.188l-.768 8.447M1170.424 431.64l-.768 8.257M1169.65 439.894l-.671 6.912M1168.984 446.814l-.672 7.488M1168.304 454.294l-.672 7.583M1167.637 461.88l-.672 6.336M1166.957 468.213l-.671 6.816M1166.29 475.026l-.671 6.912M1165.624 481.946l-.672 5.76M1164.944 487.706l-.672 6.048M1164.278 493.746l-.672 6.048M1163.598 499.8l-.768 4.799M1162.838 504.599l-.672 4.992M1162.158 509.586l-.864 4.607M1161.304 514.199l-.672 3.264M1160.624 517.465l-.768 2.496M1159.864 519.959l-.768 2.208M1159.091 522.172l-1.056 1.152M1158.038 523.319l-.864-.192M1157.171 523.132l-.96-1.44M1156.211 521.692l-.96-2.592M1155.251 519.092l-1.248-4.799M1153.998 514.292l-1.632-7.968M1152.371 506.332l-1.536-9.023M1150.838 497.306l-1.632-9.504M1149.198 487.8l-1.728-9.12M1147.478 478.68l-1.824-8.352M1145.651 470.333l-1.824-7.776M1143.825 462.547l-2.112-7.488M1141.718 455.067l-2.4-7.39M1139.318 447.667l-2.784-7.488M1136.532 440.187l-3.552-7.68M1132.985 432.507l-4.8-7.966M1128.185 424.534l-5.664-8.063M1122.519 416.468l-6.144-8.257M1116.372 408.215l-6.048-8.064M1110.319 400.148l-2.976-4.126M1107.346 396.028l-2.976-4.128M1104.372 391.895l-3.648-4.896M1100.72 387.002l-4.415-5.952M1096.306 381.055l-5.377-7.103M1090.933 373.949l-6.24-8.065M1084.693 365.882l-5.856-7.582M1078.84 358.296l-5.664-7.296M1073.173 351.003l-5.664-7.2M1067.507 343.803l-5.57-7.01M1061.947 336.79l-5.472-6.815M1056.467 329.977l-5.472-6.624M1051 323.35l-5.473-6.528M1045.52 316.83l-5.471-6.433M1040.054 310.39l-5.376-6.142M1034.68 304.257l-5.471-5.952M1029.2 298.297l-5.375-5.857M1023.828 292.444l-5.376-5.662M1018.455 286.778l-5.279-5.376M1013.175 281.405l-5.376-5.28M1007.801 276.125l-5.28-5.088M1002.522 271.031l-5.279-4.895M997.242 266.138l-5.281-4.609M991.962 261.538l-5.183-4.511M986.775 257.019l-6.145-4.8M980.629 252.219l-6.528-4.895M974.109 247.325l-5.761-4.223M968.35 243.099l-5.473-3.745M962.87 239.352l-5.183-3.36M957.696 235.992l-5.857-3.264M951.83 232.74l-5.952-2.689M945.883 230.046l-5.184-1.919M940.696 228.126l-5.087-.768M935.603 227.353l-5.182 1.152M930.43 228.513l-4.417 3.647M926.004 232.152l-3.648 5.952M922.364 238.112l-2.976 7.296M919.39 245.405l-3.742 5.472M915.644 250.872l-3.936 3.936M911.71 254.819l-2.975 4.607M908.737 259.418l-1.536 6.624M907.19 266.045l-.097 8.064M907.097 274.111l.864 7.584"/></g><g stroke="#c03" stroke-width="28.8"><path stroke-width="3.839904" d="m906.617 275.165-2.592 1.344M904.03 276.511l-1.343 1.248M902.684 277.751l-1.248 2.592M901.43 280.351v2.592M901.43 282.938l1.249 2.688M902.684 285.631l1.344 1.248M904.03 286.871l2.593 1.344M906.617 288.218h2.592M909.204 288.218l2.592-1.344M911.804 286.871l1.344-1.248M913.15 285.631l1.248-2.688M914.39 282.938v-2.592M914.39 280.351l-1.247-2.592M913.15 277.751l-1.343-1.248M911.804 276.511l-2.592-1.344M909.204 275.165h-2.592"/></g></g></svg>
\ No newline at end of file
diff --git a/star/test_suite/make_zams/inlist_zams b/star/test_suite/make_zams/inlist_zams
index 0061b07db..037803e28 100644
--- a/star/test_suite/make_zams/inlist_zams
+++ b/star/test_suite/make_zams/inlist_zams
@@ -10,6 +10,9 @@
       save_model_filename = 'zams.mod'
       required_termination_code_string = 'Lnuc_div_L_zams_limit'
 
+      pgstar_flag = .true. 
+      save_pgstar_files_when_terminate = .true.
+
 / ! end of star_job namelist
 
 &eos
@@ -18,7 +21,6 @@
 
 &kap
       Zbase = 0.01d0
-
       kap_file_prefix = 'gs98'
 
 / ! end of kap namelist
@@ -46,3 +48,147 @@
 
 / ! end of controls namelist
 
+&pgstar
+
+
+  file_device = 'vcps'          ! postscript
+  file_extension = 'ps'
+
+  pgstar_interval = 10
+
+  Abundance_win_flag = .false.
+  Abundance_win_width = 15
+  Abundance_win_aspect_ratio = 0.75
+
+  Abundance_title = ''
+  Abundance_num_isos_to_show = 6
+
+  Abundance_which_isos_to_show(1)  = 'h1'
+  Abundance_which_isos_to_show(2)  = 'he3'
+  Abundance_which_isos_to_show(3)  = 'he4'
+  Abundance_which_isos_to_show(4)  = 'c12'
+  Abundance_which_isos_to_show(5)  = 'n14'
+  Abundance_which_isos_to_show(6)  = 'o16'
+
+  num_abundance_line_labels = 4
+  Abundance_line_txt_scale_factor = 1.0
+  Abundance_legend_max_cnt = 0
+
+  Abundance_xaxis_name = 'mass'
+  Abundance_xaxis_reversed = .false.
+  Abundance_xmin = 0.0
+  Abundance_xmax = 1.0
+
+  Abundance_log_mass_frac_min = -3.0
+  Abundance_log_mass_frac_max =  0.3
+
+
+  HR_win_flag = .false.
+  HR_win_width = 12
+  HR_win_aspect_ratio = 1.2 ! aspect_ratio = height/width
+  HR_title = ''
+
+  HR_logT_min = 3.5
+  HR_logT_max = 4.5
+  HR_logL_min = 1.0
+  HR_logL_max = 3.0
+
+
+  Text_Summary1_win_flag = .false.
+  Text_Summary1_win_width = 10
+  Text_Summary1_win_aspect_ratio = 0.15
+
+  Text_Summary1_xleft = 0.01
+  Text_Summary1_xright = 0.99
+  Text_Summary1_ybot = 0.0
+  Text_Summary1_ytop = 1.0
+  Text_Summary1_txt_scale = 1.0
+
+  Text_Summary1_num_rows = 1 ! <= 20
+  Text_Summary1_num_cols = 3 ! <= 20
+  Text_Summary1_name(:,:) = ''
+
+  Text_Summary1_name(1,1) = 'star_mass'
+  Text_Summary1_name(1,2) = 'log_LH'
+  Text_Summary1_name(1,3) = 'num_zones'
+
+  Grid1_title = 'make_zams'
+  Grid1_win_flag = .false.
+  Grid1_win_width = 15
+  Grid1_win_aspect_ratio = 0.6
+
+  Grid1_plot_name(:) = ''
+  Grid1_plot_row(:) = 1           ! number from 1 at top
+  Grid1_plot_rowspan(:) = 1       ! plot spans this number of rows
+  Grid1_plot_col(:) =  1          ! number from 1 at left
+  Grid1_plot_colspan(:) = 1       ! plot spans this number of columns
+  Grid1_plot_pad_left(:) = 0.0    ! fraction of full window width for padding on left
+  Grid1_plot_pad_right(:) = 0.0   ! fraction of full window width for padding on right
+  Grid1_plot_pad_top(:) = 0.0     ! fraction of full window height for padding at top
+  Grid1_plot_pad_bot(:) = 0.0     ! fraction of full window height for padding at bottom
+  Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this
+
+  Grid1_num_cols = 6 ! divide plotting region into this many equal width cols
+  Grid1_num_rows = 2 ! divide plotting region into this many equal height rows
+  Grid1_num_plots = 10 ! <= 10
+
+   pgstar_show_model_number = .true.
+   pgstar_model_scale = 1.0
+   pgstar_model_lw = 3
+   pgstar_model_disp = 2.0
+   pgstar_model_coord = 0.92
+   pgstar_model_fjust = 1.0
+
+   pgstar_show_age = .true.
+   pgstar_age_scale = 1.0
+   pgstar_age_lw = 3
+   pgstar_age_disp = 2.0
+   pgstar_age_coord = -0.10
+   pgstar_age_fjust = 0.0
+
+  Grid1_plot_name(1) = 'Text_Summary1'
+  Grid1_plot_row(1) = 1           ! number from 1 at top
+  Grid1_plot_rowspan(1) = 1       ! plot spans this number of rows
+  Grid1_plot_col(1) =  1          ! number from 1 at left
+  Grid1_plot_colspan(1) = 6       ! plot spans this number of columns
+
+  Grid1_plot_pad_left(1) = -0.06    ! fraction of full window width for padding on left
+  Grid1_plot_pad_right(1) = 0.05   ! fraction of full window width for padding on right
+  Grid1_plot_pad_top(1) = -0.02     ! fraction of full window height for padding at top
+  Grid1_plot_pad_bot(1) = 0.39     ! fraction of full window height for padding at bottom
+  Grid1_txt_scale_factor(1) = 1.2 ! multiply txt_scale for subplot by this
+
+
+  Grid1_plot_name(2) = 'Abundance'
+  Grid1_plot_row(2) = 1           ! number from 1 at top
+  Grid1_plot_rowspan(2) = 2       ! plot spans this number of rows
+  Grid1_plot_col(2) =  1          ! number from 1 at left
+  Grid1_plot_colspan(2) = 3       ! plot spans this number of columns
+
+  Grid1_plot_pad_left(2) = -0.05    ! fraction of full window width for padding on left
+  Grid1_plot_pad_right(2) = 0.10   ! fraction of full window width for padding on right
+  Grid1_plot_pad_top(2) = 0.03     ! fraction of full window height for padding at top
+  Grid1_plot_pad_bot(2) = 0.03     ! fraction of full window height for padding at bottom
+  Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this
+
+
+  Grid1_plot_name(3) = 'HR'
+  Grid1_plot_row(3) = 1          ! number from 1 at top
+  Grid1_plot_rowspan(3) = 2       ! plot spans this number of rows
+  Grid1_plot_col(3) =  5          ! Number from 1 at left
+  Grid1_plot_colspan(3) = 3       ! plot spans this number of columns
+
+  Grid1_plot_pad_left(3) = -0.15    ! fraction of full window width for padding on left
+  Grid1_plot_pad_right(3) = 0.20   ! fraction of full window width for padding on right
+  Grid1_plot_pad_top(3) = 0.03     ! fraction of full window height for padding at top
+  Grid1_plot_pad_bot(3) = 0.03     ! fraction of full window height for padding at bottom
+  Grid1_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this
+
+
+  Grid1_file_flag = .true.
+  Grid1_file_dir = 'pgstar_out'
+  Grid1_file_prefix = 'grid_'
+  Grid1_file_interval = 10000
+  Grid1_file_width = -1       ! (inches) negative means use same value as for window
+
+ / ! end of pgstar namelist
diff --git a/star/test_suite/make_zams_low_mass/README.rst b/star/test_suite/make_zams_low_mass/README.rst
index 1f89748f5..b47a60fb5 100644
--- a/star/test_suite/make_zams_low_mass/README.rst
+++ b/star/test_suite/make_zams_low_mass/README.rst
@@ -11,7 +11,7 @@ This test case has 1 part. Click to see a larger version of a plot.
 * Part 1 (``inlist_zams``) creates a 0.085 Msun, Z = 0.014 metallicity, pre-main sequence model and evolves the model to the zero age main sequence, terminating when Lnuc / L = 0.9.
 
 .. image:: ../../../star/test_suite/make_zams_low_mass/docs/grid_000196.svg
-   :scale: 100%
+   :width: 100%
 
 
 pgstar commands used for the plot above:
diff --git a/star/test_suite/make_zams_ultra_high_mass/README.rst b/star/test_suite/make_zams_ultra_high_mass/README.rst
index 13dca615d..16d5ae958 100644
--- a/star/test_suite/make_zams_ultra_high_mass/README.rst
+++ b/star/test_suite/make_zams_ultra_high_mass/README.rst
@@ -11,7 +11,7 @@ This test case has 1 part. Click to see a larger version of a plot.
 * Part 1 (``inlist_zams_ultra_high_mass``) loads the pre-built 90 Msun, Z = 1e-4 metallicity, model ``late_pre_zams_90M.mod``. This initial model is then relaxed to 250 Msun using ``relax_initial_mass_scale = .true.``. At the 250 Msun point, the model already exceeds the termination criteria of Lnuc/L = 0.9 and there is no evolution in the HR diagram: 
 
 .. image:: ../../../star/test_suite/make_zams_ultra_high_mass/docs/grid_000075.svg
-   :scale: 100%
+   :width: 100%
 
 
 pgstar commands used for the plot above:
diff --git a/star/test_suite/other_physics_hooks/README.rst b/star/test_suite/other_physics_hooks/README.rst
index 97fa7772e..d57e07f2b 100644
--- a/star/test_suite/other_physics_hooks/README.rst
+++ b/star/test_suite/other_physics_hooks/README.rst
@@ -9,7 +9,7 @@ It provides an example of how to include your own physics code into a MESA run.
 
 This test case has 1 part. Click to see a larger version of a plot.
 
-* Part 1 (``inlist_other_physics_hooks_header``) and its signficant ``src`` directory first loads a prebuilt 1 Msun, Z=0.02 metallicity, zero age main sequence model (see ``data/star_data/zams_models/zams_z2m2_y28.data`` for such ZAMS models). A careful examination of the ``run_star_extras.f90`` is warranted and rewarding -- also see the Extending MESA tutorial. The hooks ``other_kap``, ``other_eos``, ``other_screening``, ``overshoot_dbl_exp``, ``other_wind``, ``other_mesh_functions``, and ``other_timestep`` are activated. Some, such as ``other_eos``, simply use the default module. Others, such as ``other_wind``, implement different physics. Some information about their use is reported in the terminal as the model evolves toward its termination when the hydrogen mass fractions drops below 0.25 :
+* Part 1 (``inlist_other_physics_hooks_header``) and its significant ``src`` directory first loads a prebuilt 1 Msun, Z=0.02 metallicity, zero age main sequence model (see ``data/star_data/zams_models/zams_z2m2_y28.data`` for such ZAMS models). A careful examination of the ``run_star_extras.f90`` is warranted and rewarding -- also see the Extending MESA tutorial. The hooks ``other_kap``, ``other_eos``, ``other_screening``, ``overshoot_dbl_exp``, ``other_wind``, ``other_mesh_functions``, and ``other_timestep`` are activated. Some, such as ``other_eos``, simply use the default module. Others, such as ``other_wind``, implement different physics. Some information about their use is reported in the terminal as the model evolves toward its termination when the hydrogen mass fractions drops below 0.25 :
 
 .. code-block:: console
 
diff --git a/star/test_suite/pisn/README.rst b/star/test_suite/pisn/README.rst
index e0d0564c7..cff115fdc 100644
--- a/star/test_suite/pisn/README.rst
+++ b/star/test_suite/pisn/README.rst
@@ -4,7 +4,7 @@
 pisn
 ****
 
-This test case evolves an initialy 200 |Msun| star from ZAMS untill it undergoes a pair instability supernovae (PISN)
+This test case evolves an initially 200 |Msun| star from ZAMS until it undergoes a pair instability supernovae (PISN)
 
 
 Physical checks
@@ -27,7 +27,7 @@ This test case has seven parts.
 
 * Part 3 (``inlist_to_end_core_he_burn``) This takes the model up to the end of core helium burning
 
-* Part 4 (``inlist_remove_envelope_header``) This removes whats left of the hydrogren envelope
+* Part 4 (``inlist_remove_envelope_header``) This removes whats left of the hydrogen envelope
 
 * Part 5 (``inlist_to_end_core_c_burn``) This takes the model up to the end of carbon burning
 
diff --git a/star/test_suite/pisn/gyre.in b/star/test_suite/pisn/gyre.in
deleted file mode 100644
index e27703b48..000000000
--- a/star/test_suite/pisn/gyre.in
+++ /dev/null
@@ -1,32 +0,0 @@
-&model
-/
-
-&mode
-   l = 0
-/
-
-&osc
-   nonadiabatic = .TRUE.
-/
-
-&rot
-/
-
-&num
-   diff_scheme = 'MAGNUS_GL2' 
-/
-
-&scan
-   grid_type = 'LINEAR'
-   freq_min = 0.5
-   freq_max = 5.0
-   freq_min_units = 'ACOUSTIC_DELTA'
-   freq_max_units = 'ACOUSTIC_DELTA'
-   n_freq = 50
-/
-
-&grid
-   w_osc = 10
-   w_exp = 2
-   w_ctr = 10
-/
diff --git a/star/test_suite/pisn/src/run_star_extras.f90 b/star/test_suite/pisn/src/run_star_extras.f90
index e7fdb0cf2..56313e837 100644
--- a/star/test_suite/pisn/src/run_star_extras.f90
+++ b/star/test_suite/pisn/src/run_star_extras.f90
@@ -27,7 +27,6 @@ module run_star_extras
       use const_def
       use math_lib
       use auto_diff
-      use gyre_lib
       
       implicit none
 
diff --git a/star/test_suite/ppisn/README.rst b/star/test_suite/ppisn/README.rst
index a25931921..a99702d8f 100644
--- a/star/test_suite/ppisn/README.rst
+++ b/star/test_suite/ppisn/README.rst
@@ -5,7 +5,7 @@ ppisn
 *****
 
 This test case evolves a very massive helium star from the He-ZAMS
-up to the ocurrence of a pulsational pair-instability event (see |Marchant2019|).
+up to the occurrence of a pulsational pair-instability event (see |Marchant2019|).
 
 .. |Marchant2019| replace:: `Marchant et al. 2019 <https://ui.adsabs.harvard.edu/abs/2019ApJ...882...36M/abstract>`__
 
diff --git a/star/test_suite/ppisn/inlist_ppisn b/star/test_suite/ppisn/inlist_ppisn
index 5be6d447c..61abdbb65 100644
--- a/star/test_suite/ppisn/inlist_ppisn
+++ b/star/test_suite/ppisn/inlist_ppisn
@@ -47,7 +47,7 @@
    read_extra_star_job_inlist(1) = .true.
    extra_star_job_inlist_name(1) = 'inlist_extra'
 
-   pgstar_flag = .false.
+   pgstar_flag = .true.
    save_pgstar_files_when_terminate = .true.
 
    num_special_rate_factors = 2
@@ -188,6 +188,7 @@
    okay_to_remesh = .true.
    max_dq = 1d-3 ! RECOMMENDED 1d-3
    mesh_delta_coeff = 0.8d0 ! RECOMMENDED 0.8d0
+
    !! this one is turned on in run_star_extras
    !use_split_merge_amr = .true.
    split_merge_amr_log_zoning = .true.
@@ -196,7 +197,11 @@
    split_merge_amr_MaxShort = 2.5d0
    split_merge_amr_max_iters = 50
    split_merge_amr_okay_to_split_nz = .false.
-   merge_amr_ignore_surface_cells = .false.
+
+   !prevent surface from going crazy during remesh and when hydro turns on
+   merge_amr_ignore_surface_cells = .true.
+   merge_amr_k_for_ignore_surface_cells = 2
+
    merge_amr_max_abs_du_div_cs = 0.05d0
    merge_amr_du_div_cs_limit_only_for_compression = .true.
    split_merge_amr_avoid_repeated_remesh = .true.
diff --git a/star/test_suite/ppisn/standard_he_dep.mod b/star/test_suite/ppisn/standard_he_dep.mod
index fda3a4c0f..0db04dc55 100644
--- a/star/test_suite/ppisn/standard_he_dep.mod
+++ b/star/test_suite/ppisn/standard_he_dep.mod
@@ -1,3 +1,3 @@
 version https://git-lfs.github.com/spec/v1
-oid sha256:ff697cd8c4ec3e06c720cf5e58dce16e510addd5f9833b28daa55c04d9446013
-size 1249220
+oid sha256:51dba32a61de103e10bc188f5670c0cd46eca82de0f26250b1ff0316341e450d
+size 1251084
diff --git a/star/test_suite/ppisn/zams.mod b/star/test_suite/ppisn/zams.mod
deleted file mode 100644
index 2d558da66..000000000
--- a/star/test_suite/ppisn/zams.mod
+++ /dev/null
@@ -1,3 +0,0 @@
-version https://git-lfs.github.com/spec/v1
-oid sha256:0c89bfcb53e4c027cfb33bec543defcc88d508e71c3792cf2b1b4add6a9278d7
-size 381596
diff --git a/star/test_suite/rsp_Type_II_Cepheid/src/run_star_extras.f90 b/star/test_suite/rsp_Type_II_Cepheid/src/run_star_extras.f90
index 4bb639a6f..2ab69f0fd 100644
--- a/star/test_suite/rsp_Type_II_Cepheid/src/run_star_extras.f90
+++ b/star/test_suite/rsp_Type_II_Cepheid/src/run_star_extras.f90
@@ -115,7 +115,7 @@ integer function extras_finish_step(id)
          if (s% total_energy /= 0d0 .and. abs(rel_run_E_err) > 1d-4) then
             write(*,*) '*** BAD rel_run_E_error ***', &
             s% cumulative_energy_error/s% total_energy
-         else if (abs(s% rsp_period/(24*3600) - target_period) > 1d-2) then
+         else if (abs(s% rsp_period/(24*3600) - target_period) > 3d-2) then
             write(*,*) '*** BAD ***', s% rsp_period/(24*3600) - target_period, &
                s% rsp_period/(24*3600), target_period
          else
diff --git a/star/test_suite/rsp_gyre/make/makefile b/star/test_suite/rsp_gyre/make/makefile
index 68451046a..da1cf8efd 100644
--- a/star/test_suite/rsp_gyre/make/makefile
+++ b/star/test_suite/rsp_gyre/make/makefile
@@ -2,7 +2,7 @@
 
 include $(MESA_DIR)/utils/makefile_header
 
-LOAD_MESA = $(LOAD_EXTRAS1) $(LOAD_MESA_STAR) $(LOAD_EXTRAS)
+LOAD_MESA = $(LOAD_EXTRAS1) $(LOAD_MESA_STAR) $(LOAD_GYRE) $(LOAD_EXTRAS)
 
 #################################################################
 
@@ -18,7 +18,7 @@ WORK_SRC_DIR = $(WORK_DIR)/src
 STAR_JOB_DIR = $(MESA_DIR)/star/job
 
 $(STAR) : $(OBJS)
-	$(LOADER) $(FCopenmp) -o $(WORK_DIR)/$(STAR) $(OBJS) $(LOAD_MESA) -lgyre
+	$(LOADER) $(FCopenmp) -o $(WORK_DIR)/$(STAR) $(OBJS) $(LOAD_MESA)
 
 #################################################################
 
diff --git a/star/test_suite/rsp_gyre/src/run_star_extras.f90 b/star/test_suite/rsp_gyre/src/run_star_extras.f90
index b51193624..b3f46b9c1 100644
--- a/star/test_suite/rsp_gyre/src/run_star_extras.f90
+++ b/star/test_suite/rsp_gyre/src/run_star_extras.f90
@@ -27,7 +27,7 @@ module run_star_extras
       use const_def
       use math_lib
       use auto_diff
-      use gyre_lib
+      use gyre_mesa_m
 
       implicit none
       
@@ -67,7 +67,7 @@ end subroutine extras_controls
       subroutine rsp_set_gyre_linear_analysis(id,restart,ierr)
          use const_def
          use math_lib
-         use gyre_lib
+         use gyre_mesa_m
          integer, intent(in) :: id
          logical, intent(in) :: restart
          integer, intent(out) :: ierr
@@ -97,17 +97,17 @@ subroutine rsp_set_gyre_linear_analysis(id,restart,ierr)
          allocate(r(modes,nz+10), v(modes,nz+10))
          npts = 0
 
-         call gyre_init('gyre.in')
+         call init('gyre.in')
 
-         call gyre_set_constant('G_GRAVITY', standard_cgrav)
-         call gyre_set_constant('C_LIGHT', clight)
-         call gyre_set_constant('A_RADIATION', crad)
+         call set_constant('G_GRAVITY', standard_cgrav)
+         call set_constant('C_LIGHT', clight)
+         call set_constant('A_RADIATION', crad)
 
-         call gyre_set_constant('M_SUN', Msun)
-         call gyre_set_constant('R_SUN', Rsun)
-         call gyre_set_constant('L_SUN', Lsun)
+         call set_constant('M_SUN', Msun)
+         call set_constant('R_SUN', Rsun)
+         call set_constant('L_SUN', Lsun)
 
-         call gyre_set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
+         call set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
          
          mode_l = 0 ! mode l (e.g. 0 for p modes, 1 for g modes)
                         ! should match gyre.in mode l
@@ -123,7 +123,7 @@ subroutine rsp_set_gyre_linear_analysis(id,restart,ierr)
             'GYRE', 'gyre.data', global_data, point_data, ierr)
          if (ierr /= 0) return
 
-         call gyre_set_model(global_data, point_data, s%gyre_data_schema)
+         call set_model(global_data, point_data, s%gyre_data_schema)
 
          write(*, 100) 'order', 'freq (Hz)', 'P (sec)', &
            'P (min)', 'P (day)', 'growth (day)', '(4pi*im/re)'
@@ -136,9 +136,9 @@ subroutine rsp_set_gyre_linear_analysis(id,restart,ierr)
          ipar(4) = 3 ! max number of modes to output per call
          ipar(5) = 0 ! num_written
 
-         call gyre_get_modes(mode_l, process_mode_, ipar, rpar)
+         call get_modes(mode_l, process_mode_, ipar, rpar)
 
-         call gyre_final()
+         call final()
          
          amix1 = s% x_ctrl(4) ! s% RSP_fraction_1st_overtone
          amix2 = s% x_ctrl(5) ! s% RSP_fraction_2nd_overtone
diff --git a/star/test_suite/semiconvection/README.rst b/star/test_suite/semiconvection/README.rst
index 335cbb727..96f2c575c 100644
--- a/star/test_suite/semiconvection/README.rst
+++ b/star/test_suite/semiconvection/README.rst
@@ -5,11 +5,11 @@ semiconvection
 **************
 
 This test case checks placement of the convective and semiconvective boundaries when using the Ledoux criterion and predictive mixing,
-see |MESA V|. The test vehicle is with a 1.5 Msun, Z=0.02 metallicity, model.
+see |MESA V|. The test vehicle is with a 1.5 |Msun|, Z=0.02 metallicity, model.
 
 This test case has 1 part. Click to see a larger version of a plot.
 
-* Part 1 (``inlist_semiconvection``) loads a pre-built 1.5 Msun, Z=0.02 metallicity, model from test case :ref:`make_zams_high_mass`. New initial model generation should use the supplied ``inlist_to_ZAMS``. The model is then evolved until the central hydrogen mass fraction drops below 0.4. At this time the convective core has almost reached its maximum mass extension, and there is a semiconvective layer above the convective core. The ``run_star_extars.f90`` then checks the mixing types at three points (0.12, 0.135, and 0.15 Msun), where the convective types  should be convection, semiconvection, and no mixing. In addition, the ``run_star_extars.f90`` checks the average temperature and density between two points in the star : 
+* Part 1 (``inlist_semiconvection``) loads a pre-built 1.5 |Msun|, Z=0.02 metallicity, model from test case :ref:`make_zams_high_mass`. New initial model generation should use the supplied ``inlist_to_ZAMS``. The model is then evolved until the central hydrogen mass fraction drops below 0.4. At this time the convective core has almost reached its maximum mass extension, and there is a semiconvective layer above the convective core. The ``run_star_extars.f90`` then checks the mixing types at three points (0.12, 0.135, and 0.15 |Msun|), where the convective types  should be convection, semiconvection, and no mixing. In addition, the ``run_star_extars.f90`` checks the average temperature and density between two points in the star : 
 
 .. code-block:: console
 
@@ -25,7 +25,7 @@ This test case has 1 part. Click to see a larger version of a plot.
    all values are within tolerances
 
 
-Note that the choice made for the inital mixture (a09 in this test
+Note that the choice made for the initial mixture (a09 in this test
 case) and for the nuclear reaction network (here:
 pp_and_cno_extras.net) influence the growth of the convective
 core. The values used in this test case for the
diff --git a/star/test_suite/split_burn_big_net/README.rst b/star/test_suite/split_burn_big_net/README.rst
index 9a89737c3..8204f1030 100644
--- a/star/test_suite/split_burn_big_net/README.rst
+++ b/star/test_suite/split_burn_big_net/README.rst
@@ -4,7 +4,7 @@
 split_burn_big_net
 ******************
 
-This test suite example checks the use of MESA's split burn capabilites in a 25 |Msun| star, during silicon burning
+This test suite example checks the use of MESA's split burn capabilities in a 25 |Msun| star, during silicon burning
 
 Physical checks
 ===============
diff --git a/star/test_suite/starspots/README.rst b/star/test_suite/starspots/README.rst
index 4ec0ed87b..f80abafd3 100644
--- a/star/test_suite/starspots/README.rst
+++ b/star/test_suite/starspots/README.rst
@@ -4,18 +4,36 @@
 starspots
 ******************
 
-This test suite case evolves a 1 solar mass, solar metallicity (Z=0.02) model to an age of 0.8 Gyr using MESA's implementation of the YREC (Yale Rotating Evolution Code) SPOTS formalism introduced by Somers et al. (2020; ApJ).
+This test suite case evolves a 0.9 |Msun|, solar metallicity (Z=0.02) model 
+to an age of 24.63 Gyr using MESA's implementation of the 
+YREC (Yale Rotating Evolution Code) SPOTS formalism introduced by 
+`Somers et al. (2020; ApJ) <https://ui.adsabs.harvard.edu/abs/2015ApJ...807..174S>`__
+Compare to Figure 15 in Section 7 of MESA Instrument Paper VI.
 
-The impedence of the surface flux due to magnetic pressure from starspots is parameterized in the style of an atmospheric boundary modification.
-As first described by Somers et al. (2015; ApJ), the degree of "spottiness" on the stellar surface is characterized using two parameters:
 
-* SPOTF (hereafter fspot): a coverage fraction, or "spot filling factor" (in the notation of the YREC documentation); and
+The impedence of the surface flux due to magnetic pressure from starspots is parameterized 
+in the style of an atmospheric boundary modification. As first described by 
+`Somers et al. (2015; ApJ) <https://ui.adsabs.harvard.edu/abs/2015ApJ...807..174S>`__, 
+the degree of "spottiness" on the stellar surface is characterized using two parameters:
 
-* SPOTX (hereafter xspot): the temperature contrast between the spotted and unspotted regions: xspot = T_spot/T_photosphere.
+* SPOTF (hereafter ``fspot``): a coverage fraction, or "spot filling factor" (in the notation of the YREC documentation); and
 
-Currently, x_ctrl(1) corresponds to fspot, and x_ctrl(2) corresponds to xspot. The coverage fraction is set to fspot = 0.34 (for consistency with observations of low-mass stars: Cao et al., 2022) and the temperature contrast is set to xspot = 0.85 (also from fits to observations).
+* SPOTX (hereafter ``xspot``): the temperature contrast between the spotted and unspotted regions: xspot = T_spot/T_photosphere.
+
+The coverage fraction is set to ``fspot = 0.34`` 
+(for consistency with observations of low-mass stars: 
+`Cao et al., 2022 <https://ui.adsabs.harvard.edu/abs/2022ApJ...924...84C>`__)
+and the temperature contrast is set to ``xspot = 0.85`` (also from fits to observations).
  
-Detailed discussion of this functionality can be found in MESA Instrument Paper VI: Starspots
+Detailed discussion of this functionality can be found in 
+`MESA Instrument Paper VI: Starspots <https://ui.adsabs.harvard.edu/abs/2023ApJS..265...15J>`__.
+
+A plot of the HR diagram for the problem is included below:
+
+.. image:: ../../../star/test_suite/starspots/docs/hr_starspots_001496.svg
+   :width: 100%
+
 
-Last-Updated: 2022-07-28 by Meridith Joyce
+Last-Updated: 09Aug2024 by Meridith Joyce
 
+Last-Run: 06Aug2024 (MESA 7890d305) by pmocz on C916PXT6XW in 629 seconds using 8 threads.
diff --git a/star/test_suite/starspots/docs/hr_starspots_001496.svg b/star/test_suite/starspots/docs/hr_starspots_001496.svg
new file mode 100644
index 000000000..ac9cbdbec
--- /dev/null
+++ b/star/test_suite/starspots/docs/hr_starspots_001496.svg
@@ -0,0 +1 @@
+<svg xmlns="http://www.w3.org/2000/svg" width="864.03" height="864.03"><path fill-rule="evenodd" d="M.016 864.014h863.979V.035H.016z"/><g fill="none" stroke-linecap="round" stroke-linejoin="round" stroke-miterlimit="10"><g stroke="#fff"><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M129.613 734.417h604.785M734.395 734.417V129.632M734.395 129.635H129.61M129.613 129.635V734.42M129.613 734.417v-5.951M155.916 734.417v-5.951M182.222 734.417v-5.951M208.528 734.417v-12M234.82 734.417v-5.951M261.127 734.417v-5.951M287.34 734.417v-5.951M313.645 734.417v-5.951M339.938 734.417v-12M366.244 734.417v-5.951M392.55 734.417v-5.951M418.856 734.417v-5.951M445.162 734.417v-5.951M471.455 734.417v-12M497.76 734.417v-5.951M524.067 734.417v-5.951M550.373 734.417v-5.951M576.679 734.417v-5.951M602.878 734.417v-12M629.184 734.417v-5.951M655.49 734.417v-5.951M681.796 734.417v-5.951M708.089 734.417v-5.951M734.395 734.417v-12M129.613 135.582v-5.952M155.916 135.582v-5.952M182.222 135.582v-5.952M208.528 141.635v-12M234.82 135.582v-5.952M261.127 135.582v-5.952M287.34 135.582v-5.952M313.645 135.582v-5.952M339.938 141.635v-12M366.244 135.582v-5.952M392.55 135.582v-5.952M418.856 135.582v-5.952M445.162 135.582v-5.952M471.455 141.635v-12M497.76 135.582v-5.952M524.067 135.582v-5.952M550.373 135.582v-5.952M576.679 135.582v-5.952M602.878 141.635v-12M629.184 135.582v-5.952M655.49 135.582v-5.952M681.796 135.582v-5.952M708.089 135.582v-5.952M734.395 141.635v-12M184.622 748.817h8.736M193.355 748.817l-4.8 6.336M188.555 755.153h2.4M190.955 755.153l1.632.768M192.582 755.92l.768.865M193.355 756.785l.768 2.4M194.128 759.185v1.535M194.128 760.72l-.768 2.4M193.355 763.12l-1.632 1.632M191.729 764.752l-2.4.769M189.329 765.52h-2.4M186.929 765.52l-2.304-.768M184.622 764.752l-.864-.863M183.755 763.889l-.768-1.537M200.555 763.889l-.864.863M199.688 764.752l.864.769M200.555 765.52l.768-.768M201.328 764.752l-.768-.863M218.021 748.817l-7.968 16.703M206.888 748.817h11.136M232.42 748.817h-7.967M224.461 748.817l-.768 7.104M223.688 755.92l.768-.768M224.461 755.153l2.4-.768M226.861 754.385h2.4M229.26 754.385l2.4.767M231.66 755.153l1.537 1.632M233.194 756.785l.864 2.4M234.06 759.185v1.535M234.06 760.72l-.863 2.4M233.194 763.12l-1.536 1.632M231.66 764.752l-2.4.769M229.26 765.52h-2.399M226.861 765.52l-2.4-.768M224.461 764.752l-.768-.863M223.688 763.889l-.864-1.537M324.005 748.817h8.832M332.845 748.817l-4.8 6.336M328.045 755.153h2.4M330.445 755.153l1.536.768M331.978 755.92l.864.865M332.845 756.785l.768 2.4M333.605 759.185v1.535M333.605 760.72l-.768 2.4M332.845 763.12l-1.632 1.632M331.205 764.752l-2.4.769M328.805 765.52h-2.4M326.405 765.52l-2.4-.768M324.005 764.752l-.768-.863M323.245 763.889l-.768-1.537M339.938 763.889l-.768.863M339.178 764.752l.768.769M339.938 765.52l.864-.768M340.805 764.752l-.864-.863M357.511 748.817l-7.968 16.703M346.378 748.817h11.136M447.562 748.817h8.736M456.295 748.817l-4.8 6.336M451.495 755.153h2.4M453.895 755.153l1.632.768M455.522 755.92l.768.865M456.295 756.785l.768 2.4M457.055 759.185v1.535M457.055 760.72l-.768 2.4M456.295 763.12l-1.632 1.632M454.655 764.752l-2.4.769M452.255 765.52h-2.304M449.962 765.52l-2.4-.768M447.562 764.752l-.864-.863M446.695 763.889l-.767-1.537M463.495 763.889l-.864.863M462.628 764.752l.864.769M463.495 765.52l.768-.768M464.255 764.752l-.768-.863M480.201 751.12l-.768-1.535M479.428 749.585l-2.4-.768M477.028 748.817h-1.632M475.401 748.817l-2.4.768M473.002 749.585l-1.536 2.4M471.455 751.985l-.768 3.936M470.695 755.92v4.032M470.695 759.953l.768 3.168M471.455 763.12l1.536 1.632M473.002 764.752l2.4.769M475.401 765.52h.864M476.255 765.52l2.4-.768M478.655 764.752l1.536-1.631M480.201 763.12l.864-2.4M481.055 760.72v-.768M481.055 759.953l-.864-2.4M480.201 757.553l-1.536-1.632M478.655 755.92l-2.4-.768M476.255 755.153h-.864M475.401 755.153l-2.4.768M473.002 755.92l-1.536 1.632M471.455 757.553l-.768 2.4M495.36 748.817h-7.967M487.401 748.817l-.768 7.104M486.628 755.92l.768-.768M487.401 755.153l2.4-.768M489.801 754.385h2.4M492.201 754.385l2.4.767M494.601 755.153l1.536 1.632M496.134 756.785l.864 2.4M497 759.185v1.535M497 760.72l-.863 2.4M496.134 763.12l-1.536 1.632M494.601 764.752l-2.4.769M492.201 765.52h-2.4M489.801 765.52l-2.4-.768M487.401 764.752l-.768-.863M486.628 763.889l-.864-1.537M586.945 748.817h8.832M595.772 748.817l-4.8 6.336M590.972 755.153h2.4M593.372 755.153l1.536.768M594.918 755.92l.864.865M595.772 756.785l.768 2.4M596.545 759.185v1.535M596.545 760.72l-.768 2.4M595.772 763.12l-1.632 1.632M594.145 764.752l-2.4.769M591.745 765.52h-2.4M589.345 765.52l-2.4-.768M586.945 764.752l-.768-.863M586.172 763.889l-.768-1.537M602.878 763.889l-.768.863M602.118 764.752l.768.769M602.878 765.52l.864-.768M603.745 764.752l-.864-.863M619.678 751.12l-.768-1.535M618.918 749.585l-2.4-.768M616.518 748.817h-1.632M614.878 748.817l-2.4.768M612.478 749.585l-1.536 2.4M610.945 751.985l-.864 3.936M610.078 755.92v4.032M610.078 759.953l.864 3.168M610.945 763.12l1.536 1.632M612.478 764.752l2.4.769M614.878 765.52h.768M615.651 765.52l2.4-.768M618.051 764.752l1.632-1.631M619.678 763.12l.768-2.4M620.451 760.72v-.768M620.451 759.953l-.768-2.4M619.678 757.553l-1.632-1.632M618.051 755.92l-2.4-.768M615.651 755.153h-.768M614.878 755.153l-2.4.768M612.478 755.92l-1.536 1.632M610.945 757.553l-.864 2.4M710.489 748.817h8.736M719.235 748.817l-4.8 6.336M714.435 755.153h2.4M716.835 755.153l1.632.768M718.462 755.92l.768.865M719.235 756.785l.768 2.4M719.995 759.185v1.535M719.995 760.72l-.768 2.4M719.235 763.12l-1.536 1.632M717.689 764.752l-2.4.769M715.289 765.52h-2.4M712.889 765.52l-2.4-.768M710.489 764.752l-.864-.863M709.636 763.889l-.768-1.537M726.435 763.889l-.768.863M725.662 764.752l.768.769M726.435 765.52l.768-.768M727.195 764.752l-.768-.863M742.368 748.817H734.4M734.395 748.817l-.768 7.104M733.635 755.92l.768-.768M734.395 755.153l2.4-.768M736.795 754.385h2.4M739.195 754.385l2.4.767M741.595 755.153l1.536 1.632M743.128 756.785l.864 2.4M743.995 759.185v1.535M743.995 760.72l-.864 2.4M743.128 763.12l-1.536 1.632M741.595 764.752l-2.4.769M739.195 765.52h-2.4M736.795 765.52l-2.4-.768M734.395 764.752l-.768-.863M733.635 763.889l-.864-1.537M758.301 748.817h-7.968M750.328 748.817l-.768 7.104M749.568 755.92l.768-.768M750.328 755.153l2.4-.768M752.728 754.385h2.4M755.128 754.385l2.4.767M757.528 755.153l1.632 1.632M759.168 756.785l.768 2.4M759.928 759.185v1.535M759.928 760.72l-.768 2.4M759.168 763.12l-1.632 1.632M757.528 764.752l-2.4.769M755.128 765.52h-2.4M752.728 765.52l-2.4-.768M750.328 764.752l-.768-.863M749.568 763.889l-.768-1.537M129.613 712.047h5.951M129.613 667.222h5.951M129.613 622.383h5.951M129.613 577.65h12M129.613 532.825h5.951M129.613 487.986h5.951M129.613 443.254h5.951M129.613 398.428h5.951M129.613 353.59h12M129.613 308.857h5.951M129.613 264.032h5.951M129.613 219.193h5.951M129.613 174.46h5.951M129.613 129.635h12M728.448 712.047h5.952M728.448 667.222h5.952M728.448 622.383h5.952M722.395 577.65h12M728.448 532.825h5.952M728.448 487.986h5.952M728.448 443.254h5.952M728.448 398.428h5.952M722.395 353.59h12M728.448 308.857h5.952M728.448 264.032h5.952M728.448 219.193h5.952M728.448 174.46h5.952M722.395 129.635h12M102.733 568.624l-2.4.864M100.333 569.49l-1.631 2.305M98.702 571.797l-.769 4.032M97.934 575.824v2.4M97.934 578.224l.768 3.936M98.702 582.17l1.631 2.4M100.333 584.57l2.4.864M102.733 585.424h1.536M104.27 585.424l2.4-.864M106.67 584.57l1.632-2.4M108.301 582.17l.768-3.936M109.07 578.224v-2.4M109.07 575.824l-.768-4.032M108.301 571.797l-1.632-2.304M106.67 569.49l-2.4-.863M104.27 568.624h-1.536M100.333 347.83l1.536-.768M101.87 347.07l2.4-2.4M104.27 344.67v16.703M98.702 124.635v-.768M98.702 123.875l.767-1.632M99.47 122.235l.864-.768M100.333 121.475l1.536-.768M101.87 120.702h3.264M105.133 120.702l1.536.768M106.67 121.475l.768.768M107.437 122.235l.864 1.632M108.301 123.875v1.536M108.301 125.408l-.864 1.632M107.437 127.035l-1.536 2.4M105.901 129.435l-7.968 7.968M97.934 137.408h11.135"/></g><g stroke-width="14.4"><path stroke-width="1.919952" d="M376.137 784.72v20.927M388.137 791.728l-2.016.96M386.124 792.688l-1.92 2.015M384.204 794.704l-1.056 2.976M383.137 797.68v2.016M383.137 799.696l1.056 2.976M384.204 802.672l1.92 2.016M386.124 804.687l2.016.96M388.137 805.647h2.976M391.11 805.647l2.016-.96M393.124 804.687l2.015-2.016M395.137 802.672l.96-2.977M396.097 799.696v-2.016M396.097 797.68l-.96-2.976M395.137 794.704l-2.016-2.016M393.124 792.688l-2.016-.96M391.11 791.728h-2.976M414.056 791.728v15.935M414.056 807.663l-.96 2.976M413.096 810.64l-1.056 1.055M412.043 811.695l-1.92.96M410.123 812.655h-3.072M407.043 812.655l-1.92-.96M414.056 794.704l-2.016-2.016M412.043 792.688l-1.92-.96M410.123 791.728h-3.072M407.043 791.728l-1.92.96M405.123 792.688l-2.016 2.015M403.11 794.704l-1.056 2.976M402.057 797.68v2.016M402.057 799.696l1.056 2.976M403.11 802.672l2.016 2.016M405.123 804.687l1.92.96M407.043 805.647h3.072M410.123 805.647l1.92-.96M412.043 804.687l2.016-2.016M441.989 784.72v20.927M434.976 784.72h14.015M452.935 797.68h12M464.935 797.68v-1.92M464.935 795.76l-1.056-2.016M463.882 793.744l-.96-1.056M462.922 792.688l-2.016-.96M460.895 791.728h-2.976M457.922 791.728l-2.016.96M455.909 792.688l-2.016 2.015M453.895 794.704l-.96 2.976M452.935 797.68v2.016M452.935 799.696l.96 2.976M453.895 802.672l2.016 2.016M455.909 804.687l2.016.96M457.922 805.647h2.976M460.895 805.647l2.016-.96M462.922 804.687l2.016-2.016M477.895 784.72h-2.016M475.881 784.72l-2.016 1.056M473.855 785.776l-.96 2.976M472.895 788.752v16.895M469.922 791.728h6.911M489.801 784.72h-1.92M487.881 784.72l-2.016 1.056M485.855 785.776l-1.056 2.976M484.801 788.752v16.895M481.828 791.728h7.008M8.272 494.906h20.927M15.184 483l1.056 1.92M16.24 484.92l2.016 2.015M18.256 486.933l2.975 1.056M21.231 487.986h1.92M23.151 487.986l3.072-1.056M26.223 486.933l1.92-2.016M28.143 484.92 29.2 483M29.2 483v-3.072M29.2 479.933l-1.057-1.92M28.143 478.013l-1.92-2.016M26.223 475.986l-3.071-.96M23.151 475.026h-1.92M21.231 475.026l-2.975.96M18.256 475.986l-2.017 2.016M16.24 478.013l-1.057 1.92M15.184 479.933v3.072M15.184 457.08h16.031M31.215 457.08l2.976.96M34.191 458.04l.96.96M35.151 459l.96 2.016M36.111 461.013v2.976M36.111 463.987l-.96 2.016M18.256 457.08 16.239 459M16.24 459l-1.057 2.016M15.184 461.013v2.976M15.184 463.987l1.056 2.016M16.24 466.013l2.016 2.016M18.256 468.027l2.975.96M21.231 468.987h1.92M23.151 468.987l3.072-.96M26.223 468.027l1.92-2.016M28.143 466.013l1.057-2.016M29.2 463.987v-2.976M29.2 461.013l-1.057-2.016M28.143 459l-1.92-1.92M8.272 433.08h20.927M29.2 433.08v-11.903M4.24 400.255l31.871 17.951M8.272 394.202h20.927M29.2 394.202v-11.904M25.455 372.309l.768 2.208M26.223 374.522l1.44 2.304M27.663 376.829l2.305 1.44M29.967 378.269l2.208.768M32.175 379.029h2.208M34.383 379.029l2.304-.768M36.687 378.269l2.208-1.44M38.895 376.829l1.536-2.304M40.431 374.522l.672-2.208M41.103 372.309v-2.208M41.103 370.109l-.672-2.304M40.431 367.802l-1.536-2.208M38.895 365.59l-2.208-1.537M36.687 364.056l-2.304-.768M34.383 363.296h-2.208M32.175 363.296l-2.207.768M29.967 364.056l-2.304 1.536M27.663 365.59l-1.44 2.207M26.223 367.802l-.767 2.304M25.455 370.109v2.208M32.175 371.549l.768.768M32.943 372.309h.673M33.615 372.309l.768-.768M34.383 371.549v-.768M34.383 370.776l-.768-.672M33.615 370.109h-.672M32.943 370.109l-.768.672M32.175 370.776v.768M32.943 371.549h.673M33.615 371.549v-.768M33.615 370.776h-.672M32.943 370.776v.768"/></g><g stroke-width="10.8"><path stroke-width="1.4399640000000002" d="M641.57 70.303v7.488M641.57 72.516l1.537-1.632M643.104 70.876l1.152-.575M644.25 70.303h1.537M645.797 70.303l1.056.576M646.85 70.876l.576 1.632M647.424 72.516v5.28M647.424 72.516l1.536-1.632M648.957 70.876l1.056-.575M650.01 70.303h1.632M651.65 70.303l1.056.576M652.704 70.876l.576 1.632M653.277 72.516v5.28M659.61 70.303l-1.056.576M658.557 70.876l-1.056 1.056M657.504 71.943l-.576 1.632M656.93 73.57v1.056M656.93 74.623l.576 1.536M657.504 76.156l1.056 1.056M658.557 77.223l1.056.576M659.61 77.796h1.632M661.25 77.796l1.056-.576M662.303 77.223l1.056-1.056M663.357 76.156l.48-1.536M663.837 74.623v-1.056M663.837 73.57l-.48-1.632M663.357 71.943l-1.056-1.056M662.303 70.876l-1.056-.575M661.25 70.303h-1.632M673.436 66.663V77.8M673.436 71.943l-1.055-1.056M672.383 70.876l-1.056-.575M671.33 70.303h-1.632M669.69 70.303l-1.056.576M668.637 70.876l-1.056 1.056M667.583 71.943l-.48 1.632M667.103 73.57v1.056M667.103 74.623l.48 1.536M667.583 76.156l1.056 1.056M668.637 77.223l1.056.576M669.69 77.796h1.632M671.33 77.796l1.056-.576M672.383 77.223l1.056-1.056M677.183 73.57h6.336M683.516 73.57v-1.056M683.516 72.516l-.48-1.056M683.036 71.463l-.576-.576M682.463 70.876l-1.056-.575M681.41 70.303h-1.536M679.876 70.303l-1.056.576M678.81 70.876l-1.152 1.056M677.663 71.943l-.48 1.632M677.183 73.57v1.056M677.183 74.623l.48 1.536M677.663 76.156l1.152 1.056M678.81 77.223l1.056.576M679.876 77.796h1.536M681.41 77.796l1.056-.576M682.463 77.223l1.056-1.056M687.263 66.663V77.8M701.09 68.77l1.055-.576M702.142 68.197l1.632-1.536M703.77 66.663V77.8M715.489 66.663l-5.376 7.392M710.116 74.05h7.967M715.489 66.663V77.8M727.675 70.303l-.48 1.632M727.195 71.943 726.043 73M726.049 72.996l-1.536.576M724.515 73.57h-.576M723.929 73.57l-1.536-.576M722.395 72.996l-1.056-1.056M721.342 71.943l-.576-1.632M720.769 70.303v-.48M720.769 69.823l.576-1.632M721.342 68.197l1.056-1.056M722.395 67.143l1.536-.48M723.929 66.663h.576M724.515 66.663l1.536.48M726.049 67.143 727.2 68.2M727.195 68.197l.48 2.112M727.675 70.303v2.688M727.675 72.996l-.48 2.688M727.195 75.676l-1.152 1.536M726.049 77.223l-1.536.576M724.515 77.796h-1.056M723.449 77.796l-1.632-.576M721.822 77.223l-.48-1.056M738.328 68.197l-.576-1.056M737.755 67.143l-1.536-.48M736.222 66.663h-1.056M735.168 66.663l-1.632.48M733.528 67.143l-1.056 1.632M732.475 68.77l-.576 2.688M731.902 71.463v2.592M731.902 74.05l.576 2.112M732.475 76.156l1.056 1.056M733.528 77.223l1.632.576M735.168 77.796h.48M735.648 77.796l1.632-.576M737.275 77.223l1.056-1.056M738.328 76.156l.48-1.536M738.808 74.623v-.576M738.808 74.05l-.48-1.536M738.328 72.516l-1.056-1.056M737.275 71.463l-1.632-.576M735.648 70.876h-.48M735.168 70.876l-1.632.576M733.528 71.463l-1.056 1.056M732.475 72.516l-.576 1.536M113.39 70.303v7.488M113.39 71.943l-1.057-1.056M112.333 70.876l-1.056-.575M111.277 70.303h-1.632M109.645 70.303l-1.055.576M108.59 70.876l-1.057 1.056M107.533 71.943l-.48 1.632M107.053 73.57v1.056M107.053 74.623l.48 1.536M107.533 76.156l1.056 1.056M108.59 77.223l1.055.576M109.645 77.796h1.633M111.277 77.796l1.056-.576M112.333 77.223l1.056-1.056M123.469 70.303v8.544M123.469 78.85l-.48 1.632M122.989 80.476l-.576.48M122.413 80.956l-1.056.576M121.357 81.543h-1.536M119.821 81.543l-1.152-.576M123.469 71.943l-1.056-1.056M122.413 70.876l-1.056-.575M121.357 70.303h-1.536M119.821 70.303l-1.152.576M118.669 70.876l-1.056 1.056M117.613 71.943l-.48 1.632M117.133 73.57v1.056M117.133 74.623l.48 1.536M117.613 76.156l1.056 1.056M118.669 77.223l1.152.576M119.821 77.796h1.536M121.357 77.796l1.056-.576M122.413 77.223l1.056-1.056M127.213 73.57h6.432M133.65 73.57v-1.056M133.65 72.516l-.576-1.056M133.069 71.463l-.576-.576M132.493 70.876l-1.056-.575M131.437 70.303H129.9M129.9 70.303l-1.055.576M128.845 70.876l-1.056 1.056M127.789 71.943l-.576 1.632M127.213 73.57v1.056M127.213 74.623l.576 1.536M127.789 76.156l1.056 1.056M128.845 77.223l1.056.576M129.9 77.796h1.537M131.437 77.796l1.055-.576M132.493 77.223l1.152-1.056M145.836 69.25v-.48M145.836 68.77l.48-1.056M146.316 67.717l.576-.576M146.89 67.143l1.056-.48M147.943 66.663h2.112M150.063 66.663l1.056.48M151.116 67.143l.576.576M151.69 67.717l.48 1.056M152.17 68.77v1.056M152.17 69.823l-.48 1.056M151.69 70.876l-1.056 1.632M150.636 72.516l-5.376 5.28M145.263 77.796h7.488M156.97 76.743l-.48.48M156.49 77.223l.48.576M156.97 77.796l.575-.576M157.543 77.223l-.576-.48M166.57 66.663l-5.28 7.392M161.29 74.05h7.967M166.57 66.663V77.8M178.769 68.197l-.48-1.056M178.289 67.143l-1.632-.48M176.649 66.663h-1.056M175.596 66.663l-1.632.48M173.969 67.143l-1.056 1.632M172.902 68.77l-.48 2.688M172.422 71.463v2.592M172.422 74.05l.48 2.112M172.902 76.156l1.056 1.056M173.969 77.223l1.632.576M175.596 77.796h.576M176.169 77.796l1.536-.576M177.702 77.223l1.056-1.056M178.769 76.156l.576-1.536M179.342 74.623v-.576M179.342 74.05l-.576-1.536M178.769 72.516l-1.056-1.056M177.702 71.463l-1.536-.576M176.169 70.876h-.576M175.596 70.876l-1.632.576M173.969 71.463l-1.056 1.056M172.902 72.516l-.48 1.536M183.569 66.663h5.856M189.422 66.663l-3.168 4.224M186.249 70.876h1.536M187.782 70.876l1.152.576M188.942 71.463l.48.48M189.422 71.943l.576 1.632M189.995 73.57v1.056M189.995 74.623l-.576 1.536M189.422 76.156l-1.056 1.056M188.369 77.223l-1.632.576M186.729 77.796h-1.536M185.195 77.796l-1.632-.576M183.569 77.223l-.48-.48M183.089 76.743l-.576-1.056M196.328 66.663l-1.632.48M194.702 67.143l-1.056 1.632M193.648 68.77l-.48 2.688M193.169 71.463V73M193.169 72.996l.48 2.688M193.648 75.676l1.056 1.536M194.702 77.223l1.632.576M196.328 77.796h1.056M197.382 77.796l1.632-.576M199.022 77.223l1.056-1.536M200.075 75.676l.48-2.688M200.555 72.996V71.46M200.555 71.463l-.48-2.688M200.075 68.77l-1.056-1.632M199.022 67.143l-1.632-.48M197.382 66.663h-1.056M206.981 66.663l-1.631.48M205.355 67.143l-1.056 1.632M204.302 68.77l-.48 2.688M203.822 71.463V73M203.822 72.996l.48 2.688M204.302 75.676l1.056 1.536M205.355 77.223l1.632.576M206.981 77.796h1.056M208.048 77.796l1.632-.576M209.675 77.223l1.056-1.536M210.728 75.676l.48-2.688M211.208 72.996V71.46M211.208 71.463l-.48-2.688M210.728 68.77l-1.056-1.632M209.675 67.143l-1.632-.48M208.048 66.663h-1.056M217.648 66.663l-1.632.48M216.008 67.143l-1.056 1.632M214.955 68.77l-.576 2.688M214.381 71.463V73M214.381 72.996l.576 2.688M214.955 75.676l1.056 1.536M216.008 77.223l1.632.576M217.648 77.796h1.056M218.701 77.796l1.536-.576M220.234 77.223l1.056-1.536M221.288 75.676l.576-2.688M221.861 72.996V71.46M221.861 71.463l-.576-2.688M221.288 68.77l-1.056-1.632M220.234 67.143l-1.535-.48M218.701 66.663h-1.056M225.034 73.57h6.432M231.46 73.57v-1.056M231.46 72.516l-.575-1.056M230.888 71.463l-.48-.576M230.408 70.876l-1.152-.575M229.26 70.303h-1.535M227.728 70.303l-1.056.576M226.661 70.876l-1.056 1.056M225.608 71.943l-.576 1.632M225.034 73.57v1.056M225.034 74.623l.576 1.536M225.608 76.156l1.056 1.056M226.661 77.223l1.056.576M227.728 77.796h1.536M229.26 77.796l1.153-.576M230.408 77.223l1.056-1.056M236.167 68.77l1.152-.576M237.327 68.197l1.536-1.536M238.86 66.663V77.8M248.46 66.663l-1.632.48M246.82 67.143l-1.055 1.632M245.767 68.77l-.48 2.688M245.287 71.463V73M245.287 72.996l.48 2.688M245.767 75.676l1.056 1.536M246.82 77.223l1.632.576M248.46 77.796h1.056M249.514 77.796l1.632-.576M251.14 77.223l1.056-1.536M252.207 75.676l.48-2.688M252.687 72.996V71.46M252.687 71.463l-.48-2.688M252.207 68.77l-1.056-1.632M251.14 67.143l-1.632-.48M249.514 66.663h-1.056M263.82 70.303l3.264 7.488M270.247 70.303l-3.168 7.488M267.087 77.796l-1.056 2.112M266.02 79.903l-1.056 1.056M264.967 80.956l-1.152.576M263.82 81.543h-.48M273.42 70.303v7.488M273.42 73.57l.576-1.632M273.993 71.943l1.056-1.056M275.046 70.876l1.056-.575M276.1 70.303h1.536M285.7 71.943l-.576-1.056M285.126 70.876l-1.632-.575M283.5 70.303h-1.536M281.966 70.303l-1.632.576M280.326 70.876l-.48 1.056M279.846 71.943l.48 1.056M280.326 72.996l1.056.576M281.38 73.57l2.688.48M284.073 74.05l1.056.576M285.126 74.623l.576 1.056M285.7 75.676v.48M285.7 76.156l-.576 1.056M285.126 77.223l-1.632.576M283.5 77.796h-1.536M281.966 77.796l-1.632-.576M280.326 77.223l-.48-1.056M416.936 80.583v18.143M429.03 80.583v18.143M416.936 89.223h12.096M435.936 80.583v18.143M435.936 80.583h7.776M443.722 80.583l2.592.864M446.309 81.436l.864.864M447.175 82.303l.864 1.728M448.042 84.036v1.728M448.042 85.756l-.864 1.728M447.175 87.49l-.863.863M446.309 88.356l-2.592.864M443.722 89.223h-7.776M441.989 89.223l6.048 9.503"/></g></g><g stroke="teal" stroke-width="28.8"><path stroke-width="3.839904" d="m703.196 129.635-.576.768M702.622 130.395l-.768.864M701.85 131.262l-.673.96M701.182 132.222l-.768.864M700.41 133.088l-.865.96M699.556 134.048l-.768.864M698.783 134.915l-.672.96M698.116 135.875l-.768.864M697.343 136.742l-.768.96M696.57 137.701l-.769.864M695.81 138.555l-.673.96M695.13 139.515l-.865.864M694.276 140.381l-.768.96M693.503 141.341l-.768.866M692.73 142.208l-.673.96M692.063 143.168l-.768.864M691.29 144.035l-.769.961M690.53 144.995l-.769.864M689.756 145.861l-.768.96M688.996 146.821l-.672.864M688.316 147.675l-.767.96M687.556 148.635l-.673.96M686.876 149.595l-.77.864M686.116 150.461l-.768.864M685.343 151.328l-.767.96M684.57 152.288l-.672.96M683.903 153.248l-.77.864M683.13 154.114l-.767.96M682.37 155.074l-.674.864M681.69 155.941l-.768.96M680.93 156.901l-.672.864M680.25 157.754l-.768.96M679.49 158.714l-.672.864M678.81 159.58l-.672.96M678.143 160.54l-.768.96M677.37 161.5l-.672.865M676.703 162.368l-.768.96M675.93 163.328l-.672.863M675.263 164.194l-.672.96M674.596 165.154l-.768.864M673.823 166.02l-.672.96M673.157 166.98l-.768.96M672.383 167.94l-.672.865M671.717 168.794l-.768.96M670.943 169.754l-.672.864M670.277 170.62l-.672.96M669.597 171.58l-.768.865M668.837 172.447l-.672.96M668.157 173.407l-.672.96M667.49 174.367l-.672.864M666.81 175.234l-.672.96M666.143 176.194l-.672.864M665.477 177.06l-.768.96M664.703 178.02l-.672.864M664.037 178.874l-.672.96M663.357 179.834l-.672.96M662.69 180.794l-.672.864M662.01 181.66l-.672.96M661.343 182.62l-.672.96M660.677 183.58l-.672.864M659.997 184.447l-.672.96M659.33 185.407l-.672.864M658.65 186.274l-.768.96M657.89 187.234l-.672.864M657.21 188.1l-.672.96M656.544 189.06l-.576.96M655.97 190.02l-.768.864M655.197 190.873l-.672.96M654.53 191.833l-.576.864M653.957 192.7l-.672.96M653.277 193.66l-.672.959M652.61 194.62l-.672.865M651.93 195.487l-.672.958M651.264 196.447l-.672.864M650.597 197.313l-.576.96M650.01 198.273l-.672.96M649.344 199.233l-.672.864M648.677 200.087l-.672.96M647.997 201.047l-.672.864M647.33 201.913l-.576.96M646.757 202.873l-.672.96M646.077 203.833l-.672.864M645.41 204.7l-.575.96M644.837 205.66l-.673.96M644.157 206.62l-.576.864M643.584 207.486l-.673.96M642.917 208.446l-.672.96M642.237 209.406l-.576.864M641.664 210.273l-.672.96M640.997 211.233l-.67.864M640.317 212.086l-.577.96M639.744 213.046l-.576.96M639.17 214.006l-.67.864M638.504 214.873l-.576.96M637.917 215.833l-.672.96M637.25 216.793l-.575.864M636.677 217.66l-.672.96M635.997 218.62l-.576.96M635.424 219.58l-.672.863M634.757 220.446l-.576.96M634.184 221.406l-.576.96M633.597 222.366l-.671.864M632.93 223.233l-.575.96M632.358 224.193l-.576.96M631.784 225.153l-.672.864M631.104 226.006l-.576.96M630.53 226.966l-.575.96M629.958 227.926l-.672.864M629.278 228.793l-.576.96M628.704 229.753l-.576.864M628.131 230.62l-.576.96M627.558 231.58l-.576.96M626.984 232.54l-.576.96M626.398 233.5l-.576.863M625.824 234.366l-.576.96M625.251 235.326l-.576.961M624.678 236.286l-.576.961M624.104 237.246l-.672.864M623.424 238.099l-.576.961M622.851 239.072l-.576.864M622.278 239.926l-.576.96M621.704 240.886l-.576.96M621.118 241.846l-.576.958M620.544 242.806l-.48.864M620.064 243.672l-.575.96M619.491 244.632l-.576.96M618.918 245.592l-.576.96M618.345 246.552l-.48.96M617.865 247.512l-.576.864M617.278 248.379l-.576.96M616.705 249.339l-.576.96M616.131 250.299l-.48.96M615.651 251.259l-.576.864M615.078 252.125l-.672.96M614.398 253.085l-.48.96M613.918 254.045l-.576.96M613.345 255.005l-.48.864M612.865 255.859l-.576.96M612.291 256.819l-.48.96M611.811 257.778l-.576.96M611.238 258.738l-.48.864M610.758 259.605l-.576.96M610.185 260.565l-.48.96M609.705 261.525l-.576.96M609.118 262.485l-.48.96M608.638 263.445l-.576.864M608.065 264.312l-.482.96M607.585 265.272l-.48.96M607.105 266.232l-.48.96M606.625 267.192l-.576.96M606.052 268.152l-.48.96M605.572 269.112l-.48.864M605.092 269.978l-.48.96M604.612 270.938l-.576.96M604.038 271.898l-.478.96M603.558 272.858l-.481.96M603.078 273.818l-.48.96M602.598 274.778l-.481.864M602.118 275.645l-.576.961M601.545 276.605l-.479.96M601.065 277.565l-.481.96M600.585 278.525l-.48.96M600.105 279.485l-.479.958M599.625 280.445l-.481.96M599.145 281.405l-.383.96M598.758 282.365l-.481.864M598.278 283.218l-.478.961M597.798 284.178l-.48.961M597.318 285.138l-.478.96M596.838 286.098l-.48.958M596.358 287.058l-.48.96M595.878 288.018l-.385.96M595.492 288.978l-.48.961M595.012 289.938l-.48.961M594.532 290.898l-.384.958M594.145 291.858l-.48.864M593.665 292.724l-.384.96M593.292 293.684l-.48.96M592.812 294.644l-.384.96M592.425 295.604l-.48.96M591.945 296.564l-.48.96M591.465 297.524l-.384.96M591.079 298.484l-.386.96M590.692 299.444l-.48.96M590.212 300.404l-.384.96M589.825 301.364l-.384.96M589.452 302.324l-.48.96M588.972 303.284l-.48.96M588.492 304.244l-.384.96M588.105 305.204l-.384.96M587.719 306.164l-.384.96M587.332 307.124l-.384.96M586.945 308.084l-.384.96M586.572 309.044l-.48.96M586.092 310.004l-.384.96M585.705 310.964l-.384.96M585.319 311.924l-.384.96M584.932 312.884l-.384.96M584.545 313.844l-.384.96M584.172 314.804l-.384.96M583.785 315.764l-.384.96M583.399 316.737l-.384.96M583.012 317.697l-.384.96M582.625 318.657l-.384.96M582.239 319.617l-.384.96M581.852 320.577l-.288 1.056M581.572 321.63l-.48.864M581.092 322.497l-.384.96M580.705 323.457l-.384.96M580.319 324.417l-.384.96M579.932 325.377l-.288 1.056M579.652 326.43l-.384.96M579.266 327.39l-.384.96M578.879 328.35l-.288.96M578.599 329.31l-.384.96M578.212 330.27l-.288.96M577.919 331.23l-.384.96M577.532 332.19l-.288.96M577.252 333.15l-.384.96M576.866 334.11l-.384.96M576.479 335.07l-.288.96M576.199 336.03l-.288.96M575.906 336.99l-.384.96M575.519 337.95l-.288 1.056M575.239 339.003l-.288.96M574.946 339.963l-.384.96M574.559 340.923l-.288.96M574.279 341.883l-.384.96M573.892 342.843l-.288.96M573.599 343.803l-.384.864M573.212 344.67l-.288 1.056M572.932 345.723l-.288.96M572.639 346.683l-.288.96M572.359 347.643l-.288.96M572.066 348.603l-.288.864M571.772 349.47l-.288.96M571.492 350.43l-.288.96M571.2 351.39l-.29.96M570.92 352.35l-.289.958M570.626 353.31l-.288.96M570.332 354.27l-.288.96M570.052 355.23l-.288.863M569.76 356.096l-.289.961M569.48 357.056l-.289.864M569.186 357.91l-.192.96M569 358.87l-.289.96M568.706 359.83l-.194.863M568.52 360.696l-.289.959M568.226 361.656l-.192.865M568.04 362.523l-.289.864M567.746 363.39l-.192.863M567.56 364.256l-.289.864M567.266 365.11l-.192.862M567.08 365.976l-.289.864M566.786 366.842l-.192.864M566.6 367.71l-.193.768M566.4 368.47l-.193.863M566.213 369.336l-.192.766M566.013 370.109l-.288.77M565.733 370.869l-.192.767M565.533 371.642l-.192.77M565.346 372.416l-.192.766M565.16 373.176l-.193.769M564.96 373.949l-.193.768M564.773 374.709l-.192.863M564.573 375.576l-.192.864M564.386 376.442l-.192.961M564.2 377.402l-.193.96M564 378.362l-.289 1.055M563.72 379.415l-.193 1.058M563.52 380.469l-.289 1.152M563.24 381.629l-.289 1.152M562.946 382.775l-.288 1.151M562.653 383.935l-.192 1.152M562.466 385.082l-.288 1.25M562.173 386.335l-.192 1.248M561.986 387.575l-.288 1.152M561.693 388.735l-.192 1.248M561.506 389.975l-.288 1.152M561.213 391.135l-.192 1.248M561.026 392.375l-.192 1.248M560.84 393.628l-.193 1.152M560.64 394.775l-.193 1.152M560.453 395.935l-.288 1.152M560.16 397.082l-.193 1.248M559.973 398.335l-.192 1.152M559.773 399.482l-.192 1.152M559.586 400.628l-.192 1.152M559.4 401.788l-.193 1.056M559.2 402.842l-.097 1.152M559.106 403.988l-.192 1.152M558.92 405.148l-.193 1.056M558.72 406.201l-.097 1.152M558.626 407.348l-.192 1.056M558.44 408.415l-.193 1.056M558.24 409.468l-.097 1.152M558.146 410.615l-.192 1.056M557.96 411.668l-.097 1.056M557.853 412.735l-.096 1.056M557.76 413.788l-.097 1.056M557.666 414.841l-.192 1.056M557.48 415.895l-.097 1.056M557.373 416.948l-.192.96M557.186 417.908l-.097 1.056M557.093 418.974l-.096 1.056M557 420.028l-.095 1.056M556.906 421.081l-.097.96M556.8 422.041l-.097 1.056M556.706 423.094l-.095 1.056M556.613 424.148l-.098.96M556.52 425.108l-.097 1.056M556.413 426.174v1.056M556.413 427.228l-.095 1.056M556.32 428.28l-.097.96M556.226 429.24v1.057M556.226 430.294l-.097 1.056M556.133 431.347v1.056M556.133 432.414l-.095.96M556.04 433.374l-.097 1.056M555.946 434.427v1.056M555.946 435.48l-.096 1.057M555.84 436.534v1.056M555.84 437.587l-.098.96M555.746 438.547v1.056M555.746 439.614v1.056M555.746 440.667l-.095 1.056M555.653 441.72v1.057M555.653 442.774v1.056M555.653 443.827v1.056M555.653 444.894v1.056M555.653 445.947l-.096.96M555.56 446.907v1.056M555.56 447.96v1.056M555.56 449.014v1.056M555.56 450.067v1.056M555.56 451.134l.095 1.056M555.653 452.187v1.056M555.653 453.24v1.056M555.653 454.294v1.057M555.653 455.347l.096 1.056M555.746 456.414v1.057M555.746 457.467v1.054M555.746 458.52l.096 1.057M555.84 459.573v1.055M555.84 460.627l.095 1.056M555.946 461.693v1.056M555.946 462.747l.096 1.056M556.04 463.8v1.153M556.04 464.96l.095 1.055M556.133 466.013l.096 1.058M556.226 467.067l.096 1.054M556.32 468.12l.095 1.057M556.426 469.173v1.055M556.426 470.227l.096 1.055M556.52 471.293l.095 1.153M556.613 472.44l.096 1.054M556.706 473.493l.096 1.057M556.8 474.56l.095 1.054M556.906 475.613l.096 1.057M557 476.666l.095 1.152M557.093 477.813l.192 1.055M557.28 478.866l.095 1.058M557.386 479.933l.096 1.055M557.48 480.986l.193 1.152M557.666 482.133l.095 1.057M557.76 483.2l.193 1.054M557.96 484.253l.094 1.152M558.053 485.4l.193 1.057M558.253 486.453l.192 1.054M558.44 487.506l.095 1.153M558.533 488.666l.192 1.056M558.733 489.72l.19 1.151M558.92 490.88l.193 1.055M559.106 491.933l.192 1.056M559.306 492.986l.096 1.152M559.4 494.133l.191 1.056M559.586 495.2l.288 1.151M559.88 496.346l.191 1.056M560.066 497.4l.192 1.151M560.266 498.56l.192 1.055M560.453 499.612l.192 1.152M560.653 500.76l.288 1.055M560.933 501.812l.192 1.152M561.133 502.972l.192 1.056M561.32 504.026l.287 1.152M561.613 505.172l.192 1.152M561.8 506.332l.287 1.056M562.093 507.386l.288 1.152M562.373 508.532l.192 1.056M562.573 509.599l.288 1.152M562.853 510.745l.288 1.152M563.146 511.892l.192 1.056M563.333 512.959l.288 1.152M563.626 514.105l.288 1.152M563.906 515.252l.288 1.056M564.2 516.319l.287 1.152M564.493 517.465l.288 1.152M564.773 518.612l.384 1.152M565.16 519.772l.287 1.056M565.453 520.825l.288 1.152M565.733 521.972l.288 1.152M566.026 523.132l.384 1.152M566.4 524.278l.287 1.152M566.692 525.425l.384 1.152M567.08 526.585l.287 1.056M567.36 527.638l.383 1.152M567.746 528.785l.384 1.152M568.132 529.945l.288 1.152M568.412 531.092l.384 1.152M568.8 532.252l.383 1.152M569.186 533.398l.384 1.152M569.572 534.545l.384 1.152M569.96 535.705l.383 1.152M570.332 536.852l.384 1.151M570.72 538.011l.383 1.152M571.106 539.158l.384 1.152M571.492 540.305l.384 1.152M571.879 541.465l.384 1.152M572.252 542.611l.384 1.152M572.639 543.771l.48 1.152M573.119 544.918l.384 1.152M573.506 546.065l.48 1.152M573.986 547.225l.384 1.152M574.372 548.371l.48 1.248M574.852 549.625l.384 1.151M575.239 550.771l.48 1.152M575.719 551.931l.384 1.152M576.092 553.078l.48 1.153M576.572 554.224l.479 1.151M577.052 555.384l.48 1.25M577.532 556.624l.384 1.151M577.919 557.784l.481 1.152M578.399 558.931l.479 1.152M578.879 560.09l.48 1.153M579.359 561.238l.481 1.248M579.839 562.49l.478 1.153M580.319 563.638l.481 1.151M580.799 564.784l.478 1.153M581.279 565.944l.574 1.247M581.852 567.184l.479 1.153M582.332 568.344l.481 1.152M582.812 569.49l.479 1.249M583.292 570.744l.576 1.152M583.879 571.89l.481 1.153M584.359 573.05l.478 1.249M584.839 574.29l.574 1.153M585.412 575.45l.481 1.153M585.892 576.597l.576 1.248M586.465 577.85l.479 1.152M586.945 578.997l.575 1.152M587.519 580.144l.48 1.248M587.999 581.397l.576 1.152M588.572 582.544l.48 1.152M589.052 583.704l.576 1.248M589.639 584.944l.576 1.152M590.212 586.104l.576 1.248M590.785 587.344l.48 1.152M591.265 588.504l.576 1.152M591.839 589.65l.576 1.248M592.412 590.903l.48 1.152M592.892 592.05l.576 1.248M593.478 593.303l.576 1.152M594.052 594.45l.576 1.248M594.625 595.703l.576 1.152M595.198 596.85l.576 1.152M595.772 598.01l.576 1.248M596.358 599.25l.576 1.152M596.932 600.41l.576 1.248M597.505 601.65l.576 1.152M598.078 602.81l.576 1.248M598.652 604.05l.576 1.152M599.238 605.21l.576 1.248M599.812 606.45l.576 1.152M600.385 607.61l.576 1.248M600.958 608.85l.576 1.152M601.532 610.01l.576 1.152M602.118 611.156l.576 1.248M602.692 612.41l.576 1.152M603.265 613.556l.576 1.248M603.838 614.81l.672 1.152M604.518 615.956l.576 1.248M605.092 617.21l.576 1.151M605.665 618.356l.576 1.248M606.238 619.61l.576 1.151M606.811 620.756l.672 1.248M607.491 622.01l.576 1.151M608.065 623.156l.576 1.248M608.638 624.41l.576 1.151M609.211 625.556l.672 1.248M609.891 626.81l.576 1.151M610.465 627.956l.576 1.248M611.038 629.21l.672 1.151M611.718 630.356l.576 1.248M612.291 631.61l.576 1.151M612.865 632.756l.576 1.152M613.438 633.902l.673 1.248M614.118 635.156l.576 1.152M614.691 636.302l.576 1.248M615.265 637.556l.672 1.152M615.945 638.702l.576 1.248M616.518 639.956l.576 1.152M617.091 641.102l.576 1.152M617.665 642.262l.672 1.248M618.345 643.502l.576 1.152M618.918 644.662l.576 1.152M619.491 645.809l.576 1.248M620.064 647.062l.576 1.152M620.638 648.209l.672 1.152M621.318 649.369l.576 1.248M621.891 650.609l.576 1.152M622.464 651.769l.576 1.152M623.038 652.915l.576 1.152M623.624 654.062l.576 1.152M624.198 655.222l.576 1.248M624.771 656.462l.576 1.152M625.344 657.622l.576 1.152M625.918 658.768l.48 1.152M626.398 659.928l.576 1.152M626.984 661.075l.576 1.152M627.558 662.222l.48 1.152M628.038 663.382l.576 1.152M628.611 664.528l.576 1.152M629.184 665.688l.48 1.152M629.664 666.835l.48 1.056M630.144 667.888l.576 1.152M630.718 669.048l.48 1.152M631.198 670.195l.48 1.152M631.678 671.341l.48 1.056M632.158 672.408l.48 1.152M632.638 673.555l.48 1.152M633.118 674.701l.48 1.056M633.597 675.768l.48 1.056M634.077 676.821l.48 1.152M634.557 677.968l.384 1.056M634.944 679.021l.384 1.056M635.33 680.088l.48 1.152M635.81 681.235l.385 1.056M636.197 682.288l.384 1.056M636.584 683.341l.384 1.056M636.957 684.408l.288 1.056M637.25 685.461l.385 1.056M637.637 686.514l.288.96M637.917 687.474l.288 1.058M638.21 688.528l.289 1.056M638.504 689.581l.288.96M638.784 690.541l.288 1.056M639.077 691.608l.194.958M639.264 692.568l.288.96M639.557 693.528l.191.96M639.744 694.488l.192.96M639.944 695.448l.096.96M640.037 696.408l.192.958M640.224 697.368l.096.96M640.33 698.327l.097.863M640.424 699.18l.095.962M640.517 700.14v.865M640.517 701.007v.863M640.517 701.874v.865M640.517 702.74v.865M640.517 703.607l-.094.864M640.424 704.46l-.096.865M640.33 705.327l-.097.767M640.224 706.1l-.19.865M640.037 706.967l-.192.77M639.85 707.727l-.193.767M639.65 708.5l-.287.77M639.37 709.26l-.287.673M639.077 709.94l-.385.768M638.69 710.7l-.382.672M638.304 711.38l-.384.671M637.93 712.047l-.48.673M637.45 712.727l-.48.672M636.97 713.394l-.48.576M636.49 713.967l-.575.672M635.904 714.647l-.672.576M635.237 715.22l-.672.576M634.57 715.794l-.767.478M633.797 716.274l-.767.481M633.024 716.754l-.768.576M632.264 717.327l-.96.384M631.304 717.714l-.864.48M630.438 718.194l-1.056.384M629.384 718.58l-1.056.383M628.331 718.967l-1.152.385M627.171 719.34l-1.152.288M626.024 719.634l-1.248.286M624.771 719.927l-1.344.288M623.424 720.207l-1.344.288M622.091 720.5l-1.536.194M620.544 720.687l-1.535.095M619.011 720.78l-1.632.194M617.385 720.98l-1.632.095M615.745 721.074h-1.824M613.931 721.074l-1.824.097M612.105 721.167l-1.92-.097M610.185 721.074h-2.112M608.065 721.074l-2.112-.095M605.958 720.98l-2.208-.193M603.745 720.78l-2.304-.19M601.452 720.594l-2.4-.192M599.052 720.407l-2.496-.288M596.545 720.114l-2.592-.288M593.958 719.82l-2.687-.288M591.265 719.54l-2.784-.384M588.479 719.154l-2.784-.48M585.692 718.674l-2.976-.48M582.719 718.194l-3.072-.48M579.652 717.714l-3.168-.576M576.479 717.14l-3.264-.672M573.212 716.46l-3.36-.672M569.852 715.794l-3.455-.672M566.4 715.127l-3.553-.768M562.853 714.354l-3.648-.864M559.2 713.487l-3.84-.864M555.36 712.62l-3.936-.864M551.426 711.767l-4.032-.96M547.4 710.807l-4.128-1.056M543.266 709.74l-4.32-1.151M538.947 708.594l-4.512-1.152M534.44 707.447l-4.512-1.152M529.92 706.287l-4.704-1.248M525.214 705.047l-4.8-1.344M520.414 703.7l-4.992-1.343M515.427 702.354l-4.992-1.344M510.44 701.007l-5.183-1.44M505.254 699.567l-5.184-1.44M500.067 698.127l-5.28-1.535M494.788 696.594l-5.376-1.536M489.414 695.06l-5.375-1.44M484.041 693.62l-5.376-1.535M478.655 692.088l-5.472-1.536M473.188 690.541l-5.376-1.536M467.815 689.008l-5.376-1.536M462.442 687.474l-5.376-1.536M457.055 685.941l-5.28-1.44M451.775 684.501l-5.375-1.536M446.402 682.968l-5.28-1.44M441.122 681.528l-5.184-1.44M435.936 680.088l-5.28-1.536M430.656 678.541l-5.184-1.344M425.483 677.208l-5.088-1.44M420.39 675.768l-5.088-1.344M415.296 674.421l-4.992-1.344M410.31 673.075l-4.896-1.344M405.417 671.728l-4.896-1.344M400.523 670.382l-4.704-1.248M395.817 669.142l-4.704-1.152M391.11 667.982l-4.608-1.152M386.497 666.835l-4.512-1.056M381.99 665.782l-4.32-1.056M377.67 664.728l-4.127-.96M373.537 663.768l-3.936-.768M369.604 662.995l-3.84-.768M365.764 662.222l-3.456-.576M362.31 661.648l-3.167-.48M359.138 661.168l-2.88-.192M356.258 660.982l-2.496-.096M353.764 660.888l-2.015.096M351.751 660.982l-1.632.384M350.125 661.368l-1.152.672M348.965 662.035l-.672.768M348.298 662.808l-.192 1.056M348.098 663.862l.288 1.248M348.391 665.102l.672 1.44M349.058 666.542l1.248 1.632M350.311 668.182l1.44 1.824M351.751 670.008l1.92 1.824M353.671 671.821l2.112 2.016M355.778 673.848l2.4 2.016M358.178 675.861l2.496 2.016M360.684 677.875l2.784 2.112M363.458 679.981l2.784 1.92M366.244 681.901l2.688 1.92M368.937 683.821l2.399 1.632M371.337 685.461l1.92 1.248M373.257 686.701l1.248.768M374.497 687.474l.576.288M375.084 687.768l.192.096M375.27 687.861h.193M375.457 687.861l.383.096M375.844 687.954h.481M376.324 687.954h.48M376.804 687.954h.384M377.19 687.954l.385-.096M377.577 687.861l.288-.096M377.857 687.768l.192-.096M378.057 687.661l.19-.096M378.244 687.568l.097-.192M378.337 687.381v-.096M378.337 687.288v-.192M378.337 687.088l-.192-.288M378.15 686.808l-.097-.192M378.057 686.608l-.288-.288M377.764 686.328l-.288-.288M377.484 686.034l-.384-.288M377.097 685.741l-.576-.384M376.524 685.368l-.576-.48M375.937 684.888l-.672-.48M375.27 684.408l-.863-.576M374.404 683.821l-.96-.768M373.444 683.061l-1.248-.768M372.204 682.288l-1.44-.96M370.764 681.328l-1.728-1.152M369.03 680.181l-1.535-1.056M367.497 679.128l-1.44-.96M366.058 678.168l-1.44-.864M364.618 677.301l-1.344-.96M363.27 676.341l-1.343-.864M361.924 675.475l-1.344-.864M360.578 674.608l-1.344-.96M359.244 673.648l-1.344-.864M357.898 672.781l-1.344-.96M356.551 671.821l-1.44-.864M355.111 670.968l-1.344-.96M353.764 670.008l-1.343-.96M352.418 669.048l-1.344-.96M351.085 668.088l-1.344-.96M349.738 667.128l-1.44-.96M348.298 666.168l-1.344-.96M346.951 665.208l-1.344-.96M345.605 664.248l-1.344-.96M344.258 663.288l-1.344-.96M342.925 662.328l-1.44-1.056M341.485 661.262l-1.344-.96M340.138 660.302l-1.344-1.056M338.792 659.248l-1.44-1.056M337.352 658.195l-1.344-1.056M336.005 657.142l-1.344-1.056M334.658 656.089l-1.344-1.056M333.325 655.022l-1.344-1.056M331.978 653.969l-1.344-1.056M330.632 652.915l-1.344-1.056M329.285 651.862l-1.344-1.152M327.938 650.702l-1.343-1.152M326.605 649.555l-1.344-1.056M325.259 648.502l-1.344-1.152M323.912 647.342l-1.344-1.152M322.565 646.195l-1.248-1.152M321.325 645.049l-1.344-1.152M319.979 643.889l-1.248-1.152M318.725 642.742l-1.344-1.248M317.379 641.489l-1.248-1.152M316.139 640.342l-1.248-1.248M314.885 639.089l-1.248-1.248M313.645 637.849l-1.151-1.248M312.486 636.596l-1.248-1.248M311.246 635.342l-1.152-1.248M310.086 634.102l-1.152-1.248M308.939 632.85l-1.152-1.345M307.779 631.502l-1.248-1.343M306.539 630.17l-1.248-1.537M305.286 628.623l-1.152-1.44M304.14 627.183l-1.153-1.44M302.98 625.743l-1.057-1.44M301.926 624.303l-1.056-1.44M300.872 622.863l-1.055-1.536M299.82 621.33l-1.057-1.537M298.766 619.796l-.96-1.536M297.806 618.263l-.864-1.632M296.94 616.623l-.769-1.536M296.166 615.09l-.768-1.536M295.406 613.556l-.672-1.536M294.726 612.023l-.48-1.344M294.246 610.676l-.384-1.248M293.86 609.423l-.385-1.056M293.486 608.37l-.192-.96M293.286 607.41l-.192-.768M293.1 606.65l-.193-.768M292.9 605.876l-.097-.672M292.806 605.21l-.096-.576M292.713 604.623l-.096-.576M292.62 604.05l-.097-.576M292.526 603.477l-.096-.48M292.42 602.997l-.097-.48M292.326 602.517l-.096-.48M292.233 602.037v-.48M292.233 601.557l-.096-.384M292.14 601.17v-.48M292.14 600.69l-.097-.384M292.046 600.303v-.48M292.046 599.823v-.384M292.046 599.45l-.096-.384M291.94 599.063v-.384M291.94 598.677v-.384M291.94 598.29v-.384M291.94 597.903v-.384M291.94 597.53v-.384M291.94 597.143v-.384M291.94 596.757v-.288M291.94 596.463v-.384M291.94 596.09v-.384M291.94 595.703l.095-.288M292.046 595.41v-.384M292.046 595.023v-.288M292.046 594.743l.096-.384M292.14 594.357v-.288M292.14 594.063v-.384M292.14 593.69l.095-.288M292.233 593.397v-.288M292.233 593.103l.094-.384M292.326 592.73l.097-.288M292.42 592.437v-.288M292.42 592.143l.095-.288M292.526 591.863l.095-.288M292.62 591.57v-.288M292.62 591.29l.095-.288M292.713 590.997l.096-.288M292.806 590.704l.096-.288M292.9 590.424l.095-.288M293.006 590.13v-.288M293.006 589.85l.096-.288M293.1 589.557l.095-.288M293.193 589.264l.096-.288M293.286 588.984l.192-.192M293.486 588.784l.096-.288M293.58 588.504l.095-.288M293.673 588.21l.096-.192M293.766 588.024l.096-.288M293.86 587.73l.095-.192M293.966 587.544l.096-.288M294.06 587.25l.095-.288M294.153 586.97l.192-.192M294.34 586.77l.095-.192M294.446 586.584l.096-.288M294.54 586.29l.095-.192M294.633 586.104l.192-.288M294.82 585.81l.095-.192M294.926 585.624l.096-.192M295.02 585.424l.191-.288M295.206 585.144l.096-.192M295.3 584.944l.095-.192M295.406 584.757l.192-.192M295.593 584.57l.096-.192M295.686 584.37l.096-.288M295.78 584.09l.191-.192M295.98 583.89l.095-.192M296.073 583.704l.192-.192M296.26 583.504l.095-.192M296.366 583.317l.192-.192M296.553 583.13l.096-.192M296.646 582.93l.192-.192M296.846 582.744l.096-.192M296.94 582.544l.191-.192M297.126 582.357l.095-.096M297.22 582.264l.193-.192M297.42 582.064l.094-.192M297.513 581.877l.193-.192M297.7 581.69l.191-.192M297.9 581.49l.095-.192M297.993 581.304l.192-.096M298.18 581.21l.095-.192M298.286 581.01l.192-.192M298.473 580.824l.286-.288M298.766 580.53l.288-.288M299.046 580.25l.385-.288M299.433 579.957l.384-.48M299.82 579.477l.575-.48M300.392 578.997l.767-.576M301.166 578.424l.77-.672M301.926 577.744l.864-.672M302.792 577.077l.96-.67M303.752 576.41l.959-.575M304.712 575.824l.96-.672M305.672 575.157l1.152-.673M306.819 574.49l1.057-.575M307.886 573.904l1.15-.575M309.032 573.33l1.152-.575M310.179 572.757l1.152-.481M311.339 572.277l1.248-.576M312.579 571.704l1.248-.479M313.832 571.224l1.248-.48M315.085 570.744l1.344-.48M316.419 570.264l1.344-.48M317.765 569.784l1.344-.384M319.112 569.397l1.441-.48M320.552 568.917l1.439-.384M321.992 568.53l1.44-.383M323.432 568.144l1.44-.385M324.872 567.77l1.536-.287M326.405 567.477l1.44-.382M327.845 567.09l1.536-.287M329.378 566.81l1.632-.287M331.018 566.517l1.536-.288M332.552 566.224l1.632-.288M334.178 565.944l1.536-.288M335.725 565.65l1.632-.191M337.352 565.464l1.632-.288M338.978 565.17l1.728-.191M340.711 564.984l1.632-.288M342.338 564.69l1.728-.191M344.071 564.504l1.632-.192M345.698 564.304l1.728-.192M347.431 564.117l1.728-.191M349.165 563.93l1.728-.191M350.885 563.73l1.728-.095M352.618 563.638l1.728-.192M354.338 563.45l1.728-.191M356.071 563.25l1.728-.095M357.804 563.158l1.824-.192M359.618 562.97l1.728-.095M361.351 562.864l1.728-.192M363.084 562.678l1.728-.096M364.804 562.584l1.824-.096M366.63 562.49l1.729-.191M368.364 562.29l1.728-.095M370.084 562.198l1.728-.096M371.817 562.104l1.728-.192M373.537 561.904l1.728-.096M375.27 561.81l1.729-.095M377.004 561.718l1.728-.192M378.724 561.53l1.728-.095M380.457 561.424l1.632-.096M382.084 561.33l1.728-.191M383.817 561.144l1.728-.096M385.537 561.05l1.632-.191M387.177 560.85l1.632-.095M388.804 560.758l1.632-.192M390.444 560.57l1.632-.095M392.07 560.464l1.536-.192M393.603 560.278l1.632-.192M395.243 560.09l1.536-.095M396.777 559.984l1.536-.192M398.31 559.798l1.536-.192M399.843 559.61l1.536-.191M401.377 559.41l1.536-.191M402.923 559.224l1.44-.288M404.363 558.931l1.44-.192M405.803 558.744l1.44-.192M407.243 558.544l1.44-.288M408.683 558.264l1.44-.192M410.123 558.064l1.344-.288M411.456 557.784l1.344-.288M412.803 557.491l1.344-.288M414.15 557.211l1.344-.192M415.496 557.011l1.248-.384M416.736 556.624l1.248-.288M417.99 556.344l1.248-.288M419.243 556.051l1.248-.288M420.483 555.771l1.152-.384M421.643 555.384l1.248-.288M422.883 555.091l1.152-.384M424.043 554.704l1.056-.384M425.096 554.331l1.152-.384M426.243 553.944l1.056-.384M427.296 553.558l1.056-.384M428.363 553.171l1.056-.384M429.416 552.784l.96-.48M430.376 552.304l.96-.384M431.336 551.931l.96-.48M432.296 551.451l.959-.48M433.256 550.971l.961-.48M434.216 550.491l.862-.48M435.07 550.011l.864-.48M435.936 549.531l.864-.48M436.802 549.051l.768-.48M437.576 548.571l.864-.576M438.442 547.985l.768-.48M439.202 547.505l.768-.576M439.976 546.931l.672-.48M440.642 546.451l.767-.574M441.416 545.878l.673-.576M442.082 545.305l.672-.576M442.762 544.731l.672-.576M443.429 544.158l.576-.672M444.002 543.478l.67-.576M444.669 542.905l.576-.672M445.256 542.238l.577-.576M445.829 541.651l.576-.672M446.402 540.985l.479-.674M446.882 540.305l.576-.576M447.455 539.731l.482-.67M447.935 539.065l.48-.672M448.415 538.398l.48-.768M448.895 537.625l.482-.67M449.375 536.958l.383-.672M449.762 536.278l.48-.672M450.242 535.612l.385-.768M450.629 534.838l.382-.672M451.015 534.172l.384-.768M451.389 533.398l.384-.768M451.775 532.638l.288-.672M452.069 531.958l.384-.768M452.455 531.198l.288-.768M452.735 530.425l.384-.768M453.122 529.652l.288-.768M453.415 528.892l.288-.768M453.695 528.118l.288-.768M453.989 527.358l.192-.768M454.175 526.585l.288-.864M454.469 525.718l.288-.768M454.749 524.958l.192-.768M454.949 524.185l.192-.768M455.135 523.412l.288-.864M455.429 522.559l.192-.768M455.615 521.785l.192-.864M455.815 520.919l.192-.768M456.002 520.159l.096-.864M456.095 519.292l.192-.768M456.295 518.519l.192-.864M456.482 517.652l.192-.864M456.669 516.799l.096-.864M456.775 515.932l.192-.768M456.962 515.159l.096-.864M457.055 514.292l.096-.864M457.149 513.439l.192-.768M457.349 512.665l.096-.864M457.442 511.799l.096-.864M457.535 510.932l.192-.864M457.735 510.066v-.864M457.735 509.212l.192-.864M457.922 508.346l.096-.864M458.015 507.479l.096-.864M458.122 506.612v-.768M458.122 505.852l.096-.864M458.215 504.986l.096-.864M458.309 504.119l.096-.864M458.402 503.252l.096-.864M458.495 502.386v-.864M458.495 501.532l.096-.864M458.602 500.666l.096-.768M458.695 499.892l.096-.864M458.789 499.026v-.864M458.789 498.172l.096-.863M458.882 497.306l.096-.864M458.975 496.44v-.769M458.975 495.666l.096-.864M459.082 494.813l.096-.864M459.175 493.946v-.864M459.175 493.08l.096-.865M459.269 492.213v-.864M459.269 491.346l.096-.768M459.362 490.586l.096-.864M459.455 489.72v-.865M459.455 488.853l.096-.864M459.562 487.986v-.768M459.562 487.226l.096-.864M459.655 486.36v-.865M459.655 485.493l.096-.768M459.749 484.733v-.864M459.749 483.866l.096-.768M459.842 483.093v-.864M459.842 482.226l.096-.864M459.935 481.373l.096-.768M460.042 480.6v-.864M460.042 479.733l.096-.768M460.135 478.973l.096-.864M460.228 478.106v-.768M460.228 477.333l.096-.864M460.322 476.466l.096-.768M460.415 475.706v-.768M460.415 474.933l.096-.864M460.522 474.066v-.768M460.522 473.306l.096-.768M460.615 472.533l.096-.864M460.708 471.666v-.768M460.708 470.906l.098-.767M460.802 470.133l.096-.768M460.895 469.373l.095-.864M461.002 468.507v-.768M461.002 467.733l.097-.768M461.095 466.973l.096-.768M461.188 466.2l.095-.864M461.282 465.333l.097-.768M461.375 464.573v-.768M461.375 463.8l.096-.768M461.482 463.027l.096-.768M461.575 462.267l.095-.768M461.668 461.493l.098-.768M461.762 460.733l.096-.768M461.855 459.96v-.768M461.855 459.187l.095-.768M461.962 458.427l.097-.672M462.055 457.747l.096-.768M462.148 456.987l.095-.768M462.242 456.214l.097-.768M462.335 455.454l.096-.768M462.442 454.68l.094-.672M462.535 454.014l.096-.768M462.628 453.24l.098-.768M462.722 452.467l.094-.768M462.815 451.707l.096-.672M462.922 451.027l.097-.768M463.015 450.267l.095-.672M463.108 449.587l.096-.768M463.202 448.827l.097-.672M463.295 448.147l.096-.768M463.402 447.387l.096-.768M463.495 446.614l.096-.672M463.588 445.947l.096-.672M463.682 445.267l.096-.768M463.775 444.507l.096-.67M463.882 443.827l.192-.672M464.068 443.16l.096-.767M464.162 442.387l.096-.672M464.255 441.72l.096-.767M464.362 440.947l.096-.672M464.455 440.28l.192-.67M464.642 439.614l.096-.672M464.735 438.934l.096-.672M464.842 438.267l.096-.766M464.935 437.494l.192-.673M465.122 436.827l.096-.672M465.215 436.147l.096-.672M465.322 435.48l.096-.67M465.415 434.814l.192-.673M465.602 434.134l.096-.672M465.695 433.467l.096-.672M465.802 432.787l.096-.67M465.895 432.12l.192-.575M466.082 431.547l.096-.672M466.175 430.867l.096-.671M466.282 430.2l.192-.671M466.468 429.534l.096-.672M466.562 428.854l.192-.576M466.762 428.28l.096-.67M466.855 427.614l.096-.672M466.948 426.934l.096-.576M467.042 426.36l.192-.671M467.242 425.694l.096-.672M467.335 425.014l.192-.67M467.522 424.348l.096-.578M467.615 423.774l.096-.67M467.722 423.094l.192-.576M467.908 422.521l.096-.672M468.002 421.854l.192-.576M468.202 421.268l.096-.672M468.295 420.601l.192-.576M468.482 420.028l.096-.672M468.575 419.348l.192-.576M468.775 418.774l.096-.576M468.868 418.201l.192-.672M469.055 417.534l.096-.575M469.162 416.948l.192-.672M469.348 416.281l.096-.576M469.442 415.708l.192-.576M469.642 415.135l.096-.672M469.735 414.455l.192-.576M469.922 413.881l.096-.576M470.015 413.308l.192-.576M470.215 412.735l.096-.576M470.308 412.148l.192-.576M470.495 411.575l.096-.672M470.602 410.908l.192-.576M470.788 410.335l.096-.576M470.882 409.748l.192-.576M471.082 409.175l.192-.576M471.268 408.601l.096-.576M471.362 408.028l.192-.576M471.562 407.455l.094-.576M471.655 406.868l.193-.576M471.842 406.295l.192-.576M472.042 405.721l.096-.576M472.135 405.148l.192-.576M472.322 404.575l.097-.48M472.415 404.095l.19-.576M472.615 403.508l.097-.576M472.708 402.935l.19-.576M472.895 402.362l.193-.576M473.095 401.788l.095-.48M473.188 401.308l.193-.576M473.375 400.735l.094-.576M473.468 400.148l.193-.48M473.668 399.668l.19-.576M473.855 399.095l.097-.576M473.948 398.522l.192-.576M474.148 397.948l.193-.48M474.335 397.468l.094-.576M474.428 396.895l.193-.48M474.628 396.415l.19-.576M474.815 395.828l.096-.48M474.908 395.348l.192-.576M475.108 394.775l.192-.48M475.295 394.295l.096-.576M475.388 393.722l.192-.48M475.588 393.242l.192-.576M475.775 392.668l.096-.48M475.868 392.188l.192-.576M476.068 391.615l.192-.48M476.255 391.135l.096-.576M476.348 390.549l.192-.48M476.548 390.069l.192-.48M476.735 389.589l.096-.576M476.828 389.015l.192-.48M477.028 388.535l.192-.48M477.215 388.055l.096-.576M477.308 387.482l.192-.48M477.508 387.002l.192-.48M477.695 386.522l.192-.48M477.895 386.042l.096-.575M477.988 385.469l.192-.482M478.175 384.989l.192-.48M478.375 384.509l.096-.48M478.468 384.029l.192-.48M478.655 383.549l.192-.576M478.855 382.975l.192-.48M479.041 382.495l.096-.48M479.135 382.015l.192-.478M479.335 381.535l.192-.48M479.521 381.055l.096-.48M479.615 380.575l.192-.48M479.815 380.095l.192-.48M480.001 379.615l.192-.478M480.188 379.135l.096-.48M480.295 378.655l.192-.478M480.481 378.175l.192-.48M480.668 377.695l.192-.48M480.868 377.216l.096-.48M480.961 376.736l.192-.48M481.161 376.256l.192-.48M481.348 375.776l.192-.48M481.535 375.296l.096-.384M481.641 374.909l.192-.48M481.828 374.429l.192-.48M482.015 373.949l.096-.48M482.121 373.469l.192-.48M482.308 372.989l.192-.48M482.495 372.509l.096-.384M482.601 372.122l.192-.48M482.788 371.642l.192-.48M482.975 371.162l.192-.48M483.175 370.682l.096-.384M483.268 370.296l.192-.48M483.455 369.816l.192-.48M483.655 369.336l.192-.384M483.841 368.949l.192-.48M484.041 368.47l.096-.48M484.135 367.99l.192-.385M484.321 367.616l.192-.48M484.521 367.136l.096-.48M484.615 366.656l.192-.384M484.801 366.27l.19-.48M485.001 365.79l.194-.385M485.188 365.402l.095-.48M485.281 364.922l.194-.384M485.481 364.536l.192-.48M485.668 364.056l.193-.384M485.855 363.67l.094-.48M485.961 363.19l.194-.383M486.148 362.816l.192-.481M486.335 362.336l.096-.383M486.441 361.95l.19-.482M486.628 361.47l.192-.385M486.814 361.083l.096-.48M486.921 360.603l.192-.384M487.108 360.216l.193-.383M487.294 359.83l.191-.482M487.494 359.35l.096-.385M487.588 358.976l.192-.383M487.774 358.59l.194-.482M487.974 358.11l.095-.383M488.068 357.723l.192-.384M488.254 357.336l.192-.481M488.454 356.856l.192-.383M488.641 356.47l.096-.386M488.734 356.096l.192-.384M488.934 355.71l.192-.48M489.121 355.23l.096-.386M489.214 354.843l.192-.384M489.414 354.456l.192-.383M489.601 354.07l.192-.386M489.801 353.696l.192-.479M489.988 353.216l.096-.384M490.081 352.83l.192-.386M490.281 352.443l.192-.384M490.468 352.056l.096-.383M490.561 351.67l.192-.386M490.761 351.296l.192-.384M490.948 350.91l.096-.48M491.041 350.43l.192-.386M491.241 350.043l.192-.384M491.428 349.656l.096-.382M491.521 349.27l.192-.386M491.721 348.896l.192-.384M491.908 348.51l.096-.383M492.001 348.123l.192-.384M492.201 347.736l.192-.385M492.388 347.35l.192-.384M492.574 346.976l.096-.382M492.681 346.59l.192-.384M492.868 346.203l.192-.288M493.054 345.91l.096-.386M493.161 345.536l.192-.382M493.348 345.15l.192-.384M493.534 344.763l.096-.384M493.641 344.376l.192-.384M493.828 343.99l.192-.384M494.014 343.616l.096-.384M494.121 343.23l.192-.288M494.308 342.936l.192-.384M494.494 342.55l.096-.384M494.601 342.176l.192-.384M494.788 341.79l.192-.288M494.974 341.496l.096-.384M495.081 341.11l.192-.384M495.268 340.736l.192-.384M495.454 340.35l.096-.288M495.56 340.056l.193-.384M495.748 339.67l.096-.384M495.84 339.296l.193-.288M496.04 339.003l.193-.384M496.228 338.616l.096-.384M496.32 338.23l.193-.288M496.52 337.95l.097-.384M496.614 337.563l.192-.384M496.8 337.177l.193-.288M497 336.897l.097-.384M497.094 336.51l.192-.288M497.28 336.217l.193-.384M497.48 335.83l.097-.288M497.574 335.55l.192-.384M497.76 335.163l.097-.382M497.854 334.777l.192-.29M498.054 334.497l.096-.288M498.148 334.203l.192-.382M498.334 333.817l.192-.288M498.534 333.537l.096-.384M498.628 333.15l.192-.288M498.814 332.857l.096-.386M498.92 332.47l.193-.287M499.108 332.19l.096-.385M499.2 331.803l.193-.288M499.4 331.523l.097-.288M499.494 331.23l.192-.384M499.68 330.843l.192-.288M499.868 330.563l.097-.288M499.974 330.27l.19-.384M500.16 329.883l.098-.288M500.254 329.603l.19-.288M500.454 329.31l.097-.384M500.547 328.923l.194-.288M500.734 328.643l.095-.288M500.827 328.35l.194-.288M501.027 328.057l.095-.288M501.12 327.777l.194-.384M501.32 327.39l.095-.288M501.414 327.097l.193-.288M501.6 326.817l.095-.288M501.694 326.523l.193-.288M501.894 326.243l.095-.288M501.987 325.95l.096-.288M502.08 325.657l.193-.288M502.267 325.377l.096-.288M502.374 325.083l.192-.288M502.56 324.803l.097-.288M502.654 324.51l.096-.288M502.747 324.217l.192-.288M502.947 323.937l.096-.288M503.04 323.644l.193-.288M503.227 323.364l.096-.288M503.334 323.07l.096-.288M503.427 322.777l.192-.288M503.614 322.497l.096-.288M503.707 322.204l.096-.192M503.814 322.017l.192-.288M504 321.724l.097-.288M504.094 321.444l.096-.288M504.187 321.15l.192-.288M504.387 320.857l.096-.192M504.48 320.67l.097-.288M504.574 320.377l.096-.288M504.667 320.097l.192-.192M504.867 319.897l.096-.288M504.96 319.617l.097-.288M505.054 319.324l.192-.192M505.254 319.137l.096-.288M505.347 318.844l.096-.288M505.44 318.564l.097-.192M505.534 318.364l.096-.288M505.627 318.084l.192-.192M505.827 317.884l.096-.288M505.92 317.604l.097-.192M506.014 317.404l.096-.288M506.107 317.124l.192-.192M506.307 316.924l.096-.288M506.4 316.644l.097-.192M506.494 316.444l.096-.192M506.587 316.257l.096-.288M506.694 315.964l.096-.192M506.787 315.777l.096-.192M506.88 315.577l.097-.288M506.974 315.297l.096-.192M507.067 315.097l.096-.192M507.174 314.91l.096-.192M507.267 314.724l.096-.288M507.36 314.43l.097-.192M507.454 314.244l.096-.192M507.547 314.044l.096-.192M507.654 313.857l.096-.192M507.747 313.657l.096-.192M507.84 313.47l.097-.192M507.934 313.284l.096-.192M508.027 313.084l.096-.192M508.134 312.897l.096-.192M508.227 312.697l.096-.096M508.32 312.604v-.192M508.32 312.417l.097-.192M508.414 312.217l.096-.192M508.507 312.03l.096-.192M508.614 311.844l.096-.096M508.707 311.737v-.192M508.707 311.55l.096-.192M508.8 311.364l.097-.096M508.894 311.257l.096-.192M508.987 311.07h-.096"/></g><g stroke="#c03" stroke-width="28.8"><path stroke-width="3.839904" d="m507.08 301.75-3.743 1.92M503.334 303.67l-1.824 1.825M501.507 305.497l-1.92 3.744M499.588 309.244v3.744M499.588 312.99l1.92 3.648M501.507 316.63l1.824 1.92M503.334 318.55l3.744 1.824M507.08 320.377h3.745M510.814 320.377l3.744-1.824M514.56 318.55l1.824-1.92M516.387 316.63l1.824-3.648M518.214 312.99v-3.743M518.214 309.244l-1.824-3.744M516.387 305.497l-1.824-1.824M514.56 303.67l-3.743-1.92M510.814 301.75h-3.744"/></g></g></svg>
\ No newline at end of file
diff --git a/star/test_suite/starspots/inlist_starspots b/star/test_suite/starspots/inlist_starspots
index 4ea11c6d7..df1f3213b 100644
--- a/star/test_suite/starspots/inlist_starspots
+++ b/star/test_suite/starspots/inlist_starspots
@@ -5,146 +5,162 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 &star_job
-    history_columns_file = 'history_master.list'
-    profile_columns_file = 'profile_master.list'
-    
-    required_termination_code_string = 'max_age' 
+   history_columns_file = 'history_master.list'
+   profile_columns_file = 'profile_master.list'
 
-    save_pulse_data_when_terminate = .false.
+   required_termination_code_string = 'max_age'
 
-    create_pre_main_sequence_model = .true.
-    pre_ms_relax_to_start_radiative_core = .false. !.true. ! by default, but it should not be!!! 
+   save_pulse_data_when_terminate = .false.
 
+   create_pre_main_sequence_model = .true.
+   pre_ms_relax_to_start_radiative_core = .false. !.true. ! by default, but it should not be!!!
 
-    ! save a model at the end of the run
-    save_model_when_terminate = .true.
-    save_model_filename = 'final.mod'
+   ! save a model at the end of the run
+   save_model_when_terminate = .true.
+   save_model_filename = 'final.mod'
 
-    new_rotation_flag = .false.
+   new_rotation_flag = .false.
 
-    pre_ms_T_c = 3d5 ! default -- any lower doesn't work
-    pre_ms_check_radiative_core_min_mass = 0.3d0 ! default is 0.3d0
-    pre_ms_check_radiative_core_Lnuc_div_L_limit = 1d-6
+   pre_ms_T_c = 3d5 ! default -- any lower doesn't work
+   pre_ms_check_radiative_core_min_mass = 0.3d0 ! default is 0.3d0
+   pre_ms_check_radiative_core_Lnuc_div_L_limit = 1d-6
 
+   set_uniform_initial_composition = .true.
 
-    set_uniform_initial_composition = .true.
+   initial_h1 = 0.7349
+   initial_h2 = 2.75d-5  ! Lodders 2009
+   initial_he3 = 8.5d-5  ! Lodders 2009
+   initial_he4 = 0.24
 
-    initial_h1 = 0.7349
-    initial_h2 = 2.75d-5  ! Lodders 2009
-    initial_he3 = 8.5d-5  ! Lodders 2009 
-    initial_he4 = 0.24 
+   initial_zfracs = 6 !! scaling of the rest of the elements according to someone's solar abundance
 
+   ! display on-screen plots
+   pgstar_flag = .true.
+   save_pgstar_files_when_terminate = .true.
 
-    initial_zfracs = 6 !! scaling of the rest of the elements according to someone's solar abundance
+   ! network
+   change_net = .true.
+   new_net_name= 'pp_extras.net' !
 
-    ! display on-screen plots
-    pgstar_flag = .false.
-
-    !network 
-    change_net = .true.
-    new_net_name= 'pp_extras.net' !
-
-/ !end of star_job namelist
+/ ! end of star_job namelist
 
 
 &eos
 /
 
 &kap
-    Zbase = 0.0200 !0.014
+   Zbase = 0.0200 !0.014
 
-    !opacities with AGSS09 abundances
-    kap_file_prefix = 'a09' 
-    kap_lowT_prefix = 'lowT_fa05_a09p'
-    kap_CO_prefix = 'a09_co'
+   ! opacities with AGSS09 abundances
+   kap_file_prefix = 'a09'
+   kap_lowT_prefix = 'lowT_fa05_a09p'
+   kap_CO_prefix = 'a09_co'
 /
 
 &controls
-    star_history_name = 'history.data'
-
-    max_age = 0.8d9 
+   star_history_name = 'history.data'
 
-    use_other_mlt_results = .true. !.true.
-    use_other_surface_PT = .true. !.True.
-
-    x_ctrl(1) = 0.34d0 ! fspot
-    x_ctrl(2) = 0.85d0 ! xspot
-
-    atm_option = 'table'        
-    atm_table = 'photosphere'   
+   max_age = 24.63d9 !26d9 !0.8d9
    
+   do_starspots = .true.
+   fspot = 0.34d0
+   xspot = 0.85d0
+
+   atm_option = 'table'
+   atm_table = 'photosphere'
 
-    warn_when_large_rel_run_E_err = 99d0 !0.02d0
-    log_directory = 'LOGS'
-    write_profiles_flag = .false.
+   warn_when_large_rel_run_E_err = 99d0 !0.02d0
+   log_directory = 'LOGS'
+   write_profiles_flag = .false.
 
+   max_num_profile_models = -1
+   history_interval = 1
+   terminal_interval = 100
+   write_header_frequency = 10
+   photo_digits = 5
+   photo_interval = 100
 
-    max_num_profile_models = -1
-    history_interval = 1
-    terminal_interval = 100
-    write_header_frequency = 10
-    photo_digits = 5
-    photo_interval = 100
+   ! starting specifications
+   initial_mass = 0.9 ! in Msun units
+   min_timestep_limit=0
+   max_model_number = -1 !1500
 
-    ! starting specifications
-    initial_mass = 1.0 ! in Msun units
-    min_timestep_limit=0
-    max_model_number = -1!1500 
-    
+   cool_wind_RGB_scheme = 'Reimers'
+   cool_wind_AGB_scheme = 'Blocker'
+   RGB_to_AGB_wind_switch = 1d-4
+   Reimers_scaling_factor = 0.1
+   Blocker_scaling_factor = 0.2
+   max_wind = 1d-3
 
-    cool_wind_RGB_scheme = 'Reimers'
-    cool_wind_AGB_scheme = 'Blocker'
-    RGB_to_AGB_wind_switch = 1d-4
-    Reimers_scaling_factor = 0.1
-    Blocker_scaling_factor = 0.2
-    max_wind = 1d-3
+   mixing_length_alpha = 1.9500
+   MLT_option = 'Henyey'
 
-    mixing_length_alpha = 1.9500 !1.95 
-    MLT_option = 'Henyey'
+   do_element_diffusion = .false.
+   report_solver_progress = .false.
 
-    do_element_diffusion = .false.
-    report_solver_progress = .false.
+   ! Solver
+   use_gold2_tolerances = .true.
 
-    ! Solver
-    use_gold2_tolerances = .true.
-    
-    ! Timestep and grid
-    mesh_delta_coeff = 0.8
-    time_delta_coeff = 1.0 !0.8 !0.5
+   ! Timestep and grid
+   mesh_delta_coeff = 0.8
+   time_delta_coeff = 1.0 !0.8 !0.5
 
-    varcontrol_target = 1e-4 
-    !max_allowed_nz = 50000
+   varcontrol_target = 1e-4
+   !max_allowed_nz = 50000
 
-    !to help with convergence
-    okay_to_reduce_gradT_excess = .true.
-    Pextra_factor = 2.0
+   ! to help with convergence
+   okay_to_reduce_gradT_excess = .true.
+   Pextra_factor = 2.0
 
 !-------------------------------------------
 !! convective overshoot, new formalism
 !-------------------------------------------
-    overshoot_scheme(:)    = 'exponential' ! ``exponential``, ``step``, ``other``
-    overshoot_zone_type(:) = 'any' !  ``burn_H``, ``burn_He``, ``burn_Z``, ``nonburn``, ``any``
-    overshoot_zone_loc(:)  = 'any' ! ``core``, ``shell``, ``any``
-    overshoot_bdy_loc(:)   = 'any' ! ``bottom``, ``top``, ``any``
+   overshoot_scheme(:)    = 'exponential' ! ``exponential``, ``step``, ``other``
+   overshoot_zone_type(:) = 'any' !  ``burn_H``, ``burn_He``, ``burn_Z``, ``nonburn``, ``any``
+   overshoot_zone_loc(:)  = 'any' ! ``core``, ``shell``, ``any``
+   overshoot_bdy_loc(:)   = 'any' ! ``bottom``, ``top``, ``any``
 
-      ! Amount of overshooting from edge of convective zone
-      ! These are arrays of size ``NUM_OVERSHOOT_PARAM_SETS`` which is defined in
-      ! ``star_data/public/star_data_def.inc`` (currently 16)
+   ! Amount of overshooting from edge of convective zone
+   ! These are arrays of size ``NUM_OVERSHOOT_PARAM_SETS`` which is defined in
+   ! ``star_data/public/star_data_def.inc`` (currently 16)
 
-    overshoot_f(:)  = 0.014d0
-    overshoot_f0(:) = 0.004d0
+   overshoot_f(:)  = 0.014d0
+   overshoot_f0(:) = 0.004d0
 
-    ! Convergence checking
-    use_gold_tolerances = .true.
-    
+   ! Convergence checking
+   use_gold_tolerances = .true.
 
-    max_number_retries = -1 !1000 !100!100
-    max_model_number = 10000 !-1  
+   max_number_retries = -1 !1000 !100
+   max_model_number = 10000 !-1
 
-    !better resolution of the Henyey hook
-    delta_lg_XH_cntr_max = -1
+   ! better resolution of the Henyey hook
+   delta_lg_XH_cntr_max = -1
 
+/ ! end of controls namelist
 
 
-/ ! end of controls namelist
+&pgstar
+
+   pgstar_interval = 50
+
+   ! device
+   file_white_on_black_flag = .true.
+   file_device = 'vcps' ! postscript
+   file_extension = 'ps'
+
+   HR_win_flag = .true. ! switch to .true. to visualize in real-time
+   HR_file_flag = .true.
+   HR_file_dir = 'pgstar_out'
+   HR_file_prefix = 'hr_starspots_'
+   HR_file_interval = 50
+   HR_win_width = 9
+   HR_win_aspect_ratio = 1.0
+   HR_title = 'HR'
+
+   ! set static plot bounds
+   HR_logT_min = 3.55
+   HR_logT_max = 3.78
+   HR_logL_min = -0.7
+   HR_logL_max = 2.0
 
+/ ! end of pgstar namelist
diff --git a/star/test_suite/starspots/inlist_starspots_header b/star/test_suite/starspots/inlist_starspots_header
index 5af82e6f7..a4c8dc792 100644
--- a/star/test_suite/starspots/inlist_starspots_header
+++ b/star/test_suite/starspots/inlist_starspots_header
@@ -1,41 +1,41 @@
 
 &star_job
 
-      mesa_dir = '../../..'
+   mesa_dir = '../../..'
 
-      read_extra_star_job_inlist(2) = .true.
-      extra_star_job_inlist_name(2) = 'inlist_starspots'
+   read_extra_star_job_inlist(2) = .true.
+   extra_star_job_inlist_name(2) = 'inlist_starspots'
 
 / ! end of star_job namelist
 
 
 &eos
 
-      read_extra_eos_inlist(1) = .true.
-      extra_eos_inlist_name(1) = 'inlist_starspots'
+   read_extra_eos_inlist(1) = .true.
+   extra_eos_inlist_name(1) = 'inlist_starspots'
 
 / ! end of eos namelist
 
 
 &kap
 
-      read_extra_kap_inlist(1) = .true.
-      extra_kap_inlist_name(1) = 'inlist_starspots'
+   read_extra_kap_inlist(1) = .true.
+   extra_kap_inlist_name(1) = 'inlist_starspots'
 
 / ! end of kap namelist
 
 
 &controls
 
-      read_extra_controls_inlist(1) = .true.
-      extra_controls_inlist_name(1)= 'inlist_starspots'
+   read_extra_controls_inlist(1) = .true.
+   extra_controls_inlist_name(1)= 'inlist_starspots'
 
 / ! end of controls namelist
 
 
 &pgstar
 
-      read_extra_pgstar_inlist(1) = .true.
-      extra_pgstar_inlist_name(1)= 'inlist_starspots'
+   read_extra_pgstar_inlist(1) = .true.
+   extra_pgstar_inlist_name(1)= 'inlist_starspots'
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/starspots/src/run_star_extras.f90 b/star/test_suite/starspots/src/run_star_extras.f90
index cd61e1ec1..89743ce76 100644
--- a/star/test_suite/starspots/src/run_star_extras.f90
+++ b/star/test_suite/starspots/src/run_star_extras.f90
@@ -1,6 +1,6 @@
 ! ***********************************************************************
 !
-!   Copyright (C) 2010-2019  Bill Paxton & The MESA Team
+!   Copyright (C) 2011  The MESA Team
 !
 !   this file is part of mesa.
 !
@@ -26,20 +26,17 @@ module run_star_extras
       use star_def
       use const_def
       use math_lib
-      use chem_def !! maybe taking up uncessary space but whatever
+      use auto_diff
       
-
       implicit none
-      real(dp) :: fspot, xspot, PB_i, Teff_local
 
       include "test_suite_extras_def.inc"
-
+      
+      ! these routines are called by the standard run_star check_model
       contains
 
       include "test_suite_extras.inc"
-   
-
-      ! these routines are called by the standard run_star check_model
+      
       
       subroutine extras_controls(id, ierr)
          integer, intent(in) :: id
@@ -48,21 +45,7 @@ subroutine extras_controls(id, ierr)
          ierr = 0
          call star_ptr(id, s, ierr)
          if (ierr /= 0) return
-         
-         ! this is the place to set any procedure pointers you want to change
-         ! e.g., other_wind, other_mixing, other_energy  (see star_data.inc)
-
-         ! the extras functions in this file will not be called
-         ! unless you set their function pointers as done below.
-         ! otherwise we use a null_ version which does nothing (except warn).
-
-
-         fspot = s% x_ctrl(1)
-         xspot = s% x_ctrl(2)
-
-
          s% extras_startup => extras_startup
-         s% extras_start_step => extras_start_step
          s% extras_check_model => extras_check_model
          s% extras_finish_step => extras_finish_step
          s% extras_after_evolve => extras_after_evolve
@@ -70,18 +53,9 @@ subroutine extras_controls(id, ierr)
          s% data_for_extra_history_columns => data_for_extra_history_columns
          s% how_many_extra_profile_columns => how_many_extra_profile_columns
          s% data_for_extra_profile_columns => data_for_extra_profile_columns  
-
-         s% how_many_extra_history_header_items => how_many_extra_history_header_items
-         s% data_for_extra_history_header_items => data_for_extra_history_header_items
-         s% how_many_extra_profile_header_items => how_many_extra_profile_header_items
-         s% data_for_extra_profile_header_items => data_for_extra_profile_header_items
-
-         s% other_surface_PT => starspot_tweak_PT
-         s% other_mlt_results => YREC_spots_other_mlt_results
-
       end subroutine extras_controls
-
-
+      
+      
       subroutine extras_startup(id, restart, ierr)
          integer, intent(in) :: id
          logical, intent(in) :: restart
@@ -93,153 +67,18 @@ subroutine extras_startup(id, restart, ierr)
          call test_suite_startup(s, restart, ierr)
       end subroutine extras_startup
       
-
-      integer function extras_start_step(id)
+      
+      subroutine extras_after_evolve(id, ierr)
          integer, intent(in) :: id
-         integer :: ierr
-         real(dp) :: mu_ideal_gas, R2 !! pi can be deleted
+         integer, intent(out) :: ierr
          type (star_info), pointer :: s
-         real(dp) :: power_he_burn, power_c_burn, power_neutrinos, &
-         center_h1, center_he4, ocz_top_mass, ocz_bot_mass, &
-         ocz_top_radius, ocz_bot_radius!, mass_difference_prev !! no!!
-         integer :: nz, j, i, k, k_ocz_top, k_ocz_bot, n_conv_bdy
-!         include 'formats'
+         real(dp) :: dt
          ierr = 0
          call star_ptr(id, s, ierr)
          if (ierr /= 0) return
-         extras_start_step = 0
-
-         !! to use constants as defined in MESA, import const_def and call
-         !! variables by their names there
-
-         ! set PB_i here and then other_mlt will know about it, because 
-         ! quantities set here are carried over the course of a timestep, 
-         ! AKA all newton iterations
-         
-         mu_ideal_gas = s% mu(1)  !1.00794d0 ! for hydrogen, 1 gram per mole
-         !write(*,*) 'MESA def, my def: ', s% mu(1), mu_ideal_gas  
-
-         R2 = pow2(s%R(1))
-         Teff_local = pow(s%L(1)/(pi4*boltz_sigma*R2), 0.25d0)
-         PB_i = (cgas* s%rho(1)/mu_ideal_gas) * (1.0 - xspot) * Teff_local
-
-      end function extras_start_step
-
-
-!-----------------------------------------------------------------------------------------
-!
-! YREC routines
-!
-!----------------------------------------------------------------------------------------
-      subroutine YREC_spots_other_mlt_results(id, k, MLT_option, &  ! NOTE: k=0 is a valid arg
-            r, L, T, P, opacity, rho, chiRho, chiT, Cp, gradr, grada, scale_height, &
-            iso, XH1, cgrav, m, gradL_composition_term, mixing_length_alpha, &
-            alpha_semiconvection, thermohaline_coeff, &
-            mixing_type, gradT, Y_face, conv_vel, D, Gamma, ierr)
-         use const_def, only: dp
-         use auto_diff
-         integer, intent(in) :: id
-         integer, intent(in) :: k
-         ! integer, intent(out) :: ierr
-         ! type (star_info), pointer :: s
-         ! integer :: nz, j
-         character (len=*), intent(in) :: MLT_option
-         type(auto_diff_real_star_order1), intent(in) :: &
-            r, L, T, P, opacity, rho, chiRho, chiT, Cp, gradr, grada, scale_height
-         integer, intent(in) :: iso
-         real(dp), intent(in) :: &
-            XH1, cgrav, m, gradL_composition_term, &
-            mixing_length_alpha, alpha_semiconvection, thermohaline_coeff
-         integer, intent(out) :: mixing_type
-         type(auto_diff_real_star_order1), intent(out) :: &
-            gradT, Y_face, conv_vel, D, Gamma
-         integer, intent(out) :: ierr
-        type(auto_diff_real_star_order1) :: xspot_of_r !, xspot4
-        type(auto_diff_real_star_order1) :: gradr_spot
-            !ierr = 0
-        ! ------------------------------ 10/26/21
-        type (star_info), pointer :: s
-        ierr = 0
-        call star_ptr(id, s, ierr)
-        if (ierr /= 0) return
-         
-        !------------------------------
-         !if (s% star_age >= 10d0) then
-         if (.not. s% doing_relax .and. .not. s% doing_first_model_of_run) then
-            xspot_of_r = (P - PB_i)/P 
-            gradr_spot = gradr/( fspot*pow4(xspot_of_r) + 1d0 - fspot)
-         else
-            gradr_spot = gradr
-         end if
-
-         call star_mlt_results(id, k, MLT_option, &
-            r, L, T, P, opacity, rho, chiRho, chiT, Cp, gradr_spot, grada, scale_height, &
-            iso, XH1, cgrav, m, gradL_composition_term, mixing_length_alpha, &
-            alpha_semiconvection, thermohaline_coeff, &
-            mixing_type, gradT, Y_face, conv_vel, D, Gamma, ierr)
-      end subroutine YREC_spots_other_mlt_results
-
-
-      subroutine starspot_tweak_PT(id, skip_partials, &
-            lnT_surf, dlnT_dL, dlnT_dlnR, dlnT_dlnM, dlnT_dlnkap, &
-            lnP_surf, dlnP_dL, dlnP_dlnR, dlnP_dlnM, dlnP_dlnkap, ierr)
-
-            use const_def, only: dp
-
-         
-            integer, intent(in) :: id
-            logical, intent(in) :: skip_partials
-
-            logical :: need_atm_Psurf, need_atm_Tsurf
-         
-            real(dp), intent(out) :: &
-                  lnT_surf, dlnT_dL, dlnT_dlnR, dlnT_dlnM, dlnT_dlnkap, &
-                  lnP_surf, dlnP_dL, dlnP_dlnR, dlnP_dlnM, dlnP_dlnkap
-            integer, intent(out) :: ierr
-
-            ! For my tweaks
-            real(dp) ::  alp !, fspot, xspot
-
-            ! Call the stock get_surf_PT
-            type (star_info), pointer :: s
-            real(dp) :: L_init
-
-            include 'formats'
-
-            ierr = 0
-            call star_ptr(id, s, ierr)
-            if (ierr /= 0) return
-
-            need_atm_Psurf = .true.
-            need_atm_Tsurf = .true. 
-            
-            alp = 1d0 - fspot + fspot*pow4(xspot)
-
-            ! This is the surface-average value for luminosity
-            L_init = s% L(1)
-
-            ! Set the surface L to the unspotted, ambient L
-            s% L(1) = s% L(1) / alp
-
-            ! Now, set the Teff. Used in atm table lookup to set boundary conditions
-            s% Teff = pow(s% L(1)/(pi4*s% r(1)*s% r(1)*boltz_sigma), 0.25_dp)
-
-            ! Set everything with Lamb.
-            call star_get_surf_PT(id, skip_partials, need_atm_Psurf, need_atm_Tsurf, &
-                  lnT_surf, dlnT_dL, dlnT_dlnR, dlnT_dlnM, dlnT_dlnkap, &
-                  lnP_surf, dlnP_dL, dlnP_dlnR, dlnP_dlnM, dlnP_dlnkap, &
-                  ierr)
-
-            s% Teff = pow(L_init/(pi4*s% r(1)*s% r(1)*boltz_sigma), 0.25_dp)
-            s% L(1) = L_init
-
-      end subroutine starspot_tweak_PT
-
-!------------------------------------------------------------------------------
-!
-! end YREC routines 
-!
-!------------------------------------------------------------------------------
+         call test_suite_after_evolve(s, ierr)
+      end subroutine extras_after_evolve
+      
 
       ! returns either keep_going, retry, or terminate.
       integer function extras_check_model(id)
@@ -249,18 +88,7 @@ integer function extras_check_model(id)
          ierr = 0
          call star_ptr(id, s, ierr)
          if (ierr /= 0) return
-         extras_check_model = keep_going     
-
-
-         if (.false. .and. s% star_mass_h1 < 0.35d0) then
-            ! stop when star hydrogen mass drops to specified level
-            extras_check_model = terminate
-            write(*, *) 'have reached desired hydrogen mass'
-            return
-         end if
-
-         ! by default, indicate where (in the code) MESA terminated
-         if (extras_check_model == terminate) s% termination_code = t_extras_check_model
+         extras_check_model = keep_going         
       end function extras_check_model
 
 
@@ -271,11 +99,10 @@ integer function how_many_extra_history_columns(id)
          ierr = 0
          call star_ptr(id, s, ierr)
          if (ierr /= 0) return
-
          how_many_extra_history_columns = 0
       end function how_many_extra_history_columns
       
-
+      
       subroutine data_for_extra_history_columns(id, n, names, vals, ierr)
          integer, intent(in) :: id, n
          character (len=maxlen_history_column_name) :: names(n)
@@ -285,16 +112,11 @@ subroutine data_for_extra_history_columns(id, n, names, vals, ierr)
          ierr = 0
          call star_ptr(id, s, ierr)
          if (ierr /= 0) return
-         
-         ! note: do NOT add the extras names to history_columns.list
-         ! the history_columns.list is only for the built-in history column options.
-         ! it must not include the new column names you are adding here.
-         
-
       end subroutine data_for_extra_history_columns
 
       
       integer function how_many_extra_profile_columns(id)
+         use star_def, only: star_info
          integer, intent(in) :: id
          integer :: ierr
          type (star_info), pointer :: s
@@ -306,6 +128,8 @@ end function how_many_extra_profile_columns
       
       
       subroutine data_for_extra_profile_columns(id, n, nz, names, vals, ierr)
+         use star_def, only: star_info, maxlen_profile_column_name
+         use const_def, only: dp
          integer, intent(in) :: id, n, nz
          character (len=maxlen_profile_column_name) :: names(n)
          real(dp) :: vals(nz,n)
@@ -316,56 +140,9 @@ subroutine data_for_extra_profile_columns(id, n, nz, names, vals, ierr)
          call star_ptr(id, s, ierr)
          if (ierr /= 0) return
       end subroutine data_for_extra_profile_columns
-
-
-      integer function how_many_extra_history_header_items(id)
-         integer, intent(in) :: id
-         integer :: ierr
-         type (star_info), pointer :: s
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         how_many_extra_history_header_items = 0
-      end function how_many_extra_history_header_items
-
-
-      subroutine data_for_extra_history_header_items(id, n, names, vals, ierr)
-         integer, intent(in) :: id, n
-         character (len=maxlen_history_column_name) :: names(n)
-         real(dp) :: vals(n)
-         type(star_info), pointer :: s
-         integer, intent(out) :: ierr
-         ierr = 0
-         call star_ptr(id,s,ierr)
-         if(ierr/=0) return
-      end subroutine data_for_extra_history_header_items
-
-
-      integer function how_many_extra_profile_header_items(id)
-         integer, intent(in) :: id
-         integer :: ierr
-         type (star_info), pointer :: s
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         how_many_extra_profile_header_items = 0
-      end function how_many_extra_profile_header_items
-
-
-      subroutine data_for_extra_profile_header_items(id, n, names, vals, ierr)
-         integer, intent(in) :: id, n
-         character (len=maxlen_profile_column_name) :: names(n)
-         real(dp) :: vals(n)
-         type(star_info), pointer :: s
-         integer, intent(out) :: ierr
-         ierr = 0
-         call star_ptr(id,s,ierr)
-         if(ierr/=0) return
-      end subroutine data_for_extra_profile_header_items
-
+      
 
       ! returns either keep_going or terminate.
-      ! note: cannot request retry; extras_check_model can do that.
       integer function extras_finish_step(id)
          integer, intent(in) :: id
          integer :: ierr
@@ -374,27 +151,9 @@ integer function extras_finish_step(id)
          call star_ptr(id, s, ierr)
          if (ierr /= 0) return
          extras_finish_step = keep_going
-
-         ! to save a profile, 
-            ! s% need_to_save_profiles_now = .true.
-         ! to update the star log,
-            ! s% need_to_update_history_now = .true.
-
-         ! see extras_check_model for information about custom termination codes
-         ! by default, indicate where (in the code) MESA terminated
-         if (extras_finish_step == terminate) s% termination_code = t_extras_finish_step
       end function extras_finish_step
       
       
-      subroutine extras_after_evolve(id, ierr)
-         integer, intent(in) :: id
-         integer, intent(out) :: ierr
-         type (star_info), pointer :: s
-         ierr = 0
-         call star_ptr(id, s, ierr)
-         if (ierr /= 0) return
-         call test_suite_after_evolve(s, ierr)
-      end subroutine extras_after_evolve
 
       end module run_star_extras
       
diff --git a/star/test_suite/test_memory/README.rst b/star/test_suite/test_memory/README.rst
index 92328618a..551911e28 100644
--- a/star/test_suite/test_memory/README.rst
+++ b/star/test_suite/test_memory/README.rst
@@ -17,7 +17,7 @@ Rather, valgrind must be launched by hand:
 
   valgrind --leak-check=full --error-limit=no  ./test_memory
 
-To hide a number of false positives, due to internal gfortran issues, one can also use the supplied supression file ``mesa.supp``:
+To hide a number of false positives, due to internal gfortran issues, one can also use the supplied suppression file ``mesa.supp``:
 
 .. code-block:: console
 
@@ -27,9 +27,9 @@ Other usefull valgrind options:
 
 .. code-block:: console
 
- --show-leak-kinds=all --track-origins=yes  : To add additonal output
+ --show-leak-kinds=all --track-origins=yes  : To add additional output
  --log-file=valgrind.out : Redirect valgrind's output to the file ``valgrind.out''
- --gen-suppressions=all : Generates supression rules as valgrind runs, helpful when you want to edit mesa.supp
+ --gen-suppressions=all : Generates suppression rules as valgrind runs, helpful when you want to edit mesa.supp
 
 
 Last-Updated: 03Jul2021 (MESA 094ff71) by fxt.
diff --git a/star/test_suite/timing/README.rst b/star/test_suite/timing/README.rst
index 9ed591c12..e9101ad93 100644
--- a/star/test_suite/timing/README.rst
+++ b/star/test_suite/timing/README.rst
@@ -10,7 +10,7 @@ This test case has 2 part2.
 
 * Part 1 (``inlist_zams``) builds a 1.5 Msun, Z=0.02 metallicity and evolves it to the zero-age main sequence.
 
-* Part 2 (``inlist_timing``) continues the evolutioon until the central mass fraction of hydrogen drops below 0.5. To get a counter and timing breakdown the  star_job namelist parameter ``first_model_for_timing=2`` is set. At the end of the run, various counters and timings are written to the terminal:
+* Part 2 (``inlist_timing``) continues the evolution until the central mass fraction of hydrogen drops below 0.5. To get a counter and timing breakdown the  star_job namelist parameter ``first_model_for_timing=2`` is set. At the end of the run, various counters and timings are written to the terminal:
 
 .. code-block:: console
 
diff --git a/star/test_suite/twin_studies/README.rst b/star/test_suite/twin_studies/README.rst
index 6166fb0b9..a676af1fd 100644
--- a/star/test_suite/twin_studies/README.rst
+++ b/star/test_suite/twin_studies/README.rst
@@ -10,7 +10,7 @@ The test vehicle is a pair of 15 Msun, Z=0.02 metallicity, models one with overs
 ``inlist_multi_stars_job`` and the ``run_star_extras.f90`` control the overall flow. 
 For star 1, ``inlist_to_end_core_he_burn_header``, ``inlist_common``, ``inlist_mass_Z_wind_rotation``, ``inlist_to_end_core_he_burn``
 and ``inlist_star1`` are read. The same is done for star 2, but with ``inlist_star2`` which turns off overshooting being read.
-A pre-built 15 Msun, Z=0.02 metallicity, is then loaded for each model. Both models evolve simultaneouly for 1.013e7 year.
+A pre-built 15 Msun, Z=0.02 metallicity, is then loaded for each model. Both models evolve simultaneously for 1.013e7 year.
 
 Star 1, with overshooting, reaches the ending age in 80 steps:
 
diff --git a/star/test_suite/tzo/inlist_pgstar b/star/test_suite/tzo/inlist_pgstar
old mode 100755
new mode 100644
diff --git a/star/test_suite/wd_c_core_ignition/README.rst b/star/test_suite/wd_c_core_ignition/README.rst
index 3a2faf623..8e1c1f449 100644
--- a/star/test_suite/wd_c_core_ignition/README.rst
+++ b/star/test_suite/wd_c_core_ignition/README.rst
@@ -4,7 +4,7 @@
 wd_c_core_ignition
 ******************
 
-This test case the checks the onset of a thermonuclear runaway in an accreting Chandrasekhar mass carobon-oxygen white dwarf.
+This test case the checks the onset of a thermonuclear runaway in an accreting Chandrasekhar mass carbon-oxygen white dwarf.
 
 This test case has 2 parts. Click to see a larger version of a plot.
 
@@ -14,7 +14,7 @@ This test case has 2 parts. Click to see a larger version of a plot.
    :width: 100%
 
 
-* Part 2 (``inlist_wd_c_core_ignition``) continues the evolution by accreting a carbon-oxygen miture with the same mass fractions as the surface at a rate of 1e-9 Msun/yr. As the white dwarf mass nears the Chandrasekhar mass, carbon burning causes the interior to become convective (the simmering phase of standard paradign Type Ia supernova). The run terminates when the power generated by nuclear reactions exceeds 1e8 Lsun:
+* Part 2 (``inlist_wd_c_core_ignition``) continues the evolution by accreting a carbon-oxygen mixture with the same mass fractions as the surface at a rate of 1e-9 Msun/yr. As the white dwarf mass nears the Chandrasekhar mass, carbon burning causes the interior to become convective (the simmering phase of standard paradign Type Ia supernova). The run terminates when the power generated by nuclear reactions exceeds 1e8 Lsun:
 
 .. image:: ../../../star/test_suite/wd_c_core_ignition/docs/track1_000747.svg
 
diff --git a/star/test_suite/wd_nova_burst/README.rst b/star/test_suite/wd_nova_burst/README.rst
index b0caf99d2..caed02106 100644
--- a/star/test_suite/wd_nova_burst/README.rst
+++ b/star/test_suite/wd_nova_burst/README.rst
@@ -36,86 +36,16 @@ and when the luminosity falls below 1e3 Lsun a nova cycle is considered finished
   have finished burst
 
 
-.. image:: ../../../star/test_suite/wd_nova_burst/docs/grid8_000586.svg
+.. image:: ../../../star/test_suite/wd_nova_burst/docs/wd_nova_burst_grid.svg
    :width: 100%
 
 
-|br|
-pgstar commands used for the plots above:
+The Python script used to create the figures above:
 
-.. code-block:: console
-
- &pgstar
-
-  file_white_on_black_flag = .true. ! white_on_black flags -- true means white foreground color on black background
-  !file_device = 'png'            ! png
-  !file_extension = 'png'
-
-  file_device = 'vcps'          ! postscript
-  file_extension = 'ps'
-
-          pgstar_interval = 1
-
-         Grid8_win_flag = .true.
-         Grid8_win_width = 12
-         Grid8_title = 'wd_nova_burst'
-
-         Summary_Burn_xaxis_name = 'logxq' 
-         Summary_Burn_xaxis_reversed = .true.
-         Summary_Burn_xmin = -14 ! -101d0 ! only used if /= -101d0
-         Summary_Burn_xmax = -3 ! -101d0 ! only used if /= -101d0
-         Summary_Burn_title = ' '
-
-
-         Abundance_title = ' '
-         Abundance_xaxis_name = 'logxq' 
-         Abundance_xaxis_reversed = .true.
-         Abundance_xmin = -14 ! -101d0 ! only used if /= -101d0
-         Abundance_xmax = -3 ! -101d0 ! only used if /= -101d0
-         Abundance_txt_scale = 0.8
-         Abundance_legend_max_cnt = 0
-
-         HR_title = ' '
-         HR_txt_scale = 0.8
-         HR_logT_min = 4.5
-         HR_logT_max = 6.0
-         HR_logL_min = -1.0
-         HR_logL_max = 5.0
-
-
-         TRho_title = ' '
-         TRho_txt_scale = 0.8
-         TRho_logT_min = -101d0
-         TRho_logT_max = -101d0
-         TRho_logRho_min = -101d0
-         TRho_logRho_max = -101d0
-
-
-         TRho_Profile_title = ' '
-         TRho_Profile_txt_scale = 0.7
-         TRho_Profile_xmin = -8.0
-         TRho_Profile_xmax = 9.0
-         TRho_Profile_ymin = 5.0
-         TRho_Profile_ymax = 9.0
-
-        Text_Summary1_name(5,2) = 'time_step_sec'
-        Text_Summary1_name(6,2) = 'max_tau_conv'
-
-        Grid8_file_flag = .true.
-        Grid8_file_dir = 'pgstar_out'
-        Grid8_file_prefix = 'grid8_'
-        Grid8_file_interval = 10000
-        Grid8_file_width = -1
-        Grid8_file_aspect_ratio = -1
-
- / ! end of pgstar namelist
-
-
-
-Last-Updated: 08Jul2021 (MESA 094ff71) by fxt.
+.. literalinclude:: ../../../star/test_suite/wd_nova_burst/plot.py
+  :language: python
 
 
-.. # define a hard line break for HTML
-.. |br| raw:: html
+Last-Updated: 07Aug2024 (MESA 0b40398b) by wmwolf.
 
-      <br>
+Last-Run: 07Aug2024 (MESA 0b40398b) by wmwolf on Hercules in 431 seconds using 20 threads.
diff --git a/star/test_suite/wd_nova_burst/docs/wd_nova_burst_grid.svg b/star/test_suite/wd_nova_burst/docs/wd_nova_burst_grid.svg
new file mode 100644
index 000000000..5ee57a994
--- /dev/null
+++ b/star/test_suite/wd_nova_burst/docs/wd_nova_burst_grid.svg
@@ -0,0 +1,8443 @@
+<?xml version="1.0" encoding="utf-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<svg xmlns:xlink="http://www.w3.org/1999/xlink" width="641.419762pt" height="386.914454pt" viewBox="0 0 641.419762 386.914454" xmlns="http://www.w3.org/2000/svg" version="1.1">
+ <metadata>
+  <rdf:RDF xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:cc="http://creativecommons.org/ns#" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#">
+   <cc:Work>
+    <dc:type rdf:resource="http://purl.org/dc/dcmitype/StillImage"/>
+    <dc:date>2024-08-07T10:36:47.644034</dc:date>
+    <dc:format>image/svg+xml</dc:format>
+    <dc:creator>
+     <cc:Agent>
+      <dc:title>Matplotlib v3.8.1, https://matplotlib.org/</dc:title>
+     </cc:Agent>
+    </dc:creator>
+   </cc:Work>
+  </rdf:RDF>
+ </metadata>
+ <defs>
+  <style type="text/css">*{stroke-linejoin: round; stroke-linecap: butt}</style>
+ </defs>
+ <g id="figure_1">
+  <g id="patch_1">
+   <path d="M -0 386.914454 
+L 641.419762 386.914454 
+L 641.419762 0 
+L -0 0 
+z
+" style="fill: #ffffff"/>
+  </g>
+  <g id="axes_1">
+   <g id="patch_2">
+    <path d="M 44.823213 164.744585 
+L 213.914123 164.744585 
+L 213.914123 20.118498 
+L 44.823213 20.118498 
+z
+" style="fill: #ffffff"/>
+   </g>
+   <g id="matplotlib.axis_1">
+    <g id="xtick_1">
+     <g id="line2d_1">
+      <defs>
+       <path id="ma8d582654b" d="M 0 0 
+L 0 -3.5 
+" style="stroke: #000000; stroke-width: 0.8"/>
+      </defs>
+      <g>
+       <use xlink:href="#ma8d582654b" x="149.505009" y="164.744585" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_2">
+      <defs>
+       <path id="m2a52635b8f" d="M 0 0 
+L 0 3.5 
+" style="stroke: #000000; stroke-width: 0.8"/>
+      </defs>
+      <g>
+       <use xlink:href="#m2a52635b8f" x="149.505009" y="20.118498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_1">
+      <!-- $\mathdefault{10^{5}}$ -->
+      <g transform="translate(142.538055 175.163084) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-31" d="M 1702 4083 
+C 1702 4217 1696 4224 1606 4224 
+C 1357 3927 979 3833 621 3820 
+C 602 3820 570 3820 563 3808 
+C 557 3795 557 3782 557 3648 
+C 755 3648 1088 3686 1344 3839 
+L 1344 467 
+C 1344 243 1331 166 781 166 
+L 589 166 
+L 589 0 
+C 896 6 1216 12 1523 12 
+C 1830 12 2150 6 2458 0 
+L 2458 166 
+L 2266 166 
+C 1715 166 1702 236 1702 467 
+L 1702 4083 
+z
+" transform="scale(0.015625)"/>
+        <path id="CMR17-30" d="M 2688 2038 
+C 2688 2430 2682 3099 2413 3613 
+C 2176 4063 1798 4224 1466 4224 
+C 1158 4224 768 4082 525 3620 
+C 269 3137 243 2539 243 2038 
+C 243 1671 250 1112 448 623 
+C 723 -39 1216 -128 1466 -128 
+C 1760 -128 2208 -7 2470 604 
+C 2662 1048 2688 1568 2688 2038 
+z
+M 1466 -26 
+C 1056 -26 813 328 723 816 
+C 653 1196 653 1749 653 2109 
+C 653 2604 653 3015 736 3407 
+C 858 3954 1216 4121 1466 4121 
+C 1728 4121 2067 3947 2189 3420 
+C 2272 3054 2278 2623 2278 2109 
+C 2278 1691 2278 1176 2202 797 
+C 2067 96 1690 -26 1466 -26 
+z
+" transform="scale(0.015625)"/>
+        <path id="CMR17-35" d="M 730 3750 
+C 794 3724 1056 3641 1325 3641 
+C 1920 3641 2246 3961 2432 4140 
+C 2432 4191 2432 4224 2394 4224 
+C 2387 4224 2374 4224 2323 4198 
+C 2099 4102 1837 4032 1517 4032 
+C 1325 4032 1037 4055 723 4191 
+C 653 4224 640 4224 634 4224 
+C 602 4224 595 4217 595 4090 
+L 595 2231 
+C 595 2113 595 2080 659 2080 
+C 691 2080 704 2093 736 2139 
+C 941 2435 1222 2560 1542 2560 
+C 1766 2560 2246 2415 2246 1293 
+C 2246 1087 2246 716 2054 422 
+C 1894 159 1645 25 1370 25 
+C 947 25 518 319 403 812 
+C 429 806 480 793 506 793 
+C 589 793 749 838 749 1036 
+C 749 1209 627 1280 506 1280 
+C 358 1280 262 1190 262 1011 
+C 262 454 704 -128 1382 -128 
+C 2042 -128 2669 441 2669 1267 
+C 2669 2054 2170 2662 1549 2662 
+C 1222 2662 947 2540 730 2304 
+L 730 3750 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-35" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_2">
+     <g id="line2d_3">
+      <defs>
+       <path id="m3ac45b5380" d="M 0 0 
+L 0 -2 
+" style="stroke: #000000; stroke-width: 0.6"/>
+      </defs>
+      <g>
+       <use xlink:href="#m3ac45b5380" x="208.20782" y="164.744585" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_4">
+      <defs>
+       <path id="m8ae8ead02c" d="M 0 0 
+L 0 2 
+" style="stroke: #000000; stroke-width: 0.6"/>
+      </defs>
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="208.20782" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_3">
+     <g id="line2d_5">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="194.181136" y="164.744585" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_6">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="194.181136" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_4">
+     <g id="line2d_7">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="183.301194" y="164.744585" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_8">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="183.301194" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_5">
+     <g id="line2d_9">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="174.411635" y="164.744585" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_10">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="174.411635" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_6">
+     <g id="line2d_11">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="166.895619" y="164.744585" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_12">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="166.895619" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_7">
+     <g id="line2d_13">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="160.384951" y="164.744585" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_14">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="160.384951" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_8">
+     <g id="line2d_15">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="154.642134" y="164.744585" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_16">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="154.642134" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_9">
+     <g id="line2d_17">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="115.708824" y="164.744585" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_18">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="115.708824" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_10">
+     <g id="line2d_19">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="95.939323" y="164.744585" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_20">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="95.939323" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_11">
+     <g id="line2d_21">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="81.912639" y="164.744585" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_22">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="81.912639" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_12">
+     <g id="line2d_23">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="71.032698" y="164.744585" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_24">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="71.032698" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_13">
+     <g id="line2d_25">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="62.143138" y="164.744585" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_26">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="62.143138" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_14">
+     <g id="line2d_27">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="54.627123" y="164.744585" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_28">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="54.627123" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_15">
+     <g id="line2d_29">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="48.116454" y="164.744585" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_30">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="48.116454" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="text_2">
+     <!-- Effective Temperature [K] -->
+     <g transform="translate(72.678379 188.572242) scale(0.1 -0.1)">
+      <defs>
+       <path id="CMR17-45" d="M 3885 1614 
+L 3770 1614 
+C 3629 676 3546 166 2419 166 
+L 1530 166 
+C 1274 166 1261 198 1261 415 
+L 1261 2176 
+L 1862 2176 
+C 2464 2176 2522 1959 2522 1429 
+L 2637 1429 
+L 2637 3086 
+L 2522 3086 
+C 2522 2558 2464 2342 1862 2342 
+L 1261 2342 
+L 1261 3924 
+C 1261 4141 1274 4172 1530 4172 
+L 2406 4172 
+C 3398 4172 3514 3778 3603 2933 
+L 3718 2933 
+L 3565 4339 
+L 326 4339 
+L 326 4172 
+C 768 4172 838 4172 838 3886 
+L 838 453 
+C 838 166 768 166 326 166 
+L 326 0 
+L 3654 0 
+L 3885 1614 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-b" d="M 2554 2585 
+L 3283 2585 
+L 3283 2752 
+L 2541 2752 
+L 2541 3520 
+C 2541 4047 2810 4377 3085 4377 
+C 3168 4377 3264 4352 3328 4307 
+C 3277 4294 3142 4250 3142 4091 
+C 3142 3926 3270 3875 3360 3875 
+C 3450 3875 3578 3926 3578 4091 
+C 3578 4333 3347 4480 3091 4480 
+C 2842 4480 2637 4358 2477 4206 
+C 2330 4415 2086 4480 1837 4480 
+C 1338 4480 634 4193 634 3494 
+L 634 2752 
+L 122 2752 
+L 122 2585 
+L 634 2585 
+L 634 441 
+C 634 198 608 166 198 166 
+L 198 0 
+C 352 12 634 12 794 12 
+C 960 12 1242 12 1395 0 
+L 1395 166 
+C 986 166 960 192 960 441 
+L 960 2585 
+L 2227 2585 
+L 2227 441 
+C 2227 198 2202 166 1792 166 
+L 1792 0 
+C 1946 12 2240 12 2406 12 
+C 2592 12 2918 12 3091 0 
+L 3091 166 
+C 2630 166 2554 166 2554 454 
+L 2554 2585 
+z
+M 947 2752 
+L 947 3494 
+C 947 4072 1395 4377 1824 4377 
+C 1920 4377 2170 4358 2323 4218 
+C 2208 4212 2099 4161 2099 4002 
+C 2099 3837 2246 3793 2259 3793 
+C 2227 3679 2227 3552 2227 3507 
+L 2227 2752 
+L 947 2752 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-65" d="M 2438 1503 
+C 2464 1529 2464 1542 2464 1606 
+C 2464 2251 2118 2816 1389 2816 
+C 710 2816 173 2175 173 1394 
+C 173 554 781 -64 1459 -64 
+C 2176 -64 2458 619 2458 755 
+C 2458 800 2419 800 2406 800 
+C 2362 800 2355 787 2330 709 
+C 2189 270 1837 51 1504 51 
+C 1229 51 954 206 781 490 
+C 582 819 582 1200 582 1503 
+L 2438 1503 
+z
+M 589 1600 
+C 634 2511 1126 2713 1382 2713 
+C 1818 2713 2112 2308 2118 1600 
+L 589 1600 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-63" d="M 2234 2240 
+C 2112 2240 1933 2240 1933 2015 
+C 1933 1836 2080 1785 2163 1785 
+C 2208 1785 2394 1804 2394 2028 
+C 2394 2476 1958 2816 1466 2816 
+C 787 2816 211 2201 211 1379 
+C 211 521 813 -64 1466 -64 
+C 2259 -64 2458 676 2458 747 
+C 2458 773 2451 792 2406 792 
+C 2362 792 2355 786 2330 702 
+C 2163 180 1798 51 1523 51 
+C 1114 51 621 431 621 1385 
+C 621 2358 1094 2700 1472 2700 
+C 1722 2700 2093 2582 2234 2240 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-74" d="M 966 2585 
+L 1862 2585 
+L 1862 2752 
+L 966 2752 
+L 966 3968 
+L 851 3968 
+C 838 3292 614 2700 70 2687 
+L 70 2585 
+L 627 2585 
+L 627 778 
+C 627 655 627 -64 1370 -64 
+C 1747 -64 1965 308 1965 784 
+L 1965 1151 
+L 1850 1151 
+L 1850 790 
+C 1850 347 1677 51 1408 51 
+C 1222 51 966 179 966 765 
+L 966 2585 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-69" d="M 992 3961 
+C 992 4102 877 4224 730 4224 
+C 589 4224 467 4108 467 3961 
+C 467 3820 582 3699 730 3699 
+C 870 3699 992 3814 992 3961 
+z
+M 243 2745 
+L 243 2579 
+C 602 2579 653 2540 653 2231 
+L 653 443 
+C 653 198 627 166 218 166 
+L 218 0 
+C 371 12 646 12 806 12 
+C 960 12 1222 12 1370 0 
+L 1370 166 
+C 992 166 979 205 979 436 
+L 979 2816 
+L 243 2745 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-76" d="M 2502 2173 
+C 2560 2315 2662 2572 3034 2585 
+L 3034 2752 
+C 2912 2745 2752 2739 2630 2739 
+C 2496 2739 2285 2739 2157 2752 
+L 2157 2585 
+C 2317 2572 2406 2495 2406 2328 
+C 2406 2270 2406 2257 2368 2167 
+L 1664 379 
+L 902 2308 
+C 864 2392 864 2405 864 2431 
+C 864 2585 1075 2585 1171 2585 
+L 1171 2752 
+C 1018 2739 736 2739 576 2739 
+C 403 2739 205 2739 64 2752 
+L 64 2585 
+C 307 2585 442 2585 518 2386 
+L 1446 44 
+C 1485 -52 1491 -64 1549 -64 
+C 1606 -64 1613 -52 1651 44 
+L 2502 2173 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-54" d="M 3981 4332 
+L 288 4332 
+L 179 2924 
+L 294 2924 
+C 378 3981 467 4166 1453 4166 
+C 1568 4166 1754 4166 1805 4159 
+C 1926 4140 1926 4064 1926 3917 
+L 1926 465 
+C 1926 236 1907 166 1376 166 
+L 1197 166 
+L 1197 0 
+C 1504 6 1824 12 2138 12 
+C 2451 12 2771 6 3078 0 
+L 3078 166 
+L 2899 166 
+C 2368 166 2349 236 2349 465 
+L 2349 3917 
+C 2349 4057 2349 4134 2464 4159 
+C 2515 4166 2701 4166 2816 4166 
+C 3795 4166 3891 3981 3974 2924 
+L 4090 2924 
+L 3981 4332 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-6d" d="M 4326 1954 
+C 4326 2276 4269 2816 3507 2816 
+C 3072 2816 2771 2520 2656 2173 
+L 2650 2173 
+C 2573 2700 2195 2816 1837 2816 
+C 1331 2816 1069 2424 973 2166 
+L 966 2166 
+L 966 2816 
+L 211 2745 
+L 211 2578 
+C 589 2578 646 2540 646 2231 
+L 646 443 
+C 646 198 621 166 211 166 
+L 211 0 
+C 365 12 646 12 813 12 
+C 979 12 1267 12 1421 0 
+L 1421 166 
+C 1011 166 986 192 986 443 
+L 986 1678 
+C 986 2269 1344 2713 1792 2713 
+C 2266 2713 2317 2289 2317 1980 
+L 2317 443 
+C 2317 198 2291 166 1882 166 
+L 1882 0 
+C 2035 12 2317 12 2483 12 
+C 2650 12 2938 12 3091 0 
+L 3091 166 
+C 2682 166 2656 192 2656 443 
+L 2656 1678 
+C 2656 2269 3014 2713 3462 2713 
+C 3936 2713 3987 2289 3987 1980 
+L 3987 443 
+C 3987 198 3962 166 3552 166 
+L 3552 0 
+C 3706 12 3987 12 4154 12 
+C 4320 12 4608 12 4762 0 
+L 4762 166 
+C 4352 166 4326 192 4326 443 
+L 4326 1954 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-70" d="M 1408 -1114 
+C 998 -1114 973 -1088 973 -834 
+L 973 380 
+C 1158 109 1427 -64 1766 -64 
+C 2406 -64 3053 503 3053 1382 
+C 3053 2196 2496 2816 1837 2816 
+C 1453 2816 1139 2603 960 2345 
+L 960 2816 
+L 198 2745 
+L 198 2577 
+C 576 2577 634 2539 634 2228 
+L 634 -834 
+C 634 -1081 608 -1114 198 -1114 
+L 198 -1280 
+C 352 -1268 634 -1268 800 -1268 
+C 966 -1268 1254 -1268 1408 -1280 
+L 1408 -1114 
+z
+M 973 2015 
+C 973 2106 973 2241 1222 2481 
+C 1254 2506 1472 2700 1792 2700 
+C 2259 2700 2643 2112 2643 1376 
+C 2643 639 2234 38 1728 38 
+C 1498 38 1248 148 1056 451 
+C 973 594 973 632 973 736 
+L 973 2015 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-72" d="M 960 1517 
+C 960 2134 1222 2713 1702 2713 
+C 1747 2713 1792 2707 1837 2687 
+C 1837 2687 1696 2642 1696 2475 
+C 1696 2321 1818 2257 1914 2257 
+C 1990 2257 2131 2302 2131 2482 
+C 2131 2687 1926 2816 1709 2816 
+C 1222 2816 1011 2340 947 2115 
+L 941 2115 
+L 941 2816 
+L 198 2745 
+L 198 2578 
+C 576 2578 634 2540 634 2231 
+L 634 443 
+C 634 198 608 166 198 166 
+L 198 0 
+C 352 12 646 12 813 12 
+C 998 12 1325 12 1498 0 
+L 1498 166 
+C 1037 166 960 166 960 455 
+L 960 1517 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-61" d="M 2304 1656 
+C 2304 2048 2304 2275 2035 2534 
+C 1798 2751 1523 2816 1306 2816 
+C 800 2816 435 2408 435 1977 
+C 435 1740 627 1728 666 1728 
+C 749 1728 896 1779 896 1958 
+C 896 2118 774 2188 666 2188 
+C 640 2188 608 2182 589 2176 
+C 723 2594 1069 2713 1293 2713 
+C 1613 2713 1965 2421 1965 1875 
+L 1965 1632 
+C 1587 1619 1133 1568 774 1373 
+C 371 1147 256 822 256 576 
+C 256 77 832 -64 1171 -64 
+C 1523 -64 1850 135 1990 505 
+C 2003 219 2182 -39 2464 -39 
+C 2598 -39 2938 51 2938 563 
+L 2938 926 
+L 2822 926 
+L 2822 557 
+C 2822 161 2650 109 2566 109 
+C 2304 109 2304 446 2304 732 
+L 2304 1656 
+z
+M 1965 887 
+C 1965 323 1568 38 1216 38 
+C 896 38 646 278 646 576 
+C 646 771 730 1114 1101 1322 
+C 1408 1497 1760 1523 1965 1536 
+L 1965 887 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-75" d="M 1882 2745 
+L 1882 2579 
+C 2259 2579 2317 2540 2317 2229 
+L 2317 1053 
+C 2317 510 2029 38 1555 38 
+C 1030 38 986 355 986 691 
+L 986 2816 
+L 211 2745 
+L 211 2579 
+C 467 2579 640 2579 646 2320 
+L 646 1079 
+C 646 646 646 368 813 187 
+C 896 103 1056 -64 1517 -64 
+C 2061 -64 2272 400 2323 536 
+L 2330 536 
+L 2330 -64 
+L 3091 -13 
+L 3091 154 
+C 2714 154 2656 193 2656 503 
+L 2656 2816 
+L 1882 2745 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-5b" d="M 1504 -1600 
+L 1504 -1376 
+L 902 -1376 
+L 902 4575 
+L 1504 4575 
+L 1504 4800 
+L 678 4800 
+L 678 -1600 
+L 1504 -1600 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-4b" d="M 2362 2669 
+L 3469 3771 
+C 3699 3994 3942 4172 4301 4185 
+L 4301 4352 
+C 4173 4345 4013 4339 3885 4339 
+C 3712 4339 3411 4339 3245 4352 
+L 3245 4185 
+C 3411 4172 3437 4057 3437 4013 
+C 3437 3968 3411 3898 3386 3860 
+L 1261 1739 
+L 1261 3898 
+C 1261 4185 1331 4185 1773 4185 
+L 1773 4352 
+C 1587 4339 1248 4339 1050 4339 
+C 851 4339 512 4339 326 4352 
+L 326 4185 
+C 768 4185 838 4185 838 3898 
+L 838 453 
+C 838 166 768 166 326 166 
+L 326 0 
+C 512 12 851 12 1050 12 
+C 1248 12 1587 12 1773 0 
+L 1773 166 
+C 1331 166 1261 166 1261 453 
+L 1261 1580 
+L 2080 2389 
+L 3290 542 
+C 3328 478 3373 395 3373 332 
+C 3373 166 3194 166 3110 166 
+L 3110 0 
+C 3315 12 3610 12 3821 12 
+C 3974 12 4237 12 4384 0 
+L 4384 166 
+C 4077 166 3981 204 3789 497 
+L 2362 2669 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-5d" d="M 915 4800 
+L 90 4800 
+L 90 4575 
+L 691 4575 
+L 691 -1376 
+L 90 -1376 
+L 90 -1600 
+L 915 -1600 
+L 915 4800 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMR17-45" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-b" transform="translate(62.586301 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(114.930978 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-63" transform="translate(155.416638 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-74" transform="translate(195.902299 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-69" transform="translate(231.183067 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-76" transform="translate(256.054125 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(301.744587 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-54" transform="translate(372.306214 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(431.008839 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6d" transform="translate(471.494499 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-70" transform="translate(548.414089 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(601.911898 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-72" transform="translate(642.397558 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-61" transform="translate(677.678326 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-74" transform="translate(723.368803 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-75" transform="translate(758.649571 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-72" transform="translate(809.544941 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(844.825709 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5b" transform="translate(915.387335 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-4b" transform="translate(940.258394 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5d" transform="translate(1011.933171 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+   <g id="matplotlib.axis_2">
+    <g id="ytick_1">
+     <g id="line2d_31">
+      <defs>
+       <path id="m90fe90b7fd" d="M 0 0 
+L 3.5 0 
+" style="stroke: #000000; stroke-width: 0.8"/>
+      </defs>
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="44.823213" y="148.401201" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_32">
+      <defs>
+       <path id="m5c5963373f" d="M 0 0 
+L -3.5 0 
+" style="stroke: #000000; stroke-width: 0.8"/>
+      </defs>
+      <g>
+       <use xlink:href="#m5c5963373f" x="213.914123" y="148.401201" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_3">
+      <!-- $\mathdefault{10^{-1}}$ -->
+      <g transform="translate(21.16264 151.86045) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMSY10-0" d="M 4218 1472 
+C 4326 1472 4442 1472 4442 1600 
+C 4442 1728 4326 1728 4218 1728 
+L 755 1728 
+C 646 1728 531 1728 531 1600 
+C 531 1472 646 1472 755 1472 
+L 4218 1472 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMSY10-0" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-31" transform="translate(145.621947 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_2">
+     <g id="line2d_33">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="44.823213" y="126.615912" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_34">
+      <g>
+       <use xlink:href="#m5c5963373f" x="213.914123" y="126.615912" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_4">
+      <!-- $\mathdefault{10^{0}}$ -->
+      <g transform="translate(27.389305 130.075161) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_3">
+     <g id="line2d_35">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="44.823213" y="104.830622" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_36">
+      <g>
+       <use xlink:href="#m5c5963373f" x="213.914123" y="104.830622" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_5">
+      <!-- $\mathdefault{10^{1}}$ -->
+      <g transform="translate(27.389305 108.289871) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-31" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_4">
+     <g id="line2d_37">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="44.823213" y="83.045332" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_38">
+      <g>
+       <use xlink:href="#m5c5963373f" x="213.914123" y="83.045332" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_6">
+      <!-- $\mathdefault{10^{2}}$ -->
+      <g transform="translate(27.389305 86.504581) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-32" d="M 2669 990 
+L 2554 990 
+C 2490 537 2438 460 2413 422 
+C 2381 371 1920 371 1830 371 
+L 602 371 
+C 832 620 1280 1073 1824 1596 
+C 2214 1966 2669 2400 2669 3033 
+C 2669 3788 2067 4224 1395 4224 
+C 691 4224 262 3603 262 3027 
+C 262 2777 448 2745 525 2745 
+C 589 2745 781 2783 781 3007 
+C 781 3206 614 3264 525 3264 
+C 486 3264 448 3257 422 3244 
+C 544 3788 915 4057 1306 4057 
+C 1862 4057 2227 3616 2227 3033 
+C 2227 2477 1901 1998 1536 1583 
+L 262 147 
+L 262 0 
+L 2515 0 
+L 2669 990 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-32" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_5">
+     <g id="line2d_39">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="44.823213" y="61.260043" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_40">
+      <g>
+       <use xlink:href="#m5c5963373f" x="213.914123" y="61.260043" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_7">
+      <!-- $\mathdefault{10^{3}}$ -->
+      <g transform="translate(27.389305 64.719292) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-33" d="M 1414 2176 
+C 1984 2176 2234 1673 2234 1094 
+C 2234 322 1824 25 1453 25 
+C 1114 25 563 193 390 691 
+C 422 678 454 678 486 678 
+C 640 678 755 780 755 947 
+C 755 1132 614 1216 486 1216 
+C 378 1216 211 1164 211 927 
+C 211 335 787 -128 1466 -128 
+C 2176 -128 2720 432 2720 1087 
+C 2720 1718 2208 2176 1600 2246 
+C 2086 2347 2554 2776 2554 3353 
+C 2554 3856 2048 4224 1472 4224 
+C 890 4224 378 3862 378 3347 
+C 378 3123 544 3084 627 3084 
+C 762 3084 877 3167 877 3334 
+C 877 3500 762 3584 627 3584 
+C 602 3584 570 3584 544 3571 
+C 730 3999 1235 4076 1459 4076 
+C 1683 4076 2106 3966 2106 3347 
+C 2106 3167 2080 2851 1862 2574 
+C 1670 2329 1453 2316 1242 2297 
+C 1210 2297 1062 2284 1037 2284 
+C 992 2278 966 2272 966 2227 
+C 966 2182 973 2176 1101 2176 
+L 1414 2176 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-33" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_6">
+     <g id="line2d_41">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="44.823213" y="39.474753" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_42">
+      <g>
+       <use xlink:href="#m5c5963373f" x="213.914123" y="39.474753" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_8">
+      <!-- $\mathdefault{10^{4}}$ -->
+      <g transform="translate(27.389305 42.934002) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-34" d="M 2150 4147 
+C 2150 4281 2144 4288 2029 4288 
+L 128 1254 
+L 128 1088 
+L 1779 1088 
+L 1779 460 
+C 1779 230 1766 166 1318 166 
+L 1197 166 
+L 1197 0 
+C 1402 12 1747 12 1965 12 
+C 2182 12 2528 12 2733 0 
+L 2733 166 
+L 2611 166 
+C 2163 166 2150 230 2150 460 
+L 2150 1088 
+L 2803 1088 
+L 2803 1254 
+L 2150 1254 
+L 2150 4147 
+z
+M 1798 3723 
+L 1798 1254 
+L 256 1254 
+L 1798 3723 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-34" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_7">
+     <g id="line2d_43">
+      <defs>
+       <path id="m84b19dfdaf" d="M 0 0 
+L 2 0 
+" style="stroke: #000000; stroke-width: 0.6"/>
+      </defs>
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="163.628465" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_44">
+      <defs>
+       <path id="m8ac12babb3" d="M 0 0 
+L -2 0 
+" style="stroke: #000000; stroke-width: 0.6"/>
+      </defs>
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="163.628465" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_8">
+     <g id="line2d_45">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="159.792266" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_46">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="159.792266" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_9">
+     <g id="line2d_47">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="157.07044" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_48">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="157.07044" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_10">
+     <g id="line2d_49">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="154.959227" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_50">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="154.959227" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_11">
+     <g id="line2d_51">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="153.23424" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_52">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="153.23424" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_12">
+     <g id="line2d_53">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="151.775785" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_54">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="151.775785" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_13">
+     <g id="line2d_55">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="150.512414" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_56">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="150.512414" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_14">
+     <g id="line2d_57">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="149.398041" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_58">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="149.398041" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_15">
+     <g id="line2d_59">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="141.843176" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_60">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="141.843176" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_16">
+     <g id="line2d_61">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="138.006976" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_62">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="138.006976" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_17">
+     <g id="line2d_63">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="135.28515" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_64">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="135.28515" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_18">
+     <g id="line2d_65">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="133.173937" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_66">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="133.173937" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_19">
+     <g id="line2d_67">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="131.448951" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_68">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="131.448951" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_20">
+     <g id="line2d_69">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="129.990496" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_70">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="129.990496" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_21">
+     <g id="line2d_71">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="128.727124" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_72">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="128.727124" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_22">
+     <g id="line2d_73">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="127.612752" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_74">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="127.612752" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_23">
+     <g id="line2d_75">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="120.057886" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_76">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="120.057886" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_24">
+     <g id="line2d_77">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="116.221687" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_78">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="116.221687" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_25">
+     <g id="line2d_79">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="113.49986" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_80">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="113.49986" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_26">
+     <g id="line2d_81">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="111.388648" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_82">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="111.388648" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_27">
+     <g id="line2d_83">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="109.663661" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_84">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="109.663661" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_28">
+     <g id="line2d_85">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="108.205206" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_86">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="108.205206" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_29">
+     <g id="line2d_87">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="106.941835" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_88">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="106.941835" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_30">
+     <g id="line2d_89">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="105.827462" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_90">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="105.827462" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_31">
+     <g id="line2d_91">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="98.272596" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_92">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="98.272596" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_32">
+     <g id="line2d_93">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="94.436397" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_94">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="94.436397" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_33">
+     <g id="line2d_95">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="91.714571" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_96">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="91.714571" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_34">
+     <g id="line2d_97">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="89.603358" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_98">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="89.603358" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_35">
+     <g id="line2d_99">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="87.878372" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_100">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="87.878372" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_36">
+     <g id="line2d_101">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="86.419916" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_102">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="86.419916" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_37">
+     <g id="line2d_103">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="85.156545" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_104">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="85.156545" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_38">
+     <g id="line2d_105">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="84.042172" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_106">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="84.042172" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_39">
+     <g id="line2d_107">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="76.487307" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_108">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="76.487307" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_40">
+     <g id="line2d_109">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="72.651108" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_110">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="72.651108" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_41">
+     <g id="line2d_111">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="69.929281" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_112">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="69.929281" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_42">
+     <g id="line2d_113">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="67.818068" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_114">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="67.818068" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_43">
+     <g id="line2d_115">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="66.093082" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_116">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="66.093082" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_44">
+     <g id="line2d_117">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="64.634627" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_118">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="64.634627" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_45">
+     <g id="line2d_119">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="63.371255" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_120">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="63.371255" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_46">
+     <g id="line2d_121">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="62.256883" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_122">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="62.256883" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_47">
+     <g id="line2d_123">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="54.702017" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_124">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="54.702017" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_48">
+     <g id="line2d_125">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="50.865818" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_126">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="50.865818" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_49">
+     <g id="line2d_127">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="48.143991" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_128">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="48.143991" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_50">
+     <g id="line2d_129">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="46.032779" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_130">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="46.032779" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_51">
+     <g id="line2d_131">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="44.307792" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_132">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="44.307792" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_52">
+     <g id="line2d_133">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="42.849337" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_134">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="42.849337" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_53">
+     <g id="line2d_135">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="41.585966" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_136">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="41.585966" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_54">
+     <g id="line2d_137">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="40.471593" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_138">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="40.471593" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_55">
+     <g id="line2d_139">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="32.916727" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_140">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="32.916727" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_56">
+     <g id="line2d_141">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="29.080528" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_142">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="29.080528" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_57">
+     <g id="line2d_143">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="26.358702" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_144">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="26.358702" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_58">
+     <g id="line2d_145">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="24.247489" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_146">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="24.247489" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_59">
+     <g id="line2d_147">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="22.522503" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_148">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="22.522503" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_60">
+     <g id="line2d_149">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="21.064047" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_150">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="21.064047" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="text_9">
+     <!-- Luminosity [$L_{\odot}$] -->
+     <g transform="translate(14.67198 128.061905) rotate(-90) scale(0.1 -0.1)">
+      <defs>
+       <path id="CMR17-4c" d="M 3469 1612 
+L 3354 1612 
+C 3302 981 3219 166 2125 166 
+L 1530 166 
+C 1274 166 1261 198 1261 414 
+L 1261 3892 
+C 1261 4121 1274 4185 1760 4185 
+L 1901 4185 
+L 1901 4352 
+C 1638 4339 1331 4339 1069 4339 
+C 870 4339 512 4339 326 4352 
+L 326 4185 
+C 768 4185 838 4185 838 3898 
+L 838 453 
+C 838 166 768 166 326 166 
+L 326 0 
+L 3315 0 
+L 3469 1612 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-6e" d="M 2656 1954 
+C 2656 2282 2592 2816 1837 2816 
+C 1331 2816 1069 2424 973 2166 
+L 966 2166 
+L 966 2816 
+L 211 2745 
+L 211 2578 
+C 589 2578 646 2540 646 2231 
+L 646 443 
+C 646 198 621 166 211 166 
+L 211 0 
+C 365 12 646 12 813 12 
+C 979 12 1267 12 1421 0 
+L 1421 166 
+C 1011 166 986 192 986 443 
+L 986 1678 
+C 986 2269 1344 2713 1792 2713 
+C 2266 2713 2317 2289 2317 1980 
+L 2317 443 
+C 2317 198 2291 166 1882 166 
+L 1882 0 
+C 2035 12 2317 12 2483 12 
+C 2650 12 2938 12 3091 0 
+L 3091 166 
+C 2682 166 2656 192 2656 443 
+L 2656 1954 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-6f" d="M 2758 1356 
+C 2758 2176 2163 2816 1466 2816 
+C 768 2816 173 2176 173 1356 
+C 173 550 768 -64 1466 -64 
+C 2163 -64 2758 550 2758 1356 
+z
+M 1466 51 
+C 1165 51 909 230 762 480 
+C 602 768 582 1126 582 1408 
+C 582 1676 595 2009 762 2297 
+C 890 2508 1139 2713 1466 2713 
+C 1754 2713 1997 2553 2150 2329 
+C 2349 2028 2349 1606 2349 1408 
+C 2349 1158 2336 774 2163 467 
+C 1984 172 1709 51 1466 51 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-73" d="M 1978 2688 
+C 1978 2803 1971 2809 1933 2809 
+C 1907 2809 1901 2803 1824 2707 
+C 1805 2681 1747 2617 1728 2592 
+C 1523 2809 1235 2816 1126 2816 
+C 416 2816 160 2444 160 2073 
+C 160 1497 813 1363 998 1324 
+C 1402 1241 1542 1216 1677 1100 
+C 1760 1024 1901 883 1901 652 
+C 1901 384 1747 38 1158 38 
+C 602 38 403 460 288 1024 
+C 269 1113 269 1120 218 1120 
+C 166 1120 160 1113 160 985 
+L 160 64 
+C 160 -52 166 -58 205 -58 
+C 237 -58 243 -52 275 0 
+C 314 57 410 211 448 275 
+C 576 102 800 -64 1158 -64 
+C 1792 -64 2131 281 2131 780 
+C 2131 1107 1958 1280 1875 1356 
+C 1683 1555 1459 1600 1190 1651 
+C 838 1728 390 1817 390 2208 
+C 390 2374 480 2726 1126 2726 
+C 1811 2726 1850 2086 1862 1881 
+C 1869 1849 1901 1843 1920 1843 
+C 1978 1843 1978 1862 1978 1971 
+L 1978 2688 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-79" d="M 2496 2183 
+C 2656 2579 2944 2585 3034 2585 
+L 3034 2752 
+C 2912 2745 2752 2739 2630 2739 
+C 2496 2739 2285 2739 2157 2752 
+L 2157 2585 
+C 2400 2566 2406 2384 2406 2332 
+C 2406 2268 2394 2235 2362 2158 
+L 1664 409 
+L 902 2300 
+C 870 2378 870 2423 870 2430 
+C 870 2572 1018 2585 1171 2585 
+L 1171 2752 
+C 1018 2739 742 2739 582 2739 
+C 410 2739 205 2739 64 2752 
+L 64 2585 
+C 410 2585 448 2553 531 2345 
+L 1485 -31 
+C 1197 -795 1030 -1242 627 -1242 
+C 557 -1242 397 -1223 282 -1106 
+C 429 -1093 493 -1002 493 -892 
+C 493 -782 416 -685 288 -685 
+C 147 -685 77 -782 77 -899 
+C 77 -1158 339 -1344 627 -1344 
+C 998 -1344 1229 -983 1357 -659 
+L 2496 2183 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMMI12-4c" d="M 2349 3860 
+C 2406 4102 2426 4166 2989 4166 
+C 3162 4166 3206 4166 3206 4287 
+C 3206 4352 3136 4352 3110 4352 
+C 2982 4352 2835 4339 2707 4339 
+L 1850 4339 
+C 1728 4339 1587 4352 1466 4352 
+C 1414 4352 1344 4352 1344 4230 
+C 1344 4166 1402 4166 1498 4166 
+C 1888 4166 1888 4115 1888 4045 
+C 1888 4032 1888 3994 1862 3898 
+L 998 472 
+C 941 249 928 185 480 185 
+C 358 185 294 185 294 70 
+C 294 0 333 0 461 0 
+L 3328 0 
+C 3469 0 3475 6 3520 121 
+L 4013 1478 
+C 4026 1510 4038 1548 4038 1567 
+C 4038 1605 4006 1631 3974 1631 
+C 3968 1631 3936 1631 3923 1605 
+C 3910 1599 3910 1586 3859 1465 
+C 3654 905 3366 185 2285 185 
+L 1670 185 
+C 1581 185 1568 185 1530 191 
+C 1459 198 1453 211 1453 262 
+C 1453 306 1466 344 1478 402 
+L 2349 3860 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMSY10-c" d="M 4621 1606 
+C 4621 2787 3661 3744 2490 3744 
+C 1299 3744 352 2774 352 1606 
+C 352 419 1312 -545 2483 -545 
+C 3674 -545 4621 432 4621 1606 
+z
+M 2490 -384 
+C 1389 -384 512 516 512 1606 
+C 512 2709 1408 3584 2483 3584 
+C 3584 3584 4461 2690 4461 1606 
+C 4461 497 3565 -384 2490 -384 
+z
+M 2925 1606 
+C 2925 1849 2726 2048 2490 2048 
+C 2234 2048 2048 1836 2048 1606 
+C 2048 1363 2246 1164 2483 1164 
+C 2739 1164 2925 1375 2925 1606 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMR17-4c" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-75" transform="translate(57.381408 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6d" transform="translate(108.276778 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-69" transform="translate(185.196368 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6e" transform="translate(210.067426 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6f" transform="translate(260.962796 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-73" transform="translate(306.653273 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-69" transform="translate(342.454611 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-74" transform="translate(367.325669 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-79" transform="translate(400.003983 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5b" transform="translate(478.372865 0) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-4c" transform="translate(503.243924 0) scale(0.996264)"/>
+      <use xlink:href="#CMSY10-c" transform="translate(569.614799 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-5d" transform="translate(624.353924 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+   <g id="line2d_151">
+    <path d="M 205.752414 157.802301 
+L 203.970685 156.419114 
+L 198.175619 151.920714 
+L 206.228172 158.170672 
+L 197.928887 151.728644 
+L 200.598378 153.800047 
+L 200.331163 153.592415 
+L 197.281515 151.224836 
+L 197.843828 151.658892 
+L 196.455434 150.578679 
+L 196.323272 150.474072 
+L 196.231872 150.400536 
+L 196.125456 150.314821 
+L 196.008719 150.220393 
+L 195.899892 150.131181 
+L 195.795025 150.043875 
+L 195.664688 149.935346 
+L 195.451519 149.76081 
+L 195.085653 149.465854 
+L 194.589895 149.06806 
+L 194.011941 148.60424 
+L 193.378971 148.095195 
+L 192.662995 147.518653 
+L 191.849844 146.862843 
+L 190.981799 146.159701 
+L 190.10355 145.442921 
+L 189.271432 144.753847 
+L 188.474829 144.08166 
+L 187.574671 143.314007 
+L 186.923464 142.775322 
+L 186.526304 142.452677 
+L 186.221889 142.206379 
+L 185.936835 141.97668 
+L 185.621536 141.724037 
+L 185.270799 141.443969 
+L 184.867981 141.123234 
+L 184.395898 140.748239 
+L 183.682623 140.182387 
+L 182.650073 139.363397 
+L 181.881268 138.742519 
+L 180.287679 137.457532 
+L 175.993075 134.060679 
+L 173.036899 131.72039 
+L 172.127323 130.992116 
+L 171.916424 130.811903 
+L 171.920935 130.793804 
+L 172.006111 130.837644 
+L 172.149348 130.917234 
+L 172.391946 131.056148 
+L 172.822802 131.307089 
+L 173.399303 131.645095 
+L 174.078799 132.042528 
+L 175.070926 132.617056 
+L 175.924199 133.105628 
+L 177.117145 133.783195 
+L 178.755786 134.706994 
+L 181.083869 136.037343 
+L 183.827943 137.606233 
+L 185.692324 138.670584 
+L 187.902161 139.927302 
+L 191.9356 142.222782 
+L 201.52073 147.586276 
+L 136.94712 96.666112 
+L 125.015515 87.146507 
+L 117.441243 81.07393 
+L 110.225931 75.25265 
+L 103.720854 69.876785 
+L 98.311293 64.963115 
+L 90.80183 57.911251 
+L 84.60867 52.084448 
+L 79.325435 46.454032 
+L 75.946622 41.109831 
+L 76.560697 36.332685 
+L 84.09202 33.013018 
+L 93.952769 31.580964 
+L 103.734361 30.839165 
+L 113.179917 30.384816 
+L 122.592661 30.009777 
+L 131.392589 29.767158 
+L 139.758599 29.665717 
+L 146.234182 29.708546 
+L 149.698144 29.78141 
+L 150.633376 29.635133 
+L 149.179933 29.668541 
+L 148.800888 28.949446 
+L 141.646397 29.066702 
+L 138.632341 28.587114 
+L 134.273157 28.331256 
+L 130.140681 28.120267 
+L 124.479031 27.865693 
+L 117.948962 27.524794 
+L 106.811105 27.149709 
+L 81.288384 26.692411 
+L 57.831594 27.986682 
+L 52.509164 30.739469 
+L 70.758537 50.521512 
+L 82.381896 60.122581 
+L 84.738422 62.038027 
+" clip-path="url(#pe718edf0d6)" style="fill: none; stroke: #1f77b4; stroke-width: 1.5; stroke-linecap: square"/>
+   </g>
+   <g id="line2d_152">
+    <defs>
+     <path id="m888097fb35" d="M 0 2 
+C 0.530406 2 1.03916 1.789267 1.414214 1.414214 
+C 1.789267 1.03916 2 0.530406 2 0 
+C 2 -0.530406 1.789267 -1.03916 1.414214 -1.414214 
+C 1.03916 -1.789267 0.530406 -2 0 -2 
+C -0.530406 -2 -1.03916 -1.789267 -1.414214 -1.414214 
+C -1.789267 -1.03916 -2 -0.530406 -2 0 
+C -2 0.530406 -1.789267 1.03916 -1.414214 1.414214 
+C -1.03916 1.789267 -0.530406 2 0 2 
+z
+" style="stroke: #d62728"/>
+    </defs>
+    <g clip-path="url(#pe718edf0d6)">
+     <use xlink:href="#m888097fb35" x="84.738422" y="62.038027" style="fill: #d62728; stroke: #d62728"/>
+    </g>
+   </g>
+   <g id="patch_3">
+    <path d="M 44.823213 164.744585 
+L 44.823213 20.118498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_4">
+    <path d="M 213.914123 164.744585 
+L 213.914123 20.118498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_5">
+    <path d="M 44.823213 164.744585 
+L 213.914123 164.744585 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_6">
+    <path d="M 44.823213 20.118498 
+L 213.914123 20.118498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+  </g>
+  <g id="axes_2">
+   <g id="patch_7">
+    <path d="M 44.823213 352.758498 
+L 213.914123 352.758498 
+L 213.914123 208.132411 
+L 44.823213 208.132411 
+z
+" style="fill: #ffffff"/>
+   </g>
+   <g id="line2d_153">
+    <path d="M 112.913031 387.914454 
+L 116.425427 374.550046 
+L 130.083203 326.743878 
+L 143.105253 281.33061 
+L 156.158901 235.979434 
+L 169.073805 192.179175 
+L 182.468786 150.294874 
+L 191.603791 125.429717 
+L 195.711111 115.306114 
+L 207.849203 88.342135 
+L 221.247436 61.812796 
+L 227.403279 50.267917 
+" clip-path="url(#p5265ae6f6b)" style="fill: none; stroke-dasharray: 1.5,2.475; stroke-dashoffset: 0; stroke: #d3d3d3; stroke-width: 1.5"/>
+   </g>
+   <g id="line2d_154">
+    <path d="M 165.439649 339.633612 
+L 164.63132 334.857362 
+L 164.338301 333.492719 
+L 163.625831 330.763433 
+L 162.508803 326.669505 
+L 161.997726 325.304862 
+L 160.473705 321.210933 
+L 159.904633 319.84629 
+L 159.657151 319.163969 
+L 158.90898 317.799326 
+L 158.31171 316.434683 
+L 157.859781 315.752362 
+L 157.589127 315.07004 
+L 157.039752 314.387719 
+L 156.731432 313.705398 
+L 156.240147 313.023076 
+L 155.561144 311.658433 
+L 154.476119 310.29379 
+L 154.130193 309.611469 
+L 153.519174 308.929148 
+L 153.199374 308.246826 
+L 151.637015 306.199862 
+L 150.018136 304.152898 
+L 149.35951 303.470576 
+L 148.360724 302.105933 
+L 144.415189 298.012005 
+L 143.358407 297.329683 
+L 142.687981 296.647362 
+L 141.068241 295.282719 
+L 139.762262 293.918076 
+L 129.084627 281.63629 
+L 122.535489 274.130755 
+L 121.734706 273.448433 
+L 121.31041 272.766112 
+L 120.149673 271.401469 
+L 119.65307 270.719148 
+L 118.316632 269.354505 
+L 117.318196 267.989862 
+L 115.989582 266.625219 
+L 114.991641 265.260576 
+L 113.648591 263.895933 
+L 112.620949 262.53129 
+L 109.699774 259.802005 
+L 107.695115 258.437362 
+L 104.06849 256.390398 
+L 97.251974 253.661112 
+L 91.479644 251.614148 
+L 87.139466 250.249505 
+L 83.003314 248.884862 
+L 78.838461 247.520219 
+L 70.650278 246.837898 
+L 70.650278 246.837898 
+" clip-path="url(#p5265ae6f6b)" style="fill: none; stroke-dasharray: 5.55,2.4; stroke-dashoffset: 0; stroke: #d3d3d3; stroke-width: 1.5"/>
+   </g>
+   <g id="line2d_155">
+    <path d="M 213.471335 322.575576 
+L 213.577811 293.235755 
+L 213.799525 256.390398 
+L 213.741765 245.473255 
+L 213.423328 244.108612 
+L 211.425653 239.332362 
+L 210.673185 237.967719 
+L 206.375786 231.144505 
+L 205.258639 229.779862 
+L 204.859211 229.09754 
+L 203.542935 227.732898 
+L 203.083258 227.050576 
+L 202.440209 226.368255 
+L 201.982552 225.685933 
+L 195.741018 218.862719 
+L 194.07032 217.498076 
+L 192.83567 216.815755 
+L 190.819261 215.451112 
+L 189.531235 214.76879 
+L 188.505437 214.086469 
+L 183.646035 212.039505 
+L 181.697567 211.357183 
+L 176.828035 209.99254 
+L 166.157153 207.263255 
+L 141.012831 200.44004 
+L 129.769166 197.028433 
+L 123.799686 194.981469 
+L 117.962124 192.934505 
+L 110.960572 190.205219 
+L 107.890681 188.840576 
+L 104.692082 187.475933 
+L 104.692082 187.475933 
+" clip-path="url(#p5265ae6f6b)" style="fill: none; stroke-dasharray: 5.55,2.4; stroke-dashoffset: 0; stroke: #d3d3d3; stroke-width: 1.5"/>
+   </g>
+   <g id="line2d_156">
+    <defs>
+     <path id="m9b3189a9e1" d="M 0 1.5 
+C 0.397805 1.5 0.77937 1.341951 1.06066 1.06066 
+C 1.341951 0.77937 1.5 0.397805 1.5 0 
+C 1.5 -0.397805 1.341951 -0.77937 1.06066 -1.06066 
+C 0.77937 -1.341951 0.397805 -1.5 0 -1.5 
+C -0.397805 -1.5 -0.77937 -1.341951 -1.06066 -1.06066 
+C -1.341951 -0.77937 -1.5 -0.397805 -1.5 0 
+C -1.5 0.397805 -1.341951 0.77937 -1.06066 1.06066 
+C -0.77937 1.341951 -0.397805 1.5 0 1.5 
+z
+" style="stroke: #daa520"/>
+    </defs>
+    <g clip-path="url(#p5265ae6f6b)">
+     <use xlink:href="#m9b3189a9e1" x="108.772988" y="257.476991" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="108.820241" y="257.397533" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="108.87279" y="257.309108" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="108.916094" y="257.236419" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="108.947464" y="257.183654" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="108.981406" y="257.126584" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.015087" y="257.069953" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.048513" y="257.013754" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.08993" y="256.944053" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.130986" y="256.875103" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.17164" y="256.806697" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.227933" y="256.711987" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.275659" y="256.631931" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.307176" y="256.578969" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.338469" y="256.526387" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.369541" y="256.474178" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.400397" y="256.422339" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.431038" y="256.370864" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.461469" y="256.319748" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.506702" y="256.243637" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.551525" y="256.168504" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.58114" y="256.118777" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.61056" y="256.069385" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.639785" y="256.020324" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.683241" y="255.947254" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.740556" y="255.85107" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.783083" y="255.779841" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.811195" y="255.732681" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.853009" y="255.662422" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.894475" y="255.593" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.935516" y="255.524068" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="109.976219" y="255.455943" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.003135" y="255.410824" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.043189" y="255.343587" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.09606" y="255.254995" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.148309" y="255.167467" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.199949" y="255.080978" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.250995" y="254.995505" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.301463" y="254.911023" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.351364" y="254.82751" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.388439" y="254.765565" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.419081" y="254.714261" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.455582" y="254.653203" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.491785" y="254.592653" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.527697" y="254.532603" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.56332" y="254.473044" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.604515" y="254.404135" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.645349" y="254.335941" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.674286" y="254.287619" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.705251" y="254.235833" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.740438" y="254.177078" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.779718" y="254.11141" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.818675" y="254.046416" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.849588" y="253.994802" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.895535" y="253.917959" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.94106" y="253.842119" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="110.978614" y="253.779395" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.015874" y="253.717287" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.045451" y="253.667949" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.082138" y="253.606704" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.118545" y="253.546048" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.154637" y="253.485818" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.190458" y="253.426157" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.218902" y="253.378749" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.247164" y="253.331648" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.275248" y="253.284851" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.317024" y="253.215132" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.365309" y="253.134774" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.413052" y="253.055202" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.4536" y="252.987802" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.480416" y="252.943162" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.513703" y="252.887714" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.55979" y="252.810961" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.614998" y="252.719079" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.672691" y="252.62313" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.729463" y="252.528738" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.771459" y="252.45905" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.799224" y="252.412906" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.826817" y="252.367053" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.860954" y="252.31029" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.9015" y="252.242939" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.941681" y="252.176209" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="111.981505" y="252.110089" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.020976" y="252.044567" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.060104" y="251.979634" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.09889" y="251.915279" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.137342" y="251.851493" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.175467" y="251.788264" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.213269" y="251.725585" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.250756" y="251.663444" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.28793" y="251.601835" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.324798" y="251.540747" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.361364" y="251.480173" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.397634" y="251.420103" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.429062" y="251.368095" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.455735" y="251.323938" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.495432" y="251.258131" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.547843" y="251.171413" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.599649" y="251.085728" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.650862" y="251.001053" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.701498" y="250.917364" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.751568" y="250.834639" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.80108" y="250.752857" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.850044" y="250.671998" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.898471" y="250.59204" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.934459" y="250.532715" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.958276" y="250.493394" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="112.987753" y="250.444697" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.022787" y="250.386864" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.05754" y="250.329496" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.092015" y="250.272583" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.126216" y="250.216121" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.160147" y="250.160101" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.193814" y="250.104517" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.227218" y="250.049363" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.260363" y="249.994632" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.293251" y="249.940318" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.325889" y="249.886415" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.358279" y="249.832916" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.390425" y="249.779816" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.422329" y="249.727109" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.453996" y="249.674789" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.485426" y="249.622851" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.516627" y="249.57129" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.5476" y="249.520099" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.57835" y="249.469275" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.608877" y="249.418811" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.639186" y="249.368703" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.68422" y="249.294099" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.743567" y="249.195961" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.787562" y="249.123332" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.816625" y="249.07526" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.84549" y="249.027512" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.888399" y="248.956397" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.930928" y="248.886166" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.959031" y="248.839671" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="113.986951" y="248.793479" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.01469" y="248.747586" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.055942" y="248.679216" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.110362" y="248.589182" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.164104" y="248.500279" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.203999" y="248.434405" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.230385" y="248.390776" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.269625" y="248.325758" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.308551" y="248.261481" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.334295" y="248.218904" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.372615" y="248.155443" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.410637" y="248.092688" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.435786" y="248.051113" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.47323" y="247.989137" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.510392" y="247.927836" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.547203" y="247.866929" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.583743" y="247.806675" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.61377" y="247.757054" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.649409" y="247.69822" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.684764" y="247.639873" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.72855" y="247.567555" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.77194" y="247.496081" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.814118" y="247.426489" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.855169" y="247.35893" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.887429" y="247.305802" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.919458" y="247.253072" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.951263" y="247.200734" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="114.982847" y="247.148781" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="115.014213" y="247.097209" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="115.045365" y="247.046011" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="115.076306" y="246.995183" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="115.107037" y="246.944719" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="115.137566" y="246.894613" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="115.167893" y="246.844862" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="115.212984" y="246.770788" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="115.257694" y="246.697679" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="115.287243" y="246.649294" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="115.331196" y="246.577241" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.606092" y="225.268088" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.607111" y="225.268088" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.608079" y="225.268088" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.608794" y="225.268088" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.609409" y="225.268088" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.609772" y="225.268088" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.610099" y="225.268087" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.61059" y="225.268087" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.610606" y="225.268087" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.610638" y="225.268087" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.610699" y="225.268086" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.610815" y="225.268085" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.610954" y="225.268085" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.611056" y="225.268084" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.611121" y="225.268084" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.611151" y="225.268084" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.61117" y="225.268084" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.611395" y="225.268084" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.611754" y="225.268084" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.612036" y="225.268084" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.612251" y="225.268084" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.61246" y="225.268084" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.612631" y="225.268084" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.612833" y="225.268084" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.613049" y="225.268084" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.613283" y="225.268083" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.613555" y="225.268083" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.613778" y="225.268083" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.61397" y="225.268083" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.614141" y="225.268083" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.614278" y="225.268083" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.614434" y="225.268083" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.614573" y="225.268083" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.614747" y="225.268083" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.615045" y="225.268083" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.615064" y="225.268083" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.615083" y="225.268083" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.615101" y="225.268083" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.615116" y="225.268083" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.615135" y="225.268083" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.615155" y="225.268083" style="fill: #daa520; stroke: #daa520"/>
+     <use xlink:href="#m9b3189a9e1" x="134.615186" y="225.268083" style="fill: #daa520; stroke: #daa520"/>
+    </g>
+   </g>
+   <g id="line2d_157">
+    <defs>
+     <path id="m5c5036a12b" d="M 0 2.25 
+C 0.596707 2.25 1.169055 2.012926 1.59099 1.59099 
+C 2.012926 1.169055 2.25 0.596707 2.25 0 
+C 2.25 -0.596707 2.012926 -1.169055 1.59099 -1.59099 
+C 1.169055 -2.012926 0.596707 -2.25 0 -2.25 
+C -0.596707 -2.25 -1.169055 -2.012926 -1.59099 -1.59099 
+C -2.012926 -1.169055 -2.25 -0.596707 -2.25 0 
+C -2.25 0.596707 -2.012926 1.169055 -1.59099 1.59099 
+C -1.169055 2.012926 -0.596707 2.25 0 2.25 
+z
+" style="stroke: #ff7f0e"/>
+    </defs>
+    <g clip-path="url(#p5265ae6f6b)">
+     <use xlink:href="#m5c5036a12b" x="115.374786" y="246.506101" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="115.403604" y="246.45901" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="115.446482" y="246.388871" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="115.499488" y="246.302433" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="115.534404" y="246.245615" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="115.565488" y="246.194912" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="115.606633" y="246.127932" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="115.647423" y="246.061583" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="115.687866" y="245.995853" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="115.727966" y="245.93073" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="115.76773" y="245.866204" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="115.816737" y="245.786661" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="115.860323" y="245.716194" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="115.889148" y="245.669545" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="115.917795" y="245.623203" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="115.946272" y="245.577164" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="115.981446" y="245.520294" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.023181" y="245.452922" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.064555" y="245.386189" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.105574" y="245.320081" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.146245" y="245.254588" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.186574" y="245.189697" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.226565" y="245.125399" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.266224" y="245.061681" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.305557" y="244.998534" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.344568" y="244.935948" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.383262" y="244.873912" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.421643" y="244.812417" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.459717" y="244.751454" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.497487" y="244.691012" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.534958" y="244.631085" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.572133" y="244.571662" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.609016" y="244.512735" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.645612" y="244.454296" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.681923" y="244.396338" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.717953" y="244.338851" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.753706" y="244.281829" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.789184" y="244.225264" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.824391" y="244.169148" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.85933" y="244.113475" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.894004" y="244.058238" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.928417" y="244.003429" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.962572" y="243.949042" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="116.996474" y="243.895071" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.030125" y="243.84151" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.063531" y="243.788352" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.096694" y="243.73559" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.129618" y="243.68322" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.162307" y="243.631236" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.194763" y="243.579631" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.242992" y="243.502819" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.306551" y="243.401823" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.353673" y="243.327112" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.384803" y="243.277674" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.415722" y="243.22858" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.446434" y="243.179825" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.492094" y="243.107223" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.552305" y="243.01169" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.596972" y="242.940968" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.626495" y="242.894151" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.6704" y="242.824415" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.713934" y="242.755532" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.742713" y="242.709924" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.771313" y="242.664609" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.799735" y="242.619583" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.84202" y="242.552496" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.897826" y="242.464132" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.95296" y="242.376861" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="117.993899" y="242.312182" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.020977" y="242.26934" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.061277" y="242.205488" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.11449" y="242.121336" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.167092" y="242.038174" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.219098" y="241.955981" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.270521" y="241.874733" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.321373" y="241.79441" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.371668" y="241.71499" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.409047" y="241.656068" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.452227" y="241.587763" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.501137" y="241.510701" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.537465" y="241.453393" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.591389" y="241.368164" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.644754" y="241.284207" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.679968" y="241.228702" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.714914" y="241.173631" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.766808" y="241.091701" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.835143" y="240.984078" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.902477" y="240.878074" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.952368" y="240.799714" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="118.985311" y="240.74788" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.023442" y="240.687858" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.077362" y="240.602951" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.130699" y="240.519207" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.162407" y="240.469433" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.193874" y="240.419921" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.235515" y="240.354499" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.276783" y="240.289679" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.317684" y="240.225451" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.358227" y="240.161802" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.398415" y="240.098724" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.438257" y="240.036206" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.49734" y="239.943303" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.575013" y="239.821512" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.632461" y="239.731676" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.670341" y="239.672321" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.707913" y="239.613462" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.745182" y="239.555092" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.800492" y="239.468298" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.873271" y="239.354392" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.944923" y="239.2423" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="119.997977" y="239.159511" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.032989" y="239.104773" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.067738" y="239.050458" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.119346" y="238.969647" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.170447" y="238.889983" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.204185" y="238.837295" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.237678" y="238.784999" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.270931" y="238.733089" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.32034" y="238.655828" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.385448" y="238.554257" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.449655" y="238.454132" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.512986" y="238.355413" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.559951" y="238.282368" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.590982" y="238.234026" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.637119" y="238.162038" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.697965" y="238.067308" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.743106" y="237.997177" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.787767" y="237.927565" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.83205" y="237.858806" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.87587" y="237.790544" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.933694" y="237.700658" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="120.976619" y="237.63407" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.005003" y="237.589973" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.047237" y="237.524263" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.102989" y="237.437697" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.158084" y="237.352184" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.212538" y="237.267699" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.266365" y="237.184216" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.319582" y="237.101714" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.3722" y="237.020168" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.424235" y="236.939558" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.475699" y="236.859861" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.526605" y="236.781058" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.564443" y="236.722592" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.58949" y="236.683842" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.626795" y="236.626055" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.676101" y="236.549816" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.724897" y="236.474396" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.773194" y="236.399777" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.821002" y="236.325943" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.868331" y="236.252876" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.915191" y="236.180562" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="121.961593" y="236.108986" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="122.007544" y="236.038131" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="122.053056" y="235.967985" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="122.098136" y="235.898534" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="122.142792" y="235.829763" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="122.187033" y="235.761659" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="122.230869" y="235.694211" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="122.295828" y="235.594059" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="122.360013" y="235.495671" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="122.402298" y="235.430723" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="122.454617" y="235.350306" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="122.516681" y="235.255092" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="122.577955" y="235.161155" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="122.638463" y="235.068464" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="122.70809" y="234.961766" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="122.786486" y="234.841887" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="122.844506" y="234.75345" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="122.882781" y="234.695016" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="122.939599" y="234.608134" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="122.995842" y="234.522589" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="123.03296" y="234.46605" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="123.088038" y="234.381962" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="123.160727" y="234.271572" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="123.214706" y="234.190036" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="123.250304" y="234.136125" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="123.285613" y="234.08263" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="123.320653" y="234.029544" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="123.372677" y="233.950555" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="123.44131" y="233.846764" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="123.509029" y="233.744505" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="123.575861" y="233.643734" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="123.641834" y="233.54441" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="123.690794" y="233.470942" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="123.723163" y="233.422329" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="123.771312" y="233.349948" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="123.834868" y="233.254734" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="123.897669" y="233.160819" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="123.959735" y="233.068169" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="124.02109" y="232.976752" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="124.081755" y="232.886536" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="124.141752" y="232.797493" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="124.201101" y="232.709594" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="124.259821" y="232.62281" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="124.317931" y="232.537117" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="124.375451" y="232.452487" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="124.432396" y="232.368897" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="124.488786" y="232.286323" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="124.544636" y="232.204742" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="124.599892" y="232.124132" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="124.654855" y="232.044471" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="124.709592" y="231.965743" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="124.763622" y="231.887926" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="124.816949" y="231.810999" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="124.869909" y="231.734944" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="124.948476" y="231.622213" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="125.026245" y="231.511825" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="125.077552" y="231.439082" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="125.153739" y="231.331214" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="125.254147" y="231.190362" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="125.328955" y="231.086393" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.384132" y="225.268105" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.39396" y="225.268105" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.404439" y="225.268105" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.411265" y="225.268104" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.416809" y="225.268104" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.42175" y="225.268104" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.426302" y="225.268104" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.431978" y="225.268104" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.438336" y="225.268103" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.445335" y="225.268103" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.45693" y="225.268103" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.466067" y="225.268103" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.471656" y="225.268102" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.474051" y="225.268102" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.476899" y="225.268102" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.479665" y="225.268101" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.482642" y="225.268101" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.486071" y="225.268101" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.489597" y="225.2681" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.49259" y="225.2681" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.495748" y="225.2681" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.499206" y="225.2681" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.502758" y="225.2681" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.506172" y="225.268099" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.509419" y="225.268099" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.513916" y="225.268099" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.520491" y="225.268099" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.525722" y="225.268099" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.529509" y="225.268099" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.532889" y="225.268098" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.535257" y="225.268098" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.538165" y="225.268098" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.540129" y="225.268098" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.540784" y="225.268098" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.54203" y="225.268097" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.54412" y="225.268097" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.54571" y="225.268096" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.547021" y="225.268096" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.54847" y="225.268096" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.550058" y="225.268096" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.551431" y="225.268095" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.553133" y="225.268095" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.554495" y="225.268095" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.556295" y="225.268095" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.559056" y="225.268095" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.562522" y="225.268095" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.565764" y="225.268094" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.568724" y="225.268094" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.571861" y="225.268094" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.575215" y="225.268094" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.578139" y="225.268094" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.580704" y="225.268094" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.583277" y="225.268093" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.586153" y="225.268093" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.58718" y="225.268093" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.587839" y="225.268093" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.588571" y="225.268093" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.589597" y="225.268092" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.59006" y="225.268092" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.590515" y="225.268092" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.591077" y="225.268091" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.591757" y="225.268091" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.592439" y="225.268091" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.592893" y="225.268091" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.593714" y="225.268091" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.59446" y="225.26809" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.59473" y="225.26809" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.59527" y="225.26809" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.596066" y="225.26809" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.596829" y="225.26809" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.597614" y="225.268089" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.598495" y="225.268089" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.599492" y="225.268089" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.600584" y="225.268089" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.601423" y="225.268089" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.602232" y="225.268089" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.603497" y="225.268089" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.604432" y="225.268089" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.605054" y="225.268088" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+     <use xlink:href="#m5c5036a12b" x="134.605549" y="225.268088" style="fill: #ff7f0e; stroke: #ff7f0e"/>
+    </g>
+   </g>
+   <g id="line2d_158">
+    <defs>
+     <path id="mdb932093ce" d="M 0 3 
+C 0.795609 3 1.55874 2.683901 2.12132 2.12132 
+C 2.683901 1.55874 3 0.795609 3 0 
+C 3 -0.795609 2.683901 -1.55874 2.12132 -2.12132 
+C 1.55874 -2.683901 0.795609 -3 0 -3 
+C -0.795609 -3 -1.55874 -2.683901 -2.12132 -2.12132 
+C -2.683901 -1.55874 -3 -0.795609 -3 0 
+C -3 0.795609 -2.683901 1.55874 -2.12132 2.12132 
+C -1.55874 2.683901 -0.795609 3 0 3 
+z
+" style="stroke: #d62728"/>
+    </defs>
+    <g clip-path="url(#p5265ae6f6b)">
+     <use xlink:href="#mdb932093ce" x="125.378837" y="231.017217" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="125.4284" y="230.948762" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="125.477658" y="230.881017" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="125.550942" y="230.7805" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="125.647737" y="230.649112" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="125.720589" y="230.552488" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="125.768499" y="230.488746" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="125.839402" y="230.394126" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="125.933399" y="230.270343" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="126.026612" y="230.148927" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="126.096061" y="230.059537" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="126.142133" y="230.000534" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="126.210911" y="229.912899" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="126.30216" y="229.798149" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="126.392895" y="229.68549" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="126.484443" y="229.574869" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="126.574401" y="229.466229" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="126.664055" y="229.359508" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="126.753445" y="229.254654" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="126.864856" y="229.125916" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="126.999265" y="228.975331" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="127.111349" y="228.85298" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="127.200156" y="228.756784" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="127.289252" y="228.66219" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="127.424741" y="228.522766" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="127.604124" y="228.342799" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="127.78625" y="228.168629" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="127.922686" y="228.042071" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="128.01574" y="227.959105" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="128.153842" y="227.836721" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="128.321048" y="227.696093" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="128.469376" y="227.576124" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="128.691658" y="227.400811" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="128.997895" y="227.178199" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="129.231019" y="227.019122" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="129.389259" y="226.915717" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="129.630889" y="226.764466" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="129.958589" y="226.572111" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="130.208548" y="226.434529" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="130.418811" y="226.322772" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="130.673512" y="226.1934" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="130.902672" y="226.082195" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="131.106267" y="225.98731" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="131.408926" y="225.848851" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="131.707365" y="225.717129" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="131.85459" y="225.652951" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="131.952828" y="225.610729" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="132.076699" y="225.55863" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="132.221805" y="225.497263" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="132.323887" y="225.453954" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="132.385827" y="225.427831" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="132.478531" y="225.388953" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="132.577591" y="225.347617" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="132.634394" y="225.324141" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="132.67253" y="225.308564" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="132.711332" y="225.293057" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="132.749024" y="225.277621" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="132.786042" y="225.262254" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="132.822388" y="225.246953" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="132.85771" y="225.231717" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="132.893569" y="225.216546" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="132.929157" y="225.201439" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="132.964541" y="225.186394" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="132.999897" y="225.171331" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.035223" y="225.156251" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.070306" y="225.141235" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.105219" y="225.126283" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.13123" y="225.115116" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.14853" y="225.107686" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.174357" y="225.096567" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.208625" y="225.0818" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.242684" y="225.067094" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.268059" y="225.056108" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.284919" y="225.0488" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.31008" y="225.037859" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.343381" y="225.023329" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.368243" y="225.012474" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.384739" y="225.005251" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.401201" y="224.998043" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.417529" y="224.990849" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.433734" y="224.983668" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.449865" y="224.976501" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.465937" y="224.969348" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.481838" y="224.962208" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.505403" y="224.951519" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.531992" y="224.939215" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.54913" y="224.931432" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.560632" y="224.92625" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.577942" y="224.918489" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.601169" y="224.908167" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.624562" y="224.897874" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.642025" y="224.890174" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.653776" y="224.885048" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.671383" y="224.877369" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.68924" y="224.869711" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.701254" y="224.864613" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.716343" y="224.858336" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.733791" y="224.850887" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.750824" y="224.843454" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.767744" y="224.836035" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.784331" y="224.828629" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.80115" y="224.821238" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.81805" y="224.813861" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.835044" y="224.806498" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.8508" y="224.799819" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.864448" y="224.793819" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.884193" y="224.784832" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.902804" y="224.775871" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.916368" y="224.769906" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.930439" y="224.76395" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.94178" y="224.75949" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.949759" y="224.756519" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.95977" y="224.75314" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.96979" y="224.749353" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.983713" y="224.743678" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="133.996657" y="224.738015" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.004177" y="224.735186" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.009739" y="224.733301" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.01593" y="224.731418" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.021942" y="224.729535" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.027281" y="224.727654" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.034038" y="224.725774" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.051019" y="224.722956" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.061004" y="224.716389" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.071254" y="224.7096" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.079222" y="224.704337" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.086451" y="224.699606" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.090104" y="224.697242" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.091906" y="224.69606" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.092809" y="224.695469" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.09326" y="224.695174" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.093485" y="224.695026" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.093598" y="224.694953" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.093654" y="224.694916" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.093683" y="224.694897" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.093697" y="224.694888" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.093704" y="224.694883" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.093707" y="224.694881" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.093709" y="224.69488" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.09371" y="224.694879" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.116415" y="224.694879" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.126214" y="224.694879" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.136806" y="224.694878" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.139358" y="224.694878" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.139681" y="224.694877" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.140393" y="224.694876" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.140395" y="224.694875" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.140398" y="224.694873" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.140401" y="224.694871" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.140406" y="224.694867" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.140413" y="224.694862" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.140423" y="224.694855" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.140437" y="224.694846" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.140457" y="224.694832" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.140484" y="224.694813" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.140525" y="224.694785" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.140579" y="224.694748" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.140661" y="224.694692" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.14077" y="224.694617" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.140933" y="224.694505" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.14115" y="224.694355" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.141476" y="224.694131" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.141911" y="224.693832" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.142561" y="224.693383" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.143431" y="224.692785" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.144742" y="224.691887" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.146476" y="224.690691" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.149089" y="224.688897" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.152481" y="224.686507" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.157479" y="224.682922" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.164076" y="224.678147" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.171665" y="224.672581" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.181711" y="224.665168" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.201512" y="224.650628" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.22293" y="224.635218" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.23465" y="224.624963" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.238614" y="224.617087" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.245143" y="224.611575" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.252156" y="224.607445" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.257265" y="224.604694" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.260973" y="224.602632" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.264286" y="224.601257" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.267384" y="224.600227" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.269492" y="224.59954" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.27154" y="224.598853" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.273091" y="224.598338" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.273867" y="224.598081" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.274255" y="224.597952" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.274449" y="224.597888" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.274546" y="224.597855" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.274594" y="224.597839" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.274618" y="224.597831" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.27463" y="224.597827" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.274636" y="224.597825" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.27464" y="224.597824" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.29165" y="224.597822" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.291652" y="224.597821" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.291656" y="224.597818" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.291663" y="224.597812" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.291677" y="224.597801" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.291706" y="224.59778" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.291762" y="224.597736" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.291875" y="224.597648" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.292102" y="224.597473" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.292555" y="224.597123" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.29346" y="224.596423" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.29527" y="224.595024" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.298888" y="224.592225" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.306107" y="224.586632" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.320489" y="224.57546" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.34139" y="224.559153" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.358899" y="224.545498" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.368406" y="224.538063" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.373519" y="224.53405" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.376174" y="224.531872" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.377339" y="224.53072" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.377864" y="224.530201" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.378137" y="224.529931" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.378284" y="224.529786" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.378353" y="224.529717" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.378387" y="224.529684" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.378404" y="224.529667" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.378413" y="224.529658" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.378419" y="224.529652" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.378422" y="224.529649" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.378425" y="224.529646" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.378426" y="224.529645" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.378427" y="224.529644" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.378428" y="224.529643" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.378429" y="224.529642" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.378429" y="224.529642" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.378429" y="224.529642" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.305714" y="224.529642" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.307794" y="224.539872" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.320267" y="224.601247" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.354719" y="224.770975" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.404854" y="225.018462" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.441888" y="225.201652" style="fill: #d62728; stroke: #d62728"/>
+     <use xlink:href="#mdb932093ce" x="134.455307" y="225.268105" style="fill: #d62728; stroke: #d62728"/>
+    </g>
+   </g>
+   <g id="matplotlib.axis_3">
+    <g id="xtick_16">
+     <g id="line2d_159">
+      <g>
+       <use xlink:href="#ma8d582654b" x="77.151876" y="352.758498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_160">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="77.151876" y="208.132411" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_10">
+      <!-- $\mathdefault{10^{-2}}$ -->
+      <g transform="translate(67.071589 363.176997) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMSY10-0" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-32" transform="translate(145.621947 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_17">
+     <g id="line2d_161">
+      <g>
+       <use xlink:href="#ma8d582654b" x="116.161462" y="352.758498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_162">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="116.161462" y="208.132411" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_11">
+      <!-- $\mathdefault{10^{1}}$ -->
+      <g transform="translate(109.194508 363.176997) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-31" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_18">
+     <g id="line2d_163">
+      <g>
+       <use xlink:href="#ma8d582654b" x="155.171048" y="352.758498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_164">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="155.171048" y="208.132411" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_12">
+      <!-- $\mathdefault{10^{4}}$ -->
+      <g transform="translate(148.204094 363.176997) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-34" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_19">
+     <g id="line2d_165">
+      <g>
+       <use xlink:href="#ma8d582654b" x="194.180634" y="352.758498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_166">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="194.180634" y="208.132411" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_13">
+      <!-- $\mathdefault{10^{7}}$ -->
+      <g transform="translate(187.21368 363.176997) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-37" d="M 2886 3955 
+L 2886 4096 
+L 1382 4096 
+C 634 4096 621 4166 595 4288 
+L 480 4288 
+L 294 3104 
+L 410 3104 
+C 429 3226 474 3552 550 3673 
+C 589 3724 1062 3724 1171 3724 
+L 2579 3724 
+L 1869 2670 
+C 1395 1961 1069 1003 1069 166 
+C 1069 89 1069 -128 1299 -128 
+C 1530 -128 1530 89 1530 172 
+L 1530 466 
+C 1530 1514 1709 2204 2003 2644 
+L 2886 3955 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-37" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="text_14">
+     <!-- Density [g/cm$^3$] -->
+     <g transform="translate(94.796851 377.223794) scale(0.1 -0.1)">
+      <defs>
+       <path id="CMR17-44" d="M 333 4352 
+L 333 4185 
+C 774 4185 845 4185 845 3898 
+L 845 453 
+C 845 166 774 166 333 166 
+L 333 0 
+L 2368 0 
+C 3398 0 4224 943 4224 2140 
+C 4224 3344 3411 4352 2368 4352 
+L 333 4352 
+z
+M 1523 166 
+C 1267 166 1254 198 1254 414 
+L 1254 3936 
+C 1254 4153 1267 4185 1523 4185 
+L 2240 4185 
+C 2771 4185 3750 3873 3750 2140 
+C 3750 1242 3488 879 3366 707 
+C 3213 510 2848 166 2240 166 
+L 1523 166 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-67" d="M 710 1165 
+C 832 1068 1043 960 1299 960 
+C 1805 960 2240 1359 2240 1895 
+C 2240 2063 2189 2321 1997 2521 
+C 2176 2713 2438 2777 2586 2777 
+C 2611 2777 2650 2777 2682 2758 
+C 2656 2751 2598 2726 2598 2623 
+C 2598 2540 2656 2483 2739 2483 
+C 2835 2483 2886 2547 2886 2630 
+C 2886 2751 2790 2880 2586 2880 
+C 2330 2880 2106 2758 1926 2591 
+C 1734 2764 1504 2828 1299 2828 
+C 794 2828 358 2431 358 1895 
+C 358 1527 570 1294 634 1230 
+C 442 1004 442 742 442 710 
+C 442 544 506 300 723 166 
+C 390 82 128 -184 128 -517 
+C 128 -996 736 -1344 1466 -1344 
+C 2170 -1344 2803 -1009 2803 -510 
+C 2803 384 1856 384 1363 384 
+C 1216 384 954 384 922 390 
+C 723 422 589 601 589 825 
+C 589 883 589 1024 710 1165 
+z
+M 1299 1068 
+C 736 1068 736 1766 736 1895 
+C 736 2024 736 2719 1299 2719 
+C 1862 2719 1862 2024 1862 1895 
+C 1862 1766 1862 1068 1299 1068 
+z
+M 1466 -1236 
+C 826 -1236 384 -883 384 -517 
+C 384 -311 493 -118 634 -11 
+C 794 102 858 102 1293 102 
+C 1818 102 2547 102 2547 -517 
+C 2547 -883 2106 -1236 1466 -1236 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-2f" d="M 2605 4575 
+C 2637 4658 2637 4671 2637 4684 
+C 2637 4761 2579 4800 2528 4800 
+C 2451 4800 2426 4748 2400 4671 
+L 326 -1376 
+C 294 -1460 294 -1472 294 -1485 
+C 294 -1562 352 -1600 403 -1600 
+C 480 -1600 506 -1549 531 -1472 
+L 2605 4575 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMR17-44" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(70.393556 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6e" transform="translate(110.879216 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-73" transform="translate(161.774586 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-69" transform="translate(197.575924 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-74" transform="translate(222.446982 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-79" transform="translate(255.125296 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5b" transform="translate(333.494178 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-67" transform="translate(358.365237 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-2f" transform="translate(404.055714 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-63" transform="translate(449.746191 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6d" transform="translate(490.231852 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-33" transform="translate(567.151441 36.153639) scale(0.697382)"/>
+      <use xlink:href="#CMR17-5d" transform="translate(599.632755 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+   <g id="matplotlib.axis_4">
+    <g id="ytick_61">
+     <g id="line2d_167">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="44.823213" y="339.633612" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_168">
+      <g>
+       <use xlink:href="#m5c5963373f" x="213.914123" y="339.633612" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_15">
+      <!-- $\mathdefault{10^{6}}$ -->
+      <g transform="translate(27.389305 343.092861) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-36" d="M 678 2198 
+C 678 3712 1395 4076 1811 4076 
+C 1946 4076 2272 4049 2400 3782 
+C 2298 3782 2106 3782 2106 3558 
+C 2106 3385 2246 3328 2336 3328 
+C 2394 3328 2566 3353 2566 3571 
+C 2566 3987 2246 4224 1805 4224 
+C 1043 4224 243 3411 243 2011 
+C 243 257 966 -128 1478 -128 
+C 2099 -128 2688 431 2688 1295 
+C 2688 2101 2170 2688 1517 2688 
+C 1126 2688 838 2430 678 1979 
+L 678 2198 
+z
+M 1478 25 
+C 691 25 691 1212 691 1450 
+C 691 1914 909 2585 1504 2585 
+C 1613 2585 1926 2585 2138 2140 
+C 2253 1889 2253 1624 2253 1302 
+C 2253 954 2253 696 2118 438 
+C 1978 173 1773 25 1478 25 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-36" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_62">
+     <g id="line2d_169">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="44.823213" y="271.401469" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_170">
+      <g>
+       <use xlink:href="#m5c5963373f" x="213.914123" y="271.401469" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_16">
+      <!-- $\mathdefault{10^{7}}$ -->
+      <g transform="translate(27.389305 274.860718) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-37" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_63">
+     <g id="line2d_171">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="350.202904" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_172">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="350.202904" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_64">
+     <g id="line2d_173">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="346.24599" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_174">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="346.24599" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_65">
+     <g id="line2d_175">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="342.755743" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_176">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="342.755743" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_66">
+     <g id="line2d_177">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="319.09369" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_178">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="319.09369" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_67">
+     <g id="line2d_179">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="307.078606" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_180">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="307.078606" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_68">
+     <g id="line2d_181">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="298.553768" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_182">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="298.553768" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_69">
+     <g id="line2d_183">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="291.941391" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_184">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="291.941391" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_70">
+     <g id="line2d_185">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="286.538685" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_186">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="286.538685" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_71">
+     <g id="line2d_187">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="281.970762" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_188">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="281.970762" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_72">
+     <g id="line2d_189">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="278.013847" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_190">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="278.013847" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_73">
+     <g id="line2d_191">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="274.523601" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_192">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="274.523601" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_74">
+     <g id="line2d_193">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="250.861547" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_194">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="250.861547" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_75">
+     <g id="line2d_195">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="238.846463" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_196">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="238.846463" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_76">
+     <g id="line2d_197">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="230.321626" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_198">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="230.321626" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_77">
+     <g id="line2d_199">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="223.709248" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_200">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="223.709248" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_78">
+     <g id="line2d_201">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="218.306542" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_202">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="218.306542" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_79">
+     <g id="line2d_203">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="213.738619" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_204">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="213.738619" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_80">
+     <g id="line2d_205">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="44.823213" y="209.781704" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_206">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="213.914123" y="209.781704" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="text_17">
+     <!-- Temperature [K] -->
+     <g transform="translate(20.898645 316.726135) rotate(-90) scale(0.1 -0.1)">
+      <use xlink:href="#CMR17-54" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(58.702625 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6d" transform="translate(99.188286 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-70" transform="translate(176.107875 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(229.605684 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-72" transform="translate(270.091344 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-61" transform="translate(305.372112 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-74" transform="translate(351.062589 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-75" transform="translate(386.343357 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-72" transform="translate(437.238727 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(472.519495 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5b" transform="translate(543.081122 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-4b" transform="translate(567.95218 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5d" transform="translate(639.626957 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+   <g id="line2d_207">
+    <path d="M 52.509164 346.184585 
+L 53.877853 343.196618 
+L 56.543961 338.469461 
+L 69.134575 317.040688 
+L 73.67479 309.176436 
+L 77.079361 303.91058 
+L 81.07316 298.184786 
+L 94.75518 278.818092 
+L 96.333027 276.513201 
+L 96.941816 275.982563 
+L 100.791956 270.33959 
+L 104.630926 264.331016 
+L 109.461469 256.319748 
+L 116.572133 244.571662 
+L 122.882781 234.695016 
+L 125.720589 230.552488 
+L 127.200156 228.756784 
+L 128.321048 227.696093 
+L 129.630889 226.764466 
+L 131.408926 225.848851 
+L 134.378429 224.529642 
+L 134.320267 224.601247 
+L 134.568724 225.268094 
+L 134.711232 225.16991 
+L 137.829775 222.098569 
+L 139.772282 220.309412 
+L 144.569138 215.543121 
+L 145.689033 214.932942 
+L 146.662758 214.710936 
+L 147.394198 214.782517 
+L 147.886722 214.970153 
+L 148.454456 215.355954 
+L 148.971595 215.885061 
+L 149.630156 216.870798 
+L 150.407893 218.549605 
+L 151.093726 220.601904 
+L 151.855079 223.652583 
+L 152.657347 227.926642 
+L 153.438349 233.384143 
+L 154.159245 240.031795 
+L 154.771438 247.695346 
+L 155.05165 250.878023 
+L 155.126267 250.840208 
+L 156.200993 248.8065 
+L 157.039531 247.335174 
+L 159.124466 243.841782 
+L 160.896444 241.271728 
+L 162.576453 239.209153 
+L 164.313755 237.437856 
+L 166.000827 236.028233 
+L 168.090519 234.596192 
+L 170.124602 233.468794 
+L 172.316367 232.486698 
+L 175.120428 231.482696 
+L 178.598392 230.492389 
+L 186.363483 228.623186 
+L 194.176073 227.009999 
+L 201.048893 225.840266 
+L 206.228172 225.10858 
+L 206.228172 225.10858 
+" clip-path="url(#p5265ae6f6b)" style="fill: none; stroke: #1f77b4; stroke-width: 1.5; stroke-linecap: square"/>
+   </g>
+   <g id="line2d_208"/>
+   <g id="line2d_209"/>
+   <g id="line2d_210"/>
+   <g id="patch_8">
+    <path d="M 44.823213 352.758498 
+L 44.823213 208.132411 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_9">
+    <path d="M 213.914123 352.758498 
+L 213.914123 208.132411 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_10">
+    <path d="M 44.823213 352.758498 
+L 213.914123 352.758498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_11">
+    <path d="M 44.823213 208.132411 
+L 213.914123 208.132411 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="legend_1">
+    <g id="line2d_211">
+     <path d="M 116.342059 316.138337 
+L 124.342059 316.138337 
+L 132.342059 316.138337 
+" style="fill: none; stroke: #d62728; stroke-width: 6; stroke-linecap: round"/>
+    </g>
+    <g id="text_18">
+     <!-- $\epsilon_{\mathrm{nuc}} &gt; 10^7\,\mathrm{erg/g/s}$ -->
+     <g transform="translate(138.742059 318.938337) scale(0.08 -0.08)">
+      <defs>
+       <path id="CMMI12-f" d="M 1862 1472 
+C 1958 1472 2067 1472 2067 1574 
+C 2067 1657 2003 1657 1888 1657 
+L 851 1657 
+C 1011 2224 1389 2566 1958 2566 
+L 2144 2566 
+C 2253 2566 2349 2566 2349 2668 
+C 2349 2752 2278 2752 2163 2752 
+L 1946 2752 
+C 1158 2752 294 2136 294 1141 
+C 294 420 774 -64 1408 -64 
+C 1818 -64 2221 193 2221 258 
+C 2221 297 2202 336 2163 336 
+C 2144 336 2131 330 2099 304 
+C 1856 141 1619 64 1427 64 
+C 1088 64 730 291 730 920 
+C 730 1043 742 1212 800 1472 
+L 1862 1472 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMMI12-3e" d="M 4218 1460 
+C 4339 1519 4346 1557 4346 1603 
+C 4346 1641 4333 1687 4218 1738 
+L 755 3347 
+C 672 3385 659 3392 646 3392 
+C 570 3392 525 3327 525 3276 
+C 525 3199 576 3173 659 3134 
+L 3949 1603 
+L 653 65 
+C 525 7 525 -39 525 -77 
+C 525 -128 570 -192 646 -192 
+C 659 -192 666 -186 755 -148 
+L 4218 1460 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMMI12-3d" d="M 2746 4563 
+C 2746 4569 2784 4665 2784 4678 
+C 2784 4755 2720 4800 2669 4800 
+C 2637 4800 2579 4800 2528 4659 
+L 384 -1364 
+C 384 -1370 346 -1466 346 -1479 
+C 346 -1556 410 -1600 461 -1600 
+C 499 -1600 557 -1594 602 -1460 
+L 2746 4563 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMMI12-f" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-6e" transform="translate(39.388958 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-75" transform="translate(73.193846 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-63" transform="translate(108.820454 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMMI12-3e" transform="translate(165.332426 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-31" transform="translate(268.878531 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-30" transform="translate(314.569008 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-37" transform="translate(360.259485 36.153639) scale(0.697382)"/>
+      <use xlink:href="#CMR17-65" transform="translate(409.345205 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-72" transform="translate(449.830865 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-67" transform="translate(485.111633 0) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-3d" transform="translate(532.103276 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-67" transform="translate(580.878195 0) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-3d" transform="translate(627.869838 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-73" transform="translate(676.644757 0) scale(0.996264)"/>
+     </g>
+    </g>
+    <g id="line2d_212">
+     <path d="M 116.342059 328.795858 
+L 124.342059 328.795858 
+L 132.342059 328.795858 
+" style="fill: none; stroke: #ff7f0e; stroke-width: 4.5; stroke-linecap: round"/>
+    </g>
+    <g id="text_19">
+     <!-- $\epsilon_{\mathrm{nuc}} &gt; 10^3\,\mathrm{erg/g/s}$ -->
+     <g transform="translate(138.742059 331.595858) scale(0.08 -0.08)">
+      <use xlink:href="#CMMI12-f" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-6e" transform="translate(39.388958 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-75" transform="translate(73.193846 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-63" transform="translate(108.820454 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMMI12-3e" transform="translate(165.332426 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-31" transform="translate(268.878531 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-30" transform="translate(314.569008 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-33" transform="translate(360.259485 36.153639) scale(0.697382)"/>
+      <use xlink:href="#CMR17-65" transform="translate(409.345205 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-72" transform="translate(449.830865 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-67" transform="translate(485.111633 0) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-3d" transform="translate(532.103276 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-67" transform="translate(580.878195 0) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-3d" transform="translate(627.869838 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-73" transform="translate(676.644757 0) scale(0.996264)"/>
+     </g>
+    </g>
+    <g id="line2d_213">
+     <path d="M 116.342059 340.76597 
+L 124.342059 340.76597 
+L 132.342059 340.76597 
+" style="fill: none; stroke: #daa520; stroke-width: 3; stroke-linecap: round"/>
+    </g>
+    <g id="text_20">
+     <!-- $\epsilon_{\mathrm{nuc}} &gt; 1\,\mathrm{erg/g/s}$ -->
+     <g transform="translate(138.742059 343.56597) scale(0.08 -0.08)">
+      <use xlink:href="#CMMI12-f" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-6e" transform="translate(39.388958 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-75" transform="translate(73.193846 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-63" transform="translate(108.820454 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMMI12-3e" transform="translate(165.332426 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-31" transform="translate(268.878531 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(331.173413 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-72" transform="translate(371.659074 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-67" transform="translate(406.939842 0) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-3d" transform="translate(453.931485 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-67" transform="translate(502.706404 0) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-3d" transform="translate(549.698047 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-73" transform="translate(598.472966 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+  </g>
+  <g id="axes_3">
+   <g id="patch_12">
+    <path d="M 264.641395 130.998498 
+L 387.616602 130.998498 
+L 387.616602 20.118498 
+L 264.641395 20.118498 
+z
+" style="fill: #ffffff"/>
+   </g>
+   <g id="matplotlib.axis_5">
+    <g id="xtick_20">
+     <g id="line2d_214">
+      <g>
+       <use xlink:href="#ma8d582654b" x="302.289689" y="130.998498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_215">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="302.289689" y="20.118498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_21">
+     <g id="line2d_216">
+      <g>
+       <use xlink:href="#ma8d582654b" x="341.994634" y="130.998498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_217">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="341.994634" y="20.118498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_22">
+     <g id="line2d_218">
+      <g>
+       <use xlink:href="#ma8d582654b" x="381.69958" y="130.998498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_219">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="381.69958" y="20.118498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_23">
+     <g id="line2d_220">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="270.525732" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_221">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="270.525732" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_24">
+     <g id="line2d_222">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="278.466721" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_223">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="278.466721" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_25">
+     <g id="line2d_224">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="286.40771" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_225">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="286.40771" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_26">
+     <g id="line2d_226">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="294.348699" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_227">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="294.348699" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_27">
+     <g id="line2d_228">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="310.230678" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_229">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="310.230678" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_28">
+     <g id="line2d_230">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="318.171667" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_231">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="318.171667" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_29">
+     <g id="line2d_232">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="326.112656" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_233">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="326.112656" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_30">
+     <g id="line2d_234">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="334.053645" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_235">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="334.053645" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_31">
+     <g id="line2d_236">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="349.935623" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_237">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="349.935623" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_32">
+     <g id="line2d_238">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="357.876612" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_239">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="357.876612" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_33">
+     <g id="line2d_240">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="365.817601" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_241">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="365.817601" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_34">
+     <g id="line2d_242">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="373.75859" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_243">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="373.75859" y="20.118498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+   </g>
+   <g id="matplotlib.axis_6">
+    <g id="ytick_81">
+     <g id="line2d_244">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="264.641395" y="105.797102" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_245">
+      <g>
+       <use xlink:href="#m5c5963373f" x="387.616602" y="105.797102" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_21">
+      <!-- $\mathdefault{10^{1}}$ -->
+      <g transform="translate(247.207487 109.256351) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-31" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_82">
+     <g id="line2d_246">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="264.641395" y="74.978591" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_247">
+      <g>
+       <use xlink:href="#m5c5963373f" x="387.616602" y="74.978591" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_22">
+      <!-- $\mathdefault{10^{4}}$ -->
+      <g transform="translate(247.207487 78.43784) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-34" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_83">
+     <g id="line2d_248">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="264.641395" y="44.16008" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_249">
+      <g>
+       <use xlink:href="#m5c5963373f" x="387.616602" y="44.16008" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_23">
+      <!-- $\mathdefault{10^{7}}$ -->
+      <g transform="translate(247.207487 47.619329) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-37" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="text_24">
+     <!-- Luminosity [$L_{\odot}$] -->
+     <g transform="translate(240.716827 111.188862) rotate(-90) scale(0.1 -0.1)">
+      <use xlink:href="#CMR17-4c" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-75" transform="translate(57.381408 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6d" transform="translate(108.276778 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-69" transform="translate(185.196368 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6e" transform="translate(210.067426 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6f" transform="translate(260.962796 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-73" transform="translate(306.653273 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-69" transform="translate(342.454611 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-74" transform="translate(367.325669 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-79" transform="translate(400.003983 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5b" transform="translate(478.372865 0) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-4c" transform="translate(503.243924 0) scale(0.996264)"/>
+      <use xlink:href="#CMSY10-c" transform="translate(569.614799 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-5d" transform="translate(624.353924 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+   <g id="line2d_250">
+    <path d="M 270.231177 118.040021 
+L 297.323021 118.060694 
+L 311.79424 118.098224 
+L 319.663984 118.163729 
+L 322.988138 118.28206 
+L 323.86825 118.441446 
+L 324.110397 118.628856 
+L 324.188842 118.899774 
+L 324.207316 119.13016 
+L 324.215728 119.449666 
+L 324.219332 119.885283 
+L 324.220909 120.512608 
+L 324.22159 121.252416 
+L 324.221847 121.754311 
+L 324.222067 122.346915 
+L 324.222367 123.429347 
+L 324.222914 125.958498 
+L 324.223087 101.947133 
+L 324.223143 97.458171 
+L 324.223185 94.594652 
+L 324.223232 91.849631 
+L 324.223301 89.314646 
+L 324.223452 86.997609 
+L 324.223699 83.672308 
+L 324.223896 80.924683 
+L 324.224184 78.269665 
+L 324.224687 75.749611 
+L 324.225666 73.496951 
+L 324.227745 71.931565 
+L 324.231076 71.256281 
+L 324.237082 70.906486 
+L 324.249416 70.692238 
+L 324.276915 70.515389 
+L 324.33156 70.400982 
+L 324.429584 70.353148 
+L 324.576173 70.373343 
+L 324.756813 70.407702 
+L 324.931226 70.338726 
+L 325.088207 70.354479 
+L 325.418119 70.01539 
+L 325.805421 70.070683 
+L 326.208577 69.844533 
+L 326.694206 69.723883 
+L 327.402203 69.624392 
+L 328.446261 69.504347 
+L 330.324578 69.343597 
+L 333.259608 69.166726 
+L 337.553314 68.951087 
+L 342.364712 69.5614 
+L 353.163518 70.859474 
+L 371.917194 80.187682 
+L 379.704664 84.715059 
+L 382.02682 85.618286 
+" clip-path="url(#p52a4ed9b48)" style="fill: none; stroke: #1f77b4; stroke-width: 1.5; stroke-linecap: square"/>
+   </g>
+   <g id="line2d_251">
+    <path d="M 270.231177 93.186338 
+L 297.323021 88.771506 
+L 311.79424 85.017009 
+L 319.663984 80.222764 
+L 322.988138 73.657081 
+L 323.86825 67.039415 
+L 324.110397 60.98056 
+L 324.188842 54.03491 
+L 324.207316 49.324928 
+L 324.215728 44.18058 
+L 324.219332 39.055635 
+L 324.220909 34.194658 
+L 324.22159 30.332482 
+L 324.221847 28.639305 
+L 324.222067 27.404406 
+L 324.222367 26.282557 
+L 324.222914 25.329105 
+L 324.223087 25.241473 
+L 324.223143 25.218102 
+L 324.223185 25.20016 
+L 324.223232 25.185291 
+L 324.223301 25.169953 
+L 324.223452 25.158498 
+L 324.223699 25.210494 
+L 324.223896 25.284 
+L 324.224184 25.444243 
+L 324.224687 25.835195 
+L 324.225666 26.968405 
+L 324.227745 30.112941 
+L 324.231076 34.35356 
+L 324.237082 39.102966 
+L 324.249416 43.973423 
+L 324.276915 48.692347 
+L 324.33156 52.815513 
+L 324.429584 56.34767 
+L 324.576173 59.179172 
+L 324.756813 61.305307 
+L 324.931226 62.729207 
+L 325.088207 63.718043 
+L 325.418119 65.211311 
+L 325.805421 66.424937 
+L 326.208577 67.304025 
+L 326.694206 68.044893 
+L 327.402203 68.712563 
+L 328.446261 69.232191 
+L 330.324578 69.529035 
+L 333.259608 69.584942 
+L 337.553314 69.594318 
+L 342.364712 70.283756 
+L 353.163518 71.102163 
+L 371.917194 88.759147 
+L 379.704664 98.895172 
+L 382.02682 100.480722 
+" clip-path="url(#p52a4ed9b48)" style="fill: none; stroke-dasharray: 5.55,2.4; stroke-dashoffset: 0; stroke: #ff7f0e; stroke-width: 1.5"/>
+   </g>
+   <g id="patch_13">
+    <path d="M 264.641395 130.998498 
+L 264.641395 20.118498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_14">
+    <path d="M 387.616602 130.998498 
+L 387.616602 20.118498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_15">
+    <path d="M 264.641395 130.998498 
+L 387.616602 130.998498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_16">
+    <path d="M 264.641395 20.118498 
+L 387.616602 20.118498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="text_25">
+    <!-- Last 5 Years -->
+    <g transform="translate(298.870075 14.118498) scale(0.1 -0.1)">
+     <defs>
+      <path id="CMR17-59" d="M 3706 3784 
+C 3955 4178 4301 4185 4416 4185 
+L 4416 4352 
+C 4269 4339 4102 4339 3942 4339 
+C 3782 4339 3526 4339 3373 4352 
+L 3373 4185 
+C 3533 4178 3616 4096 3616 3975 
+C 3616 3898 3584 3847 3533 3764 
+L 2381 1924 
+L 1120 3930 
+C 1075 4007 1069 4013 1069 4057 
+C 1069 4185 1293 4185 1382 4185 
+L 1382 4352 
+C 1178 4339 864 4339 653 4339 
+C 486 4339 166 4339 13 4352 
+L 13 4185 
+C 378 4185 480 4166 595 3981 
+L 2010 1739 
+L 2010 453 
+C 2010 166 1939 166 1498 166 
+L 1498 0 
+C 1683 12 2016 12 2214 12 
+C 2413 12 2752 12 2938 0 
+L 2938 166 
+C 2477 166 2419 166 2419 478 
+L 2419 1739 
+L 3706 3784 
+z
+" transform="scale(0.015625)"/>
+     </defs>
+     <use xlink:href="#CMR17-4c" transform="scale(0.996264)"/>
+     <use xlink:href="#CMR17-61" transform="translate(57.381408 0) scale(0.996264)"/>
+     <use xlink:href="#CMR17-73" transform="translate(103.071885 0) scale(0.996264)"/>
+     <use xlink:href="#CMR17-74" transform="translate(138.873223 0) scale(0.996264)"/>
+     <use xlink:href="#CMR17-35" transform="translate(204.229957 0) scale(0.996264)"/>
+     <use xlink:href="#CMR17-59" transform="translate(279.9964 0) scale(0.996264)"/>
+     <use xlink:href="#CMR17-65" transform="translate(341.261575 0) scale(0.996264)"/>
+     <use xlink:href="#CMR17-61" transform="translate(381.747235 0) scale(0.996264)"/>
+     <use xlink:href="#CMR17-72" transform="translate(427.437712 0) scale(0.996264)"/>
+     <use xlink:href="#CMR17-73" transform="translate(462.71848 0) scale(0.996264)"/>
+    </g>
+   </g>
+   <g id="legend_2">
+    <g id="line2d_252">
+     <path d="M 271.841395 30.118498 
+L 279.841395 30.118498 
+L 287.841395 30.118498 
+" style="fill: none; stroke: #1f77b4; stroke-width: 1.5; stroke-linecap: square"/>
+    </g>
+    <g id="text_26">
+     <!-- $L$ -->
+     <g transform="translate(294.241395 32.918498) scale(0.08 -0.08)">
+      <use xlink:href="#CMMI12-4c" transform="scale(0.996264)"/>
+     </g>
+    </g>
+    <g id="line2d_253">
+     <path d="M 271.841395 41.268244 
+L 279.841395 41.268244 
+L 287.841395 41.268244 
+" style="fill: none; stroke-dasharray: 5.55,2.4; stroke-dashoffset: 0; stroke: #ff7f0e; stroke-width: 1.5"/>
+    </g>
+    <g id="text_27">
+     <!-- $L_{\mathrm{H}}$ -->
+     <g transform="translate(294.241395 44.068244) scale(0.08 -0.08)">
+      <defs>
+       <path id="CMR17-48" d="M 3590 3898 
+C 3590 4185 3661 4185 4102 4185 
+L 4102 4352 
+C 3917 4339 3578 4339 3379 4339 
+C 3181 4339 2842 4339 2656 4352 
+L 2656 4185 
+C 3098 4185 3168 4185 3168 3898 
+L 3168 2342 
+L 1261 2342 
+L 1261 3898 
+C 1261 4185 1331 4185 1773 4185 
+L 1773 4352 
+C 1587 4339 1248 4339 1050 4339 
+C 851 4339 512 4339 326 4352 
+L 326 4185 
+C 768 4185 838 4185 838 3898 
+L 838 452 
+C 838 166 768 166 326 166 
+L 326 0 
+C 512 12 851 12 1050 12 
+C 1248 12 1587 12 1773 0 
+L 1773 166 
+C 1331 166 1261 166 1261 452 
+L 1261 2176 
+L 3168 2176 
+L 3168 452 
+C 3168 166 3098 166 2656 166 
+L 2656 0 
+C 2842 12 3181 12 3379 12 
+C 3578 12 3917 12 4102 0 
+L 4102 166 
+C 3661 166 3590 166 3590 452 
+L 3590 3898 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMMI12-4c" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-48" transform="translate(66.370875 -14.943915) scale(0.697382)"/>
+     </g>
+    </g>
+   </g>
+  </g>
+  <g id="axes_4">
+   <g id="patch_17">
+    <path d="M 264.641395 241.878498 
+L 387.616602 241.878498 
+L 387.616602 130.998498 
+L 264.641395 130.998498 
+z
+" style="fill: #ffffff"/>
+   </g>
+   <g id="matplotlib.axis_7">
+    <g id="xtick_35">
+     <g id="line2d_254">
+      <g>
+       <use xlink:href="#ma8d582654b" x="302.289689" y="241.878498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_255">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="302.289689" y="130.998498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_36">
+     <g id="line2d_256">
+      <g>
+       <use xlink:href="#ma8d582654b" x="341.994634" y="241.878498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_257">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="341.994634" y="130.998498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_37">
+     <g id="line2d_258">
+      <g>
+       <use xlink:href="#ma8d582654b" x="381.69958" y="241.878498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_259">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="381.69958" y="130.998498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_38">
+     <g id="line2d_260">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="270.525732" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_261">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="270.525732" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_39">
+     <g id="line2d_262">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="278.466721" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_263">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="278.466721" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_40">
+     <g id="line2d_264">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="286.40771" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_265">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="286.40771" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_41">
+     <g id="line2d_266">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="294.348699" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_267">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="294.348699" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_42">
+     <g id="line2d_268">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="310.230678" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_269">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="310.230678" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_43">
+     <g id="line2d_270">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="318.171667" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_271">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="318.171667" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_44">
+     <g id="line2d_272">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="326.112656" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_273">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="326.112656" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_45">
+     <g id="line2d_274">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="334.053645" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_275">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="334.053645" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_46">
+     <g id="line2d_276">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="349.935623" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_277">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="349.935623" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_47">
+     <g id="line2d_278">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="357.876612" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_279">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="357.876612" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_48">
+     <g id="line2d_280">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="365.817601" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_281">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="365.817601" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_49">
+     <g id="line2d_282">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="373.75859" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_283">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="373.75859" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+   </g>
+   <g id="matplotlib.axis_8">
+    <g id="ytick_84">
+     <g id="line2d_284">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="264.641395" y="201.652071" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_28">
+      <!-- $\mathdefault{10^{5}}$ -->
+      <g transform="translate(247.207487 205.11132) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-35" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_85">
+     <g id="line2d_285">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="241.362031" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_86">
+     <g id="line2d_286">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="231.873574" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_87">
+     <g id="line2d_287">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="224.513756" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_88">
+     <g id="line2d_288">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="218.500346" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_89">
+     <g id="line2d_289">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="213.416081" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_90">
+     <g id="line2d_290">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="209.01189" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_91">
+     <g id="line2d_291">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="205.127118" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_92">
+     <g id="line2d_292">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="178.790386" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_93">
+     <g id="line2d_293">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="165.417158" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_94">
+     <g id="line2d_294">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="155.928702" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_95">
+     <g id="line2d_295">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="148.568883" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_96">
+     <g id="line2d_296">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="142.555473" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_97">
+     <g id="line2d_297">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="137.471208" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_98">
+     <g id="line2d_298">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="133.067017" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="text_29">
+     <!-- Eff. Temp. [K] -->
+     <g style="fill: #1f77b4" transform="translate(240.716827 218.88633) rotate(-90) scale(0.1 -0.1)">
+      <defs>
+       <path id="CMR17-2e" d="M 1062 262 
+C 1062 422 934 524 800 524 
+C 672 524 538 422 538 262 
+C 538 102 666 0 800 0 
+C 928 0 1062 102 1062 262 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMR17-45" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-b" transform="translate(62.586301 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-2e" transform="translate(114.930978 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-54" transform="translate(180.287697 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(238.990322 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6d" transform="translate(279.475982 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-70" transform="translate(356.395572 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-2e" transform="translate(407.290942 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5b" transform="translate(472.647661 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-4b" transform="translate(497.518719 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5d" transform="translate(569.193497 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+   <g id="line2d_299">
+    <path d="M 270.231177 216.815493 
+L 297.323021 216.873111 
+L 311.79424 216.970005 
+L 319.663984 217.134112 
+L 322.988138 217.425568 
+L 323.86825 217.815546 
+L 324.110397 218.275197 
+L 324.188842 218.946328 
+L 324.207316 219.523531 
+L 324.215728 220.330509 
+L 324.219332 221.43898 
+L 324.220909 223.01383 
+L 324.22159 224.870079 
+L 324.221847 226.131253 
+L 324.222067 227.626114 
+L 324.222367 230.354564 
+L 324.222914 236.838498 
+L 324.223087 193.157192 
+L 324.223143 185.085967 
+L 324.223185 179.962294 
+L 324.223232 175.081442 
+L 324.223301 170.681033 
+L 324.223452 167.021694 
+L 324.223699 161.941862 
+L 324.223896 157.752452 
+L 324.224184 154.178568 
+L 324.224687 151.892944 
+L 324.225666 152.30834 
+L 324.227745 157.40296 
+L 324.231076 164.073338 
+L 324.237082 170.69017 
+L 324.249416 177.079688 
+L 324.276915 183.44701 
+L 324.33156 189.399787 
+L 324.429584 195.059038 
+L 324.576173 199.439495 
+L 324.756813 201.782719 
+L 324.931226 202.415363 
+L 325.088207 201.43217 
+L 325.418119 201.175763 
+L 325.805421 196.336053 
+L 326.208577 194.297173 
+L 326.694206 191.34837 
+L 327.402203 188.552925 
+L 328.446261 184.723059 
+L 330.324578 180.305744 
+L 333.259608 172.771457 
+L 337.553314 155.506419 
+L 342.364712 139.638896 
+L 353.163518 136.038498 
+L 371.917194 148.383425 
+L 379.704664 156.246134 
+L 382.02682 157.840224 
+" clip-path="url(#p29f8b43f1d)" style="fill: none; stroke: #1f77b4; stroke-width: 1.5; stroke-linecap: square"/>
+   </g>
+   <g id="line2d_300"/>
+   <g id="patch_18">
+    <path d="M 264.641395 241.878498 
+L 264.641395 130.998498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_19">
+    <path d="M 387.616602 241.878498 
+L 387.616602 130.998498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_20">
+    <path d="M 264.641395 241.878498 
+L 387.616602 241.878498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_21">
+    <path d="M 264.641395 130.998498 
+L 387.616602 130.998498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="legend_3">
+    <g id="line2d_301">
+     <path d="M 271.841395 140.998498 
+L 279.841395 140.998498 
+L 287.841395 140.998498 
+" style="fill: none; stroke: #1f77b4; stroke-width: 1.5; stroke-linecap: square"/>
+    </g>
+    <g id="text_30">
+     <!-- $T_{\mathrm{eff}}$ -->
+     <g transform="translate(294.241395 143.798498) scale(0.08 -0.08)">
+      <defs>
+       <path id="CMMI12-54" d="M 2669 3886 
+C 2707 4038 2720 4096 2816 4121 
+C 2867 4134 3078 4134 3213 4134 
+C 3853 4134 4154 4109 4154 3612 
+C 4154 3516 4128 3274 4090 3038 
+L 4083 2962 
+C 4083 2937 4109 2898 4147 2898 
+C 4211 2898 4211 2930 4230 3032 
+L 4416 4159 
+C 4429 4217 4429 4230 4429 4249 
+C 4429 4319 4390 4319 4262 4319 
+L 762 4319 
+C 614 4319 608 4313 570 4198 
+L 179 3051 
+C 173 3038 154 2968 154 2962 
+C 154 2930 179 2898 218 2898 
+C 269 2898 282 2924 307 3007 
+C 576 3777 710 4134 1562 4134 
+L 1990 4134 
+C 2144 4134 2208 4134 2208 4064 
+C 2208 4045 2208 4032 2176 3917 
+L 1318 497 
+C 1254 249 1242 185 563 185 
+C 403 185 358 185 358 64 
+C 358 0 429 0 461 0 
+C 621 0 787 12 947 12 
+L 1946 12 
+C 2106 12 2278 0 2438 0 
+C 2509 0 2573 0 2573 121 
+C 2573 185 2528 185 2362 185 
+C 1786 185 1786 242 1786 338 
+C 1786 344 1786 389 1811 491 
+L 2669 3886 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMMI12-54" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(57.175044 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-b" transform="translate(85.514875 -14.943915) scale(0.697382)"/>
+     </g>
+    </g>
+    <g id="line2d_302">
+     <path d="M 271.841395 152.148244 
+L 279.841395 152.148244 
+L 287.841395 152.148244 
+" style="fill: none; stroke-dasharray: 5.55,2.4; stroke-dashoffset: 0; stroke: #ff7f0e; stroke-width: 1.5"/>
+    </g>
+    <g id="text_31">
+     <!-- $R$ -->
+     <g transform="translate(294.241395 154.948244) scale(0.08 -0.08)">
+      <defs>
+       <path id="CMMI12-52" d="M 2355 3917 
+C 2413 4153 2438 4166 2688 4166 
+L 3149 4166 
+C 3699 4166 4109 4000 4109 3503 
+C 4109 3177 3942 2240 2656 2240 
+L 1933 2240 
+L 2355 3917 
+z
+M 3245 2163 
+C 4038 2335 4659 2846 4659 3394 
+C 4659 3892 4154 4352 3264 4352 
+L 1530 4352 
+C 1402 4352 1344 4352 1344 4230 
+C 1344 4166 1389 4166 1510 4166 
+C 1894 4166 1894 4115 1894 4045 
+C 1894 4032 1894 3994 1869 3898 
+L 1005 475 
+C 947 253 934 190 493 190 
+C 346 190 301 190 301 69 
+C 301 6 371 6 390 6 
+C 506 6 640 19 762 19 
+L 1517 19 
+C 1632 19 1766 6 1882 6 
+C 1933 6 2003 6 2003 126 
+C 2003 190 1946 190 1850 190 
+C 1459 190 1459 241 1459 304 
+C 1459 310 1459 355 1472 405 
+L 1901 2112 
+L 2669 2112 
+C 3277 2112 3392 1731 3392 1522 
+C 3392 1426 3328 1179 3283 1014 
+C 3213 723 3194 653 3194 532 
+C 3194 82 3565 -128 3994 -128 
+C 4512 -128 4736 501 4736 589 
+C 4736 634 4704 653 4666 653 
+C 4614 653 4602 615 4589 564 
+C 4435 114 4173 0 4013 0 
+C 3853 0 3750 69 3750 355 
+C 3750 507 3827 1084 3834 1116 
+C 3866 1350 3866 1376 3866 1426 
+C 3866 1889 3488 2086 3245 2163 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMMI12-52" transform="scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+  </g>
+  <g id="axes_5">
+   <g id="patch_22">
+    <path d="M 264.641395 352.758498 
+L 387.616602 352.758498 
+L 387.616602 241.878498 
+L 264.641395 241.878498 
+z
+" style="fill: #ffffff"/>
+   </g>
+   <g id="matplotlib.axis_9">
+    <g id="xtick_50">
+     <g id="line2d_303">
+      <g>
+       <use xlink:href="#ma8d582654b" x="302.289689" y="352.758498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_304">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="302.289689" y="241.878498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_32">
+      <!-- $\mathdefault{24719}$ -->
+      <g transform="translate(289.83635 363.176997) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-39" d="M 2253 1871 
+C 2253 448 1670 25 1190 25 
+C 1043 25 685 43 538 281 
+C 704 256 826 345 826 505 
+C 826 678 685 736 595 736 
+C 538 736 365 710 365 492 
+C 365 68 742 -128 1203 -128 
+C 1939 -128 2688 665 2688 2090 
+C 2688 3857 1971 4224 1485 4224 
+C 851 4224 243 3664 243 2800 
+C 243 2000 762 1408 1414 1408 
+C 1952 1408 2189 1910 2253 2122 
+L 2253 1871 
+z
+M 1427 1510 
+C 1254 1510 1011 1542 813 1929 
+C 678 2181 678 2477 678 2793 
+C 678 3174 678 3438 858 3722 
+C 947 3857 1114 4076 1485 4076 
+C 2240 4076 2240 2909 2240 2651 
+C 2240 2193 2035 1510 1427 1510 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-32" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-34" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-37" transform="translate(91.380954 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-31" transform="translate(137.071431 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-39" transform="translate(182.761908 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_51">
+     <g id="line2d_305">
+      <g>
+       <use xlink:href="#ma8d582654b" x="341.994634" y="352.758498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_306">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="341.994634" y="241.878498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_33">
+      <!-- $\mathdefault{24720}$ -->
+      <g transform="translate(329.541296 363.176997) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-32" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-34" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-37" transform="translate(91.380954 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-32" transform="translate(137.071431 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(182.761908 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_52">
+     <g id="line2d_307">
+      <g>
+       <use xlink:href="#ma8d582654b" x="381.69958" y="352.758498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_308">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="381.69958" y="241.878498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_34">
+      <!-- $\mathdefault{24721}$ -->
+      <g transform="translate(369.246241 363.176997) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-32" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-34" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-37" transform="translate(91.380954 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-32" transform="translate(137.071431 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-31" transform="translate(182.761908 0) scale(0.996264)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_53">
+     <g id="line2d_309">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="270.525732" y="352.758498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_310">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="270.525732" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_54">
+     <g id="line2d_311">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="278.466721" y="352.758498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_312">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="278.466721" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_55">
+     <g id="line2d_313">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="286.40771" y="352.758498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_314">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="286.40771" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_56">
+     <g id="line2d_315">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="294.348699" y="352.758498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_316">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="294.348699" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_57">
+     <g id="line2d_317">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="310.230678" y="352.758498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_318">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="310.230678" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_58">
+     <g id="line2d_319">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="318.171667" y="352.758498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_320">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="318.171667" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_59">
+     <g id="line2d_321">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="326.112656" y="352.758498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_322">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="326.112656" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_60">
+     <g id="line2d_323">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="334.053645" y="352.758498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_324">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="334.053645" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_61">
+     <g id="line2d_325">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="349.935623" y="352.758498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_326">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="349.935623" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_62">
+     <g id="line2d_327">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="357.876612" y="352.758498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_328">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="357.876612" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_63">
+     <g id="line2d_329">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="365.817601" y="352.758498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_330">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="365.817601" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_64">
+     <g id="line2d_331">
+      <g>
+       <use xlink:href="#m3ac45b5380" x="373.75859" y="352.758498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_332">
+      <g>
+       <use xlink:href="#m8ae8ead02c" x="373.75859" y="241.878498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="text_35">
+     <!-- Star Age [yr] -->
+     <g transform="translate(297.873788 376.586155) scale(0.1 -0.1)">
+      <defs>
+       <path id="CMR17-53" d="M 2803 4351 
+C 2803 4467 2797 4473 2758 4473 
+C 2720 4473 2707 4447 2682 4390 
+L 2490 3965 
+C 2246 4320 1875 4480 1472 4480 
+C 819 4480 294 3958 294 3301 
+C 294 3101 339 2817 557 2546 
+C 794 2250 1018 2198 1530 2063 
+C 1722 2011 2042 1927 2106 1901 
+C 2470 1747 2662 1360 2662 999 
+C 2662 534 2336 38 1779 38 
+C 1094 38 454 425 410 1328 
+C 403 1431 397 1437 352 1437 
+C 301 1437 294 1431 294 1302 
+L 294 0 
+C 294 -116 301 -122 339 -122 
+C 384 -122 397 -90 486 109 
+C 493 128 493 141 614 386 
+C 934 -39 1472 -128 1779 -128 
+C 2477 -128 2970 457 2970 1141 
+C 2970 1476 2848 1734 2778 1850 
+C 2509 2263 2221 2340 1914 2417 
+C 1869 2437 1856 2437 1498 2527 
+C 1152 2617 1005 2662 845 2836 
+C 666 3036 602 3243 602 3449 
+C 602 3868 934 4326 1478 4326 
+C 2157 4326 2579 3842 2675 3036 
+C 2694 2920 2701 2914 2746 2914 
+C 2803 2914 2803 2933 2803 3043 
+L 2803 4351 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-41" d="M 2323 4441 
+C 2291 4524 2278 4544 2214 4544 
+C 2150 4544 2138 4524 2106 4441 
+L 749 580 
+C 627 236 371 166 147 166 
+L 147 0 
+C 262 12 518 12 640 12 
+C 800 12 1056 12 1210 0 
+L 1210 166 
+C 909 179 864 382 864 459 
+C 864 516 877 548 890 586 
+L 1229 1536 
+L 2906 1536 
+L 3290 453 
+C 3322 376 3322 363 3322 338 
+C 3322 166 3046 166 2925 166 
+L 2925 0 
+C 3110 12 3443 12 3642 12 
+C 3808 12 4128 12 4282 0 
+L 4282 166 
+C 3942 166 3827 166 3744 402 
+L 2323 4441 
+z
+M 2067 3924 
+L 2848 1702 
+L 1286 1702 
+L 2067 3924 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMR17-53" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-74" transform="translate(50.89537 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-61" transform="translate(86.176138 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-72" transform="translate(131.866615 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-41" transform="translate(197.223349 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-67" transform="translate(266.295779 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(311.986256 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5b" transform="translate(382.547883 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-79" transform="translate(407.418941 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-72" transform="translate(455.711857 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5d" transform="translate(490.992625 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+   <g id="matplotlib.axis_10">
+    <g id="ytick_99">
+     <g id="line2d_333">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="264.641395" y="277.993393" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_36">
+      <!-- $\mathdefault{10^{-5}}$ -->
+      <g transform="translate(240.980822 281.452643) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMSY10-0" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-35" transform="translate(145.621947 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_100">
+     <g id="line2d_334">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="333.255925" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_101">
+     <g id="line2d_335">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="319.333656" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_102">
+     <g id="line2d_336">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="309.455648" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_103">
+     <g id="line2d_337">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="301.793671" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_104">
+     <g id="line2d_338">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="295.533379" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_105">
+     <g id="line2d_339">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="290.240378" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_106">
+     <g id="line2d_340">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="285.655371" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_107">
+     <g id="line2d_341">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="281.611109" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_108">
+     <g id="line2d_342">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="264.641395" y="254.193116" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="text_37">
+     <!-- Envelope Mass [$M_{\odot}$] -->
+     <g style="fill: #1f77b4" transform="translate(234.490162 342.306121) rotate(-90) scale(0.1 -0.1)">
+      <defs>
+       <path id="CMR17-6c" d="M 979 4416 
+L 218 4345 
+L 218 4179 
+C 595 4179 653 4141 653 3835 
+L 653 439 
+C 653 198 627 166 218 166 
+L 218 0 
+C 371 12 653 12 813 12 
+C 979 12 1261 12 1414 0 
+L 1414 166 
+C 1005 166 979 191 979 439 
+L 979 4416 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-4d" d="M 1338 4249 
+C 1299 4345 1293 4352 1158 4352 
+L 339 4352 
+L 339 4185 
+C 781 4185 851 4185 851 3898 
+L 851 624 
+C 851 465 851 166 339 166 
+L 339 0 
+C 486 12 755 12 915 12 
+C 1075 12 1344 12 1491 0 
+L 1491 166 
+C 979 166 979 465 979 624 
+L 979 4159 
+L 986 4159 
+L 2490 102 
+C 2515 38 2528 0 2579 0 
+C 2630 0 2643 38 2669 102 
+L 4186 4191 
+L 4192 4191 
+L 4192 453 
+C 4192 166 4122 166 3680 166 
+L 3680 0 
+C 3853 12 4198 12 4384 12 
+C 4570 12 4922 12 5094 0 
+L 5094 166 
+C 4653 166 4582 166 4582 453 
+L 4582 3898 
+C 4582 4185 4653 4185 5094 4185 
+L 5094 4352 
+L 4282 4352 
+C 4147 4352 4141 4345 4102 4249 
+L 2720 516 
+L 1338 4249 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMMI12-4d" d="M 5811 3886 
+C 5869 4102 5882 4166 6336 4166 
+C 6458 4166 6515 4166 6515 4287 
+C 6515 4352 6470 4352 6349 4352 
+L 5581 4352 
+C 5421 4352 5414 4345 5344 4243 
+L 3008 567 
+L 2528 4211 
+C 2509 4352 2502 4352 2336 4352 
+L 1542 4352 
+C 1421 4352 1363 4352 1363 4230 
+C 1363 4166 1421 4166 1517 4166 
+C 1907 4166 1907 4115 1907 4045 
+C 1907 4032 1907 3994 1882 3898 
+L 1062 650 
+C 986 344 838 204 410 185 
+C 390 185 314 179 314 70 
+C 314 0 371 0 397 0 
+C 525 0 851 12 979 12 
+L 1286 12 
+C 1376 12 1485 0 1574 0 
+C 1619 0 1690 0 1690 121 
+C 1690 179 1626 185 1600 185 
+C 1389 191 1184 230 1184 459 
+C 1184 523 1184 529 1210 618 
+L 2093 4128 
+L 2099 4128 
+L 2630 172 
+C 2650 19 2656 0 2714 0 
+C 2784 0 2816 51 2848 108 
+L 5421 4159 
+L 5427 4159 
+L 4499 472 
+C 4442 249 4429 185 3981 185 
+C 3859 185 3795 185 3795 70 
+C 3795 0 3853 0 3891 0 
+C 4000 0 4128 12 4237 12 
+L 4992 12 
+C 5101 12 5235 0 5344 0 
+C 5395 0 5466 0 5466 121 
+C 5466 185 5408 185 5312 185 
+C 4922 185 4922 236 4922 300 
+C 4922 306 4922 351 4934 402 
+L 5811 3886 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMR17-45" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-6e" transform="translate(62.586301 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-76" transform="translate(110.879216 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(156.569678 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6c" transform="translate(197.055339 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6f" transform="translate(221.926397 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-70" transform="translate(267.616874 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(321.114683 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-4d" transform="translate(391.67631 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-61" transform="translate(476.36325 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-73" transform="translate(522.053727 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-73" transform="translate(557.855065 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5b" transform="translate(623.732369 0) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-4d" transform="translate(648.603427 0) scale(0.996264)"/>
+      <use xlink:href="#CMSY10-c" transform="translate(742.976853 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-5d" transform="translate(797.715978 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+   <g id="line2d_343">
+    <path d="M 270.231177 246.920388 
+L 297.323021 246.91944 
+L 311.79424 246.918934 
+L 319.663984 246.918659 
+L 322.988138 246.918542 
+L 323.86825 246.918512 
+L 324.110397 246.918503 
+L 324.188842 246.9185 
+L 324.207316 246.9185 
+L 324.215728 246.9185 
+L 324.219332 246.918499 
+L 324.220909 246.918499 
+L 324.22159 246.918499 
+L 324.221847 246.918499 
+L 324.222067 246.918499 
+L 324.222367 246.918499 
+L 324.222914 246.918499 
+L 324.223087 246.918499 
+L 324.223143 246.918499 
+L 324.223185 246.918499 
+L 324.223232 246.918499 
+L 324.223301 246.918499 
+L 324.223452 246.918499 
+L 324.223699 246.918499 
+L 324.223896 246.918499 
+L 324.224184 246.918499 
+L 324.224687 246.918499 
+L 324.225666 246.918499 
+L 324.227745 246.918499 
+L 324.231076 246.918499 
+L 324.237082 246.918499 
+L 324.249416 246.918498 
+L 324.276915 246.920146 
+L 324.33156 246.968081 
+L 324.429584 247.239356 
+L 324.576173 248.119617 
+L 324.756813 249.86423 
+L 324.931226 252.000287 
+L 325.088207 254.187289 
+L 325.418119 258.720825 
+L 325.805421 264.084908 
+L 326.208577 268.807141 
+L 326.694206 273.91167 
+L 327.402203 279.878483 
+L 328.446261 287.380466 
+L 330.324578 298.000519 
+L 333.259608 312.455859 
+L 337.553314 331.696537 
+L 342.364712 342.394385 
+L 353.163518 345.890007 
+L 371.917194 347.718498 
+L 379.704664 347.713368 
+L 382.02682 347.711838 
+" clip-path="url(#pff3bfe5d17)" style="fill: none; stroke: #1f77b4; stroke-width: 1.5; stroke-linecap: square"/>
+   </g>
+   <g id="line2d_344"/>
+   <g id="patch_23">
+    <path d="M 264.641395 352.758498 
+L 264.641395 241.878498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_24">
+    <path d="M 387.616602 352.758498 
+L 387.616602 241.878498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_25">
+    <path d="M 264.641395 352.758498 
+L 387.616602 352.758498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_26">
+    <path d="M 264.641395 241.878498 
+L 387.616602 241.878498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="legend_4">
+    <g id="line2d_345">
+     <path d="M 271.841395 289.867512 
+L 279.841395 289.867512 
+L 287.841395 289.867512 
+" style="fill: none; stroke: #1f77b4; stroke-width: 1.5; stroke-linecap: square"/>
+    </g>
+    <g id="text_38">
+     <!-- $\Delta M_{\mathrm{H}}$ -->
+     <g transform="translate(294.241395 292.667512) scale(0.08 -0.08)">
+      <defs>
+       <path id="CMR17-1" d="M 2598 4435 
+C 2547 4544 2522 4544 2470 4544 
+C 2394 4544 2387 4531 2342 4441 
+L 269 108 
+C 262 96 237 38 237 32 
+C 237 6 243 0 358 0 
+L 4576 0 
+C 4691 0 4698 6 4698 32 
+C 4698 38 4672 96 4666 108 
+L 2598 4435 
+z
+M 2310 4056 
+L 4083 358 
+L 531 358 
+L 2310 4056 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMR17-1" transform="scale(0.996264)"/>
+      <use xlink:href="#CMMI12-4d" transform="translate(76.91959 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-48" transform="translate(171.293015 -14.943915) scale(0.697382)"/>
+     </g>
+    </g>
+    <g id="line2d_346">
+     <path d="M 271.841395 302.776957 
+L 279.841395 302.776957 
+L 287.841395 302.776957 
+" style="fill: none; stroke-dasharray: 5.55,2.4; stroke-dashoffset: 0; stroke: #ff7f0e; stroke-width: 1.5"/>
+    </g>
+    <g id="text_39">
+     <!-- $|\dot{M}|$ -->
+     <g transform="translate(294.241395 305.576957) scale(0.08 -0.08)">
+      <defs>
+       <path id="CMSY10-6a" d="M 1018 4569 
+C 1018 4684 1018 4800 890 4800 
+C 762 4800 762 4684 762 4569 
+L 762 -1370 
+C 762 -1485 762 -1600 890 -1600 
+C 1018 -1600 1018 -1485 1018 -1370 
+L 1018 4569 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-5f" d="M 1056 3961 
+C 1056 4115 934 4224 800 4224 
+C 646 4224 538 4102 538 3961 
+C 538 3807 659 3699 794 3699 
+C 947 3699 1056 3820 1056 3961 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMSY10-6a" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-5f" transform="translate(75.757748 25.189733) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-4d" transform="translate(27.674085 0) scale(0.996264)"/>
+      <use xlink:href="#CMSY10-6a" transform="translate(132.454164 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+  </g>
+  <g id="axes_6">
+   <g id="patch_27">
+    <path d="M 479.848007 130.998498 
+L 602.823213 130.998498 
+L 602.823213 20.118498 
+L 479.848007 20.118498 
+z
+" style="fill: #ffffff"/>
+   </g>
+   <g id="matplotlib.axis_11">
+    <g id="xtick_65">
+     <g id="line2d_347">
+      <g>
+       <use xlink:href="#ma8d582654b" x="602.823213" y="130.998498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_348">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="602.823213" y="20.118498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_66">
+     <g id="line2d_349">
+      <g>
+       <use xlink:href="#ma8d582654b" x="567.194182" y="130.998498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_350">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="567.194182" y="20.118498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_67">
+     <g id="line2d_351">
+      <g>
+       <use xlink:href="#ma8d582654b" x="531.56515" y="130.998498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_352">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="531.56515" y="20.118498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_68">
+     <g id="line2d_353">
+      <g>
+       <use xlink:href="#ma8d582654b" x="495.936118" y="130.998498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_354">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="495.936118" y="20.118498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+    </g>
+   </g>
+   <g id="matplotlib.axis_12">
+    <g id="ytick_109">
+     <g id="line2d_355">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="479.848007" y="121.351956" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_356">
+      <g>
+       <use xlink:href="#m5c5963373f" x="602.823213" y="121.351956" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_40">
+      <!-- $\mathdefault{10^{-4}}$ -->
+      <g transform="translate(456.187433 124.811205) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMSY10-0" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-34" transform="translate(145.621947 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_110">
+     <g id="line2d_357">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="479.848007" y="97.110757" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_358">
+      <g>
+       <use xlink:href="#m5c5963373f" x="602.823213" y="97.110757" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_41">
+      <!-- $\mathdefault{10^{-3}}$ -->
+      <g transform="translate(456.187433 100.570006) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMSY10-0" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-33" transform="translate(145.621947 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_111">
+     <g id="line2d_359">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="479.848007" y="72.869559" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_360">
+      <g>
+       <use xlink:href="#m5c5963373f" x="602.823213" y="72.869559" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_42">
+      <!-- $\mathdefault{10^{-2}}$ -->
+      <g transform="translate(456.187433 76.328808) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMSY10-0" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-32" transform="translate(145.621947 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_112">
+     <g id="line2d_361">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="479.848007" y="48.62836" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_362">
+      <g>
+       <use xlink:href="#m5c5963373f" x="602.823213" y="48.62836" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_43">
+      <!-- $\mathdefault{10^{-1}}$ -->
+      <g transform="translate(456.187433 52.087609) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMSY10-0" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-31" transform="translate(145.621947 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_113">
+     <g id="line2d_363">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="479.848007" y="24.387162" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_364">
+      <g>
+       <use xlink:href="#m5c5963373f" x="602.823213" y="24.387162" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_44">
+      <!-- $\mathdefault{10^{0}}$ -->
+      <g transform="translate(462.414099 27.846411) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_114">
+     <g id="line2d_365">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_366">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="130.998498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_115">
+     <g id="line2d_367">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="128.649284" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_368">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="128.649284" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_116">
+     <g id="line2d_369">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="126.729835" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_370">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="126.729835" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_117">
+     <g id="line2d_371">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="125.106965" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_372">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="125.106965" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_118">
+     <g id="line2d_373">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="123.70117" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_374">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="123.70117" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_119">
+     <g id="line2d_375">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="122.461172" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_376">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="122.461172" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_120">
+     <g id="line2d_377">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="114.054628" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_378">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="114.054628" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_121">
+     <g id="line2d_379">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="109.785965" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_380">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="109.785965" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_122">
+     <g id="line2d_381">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="106.7573" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_382">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="106.7573" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_123">
+     <g id="line2d_383">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="104.408085" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_384">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="104.408085" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_124">
+     <g id="line2d_385">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="102.488637" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_386">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="102.488637" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_125">
+     <g id="line2d_387">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="100.865766" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_388">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="100.865766" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_126">
+     <g id="line2d_389">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="99.459972" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_390">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="99.459972" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_127">
+     <g id="line2d_391">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="98.219974" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_392">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="98.219974" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_128">
+     <g id="line2d_393">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="89.813429" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_394">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="89.813429" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_129">
+     <g id="line2d_395">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="85.544766" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_396">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="85.544766" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_130">
+     <g id="line2d_397">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="82.516101" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_398">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="82.516101" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_131">
+     <g id="line2d_399">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="80.166886" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_400">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="80.166886" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_132">
+     <g id="line2d_401">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="78.247438" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_402">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="78.247438" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_133">
+     <g id="line2d_403">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="76.624568" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_404">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="76.624568" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_134">
+     <g id="line2d_405">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="75.218773" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_406">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="75.218773" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_135">
+     <g id="line2d_407">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="73.978775" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_408">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="73.978775" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_136">
+     <g id="line2d_409">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="65.572231" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_410">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="65.572231" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_137">
+     <g id="line2d_411">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="61.303568" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_412">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="61.303568" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_138">
+     <g id="line2d_413">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="58.274903" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_414">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="58.274903" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_139">
+     <g id="line2d_415">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="55.925688" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_416">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="55.925688" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_140">
+     <g id="line2d_417">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="54.00624" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_418">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="54.00624" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_141">
+     <g id="line2d_419">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="52.383369" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_420">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="52.383369" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_142">
+     <g id="line2d_421">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="50.977575" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_422">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="50.977575" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_143">
+     <g id="line2d_423">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="49.737576" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_424">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="49.737576" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_144">
+     <g id="line2d_425">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="41.331032" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_426">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="41.331032" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_145">
+     <g id="line2d_427">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="37.062369" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_428">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="37.062369" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_146">
+     <g id="line2d_429">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="34.033704" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_430">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="34.033704" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_147">
+     <g id="line2d_431">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="31.684489" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_432">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="31.684489" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_148">
+     <g id="line2d_433">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="29.765041" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_434">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="29.765041" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_149">
+     <g id="line2d_435">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="28.142171" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_436">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="28.142171" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_150">
+     <g id="line2d_437">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="26.736376" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_438">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="26.736376" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_151">
+     <g id="line2d_439">
+      <g>
+       <use xlink:href="#m84b19dfdaf" x="479.848007" y="25.496378" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+     <g id="line2d_440">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="25.496378" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="text_45">
+     <!-- Mass Fraction -->
+     <g transform="translate(450.250255 106.276694) rotate(-90) scale(0.1 -0.1)">
+      <defs>
+       <path id="CMR17-46" d="M 3482 4339 
+L 326 4339 
+L 326 4172 
+C 768 4172 838 4172 838 3883 
+L 838 450 
+C 838 166 768 166 326 166 
+L 326 0 
+C 512 12 870 12 1069 12 
+C 1331 12 1638 12 1901 0 
+L 1901 166 
+L 1760 166 
+C 1274 166 1261 229 1261 456 
+L 1261 2073 
+L 1837 2073 
+C 2432 2073 2490 1865 2490 1334 
+L 2605 1334 
+L 2605 2991 
+L 2490 2991 
+C 2490 2451 2432 2240 1837 2240 
+L 1261 2240 
+L 1261 3922 
+C 1261 4140 1274 4172 1530 4172 
+L 2355 4172 
+C 3322 4172 3430 3774 3520 2920 
+L 3635 2920 
+L 3482 4339 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMR17-4d" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-61" transform="translate(84.686941 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-73" transform="translate(130.377418 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-73" transform="translate(166.178755 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-46" transform="translate(232.056059 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-72" transform="translate(284.232651 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-61" transform="translate(319.513418 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-63" transform="translate(365.203895 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-74" transform="translate(405.689556 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-69" transform="translate(440.970324 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6f" transform="translate(465.841382 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6e" transform="translate(511.531859 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+   <g id="line2d_441">
+    <path d="M 642.419762 28.142171 
+L 586.534941 28.157383 
+L 586.195232 28.781103 
+L 585.886738 29.008522 
+L 538.716077 29.119041 
+L 536.561762 29.355697 
+L 535.429935 29.66618 
+L 534.559477 30.09002 
+L 533.88416 30.613129 
+L 533.164255 31.343744 
+L 531.907919 33.852228 
+L 531.527764 35.261133 
+L 531.165417 36.574175 
+L 530.68819 38.890459 
+L 530.559281 40.069635 
+L 530.064107 43.104992 
+L 529.369382 49.953122 
+L 528.93262 57.060732 
+L 528.720182 64.163913 
+L 528.619414 66.870498 
+L 528.603492 66.631176 
+L 528.56927 67.73071 
+L 528.46337 63.128682 
+L 528.45849 291.321685 
+L 528.381823 387.914454 
+L 528.381823 387.914454 
+" clip-path="url(#p44fb4cba12)" style="fill: none; stroke: #1f77b4; stroke-width: 1.5; stroke-linecap: square"/>
+   </g>
+   <g id="line2d_442">
+    <path d="M 642.419762 37.789804 
+L 586.534941 37.751442 
+L 586.195232 36.32872 
+L 585.886738 35.872795 
+L 540.009472 35.764788 
+L 537.782221 35.536533 
+L 536.262908 35.118393 
+L 535.496025 34.771876 
+L 533.671548 33.093516 
+L 532.729318 31.739886 
+L 532.307722 30.873702 
+L 531.907919 30.238735 
+L 531.527764 29.342463 
+L 531.165417 28.661424 
+L 529.974689 26.433404 
+L 528.463361 24.49853 
+L 528.393872 24.387162 
+L 526.281613 24.415294 
+L 525.610341 24.709502 
+L 525.341563 24.795159 
+L 525.002792 25.072779 
+L 523.166313 29.937962 
+L 523.028517 30.739642 
+L 522.694396 31.569886 
+L 522.308983 33.118289 
+L 521.604166 35.272857 
+L 521.267305 36.50162 
+L 520.660456 38.45423 
+L 519.789968 40.802115 
+L 517.993681 44.709101 
+L 513.838347 51.504963 
+L 512.217967 53.591944 
+L 510.820722 55.026513 
+L 509.277516 56.224679 
+L 507.620986 57.180745 
+L 504.249353 59.049111 
+L 502.821133 59.640637 
+L 502.517193 59.819568 
+L 501.02842 60.369052 
+L 500.718892 60.538883 
+L 498.626962 61.222492 
+L 498.086732 61.441819 
+L 496.070672 62.089486 
+L 495.825033 62.218341 
+L 494.236512 62.734331 
+L 492.376232 63.430708 
+L 490.093014 64.447798 
+L 488.542831 65.37226 
+L 486.47907 66.891773 
+L 484.142683 69.554948 
+L 482.736487 71.648893 
+L 480.843739 75.559328 
+L 480.570038 76.505136 
+L 479.185178 79.999652 
+L 478.553107 82.583439 
+L 478.074217 83.947407 
+L 476.393829 92.112995 
+L 476.158641 116.749454 
+L 472.707765 116.800253 
+L 472.017035 117.431882 
+L 469.218309 117.536172 
+L 469.052709 118.010363 
+L 466.16856 118.081474 
+L 466.019531 118.771142 
+L 465.873318 118.771453 
+L 465.588931 174.011423 
+L 464.984882 188.830383 
+L 463.10293 272.755163 
+L 462.903044 290.345296 
+L 462.518129 306.920233 
+L 462.24151 331.11718 
+L 461.716285 350.129838 
+L 461.466465 363.633888 
+L 461.264272 380.875287 
+L 461.08671 384.332799 
+L 461.062063 387.914454 
+L 461.062063 387.914454 
+" clip-path="url(#p44fb4cba12)" style="fill: none; stroke: #ff7f0e; stroke-width: 1.5; stroke-linecap: square"/>
+   </g>
+   <g id="line2d_443">
+    <path d="M 642.419762 84.569996 
+L 586.706252 84.628764 
+L 586.534941 84.742348 
+L 585.886738 107.654617 
+L 562.444989 107.76258 
+L 551.689656 108.275184 
+L 549.557118 108.66045 
+L 548.433767 108.976496 
+L 546.514459 109.706513 
+L 545.925539 109.954098 
+L 544.491806 110.375121 
+L 543.238037 110.491012 
+L 540.009472 110.668176 
+L 537.694747 111.105115 
+L 534.559477 111.66501 
+L 532.875114 111.703868 
+L 531.284323 111.530461 
+L 529.641634 111.032876 
+L 528.994 110.537907 
+L 528.720182 110.017403 
+L 528.635369 109.764701 
+L 528.619414 109.773998 
+L 528.603492 109.976679 
+L 528.546082 109.480961 
+L 528.472344 109.402956 
+L 528.463371 109.410869 
+L 528.393872 242.032193 
+L 528.3496 240.606092 
+L 528.16969 192.990656 
+L 527.991735 175.724847 
+L 527.747257 140.814994 
+L 527.360959 130.188161 
+L 527.050566 103.318191 
+L 526.664806 94.731536 
+L 526.281613 91.540924 
+L 526.064314 73.683301 
+L 525.610341 66.013402 
+L 525.341563 63.575068 
+L 525.002792 58.248126 
+L 524.721294 51.026102 
+L 523.781506 41.825935 
+L 523.028517 37.493488 
+L 521.484036 33.485818 
+L 520.660456 32.368473 
+L 519.789968 31.643605 
+L 518.664911 31.043388 
+L 517.093435 30.553143 
+L 513.005948 29.899107 
+L 509.277516 29.698938 
+L 498.417582 29.531046 
+L 485.483883 29.827148 
+L 482.309062 30.574656 
+L 481.142544 31.001377 
+L 479.658882 31.485085 
+L 477.813312 31.624304 
+L 476.393829 31.64651 
+L 476.158641 31.784651 
+L 465.873318 31.822366 
+L 465.588931 32.04652 
+L 462.903044 32.363175 
+L 457.9308 33.189101 
+L 456.65403 33.350148 
+L 455.644421 33.466879 
+L 455.315203 34.279962 
+L 455.133183 41.629218 
+L 454.894057 42.138336 
+L 454.71305 42.220329 
+L 454.282262 44.119505 
+L 452.745324 44.171069 
+L 452.479104 44.978001 
+L 451.210387 45.110753 
+L 448.835684 45.360135 
+L 447.783557 45.622794 
+L 446.307012 46.58608 
+L 446.101719 46.984232 
+L 445.359773 48.008015 
+L 444.866121 48.97573 
+L 443.096217 54.801188 
+L 441.902201 58.764532 
+L 423.832753 58.758394 
+L 423.832753 58.758394 
+" clip-path="url(#p44fb4cba12)" style="fill: none; stroke: #2ca02c; stroke-width: 1.5; stroke-linecap: square"/>
+   </g>
+   <g id="line2d_444">
+    <path d="M 642.419762 96.43424 
+L 587.128994 96.43424 
+L 586.970546 96.316699 
+L 586.706252 95.773022 
+L 586.534941 94.610999 
+L 586.195232 73.645604 
+L 585.886738 70.864587 
+L 544.083955 70.753562 
+L 528.667379 70.796166 
+L 528.619414 70.833725 
+L 528.56927 71.01806 
+L 528.569268 70.770483 
+L 528.522966 70.772339 
+L 528.463371 70.786018 
+L 528.455415 387.914454 
+L 528.455415 387.914454 
+" clip-path="url(#p44fb4cba12)" style="fill: none; stroke: #d62728; stroke-width: 1.5; stroke-linecap: square"/>
+   </g>
+   <g id="line2d_445">
+    <path d="M 642.419762 74.173183 
+L 586.706252 74.23886 
+L 586.534941 74.36592 
+L 586.195232 88.347616 
+L 585.886738 125.682599 
+L 536.715633 125.792996 
+L 535.835217 126.093803 
+L 534.677991 126.699364 
+L 533.671548 127.317796 
+L 532.586218 127.764445 
+L 529.641634 128.626787 
+L 528.955447 129.199975 
+L 528.720181 129.675075 
+L 528.619414 129.867008 
+L 528.56927 130.095277 
+L 528.522966 129.952467 
+L 528.463371 129.993398 
+L 528.45849 336.465176 
+L 528.393872 288.648615 
+L 528.16969 198.899765 
+L 527.991735 181.605433 
+L 527.747257 146.693785 
+L 527.360959 136.066945 
+L 527.050566 109.196975 
+L 526.664806 100.61032 
+L 526.281613 97.419708 
+L 526.064314 79.562085 
+L 525.610341 71.892186 
+L 525.341563 69.453852 
+L 525.002792 64.12691 
+L 524.721294 56.904885 
+L 523.781506 47.705397 
+L 523.028517 43.352562 
+L 521.484036 39.345376 
+L 520.660456 38.228031 
+L 519.789968 37.503163 
+L 518.664911 36.902946 
+L 517.093435 36.4127 
+L 513.005948 35.758261 
+L 509.806203 35.534194 
+L 487.289426 34.715694 
+L 484.142683 34.35995 
+L 482.736487 33.960998 
+L 480.843739 33.098832 
+L 480.077073 32.759674 
+L 478.958776 32.513901 
+L 477.486779 32.444489 
+L 476.393829 32.4069 
+L 476.158641 32.171502 
+L 465.873318 32.126688 
+L 465.588931 31.872752 
+L 462.518129 31.528984 
+L 460.595519 31.239439 
+L 455.644421 30.710552 
+L 454.71305 32.439786 
+L 454.282262 32.891565 
+L 452.745324 32.915145 
+L 452.479104 33.093285 
+L 445.649052 33.473002 
+L 444.215945 33.865975 
+L 442.217656 34.339732 
+L 441.902201 34.015812 
+L 423.832753 34.014523 
+L 423.832753 34.014523 
+" clip-path="url(#p44fb4cba12)" style="fill: none; stroke: #9467bd; stroke-width: 1.5; stroke-linecap: square"/>
+   </g>
+   <g id="patch_28">
+    <path d="M 479.848007 130.998498 
+L 479.848007 20.118498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_29">
+    <path d="M 602.823213 130.998498 
+L 602.823213 20.118498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_30">
+    <path d="M 479.848007 130.998498 
+L 602.823213 130.998498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_31">
+    <path d="M 479.848007 20.118498 
+L 602.823213 20.118498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="text_46">
+    <!-- Final Profile -->
+    <g transform="translate(514.201189 14.118498) scale(0.1 -0.1)">
+     <defs>
+      <path id="CMR17-50" d="M 1267 2048 
+L 2291 2048 
+C 3117 2048 3718 2583 3718 3187 
+C 3718 3791 3130 4352 2291 4352 
+L 333 4352 
+L 333 4185 
+C 774 4185 845 4185 845 3899 
+L 845 453 
+C 845 166 774 166 333 166 
+L 333 0 
+C 518 12 858 12 1056 12 
+C 1254 12 1594 12 1779 0 
+L 1779 166 
+C 1338 166 1267 166 1267 453 
+L 1267 2048 
+z
+M 1254 2182 
+L 1254 3937 
+C 1254 4153 1267 4185 1523 4185 
+L 2170 4185 
+C 2995 4185 3232 3715 3232 3187 
+C 3232 2608 2950 2182 2170 2182 
+L 1254 2182 
+z
+" transform="scale(0.015625)"/>
+      <path id="CMR17-c" d="M 2554 2816 
+C 2400 2809 1926 2777 1805 2764 
+C 1766 2758 1754 2758 1677 2758 
+L 947 2758 
+L 947 3517 
+C 947 4127 1434 4416 1818 4416 
+C 1939 4416 2214 4383 2355 4160 
+C 2291 4160 2086 4160 2086 3935 
+C 2086 3782 2189 3705 2317 3705 
+C 2432 3705 2547 3769 2547 3942 
+C 2547 4265 2240 4518 1843 4518 
+C 1338 4518 634 4225 634 3517 
+L 634 2758 
+L 122 2758 
+L 122 2591 
+L 634 2591 
+L 634 442 
+C 634 198 608 166 198 166 
+L 198 0 
+C 352 12 634 12 794 12 
+C 960 12 1242 12 1395 0 
+L 1395 166 
+C 986 166 960 192 960 442 
+L 960 2591 
+L 1901 2591 
+C 2176 2591 2227 2534 2227 2251 
+L 2227 442 
+C 2227 198 2202 166 1792 166 
+L 1792 0 
+C 1946 12 2227 12 2387 12 
+C 2554 12 2835 12 2989 0 
+L 2989 166 
+C 2579 166 2554 192 2554 442 
+L 2554 2816 
+z
+" transform="scale(0.015625)"/>
+     </defs>
+     <use xlink:href="#CMR17-46" transform="scale(0.996264)"/>
+     <use xlink:href="#CMR17-69" transform="translate(59.983847 0) scale(0.996264)"/>
+     <use xlink:href="#CMR17-6e" transform="translate(84.854905 0) scale(0.996264)"/>
+     <use xlink:href="#CMR17-61" transform="translate(135.750275 0) scale(0.996264)"/>
+     <use xlink:href="#CMR17-6c" transform="translate(181.440752 0) scale(0.996264)"/>
+     <use xlink:href="#CMR17-50" transform="translate(236.387777 0) scale(0.996264)"/>
+     <use xlink:href="#CMR17-72" transform="translate(298.974077 0) scale(0.996264)"/>
+     <use xlink:href="#CMR17-6f" transform="translate(334.254845 0) scale(0.996264)"/>
+     <use xlink:href="#CMR17-c" transform="translate(379.945322 0) scale(0.996264)"/>
+     <use xlink:href="#CMR17-6c" transform="translate(429.687546 0) scale(0.996264)"/>
+     <use xlink:href="#CMR17-65" transform="translate(454.558604 0) scale(0.996264)"/>
+    </g>
+   </g>
+   <g id="legend_5">
+    <g id="line2d_446">
+     <path d="M 487.048007 74.84977 
+L 495.048007 74.84977 
+L 503.048007 74.84977 
+" style="fill: none; stroke: #1f77b4; stroke-width: 1.5; stroke-linecap: square"/>
+    </g>
+    <g id="text_47">
+     <!-- ${}^{1}$H -->
+     <g transform="translate(509.448007 77.64977) scale(0.08 -0.08)">
+      <use xlink:href="#CMR17-31" transform="translate(0 36.153639) scale(0.697382)"/>
+      <use xlink:href="#CMR17-48" transform="translate(32.481314 0) scale(0.996264)"/>
+     </g>
+    </g>
+    <g id="line2d_447">
+     <path d="M 487.048007 85.999516 
+L 495.048007 85.999516 
+L 503.048007 85.999516 
+" style="fill: none; stroke: #ff7f0e; stroke-width: 1.5; stroke-linecap: square"/>
+    </g>
+    <g id="text_48">
+     <!-- ${}^{4}$He -->
+     <g transform="translate(509.448007 88.799516) scale(0.08 -0.08)">
+      <use xlink:href="#CMR17-34" transform="translate(0 36.153639) scale(0.697382)"/>
+      <use xlink:href="#CMR17-48" transform="translate(32.481314 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(101.553744 0) scale(0.996264)"/>
+     </g>
+    </g>
+    <g id="line2d_448">
+     <path d="M 487.048007 97.149261 
+L 495.048007 97.149261 
+L 503.048007 97.149261 
+" style="fill: none; stroke: #2ca02c; stroke-width: 1.5; stroke-linecap: square"/>
+    </g>
+    <g id="text_49">
+     <!-- ${}^{12}$C -->
+     <g transform="translate(509.448007 99.949261) scale(0.08 -0.08)">
+      <defs>
+       <path id="CMR17-43" d="M 3974 4351 
+C 3974 4467 3968 4473 3930 4473 
+C 3904 4473 3898 4467 3853 4390 
+L 3571 3849 
+C 3258 4249 2874 4480 2381 4480 
+C 1286 4480 294 3507 294 2179 
+C 294 837 1286 -128 2387 -128 
+C 3366 -128 3974 741 3974 1482 
+C 3974 1547 3974 1573 3917 1573 
+C 3866 1573 3866 1553 3859 1495 
+C 3808 592 3168 38 2477 38 
+C 1824 38 781 502 781 2179 
+C 781 3862 1843 4313 2464 4313 
+C 3187 4313 3712 3681 3834 2785 
+C 3846 2707 3846 2695 3904 2695 
+C 3974 2695 3974 2707 3974 2824 
+L 3974 4351 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMR17-31" transform="translate(0 36.153639) scale(0.697382)"/>
+      <use xlink:href="#CMR17-32" transform="translate(31.983182 36.153639) scale(0.697382)"/>
+      <use xlink:href="#CMR17-43" transform="translate(64.464496 0) scale(0.996264)"/>
+     </g>
+    </g>
+    <g id="line2d_449">
+     <path d="M 487.048007 108.299007 
+L 495.048007 108.299007 
+L 503.048007 108.299007 
+" style="fill: none; stroke: #d62728; stroke-width: 1.5; stroke-linecap: square"/>
+    </g>
+    <g id="text_50">
+     <!-- ${}^{14}$N -->
+     <g transform="translate(509.448007 111.099007) scale(0.08 -0.08)">
+      <defs>
+       <path id="CMR17-4e" d="M 1312 4275 
+C 1267 4345 1261 4352 1139 4352 
+L 326 4352 
+L 326 4185 
+L 448 4185 
+C 704 4185 819 4153 838 4147 
+L 838 624 
+C 838 465 838 166 326 166 
+L 326 0 
+C 474 12 742 12 902 12 
+C 1062 12 1331 12 1478 0 
+L 1478 166 
+C 966 166 966 465 966 624 
+L 966 4057 
+C 1011 4019 1011 4007 1056 3943 
+L 3430 76 
+C 3475 0 3494 0 3526 0 
+C 3590 0 3590 19 3590 140 
+L 3590 3726 
+C 3590 3885 3590 4185 4102 4185 
+L 4102 4352 
+C 3955 4339 3686 4339 3526 4339 
+C 3366 4339 3098 4339 2950 4352 
+L 2950 4185 
+C 3462 4185 3462 3885 3462 3726 
+L 3462 777 
+L 1312 4275 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMR17-31" transform="translate(0 36.153639) scale(0.697382)"/>
+      <use xlink:href="#CMR17-34" transform="translate(31.983182 36.153639) scale(0.697382)"/>
+      <use xlink:href="#CMR17-4e" transform="translate(64.464496 0) scale(0.996264)"/>
+     </g>
+    </g>
+    <g id="line2d_450">
+     <path d="M 487.048007 119.448753 
+L 495.048007 119.448753 
+L 503.048007 119.448753 
+" style="fill: none; stroke: #9467bd; stroke-width: 1.5; stroke-linecap: square"/>
+    </g>
+    <g id="text_51">
+     <!-- ${}^{16}$O -->
+     <g transform="translate(509.448007 122.248753) scale(0.08 -0.08)">
+      <defs>
+       <path id="CMR17-4f" d="M 4307 2166 
+C 4307 3488 3366 4480 2304 4480 
+C 1216 4480 294 3475 294 2166 
+C 294 857 1229 -128 2298 -128 
+C 3392 -128 4307 876 4307 2166 
+z
+M 2304 -13 
+C 1574 -13 781 722 781 2250 
+C 781 3771 1651 4364 2298 4364 
+C 2976 4364 3821 3752 3821 2250 
+C 3821 696 3008 -13 2304 -13 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMR17-31" transform="translate(0 36.153639) scale(0.697382)"/>
+      <use xlink:href="#CMR17-36" transform="translate(31.983182 36.153639) scale(0.697382)"/>
+      <use xlink:href="#CMR17-4f" transform="translate(64.464496 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+  </g>
+  <g id="axes_7">
+   <g id="patch_32">
+    <path d="M 479.848007 241.878498 
+L 602.823213 241.878498 
+L 602.823213 130.998498 
+L 479.848007 130.998498 
+z
+" style="fill: #ffffff"/>
+   </g>
+   <g id="matplotlib.axis_13">
+    <g id="xtick_69">
+     <g id="line2d_451">
+      <g>
+       <use xlink:href="#ma8d582654b" x="602.823213" y="241.878498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_452">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="602.823213" y="130.998498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_70">
+     <g id="line2d_453">
+      <g>
+       <use xlink:href="#ma8d582654b" x="567.194182" y="241.878498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_454">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="567.194182" y="130.998498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_71">
+     <g id="line2d_455">
+      <g>
+       <use xlink:href="#ma8d582654b" x="531.56515" y="241.878498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_456">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="531.56515" y="130.998498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_72">
+     <g id="line2d_457">
+      <g>
+       <use xlink:href="#ma8d582654b" x="495.936118" y="241.878498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_458">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="495.936118" y="130.998498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+    </g>
+   </g>
+   <g id="matplotlib.axis_14">
+    <g id="ytick_152">
+     <g id="line2d_459">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="479.848007" y="241.878498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_460">
+      <g>
+       <use xlink:href="#m5c5963373f" x="602.823213" y="241.878498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_52">
+      <!-- $\mathdefault{10^{-6}}$ -->
+      <g transform="translate(456.187433 245.337748) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMSY10-0" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-36" transform="translate(145.621947 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_153">
+     <g id="line2d_461">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="479.848007" y="214.158498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_462">
+      <g>
+       <use xlink:href="#m5c5963373f" x="602.823213" y="214.158498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_53">
+      <!-- $\mathdefault{10^{-2}}$ -->
+      <g transform="translate(456.187433 217.617748) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMSY10-0" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-32" transform="translate(145.621947 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_154">
+     <g id="line2d_463">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="479.848007" y="186.438498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_464">
+      <g>
+       <use xlink:href="#m5c5963373f" x="602.823213" y="186.438498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_54">
+      <!-- $\mathdefault{10^{2}}$ -->
+      <g transform="translate(462.414099 189.897748) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-32" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_155">
+     <g id="line2d_465">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="479.848007" y="158.718498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_466">
+      <g>
+       <use xlink:href="#m5c5963373f" x="602.823213" y="158.718498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_55">
+      <!-- $\mathdefault{10^{6}}$ -->
+      <g transform="translate(462.414099 162.177748) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-36" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_156">
+     <g id="line2d_467">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="479.848007" y="130.998498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_468">
+      <g>
+       <use xlink:href="#m5c5963373f" x="602.823213" y="130.998498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_56">
+      <!-- $\mathdefault{10^{10}}$ -->
+      <g transform="translate(458.442861 134.457748) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-31" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-30" transform="translate(123.364136 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="text_57">
+     <!-- Specific Power [erg/g/s] -->
+     <g transform="translate(449.696773 238.313486) rotate(-90) scale(0.1 -0.1)">
+      <defs>
+       <path id="CMR17-77" d="M 3725 2186 
+C 3853 2566 4109 2579 4205 2585 
+L 4205 2752 
+C 4077 2745 3949 2739 3821 2739 
+C 3699 2739 3424 2739 3315 2752 
+L 3315 2585 
+C 3514 2572 3622 2456 3622 2296 
+C 3622 2251 3610 2193 3597 2148 
+L 2995 398 
+L 2342 2296 
+C 2330 2341 2310 2392 2310 2418 
+C 2310 2585 2528 2585 2630 2585 
+L 2630 2752 
+C 2483 2739 2214 2739 2061 2739 
+C 1901 2739 1734 2739 1587 2752 
+L 1587 2585 
+C 1939 2585 1939 2572 2074 2167 
+L 1485 443 
+L 851 2302 
+C 819 2386 819 2399 819 2418 
+C 819 2585 1037 2585 1139 2585 
+L 1139 2752 
+C 986 2739 717 2739 557 2739 
+C 416 2739 198 2739 64 2752 
+L 64 2585 
+C 346 2585 416 2566 486 2353 
+L 1274 38 
+C 1299 -45 1318 -64 1370 -64 
+C 1414 -64 1440 -52 1472 44 
+L 2131 1987 
+L 2797 44 
+C 2829 -52 2854 -64 2899 -64 
+C 2950 -64 2970 -45 2995 38 
+L 3725 2186 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMR17-53" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-70" transform="translate(50.89537 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(104.393178 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-63" transform="translate(144.878839 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-69" transform="translate(185.364499 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-c" transform="translate(210.235558 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-63" transform="translate(259.977781 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-50" transform="translate(330.539408 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6f" transform="translate(390.523254 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-77" transform="translate(433.611278 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(497.518704 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-72" transform="translate(538.004365 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5b" transform="translate(603.361099 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(628.232157 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-72" transform="translate(668.717818 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-67" transform="translate(703.998586 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-2f" transform="translate(749.689063 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-67" transform="translate(795.37954 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-2f" transform="translate(841.070017 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-73" transform="translate(886.760494 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5d" transform="translate(922.561832 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+   <g id="line2d_469">
+    <path d="M 642.419762 267.946455 
+L 642.137486 267.644008 
+L 641.833726 267.132413 
+L 640.879151 266.255499 
+L 640.120631 265.409107 
+L 635.729765 260.646285 
+L 635.457897 260.171301 
+L 634.533171 259.352794 
+L 633.876566 258.59712 
+L 633.521582 258.258749 
+L 633.243264 257.821823 
+L 632.714158 257.240832 
+L 631.895002 256.574174 
+L 631.399642 255.994438 
+L 625.561649 250.020787 
+L 625.024017 249.521244 
+L 618.659566 243.600895 
+L 617.628114 242.687749 
+L 607.299176 233.695717 
+L 606.070701 232.941279 
+L 605.749142 232.562902 
+L 591.120077 221.336644 
+L 586.534941 217.883989 
+L 586.195232 217.911593 
+L 585.578445 217.620007 
+L 584.926055 217.055609 
+L 583.224651 215.909763 
+L 583.039695 215.708002 
+L 581.916653 214.971622 
+L 581.733037 214.745571 
+L 580.511549 213.917271 
+L 578.835317 212.764742 
+L 578.311608 212.370986 
+L 576.26007 210.91875 
+L 576.060408 210.702879 
+L 575.274908 210.182413 
+L 573.067476 208.559898 
+L 568.662709 204.669222 
+L 567.138437 203.04507 
+L 566.20258 201.810757 
+L 565.68742 201.118112 
+L 565.311584 200.531537 
+L 563.541947 197.67107 
+L 560.711493 192.673338 
+L 560.397086 192.095875 
+L 551.364762 175.678738 
+L 547.04197 168.374811 
+L 546.651649 167.744436 
+L 535.697751 150.265604 
+L 535.299426 149.690388 
+L 532.875114 146.4086 
+L 531.779114 145.21412 
+L 530.990415 144.734093 
+L 530.559281 144.644047 
+L 530.064107 144.757394 
+L 529.595755 145.172505 
+L 529.191792 145.919963 
+L 528.898505 146.940247 
+L 528.720182 148.096573 
+L 528.619414 148.990766 
+L 528.603492 148.96492 
+L 528.575673 149.103078 
+L 528.46337 151.089163 
+L 528.393872 275.57385 
+L 528.280835 308.668372 
+L 527.747257 289.565853 
+L 527.360959 285.742999 
+L 526.878627 275.847465 
+L 526.664806 273.942761 
+L 526.281613 272.354335 
+L 526.064314 266.694551 
+L 524.36168 255.445137 
+L 523.781506 252.850082 
+L 522.308983 248.426704 
+L 521.604166 246.956611 
+L 521.267305 246.14454 
+L 520.660456 244.824712 
+L 518.997497 241.56719 
+L 517.687489 239.343545 
+L 517.309374 238.7364 
+L 516.660202 237.642802 
+L 514.322763 234.670584 
+L 513.413994 233.747245 
+L 512.217967 233.127303 
+L 511.443389 232.998396 
+L 510.820722 233.173589 
+L 510.154798 233.715758 
+L 509.487688 234.643173 
+L 509.277516 235.311114 
+L 508.671478 236.858059 
+L 508.105883 239.48874 
+L 507.688911 242.172682 
+L 506.913789 252.743301 
+L 506.60525 262.628003 
+L 506.398966 277.726747 
+L 506.244599 309.806235 
+L 506.02374 355.895547 
+L 505.926274 355.651707 
+L 505.365934 351.721051 
+L 504.513757 348.391575 
+L 504.249353 346.523167 
+L 502.821133 340.685245 
+L 502.517193 338.611373 
+L 501.979308 336.818032 
+L 501.701644 335.175676 
+L 501.228358 333.771119 
+L 500.718892 330.835577 
+L 499.858324 328.069792 
+L 499.602437 327.083259 
+L 499.354743 325.60029 
+L 498.626962 323.45088 
+L 498.086732 320.887434 
+L 497.564937 319.639676 
+L 497.365689 318.643195 
+L 495.305579 312.061203 
+L 494.819548 310.6787 
+L 494.610806 309.799587 
+L 492.823019 304.982545 
+L 490.354017 298.837295 
+L 487.289426 292.502723 
+L 485.976906 290.29023 
+L 482.921794 286.205639 
+L 481.645311 284.77715 
+L 478.553107 282.874155 
+L 477.486779 282.662145 
+L 476.785664 282.747815 
+L 476.393829 282.87366 
+L 476.158641 289.439208 
+L 474.660989 287.770306 
+L 474.435257 287.298975 
+L 472.707765 285.345865 
+L 472.319556 285.04948 
+L 472.017035 284.607326 
+L 470.72247 283.409029 
+L 470.230203 282.786296 
+L 466.16856 278.7261 
+L 466.019531 278.774302 
+L 465.873318 278.550857 
+L 465.588931 293.942467 
+L 464.984882 297.726828 
+L 463.10293 319.931183 
+L 462.903044 324.675134 
+L 462.518129 329.097528 
+L 462.24151 335.624943 
+L 461.716285 340.69379 
+L 461.466465 344.33844 
+L 461.264272 349.085971 
+L 461.08671 349.906754 
+L 460.913131 356.882342 
+L 460.595519 358.303673 
+L 460.290434 363.993707 
+L 460.099249 364.973739 
+L 459.912675 371.65922 
+L 459.649083 372.896475 
+L 459.394176 379.483663 
+L 459.162595 380.709845 
+L 458.878447 387.914454 
+M 457.508167 387.914454 
+L 457.491549 387.793771 
+L 456.94975 379.236164 
+L 456.65403 377.602428 
+L 456.079219 371.970686 
+L 455.644421 370.697764 
+L 455.315203 366.809136 
+L 455.133183 369.565186 
+L 454.894057 369.749975 
+L 454.71305 371.212142 
+L 454.282262 373.340853 
+L 453.486589 372.609193 
+L 453.29983 372.974646 
+L 452.745324 372.578203 
+L 452.479104 379.824256 
+L 452.252671 381.337072 
+L 452.057243 387.914454 
+M 451.835229 387.914454 
+L 451.748759 386.846637 
+L 451.474891 386.547271 
+L 451.012187 386.587237 
+L 450.919497 387.914454 
+M 450.357041 387.914454 
+L 450.158638 387.391601 
+L 450.106668 387.914454 
+M 449.759783 387.914454 
+L 449.53415 380.505384 
+L 449.239611 381.89804 
+L 449.078203 387.914454 
+M 449.033833 387.914454 
+L 448.835684 378.543233 
+L 448.494479 381.853847 
+L 448.143114 378.8406 
+L 447.783557 377.531763 
+L 447.552813 381.657706 
+L 447.15406 380.211481 
+L 446.899203 375.527935 
+L 446.523703 373.336264 
+L 446.307012 376.965287 
+L 446.101719 378.0396 
+L 445.649052 372.232807 
+L 445.359773 371.973254 
+L 445.126507 372.160226 
+L 444.998839 370.178261 
+L 444.932196 375.644875 
+L 444.919216 387.914454 
+M 444.764732 387.914454 
+L 444.735641 373.514069 
+L 444.543209 368.908811 
+L 444.215945 369.617511 
+L 443.879551 376.383461 
+L 443.611933 374.963143 
+L 443.349778 369.238485 
+L 443.096217 375.081716 
+L 442.808365 371.715142 
+L 442.496448 375.774287 
+L 442.217656 373.949983 
+L 441.902201 382.625747 
+L 440.419769 380.449012 
+L 440.006164 379.868351 
+L 439.488414 378.946512 
+L 438.875809 378.042821 
+L 438.347377 377.250419 
+L 436.386723 373.987228 
+L 433.752667 369.28294 
+L 430.811396 363.147446 
+L 430.53571 362.434311 
+L 429.739189 360.573136 
+L 429.106934 358.925535 
+L 426.936702 352.704828 
+L 425.736199 348.560972 
+L 425.433712 347.341974 
+L 424.379727 342.31788 
+L 423.937442 339.1458 
+L 423.832753 337.784966 
+L 423.832753 337.784966 
+" clip-path="url(#p70c8d29025)" style="fill: none; stroke: #1f77b4; stroke-width: 1.5; stroke-linecap: square"/>
+   </g>
+   <g id="line2d_470">
+    <path d="M 642.419762 267.946455 
+L 642.137486 267.644008 
+L 641.833726 267.132413 
+L 640.879151 266.255499 
+L 640.120631 265.409107 
+L 635.729765 260.646285 
+L 635.457897 260.171301 
+L 634.533171 259.352794 
+L 633.876566 258.59712 
+L 633.521582 258.258749 
+L 633.243264 257.821823 
+L 632.714158 257.240832 
+L 631.895002 256.574174 
+L 631.399642 255.994438 
+L 625.561649 250.020787 
+L 625.024017 249.521244 
+L 618.659566 243.600895 
+L 617.628114 242.687749 
+L 607.299176 233.695717 
+L 606.070701 232.941279 
+L 605.749142 232.562902 
+L 591.120077 221.336712 
+L 586.534941 217.884665 
+L 586.195232 217.912033 
+L 585.578445 217.620402 
+L 584.926055 217.056182 
+L 583.224651 215.910977 
+L 583.039695 215.709388 
+L 581.916653 214.973869 
+L 581.733037 214.748179 
+L 580.511549 213.921779 
+L 578.835317 212.774434 
+L 578.311608 212.383531 
+L 576.26007 210.95105 
+L 576.060408 210.740019 
+L 575.274908 210.234212 
+L 571.95164 207.910289 
+L 568.349826 205.425015 
+L 558.140893 198.681147 
+L 550.02432 193.604265 
+L 537.438109 185.768792 
+L 537.028436 185.465182 
+L 533.464622 183.168071 
+L 532.307722 182.869163 
+L 531.779114 182.991059 
+L 531.165417 183.436657 
+L 530.68819 184.129956 
+L 530.307733 185.011037 
+L 530.064107 185.715698 
+L 529.482235 188.168699 
+L 529.017547 191.426237 
+L 528.46808 199.568904 
+L 528.463371 199.566858 
+L 528.46337 195.736523 
+L 528.376944 387.914454 
+M 473.90225 387.914454 
+L 473.901115 373.557845 
+L 473.549707 387.914454 
+M 473.302614 387.914454 
+L 473.023775 370.834771 
+L 473.022977 387.914454 
+L 473.022977 387.914454 
+" clip-path="url(#p70c8d29025)" style="fill: none; stroke-dasharray: 5.55,2.4; stroke-dashoffset: 0; stroke: #ff7f0e; stroke-width: 1.5"/>
+   </g>
+   <g id="line2d_471">
+    <path d="M 638.180471 387.914454 
+L 638.062964 387.45767 
+L 637.583172 386.068373 
+L 636.955285 383.286576 
+L 636.236578 381.103379 
+L 634.867396 375.798156 
+L 634.265606 373.468372 
+L 633.521582 370.945311 
+L 633.243264 369.44965 
+L 632.714158 367.465532 
+L 631.895002 365.195574 
+L 631.399642 363.220779 
+L 626.729479 346.919006 
+L 626.350078 346.003163 
+L 626.167485 345.116475 
+L 625.198283 342.278167 
+L 624.705414 340.490467 
+L 620.414559 327.462362 
+L 620.153629 326.834389 
+L 619.984598 326.101618 
+L 619.498148 324.8305 
+L 617.301874 318.459638 
+L 616.988942 317.744971 
+L 616.78707 316.915161 
+L 616.211254 315.615681 
+L 616.02846 314.871165 
+L 611.699207 303.151717 
+L 611.256136 301.748682 
+L 607.696429 292.898023 
+L 607.299176 291.223676 
+L 606.406152 289.724885 
+L 606.070701 288.902998 
+L 605.749142 287.734118 
+L 604.069856 283.724598 
+L 603.349671 282.289225 
+L 600.828864 276.174655 
+L 600.611211 275.346648 
+L 599.659605 273.406007 
+L 599.472047 272.743886 
+L 598.935215 271.699146 
+L 598.08689 269.677153 
+L 595.946629 264.596817 
+L 595.721251 263.862977 
+L 593.373992 258.548483 
+L 592.713153 256.998831 
+L 592.038086 255.655893 
+L 591.868446 255.084331 
+L 590.918397 253.0833 
+L 590.186889 251.462013 
+L 590.016489 250.821921 
+L 589.419931 249.704954 
+L 588.651268 247.803793 
+L 588.293797 247.218457 
+L 587.527868 245.257888 
+L 587.128994 244.648527 
+L 586.534941 243.169532 
+L 586.195232 244.491583 
+L 585.886738 245.008118 
+L 585.578445 244.519275 
+L 585.428787 244.041955 
+L 585.137886 243.503657 
+L 584.926055 242.839482 
+L 583.224651 239.432421 
+L 583.039695 238.831332 
+L 582.667464 238.222734 
+L 582.158772 237.093961 
+L 581.916653 236.641503 
+L 581.733037 235.967536 
+L 580.731706 234.080251 
+L 580.193654 232.880318 
+L 579.84892 232.215662 
+L 578.311608 228.870843 
+L 576.745167 225.589548 
+L 576.060408 223.94856 
+L 575.467966 222.917574 
+L 574.776077 221.391935 
+L 573.557894 218.824162 
+L 572.556715 216.691645 
+L 567.830996 206.91576 
+L 567.138437 205.695087 
+L 566.54922 204.533351 
+L 560.761018 193.011847 
+L 555.292591 182.667558 
+L 554.853219 181.89481 
+L 550.078017 173.466017 
+L 545.677528 166.130098 
+L 545.146968 165.324396 
+L 535.835217 150.465631 
+L 533.263087 146.914839 
+L 531.779114 145.214143 
+L 530.990415 144.734113 
+L 530.559281 144.644065 
+L 530.064107 144.75741 
+L 529.595755 145.172519 
+L 529.191792 145.919976 
+L 528.898505 146.940259 
+L 528.720182 148.096585 
+L 528.619414 148.99077 
+L 528.603492 148.964925 
+L 528.575673 149.103083 
+L 528.46337 151.089169 
+L 528.393872 275.573884 
+L 528.272244 387.914454 
+L 528.272244 387.914454 
+" clip-path="url(#p70c8d29025)" style="fill: none; stroke-dasharray: 1.5,2.475; stroke-dashoffset: 0; stroke: #2ca02c; stroke-width: 1.5"/>
+   </g>
+   <g id="patch_33">
+    <path d="M 479.848007 241.878498 
+L 479.848007 130.998498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_34">
+    <path d="M 602.823213 241.878498 
+L 602.823213 130.998498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_35">
+    <path d="M 479.848007 241.878498 
+L 602.823213 241.878498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_36">
+    <path d="M 479.848007 130.998498 
+L 602.823213 130.998498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="legend_6">
+    <g id="line2d_472">
+     <path d="M 553.64952 140.998498 
+L 561.64952 140.998498 
+L 569.64952 140.998498 
+" style="fill: none; stroke: #1f77b4; stroke-width: 1.5; stroke-linecap: square"/>
+    </g>
+    <g id="text_58">
+     <!-- $\epsilon_{\mathrm{nuc}}$ -->
+     <g transform="translate(576.04952 143.798498) scale(0.08 -0.08)">
+      <use xlink:href="#CMMI12-f" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-6e" transform="translate(39.388958 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-75" transform="translate(73.193846 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-63" transform="translate(108.820454 -14.943915) scale(0.697382)"/>
+     </g>
+    </g>
+    <g id="line2d_473">
+     <path d="M 553.64952 152.148244 
+L 561.64952 152.148244 
+L 569.64952 152.148244 
+" style="fill: none; stroke-dasharray: 5.55,2.4; stroke-dashoffset: 0; stroke: #ff7f0e; stroke-width: 1.5"/>
+    </g>
+    <g id="text_59">
+     <!-- $\epsilon_{\mathrm{pp}}$ -->
+     <g transform="translate(576.04952 154.948244) scale(0.08 -0.08)">
+      <use xlink:href="#CMMI12-f" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-70" transform="translate(39.388958 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-70" transform="translate(75.015567 -14.943915) scale(0.697382)"/>
+     </g>
+    </g>
+    <g id="line2d_474">
+     <path d="M 553.64952 163.906821 
+L 561.64952 163.906821 
+L 569.64952 163.906821 
+" style="fill: none; stroke-dasharray: 1.5,2.475; stroke-dashoffset: 0; stroke: #2ca02c; stroke-width: 1.5"/>
+    </g>
+    <g id="text_60">
+     <!-- $\epsilon_{\mathrm{CNO}}$ -->
+     <g transform="translate(576.04952 166.706821) scale(0.08 -0.08)">
+      <use xlink:href="#CMMI12-f" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-43" transform="translate(39.388958 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-4e" transform="translate(85.945663 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-4f" transform="translate(134.296148 -14.943915) scale(0.697382)"/>
+     </g>
+    </g>
+   </g>
+  </g>
+  <g id="axes_8">
+   <g id="patch_37">
+    <path d="M 479.848007 352.758498 
+L 602.823213 352.758498 
+L 602.823213 241.878498 
+L 479.848007 241.878498 
+z
+" style="fill: #ffffff"/>
+   </g>
+   <g id="matplotlib.axis_15">
+    <g id="xtick_73">
+     <g id="line2d_475">
+      <g>
+       <use xlink:href="#ma8d582654b" x="602.823213" y="352.758498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_476">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="602.823213" y="241.878498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_61">
+      <!-- $\mathdefault{10^{-10}}$ -->
+      <g transform="translate(590.757308 363.176997) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMSY10-0" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-31" transform="translate(145.621947 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-30" transform="translate(177.605129 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_74">
+     <g id="line2d_477">
+      <g>
+       <use xlink:href="#ma8d582654b" x="567.194182" y="352.758498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_478">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="567.194182" y="241.878498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_62">
+      <!-- $\mathdefault{10^{-8}}$ -->
+      <g transform="translate(557.113895 363.176997) scale(0.1 -0.1)">
+       <defs>
+        <path id="CMR17-38" d="M 1741 2289 
+C 2144 2494 2554 2803 2554 3298 
+C 2554 3884 1990 4224 1472 4224 
+C 890 4224 378 3800 378 3215 
+C 378 3054 416 2777 666 2533 
+C 730 2469 998 2276 1171 2154 
+C 883 2006 211 1652 211 945 
+C 211 282 838 -128 1459 -128 
+C 2144 -128 2720 366 2720 1022 
+C 2720 1607 2330 1877 2074 2051 
+L 1741 2289 
+z
+M 902 2855 
+C 851 2887 595 3086 595 3388 
+C 595 3781 998 4076 1459 4076 
+C 1965 4076 2336 3716 2336 3298 
+C 2336 2700 1670 2359 1638 2359 
+C 1632 2359 1626 2359 1574 2398 
+L 902 2855 
+z
+M 2080 1536 
+C 2176 1466 2483 1253 2483 861 
+C 2483 385 2010 25 1472 25 
+C 890 25 448 443 448 951 
+C 448 1459 838 1884 1280 2083 
+L 2080 1536 
+z
+" transform="scale(0.015625)"/>
+       </defs>
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMSY10-0" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-38" transform="translate(145.621947 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_75">
+     <g id="line2d_479">
+      <g>
+       <use xlink:href="#ma8d582654b" x="531.56515" y="352.758498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_480">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="531.56515" y="241.878498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_63">
+      <!-- $\mathdefault{10^{-6}}$ -->
+      <g transform="translate(521.484863 363.176997) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMSY10-0" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-36" transform="translate(145.621947 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="xtick_76">
+     <g id="line2d_481">
+      <g>
+       <use xlink:href="#ma8d582654b" x="495.936118" y="352.758498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="line2d_482">
+      <g>
+       <use xlink:href="#m2a52635b8f" x="495.936118" y="241.878498" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_64">
+      <!-- $\mathdefault{10^{-4}}$ -->
+      <g transform="translate(485.855831 363.176997) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMSY10-0" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-34" transform="translate(145.621947 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="text_65">
+     <!-- Exterior Mass Coordinate [M$_{\odot}$] -->
+     <g transform="translate(472.496399 376.586155) scale(0.1 -0.1)">
+      <defs>
+       <path id="CMR17-78" d="M 1664 1491 
+C 1856 1740 2074 2022 2253 2233 
+C 2464 2476 2707 2579 2989 2585 
+L 2989 2752 
+C 2880 2745 2656 2739 2541 2739 
+C 2368 2739 2170 2739 2022 2752 
+L 2022 2585 
+C 2112 2572 2163 2508 2163 2419 
+C 2163 2304 2099 2233 2067 2188 
+L 1594 1587 
+L 1030 2323 
+C 973 2393 973 2406 973 2438 
+C 973 2515 1037 2579 1146 2585 
+L 1146 2752 
+C 992 2739 717 2739 557 2739 
+C 384 2739 179 2739 38 2752 
+L 38 2585 
+C 384 2585 461 2560 614 2368 
+L 1350 1414 
+C 1363 1401 1395 1363 1395 1344 
+C 1395 1318 838 633 768 544 
+C 480 198 179 172 6 166 
+L 6 0 
+C 115 6 339 12 454 12 
+C 582 12 864 12 979 0 
+L 979 166 
+C 941 172 838 185 838 332 
+C 838 448 890 518 947 595 
+L 1478 1248 
+L 2035 524 
+C 2086 454 2163 358 2163 313 
+C 2163 224 2086 172 1984 166 
+L 1984 0 
+C 2138 12 2413 12 2573 12 
+C 2746 12 2950 12 3091 0 
+L 3091 166 
+C 2771 166 2675 179 2522 377 
+L 1664 1491 
+z
+" transform="scale(0.015625)"/>
+       <path id="CMR17-64" d="M 1869 4345 
+L 1869 4179 
+C 2246 4179 2304 4141 2304 3843 
+L 2304 2371 
+C 2278 2403 2016 2816 1498 2816 
+C 845 2816 211 2228 211 1376 
+C 211 529 806 -64 1434 -64 
+C 1978 -64 2259 361 2291 406 
+L 2291 -64 
+L 3066 -13 
+L 3066 154 
+C 2688 154 2630 193 2630 503 
+L 2630 4416 
+L 1869 4345 
+z
+M 2291 762 
+C 2291 568 2176 393 2029 264 
+C 1811 70 1594 38 1472 38 
+C 1286 38 621 135 621 1369 
+C 621 2636 1363 2713 1530 2713 
+C 1824 2713 2061 2545 2208 2313 
+C 2291 2177 2291 2157 2291 2041 
+L 2291 762 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMR17-45" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-78" transform="translate(62.586301 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-74" transform="translate(110.879216 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(146.159984 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-72" transform="translate(186.645645 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-69" transform="translate(221.926412 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6f" transform="translate(246.797471 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-72" transform="translate(292.487948 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-4d" transform="translate(357.844682 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-61" transform="translate(442.531623 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-73" transform="translate(488.2221 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-73" transform="translate(524.023438 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-43" transform="translate(589.900741 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6f" transform="translate(656.410622 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6f" transform="translate(704.703538 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-72" transform="translate(750.394015 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-64" transform="translate(785.674783 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-69" transform="translate(836.570153 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6e" transform="translate(861.441211 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-61" transform="translate(912.336581 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-74" transform="translate(958.027058 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(993.307826 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5b" transform="translate(1063.869453 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-4d" transform="translate(1088.740511 0) scale(0.996264)"/>
+      <use xlink:href="#CMSY10-c" transform="translate(1173.427452 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-5d" transform="translate(1228.166577 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+   <g id="matplotlib.axis_16">
+    <g id="ytick_157">
+     <g id="line2d_483">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="479.848007" y="331.827188" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_66">
+      <!-- $\mathdefault{10^{-1}}$ -->
+      <g transform="translate(456.187433 335.286437) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMSY10-0" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-31" transform="translate(145.621947 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_158">
+     <g id="line2d_484">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="479.848007" y="307.187188" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_67">
+      <!-- $\mathdefault{10^{1}}$ -->
+      <g transform="translate(462.414099 310.646437) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-31" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_159">
+     <g id="line2d_485">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="479.848007" y="282.547188" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_68">
+      <!-- $\mathdefault{10^{3}}$ -->
+      <g transform="translate(462.414099 286.006437) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-33" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_160">
+     <g id="line2d_486">
+      <g>
+       <use xlink:href="#m90fe90b7fd" x="479.848007" y="257.907188" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_69">
+      <!-- $\mathdefault{10^{5}}$ -->
+      <g transform="translate(462.414099 261.366437) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-35" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="text_70">
+     <!-- Density [g/cm$^3$] -->
+     <g style="fill: #1f77b4" transform="translate(449.696773 331.890316) rotate(-90) scale(0.1 -0.1)">
+      <use xlink:href="#CMR17-44" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(70.393556 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6e" transform="translate(110.879216 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-73" transform="translate(161.774586 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-69" transform="translate(197.575924 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-74" transform="translate(222.446982 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-79" transform="translate(255.125296 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5b" transform="translate(333.494178 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-67" transform="translate(358.365237 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-2f" transform="translate(404.055714 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-63" transform="translate(449.746191 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6d" transform="translate(490.231852 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-33" transform="translate(567.151441 36.153639) scale(0.697382)"/>
+      <use xlink:href="#CMR17-5d" transform="translate(599.632755 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+   <g id="line2d_487">
+    <path d="M 642.419762 356.062424 
+L 635.729765 352.705846 
+L 635.457897 352.485722 
+L 633.876566 351.743255 
+L 631.705237 350.64829 
+L 625.024017 347.168497 
+L 617.85351 343.318935 
+L 616.78707 342.688046 
+L 616.02846 342.280456 
+L 611.699207 339.861648 
+L 610.635895 339.235447 
+L 607.696429 337.656607 
+L 607.299176 337.294849 
+L 606.070701 336.776703 
+L 605.749142 336.519185 
+L 595.946629 331.196786 
+L 595.322306 330.816768 
+L 594.292143 330.297557 
+L 586.534941 325.973826 
+L 585.886738 325.397023 
+L 585.137886 325.009481 
+L 584.525004 324.643574 
+L 582.667464 323.648473 
+L 581.733037 323.067773 
+L 579.84892 322.108426 
+L 577.381009 320.74559 
+L 571.95164 317.794062 
+L 567.830996 315.575771 
+L 566.498739 314.924214 
+L 565.940713 314.6199 
+L 549.309257 305.63499 
+L 548.790397 305.336773 
+L 538.52007 299.569956 
+L 535.299426 297.579288 
+L 533.88416 296.515688 
+L 532.729318 295.525939 
+L 532.307722 295.025189 
+L 531.907919 294.654387 
+L 531.527764 294.11497 
+L 530.990415 293.437609 
+L 529.847993 291.81526 
+L 529.504806 291.300477 
+L 528.463371 289.927351 
+L 528.463371 289.996245 
+L 528.393872 289.64671 
+L 527.360959 288.932738 
+L 526.281613 288.301426 
+L 519.271516 283.040916 
+L 517.687489 282.039588 
+L 516.809442 281.509897 
+L 516.355865 281.190067 
+L 514.322763 279.884945 
+L 512.698759 278.754871 
+L 511.988331 278.288447 
+L 510.820722 277.385628 
+L 508.87555 275.824968 
+L 507.688911 274.647179 
+L 506.969537 273.618874 
+L 506.703731 273.073848 
+L 506.438043 272.266669 
+L 506.198039 270.760763 
+L 506.072937 270.384743 
+L 505.734949 270.142259 
+L 505.365934 269.924633 
+L 504.513757 269.609643 
+L 504.249353 269.434043 
+L 502.821133 268.83004 
+L 502.517193 268.639677 
+L 501.02842 268.019718 
+L 500.718892 267.816187 
+L 499.602437 267.390003 
+L 499.354743 267.217006 
+L 498.417582 266.836102 
+L 498.086732 266.642694 
+L 496.997572 266.190609 
+L 493.612773 264.684205 
+L 479.658882 258.290397 
+L 478.958776 257.986514 
+L 476.785664 256.995681 
+L 475.607355 256.468225 
+L 473.901115 255.644516 
+L 472.319556 254.959016 
+L 472.017035 254.748342 
+L 470.554876 254.131544 
+L 465.873318 251.925492 
+L 465.588931 251.710295 
+L 464.07242 251.043477 
+L 457.9308 248.030731 
+L 457.22769 247.676918 
+L 454.894057 246.429186 
+L 454.71305 246.266273 
+L 447.783557 242.485797 
+L 447.15406 242.110058 
+L 446.101719 241.42443 
+L 444.735641 240.673622 
+L 444.215945 240.307044 
+L 442.496448 239.23756 
+L 434.552051 233.64532 
+L 432.573922 232.054978 
+L 431.332212 231.025193 
+L 431.035775 230.738337 
+L 428.919708 228.766866 
+L 426.875026 226.625774 
+L 424.551636 223.540039 
+L 424.010977 222.485745 
+L 423.832753 221.852635 
+L 423.832753 221.852635 
+" clip-path="url(#pcab37aa117)" style="fill: none; stroke: #1f77b4; stroke-width: 1.5; stroke-linecap: square"/>
+   </g>
+   <g id="line2d_488"/>
+   <g id="patch_38">
+    <path d="M 479.848007 352.758498 
+L 479.848007 241.878498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_39">
+    <path d="M 602.823213 352.758498 
+L 602.823213 241.878498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_40">
+    <path d="M 479.848007 352.758498 
+L 602.823213 352.758498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_41">
+    <path d="M 479.848007 241.878498 
+L 602.823213 241.878498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="legend_7">
+    <g id="line2d_489">
+     <path d="M 568.293017 251.878498 
+L 576.293017 251.878498 
+L 584.293017 251.878498 
+" style="fill: none; stroke: #1f77b4; stroke-width: 1.5; stroke-linecap: square"/>
+    </g>
+    <g id="text_71">
+     <!-- $\rho$ -->
+     <g transform="translate(590.693017 254.678498) scale(0.08 -0.08)">
+      <defs>
+       <path id="CMMI12-1a" d="M 198 -1085 
+C 192 -1116 179 -1154 179 -1191 
+C 179 -1287 256 -1351 352 -1351 
+C 448 -1351 538 -1287 576 -1198 
+C 602 -1141 781 -390 986 389 
+C 1114 70 1350 -64 1600 -64 
+C 2323 -64 3142 830 3142 1794 
+C 3142 2477 2726 2816 2285 2816 
+C 1722 2816 1037 2234 826 1385 
+L 198 -1085 
+z
+M 1594 64 
+C 1158 64 1050 568 1050 645 
+C 1050 683 1210 1289 1229 1385 
+C 1555 2656 2182 2687 2278 2687 
+C 2566 2687 2726 2426 2726 2049 
+C 2726 1724 2554 1091 2445 823 
+C 2253 383 1920 64 1594 64 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMMI12-1a" transform="scale(0.996264)"/>
+     </g>
+    </g>
+    <g id="line2d_490">
+     <path d="M 568.293017 263.028244 
+L 576.293017 263.028244 
+L 584.293017 263.028244 
+" style="fill: none; stroke-dasharray: 5.55,2.4; stroke-dashoffset: 0; stroke: #ff7f0e; stroke-width: 1.5"/>
+    </g>
+    <g id="text_72">
+     <!-- $T$ -->
+     <g transform="translate(590.693017 265.828244) scale(0.08 -0.08)">
+      <use xlink:href="#CMMI12-54" transform="scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+  </g>
+  <g id="axes_9">
+   <g id="matplotlib.axis_17">
+    <g id="ytick_161">
+     <g id="line2d_491">
+      <g>
+       <use xlink:href="#m5c5963373f" x="387.616602" y="227.814071" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_73">
+      <!-- $\mathdefault{10^{-2}}$ -->
+      <g transform="translate(391.116602 231.273321) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMSY10-0" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-32" transform="translate(145.621947 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_162">
+     <g id="line2d_492">
+      <g>
+       <use xlink:href="#m5c5963373f" x="387.616602" y="175.922014" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_74">
+      <!-- $\mathdefault{10^{-1}}$ -->
+      <g transform="translate(391.116602 179.381263) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMSY10-0" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-31" transform="translate(145.621947 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_163">
+     <g id="line2d_493">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="387.616602" y="239.32626" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_164">
+     <g id="line2d_494">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="387.616602" y="235.852253" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_165">
+     <g id="line2d_495">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="387.616602" y="232.842931" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_166">
+     <g id="line2d_496">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="387.616602" y="230.188522" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_167">
+     <g id="line2d_497">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="387.616602" y="212.193006" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_168">
+     <g id="line2d_498">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="387.616602" y="203.055268" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_169">
+     <g id="line2d_499">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="387.616602" y="196.57194" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_170">
+     <g id="line2d_500">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="387.616602" y="191.54308" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_171">
+     <g id="line2d_501">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="387.616602" y="187.434202" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_172">
+     <g id="line2d_502">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="387.616602" y="183.960195" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_173">
+     <g id="line2d_503">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="387.616602" y="180.950874" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_174">
+     <g id="line2d_504">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="387.616602" y="178.296464" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_175">
+     <g id="line2d_505">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="387.616602" y="160.300948" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_176">
+     <g id="line2d_506">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="387.616602" y="151.16321" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_177">
+     <g id="line2d_507">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="387.616602" y="144.679882" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_178">
+     <g id="line2d_508">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="387.616602" y="139.651022" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_179">
+     <g id="line2d_509">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="387.616602" y="135.542144" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_180">
+     <g id="line2d_510">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="387.616602" y="132.068138" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="text_75">
+     <!-- Radius [$R_{\odot}$] -->
+     <g style="fill: #ff7f0e" transform="translate(422.749155 213.051856) rotate(-90) scale(0.1 -0.1)">
+      <defs>
+       <path id="CMR17-52" d="M 2509 2156 
+C 3117 2278 3629 2689 3629 3203 
+C 3629 3806 2950 4352 2054 4352 
+L 333 4352 
+L 333 4185 
+C 774 4185 845 4185 845 3896 
+L 845 428 
+C 845 140 774 140 333 140 
+L 333 -26 
+C 518 -13 851 -13 1050 -13 
+C 1248 -13 1581 -13 1766 -26 
+L 1766 140 
+C 1325 140 1254 140 1254 428 
+L 1254 2112 
+L 2003 2112 
+C 2368 2112 2573 1964 2662 1881 
+C 2918 1632 2918 1459 2918 1024 
+C 2918 595 2918 377 3110 160 
+C 3354 -103 3680 -128 3821 -128 
+C 4294 -128 4365 403 4365 512 
+C 4365 550 4365 595 4307 595 
+C 4256 595 4250 556 4250 531 
+C 4218 115 4032 -26 3834 -26 
+C 3482 -26 3443 377 3405 768 
+C 3386 902 3373 998 3360 1139 
+C 3322 1459 3270 1926 2509 2156 
+z
+M 1984 2214 
+L 1254 2214 
+L 1254 3935 
+C 1254 4153 1267 4185 1523 4185 
+L 1990 4185 
+C 2522 4185 3142 3999 3142 3203 
+C 3142 2374 2464 2214 1984 2214 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMR17-52" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-61" transform="translate(67.791102 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-64" transform="translate(113.481579 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-69" transform="translate(164.376949 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-75" transform="translate(189.248007 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-73" transform="translate(240.143377 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5b" transform="translate(306.020681 0) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-52" transform="translate(330.89174 0) scale(0.996264)"/>
+      <use xlink:href="#CMSY10-c" transform="translate(405.142565 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-5d" transform="translate(459.881691 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+   <g id="line2d_511">
+    <path d="M 270.231177 236.838498 
+L 297.323021 236.811973 
+L 311.79424 236.774351 
+L 319.663984 236.715532 
+L 322.988138 236.616104 
+L 323.86825 236.485732 
+L 324.110397 236.330925 
+L 324.188842 236.098032 
+L 324.207316 235.891126 
+L 324.215728 235.595309 
+L 324.219332 235.180737 
+L 324.220909 234.613022 
+L 324.22159 233.944854 
+L 324.221847 233.488999 
+L 324.222067 232.942901 
+L 324.222367 231.948168 
+L 324.222914 229.475267 
+L 324.223087 228.523576 
+L 324.223143 228.215744 
+L 324.223185 227.985241 
+L 324.223232 227.722199 
+L 324.223301 227.33308 
+L 324.223452 226.481705 
+L 324.223699 225.024971 
+L 324.223896 223.810446 
+L 324.224184 221.988654 
+L 324.224687 218.74724 
+L 324.225666 212.490047 
+L 324.227745 201.574198 
+L 324.231076 190.753088 
+L 324.237082 180.827238 
+L 324.249416 171.554379 
+L 324.276915 162.40631 
+L 324.33156 153.982456 
+L 324.429584 146.12787 
+L 324.576173 140.192669 
+L 324.756813 137.077266 
+L 324.931226 136.038498 
+L 325.088207 137.42189 
+L 325.418119 136.915856 
+L 325.805421 143.669317 
+L 326.208577 145.884409 
+L 326.694206 149.609436 
+L 327.402203 153.178326 
+L 328.446261 158.108918 
+L 330.324578 163.739489 
+L 333.259608 173.588911 
+L 337.553314 196.638187 
+L 342.364712 219.863756 
+L 353.163518 228.062496 
+L 371.917194 234.752455 
+L 379.704664 235.44226 
+L 382.02682 235.545096 
+" clip-path="url(#p29f8b43f1d)" style="fill: none; stroke-dasharray: 5.55,2.4; stroke-dashoffset: 0; stroke: #ff7f0e; stroke-width: 1.5"/>
+   </g>
+   <g id="patch_42">
+    <path d="M 264.641395 241.878498 
+L 264.641395 130.998498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_43">
+    <path d="M 387.616602 241.878498 
+L 387.616602 130.998498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_44">
+    <path d="M 264.641395 241.878498 
+L 387.616602 241.878498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_45">
+    <path d="M 264.641395 130.998498 
+L 387.616602 130.998498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+  </g>
+  <g id="axes_10">
+   <g id="matplotlib.axis_18">
+    <g id="ytick_181">
+     <g id="line2d_512">
+      <g>
+       <use xlink:href="#m5c5963373f" x="387.616602" y="329.534425" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_76">
+      <!-- $\mathdefault{10^{-8}}$ -->
+      <g transform="translate(391.116602 332.993674) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMSY10-0" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-38" transform="translate(145.621947 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_182">
+     <g id="line2d_513">
+      <g>
+       <use xlink:href="#m5c5963373f" x="387.616602" y="293.166277" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_77">
+      <!-- $\mathdefault{10^{-6}}$ -->
+      <g transform="translate(391.116602 296.625526) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMSY10-0" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-36" transform="translate(145.621947 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_183">
+     <g id="line2d_514">
+      <g>
+       <use xlink:href="#m5c5963373f" x="387.616602" y="256.79813" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_78">
+      <!-- $\mathdefault{10^{-4}}$ -->
+      <g transform="translate(391.116602 260.257379) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMSY10-0" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+       <use xlink:href="#CMR17-34" transform="translate(145.621947 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="text_79">
+     <!-- $\left\vert\dot{M}\right\vert$ [$M_{\odot}$/yr] -->
+     <g style="fill: #ff7f0e" transform="translate(426.734303 325.708595) rotate(-90) scale(0.1 -0.1)">
+      <defs>
+       <path id="CMEX10-c" d="M 928 -3738 
+C 928 -3840 928 -3975 1062 -3975 
+C 1203 -3975 1203 -3847 1203 -3738 
+L 1203 -103 
+C 1203 0 1203 134 1069 134 
+C 928 134 928 6 928 -103 
+L 928 -3738 
+z
+" transform="scale(0.015625)"/>
+      </defs>
+      <use xlink:href="#CMEX10-c" transform="translate(0 114.571273) scale(0.996264)"/>
+      <use xlink:href="#CMEX10-c" transform="translate(0 54.794825) scale(0.996264)"/>
+      <use xlink:href="#CMEX10-c" transform="translate(0 -4.981624) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5f" transform="translate(81.292519 25.189733) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-4d" transform="translate(33.208856 0) scale(0.996264)"/>
+      <use xlink:href="#CMEX10-c" transform="translate(137.988935 114.571273) scale(0.996264)"/>
+      <use xlink:href="#CMEX10-c" transform="translate(137.988935 54.794825) scale(0.996264)"/>
+      <use xlink:href="#CMEX10-c" transform="translate(137.988935 -4.981624) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5b" transform="translate(201.273757 0) scale(0.996264)"/>
+      <use xlink:href="#CMMI12-4d" transform="translate(226.144816 0) scale(0.996264)"/>
+      <use xlink:href="#CMSY10-c" transform="translate(320.518241 -14.943915) scale(0.697382)"/>
+      <use xlink:href="#CMR17-2f" transform="translate(375.257366 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-79" transform="translate(420.947843 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-72" transform="translate(469.240759 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5d" transform="translate(504.521527 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+   <g id="line2d_515">
+    <path d="M 270.231177 347.718498 
+L 297.323021 347.718498 
+L 311.79424 347.718498 
+L 319.663984 347.718498 
+L 322.988138 347.718498 
+L 323.86825 347.718498 
+L 324.110397 347.718498 
+L 324.188842 347.718498 
+L 324.207316 347.718498 
+L 324.215728 347.718498 
+L 324.219332 347.718498 
+L 324.220909 347.718498 
+L 324.22159 347.718498 
+L 324.221847 347.718498 
+L 324.222067 347.718498 
+L 324.222367 347.718498 
+L 324.222914 347.718498 
+L 324.223087 347.718498 
+L 324.223143 347.718498 
+L 324.223185 347.718498 
+L 324.223232 347.718498 
+L 324.223301 347.718498 
+L 324.223452 347.718498 
+L 324.223699 347.718498 
+L 324.223896 347.718498 
+L 324.224184 347.718498 
+L 324.224687 347.718498 
+L 324.225666 347.718498 
+L 324.227745 347.718498 
+L 324.231076 347.718498 
+L 324.237082 347.718498 
+L 324.249416 347.718498 
+L 324.276915 281.544814 
+L 324.33156 264.280076 
+L 324.429584 256.713625 
+L 324.576173 251.210518 
+L 324.756813 248.337855 
+L 324.931226 247.866903 
+L 325.088207 246.918498 
+L 325.418119 250.236673 
+L 325.805421 249.78435 
+L 326.208577 252.639623 
+L 326.694206 254.45505 
+L 327.402203 257.7652 
+L 328.446261 260.728345 
+L 330.324578 265.570014 
+L 333.259608 268.673533 
+L 337.553314 275.189106 
+L 342.364712 286.625092 
+L 353.163518 347.718498 
+L 371.917194 347.718498 
+L 379.704664 347.718498 
+L 382.02682 347.718498 
+" clip-path="url(#pff3bfe5d17)" style="fill: none; stroke-dasharray: 5.55,2.4; stroke-dashoffset: 0; stroke: #ff7f0e; stroke-width: 1.5"/>
+   </g>
+   <g id="patch_46">
+    <path d="M 264.641395 352.758498 
+L 264.641395 241.878498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_47">
+    <path d="M 387.616602 352.758498 
+L 387.616602 241.878498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_48">
+    <path d="M 264.641395 352.758498 
+L 387.616602 352.758498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_49">
+    <path d="M 264.641395 241.878498 
+L 387.616602 241.878498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+  </g>
+  <g id="axes_11">
+   <g id="matplotlib.axis_19">
+    <g id="ytick_184">
+     <g id="line2d_516">
+      <g>
+       <use xlink:href="#m5c5963373f" x="602.823213" y="309.603169" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_80">
+      <!-- $\mathdefault{10^{7}}$ -->
+      <g transform="translate(606.323213 313.062418) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-37" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_185">
+     <g id="line2d_517">
+      <g>
+       <use xlink:href="#m5c5963373f" x="602.823213" y="247.86185" style="stroke: #000000; stroke-width: 0.8"/>
+      </g>
+     </g>
+     <g id="text_81">
+      <!-- $\mathdefault{10^{8}}$ -->
+      <g transform="translate(606.323213 251.3211) scale(0.1 -0.1)">
+       <use xlink:href="#CMR17-31" transform="scale(0.996264)"/>
+       <use xlink:href="#CMR17-30" transform="translate(45.690477 0) scale(0.996264)"/>
+       <use xlink:href="#CMR17-38" transform="translate(91.380954 36.153639) scale(0.697382)"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_186">
+     <g id="line2d_518">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="352.758498" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_187">
+     <g id="line2d_519">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="341.886392" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_188">
+     <g id="line2d_520">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="334.17251" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_189">
+     <g id="line2d_521">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="328.189158" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_190">
+     <g id="line2d_522">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="323.300403" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_191">
+     <g id="line2d_523">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="319.16702" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_192">
+     <g id="line2d_524">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="315.586521" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_193">
+     <g id="line2d_525">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="312.428297" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_194">
+     <g id="line2d_526">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="291.01718" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_195">
+     <g id="line2d_527">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="280.145073" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_196">
+     <g id="line2d_528">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="272.431191" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_197">
+     <g id="line2d_529">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="266.447839" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_198">
+     <g id="line2d_530">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="261.559085" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_199">
+     <g id="line2d_531">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="257.425702" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_200">
+     <g id="line2d_532">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="253.845202" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="ytick_201">
+     <g id="line2d_533">
+      <g>
+       <use xlink:href="#m8ac12babb3" x="602.823213" y="250.686978" style="stroke: #000000; stroke-width: 0.6"/>
+      </g>
+     </g>
+    </g>
+    <g id="text_82">
+     <!-- Temperature [K] -->
+     <g style="fill: #ff7f0e" transform="translate(631.729102 333.599179) rotate(-90) scale(0.1 -0.1)">
+      <use xlink:href="#CMR17-54" transform="scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(58.702625 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-6d" transform="translate(99.188286 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-70" transform="translate(176.107875 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(229.605684 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-72" transform="translate(270.091344 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-61" transform="translate(305.372112 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-74" transform="translate(351.062589 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-75" transform="translate(386.343357 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-72" transform="translate(437.238727 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-65" transform="translate(472.519495 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5b" transform="translate(543.081122 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-4b" transform="translate(567.95218 0) scale(0.996264)"/>
+      <use xlink:href="#CMR17-5d" transform="translate(639.626957 0) scale(0.996264)"/>
+     </g>
+    </g>
+   </g>
+   <g id="line2d_534">
+    <path d="M 642.419762 358.164005 
+L 639.776719 355.973168 
+L 638.937146 355.224119 
+L 636.955285 353.504303 
+L 636.011535 352.783265 
+L 635.729765 352.544558 
+L 635.457897 352.164924 
+L 634.533171 351.510225 
+L 633.876566 350.900795 
+L 633.521582 350.627042 
+L 633.243264 350.271418 
+L 632.714158 349.797687 
+L 631.705237 349.036348 
+L 623.45888 342.08703 
+L 622.62039 341.495391 
+L 621.9771 340.877635 
+L 621.059603 340.175501 
+L 619.498148 339.019735 
+L 616.78707 336.889661 
+L 616.211254 336.53591 
+L 615.675341 336.073454 
+L 615.174157 335.706299 
+L 613.746418 334.650722 
+L 612.912274 334.053448 
+L 611.256136 332.676022 
+L 607.696429 330.125469 
+L 607.299176 329.633648 
+L 606.070701 328.950094 
+L 605.749142 328.602873 
+L 597.285508 322.464587 
+L 597.103289 322.263713 
+L 596.421335 321.793563 
+L 590.721844 317.503995 
+L 590.539384 317.297959 
+L 590.016489 316.882879 
+L 589.220486 316.31426 
+L 581.916653 310.766936 
+L 581.733037 310.521695 
+L 580.731706 309.831948 
+L 580.193654 309.404847 
+L 579.67555 309.009259 
+L 578.311608 307.913038 
+L 576.26007 306.285921 
+L 576.060408 306.042536 
+L 575.274908 305.458114 
+L 573.067476 303.658978 
+L 571.68361 302.480467 
+L 570.291087 301.306127 
+L 567.549431 299.043099 
+L 565.999454 297.752956 
+L 564.182645 296.190712 
+L 548.34712 282.740721 
+L 547.746374 282.250861 
+L 547.338742 281.912514 
+L 533.066669 270.182672 
+L 528.463371 267.19019 
+L 528.463371 267.254984 
+L 528.46337 267.858405 
+L 528.393872 267.803476 
+L 527.360959 267.100471 
+L 526.664806 266.655061 
+L 525.779965 266.170551 
+L 524.721294 265.408855 
+L 523.166313 264.396091 
+L 523.028517 264.22194 
+L 522.560158 263.908527 
+L 518.997497 261.321786 
+L 517.093435 260.146431 
+L 515.900569 259.527191 
+L 514.605123 258.918728 
+L 512.698759 258.370363 
+L 511.295185 258.332891 
+L 510.475706 258.540082 
+L 509.487688 259.090117 
+L 508.105883 261.005821 
+L 507.620986 262.320371 
+L 507.124951 264.337387 
+L 506.623062 268.780317 
+L 506.398966 273.644963 
+L 506.227636 283.373949 
+L 506.072937 290.892137 
+L 505.926274 290.99787 
+L 505.365934 290.359335 
+L 504.513757 289.809578 
+L 504.249353 289.49653 
+L 502.821133 288.504898 
+L 502.517193 288.141959 
+L 501.228358 287.285031 
+L 500.718892 286.75562 
+L 499.602437 286.068125 
+L 499.354743 285.792165 
+L 498.626962 285.389801 
+L 498.086732 284.905038 
+L 497.365689 284.473204 
+L 493.879494 282.339626 
+L 490.354017 280.473261 
+L 485.697354 278.482526 
+L 481.645311 277.053743 
+L 479.185178 276.385601 
+L 478.553107 276.181147 
+L 476.393829 275.67399 
+L 476.158641 275.579315 
+L 472.319556 274.784382 
+L 471.420313 274.60944 
+L 456.65403 272.421873 
+L 442.496448 270.593444 
+L 424.25825 267.861965 
+L 423.832753 267.714055 
+L 423.832753 267.714055 
+" clip-path="url(#pcab37aa117)" style="fill: none; stroke-dasharray: 5.55,2.4; stroke-dashoffset: 0; stroke: #ff7f0e; stroke-width: 1.5"/>
+   </g>
+   <g id="patch_50">
+    <path d="M 479.848007 352.758498 
+L 479.848007 241.878498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_51">
+    <path d="M 602.823213 352.758498 
+L 602.823213 241.878498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_52">
+    <path d="M 479.848007 352.758498 
+L 602.823213 352.758498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+   <g id="patch_53">
+    <path d="M 479.848007 241.878498 
+L 602.823213 241.878498 
+" style="fill: none; stroke: #000000; stroke-width: 0.8; stroke-linejoin: miter; stroke-linecap: square"/>
+   </g>
+  </g>
+ </g>
+ <defs>
+  <clipPath id="pe718edf0d6">
+   <rect x="44.823213" y="20.118498" width="169.090909" height="144.626087"/>
+  </clipPath>
+  <clipPath id="p5265ae6f6b">
+   <rect x="44.823213" y="208.132411" width="169.090909" height="144.626087"/>
+  </clipPath>
+  <clipPath id="p52a4ed9b48">
+   <rect x="264.641395" y="20.118498" width="122.975207" height="110.88"/>
+  </clipPath>
+  <clipPath id="p29f8b43f1d">
+   <rect x="264.641395" y="130.998498" width="122.975207" height="110.88"/>
+  </clipPath>
+  <clipPath id="pff3bfe5d17">
+   <rect x="264.641395" y="241.878498" width="122.975207" height="110.88"/>
+  </clipPath>
+  <clipPath id="p44fb4cba12">
+   <rect x="479.848007" y="20.118498" width="122.975207" height="110.88"/>
+  </clipPath>
+  <clipPath id="p70c8d29025">
+   <rect x="479.848007" y="130.998498" width="122.975207" height="110.88"/>
+  </clipPath>
+  <clipPath id="pcab37aa117">
+   <rect x="479.848007" y="241.878498" width="122.975207" height="110.88"/>
+  </clipPath>
+ </defs>
+</svg>
diff --git a/star/test_suite/wd_nova_burst/inlist_pgstar b/star/test_suite/wd_nova_burst/inlist_pgstar
new file mode 100644
index 000000000..d4cf93dbc
--- /dev/null
+++ b/star/test_suite/wd_nova_burst/inlist_pgstar
@@ -0,0 +1,64 @@
+&pgstar
+
+   ! device
+   file_white_on_black_flag = .true.
+   file_device = 'vcps'      ! postscript
+   file_extension = 'ps'
+   !file_device = 'png'      ! png
+   !file_extension = 'png'
+
+   pgstar_interval = 1
+
+   Grid8_win_flag = .true.
+   Grid8_win_width = 12
+   Grid8_title = 'wd_nova_burst'
+
+   Summary_Burn_xaxis_name = 'logxq'
+   Summary_Burn_xaxis_reversed = .true.
+   Summary_Burn_xmin = -14 ! -101d0 ! only used if /= -101d0
+   Summary_Burn_xmax = -3 ! -101d0 ! only used if /= -101d0
+   Summary_Burn_title = ' '
+
+
+   Abundance_title = ' '
+   Abundance_xaxis_name = 'logxq'
+   Abundance_xaxis_reversed = .true.
+   Abundance_xmin = -14 ! -101d0 ! only used if /= -101d0
+   Abundance_xmax = -3 ! -101d0 ! only used if /= -101d0
+   Abundance_txt_scale = 0.8
+   Abundance_legend_max_cnt = 0
+
+   HR_title = ' '
+   HR_txt_scale = 0.8
+   HR_logT_min = 4.5
+   HR_logT_max = 6.0
+   HR_logL_min = -1.0
+   HR_logL_max = 5.0
+
+
+   TRho_title = ' '
+   TRho_txt_scale = 0.8
+   TRho_logT_min = -101d0
+   TRho_logT_max = -101d0
+   TRho_logRho_min = -101d0
+   TRho_logRho_max = -101d0
+
+
+   TRho_Profile_title = ' '
+   TRho_Profile_txt_scale = 0.7
+   TRho_Profile_xmin = -8.0
+   TRho_Profile_xmax = 9.0
+   TRho_Profile_ymin = 5.0
+   TRho_Profile_ymax = 9.0
+
+   Text_Summary1_name(5,2) = 'time_step_sec'
+   Text_Summary1_name(6,2) = 'max_tau_conv'
+
+   Grid8_file_flag = .true.
+   Grid8_file_dir = 'pgstar_out'
+   Grid8_file_prefix = 'grid8_'
+   Grid8_file_interval = 10000
+   Grid8_file_width = -1
+   Grid8_file_aspect_ratio = -1
+
+/ ! end of pgstar namelist
diff --git a/star/test_suite/wd_nova_burst/inlist_setup b/star/test_suite/wd_nova_burst/inlist_setup
index cb46aa22a..ee9e1c644 100644
--- a/star/test_suite/wd_nova_burst/inlist_setup
+++ b/star/test_suite/wd_nova_burst/inlist_setup
@@ -4,35 +4,35 @@
 
 &star_job
 
-      show_log_description_at_start = .false.
-      
-      load_saved_model = .true.
-      load_model_filename = '1.1M_lgTc_7.7.mod'  ! from make_o_ne_wd test case
+   show_log_description_at_start = .false.
 
-      save_model_when_terminate = .true.
-      save_model_filename = 'ready.mod'
-      required_termination_code_string = 'max_age'
-      
-      change_initial_net = .true.      
-      new_net_name = 'cno_extras_o18_to_mg26_plus_fe56.net'
-      auto_extend_net = .false.
+   load_saved_model = .true.
+   load_model_filename = '1.1M_lgTc_7.7.mod'  ! from make_o_ne_wd test case
 
-      change_v_flag = .true.
-      new_v_flag = .true.
+   save_model_when_terminate = .true.
+   save_model_filename = 'ready.mod'
+   required_termination_code_string = 'max_age'
 
-      set_tau_factor = .true.
-      set_to_this_tau_factor = 30
+   change_initial_net = .true.
+   new_net_name = 'cno_extras_o18_to_mg26_plus_fe56.net'
+   auto_extend_net = .false.
 
-      set_initial_dt = .true.
-      years_for_initial_dt = 1d6
+   change_v_flag = .true.
+   new_v_flag = .true.
 
-      set_initial_age = .true.
-      initial_age = 0
+   set_tau_factor = .true.
+   set_to_this_tau_factor = 30
 
-      set_initial_model_number = .true.
-      initial_model_number = 0
+   set_initial_dt = .true.
+   years_for_initial_dt = 1d6
 
-       !pgstar_flag = .true.
+   set_initial_age = .true.
+   initial_age = 0
+
+   set_initial_model_number = .true.
+   initial_model_number = 0
+
+   !pgstar_flag = .true.
 
 
 / ! end of star_job namelist
@@ -42,126 +42,126 @@
 /
 
 &kap
-      Zbase = 0.02d0
+   Zbase = 0.02d0
 
-      use_Type2_opacities = .true.
+   use_Type2_opacities = .true.
 
 / ! end of kap namelist
 
 
 &controls
 
-      ! limit max_model_number as part of test_suite
-      max_model_number = 1800 ! 1300
-      
-      max_age = 1d7
-      
+   ! limit max_model_number as part of test_suite
+   max_model_number = 1800 ! 1300
+
+   max_age = 1d7
+
 ! solver
-      energy_eqn_option = 'eps_grav'
-      use_gold2_tolerances = .true.
+   energy_eqn_option = 'eps_grav'
+   use_gold2_tolerances = .true.
+
+   limit_for_rel_error_in_energy_conservation = 1d-5
+   hard_limit_for_rel_error_in_energy_conservation = 1d-3
+
+   use_gold_tolerances = .false.
+   warning_limit_for_max_residual = 1d99
+   convergence_ignore_equL_residuals = .true.
+
+
+   mass_change_full_on_dt = 1d-6 ! (seconds)
+   mass_change_full_off_dt = 1d-6 ! (seconds)
 
-      limit_for_rel_error_in_energy_conservation = 1d-5
-      hard_limit_for_rel_error_in_energy_conservation = 1d-3
+   ! NOTE: for super eddington wind,
+   ! we use Ledd averaged over mass to optical depth tau = 100
+   super_eddington_scaling_factor = 1
+   ! parameter for mass loss driven by super Eddington luminosity
+   super_eddington_wind_Ledd_factor = 1
+   ! multiply Ledd by this factor when computing super Eddington wind
+   ! e.g., if this is 2, then only get wind when L > 2*Ledd
 
-      use_gold_tolerances = .false.
-      warning_limit_for_max_residual = 1d99
-      convergence_ignore_equL_residuals = .true.
+   mixing_length_alpha = 1.9
+   MLT_option = 'Henyey'
 
+   use_Ledoux_criterion = .true.
+   alpha_semiconvection = 1d-3
+   thermohaline_coeff = 1d3
 
-      mass_change_full_on_dt = 1d-6 ! (seconds)
-      mass_change_full_off_dt = 1d-6 ! (seconds)
+   star_mass_max_limit = 1.301d0
 
-      ! NOTE: for super eddington wind,
-      ! we use Ledd averaged over mass to optical depth tau = 100
-      super_eddington_scaling_factor = 1
-         ! parameter for mass loss driven by super Eddington luminosity        
-      super_eddington_wind_Ledd_factor = 1
-         ! multiply Ledd by this factor when computing super Eddington wind
-         ! e.g., if this is 2, then only get wind when L > 2*Ledd
+   !mass_change = 1d-9
+   accrete_same_as_surface = .false.
+   accretion_h1 = 0.7000 ! Estimate Nomoto 2007
+   accretion_h2 = 0
+   accretion_he3 = 0.292910D-04
+   accretion_he4 = 0.279971 ! Estimated Nomoto 2007
+   accretion_zfracs = 4 ! Lodders 03
 
-      mixing_length_alpha = 1.9
-      MLT_option = 'Henyey'
+   min_timestep_limit = 1d-12
 
-      use_Ledoux_criterion = .true.
-      alpha_semiconvection = 1d-3
-      thermohaline_coeff = 1d3         
+   xa_function_species(1) = 'h1'  ! name of nuclide as defined in chem_def
+   xa_function_weight(1) = 20
+   xa_function_param(1) = 1d-6
+   xa_function_species(2) = 'he4'  ! name of nuclide as defined in chem_def
+   xa_function_weight(2) = 20
+   xa_function_param(2) = 1d-2
 
-      star_mass_max_limit = 1.301d0
-   
-      !mass_change = 1d-9
-      accrete_same_as_surface = .false. 
-      accretion_h1 = 0.7000 ! Estimate Nomoto 2007
-      accretion_h2 = 0
-      accretion_he3 = 0.292910D-04
-      accretion_he4 = 0.279971 ! Estimated Nomoto 2007
-      accretion_zfracs = 4 ! Lodders 03
-      
-      min_timestep_limit = 1d-12
+   delta_lgL_H_limit = 0.1 ! limit for magnitude of change in lgL_H
+   lgL_H_burn_min = -0.5 ! ignore changes in lgL_H if value is less than this
 
-      xa_function_species(1) = 'h1'  ! name of nuclide as defined in chem_def
-      xa_function_weight(1) = 20
-      xa_function_param(1) = 1d-6
-      xa_function_species(2) = 'he4'  ! name of nuclide as defined in chem_def
-      xa_function_weight(2) = 20
-      xa_function_param(2) = 1d-2
+   delta_lgL_He_limit = 0.25 ! limit for magnitude of change in lgL_He
+   lgL_He_burn_min = 2.5 ! ignore changes in lgL_He if value is less than this
 
-      delta_lgL_H_limit = 0.1 ! limit for magnitude of change in lgL_H
-      lgL_H_burn_min = -0.5 ! ignore changes in lgL_H if value is less than this
+   delta_lgRho_limit = 1 ! limit for magnitude of max change in log10 density at any point
+   delta_lgRho_hard_limit = -1
 
-      delta_lgL_He_limit = 0.25 ! limit for magnitude of change in lgL_He
-      lgL_He_burn_min = 2.5 ! ignore changes in lgL_He if value is less than this
-      
-      delta_lgRho_limit = 1 ! limit for magnitude of max change in log10 density at any point
-      delta_lgRho_hard_limit = -1
+   delta_lgT_limit = 0.5
+   delta_lgL_limit = 0.05
+   delta_lgTeff_limit = 0.10
 
-      delta_lgT_limit = 0.5
-      delta_lgL_limit = 0.05
-      delta_lgTeff_limit = 0.10 
-      
-      delta_lgL_nuc_limit = 0.05
-      delta_lgL_nuc_hard_limit = 0.10
-      lgL_nuc_burn_min = -3d0
+   delta_lgL_nuc_limit = 0.05
+   delta_lgL_nuc_hard_limit = 0.10
+   lgL_nuc_burn_min = -3d0
 
 
 
-      atm_option = 'T_tau'
-      atm_T_tau_relation = 'Eddington'
-      atm_T_tau_opacity = 'fixed'
-      Pextra_factor = 4
+   atm_option = 'T_tau'
+   atm_T_tau_relation = 'Eddington'
+   atm_T_tau_opacity = 'fixed'
+   Pextra_factor = 4
 
-      !varcontrol_target = 3d-4
+   !varcontrol_target = 3d-4
 
-      mesh_delta_coeff = 1.0
-      max_allowed_nz = 20000
+   mesh_delta_coeff = 1.0
+   max_allowed_nz = 20000
 
 
 
 
 
-      num_trace_history_values = 2
-      trace_history_value_name(1) = 'rel_E_err'
-      trace_history_value_name(2) = 'log_rel_run_E_err'
+   num_trace_history_values = 2
+   trace_history_value_name(1) = 'rel_E_err'
+   trace_history_value_name(2) = 'log_rel_run_E_err'
 
-      photo_interval = 50
-      profile_interval = 50
-      history_interval = 5
-      terminal_interval = 10 
-      write_header_frequency = 10
+   photo_interval = 50
+   profile_interval = 50
+   history_interval = 5
+   terminal_interval = 10
+   write_header_frequency = 10
 
 / ! end of controls namelist
 
 
 
 &pgstar
-         Grid8_win_flag = .true.
-         Grid8_win_width = 7
-         Summary_Burn_xaxis_name = 'logxq' 
-         Summary_Burn_xaxis_reversed = .true.
-         Summary_Burn_xmin = -14 ! -101d0 ! only used if /= -101d0
-         Summary_Burn_xmax = -3 ! -101d0 ! only used if /= -101d0
-         Abundance_xaxis_name = 'logxq' 
-         Abundance_xaxis_reversed = .true.
-         Abundance_xmin = -14 ! -101d0 ! only used if /= -101d0
-         Abundance_xmax = -3 ! -101d0 ! only used if /= -101d0
+   Grid8_win_flag = .true.
+   Grid8_win_width = 7
+   Summary_Burn_xaxis_name = 'logxq'
+   Summary_Burn_xaxis_reversed = .true.
+   Summary_Burn_xmin = -14 ! -101d0 ! only used if /= -101d0
+   Summary_Burn_xmax = -3 ! -101d0 ! only used if /= -101d0
+   Abundance_xaxis_name = 'logxq'
+   Abundance_xaxis_reversed = .true.
+   Abundance_xmin = -14 ! -101d0 ! only used if /= -101d0
+   Abundance_xmax = -3 ! -101d0 ! only used if /= -101d0
 / ! end of pgstar namelist
 
diff --git a/star/test_suite/wd_nova_burst/inlist_setup_header b/star/test_suite/wd_nova_burst/inlist_setup_header
index 74cab97c4..c31f63313 100644
--- a/star/test_suite/wd_nova_burst/inlist_setup_header
+++ b/star/test_suite/wd_nova_burst/inlist_setup_header
@@ -2,24 +2,24 @@
 &star_job
 
 
-      read_extra_star_job_inlist(2) = .true.
-      extra_star_job_inlist_name(2) = 'inlist_setup'
+   read_extra_star_job_inlist(2) = .true.
+   extra_star_job_inlist_name(2) = 'inlist_setup'
 
 / ! end of star_job namelist
 
 
 &eos
 
-      read_extra_eos_inlist(1) = .true.
-      extra_eos_inlist_name(1) = 'inlist_setup'
+   read_extra_eos_inlist(1) = .true.
+   extra_eos_inlist_name(1) = 'inlist_setup'
 
 / ! end of eos namelist
 
 
 &kap
 
-      read_extra_kap_inlist(1) = .true.
-      extra_kap_inlist_name(1) = 'inlist_setup'
+   read_extra_kap_inlist(1) = .true.
+   extra_kap_inlist_name(1) = 'inlist_setup'
 
 / ! end of kap namelist
 
@@ -27,8 +27,8 @@
 
 &controls
 
-      read_extra_controls_inlist(2) = .true.
-      extra_controls_inlist_name(2)= 'inlist_setup'
+   read_extra_controls_inlist(2) = .true.
+   extra_controls_inlist_name(2)= 'inlist_setup'
 
 / ! end of controls namelist
 
@@ -36,7 +36,7 @@
 
 &pgstar
 
-      read_extra_pgstar_inlist(2) = .true.
-      extra_pgstar_inlist_name(2)= 'inlist_setup'
+   read_extra_pgstar_inlist(2) = .true.
+   extra_pgstar_inlist_name(2)= 'inlist_setup'
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/wd_nova_burst/inlist_wd_nova_burst b/star/test_suite/wd_nova_burst/inlist_wd_nova_burst
index b9a6219db..e354063b9 100644
--- a/star/test_suite/wd_nova_burst/inlist_wd_nova_burst
+++ b/star/test_suite/wd_nova_burst/inlist_wd_nova_burst
@@ -4,35 +4,35 @@
 
 &star_job
 
-      show_log_description_at_start = .false.
-      
-      load_saved_model = .true.
-      load_model_filename = 'ready.mod' ! from running inlist_setup
+   show_log_description_at_start = .false.
 
-      save_model_when_terminate = .true.
-      save_model_filename = 'final.mod'
-      required_termination_code_string = 'extras_check_model'
+   load_saved_model = .true.
+   load_model_filename = 'ready.mod' ! from running inlist_setup
+
+   save_model_when_terminate = .true.
+   save_model_filename = 'final.mod'
+   required_termination_code_string = 'extras_check_model'
 
 !      save_model_when_terminate = .true.
 !      save_model_filename = 'start_of_wd_nova_burst.mod'
 !      required_termination_code_string = 'max_model_number'
 
-      set_initial_age = .true.
-      initial_age = 0
+   set_initial_age = .true.
+   initial_age = 0
 
-      set_initial_model_number = .true.
-      initial_model_number = 0
+   set_initial_model_number = .true.
+   initial_model_number = 0
 
-      set_tau_factor = .true.
-      set_to_this_tau_factor = 30
+   set_tau_factor = .true.
+   set_to_this_tau_factor = 30
 
-      set_initial_cumulative_energy_error = .true.
-      new_cumulative_energy_error = 0d0
+   set_initial_cumulative_energy_error = .true.
+   new_cumulative_energy_error = 0d0
 
-      set_initial_dt = .true.
-      years_for_initial_dt = 1d-5
+   set_initial_dt = .true.
+   years_for_initial_dt = 1d-5
 
-       !pgstar_flag = .true.
+   !pgstar_flag = .true.
 
 / ! end of star_job namelist
 
@@ -42,127 +42,127 @@
 
 
 &kap
-      Zbase = 0.02d0
+   Zbase = 0.02d0
 
-      use_Type2_opacities = .true.
+   use_Type2_opacities = .true.
 
 / ! end of kap namelist
 
 
 &controls
 
-      ! limit max_model_number as part of test_suite
-      !max_model_number = 223
-      max_model_number = 2250
-      
+   ! limit max_model_number as part of test_suite
+   !max_model_number = 223
+   max_model_number = 2250
+
 ! solver
 
-      energy_eqn_option = 'eps_grav'
-      
-      use_gold2_tolerances = .false.
-
-      limit_for_rel_error_in_energy_conservation = 1d-5
-      hard_limit_for_rel_error_in_energy_conservation = 1d-3
-
-      warning_limit_for_max_residual = 1d99
-      convergence_ignore_equL_residuals = .true.
-
-
-      mass_change_full_on_dt = 1d-6 ! (seconds)
-      mass_change_full_off_dt = 1d-6 ! (seconds)
-
-      ! NOTE: for super eddington wind,
-      ! we use Ledd averaged over mass to optical depth tau = 100
-      super_eddington_scaling_factor = 1
-         ! parameter for mass loss driven by super Eddington luminosity        
-      super_eddington_wind_Ledd_factor = 1
-         ! multiply Ledd by this factor when computing super Eddington wind
-         ! e.g., if this is 2, then only get wind when L > 2*Ledd
-
-      mixing_length_alpha = 1.9
-      MLT_option = 'TDC'
-
-      use_Ledoux_criterion = .true.
-      alpha_semiconvection = 1d-3
-      thermohaline_coeff = 1d3         
-   
-      mass_change = 1d-9
-      accrete_same_as_surface = .false. 
-      accretion_h1 = 0.7000 ! Estimate Nomoto 2007
-      accretion_h2 = 0
-      accretion_he3 = 0.292910D-04
-      accretion_he4 = 0.279971 ! Estimated Nomoto 2007
-      accretion_zfracs = 4 ! Lodders 03
-      
-      min_timestep_limit = 1d-12
-
-      xa_function_species(1) = 'h1'  ! name of nuclide as defined in chem_def
-      xa_function_weight(1) = 20
-      xa_function_param(1) = 1d-6
-      xa_function_species(2) = 'he4'  ! name of nuclide as defined in chem_def
-      xa_function_weight(2) = 20
-      xa_function_param(2) = 1d-2
-
-      delta_lgL_H_limit = 0.1 ! limit for magnitude of change in lgL_H
-      lgL_H_burn_min = -0.5 ! ignore changes in lgL_H if value is less than this
-
-      delta_lgL_He_limit = 0.25 ! limit for magnitude of change in lgL_He
-      lgL_He_burn_min = 2.5 ! ignore changes in lgL_He if value is less than this
-      
-      delta_lgRho_limit = 1 ! limit for magnitude of max change in log10 density at any point
-      delta_lgRho_hard_limit = -1
-
-      delta_lgT_limit = 0.5
-      delta_lgL_limit = 0.05
-      delta_lgTeff_limit = 0.10 
-      
-      delta_lgL_nuc_limit = 0.02
-      delta_lgL_nuc_hard_limit = 0.20
-      lgL_nuc_burn_min = -3d0
-
-      atm_option = 'T_tau'
-      atm_T_tau_relation = 'Eddington'
-      atm_T_tau_opacity = 'fixed'
-      Pextra_factor = 120 ! 4 * tau_factor
-
-      !varcontrol_target = 3d-4
-      
-      max_q_for_conv_timescale = 0.999999999d0
-
-      mesh_delta_coeff = 1.0
-      max_allowed_nz = 20000
-
-      num_trace_history_values = 2
-      trace_history_value_name(1) = 'rel_E_err'
-      trace_history_value_name(2) = 'log_rel_run_E_err'
-
-      photo_interval = 50
-      profile_interval = 50
-      history_interval = 5
-      terminal_interval = 10 
-      write_header_frequency = 10
-      
+   energy_eqn_option = 'eps_grav'
+
+   use_gold2_tolerances = .false.
+
+   limit_for_rel_error_in_energy_conservation = 1d-5
+   hard_limit_for_rel_error_in_energy_conservation = 1d-3
+
+   warning_limit_for_max_residual = 1d99
+   convergence_ignore_equL_residuals = .true.
+
+
+   mass_change_full_on_dt = 1d-6 ! (seconds)
+   mass_change_full_off_dt = 1d-6 ! (seconds)
+
+   ! NOTE: for super eddington wind,
+   ! we use Ledd averaged over mass to optical depth tau = 100
+   super_eddington_scaling_factor = 1
+   ! parameter for mass loss driven by super Eddington luminosity
+   super_eddington_wind_Ledd_factor = 1
+   ! multiply Ledd by this factor when computing super Eddington wind
+   ! e.g., if this is 2, then only get wind when L > 2*Ledd
+
+   mixing_length_alpha = 1.9
+   MLT_option = 'TDC'
+
+   use_Ledoux_criterion = .true.
+   alpha_semiconvection = 1d-3
+   thermohaline_coeff = 1d3
+
+   mass_change = 1d-9
+   accrete_same_as_surface = .false.
+   accretion_h1 = 0.7000 ! Estimate Nomoto 2007
+   accretion_h2 = 0
+   accretion_he3 = 0.292910D-04
+   accretion_he4 = 0.279971 ! Estimated Nomoto 2007
+   accretion_zfracs = 4 ! Lodders 03
+
+   min_timestep_limit = 1d-12
+
+   xa_function_species(1) = 'h1'  ! name of nuclide as defined in chem_def
+   xa_function_weight(1) = 20
+   xa_function_param(1) = 1d-6
+   xa_function_species(2) = 'he4'  ! name of nuclide as defined in chem_def
+   xa_function_weight(2) = 20
+   xa_function_param(2) = 1d-2
+
+   delta_lgL_H_limit = 0.1 ! limit for magnitude of change in lgL_H
+   lgL_H_burn_min = -0.5 ! ignore changes in lgL_H if value is less than this
+
+   delta_lgL_He_limit = 0.25 ! limit for magnitude of change in lgL_He
+   lgL_He_burn_min = 2.5 ! ignore changes in lgL_He if value is less than this
+
+   delta_lgRho_limit = 1 ! limit for magnitude of max change in log10 density at any point
+   delta_lgRho_hard_limit = -1
+
+   delta_lgT_limit = 0.5
+   delta_lgL_limit = 0.05
+   delta_lgTeff_limit = 0.10
+
+   delta_lgL_nuc_limit = 0.02
+   delta_lgL_nuc_hard_limit = 0.20
+   lgL_nuc_burn_min = -3d0
+
+   atm_option = 'T_tau'
+   atm_T_tau_relation = 'Eddington'
+   atm_T_tau_opacity = 'fixed'
+   Pextra_factor = 120 ! 4 * tau_factor
+
+   !varcontrol_target = 3d-4
+
+   max_q_for_conv_timescale = 0.999999999d0
+
+   mesh_delta_coeff = 1.0
+   max_allowed_nz = 20000
+
+   num_trace_history_values = 2
+   trace_history_value_name(1) = 'rel_E_err'
+   trace_history_value_name(2) = 'log_rel_run_E_err'
+
+   photo_interval = 50
+   profile_interval = 50
+   history_interval = 5
+   terminal_interval = 10
+   write_header_frequency = 10
+
 / ! end of controls namelist
 
 
 
 &pgstar
 
-         Grid8_win_flag = .true.
-         Grid8_win_width = 7
-         Summary_Burn_xaxis_name = 'logxq' 
-         Summary_Burn_xaxis_reversed = .true.
-         Summary_Burn_xmin = -14 ! -101d0 ! only used if /= -101d0
-         Summary_Burn_xmax = -3 ! -101d0 ! only used if /= -101d0
-         Abundance_xaxis_name = 'logxq' 
-         Abundance_xaxis_reversed = .true.
-         Abundance_xmin = -14 ! -101d0 ! only used if /= -101d0
-         Abundance_xmax = -3 ! -101d0 ! only used if /= -101d0
-
-    Text_Summary1_name(5,2) = 'time_step_sec'
-    Text_Summary1_name(6,2) = 'max_tau_conv'
-    !Text_Summary1_name(7,2) = 'cz_bot_radius'
-    !Text_Summary1_name(8,2) = 'cz_top_radius'
+   Grid8_win_flag = .true.
+   Grid8_win_width = 7
+   Summary_Burn_xaxis_name = 'logxq'
+   Summary_Burn_xaxis_reversed = .true.
+   Summary_Burn_xmin = -14 ! -101d0 ! only used if /= -101d0
+   Summary_Burn_xmax = -3 ! -101d0 ! only used if /= -101d0
+   Abundance_xaxis_name = 'logxq'
+   Abundance_xaxis_reversed = .true.
+   Abundance_xmin = -14 ! -101d0 ! only used if /= -101d0
+   Abundance_xmax = -3 ! -101d0 ! only used if /= -101d0
+
+   Text_Summary1_name(5,2) = 'time_step_sec'
+   Text_Summary1_name(6,2) = 'max_tau_conv'
+   !Text_Summary1_name(7,2) = 'cz_bot_radius'
+   !Text_Summary1_name(8,2) = 'cz_top_radius'
 
 / ! end of pgstar namelist
 
diff --git a/star/test_suite/wd_nova_burst/inlist_wd_nova_burst_header b/star/test_suite/wd_nova_burst/inlist_wd_nova_burst_header
index d15b65c35..0a8fe6886 100644
--- a/star/test_suite/wd_nova_burst/inlist_wd_nova_burst_header
+++ b/star/test_suite/wd_nova_burst/inlist_wd_nova_burst_header
@@ -2,24 +2,24 @@
 &star_job
 
 
-      read_extra_star_job_inlist(2) = .true.
-      extra_star_job_inlist_name(2) = 'inlist_wd_nova_burst'
+   read_extra_star_job_inlist(2) = .true.
+   extra_star_job_inlist_name(2) = 'inlist_wd_nova_burst'
 
 / ! end of star_job namelist
 
 
 &eos
 
-      read_extra_eos_inlist(1) = .true.
-      extra_eos_inlist_name(1) = 'inlist_wd_nova_burst'
+   read_extra_eos_inlist(1) = .true.
+   extra_eos_inlist_name(1) = 'inlist_wd_nova_burst'
 
 / ! end of eos namelist
 
 
 &kap
 
-      read_extra_kap_inlist(1) = .true.
-      extra_kap_inlist_name(1) = 'inlist_wd_nova_burst'
+   read_extra_kap_inlist(1) = .true.
+   extra_kap_inlist_name(1) = 'inlist_wd_nova_burst'
 
 / ! end of kap namelist
 
@@ -27,8 +27,8 @@
 
 &controls
 
-      read_extra_controls_inlist(2) = .true.
-      extra_controls_inlist_name(2)= 'inlist_wd_nova_burst'
+   read_extra_controls_inlist(2) = .true.
+   extra_controls_inlist_name(2)= 'inlist_wd_nova_burst'
 
 / ! end of controls namelist
 
@@ -36,7 +36,7 @@
 
 &pgstar
 
-      read_extra_pgstar_inlist(2) = .true.
-      extra_pgstar_inlist_name(2)= 'inlist_wd_nova_burst'
+   read_extra_pgstar_inlist(2) = .true.
+   extra_pgstar_inlist_name(2)= 'inlist_wd_nova_burst'
 
 / ! end of pgstar namelist
diff --git a/star/test_suite/wd_nova_burst/plot.py b/star/test_suite/wd_nova_burst/plot.py
new file mode 100644
index 000000000..79c072468
--- /dev/null
+++ b/star/test_suite/wd_nova_burst/plot.py
@@ -0,0 +1,207 @@
+import matplotlib.pyplot as plt
+import numpy as np
+import os
+import mesa_reader as mr
+
+# if the directory plt_out/ does not exits, make it
+if not os.path.exists("plt_out"):
+    os.makedirs("plt_out")
+
+# "MESA" styles for plotting
+# note that this requires having a LaTeX installation locally.
+# If you don't have that, you can comment out the "text.usetex" line.
+plt.rcParams['figure.figsize'] = (3.38, 2.535)
+plt.rcParams['lines.markersize'] = 4
+plt.rcParams['lines.linewidth'] = 1.5
+plt.rcParams["text.usetex"] = True
+plt.rcParams["font.size"] = 10
+plt.rcParams["font.family"] = "serif"
+plt.rcParams["font.serif"] = "Computer Modern Roman"
+plt.rcParams['axes.titlesize'] = 'medium'
+plt.rcParams['axes.labelsize'] = 'medium'
+plt.rcParams['legend.fontsize'] = 8
+plt.rcParams['legend.frameon'] = False
+plt.rcParams['figure.dpi'] = 300
+
+plt.rcParams['xtick.direction'] = 'in'
+plt.rcParams['ytick.direction'] = 'in'
+plt.rcParams['xtick.top'] = True
+plt.rcParams['ytick.right'] = True
+plt.rcParams['xtick.minor.visible'] = True
+plt.rcParams['ytick.minor.visible'] = True
+
+plt.rcParams['savefig.bbox'] = 'tight'
+plt.rcParams['savefig.pad_inches'] = 0.1
+plt.rcParams['savefig.dpi'] = 300
+plt.rcParams['savefig.format'] = 'svg'
+
+plt.rcParams['axes.formatter.use_mathtext'] = True
+
+# read in the history data from MESA
+l = mr.MesaLogDir("LOGS")
+h = l.history
+p = l.profile_data()
+
+import matplotlib.pyplot as plt
+from matplotlib.gridspec import GridSpec
+
+# Create a figure
+fig = plt.figure(figsize=(10, 6))
+
+# Create a GridSpec with 6 rows and 3 columns
+gs_outer = fig.add_gridspec(1,2, width_ratios=[1, 2])
+gs_left = gs_outer[0].subgridspec(2, 1, hspace=0.3)
+gs_right = gs_outer[1].subgridspec(3, 2, hspace=0, wspace=0.75)
+
+# First column: Two plots of roughly equal height
+ax1 = fig.add_subplot(gs_left[0])
+ax2 = fig.add_subplot(gs_left[1])
+
+# Second column: Three stacked axes sharing the same x-axis
+ax3 = fig.add_subplot(gs_right[0, 0])
+ax4 = fig.add_subplot(gs_right[1, 0])
+ax5 = fig.add_subplot(gs_right[2, 0])
+
+# Third column: Three stacked axes sharing a different x-axis
+ax6 = fig.add_subplot(gs_right[0, 1])
+ax7 = fig.add_subplot(gs_right[1, 1])
+ax8 = fig.add_subplot(gs_right[2, 1])
+
+# HR diagram
+ax1.loglog(h.Teff, h.L)
+ax1.set_xlabel(r"Effective Temperature [K]")
+ax1.set_ylabel(r"Luminosity [$L_{\odot}$]")
+ax1.invert_xaxis()
+# add marker to last point
+ax1.plot(h.Teff[-1], h.L[-1], 'o', color='C3')
+
+# T-Rho Profile
+# load data from MESA_DIR and save to arrays in T-Rho space
+plot_info_dir = os.path.join(os.environ['MESA_DIR'], 'data/star_data/plot_info')
+
+# degeneracy data
+psi4_file = os.path.join(plot_info_dir, 'psi4.data')
+psi4_data = np.genfromtxt(psi4_file)
+psi4_xs = 10**np.array(psi4_data.T[0])
+psi4_ys = 10**np.array(psi4_data.T[1])
+
+# hydrogen burn line
+hydrogen_burn_file = os.path.join(plot_info_dir, 'hydrogen_burn.data')
+hydrogen_burn_data = np.genfromtxt(hydrogen_burn_file)
+hydrogen_burn_xs = 10**np.array(hydrogen_burn_data.T[0])
+hydrogen_burn_ys = 10**np.array(hydrogen_burn_data.T[1])
+
+# helium burn line
+helium_burn_file = os.path.join(plot_info_dir, 'helium_burn.data')
+helium_burn_data = np.genfromtxt(helium_burn_file)
+helium_burn_xs = 10**np.array(helium_burn_data.T[0])
+helium_burn_ys = 10**np.array(helium_burn_data.T[1])
+
+# plot raw T-Rho data; sets limits for us
+ax2.loglog(p.Rho, p.T)
+
+# plot psi4 and hydrogen burn lines
+# preserve limits... shouldn't have to do it like this, but
+# autoscale commands always seem to fail.
+x_left, x_right = ax2.get_xlim()
+y_bottom, y_top = ax2.get_ylim()
+ax2.plot(psi4_xs, psi4_ys, color='lightgrey', ls=':', zorder=-5)
+ax2.plot(hydrogen_burn_xs, hydrogen_burn_ys, ls='--', color='lightgrey', zorder=-5)
+ax2.plot(helium_burn_xs, helium_burn_ys, ls='--', color='lightgrey', zorder=-5)
+ax2.set_xlim(x_left, x_right)
+ax2.set_ylim(y_bottom, y_top)
+ax2.set_xlabel(r"Density [g/cm$^3$]")
+ax2.set_ylabel(r"Temperature [K]")
+
+# plot strong burning zones
+high_burning = np.where(p.eps_nuc > 1e7, True, False)
+mid_burning = np.where((p.eps_nuc > 1e3) & (p.eps_nuc < 1e7), True, False)
+low_burning = np.where((p.eps_nuc > 1) & (p.eps_nuc < 1e3), True, False)
+# temporarily set butt style to round
+save_capstyle = plt.rcParams['lines.solid_capstyle']
+plt.rcParams['lines.solid_capstyle'] = 'round'
+ax2.plot(p.Rho[high_burning], p.T[high_burning], marker='o', ls='', ms=6, color='C3', zorder=-1)
+ax2.plot([], [], lw=6, color='C3', label=r"$\epsilon_{\mathrm{nuc}} > 10^7\,\mathrm{erg/g/s}$")
+ax2.plot(p.Rho[mid_burning], p.T[mid_burning], marker='o', ls='', ms=4.5, color='C1', zorder=-2)
+ax2.plot([], [], color='C1', lw=4.5, label=r"$\epsilon_{\mathrm{nuc}} > 10^3\,\mathrm{erg/g/s}$")
+ax2.plot(p.Rho[low_burning], p.T[low_burning], marker='o', ls='', ms=3, color='goldenrod', zorder=-3)
+ax2.plot([], [], color='goldenrod', lw=3, label=r"$\epsilon_{\mathrm{nuc}} > 1\,\mathrm{erg/g/s}$")
+ax2.legend(loc='lower right')
+# restore capstyle
+plt.rcParams['lines.solid_capstyle'] = save_capstyle
+
+# time series for last 5 years
+window = 5
+
+# top panel: photospheric and H-burning luminosities
+mask = h.star_age > (max(h.star_age) - window)
+ax3.set_title("Last 5 Years")
+ax3.semilogy(h.star_age[mask], h.L[mask], label=r"$L$")
+ax3.semilogy(h.star_age[mask], h.LH[mask], ls='--', label=r"$L_{\mathrm{H}}$")
+ax3.set_ylabel(r"Luminosity [$L_{\odot}$]")
+ax3.legend(loc='upper left')
+ax3.set_xticklabels([])
+
+# temperature and radius
+ax4.semilogy(h.star_age[mask], h.Teff[mask], label=r'$T_{\mathrm{eff}}$')
+ax4.semilogy([], [], label=r'$R$', ls='--', color='C1')
+ax4.legend(loc='upper left')
+ax4b = ax4.twinx()
+ax4b.semilogy(h.star_age[mask], h.R[mask], ls='--', color='C1')
+ax4.set_ylabel(r"Eff. Temp. [K]", color='C0')
+ax4b.set_ylabel('Radius [$R_{\odot}$]', color='C1')
+ax4.set_xticklabels([])
+
+# mass loss and envelope mass
+ax5.semilogy(h.star_age[mask], h.star_mass[mask] - h.he_core_mass[mask], label=r'$\Delta M_{\mathrm{H}}$')
+ax5.semilogy([], [], ls='--', label=r'$|\dot{M}|$')
+ax5.legend(loc='center left')
+ax5.set_ylabel(r"Envelope Mass [$M_{\odot}$]", color='C0')
+ax5b = ax5.twinx()
+ax5b.semilogy(h.star_age[mask], h.abs_mdot[mask], ls='--', color='C1')
+ax5b.set_ylabel(r"$\left\vert\dot{M}\right\vert$ [$M_{\odot}$/yr]", color='C1')
+
+ax5.set_xlabel(r"Star Age [yr]")
+
+# profile at the end of the simulation
+# first up, common isotope mass fractions
+xm = p.star_mass - p.mass
+for iso in ['h1', 'he4', 'c12', 'n14', 'o16']:
+    element = ''.join([i for i in iso if not i.isdigit()]).capitalize()
+    mass_number = ''.join([i for i in iso if i.isdigit()])
+    tex_iso = r"${}^{" + mass_number + r"}$" + element
+    ax6.loglog(xm, p.data(iso), label=tex_iso)
+
+ax6.set_title("Final Profile")
+ax6.set_ylim(4e-5, 1.5)
+ax6.legend(loc='lower left')
+ax6.set_ylabel(r"Mass Fraction")
+ax6.set_xticklabels([])
+
+# nuclear energy generation rates
+ax7.loglog(xm, p.eps_nuc, label=r"$\epsilon_{\mathrm{nuc}}$")
+ax7.loglog(xm, p.pp, ls='--', label=r"$\epsilon_{\mathrm{pp}}$")
+ax7.loglog(xm, p.cno, ls=':', label=r"$\epsilon_{\mathrm{CNO}}$")
+ax7.legend(loc='upper right')
+ax7.set_ylabel(r"Specific Power [erg/g/s]")
+ax7.set_xticklabels([])
+ax7.set_ylim(1e-6, 1e10)
+
+# basic thermodynamic quantities
+ax8.loglog(xm, p.Rho, label='$\\rho$')
+ax8.loglog([], [], ls='--', label='$T$')
+ax8.set_ylim(2e-3, 2e6)
+ax8.set_ylabel(r"Density [g/cm$^3$]", color='C0')
+ax8b = ax8.twinx()
+ax8b.loglog(xm, p.T, ls='--', color='C1')
+ax8b.set_ylim(2e6, 1.25e8)
+ax8b.set_ylabel(r"Temperature [K]", color='C1')
+ax8.legend(loc='upper right')
+
+for ax in [ax6, ax7, ax8]:
+    ax.set_xlim(8e-4, 1e-10)
+ax8.set_xlabel(r"Exterior Mass Coordinate [M$_{\odot}$]")
+
+
+fig.savefig("plt_out/wd_nova_burst_grid.svg")
+
diff --git a/star/test_suite/zams_to_cc_80/gyre.in b/star/test_suite/zams_to_cc_80/gyre.in
deleted file mode 100644
index e27703b48..000000000
--- a/star/test_suite/zams_to_cc_80/gyre.in
+++ /dev/null
@@ -1,32 +0,0 @@
-&model
-/
-
-&mode
-   l = 0
-/
-
-&osc
-   nonadiabatic = .TRUE.
-/
-
-&rot
-/
-
-&num
-   diff_scheme = 'MAGNUS_GL2' 
-/
-
-&scan
-   grid_type = 'LINEAR'
-   freq_min = 0.5
-   freq_max = 5.0
-   freq_min_units = 'ACOUSTIC_DELTA'
-   freq_max_units = 'ACOUSTIC_DELTA'
-   n_freq = 50
-/
-
-&grid
-   w_osc = 10
-   w_exp = 2
-   w_ctr = 10
-/
diff --git a/star/test_suite/zams_to_cc_80/inlist_common b/star/test_suite/zams_to_cc_80/inlist_common
index 5cfecd75c..a559aec6d 100644
--- a/star/test_suite/zams_to_cc_80/inlist_common
+++ b/star/test_suite/zams_to_cc_80/inlist_common
@@ -191,7 +191,7 @@
       limit_for_rel_error_in_energy_conservation = 1d-7
       hard_limit_for_rel_error_in_energy_conservation = 1d-6      
       
-      never_skip_hard_limits = .true
+      never_skip_hard_limits = .true.
       min_xa_hard_limit = -1d-5
       min_xa_hard_limit_for_highT = -3d-5
 
diff --git a/star/test_suite/zams_to_cc_80/src/run_star_extras.f90 b/star/test_suite/zams_to_cc_80/src/run_star_extras.f90
index 70b5accc7..2cf66b188 100644
--- a/star/test_suite/zams_to_cc_80/src/run_star_extras.f90
+++ b/star/test_suite/zams_to_cc_80/src/run_star_extras.f90
@@ -27,7 +27,6 @@ module run_star_extras
       use const_def
       use math_lib
       use auto_diff
-      use gyre_lib
       
       implicit none
       
@@ -40,18 +39,6 @@ module run_star_extras
          !alpha_other = s% x_ctrl(22)
          !H_limit = s% x_ctrl(23)
 
-!gyre
-      !x_logical_ctrl(37) = .false. ! if true, then run GYRE
-      !x_integer_ctrl(1) = 2 ! output GYRE info at this step interval
-      !x_logical_ctrl(1) = .false. ! save GYRE info whenever save profile
-      !x_integer_ctrl(2) = 2 ! max number of modes to output per call
-      !x_logical_ctrl(2) = .false. ! output eigenfunction files
-      !x_integer_ctrl(3) = 0 ! mode l (e.g. 0 for p modes, 1 for g modes)
-      !x_integer_ctrl(4) = 1 ! order
-      !x_ctrl(1) = 0.158d-05 ! freq ~ this (Hz)
-      !x_ctrl(2) = 0.33d+03 ! growth < this (days)
-
-      
       contains
 
       include "test_suite_extras.inc"
@@ -121,22 +108,6 @@ subroutine extras_startup(id, restart, ierr)
          
          if (.not. s% x_logical_ctrl(37)) return
          
-         ! Initialize GYRE
-
-         call gyre_init('gyre.in')
-
-         ! Set constants
-
-         call gyre_set_constant('G_GRAVITY', standard_cgrav)
-         call gyre_set_constant('C_LIGHT', clight)
-         call gyre_set_constant('A_RADIATION', crad)
-
-         call gyre_set_constant('M_SUN', Msun)
-         call gyre_set_constant('R_SUN', Rsun)
-         call gyre_set_constant('L_SUN', Lsun)
-
-         call gyre_set_constant('GYRE_DIR', TRIM(mesa_dir)//'/gyre/gyre')
-         
       end subroutine extras_startup
       
       
@@ -170,7 +141,6 @@ subroutine extras_after_evolve(id, ierr)
          end select
          call test_suite_after_evolve(s, ierr)
          if (.not. s% x_logical_ctrl(37)) return
-         call gyre_final()
       end subroutine extras_after_evolve
       
 
@@ -239,8 +209,6 @@ subroutine data_for_extra_profile_columns(id, n, nz, names, vals, ierr)
          end do
       end subroutine data_for_extra_profile_columns
   
-      include 'gyre_in_mesa_extras_finish_step.inc'
-
       ! returns either keep_going or terminate.
       integer function extras_finish_step(id)
          integer, intent(in) :: id
@@ -251,7 +219,6 @@ integer function extras_finish_step(id)
          if (ierr /= 0) return
          extras_finish_step = keep_going
          if (.not. s% x_logical_ctrl(37)) return
-         extras_finish_step = gyre_in_mesa_extras_finish_step(id)
          if (extras_finish_step == terminate) &
              s% termination_code = t_extras_finish_step
       end function extras_finish_step
diff --git a/star_data/make/makefile_base b/star_data/make/makefile_base
index a2bc458c8..f45ff6973 100644
--- a/star_data/make/makefile_base
+++ b/star_data/make/makefile_base
@@ -108,11 +108,6 @@ FULLDEPS ?= yes
 # However, for when one is playing around with internals, in a way that doesn't 
 # affect public interfaces, it can be a time-saving measure to use order-only checking.
 
-# reminders for Bill: the name of the file must be the same as the name of the module
-       # and no upper case letters in filenames.
-       # use COMPILE_LEGACY for old files that do not comply with f2008 standards.
-       # use .f for fixed format, .f90 for free
-
 ifeq ($(filter clean,$(MAKECMDGOALS)),)
 
   DEPEND_DIRS = .:$(MOD_PUBLIC_DIR):$(MOD_PRIVATE_DIR)
diff --git a/star_data/private/star_controls.inc b/star_data/private/star_controls.inc
index 00cdac22c..855cc6a5f 100644
--- a/star_data/private/star_controls.inc
+++ b/star_data/private/star_controls.inc
@@ -432,6 +432,10 @@
 
          logical :: use_T_tau_gradr_factor
 
+      ! starspots
+          logical :: do_starspots
+          real(dp) :: fspot, xspot
+
       ! mass gain or loss
 
          real(dp) :: mass_change
diff --git a/stella/res/stella_extras.f90 b/stella/res/stella_extras.f90
index ae516ea3b..c4b9939c3 100644
--- a/stella/res/stella_extras.f90
+++ b/stella/res/stella_extras.f90
@@ -13,11 +13,11 @@ program main
    implicit none
 
    integer :: i,j,k,zone,denjmax,idum,ierr
-   real*8, allocatable,dimension(:,:) :: &
+   real(dp), allocatable,dimension(:,:) :: &
       r,v,temp,den,kap,tempr,xm,smooth,tau,lum,n_bar,n_e
-   real*8, allocatable,dimension(:) :: &
+   real(dp), allocatable,dimension(:) :: &
       t,m,dm,h,he,c,n,o,ne,na,mg,al,si,s,ar,ca,fe,ni
-   real*8 :: dum,time,X,sum_tau,tauph,tau_extra,denmax,gdepos
+   real(dp) :: dum,time,X,sum_tau,tauph,tau_extra,denmax,gdepos
    character*132 runname,filestr,fname,test_str
    character*256 line, my_mesa_dir
 
diff --git a/touch b/touch
index afb48ead0..f39220bbe 100755
--- a/touch
+++ b/touch
@@ -27,7 +27,7 @@ do_one colors
 do_one const
 do_one eos
 do_one gyre
-do_one hdf5io
+do_one forum
 do_one interp_1d
 do_one interp_2d
 do_one ionization
diff --git a/turb/make/makefile_base b/turb/make/makefile_base
index e0f02317a..05b3ad991 100644
--- a/turb/make/makefile_base
+++ b/turb/make/makefile_base
@@ -58,7 +58,7 @@ nodeps : $(.DEFAULT_GOAL)
 
 #################################################################
 #
-# COMPULATION RULES
+# COMPILATION RULES
 
 COMPILE_LEGACY = $(filter-out -std=f2008, $(COMPILE_TO_DEPLOY))
 
diff --git a/turb/private/tdc.f90 b/turb/private/tdc.f90
index d58eaf1d1..01d7e015f 100644
--- a/turb/private/tdc.f90
+++ b/turb/private/tdc.f90
@@ -245,8 +245,8 @@ subroutine bracket_plus_Newton_search(info, scale, Y_is_positive, Zlb, Zub, Y_fa
       integer, intent(out) :: tdc_num_iters
       integer, intent(out) :: ierr
       
-      type(auto_diff_real_tdc) :: Y, Z, Q, Q_lb, Q_ub, Qc, Z_new, correction, lower_bound_Z, upper_bound_Z
-      type(auto_diff_real_tdc) :: dQdZ, Q0
+      type(auto_diff_real_tdc) :: Y, Z, Q, Qc, Z_new, correction, lower_bound_Z, upper_bound_Z
+      type(auto_diff_real_tdc) :: dQdZ
       integer :: iter, line_iter
       logical :: converged, have_derivatives, corr_has_derivatives
       real(dp), parameter :: correction_tolerance = 1d-13
diff --git a/turb/private/tdc_support.f90 b/turb/private/tdc_support.f90
index fc9372fc9..25795ebc1 100644
--- a/turb/private/tdc_support.f90
+++ b/turb/private/tdc_support.f90
@@ -566,7 +566,7 @@ function eval_Af(dt, A0, xi0, xi1, xi2) result(Af)
       real(dp), intent(in) :: dt    
       type(auto_diff_real_tdc), intent(in) :: A0, xi0, xi1, xi2
       type(auto_diff_real_tdc) :: Af ! output
-      type(auto_diff_real_tdc) :: J2, J, Jt4, num, den, y_for_atan, root, lk 
+      type(auto_diff_real_tdc) :: J2, J, Jt4, num, den, y_for_atan, root 
 
       J2 = pow2(xi1) - 4d0 * xi0 * xi2
 
diff --git a/turb/test/src/test_turb.f90 b/turb/test/src/test_turb.f90
index 4e609463c..ef9b77c15 100644
--- a/turb/test/src/test_turb.f90
+++ b/turb/test/src/test_turb.f90
@@ -84,7 +84,6 @@ subroutine compare_TDC_and_Cox_MLT()
       character(len=3) :: MLT_option
       integer :: mixing_type, ierr, tdc_num_iters
       logical :: report
-      integer :: j
 
       include 'formats'
 
@@ -155,7 +154,7 @@ subroutine check_TDC()
       real(dp) :: mixing_length_alpha, conv_vel_start, alpha_TDC_DAMP, alpha_TDC_DAMPR, alpha_TDC_PtdVdt, dt, cgrav, m, scale
       type(auto_diff_real_star_order1) :: &
          r, L, T, P, opacity, rho, dV, chiRho, chiT, Cp, gradr, grada, scale_height, gradL
-      type(auto_diff_real_star_order1) :: gradT, Y_face, conv_vel, D, Gamma
+      type(auto_diff_real_star_order1) :: gradT, Y_face, conv_vel, D
       integer :: mixing_type, ierr, tdc_num_iters
       logical :: report
       integer :: j
diff --git a/utils/makefile_header b/utils/makefile_header
index c2cb98a7e..2760066f1 100644
--- a/utils/makefile_header
+++ b/utils/makefile_header
@@ -131,9 +131,12 @@ SKIP_NAN_TRAPS = YES
 #SKIP_NAN_TRAPS = NO
 # if not SKIP_NAN_TRAPS, then also add $(FCtrapNANs) to FCbasic2
 
-FCbasic = -Wno-uninitialized -fno-range-check -fmax-errors=7 $(SPECIAL_FC_FLAGS) $(FCbasic2)
+FCbasic = -Wno-uninitialized -fno-range-check -fmax-errors=7 -fdiagnostics-color $(SPECIAL_FC_FLAGS) $(FCbasic2)
 FCbasic2 = -fprotect-parens -fno-sign-zero -fbacktrace -ggdb -finit-real=snan
 
+# For debugging, you may want to try some of these options:
+# -Wall -Wextra -Wimplicit-interface -Wno-unused-function -fPIC -g -fcheck=all,no-array-temps -fbacktrace -ffpe-trap=invalid,zero,overflow -finit-real=snan -finit-integer=-99999999
+
 # Set the fortran standard to compile against, files that can't be compiled to the standard and are 
 # unfixable should add a statement like:  $(filter-out -std=f2008, $(COMPILE))
 # to filter out the option in their makefile
@@ -144,7 +147,7 @@ FCstandard = -std=f2008 -Wno-error=tabs
 
 FCimpno = -fimplicit-none  
 FCchecks = -fbounds-check -Wuninitialized -Warray-bounds
-FCwarn = -Wunused-value -W -Wno-compare-reals -Wno-unused-parameter -Wno-function-elimination
+FCwarn = -Wunused-value -W -Wno-compare-reals -Wno-unused-parameter -Wno-function-elimination -Waliasing
 #FCwarn = -Wunused-value -Werror -W -Wno-compare-reals -Wno-unused-parameter
 FCtrapNANs = -ffpe-trap=invalid,overflow,zero 
 # -Wno-unused-parameter
@@ -247,7 +250,7 @@ LOCAL_LIB_DIR = $(PACKAGE_DIR)/make
 MESA_LIB_DIR = $(MESA_DIR)/lib
 MESA_INCLUDE_DIR = $(MESA_DIR)/include
 TEST_INCLUDES = -I$(LOCAL_LIB_DIR) -I$(PACKAGE_DIR)/public -I$(MESA_INCLUDE_DIR)
-TEST_COMPILE_FLAGS = $(FCbasic) $(FCopenmp) $(TEST_INCLUDES) $(FCchecks) $(FCdebug) $(LIB_FLAGS) -c
+TEST_COMPILE_FLAGS = $(FCbasic) $(FCopenmp) $(TEST_INCLUDES) $(FCchecks) $(FCdebug) $(LIB_FLAGS) $(FCstandard) $(FCimpno) -c
 TEST_COMPILE = $(FC) $(TEST_COMPILE_FLAGS) $(LD_FLAGS)
 
 # Library lists / linking commands
@@ -257,7 +260,7 @@ LOAD_MATRIX_INT = $(addprefix -l,$(LIBS_MATRIX))
 LOAD_MATRIX_EXT = $(LOAD_CRMATH) $(LOAD_LAPACK95) $(LOAD_LAPACK) $(LOAD_BLAS)
 LOAD_MATRIX = $(LOAD_MATRIX_INT) $(LOAD_MATRIX_EXT)
 
-LIBS_MESA_NUMERICS = interp_2d interp_1d num auto_diff hdf5io $(LIBS_MATRIX)
+LIBS_MESA_NUMERICS = interp_2d interp_1d num auto_diff forum $(LIBS_MATRIX)
 LOAD_MESA_NUMERICS_INT = $(addprefix -l,$(LIBS_MESA_NUMERICS))
 LOAD_MESA_NUMERICS_EXT = $(LOAD_MATRIX_EXT) $(LOAD_HDF5)
 LOAD_MESA_NUMERICS = $(LOAD_MESA_NUMERICS_INT) $(LOAD_MESA_NUMERICS_EXT)
@@ -272,7 +275,7 @@ LOAD_MESA_MACRO_INT = $(addprefix -l,$(LIBS_MESA_MACRO))
 LOAD_MESA_MACRO_EXT = $(LOAD_MESA_MICRO_EXT)
 LOAD_MESA_MACRO = $(LOAD_MESA_MACRO_INT) $(LOAD_MESA_MACRO_EXT)
 
-LIBS_MESA_STAR_SUPPORT = gyre $(LIBS_MESA_MACRO)
+LIBS_MESA_STAR_SUPPORT = $(LIBS_GYRE) $(LIBS_MESA_MACRO)
 LOAD_MESA_STAR_SUPPORT_INT = $(addprefix -l,$(LIBS_MESA_STAR_SUPPORT))
 LOAD_MESA_STAR_SUPPORT_EXT = $(LOAD_MESA_MACRO_EXT) $(LD_FLAGS)
 LOAD_MESA_STAR_SUPPORT = $(LOAD_MESA_STAR_SUPPORT_INT) $(LOAD_MESA_STAR_SUPPORT_EXT)
@@ -294,6 +297,13 @@ LOAD_MESA_STAR = $(LOAD_MESA_STAR_INT) $(LOAD_MESA_STAR_EXT)
 LIBS_MESA_BINARY = binary $(LIBS_MESA_STAR)
 LOAD_MESA_BINARY_INT = -L$(MESA_LIB_DIR) $(addprefix -l,$(LIBS_MESA_BINARY))
 
+ifeq ($(USE_GYRE),YES)
+   LIBS_GYRE = gyre_mesa gyre
+else
+   LIBS_GYRE = gyre_mesa
+endif
+LOAD_GYRE = -L$(MESA_LIB_DIR) $(addprefix -l,$(LIBS_GYRE))
+
 ifeq ($(USE_PGSTAR),YES)
    LOAD_MESA_BINARY_EXT = $(LOAD_STAR_MODS_EXT) $(LOAD_PGPLOT)
 else
diff --git a/utils/private/utils_c_system.c b/utils/private/utils_c_system.c
index d8b9f047a..209aa3577 100644
--- a/utils/private/utils_c_system.c
+++ b/utils/private/utils_c_system.c
@@ -23,251 +23,195 @@
 //!
 //! ***********************************************************************
 
-#include <stdlib.h>
-#include <stdio.h>
-#include <string.h>
-#include <sys/stat.h>   /* mkdir(2) */
+#include "utils_c_system.h"
+#include <dirent.h>
 #include <errno.h>
 #include <fcntl.h>
-#include <unistd.h>
-#include <libgen.h>
-#include <sys/types.h>
 #include <stdbool.h>
-#include <dirent.h>
-#include "utils_c_system.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <sys/stat.h> /* mkdir(2) */
+#include <sys/types.h>
+#include <unistd.h>
 
-static const int SUCCESS=0;
-static const int PATHLEN=4096;
-static const char TEMPLATE[]="/.temp-XXXXXX";
-static const int LEN_TEMP=strlen(TEMPLATE);
+#define PATHLEN 4096
+static const int SUCCESS = 0;
+static const char TEMPLATE[] = ".temp-XXXXXX";
 
 /* Makes a single directory at path (mkdir path) */
-int c_mkdir(const char * restrict path) {
-    
-    // If folder already exists return, don't relay on EEXIST as sometimes EACCES happens first
-     if(is_dir(path)==1) 
+int c_mkdir(const char *restrict path) {
+
+    // If folder already exists return, don't relay on EEXIST as sometimes
+    // EACCES happens first
+    if (is_dir(path) == 1) {
         return SUCCESS;
-    
+    }
+
     if (mkdir(path, S_IRWXU) != SUCCESS) {
-        if (errno != EEXIST){
-            printf("MKDIR error on '%s' Errno %d :: %s\n",path, errno, strerror(errno));
-            return -1; 
-         }
+        if (errno != EEXIST) {
+            printf("MKDIR error on '%s' Errno %d :: %s\n", path, errno,
+                   strerror(errno));
+            return -1;
+        }
     }
     return SUCCESS;
 }
 
-/* Makes a directory at path, potentially making needed parent directories (mkdir -p path) */
-int c_mkdir_p(const char * restrict path) {
+/* Makes a directory at path, potentially making needed parent directories
+ * (mkdir -p path) */
+int c_mkdir_p(const char *restrict path) {
     char _path[PATHLEN];
-    char *p; 
-    
-    // If folder already exists return, don't relay on EEXIST as sometimes EACCES happens first
-    if(is_dir(path)==1) 
+    char *p;
+
+    // If folder already exists return, don't relay on EEXIST as sometimes
+    // EACCES happens first
+    if (is_dir(path) == 1) {
         return SUCCESS;
+    }
+
+    if (strlen(path) >= PATHLEN) {
+        return -1;
+    }
+
+    strcpy(_path, path);
 
-    strncpy(_path, path,PATHLEN);
-    
     /* Iterate the string */
     for (p = _path + 1; *p; p++) {
         if (*p == '/') {
             /* Temporarily truncate */
             *p = '\0';
 
-            if(c_mkdir(_path) != SUCCESS)
+            if (c_mkdir(_path) != SUCCESS) {
                 return -1;
+            }
 
             *p = '/';
         }
-    }   
-    if(c_mkdir(_path) != SUCCESS)
+    }
+    if (c_mkdir(_path) != SUCCESS) {
         return -1;
+    }
 
     return SUCCESS;
 }
 
-
-int is_dir(const char * restrict path) {
-    DIR* dir = opendir(path);
-    if(dir){
+int is_dir(const char *restrict path) {
+    DIR *dir = opendir(path);
+    if (dir) {
         closedir(dir);
         return 1;
     } else {
         return 0;
     }
-    
 }
 
-
 /* Moves file src to dest (mv src dest)
  * if src and dest are on the same filesystem, then mv the files
  * if not, copy src to a temp file on same filesystem as dest then mv the temp
- * file to dest, this prevents the filesystem ever being in a inconsistent state.
- * dest either does not exist or does exist and is "full", thus we prevent problems
- * with other programs reading the file before its finished being written.
+ * file to dest, this prevents the filesystem ever being in a inconsistent
+ * state. dest either does not exist or does exist and is "full", thus we
+ * prevent problems with other programs reading the file before its finished
+ * being written.
  */
 
-int c_mv(const char * restrict src, const char * restrict dest) {
-    char realSrc[PATHLEN], realDest[PATHLEN];
-    char *tmp;
-    char destDir[PATHLEN], srcFile[PATHLEN], temp[PATHLEN], copy[PATHLEN];
-    struct stat srcStat, destStat, destDirStat;
-    int remove_dest, fTemp, index;
-    bool dbg = false;
-    
-    remove_dest = 0;
-    /* Get real paths for files */
-    realpath(src, realSrc);
-        
-    /* Cant use realpath as file might not exist yet */
-    strncpy(realDest,dest,PATHLEN);
-        
-    if (stat(realDest,&destStat) == 0)
-        if (!S_ISREG(destStat.st_mode))
-            strncat(realDest,"/",PATHLEN - strlen(realDest) - 1);
-        
-    if(dbg){
-        printf("mv %s to %s\n",src, dest);
-        printf("mv %s to %s\n",realSrc, realDest);
+int c_mv(const char *restrict src, const char *restrict dest) {
+    char dest_temp[PATHLEN];
+
+    if (rename(src, dest) == SUCCESS) {
+        return SUCCESS;
     }
-    
-    /* Get folder where output will go */
-    strncpy(copy, realDest, PATHLEN);
-    tmp = dirname(copy);   
-    strncpy(destDir, tmp, PATHLEN-1);
-    
-    /* If destination folder does not end in a / add one */
-    index = strlen(destDir);
-    if(index > PATHLEN-2)
-        return -2;
-    
-    if(strcmp(&destDir[index],"/") != 0){
-        destDir[index+1]  = '/';
-        destDir[index+2] = '\0';
+
+    if (errno != EXDEV) {
+        return -1;
     }
-    
-    /* Get basename of input file */
-    strncpy(copy, realSrc, PATHLEN);
-    tmp = basename(copy);
-    strncpy(srcFile, tmp, PATHLEN-1);
-    
-    if(dbg)
-        printf("+ %s %s %s %s\n",srcFile, realSrc, destDir, realDest);
-    
-    /* Does input file exist? */ 
-    if (stat(realSrc,&srcStat) < 0)
+
+    if (strlen(dest) >= PATHLEN) {
         return -1;
-    
-    /* Does output exist? */
-    if (stat(realDest,&destStat) == 0){
-        if(dbg)
-            printf("** %s %s\n", realDest, srcFile);
-            
-        /* Check if folder*/
-        if (S_ISREG(destStat.st_mode)){
-            /* If a file allready, mark for removal*/
-            remove_dest = 1;
-        } else {
-            /* is folder, append src filename to foldername */
-            strcat(realDest, srcFile);
+    }
+
+    strcpy(dest_temp, dest);
+
+    size_t i = strlen(dest);
+    while (i) {
+        if (dest_temp[i - 1] == '/') {
+            break;
         }
-    } 
-    if(dbg)
-        printf("*** %s %s\n",destDir, realDest);
-        
-    /* Get stat for output folder */
-    if(stat(destDir, &destDirStat))
-        return -2;
-    
-    /* is src and dest on the same file system? */
-    if (srcStat.st_dev == destDirStat.st_dev){
-        /* Delete output file if it exists */
-        if(remove_dest)
-            remove(realDest);
-            
-        if(dbg)
-            printf("%s %s\n", realSrc, realDest);
-        /* Move src to dest */
-        if(rename(realSrc, realDest) != SUCCESS)
-            return -3; 
-            
-    } else{
-        /* Copy src to a temp file on dest then move to final location */
-        
-        /* Build temporay filename */
-        strncpy(temp, destDir, PATHLEN - LEN_TEMP);
-        strncat(temp, TEMPLATE, PATHLEN - strlen(temp) - 1);
-        
-        /* Make temp file */
-        fTemp = mkstemp(temp);
-        if (fTemp < 0)
-            goto error;
-        /* Just need the file made dont need the file descriptor */
-        close(fTemp);
-            
-        /* Copy data to temp file */
-        if (c_cp(realSrc, temp) != SUCCESS)
-            goto error; 
-            
-        /* Delete output file if it exists */
-        if(remove_dest)
-            remove(realDest);
-                        
-        /* Move from temp to final dest */
-        if(rename(temp, realDest) != SUCCESS)
-            goto error;
-        
-        /* Remove orignal */
-        remove(realSrc);
+
+        i--;
+    }
+
+    if (strlen(TEMPLATE) >= PATHLEN - i) {
+        return -1;
+    }
+
+    strcpy(dest_temp + i, TEMPLATE);
+
+    int fd = mkstemp(dest_temp);
+
+    if (fd == -1) {
+        return -1;
+    }
+
+    close(fd);
+
+    if (c_cp(src, dest_temp) != SUCCESS) {
+        remove(dest_temp);
+        return -1;
     }
-    
+
+    if (rename(dest_temp, dest) != SUCCESS) {
+        remove(dest_temp);
+        return -1;
+    }
+
+    remove(src);
+
     return SUCCESS;
-    
-    error:
-        remove(temp);
-        if(fTemp >= 0)
-            close(fTemp);
-        return -8;
-    
 }
 
-
 /* copies file src to dest (cp src dest) */
-int c_cp(const char * restrict src, const char * restrict dest)
-{
-    const int BUF_SIZE=4096;
+int c_cp(const char *restrict src, const char *restrict dest) {
+    const int BUF_SIZE = 4096;
     int fd_src, fd_dest;
     char buf[BUF_SIZE];
     ssize_t numRead;
-    const int dbg=false;
+    const int dbg = false;
 
-    if(dbg)
-        printf("cp %s to %s\n",src,dest);
+    if (dbg) {
+        printf("cp %s to %s\n", src, dest);
+    }
 
     fd_src = open(src, O_RDONLY);
-    if (fd_src < 0)
+    if (fd_src < 0) {
         return -1;
+    }
 
-    fd_dest = open(dest, O_CREAT | O_WRONLY | O_TRUNC,S_IRUSR | S_IWUSR | S_IRGRP | S_IWGRP |S_IROTH);
-    if (fd_dest < 0)
+    fd_dest = open(dest, O_CREAT | O_WRONLY | O_TRUNC,
+                   S_IRUSR | S_IWUSR | S_IRGRP | S_IWGRP | S_IROTH);
+    if (fd_dest < 0) {
         goto error;
+    }
 
-    while ((numRead = read(fd_src, buf, BUF_SIZE)) > 0){
-        if (write(fd_dest, buf, numRead) != numRead)
+    while ((numRead = read(fd_src, buf, BUF_SIZE)) > 0) {
+        if (write(fd_dest, buf, numRead) != numRead) {
             goto error;
+        }
     }
-    
-    if(numRead == -1)
+
+    if (numRead == -1) {
         goto error;
-        
+    }
+
     close(fd_src);
     close(fd_dest);
-        
+
     return SUCCESS;
 
-    error:
-        close(fd_src);
-        if (fd_dest >= 0)
-            close(fd_dest);
-        return -2;
+error:
+    close(fd_src);
+    if (fd_dest >= 0) {
+        close(fd_dest);
+    }
+    return -2;
 }
diff --git a/utils/private/utils_c_system.h b/utils/private/utils_c_system.h
index 6f9b0153d..2f6819975 100644
--- a/utils/private/utils_c_system.h
+++ b/utils/private/utils_c_system.h
@@ -23,8 +23,8 @@
 //!
 //! ***********************************************************************
 
-int c_mkdir(const char * restrict path);
-int c_mkdir_p(const char * restrict path);
-int c_mv(const char * restrict src, const char * restrict dest);
-int c_cp(const char * restrict src, const char * restrict dest);
-int is_dir(const char * restrict path);
+int c_mkdir(const char *restrict path);
+int c_mkdir_p(const char *restrict path);
+int c_mv(const char *restrict src, const char *restrict dest);
+int c_cp(const char *restrict src, const char *restrict dest);
+int is_dir(const char *restrict path);
diff --git a/utils/private/utils_dict.f90 b/utils/private/utils_dict.f90
index 58bda6395..5078ccada 100644
--- a/utils/private/utils_dict.f90
+++ b/utils/private/utils_dict.f90
@@ -458,7 +458,7 @@ recursive subroutine do_enter_hash(dict, hash, hash_size, collisions)
          integer, intent(in) :: hash_size
          integer, intent(inout) :: collisions
          type (integer_dict), pointer :: node, next
-         integer :: hashkey, size, i
+         integer :: hashkey, i
          logical :: okay
          if (.not. associated(dict)) return
          node => dict
diff --git a/utils/private/utils_idict.f90 b/utils/private/utils_idict.f90
index c582b934a..7a9d14b5a 100644
--- a/utils/private/utils_idict.f90
+++ b/utils/private/utils_idict.f90
@@ -461,7 +461,7 @@ recursive subroutine do_enter_hash(idict, hash, hash_size, collisions)
          integer, intent(in) :: hash_size
          integer, intent(inout) :: collisions
          type (integer_idict), pointer :: node, next
-         integer :: hashkey, size, i
+         integer :: hashkey, i
          logical :: okay
          if (.not. associated(idict)) return
          node => idict
diff --git a/utils/public/utils_lib.f90 b/utils/public/utils_lib.f90
index 1a4bc5d94..acdff16d6 100644
--- a/utils/public/utils_lib.f90
+++ b/utils/public/utils_lib.f90
@@ -73,6 +73,7 @@ subroutine get_compiler_version(compiler_name,compiler_version_name)
     character(len=*) :: compiler_name, compiler_version_name
     integer :: intel_compiler_build_date = 0, gcc_major = 0, gcc_minor = 0, gcc_patch = 0
     character(len=3) :: gcc_major_string, gcc_minor_string, gcc_patch_string
+    if (.false.) intel_compiler_build_date = 0
 #ifdef __INTEL_COMPILER
     compiler_name = "ifort"
     intel_compiler_build_date = __INTEL_COMPILER_BUILD_DATE
@@ -620,7 +621,6 @@ integer function token(iounit, n, i, buffer, string)
     integer, intent(inout) :: i ! number of characters already read from buffer
     character (len=*), intent(inout) :: buffer ! line of text from input file
     character (len=*), intent(inout) :: string ! holds string or name for string or name token
-    character (len=1) :: tab_str
 
     integer :: info, j, j1, j2, l, str_len
 
diff --git a/utils/test/src/test_utils.f90 b/utils/test/src/test_utils.f90
index 3bc3e9826..9f01d3c5b 100644
--- a/utils/test/src/test_utils.f90
+++ b/utils/test/src/test_utils.f90
@@ -15,91 +15,6 @@ program test_utils
 
       
       contains
-      
-      
-      subroutine test(ierr)
-         integer, intent(out) :: ierr
-         real(dp), dimension(:,:), pointer :: a
-         real(dp) :: x, y 
-         integer :: i
-         ierr = 0
-
-         !write(*,*) 'start test on mic'
-         !flush(6)
-         
-         allocate(a(10,20),stat=ierr)
-         if (ierr /= 0) then
-            write(*,*) 'alloc2 failed on mic'
-            write(*,'(A)')
-            flush(6)
-            return
-         end if
-         deallocate(a,stat=ierr)
-         if (ierr /= 0) then
-            write(*,*) 'deallocate(a,stat=ierr) failed on mic'
-            write(*,'(A)')
-            flush(6)
-            return
-         end if
-
-         call alloc2(10,20,a,ierr)
-         if (ierr /= 0) then
-            write(*,*) 'alloc2 failed on mic'
-            write(*,'(A)')
-            flush(6)
-            return
-         end if
-         
-         call enlarge_if_needed_2(a,12,30,1,ierr)
-         if (ierr /= 0) then
-            write(*,*) 'enlarge_if_needed_2 failed on mic'
-            write(*,'(A)')
-            flush(6)
-            return
-         end if
-         
-         a(1,1) = -1
-         a = 0
-         
-         ! NOTE: don't write NaN or Infinity
-         ! since compilers don't all agree on text representations
-         ! and you'll get bogus failure for the ndiff check.
-         
-         x = a(1,2)
-         if (is_bad(x)) then
-            write(*,*) 'x', x
-            write(*,*) 'bad num', is_bad(x)
-            write(*,'(A)')
-            flush(6)
-            ierr = -1
-            return
-         end if
-         
-         y = 1d99
-         do i=1,10
-            y = y**2
-         end do
-         if (.not. is_bad(y)) then
-            write(*,*) 'y', y
-            write(*,*) 'bad num', is_bad(y)
-            write(*,'(A)')
-            flush(6)
-            ierr = -1
-            return
-         end if
-
-         deallocate(a,stat=ierr)
-         if (ierr /= 0) then
-            write(*,*) 'deallocate failed on mic'
-            write(*,'(A)')
-            flush(6)
-            return
-         end if
-
-         !write(*,*) 'done test on mic'
-         !flush(6)
-         
-      end subroutine test
             
       
       subroutine test_dict